Scripts > HF_PeakOverlay

// Author:  A. Torpy
// Updated: 12 May 2016

hvar hMap
set hMap <GetMap "HF">
assert hMap "Cannot get heightfield!"


// get size
int nx ny
set nx <map.GetWidth hMap>
set ny <map.GetHeight hMap>

// if heightfield is not initialised, exit
assert nx "Heightfield is not initialised!"
  
// first, create and edit settings
varlist settings
int settings.xpos
int settings.ypos
int settings.rad
float settings.height

set settings.xpos <div nx 2>
set settings.ypos <div ny 2>
set settings.rad 100
set settings.height 1000.0

if <not <EditUI &settings "Enter settings">>
  return 0
endif

// create the overlay
map MyOverlay
assert <calc.HF.GenPeakOverlay &MyOverlay settings.rad settings.height 1> "Cannot create overlay!"

// store a backup of the heightfield
L3DTio_Backup.BackupMap "HF" "HF_PeakOverlay" 0 "view.ShowMap \"HF\""

// apply the overlay
assert <calc.HF.ApplyOverlay <GetMap "HF"> &MyOverlay settings.xpos settings.ypos 1.0 true> "Cannot apply overlay!"

// redraw the heightmap
view.ShowMap "HF"