home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 3
/
FreeSoftwareCollection3pd199x-jp.img
/
kxc
/
t_os
/
townsexp
/
nrdb
/
adamant.bas
< prev
next >
Wrap
BASIC Source File
|
1980-01-02
|
1KB
|
33 lines
10000 'Ray Tracing Data////////////////////////////////////
10000 '
10020 DATA ADAMANT 'GRD形式ファイルネーム
10030 DATA -0.223,0.223,-.995 '光線の単位ベクトル
10040 DATA 101,3,4,0,0,700
10040 DATA 1, 0, -77, -1,80,1, 0, 0,160,0
10040 DATA 1, 0,-133, -1,50,1,160,160, 0,0
10040 DATA 1, -51, -52, -52,80,1, 0, 0,160,0
10040 DATA 1, 70, -52, -18,80,1, 0, 0,160,0
10040 DATA 1, -20, -52, 69,80,1, 0, 0,160,0
10040 DATA 1, -20, 25, 69,80,1, 0, 0,160,0
10040 DATA 1, 16, -71, 108,50,1,160,160, 0,0
10040 DATA 1, -71, -71, 83,50,1,160,160, 0,0
10040 DATA 1, -51, 25, -52,80,1, 0, 0,160,0
10040 DATA 1,-102, -71, -41,50,1,160,160, 0,0
10040 DATA 1, -38, -71,-103,50,1,160,160, 0,0
10040 DATA 1, -88, 44, -90,50,1,160,160, 0,0
10040 DATA 1, -34, 44, 120,50,1,160,160, 0,0
10040 DATA 1, -71, 51, 17,80,1, 0, 0,160,0
10040 DATA 1, -72, 107, 18,50,1,160,160, 0,0
10040 DATA 1,-122, 33, 31,50,1,160,160, 0,0
10040 DATA 1, 70, 25, -18,80,1, 0, 0,160,0
10040 DATA 1, 85, -71, -69,50,1,160,160, 0,0
10040 DATA 1, 107, -71, 18,50,1,160,160, 0,0
10040 DATA 1, 121, 44, -31,50,1,160,160, 0,0
10040 DATA 1, 50, 51, 51,80,1, 0, 0,160,0
10040 DATA 1, 19, 51, -70,80,1, 0, 0,160,0
10040 DATA 1, 19, 107, -72,50,1,160,160, 0,0
10040 DATA 1, 33, 34,-121,50,1,160,160, 0,0
10040 DATA 1, 51, 107, 52,50,1,160,160, 0,0
10040 DATA 1, 87, 33, 89,50,1,160,160, 0,0
10040 DATA 0, 0