?"3D Model Prism 1.0 - Gerador de prismas p/ 3D Model
?
INPUT "N§ de lados   :",nl
nl=360/nl
INPUT "Raio          :",r
INPUT "Altura        :",h
h=h/2
INPUT "Arquivo (.3DM):",arq$
TYPE TriD
Flag AS INTEGER
X AS SINGLE
Y AS SINGLE
Z AS SINGLE
END TYPE
DIM Ponto AS TriD
OPEN arq$+".3DM" FOR RANDOM AS #1 LEN=14
Fct=ATN(1)/45
k=1
FOR i=0 TO 360-nl STEP nl
a=i*Fct
b=(i+nl)*Fct
Ponto.Flag=-1
Ponto.X=r*COS(a)
Ponto.Y=r*SIN(a)
Ponto.Z=-h
PUT #1,k,Ponto
Ponto.Flag=0
Ponto.X=r*COS(b)
Ponto.Y=r*SIN(b)
PUT #1,k+1,Ponto
Ponto.X=r*COS(b)
Ponto.Y=r*SIN(b)
Ponto.Z=h
PUT #1,k+2,Ponto
Ponto.X=r*COS(a)
Ponto.Y=r*SIN(a)
PUT #1,k+3,Ponto
k=k+4
NEXT
CLOSE #1
SYSTEM