/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / magazines / c=hacking / code / 10 / shape3.2.prg

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 1c 21 1c 00 00 8f 20 | 43 55 42 45 33 44 20 53 |..!.... |CUBE3D S|
|00000010| 48 41 50 45 20 49 4e 49 | 54 20 50 52 4f 47 52 41 |HAPE INI|T PROGRA|
|00000020| 4d 00 47 1c 05 00 97 35 | 31 2c 32 35 35 3a 97 35 |M.G....5|1,255:.5|
|00000030| 32 2c 31 32 37 3a 97 35 | 35 2c 32 35 35 3a 97 35 |2,127:.5|5,255:.5|
|00000040| 36 2c 31 32 37 3a 9c 00 | 6e 1c 62 00 8f 20 4d 41 |6,127:..|n.b.. MA|
|00000050| 49 4e 20 50 52 4f 47 52 | 41 4d 20 53 54 41 52 54 |IN PROGR|AM START|
|00000060| 53 20 41 54 20 4c 49 4e | 45 20 35 30 30 30 00 74 |S AT LIN|E 5000.t|
|00000070| 1c 63 00 3a 00 88 1c 64 | 00 8f 20 50 52 4f 47 52 |.c.:...d|.. PROGR|
|00000080| 41 4d 20 4e 4f 54 45 53 | 00 9a 1c 6e 00 8f 20 53 |AM NOTES|...n.. S|
|00000090| 4c 4a 20 36 2f 31 36 2f | 39 35 00 b0 1c 78 00 8f |LJ 6/16/|95...x..|
|000000a0| 20 44 41 54 41 20 46 4f | 52 4d 41 54 20 49 53 3a | DATA FO|RMAT IS:|
|000000b0| 00 d6 1c 7d 00 8f 20 4e | 55 4d 50 4f 49 4e 54 53 |...}.. N|UMPOINTS|
|000000c0| 2c 58 31 2c 59 31 2c 5a | 31 2c 58 32 2c 59 32 2c |,X1,Y1,Z|1,X2,Y2,|
|000000d0| 5a 32 2c 2e 2e 2e 00 f7 | 1c 82 00 8f 20 54 48 45 |Z2,.....|.... THE|
|000000e0| 20 50 4f 4c 59 47 4f 4e | 20 4c 49 53 54 20 2a 4d | POLYGON| LIST *M|
|000000f0| 55 53 54 2a 20 42 45 00 | 15 1d 87 00 8f 20 54 45 |UST* BE.|..... TE|
|00000100| 52 4d 49 4e 41 54 45 44 | 20 57 49 54 48 20 41 20 |RMINATED| WITH A |
|00000110| 5a 45 52 4f 21 00 1b 1d | 89 00 3a 00 3e 1d 8c 00 |ZERO!...|..:.>...|
|00000120| 8f 20 4f 46 20 43 4f 55 | 52 53 45 2c 20 54 48 45 |. OF COU|RSE, THE|
|00000130| 52 45 20 49 53 20 41 20 | 4c 4f 54 20 4f 46 00 5e |RE IS A |LOT OF.^|
|00000140| 1d 91 00 8f 20 44 55 50 | 4c 49 43 41 54 49 4f 4e |.... DUP|LICATION|
|00000150| 20 44 52 41 57 49 4e 47 | 20 4c 49 4e 45 53 00 83 | DRAWING| LINES..|
|00000160| 1d 93 00 8f 20 57 48 45 | 4e 20 46 41 43 45 53 20 |.... WHE|N FACES |
|00000170| 41 52 45 4e 27 54 20 42 | 45 49 4e 47 20 46 49 4c |AREN'T B|EING FIL|
|00000180| 4c 45 44 00 a6 1d 96 00 | 8f 20 41 20 46 41 53 54 |LED.....|. A FAST|
|00000190| 20 50 52 4f 47 52 41 4d | 20 57 4f 55 4c 44 4e 27 | PROGRAM| WOULDN'|
|000001a0| 54 20 44 52 41 57 00 ca | 1d a0 00 8f 20 54 48 45 |T DRAW..|.... THE|
|000001b0| 20 53 41 4d 45 20 4c 49 | 4e 45 20 54 57 49 43 45 | SAME LI|NE TWICE|
|000001c0| 2c 20 42 55 54 20 54 48 | 49 53 00 e8 1d a5 00 8f |, BUT TH|IS......|
|000001d0| 20 49 53 20 47 4f 4f 44 | 20 45 4e 4f 55 47 48 20 | IS GOOD| ENOUGH |
|000001e0| 46 4f 52 20 4e 4f 57 21 | 00 0a 1e a7 00 8f 20 4f |FOR NOW!|...... O|
|000001f0| 46 20 43 4f 55 52 53 45 | 2c 20 46 4f 52 20 46 49 |F COURSE|, FOR FI|
|00000200| 4c 4c 45 44 20 46 41 43 | 45 53 00 2b 1e a8 00 8f |LLED FAC|ES.+....|
|00000210| 20 54 48 49 53 20 49 53 | 20 4e 4f 20 4c 4f 4e 47 | THIS IS| NO LONG|
|00000220| 45 52 20 41 4e 20 49 53 | 53 55 45 00 31 1e aa 00 |ER AN IS|SUE.1...|
|00000230| 3a 00 56 1e b4 00 8f 20 | 46 45 45 4c 20 46 52 45 |:.V.... |FEEL FRE|
|00000240| 45 20 54 4f 20 50 55 54 | 20 59 4f 55 52 20 4f 57 |E TO PUT| YOUR OW|
|00000250| 4e 20 44 41 54 41 00 7c | 1e b9 00 8f 20 49 4e 2c |N DATA.||.... IN,|
|00000260| 20 42 55 54 20 43 48 41 | 4e 47 45 20 54 48 45 20 | BUT CHA|NGE THE |
|00000270| 50 4f 4b 45 20 49 4e 20 | 4c 49 4e 45 00 98 1e be |POKE IN |LINE....|
|00000280| 00 8f 20 35 30 30 35 20 | 54 4f 20 55 53 45 20 43 |.. 5005 |TO USE C|
|00000290| 31 20 41 4e 44 20 43 32 | 00 9e 1e c8 00 3a 00 c3 |1 AND C2|.....:..|
|000002a0| 1e d2 00 8f 20 53 4f 52 | 52 59 20 41 42 4f 55 54 |.... SOR|RY ABOUT|
|000002b0| 20 53 4f 4d 45 20 4f 46 | 20 54 48 45 20 4c 49 54 | SOME OF| THE LIT|
|000002c0| 54 4c 45 00 de 1e d7 00 | 8f 20 42 55 47 53 2c 20 |TLE.....|. BUGS, |
|000002d0| 45 52 2e 2e 2e 20 46 45 | 41 54 55 52 45 53 00 fe |ER... FE|ATURES..|
|000002e0| 1e dc 00 8f 20 54 48 49 | 53 20 57 41 53 20 41 20 |.... THI|S WAS A |
|000002f0| 52 45 41 4c 20 52 55 53 | 48 20 4a 4f 42 2e 00 04 |REAL RUS|H JOB...|
|00000300| 1f e6 00 3a 00 27 1f f0 | 00 8f 20 41 4e 44 20 49 |...:.'..|.. AND I|
|00000310| 46 20 59 4f 55 20 46 45 | 45 4c 20 53 4f 20 49 4e |F YOU FE|EL SO IN|
|00000320| 43 4c 49 4e 45 44 2c 00 | 44 1f fa 00 8f 20 57 52 |CLINED,.|D.... WR|
|00000330| 49 54 45 20 54 4f 20 53 | 4a 55 44 44 40 4e 57 55 |ITE TO S|JUDD@NWU|
|00000340| 2e 45 44 55 00 4a 1f 04 | 01 3a 00 69 1f 0e 01 8f |.EDU.J..|.:.i....|
|00000350| 20 41 4e 44 20 41 42 4f | 56 45 20 41 4c 4c 2c 20 | AND ABO|VE ALL, |
|00000360| 48 41 56 45 20 46 55 4e | 21 00 6f 1f 18 01 3a 00 |HAVE FUN|!.o...:.|
|00000370| 81 1f e6 03 8f 20 46 49 | 52 53 54 20 53 48 41 50 |..... FI|RST SHAP|
|00000380| 45 00 97 1f e7 03 41 31 | b2 c2 28 36 31 29 3a 41 |E.....A1|..(61):A|
|00000390| 32 b2 c2 28 36 32 29 00 | c7 1f e8 03 83 20 34 2c |2..(62).|..... 4,|
|000003a0| 2d 32 36 2c 2d 32 36 2c | 36 34 2c 32 36 2c 2d 32 |-26,-26,|64,26,-2|
|000003b0| 36 2c 36 34 2c 32 36 2c | 36 34 2c 36 34 2c 2d 32 |6,64,26,|64,64,-2|
|000003c0| 36 2c 36 34 2c 36 34 00 | f3 1f f2 03 83 20 34 2c |6,64,64.|..... 4,|
|000003d0| 2d 32 36 2c 2d 32 36 2c | 30 2c 32 36 2c 2d 32 36 |-26,-26,|0,26,-26|
|000003e0| 2c 30 2c 32 36 2c 36 34 | 2c 30 2c 2d 32 36 2c 36 |,0,26,64|,0,-26,6|
|000003f0| 34 2c 30 00 17 20 fc 03 | 83 20 33 2c 30 2c 2d 32 |4,0.. ..|. 3,0,-2|
|00000400| 36 2c 33 32 2c 31 36 2c | 33 32 2c 33 32 2c 2d 31 |6,32,16,|32,32,-1|
|00000410| 36 2c 33 32 2c 33 32 00 | 1f 20 06 04 83 20 30 00 |6,32,32.|. ... 0.|
|00000420| 32 20 4a 04 8f 20 53 45 | 43 4f 4e 44 20 53 48 41 |2 J.. SE|COND SHA|
|00000430| 50 45 00 48 20 4b 04 42 | 31 b2 c2 28 36 31 29 3a |PE.H K.B|1..(61):|
|00000440| 42 32 b2 c2 28 36 32 29 | 00 7c 20 4c 04 83 20 34 |B2..(62)|.| L.. 4|
|00000450| 2c 2d 31 35 2c 33 30 2c | 2d 31 32 2c 2d 31 35 2c |,-15,30,|-12,-15,|
|00000460| 2d 33 30 2c 2d 31 32 2c | 2d 35 37 2c 2d 33 30 2c |-30,-12,|-57,-30,|
|00000470| 2d 33 2c 2d 35 31 2c 2d | 36 2c 2d 33 00 ac 20 56 |-3,-51,-|6,-3.. V|
|00000480| 04 83 20 34 2c 31 35 2c | 33 30 2c 2d 31 32 2c 35 |.. 4,15,|30,-12,5|
|00000490| 31 2c 2d 36 2c 2d 33 2c | 35 37 2c 2d 33 30 2c 2d |1,-6,-3,|57,-30,-|
|000004a0| 33 2c 31 35 2c 2d 33 30 | 2c 2d 31 32 00 e0 20 60 |3,15,-30|,-12.. `|
|000004b0| 04 83 20 34 2c 31 35 2c | 33 30 2c 2d 31 32 2c 31 |.. 4,15,|30,-12,1|
|000004c0| 35 2c 2d 33 30 2c 2d 31 | 32 2c 2d 31 35 2c 2d 33 |5,-30,-1|2,-15,-3|
|000004d0| 30 2c 2d 31 32 2c 2d 31 | 35 2c 33 30 2c 2d 31 32 |0,-12,-1|5,30,-12|
|000004e0| 00 24 21 6a 04 83 20 37 | 2c 31 35 2c 2d 33 30 2c |.$!j.. 7|,15,-30,|
|000004f0| 2d 31 32 2c 35 37 2c 2d | 33 30 2c 2d 33 2c 33 33 |-12,57,-|30,-3,33|
|00000500| 2c 2d 33 30 2c 36 2c 30 | 2c 2d 33 30 2c 31 32 2c |,-30,6,0|,-30,12,|
|00000510| 2d 33 33 2c 2d 33 30 2c | 36 2c 2d 35 37 2c 2d 33 |-33,-30,|6,-57,-3|
|00000520| 30 2c 2d 33 00 36 21 6c | 04 83 20 2d 31 35 2c 2d |0,-3.6!l|.. -15,-|
|00000530| 33 30 2c 2d 31 32 00 5b | 21 74 04 83 20 33 2c 33 |30,-12.[|!t.. 3,3|
|00000540| 33 2c 2d 33 30 2c 30 2c | 33 33 2c 2d 33 30 2c 2d |3,-30,0,|33,-30,-|
|00000550| 34 2c 33 39 2c 2d 33 30 | 2c 2d 32 00 83 21 7e 04 |4,39,-30|,-2..!~.|
|00000560| 83 20 33 2c 2d 33 33 2c | 2d 33 30 2c 30 2c 2d 33 |. 3,-33,|-30,0,-3|
|00000570| 39 2c 2d 33 30 2c 2d 32 | 2c 2d 33 33 2c 2d 33 30 |9,-30,-2|,-33,-30|
|00000580| 2c 2d 34 00 af 21 88 04 | 83 20 34 2c 36 2c 2d 33 |,-4..!..|. 4,6,-3|
|00000590| 30 2c 33 2c 36 2c 2d 33 | 30 2c 2d 36 2c 31 38 2c |0,3,6,-3|0,-6,18,|
|000005a0| 2d 33 30 2c 2d 34 2c 31 | 38 2c 2d 33 30 2c 31 00 |-30,-4,1|8,-30,1.|
|000005b0| df 21 92 04 83 20 34 2c | 2d 36 2c 2d 33 30 2c 33 |.!... 4,|-6,-30,3|
|000005c0| 2c 2d 31 38 2c 2d 33 30 | 2c 31 2c 2d 31 38 2c 2d |,-18,-30|,1,-18,-|
|000005d0| 33 30 2c 2d 34 2c 2d 36 | 2c 2d 33 30 2c 2d 36 00 |30,-4,-6|,-30,-6.|
|000005e0| 07 22 9c 04 83 20 33 2c | 2d 35 37 2c 2d 33 30 2c |."... 3,|-57,-30,|
|000005f0| 2d 33 2c 2d 33 33 2c 2d | 33 30 2c 36 2c 2d 35 31 |-3,-33,-|30,6,-51|
|00000600| 2c 2d 31 32 2c 2d 33 00 | 2f 22 a6 04 83 20 33 2c |,-12,-3.|/"... 3,|
|00000610| 2d 33 33 2c 2d 33 30 2c | 36 2c 2d 31 35 2c 33 30 |-33,-30,|6,-15,30|
|00000620| 2c 2d 31 32 2c 2d 35 31 | 2c 2d 31 32 2c 2d 33 00 |,-12,-51|,-12,-3.|
|00000630| 53 22 b0 04 83 20 33 2c | 2d 31 35 2c 33 30 2c 2d |S"... 3,|-15,30,-|
|00000640| 31 32 2c 2d 33 33 2c 2d | 33 30 2c 36 2c 30 2c 36 |12,-33,-|30,6,0,6|
|00000650| 2c 31 32 00 75 22 ba 04 | 83 20 33 2c 30 2c 36 2c |,12.u"..|. 3,0,6,|
|00000660| 31 32 2c 2d 33 33 2c 2d | 33 30 2c 36 2c 30 2c 2d |12,-33,-|30,6,0,-|
|00000670| 33 30 2c 31 32 00 99 22 | c4 04 83 20 33 2c 31 35 |30,12.."|... 3,15|
|00000680| 2c 33 30 2c 2d 31 32 2c | 2d 31 35 2c 33 30 2c 2d |,30,-12,|-15,30,-|
|00000690| 31 32 2c 30 2c 36 2c 31 | 32 00 ba 22 ce 04 83 20 |12,0,6,1|2.."... |
|000006a0| 33 2c 30 2c 2d 33 30 2c | 31 32 2c 33 33 2c 2d 33 |3,0,-30,|12,33,-3|
|000006b0| 30 2c 36 2c 30 2c 36 2c | 31 32 00 dc 22 d8 04 83 |0,6,0,6,|12.."...|
|000006c0| 20 33 2c 30 2c 36 2c 31 | 32 2c 33 33 2c 2d 33 30 | 3,0,6,1|2,33,-30|
|000006d0| 2c 36 2c 31 35 2c 33 30 | 2c 2d 31 32 00 01 23 e2 |,6,15,30|,-12..#.|
|000006e0| 04 83 20 33 2c 31 35 2c | 33 30 2c 2d 31 32 2c 33 |.. 3,15,|30,-12,3|
|000006f0| 33 2c 2d 33 30 2c 36 2c | 35 31 2c 2d 31 32 2c 2d |3,-30,6,|51,-12,-|
|00000700| 33 00 26 23 ec 04 83 20 | 33 2c 33 33 2c 2d 33 30 |3.&#... |3,33,-30|
|00000710| 2c 36 2c 35 37 2c 2d 33 | 30 2c 2d 33 2c 35 31 2c |,6,57,-3|0,-3,51,|
|00000720| 2d 31 32 2c 2d 33 00 2e | 23 f6 04 83 20 30 00 40 |-12,-3..|#... 0.@|
|00000730| 23 12 05 8f 20 54 48 49 | 52 44 20 53 48 41 50 45 |#... THI|RD SHAPE|
|00000740| 00 56 23 13 05 43 31 b2 | c2 28 36 31 29 3a 43 32 |.V#..C1.|.(61):C2|
|00000750| b2 c2 28 36 32 29 00 70 | 23 14 05 8f 20 59 4f 55 |..(62).p|#... YOU|
|00000760| 52 20 44 41 54 41 20 47 | 4f 45 53 20 48 45 52 45 |R DATA G|OES HERE|
|00000770| 00 78 23 d0 07 83 20 30 | 00 8c 23 88 13 42 50 b2 |.x#... 0|..#..BP.|
|00000780| 32 35 36 ac 28 39 ac 31 | 36 aa 36 29 00 b0 23 8c |256.(9.1|6.6)..#.|
|00000790| 13 8f 20 43 48 41 4e 47 | 45 20 42 45 4c 4f 57 20 |.. CHANG|E BELOW |
|000007a0| 54 4f 20 50 4f 49 4e 54 | 20 54 4f 20 44 41 54 41 |TO POINT| TO DATA|
|000007b0| 00 c2 23 8d 13 97 36 35 | 2c 42 31 3a 97 36 36 2c |..#...65|,B1:.66,|
|000007c0| 42 32 00 e1 23 92 13 87 | 4e 3a 97 42 50 2c 4e 3a |B2..#...|N:.BP,N:|
|000007d0| 42 50 b2 42 50 aa 31 3a | 8b 4e b2 30 a7 35 30 35 |BP.BP.1:|.N.0.505|
|000007e0| 30 00 e9 23 97 13 99 20 | 4e 00 06 24 9c 13 81 49 |0..#... |N..$...I|
|000007f0| b2 31 a4 33 ac 4e 3a 87 | 50 3a 8b 50 b3 30 a7 50 |.1.3.N:.|P:.P.0.P|
|00000800| b2 32 35 36 aa 50 00 18 | 24 a6 13 97 42 50 2c 50 |.256.P..|$...BP,P|
|00000810| 3a 42 50 b2 42 50 aa 31 | 00 22 24 ab 13 99 22 2e |:BP.BP.1|."$...".|
|00000820| 22 3b 00 2e 24 b0 13 82 | 3a 89 35 30 31 30 00 3f |";..$...|:.5010.?|
|00000830| 24 ba 13 9e 33 32 37 36 | 38 3a 9c 3a 8c 3a 80 00 |$...3276|8:.:.:..|
|00000840| 00 00 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000850| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000860| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000870| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
+--------+-------------------------+-------------------------+--------+--------+