ecoff
rdoff
gv mcoLW 10
gv mcoLW ^D Ширина дороги (10)
gv mcoPR 1
gv mcoPR ^D Изломанность дороги (.9=плавная, 1.1=изломаная, по умолчанию=1)
gv mcoPC 1
gv mcoPC ^D Сложность дороги (.9=меньше точек, 1.1=больше точек, по умолчанию=1)
gv mcoPC 1/mcoPC
gp mcoP1 ^D Первая точка
iferr mcoDONE
line mcoP1 ^D Следующая точка (правый клик - завершить);
undo
gp mcoP2 @0,0
gdist mcoD12 mcoP1 mcoP2
ifz mcoD12 mcoDONE
lstyle solid;fstyle solid;lwidth 0
gbrng mcoB12 mcoP1 mcoP2
random mcoR1
random mcoR2
gp mcoP1a ref mcoP1 <mcoB12+90,(mcoLW*.75)+(mcoLW*.25*mcoPR*(mcoR1-.5))
gp mcoP1b ref mcoP1 <mcoB12-90,(mcoLW*.75)+(mcoLW*.25*mcoPR*(mcoR2-.5))
gv mcoStep mcoLW*mcoPC
gv mcoStep2 mcoStep
go mcoSEGLOOP
:mcoLINELOOP
line mcoP1 ^DNext point... (right click ends);
undo
gp mcoP2 @0,0
gdist mcoD12 mcoP1 mcoP2
ifz mcoD12 mcoCLEANUP
gbrng mcoB12 mcoP1 mcoP2
gv mcoStep mcoLW*mcoPC
gv mcoStep2 mcoStep
:mcoSEGLOOP
gp mcoP3 ref mcoP1 <mcoB12,mcoStep
gp mcoP4 ref mcoP1 <mcoB12,mcoStep2
gdist mcoD13 mcoP1 mcoP3
ifp mcoD13-mcoD12 mcoDONESEGLOOP
gdist mcoD14 mcoP1 mcoP4
ifp mcoD14-mcoD12 mcoDONESEGLOOP
random mcoR1
random mcoR2
gp mcoP3a ref mcoP3 <mcoB12+90,(mcoLW*.75)+(mcoLW*.25*mcoPR*(mcoR1-.5))
gp mcoP3b ref mcoP4 <mcoB12-90,(mcoLW*.75)+(mcoLW*.25*mcoPR*(mcoR2-.5))
poly mcoP1a mcoP1b mcoP3b mcoP3a;
gp mcoP1a mcoP3a
gp mcoP1b mcoP3b
random mcoR1
random mcoR2
gv mcoStep2 mcoStep+((mcoLW/2)+(mcoLW/2*mcoR2))*mcoPC
gv mcoStep mcoStep+((mcoLW/2)+(mcoLW/2*mcoR1))*mcoPC
go mcoSEGLOOP
:mcoDONESEGLOOP
gp mcoP1 mcoP2
go mcoLINELOOP
:mcoCLEANUP
poly mcoP1a mcoP1b ref mcoP2 <mcoB12-90,mcoLW/2 ref mcoP2 <mcoB12+90,mcoLW/2;
:mcoDONE
rdon
econ