ecoff
rdoff
gv mcoDense 1
gv mcoDense ^D Толщина ручных линий: (1 линия на x юнитов) (стандарт=1)
gv mcoLength 10
gv mcoLength ^D Длинна ручных линий: (длинна каждой линии как x юнитов) (стандарт=10)
gv mcoWidth 1
gv mcoWidth ^D Толщина основной линии: (стандарт=1)
ge mcoentity ^D Объект для преобразования:
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