ecoff
point 10001,10001;
golayer MacroConstruction
scriptm #System\Scripts\Cliff-Face1-Variables.scr
ifdef mcoVarsOK mcoDoneVarCheck
:mcoDefineVars
gv mcoCol1 250
gv mcoCol2 251
gv mcoCol3 252
gv mcoCOut 0
gcol mcoCol1 ^DColor 1: (250)
gcol mcoCol2 ^DColor 2: (251)
gcol mcoCol3 ^DColor 3: (252)
gcol mcoCOut ^DOutline color: (0)
gv mcoCW 3
gv mcoCW ^DCliff Width: (3)
gv mcoVA .5
gv mcoVA ^DWidth variance: (.5)
gv mcoSL 10
gv mcoSL ^DSegment length: (10)
gw mcoVarsOK OK
savevars #System\Scripts\Cliff-Face1-Variables.scr
go mcoStart
:mcoDoneVarCheck
gv mcoUseDefault 1
gv mcoUseDefault ^DUse saved settings? (1=yes - default - click) (0=no)
ifz mcoUseDefault mcoDefineVars
:mcoStart
ge mcoentity ^DSelect object to draw a cliff/cave wall along:
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