ecoff
point 10001,10001;
golayer MacroConstruction
scriptm #cliffface-variables.scr
ifdef mcoVarsOK mcoDoneVarCheck
:mcoDefineVars
gv mcoCol1 250
gv mcoCol2 251
gv mcoCol3 252
gv mcoCOut 0
gcol mcoCol1 ^D Первый цвет: (250)
gcol mcoCol2 ^D Второй цвет: (251)
gcol mcoCol3 ^D Третий цвет: (252)
gcol mcoCOut ^D Цвет контура: (0)
gv mcoCW 3
gv mcoCW ^D Ширина скалы: (3)
gv mcoVA .5
gv mcoVA ^D Варианты ширины: (.5)
gv mcoSL 10
gv mcoSL ^D Длинна сегмента: (10)
gw mcoVarsOK OK
savevars #cliffface-variables
go mcoStart
:mcoDoneVarCheck
gv mcoUseDefault 1
gv mcoUseDefault ^D Использовать сохраненные настройки? (1=да - по умолчанию - клик, 0=нет)
ifz mcoUseDefault mcoDefineVars
:mcoStart
ge mcoentity ^DВыберите объект по которому пойдет стена пещеры:
iferr mcodone
gdist mcoentitylen % 0 mcoentity % 1 mcoentity
gv mcoentitylen mcoentitylen*100
gv mcounit 100/mcoentitylen
gv mcoCur 0
gp mcoP1 % 0 mcoentity
gbrng mcoB1 mcoP1 % .01 mcoentity
RANDOM mcoR1
RANDOM mcoR2
gp mcoPa ref mcoP1 <mcoB1+90,((mcoR1-.5)*(mcoCW*mcoVA))+mcoCW
gp mcoPa2 mcoPa
gp mcoPb ref mcoP1 <mcoB1-90,((mcoR2-.5)*(mcoCW*mcoVA))+mcoCW
gp mcoPb2 mcoPb
color 0
lwidth 0
fstyle solid
selbyp
:mcoLOOP1
RANDOM mcoR1
RANDOM mcoR2
RANDOM mcoR3
RANDOM mcoR4
RANDOM mcoR5
gv mcoCur mcoCur+(((mcoR1*mcoSL)+(mcoSL*.3))*mcoUnit)
ifn 100-mcoCur mcoDONELOOP1
gbrng mcoB1 mcoP1 % mcoCur+.01 mcoentity
gp mcoP1 % mcoCur mcoentity
gp mcoP2 ref mcoP1 <mcoB1-180,(mcoR2*3)
ifn mcoR3-.5 mcoControl1
gp mcoP2 % mcoCur mcoentity
gp mcoP1 ref mcoP2 <mcoB1-180,(mcoR2*3)
:mcoControl1
gp mcoPc ref mcoP1 <mcoB1-90,((mcoR4-.5)*(mcoCW*mcoVA))+mcoCW
gp mcoPd ref mcoP2 <mcoB1+90,((mcoR5-.5)*(mcoCW*mcoVA))+mcoCW
poly mcoPa mcoPb mcoPc mcoPd;
RANDOM mcoR1
changec2 mcoCol1
ifn mcoR1-.3 mcoColBreak1
changec2 mcoCol2
ifn mcoR1-.6 mcoColBreak1
changec2 mcoCol3
:mcoColBreak1
gw mcoNUL nul
:mcoBreak1
RANDOM mcoRTEST
ifn mcoRTEST-.8 mcoBreak2
gbrng mcoBbc mcoPb mcoPc
gdist mcoDbc mcoPb mcoPc
gbrng mcoBba mcoPb mcoPa
gdist mcoDba mcoPb mcoPa
RANDOM mcoR1
RANDOM mcoR2
poly ref mcoPb <mcoBba,(mcoDba*mcoR1*.5)+(mcoDba*.3) mcoPb2 mcoPb ref mcoPb <mcoBbc,((mcoDbc*mcoR2*.3)+(mcoDbc*.1))*(mcoCW/10);
RANDOM mcoR1
changec2 mcoCol1
ifn mcoR1-.3 mcoColBreak2
changec2 mcoCol2
ifn mcoR1-.6 mcoColBreak2
changec2 mcoCol3
:mcoColBreak2
go mcoBreak3
:mcoBreak2
ifn mcoRTEST-.6 mcoBreak3
gbrng mcoBad mcoPa mcoPd
gdist mcoDad mcoPa mcoPd
gbrng mcoBab mcoPa mcoPb
gdist mcoDab mcoPa mcoPb
RANDOM mcoR1
RANDOM mcoR2
poly ref mcoPa <mcoBab,(mcoDab*mcoR1*.5)+(mcoDab*.3) mcoPa2 mcoPa ref mcoPa <mcoBad,((mcoDad*mcoR2*.3)+(mcoDad*.1))*(mcoCW/10);
RANDOM mcoR1
changec2 mcoCol1
ifn mcoR1-.3 mcoBreak3
changec2 mcoCol2
ifn mcoR1-.6 mcoBreak3
changec2 mcoCol3
:mcoBreak3
gbrng mcoBda mcoPd mcoPa
gdist mcoDda mcoPd mcoPa
gbrng mcoBcb mcoPc mcoPb
gdist mcoDcb mcoPc mcoPb
RANDOM mcoR1
gp mcoPa2 ref mcoPd <mcoBda,((mcoDda*mcoR1*.3)+(mcoDda*.1))*(mcoCW/10)
gp mcoPb2 ref mcoPc <mcoBcb,((mcoDcb*mcoR1*.3)+(mcoDcb*.1))*(mcoCW/10)
gp mcoPa mcoPd
gp mcoPb mcoPc
go mcoLOOP1
:mcoDONELOOP1
gp mcoP1 % 100 mcoentity
gp mcoPc ref mcoP1 <mcoB1-90,((mcoR4-.5)*(mcoCW*mcoVA))+mcoCW
gp mcoPd ref mcoP1 <mcoB1+90,((mcoR5-.5)*(mcoCW*mcoVA))+mcoCW
poly mcoPa mcoPb mcoPc mcoPd;
RANDOM mcoR1
changec2 mcoCol1
ifn mcoR1-.3 mcodone
changec2 mcoCol2
ifn mcoR1-.6 mcodone
changec2 mcoCol3
:mcodone
selbyl
changel MacroConstruction
like
10001,10001
selbyp
group
selby1
keep 10001,10001
erase 10001,10001
selrest
rdon
econ