gl mcoCredits ---Macro design by Morgan Olden (C)2002---
ecoff
rdoff
point 10001,10001;
golayer MacroConstruction
scriptm #vars-Stairs.scr
ifdef mcoVarsOK mcoDoneVarCheck
:mcoDefineVars
gv mcoW 5
gv mcoSD 1
gv mcoStyle 1
gv mcoW ^DStaircase width? (5)
gv mcoSD ^DStep depth? (1)
gv mcoStyle ^DStyle? (1=Wood,default  2=Stone  3=Plain)
gv mcoCol1 39
gv mcoCol2 36
ifz mcoStyle-1 mcoDoneStyleSelect
gv mcoCol1 253
gv mcoCol2 248
ifz mcoStyle-2 mcoDoneStyleSelect
gv mcoCol1 15
gv mcoCol2 15
:mcoDoneStyleSelect
gw mcoVarsOK OK
savevars vars-Stairs
go mcoStart
:mcoDoneVarCheck
gv mcoUseDefault 1
gv mcoUseDefault ^DUse saved settings? (1=yes - default - click) (0=no)
ifz mcoUseDefault mcoDefineVars
:mcoStart
fstyle Solid;lwidth 0
gp mcoP1 ^DPoint:
iferr mcoAbort
gp mcoP1a mcoP1
DBLN mcoW mcoP1 ^DNext point:;
|gp mcoP2 @0,0
gdist mcoD12 mcoP1 mcoP2
ifz mcoD12 mcoAbort
selbyp;erase
GBRNG mcoB12 mcoP1 mcoP2
gp mcoP1R ref mcoP1 <mcoB12-90,mcoW/2
gp mcoP1L ref mcoP1 <mcoB12+90,mcoW/2
gp mcoP1aR mcoP1R
gp mcoP1aL mcoP1L
:mcoLoop
DBLN mcoW mcoP1a mcoP2 ^DNext point:;
|gp mcoP3 @0,0
selbyp;erase
gdist mcoD23 mcoP2 mcoP3
ifz mcoD23 mcoClose
selbyp;erase
GBRNG mcoB12 mcoP1 mcoP2
GBRNG mcoB23 mcoP2 mcoP3
gcos mcowcs 90-((mcoB12-mcoB23-180)/2)
gtan mcowtn 90-((mcoB12-mcoB23-180)/2)
gv mcoaw (mcoW/2)/mcowcs
gv mcoaw2 (mcoW/2)*mcowtn
gp mcoP2R ref mcoP2 <(mcoB12+mcoB23)/2+90,mcoaw
gp mcoP2L ref mcoP2 <(mcoB12+mcoB23)/2-90,mcoaw
gp mcoP2inner mcoP2L
gv mcoX -1
ifp mcoaw2 mcoControl1
gv mcoaw2 mcoaw2*-1
gp mcoP2inner mcoP2R
gv mcoX 1
:mcoControl1
gp mcoP2a ref mcoP2 <(mcoB12-180),mcoaw2
gp mcoP2aR ref mcoP2a <mcoB12-90,mcoW/2
gp mcoP2aL ref mcoP2a <mcoB12+90,mcoW/2
gp mcoP2b ref mcoP2 <(mcoB23),mcoaw2
gp mcoP2bR ref mcoP2b <mcoB23-90,mcoW/2
gp mcoP2bL ref mcoP2b <mcoB23+90,mcoW/2
gl rem ----------------------------Draw straight length entities
color mcoCol1
poly mcoP2aR mcoP1aR mcoP1aL mcoP2aL;
gdist mcoDP1aP2a mcoP1a mcoP2a
gn mcoSteps mcoDP1aP2a/mcoSD
ifp mcoSteps mcoDoneCalcSteps
gn mcoSteps 1
:mcoDoneCalcSteps
gv mcoCount 0
:mcoStepLoop
gv mcoCount mcoCount+1
gp mcoStepP ref mcoP1a <mcoB12,(mcoDP1aP2a/mcoSteps)*mcoCount
gp mcoStepPa ref mcoP1a <mcoB12,((mcoDP1aP2a/mcoSteps)*mcoCount)-((mcoDP1aP2a/mcoSteps)/4)
ifp mcoStyle-2 mcoSkipStepShadow
color mcoCol2
poly ref mcoStepP <mcoB12+90,mcoW/2
ref mcoStepPa <mcoB12+90,mcoW/2
ref mcoStepPa <mcoB12-90,mcoW/2
ref mcoStepP <mcoB12-90,mcoW/2;
:mcoSkipStepShadow
color 0
line ref mcoStepP <mcoB12+90,mcoW/2 ref mcoStepP <mcoB12-90,mcoW/2;
ifp mcoSteps-mcoCount mcoStepLoop
line mcoP2aR mcoP1aR mcoP1aL mcoP2aL;
gl rem ----------------------------Draw corner entities
gv mcoA1 mcoB12-mcoB23
ifp mcoA1 mcoSkipAngleAdjust1
gv mcoA1 mcoA1*-1
:mcoSkipAngleAdjust1
ifn mcoA1-180 mcoSkipAngleAdjust2
gv mcoA1 360-mcoA1
:mcoSkipAngleAdjust2
ifz mcoA1 mcoSkipCorner
gn mcoSteps ((3.1416*mcoW)/360*mcoA1)/mcoSD
ifp mcoSteps mcoDoneCalcSteps2
gv mcoSteps 1
:mcoDoneCalcSteps2
gv mcoCount 0
gp mcoSP1 ref mcoP2inner <mcoB12+(90*mcoX),mcoW
:mcoCornerLoop
gv mcoCount mcoCount+1
gp mcoSP2 ref mcoP2inner <mcoB12-(mcoA1/mcoSteps*mcoCount*mcoX)+(90*mcoX),mcoW
gdist mcoDSP12 mcoSP1 mcoSP2
gbrng mcoBSP12 mcoSP1 mcoSP2
color mcoCol1
poly mcoP2inner mcoSP1 mcoSP2;
ifp mcoStyle-2 mcoSkipCornerShadow
color mcoCol2
poly mcoP2inner ref mcoSP1 <mcoBSP12,mcoDSP12*.75 mcoSP2;
:mcoSkipCornerShadow
color 0
line mcoP2inner mcoSP1 mcoSP2;
gp mcoSP1 mcoSP2
ifp mcoSteps-mcoCount mcoCornerLoop
:mcoSkipCorner
gl rem ----------------------------Get ready for next segment
gp mcoP1 mcoP2
gp mcoP1R mcoP2R
gp mcoP1L mcoP2L
gp mcoP1aR mcoP2bR
gp mcoP1aL mcoP2bL
gp mcoP2 mcoP3
gp mcoP1a mcoP2b
go mcoLoop
:mcoClose
GBRNG mcoB12 mcoP1 mcoP2
gp mcoP2R ref mcoP2 <mcoB12-90,mcoW/2
gp mcoP2L ref mcoP2 <mcoB12+90,mcoW/2
gp mcoP2a mcoP2
gp mcoP2aR mcoP2R
gp mcoP2aL mcoP2L
gl rem ----------------------------Draw last straight length entities
color mcoCol1
poly mcoP2aR mcoP1aR mcoP1aL mcoP2aL;
gdist mcoDP1aP2a mcoP1a mcoP2a
gn mcoSteps mcoDP1aP2a/mcoSD
ifp mcoSteps mcoDoneCalcSteps3
gn mcoSteps 1
:mcoDoneCalcSteps3
gv mcoCount 0
:mcoStepLoop2
gv mcoCount mcoCount+1
gp mcoStepP ref mcoP1a <mcoB12,(mcoDP1aP2a/mcoSteps)*mcoCount
gp mcoStepPa ref mcoP1a <mcoB12,((mcoDP1aP2a/mcoSteps)*mcoCount)-((mcoDP1aP2a/mcoSteps)/4)
ifp mcoStyle-2 mcoSkipStepShadow2
color mcoCol2
poly ref mcoStepP <mcoB12+90,mcoW/2
ref mcoStepPa <mcoB12+90,mcoW/2
ref mcoStepPa <mcoB12-90,mcoW/2
ref mcoStepP <mcoB12-90,mcoW/2;
:mcoSkipStepShadow2
color 0
line ref mcoStepP <mcoB12+90,mcoW/2 ref mcoStepP <mcoB12-90,mcoW/2;
ifp mcoSteps-mcoCount mcoStepLoop2
line mcoP2aR mcoP1aR mcoP1aL mcoP2aL;
selby1
keep 10001,10001
selbyl
changel MacroConstruction
like
10001,10001
selbyp
group
:mcoabort
selby1
keep 10001,10001
erase 10001,10001
selrest
rdon
econ