9.3 例題プログラム FSSAVE.BAS の解説
目次へ戻る
- 例題の BASICプログラムは、第５章で使用したプログラムDEVELOP.BAS を流用したものです。多面体モデルをコマンド PHDFLで作成し、その多面体モデルをファイル PHDFL.DATに書き込みます。このモデルを展開図に変換し、その図形モデルをファイル DEVELOP.DATに書き込みます。これら二つのファイルはテキストデータになっていますので、それをプリントしたものを示しました。
- この多面体モデルのテキストファイルは、第１章の例題プログラム PCUBE.BASでも利用しています。第６章の図形モデルの作成において、コマンドREGFL で使うデータは、この展開図のデータを利用しています。なお、この多面体モデルは、このテキストの最初の章において、製図の投影方法を解説するときに使用しているモデルでもあります。
10 PRINT "GEOMAP Demonstration Program"
20 PRINT "---File Save for Solid and Figure Models---"
30 DIM XYZPOS(3,14),ITABL(60)
40 READ XYZPOS : REM ------ DATA FOR XYZPOS ------
50 DATA 4 4 6, 4 -6 6, 0 4 10, 0 -6 10, -6 4 10, -6 -6 10,
60 DATA 4 -6 -10, 4 8 -10, 4 8 -6, 4 4 -6, -6 8 -10,-6 8 -6
70 DATA -6 4 -6, -6 -6 -10
80 READ ITABL : REM ------ DATA FOR ITABLE ------
90 DATA 1 10 13 5 3 9900
100 DATA 9 8 11 12 9900
110 DATA 6 14 7 2 4 9900
120 DATA 4 3 5 6 9900
130 DATA 9 12 13 10 9900
140 DATA 7 14 11 8 9900
150 DATA 2 1 3 4 9900
160 DATA 2 7 8 9 10 1 9900
170 DATA 5 13 12 11 14 6 9900 9999 /
180 REM ============================== DPCAM
190 CAM(1)=35: CAM(2)=-25 : CAM(3)=30 : TH=0.8
200 DPWIND 0,0,100. : DPCAM CAM,TH
210 CMINIT : REM ===================== PHDFL
220 NV=14 : NC=52
230 PHDFL "A",XYZPOS,NV,ITABL,NC
240 CLS : HFDISP "A",,2 : PAUSE
250 FSSAVE "A","PHDFL.DAT"
260 REM ============================== DEVELOP
270 HDEV "A","B"
280 FSSAVE "B","DEVELOP.DAT"
290 QBOX "B",BMIN(1),BMAX(1)
300 CX=0.5*(BMIN(1)+BMAX(1))
310 CY=0.5*(BMIN(2)+BMAX(2))
320 WX=BMAX(1)-BMIN(1)
330 WY=BMAX(2)-BMIN(2)
340 IF WX
350 DPWIND CX,CY,WX*1.6
360 CLS : HDISP "B"
370 END
ＦＳＳＡＶＥで書き出した多面体のデータ
4 800 14 21 9
1.00000 .00000 .00000
.00000 1.00000 .00000
.00000 .00000 1.00000
.00000 .00000 .00000
4.00000 4.00000 6.00000
4.00000 -6.00000 6.00000
.00000 4.00000 10.00000
.00000 -6.00000 10.00000
-6.00000 4.00000 10.00000
-6.00000 -6.00000 10.00000
4.00000 -6.00000 -10.00000
4.00000 8.00000 -10.00000
4.00000 8.00000 -6.00000
4.00000 4.00000 -6.00000
-6.00000 8.00000 -10.00000
-6.00000 8.00000 -6.00000
-6.00000 4.00000 -6.00000
-6.00000 -6.00000 -10.00000
1 10 1 8 0
10 13 1 5 0
13 5 1 9 0
5 3 1 4 0
3 1 1 7 0
9 8 2 8 0
8 11 2 6 0
11 12 2 9 0
12 9 2 5 0
6 14 3 9 0
14 7 3 6 0
7 2 3 8 0
2 4 3 7 0
4 6 3 4 0
4 3 4 7 0
5 6 4 9 0
12 13 5 9 0
10 9 5 8 0
14 11 6 9 0
8 7 6 8 0
2 1 7 8 0
0 0 .00000 1.00000 .00000 -4.00000
0 0 .00000 1.00000 .00000 -8.00000
0 0 .00000 -1.00000 .00000 -6.00000
0 0 .00000 .00000 1.00000 -10.00000
0 0 .00000 .00000 1.00000 6.00000
0 0 .00000 .00000 -1.00000 -10.00000
0 0 .70711 .00000 .70711 -7.07107
0 0 1.00000 .00000 .00000 -4.00000
0 0 -1.00000 .00000 .00000 -6.00000
1 10 13 5 3 9900 9 8 11 12 9900 6 14 7
2 4 9900 4 3 5 6 9900 9 12 13 10 9900 7
14 11 8 9900 2 1 3 4 9900 2 7 8 9 10
1 9900 5 13 12 11 14 6 9900 9999 0 0 0 0
ＦＳＳＡＶＥで書き出した展開図のデータ
19 0 26 34 9
1.00000 .00000 .00000
.00000 1.00000 .00000
.00000 .00000 1.00000
.00000 .00000 .00000
-1.00000 1.00000 -2.00000
-1.00000 1.00000 -14.00000
-1.00000 11.00000 -14.00000
-1.00000 11.00000 2.00000
-1.00000 5.00000 2.00000
-1.00000 5.00000 12.00000
-1.00000 11.00000 12.00000
-1.00000 11.00000 32.00000
-1.00000 1.00000 32.00000
-1.00000 1.00000 16.00000
-1.00000 11.00000 46.00000
-1.00000 1.00000 46.00000
-1.00000 1.00000 50.00000
-1.00000 11.00000 50.00000
-1.00000 11.00000 54.00000
-1.00000 1.00000 54.00000
-1.00000 -6.07107 8.92893
-1.00000 -2.07107 4.92893
-1.00000 -10.31371 27.31371
-1.00000 -20.21320 17.41421
-1.00000 -17.38478 14.58579
-1.00000 -14.55635 17.41421
-1.00000 27.00000 2.00000
-1.00000 27.00000 -2.00000
-1.00000 31.00000 -2.00000
-1.00000 31.00000 12.00000
1 2 1 0 9
2 3 1 0 9
3 4 1 0 9
4 5 1 2 1
5 1 1 0 9
6 5 2 0 9
4 7 2 9 1
7 6 2 3 1
7 8 3 0 9
8 9 3 4 1
9 10 3 0 9
10 6 3 7 1
8 11 4 0 9
11 12 4 5 1
12 9 4 0 9
13 12 5 0 9
11 14 5 0 9
14 13 5 6 1
14 15 6 0 9
15 16 6 0 9
16 13 6 0 9
10 17 7 8 1
17 18 7 0 9
18 6 7 0 9
10 19 8 0 9
19 20 8 0 9
20 21 8 0 9
21 22 8 0 9
22 17 8 0 9
4 23 9 0 9
23 24 9 0 9
24 25 9 0 9
25 26 9 0 9
26 7 9 0 9
1 0 1.00000 .00000 .00000 1.00000
1 0 1.00000 .00000 .00000 1.00000
1 0 1.00000 .00000 .00000 1.00000
1 0 1.00000 .00000 .00000 1.00000
1 0 1.00000 .00000 .00000 1.00000
1 0 1.00000 .00000 .00000 1.00000
1 0 1.00000 .00000 .00000 1.00000
1 0 1.00000 .00000 .00000 1.00000
1 0 1.00000 .00000 .00000 1.00000
1 2 3 4 5 9900 6 5 4 7 9900 7 8 9
10 6 9900 9 8 11 12 9900 13 12 11 14 9900 13
14 15 16 9900 10 17 18 6 9900 10 19 20 21 22
17 9900 4 23 24 25 26 7 9900 9999 0 0 0 0
目次へ戻る