ecoff
gl mcoCredits ---Macro design by Morgan Olden (C)2001---
rdoff
point 10001,10001;
golayer MacroConstruction
scriptm #boardwalk-vars.scr
ifdef mcoVarsOK mcoDoneVarCheck
:mcoDefineVars
gv mcoavgwidth 1.5
gv mcogapwidth .2
gv mcoBWwidth 5
gv mcoAddWidth 1
gv mcoBcol 40
gv mcoRcol 36
gv mcoavgwidth ^DAverage board width (1.5):
gv mcogapwidth ^DGap between boards (.2):
gv mcoBWwidth ^DWidth of the boardwalk (5):
gv mcoAddWidth ^DBoardwalk edges: (smooth=0, jagged=1)
gv mcoBcol ^DColour of boards (40):
gv mcoRcol ^DColour of rails (36):
gw mcoVarsOK OK
savevars boardwalk-vars
go mcoStart
:mcoDoneVarCheck
gv mcoUseDefault 1
gv mcoUseDefault ^DUse saved settings? (1=yes - default - click) (0=no)
ifz mcoUseDefault mcoDefineVars
:mcoStart
lwidth 0.5;lstyle solid;fstyle solid;color 0
ge mcoentity ^DSelect object to draw a boardwalk along:
iferr mcodone
selbyp
gdist mcoentitylen % 0 mcoentity % 1 mcoentity
gv mcoentitylen mcoentitylen*100
gv mcounit 100/mcoentitylen
gv mcoD1Cur 0
gp mcoP1 % 0 mcoentity
gv mcoC 0
path
:mcoCentreRailLoop
% mcoC*mcounit mcoentity
gv mcoC mcoC+mcoavgwidth
ifn mcoC-mcoentitylen mcoCentreRailLoop
% 100 mcoentity;
changec2 mcoRcol
gv mcoC 0
path
:mcoLeftRailLoop
gp mcoTP % mcoC*mcounit mcoentity
gbrng mcoTB mcoTP % (mcoC*mcounit)+.1 mcoentity
ref mcoTP <mcoTB+90,(mcoBWwidth/2)-1
gv mcoC mcoC+mcoavgwidth
ifn mcoC-mcoentitylen mcoLeftRailLoop
gbrng mcoTB % 99.9 mcoentity % 100 mcoentity
ref % 100 mcoentity <mcoTB+90,(mcoBWwidth/2)-1;
changec2 mcoRcol
gv mcoC 0
path
:mcoRightRailLoop
gp mcoTP % mcoC*mcounit mcoentity
gbrng mcoTB mcoTP % (mcoC*mcounit)+.1 mcoentity
ref mcoTP <mcoTB-90,(mcoBWwidth/2)-1
gv mcoC mcoC+mcoavgwidth
ifn mcoC-mcoentitylen mcoRightRailLoop
gbrng mcoTB % 99.9 mcoentity % 100 mcoentity
ref % 100 mcoentity <mcoTB-90,(mcoBWwidth/2)-1;
changec2 mcoRcol
gbrng mcosegbrng mcoP1 % .01 mcoentity
gp mcoL1 ref mcoP1 <mcosegbrng+90,mcoBWwidth/2
gp mcoR1 ref mcoP1 <mcosegbrng-90,mcoBWwidth/2
lwidth 0
:mcoloop
RANDOM mcorand1
RANDOM mcorand2
RANDOM mcorand3
gv mcorand1 (mcorand1-.5)*.4
gv mcoAddWidthL mcoAddWidth*(mcorand2-.5)*.5
gv mcoAddWidthR mcoAddWidth*(mcorand3-.5)*.5
gv mcopostwidth mcoavgwidth+(mcoavgwidth*mcorand1)
gp mcoP1 % (mcoD1Cur+(mcopostwidth))*mcounit mcoentity
gbrng mcosegbrng mcoP1 % (mcoD1Cur+(mcopostwidth))*mcounit+.01 mcoentity
gp mcoL2 ref mcoP1 <mcosegbrng+90,(mcoBWwidth/2)
gp mcoR2 ref mcoP1 <mcosegbrng-90,(mcoBWwidth/2)
gbrng mcoBL12 mcoL1 mcoL2
gbrng mcoBR12 mcoR1 mcoR2
gdist mcoDL12 mcoL1 mcoL2
gdist mcoDR12 mcoR1 mcoR2
gv mcoDL12 mcoDL12-mcogapwidth
gv mcoDR12 mcoDR12-mcogapwidth
ifn mcoDL12 mcocontrol1
ifn mcoDR12 mcocontrol2
go mcocontrol3
:mcocontrol1
gv mcoDL12 0
go mcocontrol3
:mcocontrol2
gv mcoDR12 0
:mcocontrol3
gp mcoL1a ref mcoL1 <mcosegbrng+90,mcoAddWidthL
gp mcoR1a ref mcoR1 <mcosegbrng-90,mcoAddWidthR
poly mcoL1a ref mcoL1a <mcoBL12,mcoDL12 ref mcoR1a <mcoBR12,mcoDR12 mcoR1a;
changec2 mcoBcol
gp mcoL1 mcoL2;gp mcoR1 mcoR2
gv mcoD1Cur mcoD1Cur+mcopostwidth
ifp mcoD1Cur-mcoentitylen+(1.3*mcoavgwidth) mcodoneloop
go mcoloop
:mcodoneloop
gp mcoP2 % 100 mcoentity
gbrng mcosegbrng % 99 mcoentity mcoP2
gp mcoL2 ref mcoP2 <mcosegbrng+90,(mcoBWwidth/2)
gp mcoR2 ref mcoP2 <mcosegbrng-90,(mcoBWwidth/2)
poly mcoL1 mcoL2 mcoR2 mcoR1;
changec2 mcoBcol
:mcodone
selbyl
changel MacroConstruction
like
10001,10001
selbyp
group
:mcoabort
selby1
keep 10001,10001
erase 10001,10001
selrest
rdon
econ