macro roughpath1
ecoff
rdoff
gv mcoLW 10
gv mcoLW ^DPath width? (10)
gv mcoPR 1
gv mcoPR ^DPath roughness? (.9=smoother, 1.1=rougher) (1)
gv mcoPC 1
gv mcoPC ^DPath complexity (.9=less nodes, 1.1=more nodes) (1)
gv mcoPC 1/mcoPC
ge mcoEntity ^DSelect object to convert:
iferr mcoDONE
gdist mcoDist % 0 mcoEntity % .1 mcoEntity
gv mcoUnit 100/(mcoDist*1000)
gp mcoP1 % 0 mcoEntity
gbrng mcoB12 mcoP1 % .01 mcoEntity
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*mcoUnit
gv mcoStep2 mcoStep
:mcoSEGLOOP
gp mcoP3 % mcoStep mcoEntity
gp mcoP4 % mcoStep2 mcoEntity
ifp mcoStep-100 mcoDONESEGLOOP
ifp mcoStep2-100 mcoDONESEGLOOP
random mcoR1
random mcoR2
gbrng mcoB12 % mcoStep mcoEntity % mcoStep+.01 mcoEntity
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*mcoUnit
gv mcoStep mcoStep+((mcoLW/2)+(mcoLW/2*mcoR1))*mcoPC*mcoUnit
go mcoSEGLOOP
:mcoDONESEGLOOP
gbrng mcoB12 % 99.9 mcoEntity % 100 mcoEntity
gp mcoP2 % 100 mcoEntity
poly mcoP1a mcoP1b ref mcoP2 <mcoB12-90,mcoLW/2 ref mcoP2 <mcoB12+90,mcoLW/2;
:mcoDONE
rdon
econ
endm