|
|
4面体を定義しています。
OPTION ANGLE DEGREES
LET L=1
LET X=0
LET Y=0
LET Z=0
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 2.0"
PRINT #1:"tetra"
PRINT #1:"ASCII"
PRINT #1:"DATASET UNSTRUCTURED_GRID"
PRINT #1:"POINTS 4 float"
PRINT #1:X+L*COS(0);Y+L*SIN(0);Z
PRINT #1:X+L*COS(120);Y+L*SIN(120);Z
PRINT #1:X+L*COS(240);Y+L*SIN(240);Z
PRINT #1:X;Y;Z+L
PRINT #1:"CELLS 1 5"
PRINT #1:"4 0 1 2 3"
PRINT #1:"CELL_TYPES 1"
PRINT #1:10
CLOSE #1
END
|
|