ecoff
point 10001,10001;
golayer MacroConstruction
scriptm #blockwall-singlecourse-variables.scr
ifdef mcoVarsOK mcoDoneVarCheck
:mcoDefineVars
gv mcoC1 250
gv mcoC2 251
gv mcoC3 252
gv mcoCOut 0
gcol mcoC1 ^D Первый цвет: (250)
gcol mcoC2 ^D Второй цвет: (251)
gcol mcoC3 ^D Третий цвет: (252)
gcol mcoCOut ^D Цвет контура: (0)
gv mcow 1
gv mcow ^D Толщина: (1)
gw mcoVarsOK OK
savevars blockwall-singlecourse-variables
go mcoStart
:mcoDoneVarCheck
gv mcoUseDefault 1
gv mcoUseDefault ^D Использовать сохраненные настройки? (1=да - по умолчанию - клик, 0=нет)
ifz mcoUseDefault mcoDefineVars
:mcoStart
selbyp
fstyle solid
lstyle solid
lwidth 0
color 0
gp mcoP1 ^D Первая точка:
iferr mcoabort
line mcoP1 ^D Вторая точка:;
undo
gp mcoP2 @0,0
GDIST mcoBtest mcoP1 mcoP2
ifz mcoBtest mcoabort
gv mcoFIRSTTIME 0
gv mcoOffSet mcow
gp mcoP1a mcoP1
:mcoloop
GBRNG mcoB12 mcoP1 mcoP2
line mcoP2 ^D Следующая точка:;
undo
gp mcoP3 @0,0
GDIST mcoBtest mcoP2 mcoP3
ifz mcoBtest mcodone
GBRNG mcoB23 mcoP2 mcoP3
ifz mcoB12-mcoB23-180 mcodone
ifz mcoB23-mcoB12-180 mcodone
gcos mcowcs 90-((mcoB12-mcoB23-180)/2)
gv mcoaw 1/mcowcs*(mcow/2)
gp mcoP2R ref mcoP2 <(mcoB12+mcoB23)/2+90,mcoaw
gp mcoP2L ref mcoP2 <(mcoB12+mcoB23)/2-90,mcoaw
RANDOM mcoR1
gp mcoP1b ref mcoP1 <mcoB12,mcoOffSet+(mcoR1*mcow*2)
gp mcoP1bR ref mcoP1b <mcoB12-90,mcow/2
gp mcoP1bL ref mcoP1b <mcoB12+90,mcow/2
ifz mcoFIRSTTIME mcoCONTROL2
gbrng mcoB1aL1L mcoP1aL mcoP1L
gbrng mcoB1aR1R mcoP1aR mcoP1R
gbrng mcoB1bL1L mcoP1bL mcoP1L
gbrng mcoB1bR1R mcoP1bR mcoP1R
gbrng mcoB1aLR mcoP1aL mcoP1aR
gbrng mcoB1bLR mcoP1bL mcoP1bR
RANDOM mcoR1
RANDOM mcoR2
RANDOM mcoR3
RANDOM mcoR4
RANDOM mcoR5
RANDOM mcoR6
RANDOM mcoR7
RANDOM mcoR8
RANDOM mcoR9
RANDOM mcoR10
RANDOM mcoR11
RANDOM mcoR12
gp mcoPP1 ref mcoP1aR <mcoB1aR1R+((mcoR1-.5)*10),(mcow/10)+(mcow/10*mcoR4)
gp mcoPP2 ref mcoP1aR <mcoB1aLR-180,(mcow/10)+(mcow/10*mcoR5)
gp mcoPP3 ref mcoP1aL <mcoB1aLR,((mcow/10)+(mcow/10*mcoR6)
gp mcoPP4 ref mcoP1aL <mcoB1aL1L+((mcoR4-.5)*10),(mcow/10)+(mcow/10*mcoR7)
gp mcoPP5 ref mcoP1L <mcoB1aL1L-180+((mcoR5-.5)*10),(mcow/10)+(mcow/10*mcoR8)
gp mcoPP6 ref mcoP1L <mcoB1bL1L-180+((mcoR6-.5)*10),(mcow/10)+(mcow/10*mcoR9)
gp mcoPP7 ref mcoP1bL <mcoB1bL1L+((mcoR7-.5)*10),(mcow/10)+(mcow/10*mcoR10)
gp mcoPP8 ref mcoP1bL <mcoB1bLR,(mcow/10)+(mcow/10*mcoR11)
gp mcoPP9 ref mcoP1bR <mcoB1bLR-180,(mcow/10)+(mcow/10*mcoR12)
gp mcoPP10 ref mcoP1bR <mcoB1bR1R+((mcoR10-.5)*10),(mcow/10)+(mcow/10*mcoR1)
gp mcoPP11 ref mcoP1R <mcoB1bR1R-180+((mcoR11-.5)*10),(mcow/10)+(mcow/10*mcoR2)
gp mcoPP12 ref mcoP1R <mcoB1aR1R-180+((mcoR12-.5)*10),(mcow/10)+(mcow/10*mcoR3)
poly mcoPP1 mcoPP2 mcoPP3 mcoPP4 mcoPP5 mcoPP6 mcoPP7 mcoPP8 mcoPP9 mcoPP10 mcoPP11 mcoPP12;
RANDOM mcoRCOL
changec mcoCOut
changec2 mcoC1
ifn mcoRCOL-.3 mcoDONECOL1
changec2 mcoC2
ifn mcoRCOL-.6 mcoDONECOL1
changec2 mcoC3
:mcoDONECOL1
go mcoCONTROL3
:mcoCONTROL2
gp mcoP1b mcoP1
gv mcoFIRSTTIME 1
:mcoCONTROL3
gv mcoOffSet mcoaw
ifp mcoaw mcoCONTROL1
gv mcoOffSet mcoaw*(0-1)
:mcoCONTROL1
RANDOM mcoR1
gp mcoP1a ref mcoP2 <mcoB12-180,mcoOffSet+(mcoR1*mcow*2)
gp mcoP1aR ref mcoP1a <mcoB12-90,mcow/2
gp mcoP1aL ref mcoP1a <mcoB12+90,mcow/2
:mcoBlockLine1
gdist mcoD1b1a mcoP1b mcoP1a
gv mcoCur 0
gp mcoPBLS mcoP1b
:mcoStraightBlockLoop
RANDOM mcoR1
RANDOM mcoR2
RANDOM mcoR3
RANDOM mcoR4
RANDOM mcoR5
RANDOM mcoR6
RANDOM mcoR7
RANDOM mcoR8
RANDOM mcoR9
RANDOM mcoR10
RANDOM mcoR11
RANDOM mcoR12
gv mcoCur mcoCur+mcow+(mcoR1*2*mcow)
ifn mcoD1b1a-mcoCur-(1*mcow) mcoDONEBLOCKLOOP
gp mcoPBLE ref mcoP1b <mcoB12,mcoCur
gp mcoPBLSL ref mcoPBLS <mcoB12+90,mcow/2
gp mcoPBLSR ref mcoPBLS <mcoB12-90,mcow/2
gp mcoPBLEL ref mcoPBLE <mcoB12+90,mcow/2
gp mcoPBLER ref mcoPBLE <mcoB12-90,mcow/2
gp mcoPBL1 ref mcoPBLSL <mcoB12-90,(mcow/10)+(mcow/10*mcoR1)
gp mcoPBL2 ref mcoPBLSL <mcoB12+((mcoR2-.5)*40),(mcow/10)+(mcow/10*mcoR3)
gp mcoPBL3 ref mcoPBLEL <mcoB12+180+((mcoR4-.5)*40),(mcow/10)+(mcow/10*mcoR5)
gp mcoPBL4 ref mcoPBLEL <mcoB12-90,(mcow/10)+(mcow/10*mcoR6)
gp mcoPBL5 ref mcoPBLER <mcoB12+90,(mcow/10)+(mcow/10*mcoR7)
gp mcoPBL6 ref mcoPBLER <mcoB12+180+((mcoR8-.5)*40),(mcow/10)+(mcow/10*mcoR9)
gp mcoPBL7 ref mcoPBLSR <mcoB12+((mcoR10-.5)*40),(mcow/10)+(mcow/10*mcoR11)
gp mcoPBL8 ref mcoPBLSR <mcoB12+90,(mcow/10)+(mcow/10*mcoR12)
poly mcoPBL1 mcoPBL2 mcoPBL3 mcoPBL4 mcoPBL5 mcoPBL6 mcoPBL7 mcoPBL8;
RANDOM mcoRCOL
changec mcoCOut
changec2 mcoC1
ifn mcoRCOL-.3 mcoDONECOL2
changec2 mcoC2
ifn mcoRCOL-.6 mcoDONECOL2
changec2 mcoC3
:mcoDONECOL2
gp mcoPBLS mcoPBLE
go mcoStraightBlockLoop
:mcoDONEBLOCKLOOP
gp mcoPBLE mcoP1a
gp mcoPBLSL ref mcoPBLS <mcoB12+90,mcow/2
gp mcoPBLSR ref mcoPBLS <mcoB12-90,mcow/2
gp mcoPBLEL ref mcoPBLE <mcoB12+90,mcow/2
gp mcoPBLER ref mcoPBLE <mcoB12-90,mcow/2
gp mcoPBL1 ref mcoPBLSL <mcoB12-90,(mcow/10)+(mcow/10*mcoR1)
gp mcoPBL2 ref mcoPBLSL <mcoB12+((mcoR2-.5)*30),(mcow/10)+(mcow/10*mcoR3)
gp mcoPBL3 ref mcoPBLEL <mcoB12+180+((mcoR4-.5)*30),(mcow/10)+(mcow/10*mcoR5)
gp mcoPBL4 ref mcoPBLEL <mcoB12-90,(mcow/10)+(mcow/10*mcoR6)
gp mcoPBL5 ref mcoPBLER <mcoB12+90,(mcow/10)+(mcow/10*mcoR7)
gp mcoPBL6 ref mcoPBLER <mcoB12+180+((mcoR8-.5)*30),(mcow/10)+(mcow/10*mcoR9)
gp mcoPBL7 ref mcoPBLSR <mcoB12+((mcoR10-.5)*30),(mcow/10)+(mcow/10*mcoR11)
gp mcoPBL8 ref mcoPBLSR <mcoB12+90,(mcow/10)+(mcow/10*mcoR12)
poly mcoPBL1 mcoPBL2 mcoPBL3 mcoPBL4 mcoPBL5 mcoPBL6 mcoPBL7 mcoPBL8;
RANDOM mcoRCOL
changec mcoCOut
changec2 mcoC1
ifn mcoRCOL-.3 mcoDONECOL3
changec2 mcoC2
ifn mcoRCOL-.6 mcoDONECOL3
changec2 mcoC3
:mcoDONECOL3
gp mcoP1 mcoP2
gp mcoP2 mcoP3
gp mcoP1R mcoP2R
gp mcoP1L mcoP2L
goto mcoloop
:mcodone
gp mcoP2R ref mcoP2 <mcoB23-90,mcow/2
gp mcoP2L ref mcoP2 <mcoB23+90,mcow/2
ifz mcoFIRSTTIME mcoDONECOL4
RANDOM mcoR1
gp mcoP1b ref mcoP1 <mcoB12,mcoOffSet+(mcoR1*mcow*2)
gp mcoP1bR ref mcoP1b <mcoB12-90,mcow/2
gp mcoP1bL ref mcoP1b <mcoB12+90,mcow/2
gbrng mcoB1aL1L mcoP1aL mcoP1L
gbrng mcoB1aR1R mcoP1aR mcoP1R
gbrng mcoB1bL1L mcoP1bL mcoP1L
gbrng mcoB1bR1R mcoP1bR mcoP1R
gbrng mcoB1aLR mcoP1aL mcoP1aR
gbrng mcoB1bLR mcoP1bL mcoP1bR
RANDOM mcoR1
RANDOM mcoR2
RANDOM mcoR3
RANDOM mcoR4
RANDOM mcoR5
RANDOM mcoR6
RANDOM mcoR7
RANDOM mcoR8
RANDOM mcoR9
RANDOM mcoR10
RANDOM mcoR11
RANDOM mcoR12
gp mcoPP1 ref mcoP1aR <mcoB1aR1R+(mcoR1*10),(mcow/10)+(mcow/10*mcoR4)
gp mcoPP2 ref mcoP1aR <mcoB1aLR-180,(mcow/10)+(mcow/10*mcoR5)
gp mcoPP3 ref mcoP1aL <mcoB1aLR,(mcow/10)+(mcow/10*mcoR6)
gp mcoPP4 ref mcoP1aL <mcoB1aL1L+(mcoR4*10),(mcow/10)+(mcow/10*mcoR7)
gp mcoPP5 ref mcoP1L <mcoB1aL1L-180+(mcoR5*10),(mcow/10)+(mcow/10*mcoR8)
gp mcoPP6 ref mcoP1L <mcoB1bL1L-180+(mcoR6*10),(mcow/10)+(mcow/10*mcoR9)
gp mcoPP7 ref mcoP1bL <mcoB1bL1L+(mcoR7*10),(mcow/10)+(mcow/10*mcoR10)
gp mcoPP8 ref mcoP1bL <mcoB1bLR,(mcow/10)+(mcow/10*mcoR11)
gp mcoPP9 ref mcoP1bR <mcoB1bLR-180,(mcow/10)+(mcow/10*mcoR12)
gp mcoPP10 ref mcoP1bR <mcoB1bR1R+(mcoR10*10),(mcow/10)+(mcow/10*mcoR1)
gp mcoPP11 ref mcoP1R <mcoB1bR1R-180+(mcoR11*10),(mcow/10)+(mcow/10*mcoR2)
gp mcoPP12 ref mcoP1R <mcoB1aR1R-180+(mcoR12*10),(mcow/10)+(mcow/10*mcoR3)
poly mcoPP1 mcoPP2 mcoPP3 mcoPP4 mcoPP5 mcoPP6 mcoPP7 mcoPP8 mcoPP9 mcoPP10 mcoPP11 mcoPP12;
RANDOM mcoRCOL
changec mcoCOut
changec2 mcoC1
ifn mcoRCOL-.3 mcoDONECOL4
changec2 mcoC2
ifn mcoRCOL-.6 mcoDONECOL4
changec2 mcoC3
:mcoDONECOL4
ifp mcoFIRSTTIME mcoCONTROL9
gp mcoP1b mcoP1
:mcoCONTROL9
gp mcoP1a mcoP2
gbrng mcoB12 mcoP1b mcoP1a
gdist mcoD1b1a mcoP1b mcoP1a
gv mcoCur 0
gp mcoPBLS mcoP1b
:mcoStraightBlockLoop2
RANDOM mcoR1
RANDOM mcoR2
RANDOM mcoR3
RANDOM mcoR4
RANDOM mcoR5
RANDOM mcoR6
RANDOM mcoR7
RANDOM mcoR8
RANDOM mcoR9
RANDOM mcoR10
RANDOM mcoR11
RANDOM mcoR12
gv mcoCur mcoCur+mcow+(mcoR1*2*mcow)
ifn mcoD1b1a-mcoCur-1 mcoDONEBLOCKLOOP2
gp mcoPBLE ref mcoP1b <mcoB12,mcoCur
gp mcoPBLSL ref mcoPBLS <mcoB12+90,mcow/2
gp mcoPBLSR ref mcoPBLS <mcoB12-90,mcow/2
gp mcoPBLEL ref mcoPBLE <mcoB12+90,mcow/2
gp mcoPBLER ref mcoPBLE <mcoB12-90,mcow/2
gp mcoPBL1 ref mcoPBLSL <mcoB12-90,(mcow/10)+(mcow/10*mcoR1)
gp mcoPBL2 ref mcoPBLSL <mcoB12+((mcoR2-.5)*40),(mcow/10)+(mcow/10*mcoR3)
gp mcoPBL3 ref mcoPBLEL <mcoB12+180+((mcoR4-.5)*40),(mcow/10)+(mcow/10*mcoR5)
gp mcoPBL4 ref mcoPBLEL <mcoB12-90,(mcow/10)+(mcow/10*mcoR6)
gp mcoPBL5 ref mcoPBLER <mcoB12+90,(mcow/10)+(mcow/10*mcoR7)
gp mcoPBL6 ref mcoPBLER <mcoB12+180+((mcoR8-.5)*40),(mcow/10)+(mcow/10*mcoR9)
gp mcoPBL7 ref mcoPBLSR <mcoB12+((mcoR10-.5)*40),(mcow/10)+(mcow/10*mcoR11)
gp mcoPBL8 ref mcoPBLSR <mcoB12+90,(mcow/10)+(mcow/10*mcoR12)
poly mcoPBL1 mcoPBL2 mcoPBL3 mcoPBL4 mcoPBL5 mcoPBL6 mcoPBL7 mcoPBL8;
RANDOM mcoRCOL
changec mcoCOut
changec2 mcoC1
ifn mcoRCOL-.3 mcoDONECOL5
changec2 mcoC2
ifn mcoRCOL-.6 mcoDONECOL5
changec2 mcoC3
:mcoDONECOL5
gp mcoPBLS mcoPBLE
go mcoStraightBlockLoop2
:mcoDONEBLOCKLOOP2
gp mcoPBLE mcoP1a
gp mcoPBLSL ref mcoPBLS <mcoB12+90,mcow/2
gp mcoPBLSR ref mcoPBLS <mcoB12-90,mcow/2
gp mcoPBLEL ref mcoPBLE <mcoB12+90,mcow/2
gp mcoPBLER ref mcoPBLE <mcoB12-90,mcow/2
gp mcoPBL1 ref mcoPBLSL <mcoB12-90,(mcow/10)+(mcow/10*mcoR1)
gp mcoPBL2 ref mcoPBLSL <mcoB12+((mcoR2-.5)*30),(mcow/10)+(mcow/10*mcoR3)
gp mcoPBL3 ref mcoPBLEL <mcoB12+180+((mcoR4-.5)*30),(mcow/10)+(mcow/10*mcoR5)
gp mcoPBL4 ref mcoPBLEL <mcoB12-90,(mcow/10)+(mcow/10*mcoR6)
gp mcoPBL5 ref mcoPBLER <mcoB12+90,(mcow/10)+(mcow/10*mcoR7)
gp mcoPBL6 ref mcoPBLER <mcoB12+180+((mcoR8-.5)*30),(mcow/10)+(mcow/10*mcoR9)
gp mcoPBL7 ref mcoPBLSR <mcoB12+((mcoR10-.5)*30),(mcow/10)+(mcow/10*mcoR11)
gp mcoPBL8 ref mcoPBLSR <mcoB12+90,(mcow/10)+(mcow/10*mcoR12)
poly mcoPBL1 mcoPBL2 mcoPBL3 mcoPBL4 mcoPBL5 mcoPBL6 mcoPBL7 mcoPBL8;
RANDOM mcoRCOL
changec mcoCOut
changec2 mcoC1
ifn mcoRCOL-.3 mcoDONECOL6
changec2 mcoC2
ifn mcoRCOL-.6 mcoDONECOL6
changec2 mcoC3
:mcoDONECOL6
selbyl
changel MacroConstruction
like
10001,10001
selbyp
group
:mcoabort
selby1
keep 10001,10001
erase 10001,10001
selrest
econ