? "Grafico para 3D Model
? "Formula: y=sin(x)+cos(z)
DEF FnF(px,pz)=(SIN(px/10)+COS(pz/10))*10
?
TYPE TriD
Flag AS INTEGER
X AS SINGLE
Y AS SINGLE
Z AS SINGLE
END TYPE
DIM Ponto AS TriD
OPEN "Graph.3DM" AS #1 LEN=14
FOR vx=-50 TO 50 STEP 5
Ponto.X=vx
FOR vz=-50 TO 50
Ponto.Flag=(vz=-50)
Ponto.Z=vz
Ponto.Y=FnF(vx,vz)
PUT #1,SEEK(1),Ponto
NEXT
NEXT
FOR vz=-50 TO 50 STEP 5
Ponto.Z=vz
FOR vx=-50 TO 50
Ponto.Flag=(vx=-50)
Ponto.X=vx
Ponto.Y=FnF(vx,vz)
PUT #1,SEEK(1),Ponto
NEXT
NEXT
CLOSE #1
SYSTEM