VTKファイルをつくる8

 投稿者:しばっち  投稿日:2018年 3月10日(土)21時02分46秒
  こちらはバラ曲線です。前述と同じように操作してください。
このプログラムではスカラー値を設定していません。

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
 

戻る