ecoff
rdoff
point 10001,10001;
golayer MacroConstruction
scriptm #citywall5-vars.scr
ifdef mcoCityWall5VarsOK mcoDoneVarCheck
:mcoDefineVars
gv mcoWW 10
gv mcoRCren 1
gv mcoLCren 1
gv mcoColDS 14
gv mcoColLS 251
gcol mcoColDS ^D Цвет темного камня (14)
gcol mcoColLS ^D Цвет светлого камня (251)
gv mcoWW ^D Толщина стены (10)
gv mcoRCren ^D По правой стороне (1=да, 0=нет)
gv mcoLCren ^D По левой стороне (1=да, 0=нет)
gw mcoCityWall5VarsOK OK
savevars citywall5-vars
go mcoStart
:mcoDoneVarCheck
gv mcoUseDefault 1
gv mcoUseDefault ^D Использовать сохраненные настройки (1=да - по умолчанию - клик, 0=нет)
ifz mcoUseDefault mcoDefineVars
:mcoStart
gv mcoBLeg 0
gv mcoFirstTime 0
color 0
lwidth 0
lstyle solid
fstyle solid
selbyp
gp mcoP1 ^D Первая точка:
iferr mcoabort
gp mcoP2 ^D Вторая точка:
line mcoP1 mcoP2;
gdist mcoD12 mcoP1 mcoP2
ifz mcoD12 mcoabort
GBRNG mcoB12 mcoP1 mcoP2
gp mcoP1R ref mcoP1 <mcoB12-90,mcoWW/2
gp mcoP1L ref mcoP1 <mcoB12+90,mcoWW/2
gp mcoP1Rint ref mcoP1 <mcoB12-90,(mcoWW/2)-1.5
gp mcoP1Lint ref mcoP1 <mcoB12+90,(mcoWW/2)-1.5
gp mcoP1RC ref mcoP1 <mcoB12-90,(mcoWW/2)-.25
gp mcoP1LC ref mcoP1 <mcoB12+90,(mcoWW/2)-.25
gp mcoP3 mcoP2
gp mcoP3 ^D Следующая точка:
line mcoP2 mcoP3;
gdist mcoD23 mcoP2 mcoP3
ifz mcoD23 mcoControl1
gp mcoPsl mcoP1L
gp mcoPsr mcoP1R
:mcoloop
GBRNG mcoB12 mcoP1 mcoP2
GBRNG mcoB23 mcoP2 mcoP3
gcos mcowcs 90-((mcoB12-mcoB23-180)/2)
gv mcoaw 1/mcowcs*(mcoWW/2)
gv mcoawint 1/mcowcs*((mcoWW/2)-1.5)
gv mcoawCren 1/mcowcs*((mcoWW/2)-.25)
gp mcoP2R ref mcoP2 <(mcoB12+mcoB23)/2+90,mcoaw
gp mcoP2L ref mcoP2 <(mcoB12+mcoB23)/2-90,mcoaw
gp mcoP2Rint ref mcoP2 <(mcoB12+mcoB23)/2+90,mcoawint
gp mcoP2Lint ref mcoP2 <(mcoB12+mcoB23)/2-90,mcoawint
gp mcoP2RC ref mcoP2 <(mcoB12+mcoB23)/2+90,mcoawCren
gp mcoP2LC ref mcoP2 <(mcoB12+mcoB23)/2-90,mcoawCren
poly mcoP1L mcoP2L mcoP2R mcoP1R;
changec mcoColLS
line mcoP1L mcoP2L;
line mcoP1R mcoP2R;
ifz mcoRCren mcoDoneCrenLoop1
poly mcoP1R mcoP2R mcoP2Rint mcoP1Rint;
changec2 mcoColDS
lwidth 2.5
gdist mcoD12RC mcoP1RC mcoP2RC
ifz mcoD12RC-7.5 mcoDoneCrenLoop1
gn mcoLoopCount (mcoD12RC-12.5)/7.5
path ref mcoP1RC <mcoBLeg-180,5*mcoFirstTime mcoP1RC ref mcoP1RC <mcoB12,5;
changec2 mcoColDS
ifz mcoLoopCount mcoDoneCrenLoop1
ifn mcoLoopCount mcoDoneCrenLoop1
gv mcoCrenDist (mcoD12RC-12.5)/mcoLoopCount
gv mcoCurLen 7.5
:mcoCrenLoop1
line ref mcoP1RC <mcoB12,mcoCurLen ref mcoP1RC <mcoB12,(mcoCurLen+mcoCrenDist-2.5);
changec2 mcoColDS
gv mcoCurLen mcoCurLen+mcoCrenDist
gv mcoLoopCount mcoLoopCount-1
ifp mcoLoopCount mcoCrenLoop1
:mcoDoneCrenLoop1
ifz mcoLCren mcoDoneCrenLoop2
lwidth 0
poly mcoP1L mcoP2L mcoP2Lint mcoP1Lint;
changec2 mcoColDS
lwidth 2.5
gdist mcoD12LC mcoP1LC mcoP2LC
ifz mcoD12LC-7.5 mcoDoneCrenLoop2
gn mcoLoopCount (mcoD12LC-12.5)/7.5
path ref mcoP1LC <mcoBLeg-180,5*mcoFirstTime mcoP1LC ref mcoP1LC <mcoB12,5;
changec2 mcoColDS
ifz mcoLoopCount mcoDoneCrenLoop2
ifn mcoLoopCount mcoDoneCrenLoop2
gv mcoCrenDist (mcoD12LC-12.5)/mcoLoopCount
gv mcoCurLen 7.5
:mcoCrenLoop2
line ref mcoP1LC <mcoB12,mcoCurLen ref mcoP1LC <mcoB12,(mcoCurLen+mcoCrenDist-2.5);
changec2 mcoColDS
gv mcoCurLen mcoCurLen+mcoCrenDist
gv mcoLoopCount mcoLoopCount-1
ifp mcoLoopCount mcoCrenLoop2
:mcoDoneCrenLoop2
lwidth 0
gp mcoP4 mcoP3
gp mcoP4 ^D Следующая точка
line mcoP3 mcoP4;
gdist mcoD34 mcoP3 mcoP4
ifz mcoD34 mcodone
gp mcoP1 mcoP2
gp mcoP2 mcoP3
gp mcoP3 mcoP4
gp mcoP1L mcoP2L
gp mcoP1R mcoP2R
gp mcoP1Lint mcoP2Lint
gp mcoP1Rint mcoP2Rint
gp mcoP1RC mcoP2RC
gp mcoP1LC mcoP2LC
gv mcoBLeg mcoB12
gv mcoFirstTime 1
goto mcoloop
:mcoDone
gv mcoFT1 1
go mcoControl2
:mcoControl1
gp mcoP2 mcoP1
gp mcoP2L mcoP1L
gp mcoP2R mcoP1R
gp mcoP2RC mcoP1RC
gp mcoP2LC mcoP1LC
gp mcoP2Lint mcoP1Lint
gp mcoP2Rint mcoP1Rint
gbrng mcoB23 mcoP2 mcoP3
gv mcoFT1 0
:mcoControl2
gp mcoP3R ref mcoP3 <mcoB23-90,mcoWW/2
gp mcoP3L ref mcoP3 <mcoB23+90,mcoWW/2
gp mcoP3Rint ref mcoP3 <mcoB23-90,(mcoWW/2)-1.5
gp mcoP3Lint ref mcoP3 <mcoB23+90,(mcoWW/2)-1.5
gp mcoP3RC ref mcoP3 <mcoB23-90,(mcoWW/2)-.25
gp mcoP3LC ref mcoP3 <mcoB23+90,(mcoWW/2)-.25
poly mcoP2L mcoP3L mcoP3R mcoP2R;
changec mcoColLS
line mcoP2L mcoP3L;
line mcoP2R mcoP3R;
ifz mcoRCren mcoDoneCrenLoop3
poly mcoP2R mcoP3R mcoP3Rint mcoP2Rint;
changec2 mcoColDS
lwidth 2.5
gdist mcoD23RC mcoP2RC mcoP3RC
ifz mcoD23RC-7.5 mcoDoneCrenLoop3
gn mcoLoopCount (mcoD23RC-12.5)/7.5
path ref mcoP2RC <mcoB12-180,5*mcoFT1 mcoP2RC ref mcoP2RC <mcoB23,5;
changec2 mcoColDS
ifz mcoLoopCount mcoCrenEndcap1
ifn mcoLoopCount mcoCrenEndcap1
gv mcoCrenDist (mcoD23RC-12.5)/mcoLoopCount
gv mcoCurLen 7.5
:mcoCrenLoop3
line ref mcoP2RC <mcoB23,mcoCurLen ref mcoP2RC <mcoB23,(mcoCurLen+mcoCrenDist-2.5);
changec2 mcoColDS
gv mcoCurLen mcoCurLen+mcoCrenDist
gv mcoLoopCount mcoLoopCount-1
ifp mcoLoopCount mcoCrenLoop3
:mcoCrenEndcap1
line mcoP3RC ref mcoP3RC <mcoB23-180,5;
changec2 mcoColDS
:mcoDoneCrenLoop3
ifz mcoLCren mcoDoneCrenLoop4
lwidth 0
poly mcoP2L mcoP3L mcoP3Lint mcoP2Lint;
changec2 mcoColDS
lwidth 2.5
gdist mcoD23LC mcoP2LC mcoP3LC
ifz mcoD23LC-7.5 mcoDoneCrenLoop4
gn mcoLoopCount (mcoD23LC-12.5)/7.5
path ref mcoP2LC <mcoB12-180,5*mcoFT1 mcoP2LC ref mcoP2LC <mcoB23,5;
changec2 mcoColDS
ifz mcoLoopCount mcoCrenEndcap2
ifn mcoLoopCount mcoCrenEndcap2
gv mcoCrenDist (mcoD23LC-12.5)/mcoLoopCount
gv mcoCurLen 7.5
:mcoCrenLoop4
line ref mcoP2LC <mcoB23,mcoCurLen ref mcoP2LC <mcoB23,(mcoCurLen+mcoCrenDist-2.5);
changec2 mcoColDS
gv mcoCurLen mcoCurLen+mcoCrenDist
gv mcoLoopCount mcoLoopCount-1
ifp mcoLoopCount mcoCrenLoop4
:mcoCrenEndcap2
line mcoP3LC ref mcoP3LC <mcoB23-180,5;
changec2 mcoColDS
:mcoDoneCrenLoop4
lwidth 0
selbyl
changel MacroConstruction
like
10001,10001
selbyp
group
:mcoabort
selby1
keep 10001,10001
erase 10001,10001
selrest
rdon
econ