|
|
こちらはバラ曲線です。前述と同じように操作してください。
このプログラムではスカラー値を設定していません。
OPTION ANGLE DEGREES
LET N=720
RANDOMIZE
FILE GETSAVENAME F$,"vtkファイル|*.vtk"
IF F$="" THEN STOP
IF POS(UCASE$(F$),".VTK")=0 THEN LET F$=F$&".vtk"
OPEN #1:NAME F$
ERASE #1
PRINT #1:"# vtk DataFile Version 4.0"
PRINT #1:"rose"
PRINT #1:"ASCII"
PRINT #1:"DATASET POLYDATA"
PRINT #1:"POINTS";N;"double"
LET A=INT(RND*20)+1
LET B=INT(RND*20)+1
FOR I=0 TO N-1
LET X=SIN(A*I/2)*COS(B*I/2)
LET Z=SIN(A*I/2)*SIN(B*I/2)
LET Y=COS(A*I/2)
PRINT #1:X;Y;Z
NEXT I
PRINT #1:"LINES";N;3*N
FOR I=0 TO N-1
IF I=N-1 THEN
PRINT #1:2;N-1;0
ELSE
PRINT #1:2;I;I+1
END IF
NEXT I
CLOSE #1
END
|
|