ecoff
rdoff
point 10001,10001;
golayer MacroConstruction
:mcoStart
gv mcoBLeg 0
gv mcoFirstTime 0
gv mcoColDS 14
gv mcoColLS 251
gcol mcoColDS ^D Цвет темного камня (14)
gcol mcoColLS ^D Цвет светлого камня (251)
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 mcoP1L ref mcoP1 <mcoB12+90,1.5
gp mcoP1LC ref mcoP1 <mcoB12+90,1.25
gp mcoFirstPoint mcoP1
gp mcoFirstPointL mcoP1L
gp mcoFirstPointLC mcoP1LC
gv mcoFirstBrng mcoB12
gp mcoP3 mcoP2
gp mcoP3 ^D Следующая точка:
line mcoP2 mcoP3;
gdist mcoD23 mcoP2 mcoP3
ifz mcoD23 mco2PointCrenelation
:mcoloop
GBRNG mcoB12 mcoP1 mcoP2
GBRNG mcoB23 mcoP2 mcoP3
gcos mcowcs 90-((mcoB12-mcoB23-180)/2)
gv mcoaw 1/mcowcs*(1.5)
gv mcoawCren 1/mcowcs*(1.25)
gp mcoP2L ref mcoP2 <(mcoB12+mcoB23)/2-90,mcoaw
gp mcoP2LC ref mcoP2 <(mcoB12+mcoB23)/2-90,mcoawCren
lwidth 0
poly mcoP1L mcoP2L mcoP2 mcoP1;
changec2 mcoColDS
lwidth 2.5
gdist mcoD12LC mcoP1LC mcoP2LC
ifz mcoD12LC-7.5 mcoDoneCrenLoop
gn mcoLoopCount (mcoD12LC-11.25)/7.5
ifz mcoFirstTime mcoControl1
gn mcoLoopCount (mcoD12LC-12.5)/7.5
path ref mcoP1LC <mcoBLeg-180,5 mcoP1LC ref mcoP1LC <mcoB12,5;
:mcoControl1
changec2 mcoColDS
ifz mcoLoopCount mcoDoneCrenLoop
ifn mcoLoopCount mcoDoneCrenLoop
gv mcoCrenDist (mcoD12LC-11.25)/mcoLoopCount
gv mcoCurLen 6.25
ifz mcoFirstTime mcoCrenLoop
gv mcoCrenDist (mcoD12LC-12.5)/mcoLoopCount
gv mcoCurLen 7.5
:mcoCrenLoop
line ref mcoP1LC <mcoB12,mcoCurLen ref mcoP1LC <mcoB12,(mcoCurLen+mcoCrenDist-2.5);
changec2 mcoColDS
gv mcoCurLen mcoCurLen+mcoCrenDist
gv mcoLoopCount mcoLoopCount-1
ifp mcoLoopCount mcoCrenLoop
:mcoDoneCrenLoop
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 mcoP2L mcoP3L
gp mcoP1LC mcoP2LC
gp mcoP2LC mcoP3LC
gv mcoBLeg mcoB12
gv mcoFirstTime 1
goto mcoloop
:mcoDone
askbox
Closed Loop
Do you want to create a
closed crenelation loop?

