Scripts > re-calculate texture area

hvar hTX
set hTX <GetMap "TX">
assert hTX "Cannot get texture map!"

assert <map.GetWidth hTX> "Texture map is not initialised!"

// initiailise the settings
int ls.left ls.right ls.top ls.bottom
set ls.left 0
set ls.bottom 0
set ls.top 0
set ls.right 0

// edit settings UI, and exit if cancelled
assert <EditUI &ls "Set texture calculation area"> "Calculation aborted"

// store a backup
L3DTio_Backup.ExtBackupMap "TX" "Re-calculate TX area" 0 "view.ShowMap \"TX\""

// copy settings into a global list
hvar hList
set hList <var.Create varlist "TXarea">
var.CopyValue hList &ls

// run the calculation in a thread
calcman.RunCalcScript "calc.TX.GenMapArea TXarea.left TXarea.bottom TXarea.right TXarea.top\nview.ShowMap \"TX\"\nvar.Delete TXarea"

None.