MACRO ZOUT2
ZOUT;2
ENDM

MACRO ZIN2
ZIN;2
ENDM

MACRO FBDR
SELSAVE
LWIDTH 0;LSTYLE solid;FSTYLE solid
LAYER VEGETATION
SHEET FOREST
GV RV 10
GV RV ^DEnter step value (10)
GN CL 81
GN CL ^DEnter color: (81)
COLOR CL
GV LW 3
GV LW ^DEnter line width: (3)
GE BDR ^DSelect forest borderline
IFERR MacroDone
SELBYP
CHANGEL
TEMPORARY
LWIDTH LW
GLEN LV BDR
GV PSTEP 100*RV/LV
GV PRCV1 0
GV PRCV2 PSTEP
:DrawArc
GP P1 % PRCV1 BDR
GP P2 % PRCV2 BDR
GBRNG BR P1 P2
ARCB P1 P2 ref P1 <BR-90,0.5*RV
GV PRCV1 PRCV1+PSTEP
GV PRCV2 PRCV1+PSTEP
IFP PRCV1-100 MacroDone
IFP 100-PRCV2 DrawArc
GV PRCV2 0
GO DrawArc
:MacroDone
SELREST
COLOR 0
ECON
ENDM