ecoff
rdoff
selsave
:mcoMacroRepeat
point 10001,10001;
golayer MacroConstruction
gp mcoP1 ^D Первая точка:
iferr mcoDONE
line mcoP1 ^D Вторая точка:;
undo
gp mcoP2 @0,0
gdist mcoD12 mcoP1 mcoP2
ifz mcoD12 mcoDONE
gbrng mcoB12 mcoP1 mcoP2
gv mcoCP 0
gv mcoBaf mcoB12+90
RANDOM mcoR1
:mcoLOOP
RANDOM mcoR2
RANDOM mcoR3
RANDOM mcoR4
RANDOM mcoR5
RANDOM mcoR6
RANDOM mcoR7
gv mcoBde mcoB12+90+((mcoR3-.5)*5)
gp mcoPa ref mcoP1 <mcoB12,mcoCP
gp mcoPb ref mcoPa <mcoB12-45,.3+(mcoR4*.4)
gp mcoPd ref mcoP1 <mcoB12,mcoCP+1+(mcoR1*3)
gp mcoPc ref mcoPd <mcoB12-135,.3+(mcoR5*.4)
gp mcoPe ref mcoPd <mcoBde,1+(mcoR2*3)+(mcoR6*.5)
gp mcoPf ref mcoPa <mcoBaf,1+(mcoR2*3)+(mcoR7*.5)
lwidth 0
color 254
fstyle solid
poly mcoPa mcoPb mcoPc mcoPd mcoPe mcoPf;
color 245
fstyle StoneFill1
poly mcoPa mcoPb mcoPc mcoPd mcoPe mcoPf;
gv mcoBaf mcoBde
gv mcoCP mcoCP+1+(mcoR1*3)
RANDOM mcoR1
ifp mcoD12-(mcoCP+1+(mcoR1*3) mcoLOOP
RANDOM mcoR2
RANDOM mcoR3
RANDOM mcoR4
RANDOM mcoR5
RANDOM mcoR6
RANDOM mcoR7
gp mcoPa mcoPd
gp mcoPb ref mcoPa <mcoB12-45,.3+(mcoR4*.4)
gp mcoPd mcoP2
gp mcoPc ref mcoPd <mcoB12-135,.3+(mcoR5*.4)
gp mcoPe ref mcoPd <mcoB12+90,1+(mcoR2*3)+(mcoR6*.5)
gp mcoPf ref mcoPa <mcoBaf,1+(mcoR2*3)+(mcoR7*.5)
lwidth 0
color 254
fstyle solid
poly mcoPa mcoPb mcoPc mcoPd mcoPe mcoPf;
color 245
fstyle StoneFill1
poly mcoPa mcoPb mcoPc mcoPd mcoPe mcoPf;
selbyl
changel MacroConstruction
like
10001,10001
selbyp
group
selby1
keep 10001,10001
erase 10001,10001
go mcoMacroRepeat
:mcoDONE
selrest
rdon
econ
|