|
|
立方体ですが、へこんでいます。
LET L=1
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:"bump"
PRINT #1:"ASCII"
PRINT #1:"DATASET POLYDATA"
PRINT #1:"POINTS";9;"float"
PRINT #1:X-L/2;Y+L/2;Z-L/2
PRINT #1:X+L/2;Y+L/2;Z-L/2
PRINT #1:X-L/2;Y+L/2;Z+L/2
PRINT #1:X+L/2;Y+L/2;Z+L/2
PRINT #1:X-L/2;Y-L/2;Z+L/2
PRINT #1:X+L/2;Y-L/2;Z+L/2
PRINT #1:X-L/2;Y-L/2;Z-L/2
PRINT #1:X+L/2;Y-L/2;Z-L/2
PRINT #1:X;Y;Z
PRINT #1:"POLYGONS";12;48
PRINT #1:"3 8 0 2"
PRINT #1:"3 8 2 3"
PRINT #1:"3 8 3 1"
PRINT #1:"3 8 1 0"
PRINT #1:"3 8 4 5"
PRINT #1:"3 8 5 7"
PRINT #1:"3 8 7 6"
PRINT #1:"3 8 6 4"
PRINT #1:"3 8 2 4"
PRINT #1:"3 8 6 0"
PRINT #1:"3 8 5 3"
PRINT #1:"3 8 1 7"
CLOSE #1
END
|
|