Macro PALISADE2
ecoff
gv LPC 44
gv OPC 36
lwidth 0;lstyle solid
gv avgwidth 1
gv avgwidth ^DAverage post width:
gp P1 ^DFirst point:
:segmentloop
line P1 ^DNext point:;
|gp P2 @0,0
gdist testdist P1 P2
ifz testdist donesegmentloop
selbyp;erase
gbrng B12 P1 P2
gdist D12 P1 P2
gv D1Cur 0
:loop
RANDOM rand1
gv rand1 (rand1*.3)-.3
gv postwidth avgwidth+(avgwidth*rand1)
color LPC;fstyle solid
cird postwidth ref P1 <B12,D1Cur+(postwidth/2);
color OPC;fstyle hollow
cird postwidth ref P1 <B12,D1Cur+(postwidth/2);
gv D1Cur D1Cur+postwidth
ifp D1Cur-D12+(1.3*avgwidth) doneloop
go loop
:doneloop
color LPC;fstyle solid
cird (D12-D1cur) ref P1 <B12,D1Cur+(D12-D1cur)/2;
color OPC;fstyle hollow
cird (D12-D1cur) ref P1 <B12,D1Cur+(D12-D1cur)/2;
gp P1 P2
go segmentloop
:donesegmentloop
selbyd
econ
endm