ecoff
rdoff
point 10001,10001;
golayer MacroConstruction
scriptm #CityWallTower-vars.scr
ifdef mcoCityWallTowerVarsOK mcoDoneVarCheck
:mcoDefineVars
gv mcoColDS 14
gv mcoColLS 251
gcol mcoColDS ^D Цвет парапета (14)
gcol mcoColLS ^D Цвет плоской крыши (251)
gv mcoTowerSides 4
gn mcoTowerSides ^D Сколько сторон? (0=circle)
ifz mcoTowerSides-1 mcoCleanup
ifz mcoTowerSides-2 mcoCleanup
gv mcoRS 1
gv mcoRS ^D Крыша плоская или покатая (0=плоская, 1=покатая - стандарт)
ifz mcoRS mcoSkipRoofVars
gv mcoRoofStyle 0
gv mcoRoofStyle ^D Стиль крыши (0=стандарт  1=городской) (0)
ifz mcoRoofStyle mcoSkipCDHouseStyle
houseload ^D Городской стиль:
:mcoSkipCDHouseStyle
gv mcoWW 0
gv mcoWW ^D Ширина прохода (0)
:mcoSkipRoofVars
gw mcoCityWallTowerVarsOK OK
savevars CityWallTower-vars
go mcoStart
:mcoDoneVarCheck
gv mcoUseDefault 1
gv mcoUseDefault ^D Использовать сохраненные настройки? (1=да - стандарт - клик, 0=нет)
ifz mcoUseDefault mcoDefineVars
:mcoStart
selbyp
gv mcoBLeg 0
gv mcoFirstTime 0
gv mcoColDR 11
gv mcoColLR 10
color mcoColLS
lwidth 0
lstyle solid
fstyle solid
gp mcoCP 10001,10001
gp mcoCP ^D Центр башни:
gdist mcoTestDist 10001,10001 mcoCP
ifz mcoTestDist mcoCleanup
ifz mcoTowerSides mcodrawcircletower
rpoly mcoTowerSides mcoCP ^D Размер и поворот башни:
color 0
gp mcoOP @0,0
gdist mcoTestDist mcoCP mcoOP
ifz mcoTestDist mcoCleanup
gdist mcoOD mcoCP mcoOP
gbrng mcoOrient mcoCP mcoOP
gv mcoAngle 360/mcoTowerSides
gp mcoP1 mcoOP
gp mcoP2 ref mcoCP <mcoOrient-(mcoAngle),mcoOD
gdist mcoD12 mcoP1 mcoP2
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 ref mcoCP <mcoOrient-(mcoAngle*2),mcoOD
gdist mcoD23 mcoP2 mcoP3
gv mcoSideCount 3
: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
ifz mcoSideCount-mcoTowerSides mcoDone
gv mcoSideCount mcoSideCount+1
gp mcoP4 ref mcoCP <mcoOrient-(mcoAngle*(mcoSideCount-1)),mcoOD
gdist mcoD34 mcoP3 mcoP4
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
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
:mcoRoofConstruction
ifz mcoRS mcoCleanup
gcos mcoCOS mcoAngle/2
gv mcoCOS 1/mcoCOS
gv mcoID mcoOD-(mcoWW*mcoCOS)
ifz mcoRoofStyle-1 mcoCleanup
gv mcoC 0
lwidth 0;fstyle solid;lstyle solid;color 0
poly
mcoCP
:mcoRoofLoop1
ref mcoCP <mcoOrient-(mcoAngle*mcoC),mcoID
gv mcoC mcoC+1
ifp .5-(mcoC/mcoTowerSides) mcoRoofLoop1

changec2 mcoColDR
poly
mcoCP
ref mcoCP <mcoOrient-(mcoAngle*(mcoC-1)),mcoID
:mcoRoofLoop2
ref mcoCP <mcoOrient-(mcoAngle*mcoC),mcoID
gv mcoC mcoC+1
ifp mcoTowerSides-mcoC+1 mcoRoofLoop2

changec2 mcoColLR
lwidth 1
gv mcoC 1
:mcoRidgeLoop1
line mcoCP ref mcoCP <mcoOrient-(mcoAngle*mcoC),mcoID;
changec2 mcoColDR
gv mcoC mcoC+1
ifp .5-(mcoC/mcoTowerSides) mcoRidgeLoop1
changec2 mcoColLR
:mcoRidgeLoop2
line mcoCP ref mcoCP <mcoOrient-(mcoAngle*mcoC),mcoID;
changec2 mcoColLR
gv mcoC mcoC+1
ifp mcoTowerSides-mcoC+1 mcoRidgeLoop2
changec2 mcoColLR
lwidth 0
rpoly mcoTowerSides mcoCP ref mcoCP <mcoOrient+(mcoAngle/2),2
changec2 mcoColLR
go mcoCleanup


:mcodrawcircletower
cirp mcoCP ^DTower diameter:
gp mcoOP @0,0
gdist mcoTestDist mcoCP mcoOP
ifz mcoTestDist moAbort
erase
gv mcoTW mcoTestDist*2
lwidth 0;color mcoColLS;fstyle solid;cird mcoTW mcoCP;
lwidth 1.5;color 0;cird mcoTW mcoCP;
changec2 mcoColDS
gv mcoOutsideTW mcoTW+.75
gn mcoOutsideCirc mcoOutsideTW*3.1416/7.5
gv mcoOneArcUnit 360/mcoOutsideCirc/7.5
gv mcocurrentangle 0
:mcocirccrenloop
lwidth 2.5;color 0;fstyle solid
arcr mcoCP mcoOutsideTW/2 mcocurrentangle (mcocurrentangle+(mcoOneArcUnit*5))
|changec2 mcoColDS
gv mcocurrentangle (mcocurrentangle+(mcoOneArcUnit*7.5))
ifp mcocurrentangle-360 mcodonecirccrenloop
go mcocirccrenloop
:mcodonecirccrenloop
ifz mcoRS mcoCleanup
ifz mcoRoofStyle mcoDefaultCircRoof
gv mcoTowerSides 15
gv mcoAngle 360/mcoTowerSides
gv mcoOrient 90
gv mcoOD mcoTW/2
gcos mcoCOS mcoAngle/2
gv mcoCOS 1/mcoCOS
gv mcoID mcoOD-(mcoWW*mcoCOS)
go mcoCleanup
:mcoDefaultCircRoof
lwidth 0;fstyle solid
color mcoColLR;cird mcoTW-(mcoWW*2) mcoCP;
color mcoColDR
arcw mcoCP (mcoTW-(mcoWW*2))/2 200 350
|color 0;fstyle hollow;cird mcoTW-(mcoWW*2) mcoCP;
go mcoCleanup


:mcoCleanup
lwidth 0
selbyl
changel MacroConstruction
like
10001,10001
selbyp
group
ifz mcoRoofStyle mcoAbort
:mcoCDHouseStyle
gv mcoC 0
housem 8
:mcoCDRoofLoop
ref mcoCP <mcoOrient-(mcoAngle*mcoC),mcoID
gv mcoC mcoC+1
ifn mcoC-mcoTowerSides mcoCDRoofLoop

mcoCP;
:mcoabort
selby1
keep 10001,10001
erase 10001,10001
selrest
rdon
econ