! fedélszék 3D 1.0
for i=0 to n
PUT ro*COS(i*beta)
PUT ro*SIN(i*beta)
next i
ADD -f/2+k, 0,0
DEL 1
PRISM NSP/2, m+.5, USE(NSP)
CUTPOLY NSP/2, GET (NSP)
ROTX 90
FOR i= 1 TO n
CUTPOLY 4,
r-k,0,
r-k,t_h,
r-k-t_b,t_h,
r-k-t_b,0
ADDZ -s_b/2
CPRISM_ 1,1,1, 5 , s_b,
-e-r,-ey,15,
-e-r-s_h*sin(alfa),-ey + s_h*cos(alfa),15,
0, m + s_h/cos(alfa),15,
0,m,15,
-e-r,-ey,-1
DEL 1
CUTEND
ADD -r+k,0,-.3
BLOCK t_b, t_h, 0.6
DEL 1
ROTY beta
NEXT i
CUTEND
|