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
ge mcoEntity ^D Выберите объект для преобразования
iferr mcoDONE
glen mcoTotLen mcoEntity
gv mcoUnit 100/mcoTotLen
gp mcoP1 % 0 mcoEntity
gbrng mcoB1 mcoP1 % .01 mcoEntity
gv mcoCur 0
:mcoStraightBlockLoop
RANDOM mcoRLen
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+(mcoRLen*2*mcow)
ifn mcoTotLen-mcoCur-(1*mcow) mcoDONEBLOCKLOOP
gp mcoP2 % mcoCur*mcoUnit mcoEntity
gbrng mcoB2 mcoP2 % (mcoCur*mcoUnit)+.01 mcoEntity
gbrng mcoB12 mcoP1 mcoP2
gp mcoP1L ref mcoP1 <mcoB1+90,mcow/2
gp mcoP1R ref mcoP1 <mcoB1-90,mcow/2
gp mcoP2L ref mcoP2 <mcoB2+90,mcow/2
gp mcoP2R ref mcoP2 <mcoB2-90,mcow/2
gp mcoPBL1 ref mcoP1L <mcoB1-90,(mcow/10)+(mcow/10*mcoR1)
gp mcoPBL2 ref mcoP1L <mcoB12+((mcoR2-.5)*40),(mcow/10)+(mcow/10*mcoR3)
gp mcoPBL3 ref mcoP2L <mcoB12+180+((mcoR4-.5)*40),(mcow/10)+(mcow/10*mcoR5)
gp mcoPBL4 ref mcoP2L <mcoB2-90,(mcow/10)+(mcow/10*mcoR6)
gp mcoPBL5 ref mcoP2R <mcoB2+90,(mcow/10)+(mcow/10*mcoR7)
gp mcoPBL6 ref mcoP2R <mcoB12+180+((mcoR8-.5)*40),(mcow/10)+(mcow/10*mcoR9)
gp mcoPBL7 ref mcoP1R <mcoB12+((mcoR10-.5)*40),(mcow/10)+(mcow/10*mcoR11)
gp mcoPBL8 ref mcoP1R <mcoB1+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 mcoP1 mcoP2
gv mcoB1 mcoB2
go mcoStraightBlockLoop
:mcoDONEBLOCKLOOP
gp mcoP2 % 100 mcoEntity
gbrng mcoB2 % 99.99 mcoEntity mcoP2
gbrng mcoB12 mcoP1 mcoP2
gp mcoP1L ref mcoP1 <mcoB1+90,mcow/2
gp mcoP1R ref mcoP1 <mcoB1-90,mcow/2
gp mcoP2L ref mcoP2 <mcoB2+90,mcow/2
gp mcoP2R ref mcoP2 <mcoB2-90,mcow/2
gp mcoPBL1 ref mcoP1L <mcoB1-90,(mcow/10)+(mcow/10*mcoR1)
gp mcoPBL2 ref mcoP1L <mcoB12+((mcoR2-.5)*40),(mcow/10)+(mcow/10*mcoR3)
gp mcoPBL3 ref mcoP2L <mcoB12+180+((mcoR4-.5)*40),(mcow/10)+(mcow/10*mcoR5)
gp mcoPBL4 ref mcoP2L <mcoB2-90,(mcow/10)+(mcow/10*mcoR6)
gp mcoPBL5 ref mcoP2R <mcoB2+90,(mcow/10)+(mcow/10*mcoR7)
gp mcoPBL6 ref mcoP2R <mcoB12+180+((mcoR8-.5)*40),(mcow/10)+(mcow/10*mcoR9)
gp mcoPBL7 ref mcoP1R <mcoB12+((mcoR10-.5)*40),(mcow/10)+(mcow/10*mcoR11)
gp mcoPBL8 ref mcoP1R <mcoB1+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