GDIST rd ^DDistance between ridges:
GDIST rl ^DLength of ridges:
GV ratio ^DRatio of largest/smallest:
GE p ^DSelect entity:
GP pside ^D Select side:
GDIST leng % 0 p % 1 p
GV leng leng*100
GV per 100*rd/leng
GV tper per/2
GV cper tper
:1ridge5
IFP tper-100 eridge5
GP ip % tper p
GBRNG b ip PRP ip pside
GV b b+0
GV cper tper
IFN (cper-50) 2ridge5
GV cper 100-cper
:2ridge5
GV cl (rl*cper/100)*ratio+rl
LINE ip <b,cl

GV tper tper+per
GO 1ridge5
:eridge5