macro sketch2
ecoff
rdoff
gv mcoDense 1
gv mcoDense ^DSketch density: (i.e. 1 line every x units) (1)
gv mcoLength 10
gv mcoLength ^DSketch line length: (i.e. Each sketch line is x units long) (10)
gv mcoWidth 1
gv mcoWidth ^DWidth of sketch: (1)
ge mcoentity ^DEntity to draw along:
iferr mcodone
gdist mcoentitylen % 0 mcoentity % .1 mcoentity
gv mcoentitylen mcoentitylen*1000
gv mcounit 100/mcoentitylen
gv mcoSP 0
gp mcoP1 % 0 mcoentity
:mcoloop
RANDOM mcoRLS
gv mcoRLS (mcoRLS*mcoDense/2)+(mcoDense/2)
RANDOM mcoRLE
gv mcoRLE (mcoRLE*mcoLength/2)+(mcoLength/2)
RANDOM mcoROSS
RANDOM mcoROSE
gv mcoROSS (mcoROSS-.5)*mcoWidth
gv mcoROSE (mcoROSE-.5)*mcoWidth
gv mcoSP mcoSP+(mcoRLS*mcounit)
gv mcoEP mcoSP+(mcoRLE*mcounit)
ifp mcoEP-100 mcodoneloop
gp mcoP1 % mcoSP mcoentity
gp mcoP2 % mcoEP mcoentity
gbrng mcoB12 mcoP1 mcoP2
gp mcoP1 ref mcoP1 <mcoB12+90,mcoROSS
gp mcoP2 ref mcoP2 <mcoB12+90,mcoROSE
line mcoP1 mcoP2;
go mcoloop
:mcodoneloop
line mcoP1 % 100 mcoentity;
:mcodone
rdon
econ
endm