! várablak 3D 1.0
c=TAN(alfa)*(WALL_THICKNESS-tv)
FOR i=0 TO n
PUT -a/2*COS((1-i/n)*180),
a/2*SIN((1-i/n)*180)+b-a/2,
15
NEXT i
PUT a/2,-pv,15
PUT -a/2,-pv,15
WALLHOLE n+3,127, GET (NSP)
PEN WALL_VIEW_PEN
ADDY -pv
ROTX -90
CPRISM_ mp,mp,mp,9,pv,
-a/2,0,15,
-a/2-pv,0,15,
-a/2-pv,pv,15,
a/2+pv,pv,15,
a/2+pv,0,15,
a/2,0,15,
a/2,-WALL_THICKNESS,15,
-a/2,-WALL_THICKNESS,15,
-a/2,0,-1
DEL 2
FOR i=0 TO n
PUT -a/2*COS((1-i/n)*180),
a/2*SIN((1-i/n)*180)+b-a/2,
0, 0
NEXT i
IF WALL_THICKNESS > tv+.01 THEN
MATERIAL WALL_MAT_EDGE
ADDZ -K_
TUBE 5,4+n+1,127,
0, 0, 0,
c, WALL_THICKNESS-tv, 0,
c, WALL_THICKNESS, 0,
0, WALL_THICKNESS, 1,
0, 0, 0,
a/2, -1, 0,0,
a/2, 0, 0,0,
GET (NSP),
-a/2, 0, 0,0,
-a/2, -1, 0,0
ENDIF
|
Az ablaknyílás poligonpontjaitnak
kiszámítása, verembe töltése.
Az ablaknyílás
A párkány
A falkiegészítés poligonpontjaitnak
kiszámítása, verembe töltése.
Ha a falvastagság nagyobb, mint a tokvas-
tagság + 0.1 méter, akkor
eltolás korigálása
a falkiegészítés 3D modellje a TUBE paranccsal
|
! várablak 3D 1.0
c=TAN(alfa)*(WALL_THICKNESS-tv)
FILL WALL_FILL
PEN WALL_SECT_PEN
ADD2 0,K_
FOR i=1 to 2
POLY2_B 5,3,WALL_FILL_PEN,WALL_FBGD_PEN,
-a/2,0,1,
-a/2+c,-WALL_THICKNESS+tv,1,
-a/2+c,-WALL_THICKNESS,1,
-a/2,-WALL_THICKNESS,0,
-a/2,0,-1
MUL2 -1,1
NEXT i
DEL 2
LINE2 -a/2+c,-WALL_THICKNESS+tv,
a/2-c,-WALL_THICKNESS+tv
LINE2 -a/2+c,-WALL_THICKNESS,
a/2-c,-WALL_THICKNESS
POLY2 4,1,
-a/2-pv,0,
-a/2-pv,pv,
a/2+pv,pv,
a/2+pv,0
|
eltolás korigálása
falkiegészítés poligonja
egyik oldala
majd tükrözve ciklussal a másik
tok vonalai
párkány poligonja
|