iferr mcoEndCrenelation
gp mcoP1 mcoP2
gp mcoP2 mcoP3
gp mcoP3 mcoFirstPoint
gp mcoP1L mcoP2L
gp mcoP2L mcoP3L
gp mcoP1LC mcoP2LC
gp mcoP2LC mcoP3LC
gv mcoBLeg mcoB12
GBRNG mcoB12 mcoP1 mcoP2
GBRNG mcoB23 mcoP2 mcoP3
gcos mcowcs 90-((mcoB12-mcoB23-180)/2)
gv mcoaw 1/mcowcs*(1.5)
gv mcoawCren 1/mcowcs*(1.25)
gp mcoP2L ref mcoP2 <(mcoB12+mcoB23)/2-90,mcoaw
gp mcoP2LC ref mcoP2 <(mcoB12+mcoB23)/2-90,mcoawCren
lwidth 0
poly mcoP1L mcoP2L mcoP2 mcoP1;
changec2 mcoColDS
lwidth 2.5
gdist mcoD12LC mcoP1LC mcoP2LC
ifz mcoD12LC-7.5 mcoDoneCrenLoop3
gn mcoLoopCount (mcoD12LC-12.5)/7.5
path ref mcoP1LC <mcoBLeg-180,5 mcoP1LC ref mcoP1LC <mcoB12,5;
changec2 mcoColDS
ifz mcoLoopCount mcoDoneCrenLoop3
ifn mcoLoopCount mcoDoneCrenLoop3
gv mcoCrenDist (mcoD12LC-12.5)/mcoLoopCount
gv mcoCurLen 7.5
:mcoCrenLoop3
line ref mcoP1LC <mcoB12,mcoCurLen ref mcoP1LC <mcoB12,(mcoCurLen+mcoCrenDist-2.5);
changec2 mcoColDS
gv mcoCurLen mcoCurLen+mcoCrenDist
gv mcoLoopCount mcoLoopCount-1
ifp mcoLoopCount mcoCrenLoop3
:mcoDoneCrenLoop3
gp mcoP1 mcoP2
gp mcoP2 mcoP3
gp mcoP3 mcoP4
gp mcoP1L mcoP2L
gp mcoP2L mcoP3L
gp mcoP1LC mcoP2LC
gp mcoP2LC mcoP3LC
gv mcoBLeg mcoB12
GBRNG mcoB12 mcoP1 mcoP2
GBRNG mcoB23 mcoFirstBrng
gcos mcowcs 90-((mcoB12-mcoB23-180)/2)
gv mcoaw 1/mcowcs*(1.5)
gv mcoawCren 1/mcowcs*(1.25)
gp mcoP2L ref mcoP2 <(mcoB12+mcoB23)/2-90,mcoaw
gp mcoP2LC ref mcoP2 <(mcoB12+mcoB23)/2-90,mcoawCren
lwidth 0
poly mcoP1L mcoP2L mcoP2 mcoP1;
changec2 mcoColDS
lwidth 2.5
gdist mcoD12LC mcoP1LC mcoP2LC
ifz mcoD12LC-7.5 mcoDoneCrenLoop4
gn mcoLoopCount (mcoD12LC-12.5)/7.5
path ref mcoP1LC <mcoBLeg-180,5 mcoP1LC ref mcoP1LC <mcoB12,5;
changec2 mcoColDS
ifz mcoLoopCount mcoDoneCrenLoop4
ifn mcoLoopCount mcoDoneCrenLoop4
gv mcoCrenDist (mcoD12LC-12.5)/mcoLoopCount
gv mcoCurLen 7.5
:mcoCrenLoop4
line ref mcoP1LC <mcoB12,mcoCurLen ref mcoP1LC <mcoB12,(mcoCurLen+mcoCrenDist-2.5);
changec2 mcoColDS
gv mcoCurLen mcoCurLen+mcoCrenDist
gv mcoLoopCount mcoLoopCount-1
ifp mcoLoopCount mcoCrenLoop4
:mcoDoneCrenLoop4
lwidth 2.5
path ref mcoP2LC <mcoB12-180,5 mcoP2LC ref mcoP2LC <mcoB23,5;
changec2 mcoColDS
go mcoDoneCrenLoop2
:mcoEndCrenelation
gp mcoP3L ref mcoP3 <mcoB23+90,1.5
gp mcoP3LC ref mcoP3 <mcoB23+90,1.25
poly mcoP2L mcoP3L mcoP3 mcoP2;
changec2 mcoColDS
lwidth 2.5
gdist mcoD23LC mcoP2LC mcoP3LC
ifz mcoD23LC-7.5 mcoDoneCrenLoop2
gn mcoLoopCount (mcoD23LC-11.25)/7.5
path ref mcoP2LC <mcoB12-180,5 mcoP2LC ref mcoP2LC <mcoB23,5;
changec2 mcoColDS
ifz mcoLoopCount mcoCrenEndcap
ifn mcoLoopCount mcoCrenEndcap
gv mcoCrenDist (mcoD23LC-11.25)/mcoLoopCount
gv mcoCurLen 7.5
:mcoCrenLoop2
line ref mcoP2LC <mcoB23,mcoCurLen ref mcoP2LC <mcoB23,(mcoCurLen+mcoCrenDist-2.5);
changec2 mcoColDS
gv mcoCurLen mcoCurLen+mcoCrenDist
gv mcoLoopCount mcoLoopCount-1
ifp mcoLoopCount mcoCrenLoop2
:mcoCrenEndcap
line mcoP3LC ref mcoP3LC <mcoB23-180,3.75;
changec2 mcoColDS
line mcoFirstPointLC ref mcoFirstPointLC <mcoFirstBrng,3.75;
changec2 mcoColDS
:mcoDoneCrenLoop2
go mcoParapet3Cleanup
:mco2PointCrenelation
GBRNG mcoB12 mcoP1 mcoP2
gp mcoP1L ref mcoP1 <mcoB12+90,1.5
gp mcoP1LC ref mcoP1 <mcoB12+90,1.25
gp mcoP2L ref mcoP2 <mcoB12+90,1.5
gp mcoP2LC ref mcoP2 <mcoB12+90,1.25
gdist mcoD12LC mcoP1LC mcoP2LC
lwidth 0
poly mcoP1L mcoP2L mcoP2 mcoP1;
changec2 mcoColDS
lwidth 2.5
ifz mcoD12LC-7.5 mcoDoneCrenLoop5
gn mcoLoopCount (mcoD12LC+2.5)/7.5
ifz mcoLoopCount mcoDoneCrenLoop5
ifn mcoLoopCount mcoDoneCrenLoop5
gv mcoCrenDist (mcoD12LC+2.5)/mcoLoopCount
gv mcoCurLen 0
:mcoCrenLoop5
line ref mcoP1LC <mcoB12,mcoCurLen ref mcoP1LC <mcoB12,(mcoCurLen+mcoCrenDist-2.5);
changec2 mcoColDS
gv mcoCurLen mcoCurLen+mcoCrenDist
gv mcoLoopCount mcoLoopCount-1
ifp mcoLoopCount mcoCrenLoop5
:mcoDoneCrenLoop5
gl spacer line
:mcoParapet3Cleanup
lwidth 0
selbyl
changel MacroConstruction
like
10001,10001
selbyp
group
:mcoabort
selby1
keep 10001,10001
erase 10001,10001
selrest
rdon
econ