home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-01-05 | 6.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 10%
| dexvert
| Truevision Targa Graphic (image/tga)
| magic
| Supported |
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 13 20 f4 20 43 | 55 42 49 43 20 43 55 52 |.... . C|UBIC CUR|
|00000010| 56 45 53 0d 00 0f 49 20 | f4 20 42 79 20 53 74 65 |VES...I |. By Ste|
|00000020| 70 68 65 6e 20 4c 6f 72 | 64 2e 2e 2e 20 66 65 65 |phen Lor|d... fee|
|00000030| 6c 20 66 72 65 65 20 74 | 6f 20 64 6f 20 77 68 61 |l free t|o do wha|
|00000040| 74 20 79 6f 75 20 77 69 | 6c 6c 20 77 69 74 68 20 |t you wi|ll with |
|00000050| 74 68 69 73 20 70 72 6f | 67 67 69 65 0d 00 14 a8 |this pro|ggie....|
|00000060| 20 eb 20 31 32 3a f2 47 | 3a 87 3a fb 20 31 35 3a | . 12:.G|:.:. 15:|
|00000070| fb 20 31 32 38 3a f1 27 | 27 22 41 6e 69 6d 61 74 |. 128:.'|'"Animat|
|00000080| 65 64 20 42 65 7a 69 65 | 72 20 50 61 74 63 68 20 |ed Bezie|r Patch |
|00000090| 2e 2e 2e 20 42 79 20 53 | 74 65 70 68 65 6e 20 4c |... By S|tephen L|
|000000a0| 6f 72 64 22 27 22 59 6f | 75 20 6e 65 65 64 20 31 |ord"'"Yo|u need 1|
|000000b0| 30 35 36 4b 20 42 59 54 | 45 53 20 73 70 72 69 74 |056K BYT|ES sprit|
|000000c0| 65 20 6d 65 6d 6f 72 79 | 20 66 6f 72 20 74 68 69 |e memory| for thi|
|000000d0| 73 20 70 72 6f 67 72 61 | 6d 20 74 6f 20 72 75 6e |s progra|m to run|
|000000e0| 22 27 22 50 72 65 73 73 | 20 6b 65 79 20 74 6f 20 |"'"Press| key to |
|000000f0| 63 6f 6e 74 69 6e 75 65 | 20 2e 2e 2e 2e 20 22 3a |continue| .... ":|
|00000100| 61 24 3d be 0d 00 16 09 | 20 fb 20 31 35 0d 00 17 |a$=.....| . 15...|
|00000110| 43 20 e8 22 53 65 74 20 | 6e 75 6d 62 65 72 20 6f |C ."Set |number o|
|00000120| 66 20 73 65 63 74 69 6f | 6e 73 20 69 6e 20 70 61 |f sectio|ns in pa|
|00000130| 74 63 68 2e 2e 20 74 72 | 79 20 34 20 74 6f 20 73 |tch.. tr|y 4 to s|
|00000140| 74 61 72 74 20 77 69 74 | 68 3a 22 3b 49 6e 63 25 |tart wit|h:";Inc%|
|00000150| 0d 00 19 06 20 db 0d 00 | 28 0e 20 f2 44 69 6d 5f |.... ...|(. .Dim_|
|00000160| 56 61 72 73 0d 00 32 06 | 20 f4 0d 00 3c 06 20 f4 |Vars..2.| ...<. .|
|00000170| 0d 00 46 06 20 f4 0d 00 | 50 11 20 53 6e 25 3d 30 |..F. ...|P. Sn%=0|
|00000180| 3a 49 6e 63 3d 31 30 0d | 00 5a 06 20 f5 0d 00 5f |:Inc=10.|.Z. ..._|
|00000190| 26 20 50 6f 69 6e 74 25 | 28 31 2c 31 2c 31 2c 30 |& Point%|(1,1,1,0|
|000001a0| 29 3d b5 28 b2 28 53 6e | 25 2a 49 6e 63 29 29 2a |)=.(.(Sn|%*Inc))*|
|000001b0| 36 30 30 0d 00 60 26 20 | 50 6f 69 6e 74 25 28 32 |600..`& |Point%(2|
|000001c0| 2c 32 2c 31 2c 30 29 3d | 9b 28 b2 28 53 6e 25 2a |,2,1,0)=|.(.(Sn%*|
|000001d0| 49 6e 63 29 29 2a 36 30 | 30 0d 00 61 26 20 50 6f |Inc))*60|0..a& Po|
|000001e0| 69 6e 74 25 28 30 2c 30 | 2c 31 2c 30 29 3d 9b 28 |int%(0,0|,1,0)=.(|
|000001f0| b2 28 53 6e 25 2a 49 6e | 63 29 29 2a 31 30 30 0d |.(Sn%*In|c))*100.|
|00000200| 00 62 26 20 50 6f 69 6e | 74 25 28 33 2c 33 2c 31 |.b& Poin|t%(3,3,1|
|00000210| 2c 30 29 3d b5 28 b2 28 | 53 6e 25 2a 49 6e 63 29 |,0)=.(.(|Sn%*Inc)|
|00000220| 29 2a 31 30 30 0d 00 63 | 2a 20 50 6f 69 6e 74 25 |)*100..c|* Point%|
|00000230| 28 33 2c 30 2c 31 2c 30 | 29 3d b5 28 b2 28 53 6e |(3,0,1,0|)=.(.(Sn|
|00000240| 25 2a 49 6e 63 2b 31 38 | 30 29 29 2a 31 30 30 0d |%*Inc+18|0))*100.|
|00000250| 00 64 2a 20 50 6f 69 6e | 74 25 28 30 2c 33 2c 31 |.d* Poin|t%(0,3,1|
|00000260| 2c 30 29 3d 9b 28 b2 28 | 53 6e 25 2a 49 6e 63 2b |,0)=.(.(|Sn%*Inc+|
|00000270| 31 38 30 29 29 2a 31 30 | 30 0d 00 69 0b 20 f2 43 |180))*10|0..i. .C|
|00000280| 75 72 76 65 0d 00 6e 0d | 20 f2 52 65 5f 44 72 61 |urve..n.| .Re_Dra|
|00000290| 77 0d 00 70 1a 20 ec 20 | 2d 31 33 30 2c 2d 32 30 |w..p. . |-130,-20|
|000002a0| 30 3a ec 20 36 30 30 2c | 34 35 30 0d 00 74 22 20 |0:. 600,|450..t" |
|000002b0| ff 28 22 53 47 45 54 20 | 63 75 62 69 63 22 2b c3 |.("SGET |cubic"+.|
|000002c0| 28 53 6e 25 29 29 3a 53 | 6e 25 2b 3d 31 0d 00 75 |(Sn%)):S|n%+=1..u|
|000002d0| 20 20 ff 28 22 53 43 48 | 4f 4f 53 45 20 63 75 62 | .("SCH|OOSE cub|
|000002e0| 69 63 22 2b c3 28 53 6e | 25 2d 31 29 29 0d 00 77 |ic"+.(Sn|%-1))..w|
|000002f0| 13 20 f0 20 26 45 44 2c | 2d 33 30 30 2c 32 30 30 |. . &ED,|-300,200|
|00000300| 0d 00 78 13 20 fd 20 53 | 6e 25 3e 3d 33 36 30 2f |..x. . S|n%>=360/|
|00000310| 49 6e 63 0d 00 82 0d 20 | f2 53 45 45 46 49 4c 4d |Inc.... |.SEEFILM|
|00000320| 0d 03 e7 05 e0 0d 03 e8 | 0f dd 20 f2 44 69 6d 5f |........|.. .Dim_|
|00000330| 56 61 72 73 0d 03 ec 12 | 20 f2 53 65 74 5f 4d 61 |Vars....| .Set_Ma|
|00000340| 74 72 69 63 65 73 0d 03 | ed 12 20 ef 20 32 39 2c |trices..|.. . 29,|
|00000350| 33 34 30 3b 34 30 30 3b | 0d 03 f2 1a 20 de 20 61 |340;400;|.... . a|
|00000360| 28 33 29 2c 62 28 33 29 | 2c 63 28 33 29 2c 64 28 |(3),b(3)|,c(3),d(|
|00000370| 33 29 0d 03 f3 4e 20 50 | 61 74 63 68 65 73 25 3d |3)...N P|atches%=|
|00000380| 30 3a f4 20 73 65 74 20 | 70 61 74 63 68 65 73 20 |0:. set |patches |
|00000390| 74 6f 20 31 20 65 74 63 | 2e 2e 20 66 6f 72 20 65 |to 1 etc|.. for e|
|000003a0| 78 74 72 61 20 70 61 74 | 63 68 65 73 3a 44 41 54 |xtra pat|ches:DAT|
|000003b0| 41 20 66 6f 72 20 70 61 | 74 63 68 65 73 20 61 74 |A for pa|tches at|
|000003c0| 0d 03 f4 1d 20 de 20 50 | 6f 69 6e 74 25 28 33 2c |.... . P|oint%(3,|
|000003d0| 33 2c 32 2c 50 61 74 63 | 68 65 73 25 29 0d 03 f6 |3,2,Patc|hes%)...|
|000003e0| 25 20 de 20 74 65 6d 70 | 31 28 33 2c 33 29 2c 74 |% . temp|1(3,3),t|
|000003f0| 65 6d 70 32 28 33 2c 33 | 29 2c 74 65 6d 70 33 28 |emp2(3,3|),temp3(|
|00000400| 33 29 0d 03 f8 14 20 de | 20 73 28 33 2c 33 29 2c |3).... .| s(3,3),|
|00000410| 74 28 33 2c 33 29 0d 03 | fc 12 20 78 31 25 3d 30 |t(3,3)..|.. x1%=0|
|00000420| 3a 79 31 25 3d 35 31 32 | 0d 04 06 15 20 78 32 25 |:y1%=512|.... x2%|
|00000430| 3d 31 32 37 39 3a 79 32 | 25 3d 35 31 32 0d 04 11 |=1279:y2|%=512...|
|00000440| 22 20 de 20 50 61 74 63 | 68 28 49 6e 63 25 2c 49 |" . Patc|h(Inc%,I|
|00000450| 6e 63 25 2c 32 2c 50 61 | 74 63 68 65 73 25 29 0d |nc%,2,Pa|tches%).|
|00000460| 04 15 0e 20 53 63 61 6c | 65 3d 2e 37 35 0d 04 16 |... Scal|e=.75...|
|00000470| 10 20 56 69 65 77 25 3d | 38 30 30 30 30 0d 04 1a |. View%=|80000...|
|00000480| 0b 20 f7 20 8d 54 64 44 | 0d 04 1b 18 20 e3 20 50 |. . .TdD|.... . P|
|00000490| 41 54 25 3d 30 20 b8 20 | 50 61 74 63 68 65 73 25 |AT%=0 . |Patches%|
|000004a0| 0d 04 1c 25 20 e3 20 49 | 25 3d 30 20 b8 20 33 3a |...% . I|%=0 . 3:|
|000004b0| e3 20 4a 25 3d 30 20 b8 | 20 33 3a e3 20 4b 25 3d |. J%=0 .| 3:. K%=|
|000004c0| 30 20 b8 20 32 0d 04 1e | 1c 20 f3 20 50 6f 69 6e |0 . 2...|. . Poin|
|000004d0| 74 25 28 49 25 2c 4a 25 | 2c 4b 25 2c 50 41 54 25 |t%(I%,J%|,K%,PAT%|
|000004e0| 29 0d 04 1f 36 20 f4 20 | 50 52 49 4e 54 49 25 22 |)...6 . |PRINTI%"|
|000004f0| 20 22 4a 25 22 20 22 4b | 25 22 20 22 50 6f 69 6e | "J%" "K|%" "Poin|
|00000500| 74 25 28 49 25 2c 4a 25 | 2c 4b 25 29 22 20 22 3a |t%(I%,J%|,K%)" ":|
|00000510| 41 24 3d 47 45 54 24 0d | 04 20 08 20 ed 3a f1 0d |A$=GET$.|. . .:..|
|00000520| 04 21 0a 20 ed 3a ed 3a | ed 0d 04 22 05 e1 0d 04 |.!. .:.:|..."....|
|00000530| 23 11 20 f4 20 50 52 4f | 43 70 6f 69 6e 74 73 0d |#. . PRO|Cpoints.|
|00000540| 04 24 0c 20 dc 20 30 2c | 30 2c 30 0d 04 25 0e 20 |.$. . 0,|0,0..%. |
|00000550| dc 20 32 30 30 2c 30 2c | 30 0d 04 26 0e 20 dc 20 |. 200,0,|0..&. . |
|00000560| 34 30 30 2c 30 2c 30 0d | 04 27 0e 20 dc 20 36 30 |400,0,0.|.'. . 60|
|00000570| 30 2c 30 2c 30 0d 04 28 | 05 20 0d 04 29 0e 20 dc |0,0,0..(|. ..). .|
|00000580| 20 30 2c 30 2c 32 30 30 | 0d 04 2a 10 20 dc 20 32 | 0,0,200|..*. . 2|
|00000590| 30 30 2c 30 2c 32 30 30 | 0d 04 2b 10 20 dc 20 34 |00,0,200|..+. . 4|
|000005a0| 30 30 2c 30 2c 32 30 30 | 0d 04 2c 10 20 dc 20 36 |00,0,200|..,. . 6|
|000005b0| 30 30 2c 30 2c 32 30 30 | 0d 04 2d 05 20 0d 04 2e |00,0,200|..-. ...|
|000005c0| 0e 20 dc 20 30 2c 30 2c | 34 30 30 0d 04 2f 10 20 |. . 0,0,|400../. |
|000005d0| dc 20 32 30 30 2c 30 2c | 34 30 30 0d 04 30 10 20 |. 200,0,|400..0. |
|000005e0| dc 20 34 30 30 2c 30 2c | 34 30 30 0d 04 31 10 20 |. 400,0,|400..1. |
|000005f0| dc 20 36 30 30 2c 30 2c | 34 30 30 0d 04 32 05 20 |. 600,0,|400..2. |
|00000600| 0d 04 33 0e 20 dc 20 30 | 2c 30 2c 36 30 30 0d 04 |..3. . 0|,0,600..|
|00000610| 34 10 20 dc 20 32 30 30 | 2c 30 2c 36 30 30 0d 04 |4. . 200|,0,600..|
|00000620| 35 10 20 dc 20 34 30 30 | 2c 30 2c 36 30 30 0d 04 |5. . 400|,0,600..|
|00000630| 36 10 20 dc 20 36 30 30 | 2c 30 2c 36 30 30 0d 04 |6. . 600|,0,600..|
|00000640| 37 05 20 0d 07 d0 0c dd | 20 f2 43 75 72 76 65 0d |7. .....| .Curve.|
|00000650| 07 d2 18 20 e3 20 50 61 | 74 25 3d 30 20 b8 20 50 |... . Pa|t%=0 . P|
|00000660| 61 74 63 68 65 73 25 0d | 07 d3 1a 20 e3 20 49 25 |atches%.|... . I%|
|00000670| 3d 30 20 b8 20 33 3a e3 | 20 4a 25 3d 30 20 b8 20 |=0 . 3:.| J%=0 . |
|00000680| 33 0d 07 d4 4d 20 f2 4d | 6f 76 65 5f 33 44 28 50 |3...M .M|ove_3D(P|
|00000690| 6f 69 6e 74 25 28 49 25 | 2c 4a 25 2c 30 2c 50 61 |oint%(I%|,J%,0,Pa|
|000006a0| 74 25 29 2c 50 6f 69 6e | 74 25 28 49 25 2c 4a 25 |t%),Poin|t%(I%,J%|
|000006b0| 2c 31 2c 50 61 74 25 29 | 2c 50 6f 69 6e 74 25 28 |,1,Pat%)|,Point%(|
|000006c0| 49 25 2c 4a 25 2c 32 2c | 50 61 74 25 29 29 0d 07 |I%,J%,2,|Pat%))..|
|000006d0| d5 17 20 ef 20 35 3a fb | 20 31 35 3a f1 20 c3 49 |.. . 5:.| 15:. .I|
|000006e0| 25 3b 3a ef 34 0d 07 d7 | 0a 20 ed 3a ed 3a ed 0d |%;:.4...|. .:.:..|
|000006f0| 07 d8 0b 20 e6 20 30 2c | 35 37 0d 07 d9 25 20 74 |... . 0,|57...% t|
|00000700| 68 65 74 61 3d 31 2f 49 | 6e 63 25 3a e3 20 50 61 |heta=1/I|nc%:. Pa|
|00000710| 74 25 3d 30 20 b8 20 50 | 61 74 63 68 65 73 25 0d |t%=0 . P|atches%.|
|00000720| 07 da 1f 20 e3 20 73 69 | 25 3d 30 20 b8 20 49 6e |... . si|%=0 . In|
|00000730| 63 25 3a 73 3d 74 68 65 | 74 61 2a 73 69 25 0d 07 |c%:s=the|ta*si%..|
|00000740| db 0a 20 6d 64 25 3d 31 | 0d 07 dc 2c 20 73 28 30 |.. md%=1|..., s(0|
|00000750| 2c 30 29 3d 73 5e 33 3a | 73 28 30 2c 31 29 3d 73 |,0)=s^3:|s(0,1)=s|
|00000760| 5e 32 3a 73 28 30 2c 32 | 29 3d 73 3a 73 28 30 2c |^2:s(0,2|)=s:s(0,|
|00000770| 33 29 3d 31 0d 07 df 1f | 20 e3 20 74 69 25 3d 30 |3)=1....| . ti%=0|
|00000780| 20 b8 20 49 6e 63 25 3a | 74 3d 74 68 65 74 61 2a | . Inc%:|t=theta*|
|00000790| 74 69 25 0d 07 e0 2d 20 | 74 28 30 2c 30 30 29 3d |ti%...- |t(0,00)=|
|000007a0| 74 5e 33 3a 74 28 31 2c | 30 29 3d 74 5e 32 3a 74 |t^3:t(1,|0)=t^2:t|
|000007b0| 28 32 2c 30 29 3d 74 3a | 74 28 33 2c 30 29 3d 31 |(2,0)=t:|t(3,0)=1|
|000007c0| 0d 07 e2 13 20 78 3d a4 | 4d 61 74 5f 4d 75 6c 74 |.... x=.|Mat_Mult|
|000007d0| 28 30 29 0d 07 e4 13 20 | 79 3d a4 4d 61 74 5f 4d |(0).... |y=.Mat_M|
|000007e0| 75 6c 74 28 31 29 0d 07 | e6 13 20 7a 3d a4 4d 61 |ult(1)..|.. z=.Ma|
|000007f0| 74 5f 4d 75 6c 74 28 32 | 29 0d 07 e7 2d 20 f4 20 |t_Mult(2|)...- . |
|00000800| 50 52 49 4e 54 54 41 42 | 28 30 2c 30 29 22 58 3d |PRINTTAB|(0,0)"X=|
|00000810| 22 78 22 20 59 3d 22 79 | 22 20 5a 3d 22 7a 3a 41 |"x" Y="y|" Z="z:A|
|00000820| 24 3d 47 45 54 24 0d 07 | ec 4c 20 50 61 74 63 68 |$=GET$..|.L Patch|
|00000830| 28 73 69 25 2c 74 69 25 | 2c 30 2c 50 61 74 25 29 |(si%,ti%|,0,Pat%)|
|00000840| 3d 78 3a 50 61 74 63 68 | 28 73 69 25 2c 74 69 25 |=x:Patch|(si%,ti%|
|00000850| 2c 31 2c 50 61 74 25 29 | 3d 79 3a 50 61 74 63 68 |,1,Pat%)|=y:Patch|
|00000860| 28 73 69 25 2c 74 69 25 | 2c 32 2c 50 61 74 25 29 |(si%,ti%|,2,Pat%)|
|00000870| 3d 7a 0d 07 fa 0c 20 e7 | 20 7a 3d 7a 20 8c 0d 07 |=z.... .| z=z ...|
|00000880| fd 56 20 e7 20 6d 64 25 | 3d 31 20 8c 20 ec 20 a4 |.V . md%|=1 . . .|
|00000890| 78 70 28 78 2c 79 2c 7a | 29 2c a4 79 70 28 78 2c |xp(x,y,z|),.yp(x,|
|000008a0| 79 2c 7a 29 3a ec 20 a4 | 78 70 28 78 2c 79 2c 7a |y,z):. .|xp(x,y,z|
|000008b0| 29 2c a4 79 70 28 78 2c | 79 2c 7a 29 3a 6d 64 25 |),.yp(x,|y,z):md%|
|000008c0| 3d 30 20 8b 20 f2 44 72 | 61 77 5f 33 44 28 78 2c |=0 . .Dr|aw_3D(x,|
|000008d0| 79 2c 7a 29 0d 08 07 31 | 20 f4 20 50 52 49 4e 54 |y,z)...1| . PRINT|
|000008e0| 20 54 41 42 28 30 2c 30 | 29 3b 46 4e 78 70 28 78 | TAB(0,0|);FNxp(x|
|000008f0| 2c 79 2c 7a 29 2c 22 20 | 22 2c 46 4e 79 70 28 78 |,y,z)," |",FNyp(x|
|00000900| 2c 79 2c 7a 29 0d 08 08 | 0c 20 cc 20 6d 64 25 3d |,y,z)...|. . md%=|
|00000910| 31 0d 08 09 06 20 cd 0d | 08 20 06 20 ed 0d 08 25 |1.... ..|. . ...%|
|00000920| 06 20 ed 0d 08 26 06 20 | ed 0d 0c 1b 05 e1 0d 11 |. ...&. |........|
|00000930| 94 10 dd 20 a4 78 70 28 | 78 2c 79 2c 7a 29 0d 11 |... .xp(|x,y,z)..|
|00000940| 9e 0e 20 78 3d 78 2a 53 | 63 61 6c 65 0d 11 a8 1b |.. x=x*S|cale....|
|00000950| 3d 78 2a 56 69 65 77 25 | 2f 28 2d 7a 2b 56 69 65 |=x*View%|/(-z+Vie|
|00000960| 77 25 29 2d 7a 2f 35 0d | 11 c6 10 dd 20 a4 79 70 |w%)-z/5.|.... .yp|
|00000970| 28 78 2c 79 2c 7a 29 0d | 11 d0 0e 20 79 3d 79 2a |(x,y,z).|... y=y*|
|00000980| 53 63 61 6c 65 0d 11 da | 1b 3d 79 2a 56 69 65 77 |Scale...|.=y*View|
|00000990| 25 2f 28 2d 7a 2b 56 69 | 65 77 25 29 2d 7a 2f 35 |%/(-z+Vi|ew%)-z/5|
|000009a0| 0d 11 f8 15 dd 20 f2 4d | 6f 76 65 5f 33 44 28 78 |..... .M|ove_3D(x|
|000009b0| 2c 79 2c 7a 29 0d 12 02 | 1c 20 ec 20 a4 78 70 28 |,y,z)...|. . .xp(|
|000009c0| 78 2c 79 2c 7a 29 2c a4 | 79 70 28 78 2c 79 2c 7a |x,y,z),.|yp(x,y,z|
|000009d0| 29 0d 12 0c 05 e1 0d 12 | 16 15 dd 20 f2 44 72 61 |).......|... .Dra|
|000009e0| 77 5f 33 44 28 78 2c 79 | 2c 7a 29 0d 12 20 1c 20 |w_3D(x,y|,z).. . |
|000009f0| df 20 a4 78 70 28 78 2c | 79 2c 7a 29 2c a4 79 70 |. .xp(x,|y,z),.yp|
|00000a00| 28 78 2c 79 2c 7a 29 0d | 12 2a 05 e1 0d 13 88 13 |(x,y,z).|.*......|
|00000a10| dd 20 f2 53 65 74 5f 4d | 61 74 72 69 63 65 73 0d |. .Set_M|atrices.|
|00000a20| 13 92 0e 20 de 20 4d 62 | 28 33 2c 33 29 0d 13 9c |... . Mb|(3,3)...|
|00000a30| 10 20 dc 20 2d 31 2c 33 | 2c 2d 33 2c 31 0d 13 a6 |. . -1,3|,-3,1...|
|00000a40| 0f 20 dc 20 33 2c 2d 36 | 2c 33 2c 30 0d 13 b0 0f |. . 3,-6|,3,0....|
|00000a50| 20 dc 20 2d 33 2c 33 2c | 30 2c 30 0d 13 ba 0e 20 | . -3,3,|0,0.... |
|00000a60| dc 20 31 2c 30 2c 30 2c | 30 0d 13 c4 0b 20 f7 20 |. 1,0,0,|0.... . |
|00000a70| 8d 74 5c 53 0d 13 ce 1a | 20 e3 20 72 25 3d 30 20 |.t\S....| . r%=0 |
|00000a80| b8 20 33 3a e3 20 63 25 | 3d 30 20 b8 20 33 0d 13 |. 3:. c%|=0 . 3..|
|00000a90| d8 10 20 f3 20 4d 62 28 | 72 25 2c 63 25 29 0d 13 |.. . Mb(|r%,c%)..|
|00000aa0| e2 08 20 ed 3a ed 0d 13 | eb 05 e1 0d 17 70 0e 20 |.. .:...|.....p. |
|00000ab0| dd 20 f2 70 6f 69 6e 74 | 73 0d 17 7a 1a 20 e3 20 |. .point|s..z. . |
|00000ac0| 49 25 3d 30 20 b8 20 33 | 3a e3 20 4a 25 3d 30 20 |I%=0 . 3|:. J%=0 |
|00000ad0| b8 20 33 0d 17 84 29 20 | 70 6f 69 6e 74 73 5f 78 |. 3...) |points_x|
|00000ae0| 28 49 25 2c 4a 25 29 3d | 50 6f 69 6e 74 25 28 49 |(I%,J%)=|Point%(I|
|00000af0| 25 2c 4a 25 2c 30 2c 50 | 61 74 25 29 0d 17 8e 08 |%,J%,0,P|at%)....|
|00000b00| 20 ed 3a ed 0d 17 a2 1a | 20 e3 20 49 25 3d 30 20 | .:.....| . I%=0 |
|00000b10| b8 20 33 3a e3 20 4a 25 | 3d 30 20 b8 20 33 0d 17 |. 3:. J%|=0 . 3..|
|00000b20| ac 24 20 70 6f 69 6e 74 | 73 5f 79 28 49 25 2c 4a |.$ point|s_y(I%,J|
|00000b30| 25 29 3d 50 6f 69 6e 74 | 25 28 49 25 2c 4a 25 2c |%)=Point|%(I%,J%,|
|00000b40| 31 29 0d 17 b6 08 20 ed | 3a ed 0d 17 ca 1a 20 e3 |1).... .|:..... .|
|00000b50| 20 49 25 3d 30 20 b8 20 | 33 3a e3 20 4a 25 3d 30 | I%=0 . |3:. J%=0|
|00000b60| 20 b8 20 33 0d 17 d4 24 | 20 70 6f 69 6e 74 73 5f | . 3...$| points_|
|00000b70| 7a 28 49 25 2c 4a 25 29 | 3d 50 6f 69 6e 74 25 28 |z(I%,J%)|=Point%(|
|00000b80| 49 25 2c 4a 25 2c 32 29 | 0d 17 de 08 20 ed 3a ed |I%,J%,2)|.... .:.|
|00000b90| 0d 18 37 05 e1 0d 1f 40 | 13 dd 20 a4 4d 61 74 5f |..7....@|.. .Mat_|
|00000ba0| 4d 75 6c 74 28 63 6f 29 | 0d 1f 54 2d 20 f4 20 4d |Mult(co)|..T- . M|
|00000bb0| 75 6c 74 69 70 6c 79 20 | 73 28 29 20 62 79 20 4d |ultiply |s() by M|
|00000bc0| 62 28 29 20 73 20 61 73 | 20 61 20 72 6f 77 20 76 |b() s as| a row v|
|00000bd0| 65 63 74 6f 72 0d 1f 56 | 29 20 e3 20 49 25 3d 30 |ector..V|) . I%=0|
|00000be0| 20 b8 20 30 3a e3 20 4a | 25 3d 30 20 b8 20 33 3a | . 0:. J|%=0 . 3:|
|00000bf0| 61 3d 30 3a e3 20 4b 25 | 3d 30 20 b8 20 33 0d 1f |a=0:. K%|=0 . 3..|
|00000c00| 5a 1b 20 61 3d 61 2b 73 | 28 49 25 2c 4b 25 29 2a |Z. a=a+s|(I%,K%)*|
|00000c10| 4d 62 28 4b 25 2c 4a 25 | 29 0d 1f 5b 39 20 f4 20 |Mb(K%,J%|)..[9 . |
|00000c20| 50 52 49 4e 54 20 73 28 | 49 25 2c 4b 25 29 22 20 |PRINT s(|I%,K%)" |
|00000c30| 22 4d 62 28 4b 25 2c 4a | 25 29 22 20 22 49 25 22 |"Mb(K%,J|%)" "I%"|
|00000c40| 20 22 4b 25 22 20 61 3d | 22 61 3a 41 24 3d 47 45 | "K%" a=|"a:A$=GE|
|00000c50| 54 24 0d 1f 5c 19 20 ed | 3a 74 65 6d 70 31 28 49 |T$..\. .|:temp1(I|
|00000c60| 25 2c 4a 25 29 3d 61 3a | ed 3a ed 0d 1f 68 2f 20 |%,J%)=a:|.:...h/ |
|00000c70| f4 20 4d 75 6c 74 69 70 | 6c 79 20 72 65 73 75 6c |. Multip|ly resul|
|00000c80| 74 20 62 79 20 50 6f 69 | 6e 74 25 28 2c 2c 63 6f |t by Poi|nt%(,,co|
|00000c90| 29 20 63 6f 3d 78 2c 79 | 2c 7a 0d 1f 6a 29 20 e3 |) co=x,y|,z..j) .|
|00000ca0| 20 49 25 3d 30 20 b8 20 | 30 3a e3 20 4a 25 3d 30 | I%=0 . |0:. J%=0|
|00000cb0| 20 b8 20 33 3a 61 3d 30 | 3a e3 20 4b 25 3d 30 20 | . 3:a=0|:. K%=0 |
|00000cc0| b8 20 33 0d 1f 6c 2b 20 | 61 3d 61 2b 74 65 6d 70 |. 3..l+ |a=a+temp|
|00000cd0| 31 28 49 25 2c 4b 25 29 | 2a 50 6f 69 6e 74 25 28 |1(I%,K%)|*Point%(|
|00000ce0| 4b 25 2c 4a 25 2c 63 6f | 2c 50 61 74 25 29 0d 1f |K%,J%,co|,Pat%)..|
|00000cf0| 6e 19 20 ed 3a 74 65 6d | 70 32 28 49 25 2c 4a 25 |n. .:tem|p2(I%,J%|
|00000d00| 29 3d 61 3a ed 3a ed 0d | 1f 7c 1e 20 f4 20 4d 75 |)=a:.:..|.|. . Mu|
|00000d10| 6c 74 69 70 6c 79 20 72 | 65 73 75 6c 74 20 62 79 |ltiply r|esult by|
|00000d20| 20 4d 62 28 29 0d 1f 7e | 29 20 e3 20 49 25 3d 30 | Mb()..~|) . I%=0|
|00000d30| 20 b8 20 30 3a e3 20 4a | 25 3d 30 20 b8 20 33 3a | . 0:. J|%=0 . 3:|
|00000d40| 61 3d 30 3a e3 20 4b 25 | 3d 30 20 b8 20 33 0d 1f |a=0:. K%|=0 . 3..|
|00000d50| 80 1f 20 61 3d 61 2b 74 | 65 6d 70 32 28 49 25 2c |.. a=a+t|emp2(I%,|
|00000d60| 4b 25 29 2a 4d 62 28 4b | 25 2c 4a 25 29 0d 1f 81 |K%)*Mb(K|%,J%)...|
|00000d70| 43 20 f4 20 50 52 49 4e | 54 20 74 65 6d 70 32 28 |C . PRIN|T temp2(|
|00000d80| 49 25 2c 4b 25 29 22 20 | 22 4d 62 28 4b 25 2c 4a |I%,K%)" |"Mb(K%,J|
|00000d90| 25 29 22 20 6a 25 3d 22 | 4a 25 22 20 6b 25 3d 22 |%)" j%="|J%" k%="|
|00000da0| 4b 25 22 20 61 3d 22 61 | 3a 41 24 3d 47 45 54 24 |K%" a="a|:A$=GET$|
|00000db0| 0d 1f 82 19 20 ed 3a 74 | 65 6d 70 31 28 49 25 2c |.... .:t|emp1(I%,|
|00000dc0| 4a 25 29 3d 61 3a ed 3a | ed 0d 1f 90 34 20 f4 20 |J%)=a:.:|....4 . |
|00000dd0| 4d 75 6c 74 69 70 6c 79 | 20 72 65 73 75 6c 74 20 |Multiply| result |
|00000de0| 62 79 20 54 74 20 2d 20 | 74 20 61 73 20 61 20 63 |by Tt - |t as a c|
|00000df0| 6f 6c 75 6d 6e 20 76 65 | 63 74 6f 72 65 0d 1f 92 |olumn ve|ctore...|
|00000e00| 1e 20 e3 20 49 25 3d 30 | 20 b8 20 30 3a 61 3d 30 |. . I%=0| . 0:a=0|
|00000e10| 3a e3 20 4a 25 3d 30 20 | b8 20 33 0d 1f 94 1d 20 |:. J%=0 |. 3.... |
|00000e20| 61 3d 61 2b 74 65 6d 70 | 31 28 49 25 2c 4a 25 29 |a=a+temp|1(I%,J%)|
|00000e30| 2a 74 28 4a 25 2c 30 29 | 0d 1f 95 41 20 f4 20 50 |*t(J%,0)|...A . P|
|00000e40| 52 49 4e 54 20 74 65 6d | 70 31 28 49 25 2c 4a 25 |RINT tem|p1(I%,J%|
|00000e50| 29 22 20 22 74 28 4a 25 | 2c 30 29 22 20 6a 25 3d |)" "t(J%|,0)" j%=|
|00000e60| 22 4a 25 22 20 6b 25 3d | 22 4b 25 22 20 61 3d 22 |"J%" k%=|"K%" a="|
|00000e70| 61 3a 41 24 3d 47 45 54 | 24 0d 1f 96 16 20 ed 3a |a:A$=GET|$.... .:|
|00000e80| 74 65 6d 70 32 28 49 25 | 2c 30 29 3d 61 3a ed 0d |temp2(I%|,0)=a:..|
|00000e90| 1f 98 14 20 f4 20 50 52 | 4f 43 41 3a 41 24 3d 47 |... . PR|OCA:A$=G|
|00000ea0| 45 54 24 0d 1f a3 0f 3d | 74 65 6d 70 32 28 30 2c |ET$....=|temp2(0,|
|00000eb0| 30 29 0d 23 28 0e dd 20 | f2 52 65 5f 44 72 61 77 |0).#(.. |.Re_Draw|
|00000ec0| 0d 23 2d 06 20 db 0d 23 | 30 18 20 e3 20 50 61 74 |.#-. ..#|0. . Pat|
|00000ed0| 25 3d 30 20 b8 20 50 61 | 74 63 68 65 73 25 0d 23 |%=0 . Pa|tches%.#|
|00000ee0| 32 14 20 e3 20 49 25 3d | 30 20 b8 20 49 6e 63 25 |2. . I%=|0 . Inc%|
|00000ef0| 2d 31 0d 23 3c 14 20 e3 | 20 4a 25 3d 30 20 b8 20 |-1.#<. .| J%=0 . |
|00000f00| 49 6e 63 25 2d 31 0d 23 | 3e 46 20 78 3d 50 61 74 |Inc%-1.#|>F x=Pat|
|00000f10| 63 68 28 49 25 2c 4a 25 | 2c 30 2c 50 61 74 25 29 |ch(I%,J%|,0,Pat%)|
|00000f20| 3a 79 3d 50 61 74 63 68 | 28 49 25 2c 4a 25 2c 31 |:y=Patch|(I%,J%,1|
|00000f30| 2c 50 61 74 25 29 3a 7a | 3d 50 61 74 63 68 28 49 |,Pat%):z|=Patch(I|
|00000f40| 25 2c 4a 25 2c 32 2c 50 | 61 74 25 29 0d 23 3f 4f |%,J%,2,P|at%).#?O|
|00000f50| 20 78 31 3d 50 61 74 63 | 68 28 49 25 2b 31 2c 4a | x1=Patc|h(I%+1,J|
|00000f60| 25 2c 30 2c 50 61 74 25 | 29 3a 79 31 3d 50 61 74 |%,0,Pat%|):y1=Pat|
|00000f70| 63 68 28 49 25 2b 31 2c | 4a 25 2c 31 2c 50 61 74 |ch(I%+1,|J%,1,Pat|
|00000f80| 25 29 3a 7a 31 3d 50 61 | 74 63 68 28 49 25 2b 31 |%):z1=Pa|tch(I%+1|
|00000f90| 2c 4a 25 2c 32 2c 50 61 | 74 25 29 0d 23 40 55 20 |,J%,2,Pa|t%).#@U |
|00000fa0| 78 32 3d 50 61 74 63 68 | 28 49 25 2b 31 2c 4a 25 |x2=Patch|(I%+1,J%|
|00000fb0| 2b 31 2c 30 2c 50 61 74 | 25 29 3a 79 32 3d 50 61 |+1,0,Pat|%):y2=Pa|
|00000fc0| 74 63 68 28 49 25 2b 31 | 2c 4a 25 2b 31 2c 31 2c |tch(I%+1|,J%+1,1,|
|00000fd0| 50 61 74 25 29 3a 7a 32 | 3d 50 61 74 63 68 28 49 |Pat%):z2|=Patch(I|
|00000fe0| 25 2b 31 2c 4a 25 2b 31 | 2c 32 2c 50 61 74 25 29 |%+1,J%+1|,2,Pat%)|
|00000ff0| 0d 23 41 4f 20 78 33 3d | 50 61 74 63 68 28 49 25 |.#AO x3=|Patch(I%|
|00001000| 2c 4a 25 2b 31 2c 30 2c | 50 61 74 25 29 3a 79 33 |,J%+1,0,|Pat%):y3|
|00001010| 3d 50 61 74 63 68 28 49 | 25 2c 4a 25 2b 31 2c 31 |=Patch(I|%,J%+1,1|
|00001020| 2c 50 61 74 25 29 3a 7a | 33 3d 50 61 74 63 68 28 |,Pat%):z|3=Patch(|
|00001030| 49 25 2c 4a 25 2b 31 2c | 32 2c 50 61 74 25 29 0d |I%,J%+1,|2,Pat%).|
|00001040| 23 46 22 20 f2 50 6f 6c | 79 5f 66 69 6c 28 28 49 |#F" .Pol|y_fil((I|
|00001050| 25 20 81 20 28 49 6e 63 | 25 2f 33 29 29 2a 31 32 |% . (Inc|%/3))*12|
|00001060| 29 0d 23 50 0a 20 ed 3a | ed 3a ed 0d 23 55 05 e1 |).#P. .:|.:..#U..|
|00001070| 0d 23 5a 12 20 e3 20 4a | 25 3d 30 20 b8 20 49 6e |.#Z. . J|%=0 . In|
|00001080| 63 25 0d 23 64 12 20 e3 | 20 49 25 3d 30 20 b8 20 |c%.#d. .| I%=0 . |
|00001090| 49 6e 63 25 0d 23 6e 37 | 20 78 3d 50 61 74 63 68 |Inc%.#n7| x=Patch|
|000010a0| 28 49 25 2c 4a 25 2c 30 | 29 3a 79 3d 50 61 74 63 |(I%,J%,0|):y=Patc|
|000010b0| 68 28 49 25 2c 4a 25 2c | 31 29 3a 7a 3d 50 61 74 |h(I%,J%,|1):z=Pat|
|000010c0| 63 68 28 49 25 2c 4a 25 | 2c 32 29 0d 23 6f 40 20 |ch(I%,J%|,2).#o@ |
|000010d0| 78 31 3d 50 61 74 63 68 | 28 49 25 2b 31 2c 4a 25 |x1=Patch|(I%+1,J%|
|000010e0| 2c 30 29 3a 79 31 3d 50 | 61 74 63 68 28 49 25 2b |,0):y1=P|atch(I%+|
|000010f0| 31 2c 4a 25 2c 31 29 3a | 7a 31 3d 50 61 74 63 68 |1,J%,1):|z1=Patch|
|00001100| 28 49 25 2b 31 2c 4a 25 | 2c 32 29 0d 23 70 46 20 |(I%+1,J%|,2).#pF |
|00001110| 78 32 3d 50 61 74 63 68 | 28 49 25 2b 31 2c 4a 25 |x2=Patch|(I%+1,J%|
|00001120| 2b 31 2c 30 29 3a 79 32 | 3d 50 61 74 63 68 28 49 |+1,0):y2|=Patch(I|
|00001130| 25 2b 31 2c 4a 25 2b 31 | 2c 31 29 3a 7a 32 3d 50 |%+1,J%+1|,1):z2=P|
|00001140| 61 74 63 68 28 49 25 2b | 31 2c 4a 25 2b 32 2c 32 |atch(I%+|1,J%+2,2|
|00001150| 29 0d 23 78 4f 20 e7 20 | 49 25 3d 30 20 8c 20 ec |).#xO . |I%=0 . .|
|00001160| 20 a4 78 70 28 78 2c 79 | 2c 7a 29 2c a4 79 70 28 | .xp(x,y|,z),.yp(|
|00001170| 78 2c 79 2c 7a 29 3a ec | 20 a4 78 70 28 78 2c 79 |x,y,z):.| .xp(x,y|
|00001180| 2c 7a 29 2c a4 79 70 28 | 78 2c 79 2c 7a 29 20 8b |,z),.yp(|x,y,z) .|
|00001190| 20 f2 44 72 61 77 5f 33 | 44 28 78 2c 79 2c 7a 29 | .Draw_3|D(x,y,z)|
|000011a0| 0d 23 82 08 20 ed 3a ed | 0d 23 8b 05 e1 0d 25 1c |.#.. .:.|.#....%.|
|000011b0| 13 dd 20 f2 50 6f 6c 79 | 5f 66 69 6c 28 63 25 29 |.. .Poly|_fil(c%)|
|000011c0| 0d 25 26 3f 20 f2 56 69 | 73 69 62 6c 65 28 78 2c |.%&? .Vi|sible(x,|
|000011d0| 79 2c 7a 2c 78 31 2c 79 | 31 2c 7a 31 2c 78 32 2c |y,z,x1,y|1,z1,x2,|
|000011e0| 79 32 2c 7a 32 2c 32 30 | 30 30 30 30 2c 35 30 30 |y2,z2,20|0000,500|
|000011f0| 30 30 30 2c 32 30 30 30 | 30 30 2c 43 73 6e 29 0d |000,2000|00,Csn).|
|00001200| 25 2b 0f 20 43 73 6e 3d | 94 28 43 73 6e 29 0d 25 |%+. Csn=|.(Csn).%|
|00001210| 2c 1e 20 f4 20 50 52 49 | 4e 54 20 63 25 2b 43 73 |,. . PRI|NT c%+Cs|
|00001220| 6e 2a 31 32 3a 41 24 3d | 47 45 54 24 0d 25 2e 0f |n*12:A$=|GET$.%..|
|00001230| 20 e6 20 30 2c 43 73 6e | 2a 31 36 0d 25 30 16 20 | . 0,Csn|*16.%0. |
|00001240| f4 20 47 43 4f 4c 20 30 | 2c 43 73 6e 2a 31 34 2b |. GCOL 0|,Csn*14+|
|00001250| 31 0d 25 35 1b 20 f4 20 | 50 52 49 4e 54 43 73 6e |1.%5. . |PRINTCsn|
|00001260| 2a 38 2b 38 3a 41 24 3d | 47 45 54 24 0d 25 3a 3a |*8+8:A$=|GET$.%::|
|00001270| 20 ec 20 a4 78 70 28 78 | 31 2c 79 31 2c 7a 31 29 | . .xp(x|1,y1,z1)|
|00001280| 2c a4 79 70 28 7a 31 2c | 79 31 2c 7a 31 29 3a ec |,.yp(z1,|y1,z1):.|
|00001290| 20 a4 78 70 28 78 2c 79 | 2c 7a 29 2c a4 79 70 28 | .xp(x,y|,z),.yp(|
|000012a0| 7a 2c 79 2c 7a 29 0d 25 | 44 25 20 f0 20 38 35 2c |z,y,z).%|D% . 85,|
|000012b0| a4 78 70 28 78 32 2c 79 | 32 2c 7a 32 29 2c a4 79 |.xp(x2,y|2,z2),.y|
|000012c0| 70 28 78 32 2c 79 32 2c | 7a 32 29 0d 25 49 42 20 |p(x2,y2,|z2).%IB |
|000012d0| f2 56 69 73 69 62 6c 65 | 28 78 31 2c 79 31 2c 7a |.Visible|(x1,y1,z|
|000012e0| 31 2c 78 32 2c 79 32 2c | 7a 32 2c 78 33 2c 79 33 |1,x2,y2,|z2,x3,y3|
|000012f0| 2c 7a 33 2c 32 30 30 30 | 30 30 2c 35 30 30 30 30 |,z3,2000|00,50000|
|00001300| 30 2c 32 30 30 30 30 30 | 2c 43 73 6e 29 0d 25 4b |0,200000|,Csn).%K|
|00001310| 0f 20 43 73 6e 3d 94 28 | 43 73 6e 29 0d 25 4c 0f |. Csn=.(|Csn).%L.|
|00001320| 20 e6 20 30 2c 43 73 6e | 2a 31 36 0d 25 4e 25 20 | . 0,Csn|*16.%N% |
|00001330| f0 20 38 35 2c a4 78 70 | 28 78 33 2c 79 33 2c 7a |. 85,.xp|(x3,y3,z|
|00001340| 33 29 2c a4 79 70 28 78 | 33 2c 79 33 2c 7a 33 29 |3),.yp(x|3,y3,z3)|
|00001350| 0d 25 7f 05 e1 0d 27 10 | 31 20 dd 20 f2 55 6e 69 |.%....'.|1 . .Uni|
|00001360| 74 56 65 63 28 58 53 2c | 59 53 2c 5a 53 2c 58 45 |tVec(XS,|YS,ZS,XE|
|00001370| 2c 59 45 2c 5a 45 2c f8 | 20 58 55 2c f8 20 59 55 |,YE,ZE,.| XU,. YU|
|00001380| 2c f8 20 5a 55 29 0d 27 | 1a 12 20 ea 20 4c 31 2c |,. ZU).'|.. . L1,|
|00001390| 4c 32 2c 4c 33 2c 55 4c | 0d 27 24 1f 20 4c 31 3d |L2,L3,UL|.'$. L1=|
|000013a0| 58 45 2d 58 53 3a 4c 32 | 3d 59 45 2d 59 53 3a 4c |XE-XS:L2|=YE-YS:L|
|000013b0| 33 3d 5a 45 2d 5a 53 0d | 27 2e 1c 20 55 4c 3d b6 |3=ZE-ZS.|'.. UL=.|
|000013c0| 28 4c 31 2a 4c 31 2b 4c | 32 2a 4c 32 2b 4c 33 2a |(L1*L1+L|2*L2+L3*|
|000013d0| 4c 33 29 0d 27 38 28 20 | 58 55 3d 4c 31 2f 55 4c |L3).'8( |XU=L1/UL|
|000013e0| 2b 58 53 3a 59 55 3d 4c | 32 2f 55 4c 2b 59 53 3a |+XS:YU=L|2/UL+YS:|
|000013f0| 5a 55 3d 4c 33 2f 55 4c | 2b 5a 53 0d 27 42 05 e1 |ZU=L3/UL|+ZS.'B..|
|00001400| 0d 27 4c 39 20 dd 20 f2 | 4e 6f 72 6d 61 6c 28 58 |.'L9 . .|Normal(X|
|00001410| 31 2c 59 31 2c 5a 31 2c | 58 32 2c 59 32 2c 5a 32 |1,Y1,Z1,|X2,Y2,Z2|
|00001420| 2c 58 33 2c 59 33 2c 5a | 33 2c f8 20 58 4e 2c f8 |,X3,Y3,Z|3,. XN,.|
|00001430| 20 59 4e 2c f8 20 5a 4e | 29 0d 27 56 21 20 ea 20 | YN,. ZN|).'V! . |
|00001440| 58 41 2c 58 42 2c 58 58 | 2c 59 41 2c 59 42 2c 59 |XA,XB,XX|,YA,YB,Y|
|00001450| 59 2c 5a 41 2c 5a 42 2c | 5a 5a 0d 27 60 1f 20 58 |Y,ZA,ZB,|ZZ.'`. X|
|00001460| 41 3d 58 31 2d 58 32 3a | 59 41 3d 59 31 2d 59 32 |A=X1-X2:|YA=Y1-Y2|
|00001470| 3a 5a 41 3d 5a 31 2d 5a | 32 0d 27 6a 1f 20 58 42 |:ZA=Z1-Z|2.'j. XB|
|00001480| 3d 58 33 2d 58 32 3a 59 | 42 3d 59 33 2d 59 32 3a |=X3-X2:Y|B=Y3-Y2:|
|00001490| 5a 42 3d 5a 33 2d 5a 32 | 0d 27 74 16 20 58 58 3d |ZB=Z3-Z2|.'t. XX=|
|000014a0| 59 42 2a 5a 41 2d 5a 42 | 2a 59 41 2b 58 32 0d 27 |YB*ZA-ZB|*YA+X2.'|
|000014b0| 7e 16 20 59 59 3d 58 41 | 2a 5a 42 2d 58 42 2a 5a |~. YY=XA|*ZB-XB*Z|
|000014c0| 41 2b 59 32 0d 27 88 16 | 20 5a 5a 3d 58 42 2a 59 |A+Y2.'..| ZZ=XB*Y|
|000014d0| 41 2d 58 41 2a 59 42 2b | 5a 32 0d 27 92 29 20 f2 |A-XA*YB+|Z2.'.) .|
|000014e0| 55 6e 69 74 56 65 63 28 | 58 32 2c 59 32 2c 5a 32 |UnitVec(|X2,Y2,Z2|
|000014f0| 2c 58 58 2c 59 59 2c 5a | 5a 2c 58 4e 2c 59 4e 2c |,XX,YY,Z|Z,XN,YN,|
|00001500| 5a 4e 29 0d 27 9c 05 e1 | 0d 27 a6 2c 20 dd f2 44 |ZN).'...|.'., ..D|
|00001510| 6f 74 28 58 31 2c 59 31 | 2c 5a 31 2c 58 32 2c 59 |ot(X1,Y1|,Z1,X2,Y|
|00001520| 32 2c 5a 32 2c 58 33 2c | 59 33 2c 5a 33 2c f8 20 |2,Z2,X3,|Y3,Z3,. |
|00001530| 43 73 6e 29 0d 27 b0 18 | 20 ea 20 58 41 2c 58 42 |Csn).'..| . XA,XB|
|00001540| 2c 59 41 2c 59 42 2c 5a | 41 2c 5a 42 0d 27 ba 1f |,YA,YB,Z|A,ZB.'..|
|00001550| 20 58 41 3d 58 31 2d 58 | 32 3a 59 41 3d 59 31 2d | XA=X1-X|2:YA=Y1-|
|00001560| 59 32 3a 5a 41 3d 5a 31 | 2d 5a 32 0d 27 c4 1f 20 |Y2:ZA=Z1|-Z2.'.. |
|00001570| 58 42 3d 58 33 2d 58 32 | 3a 59 42 3d 59 33 2d 59 |XB=X3-X2|:YB=Y3-Y|
|00001580| 32 3a 5a 42 3d 5a 33 2d | 5a 32 0d 27 ce 1a 20 43 |2:ZB=Z3-|Z2.'.. C|
|00001590| 73 6e 3d 58 41 2a 58 42 | 2b 59 41 2a 59 42 2b 5a |sn=XA*XB|+YA*YB+Z|
|000015a0| 41 2a 5a 42 0d 27 d8 05 | e1 0d 27 f6 05 e1 0d 28 |A*ZB.'..|..'....(|
|000015b0| 00 39 dd 20 f2 56 69 73 | 69 62 6c 65 28 58 31 2c |.9. .Vis|ible(X1,|
|000015c0| 59 31 2c 5a 31 2c 58 32 | 2c 59 32 2c 5a 32 2c 58 |Y1,Z1,X2|,Y2,Z2,X|
|000015d0| 33 2c 59 33 2c 5a 33 2c | 56 58 2c 56 59 2c 56 5a |3,Y3,Z3,|VX,VY,VZ|
|000015e0| 2c f8 20 43 73 6e 29 0d | 28 0a 31 20 f2 4e 6f 72 |,. Csn).|(.1 .Nor|
|000015f0| 6d 61 6c 28 58 31 2c 59 | 31 2c 5a 31 2c 58 32 2c |mal(X1,Y|1,Z1,X2,|
|00001600| 59 32 2c 5a 32 2c 58 33 | 2c 59 33 2c 5a 33 2c 58 |Y2,Z2,X3|,Y3,Z3,X|
|00001610| 4e 2c 59 4e 2c 5a 4e 29 | 0d 28 14 29 20 f2 55 6e |N,YN,ZN)|.(.) .Un|
|00001620| 69 74 56 65 63 28 58 32 | 2c 59 32 2c 5a 32 2c 56 |itVec(X2|,Y2,Z2,V|
|00001630| 58 2c 56 59 2c 56 5a 2c | 58 55 2c 59 55 2c 5a 55 |X,VY,VZ,|XU,YU,ZU|
|00001640| 29 0d 28 1e 29 20 f2 44 | 6f 74 28 58 55 2c 59 55 |).(.) .D|ot(XU,YU|
|00001650| 2c 5a 55 2c 58 32 2c 59 | 32 2c 5a 32 2c 58 4e 2c |,ZU,X2,Y|2,Z2,XN,|
|00001660| 59 4e 2c 5a 4e 2c 43 73 | 6e 29 0d 28 28 20 20 f4 |YN,ZN,Cs|n).(( .|
|00001670| 20 50 52 49 4e 54 20 54 | 41 42 28 30 2c 30 29 43 | PRINT T|AB(0,0)C|
|00001680| 73 6e 3a 41 24 3d 47 45 | 54 24 0d 28 32 05 e1 0d |sn:A$=GE|T$.(2...|
|00001690| 2a f8 0f dd 20 f2 53 65 | 74 5f 67 72 65 79 0d 2a |*... .Se|t_grey.*|
|000016a0| fd 18 20 ef 20 31 39 2c | 30 2c 31 36 2c 30 2c 30 |.. . 19,|0,16,0,0|
|000016b0| 2c 31 35 2a 31 36 0d 2b | 02 10 20 e3 20 49 25 3d |,15*16.+|.. . I%=|
|000016c0| 31 20 b8 20 31 35 0d 2b | 0c 21 20 ef 20 31 39 2c |1 . 15.+|.! . 19,|
|000016d0| 49 25 2c 31 36 2c 49 25 | 2a 31 36 2c 49 25 2a 31 |I%,16,I%|*16,I%*1|
|000016e0| 36 2c 49 25 2a 31 36 0d | 2b 16 06 20 ed 0d 2b 20 |6,I%*16.|+.. ..+ |
|000016f0| 05 e1 0d 2b 2a 0e dd f2 | 53 65 65 5f 67 72 65 79 |...+*...|See_grey|
|00001700| 0d 2b 34 0c 20 fb 20 31 | 32 39 3a db 0d 2b 39 0f |.+4. . 1|29:..+9.|
|00001710| 20 e3 20 4a 25 3d 30 20 | b8 20 33 0d 2b 3e 10 20 | . J%=0 |. 3.+>. |
|00001720| e3 20 49 25 3d 31 20 b8 | 20 31 35 0d 2b 48 0a 20 |. I%=1 .| 15.+H. |
|00001730| e6 30 2c 49 25 0d 2b 52 | 34 20 ec 20 30 2c 49 25 |.0,I%.+R|4 . 0,I%|
|00001740| 2a 31 36 2b 31 36 2b 4a | 25 2a 31 36 2a 31 35 3a |*16+16+J|%*16*15:|
|00001750| f0 20 31 30 31 2c 31 32 | 37 39 2c 49 25 2a 31 36 |. 101,12|79,I%*16|
|00001760| 2b 4a 25 2a 31 36 2a 31 | 35 0d 2b 5c 06 20 ed 0d |+J%*16*1|5.+\. ..|
|00001770| 2b 61 06 20 ed 0d 2b 66 | 05 e1 0d 2b 70 1c dd 20 |+a. ..+f|...+p.. |
|00001780| f2 47 3a f2 53 65 74 5f | 67 72 65 79 3a f2 53 65 |.G:.Set_|grey:.Se|
|00001790| 65 5f 67 72 65 79 0d 2b | 79 05 e1 0d 2f 44 13 dd |e_grey.+|y.../D..|
|000017a0| 20 f2 4c 6f 61 64 43 6f | 6c 54 61 62 6c 65 0d 2f | .LoadCo|lTable./|
|000017b0| 4e 14 58 25 3d 8e 28 22 | 43 6f 6c 54 61 62 6c 65 |N.X%=.("|ColTable|
|000017c0| 22 29 0d 2f 53 0f 20 de | 20 63 6f 6c 73 25 39 31 |")./S. .| cols%91|
|000017d0| 32 0d 2f 58 11 20 e3 20 | 49 25 3d 30 20 b8 20 39 |2./X. . |I%=0 . 9|
|000017e0| 31 31 0d 2f 62 12 20 63 | 6f 6c 73 25 3f 49 25 3d |11./b. c|ols%?I%=|
|000017f0| 9a 23 58 25 0d 2f 6c 06 | 20 ed 0d 2f 71 09 20 d9 |.#X%./l.| ../q. .|
|00001800| 23 58 25 0d 2f 76 05 e1 | 0d 36 b0 0e dd 20 f2 53 |#X%./v..|.6... .S|
|00001810| 45 45 46 49 4c 4d 0d 36 | ba 1b 20 db 3a f1 22 70 |EEFILM.6|.. .:."p|
|00001820| 72 65 73 73 20 73 70 61 | 63 65 62 61 72 2e 2e 2e |ress spa|cebar...|
|00001830| 22 0d 36 c4 13 20 e3 20 | 49 25 3d 30 20 b8 20 53 |".6.. . |I%=0 . S|
|00001840| 6e 25 2d 31 0d 3a b6 1d | 20 ff 28 22 53 43 48 4f |n%-1.:..| .("SCHO|
|00001850| 4f 53 45 20 63 75 62 69 | 63 22 2b c3 28 49 25 29 |OSE cubi|c"+.(I%)|
|00001860| 29 0d 3a c0 14 20 f0 20 | 26 45 44 2c 2d 32 30 30 |).:.. . |&ED,-200|
|00001870| 2c 2d 31 30 30 0d 3a ca | 09 20 41 24 3d be 0d 3a |,-100.:.|. A$=..:|
|00001880| d4 06 20 ed 0d 3a de 0b | 20 e5 20 8d 64 44 76 0d |.. ..:..| . .dDv.|
|00001890| ff | |. | |
+--------+-------------------------+-------------------------+--------+--------+
