Mac Mania 2

home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Algorithms Folder / upload / cube.bas < prev next >
Unknown | 1994-05-18 | 2.1 KB | [ZTKN/ZBAS]
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
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`100%`	file	data	default
id metadata
key	value
macFileType	`[ZTKN]`
macFileCreator	`[ZBAS]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3a 00 00 00 00 00 00 | f0 5a 63 6f 70 79 72 69 |.:......|.Zcopyri|
|00000010| 67 68 74 20 31 39 39 34 | 20 62 79 20 53 74 65 70 |ght 1994| by Step|
|00000020| 68 65 6e 20 42 6f 65 72 | 6e 65 72 2c 20 65 79 65 |hen Boer|ner, eye|
|00000030| 20 73 79 73 74 65 6d 73 | 2d 20 00 00 00 44 00 00 | systems|- ...D..|
|00000040| ff c4 00 00 f0 5a 43 49 | 53 2d 37 34 32 30 33 2c |.....ZCI|S-74203,|
|00000050| 32 32 31 37 20 20 20 41 | 4f 4c 2d 49 53 49 53 49 |2217   A|OL-ISISI|
|00000060| 4e 43 20 20 42 4d 55 47 | 2c 20 49 4e 54 45 52 4e |NC  BMUG|, INTERN|
|00000070| 45 54 20 45 59 45 53 59 | 53 40 43 52 4c 2e 43 4f |ET EYESY|S@CRL.CO|
|00000080| 4d 00 00 2c 00 00 ff ba | 00 00 f0 5a 4d 41 59 20 |M..,....|...ZMAY |
|00000090| 4e 4f 54 20 42 45 20 55 | 53 45 44 20 46 4f 52 20 |NOT BE U|SED FOR |
|000000a0| 43 4f 4d 4d 45 52 43 49 | 41 4c 20 47 41 49 4e 00 |COMMERCI|AL GAIN.|
|000000b0| 00 10 00 01 ff d2 00 00 | f0 5a 54 52 4f 4e 20 62 |........|.ZTRON b|
|000000c0| 00 00 00 2e 00 02 ff ee | 00 00 f0 13 20 20 20 20 |........|....    |
|000000d0| 20 73 69 6d 70 6c 65 20 | 63 6f 64 65 20 66 6f 72 | simple |code for|
|000000e0| 20 74 75 6d 62 6c 69 6e | 67 20 6f 62 6a 65 63 74 | tumblin|g object|
|000000f0| 00 00 00 46 00 03 ff d0 | 00 00 f2 08 20 23 31 2c |...F....|.... #1,|
|00000100| 20 22 54 55 4d 42 4c 49 | 4e 47 20 43 55 42 45 20 | "TUMBLI|NG CUBE |
|00000110| 28 63 6c 69 63 6b 20 74 | 6f 20 65 78 69 74 29 22 |(click t|o exit)"|
|00000120| 2c 28 34 2c 33 38 29 2d | 28 36 35 30 2c 35 30 30 |,(4,38)-|(650,500|
|00000130| 29 3a f0 28 20 31 30 30 | 00 00 00 3a 00 04 ff b8 |):.( 100|...:....|
|00000140| 00 00 f0 64 20 30 2c 20 | 5f 63 61 73 65 49 6e 73 |...d 0, |_caseIns|
|00000150| 65 6e 73 69 74 69 76 65 | 20 5f 73 74 72 52 65 73 |ensitive| _strRes|
|00000160| 6f 75 72 63 65 20 5f 6d | 61 63 73 62 75 67 4c 61 |ource _m|acsbugLa|
|00000170| 62 65 6c 73 20 00 00 2e | 00 05 ff c4 00 00 f0 19 |bels ...|........|
|00000180| 20 41 2d 5a 3a f0 0a 20 | 50 28 34 30 30 29 2c 53 | A-Z:.. |P(400),S|
|00000190| 53 28 33 36 30 29 2c 43 | 43 28 33 36 30 29 3a 44 |S(360),C|C(360):D|
|000001a0| 3d 35 30 30 00 00 00 0c | 00 06 ff d0 00 00 f0 1f |=500....|........|
|000001b0| 20 f0 66 00 00 08 00 07 | ff f2 00 00 00 00 00 44 | .f.....|.......D|
|000001c0| 00 08 ff f6 00 00 f0 13 | 20 20 22 71 3d 72 6f 74 |........|  "q=rot|
|000001d0| 31 28 64 65 67 29 20 72 | 3d 72 6f 74 32 28 64 65 |1(deg) r|=rot2(de|
|000001e0| 67 29 20 69 3d 20 78 76 | 65 6c 20 28 70 69 78 65 |g) i= xv|el (pixe|
|000001f0| 6c 73 29 20 6a 3d 79 76 | 65 6c 20 6b 3d 7a 20 76 |ls) j=yv|el k=z v|
|00000200| 65 6c 22 00 00 20 00 09 | ff ba 00 00 f0 0b 20 20 |el".. ..|......  |
|00000210| 20 20 20 20 20 20 51 31 | 2c 52 31 2c 49 31 2c 4a |      Q1|,R1,I1,J|
|00000220| 31 2c 4b 31 00 00 00 20 | 00 0a ff de 00 00 f0 08 |1,K1... |........|
|00000230| 20 20 20 20 20 20 20 20 | 31 30 2c 31 30 2c 31 30 |        |10,10,10|
|00000240| 2c 31 30 2c 31 30 00 00 | 00 08 00 0b ff de 00 00 |,10,10..|........|
|00000250| 00 00 00 1a 00 0c ff f6 | 00 00 42 3d 31 30 30 3a |........|..B=100:|
|00000260| 56 3d 44 3a 55 3d 31 3a | 55 56 3d 44 00 00 00 1e |V=D:U=1:|UV=D....|
|00000270| 00 0d ff e4 00 00 f0 13 | 20 74 61 62 6c 65 20 73 |........| table s|
|00000280| 69 6e 65 73 2c 63 6f 73 | 69 6e 65 73 00 00 00 46 |ines,cos|ines...F|
|00000290| 00 0e ff e0 fe 00 f0 01 | 20 4c 3d 30 20 f6 04 20 |........| L=0 .. |
|000002a0| 33 36 30 3a 44 45 21 3d | 2e 30 31 37 34 35 2a 4c |360:DE!=|.01745*L|
|000002b0| 3a 53 53 28 4c 29 3d f4 | 1b 28 44 45 21 29 2a 42 |:SS(L)=.|.(DE!)*B|
|000002c0| 3a 43 43 28 4c 29 3d f4 | 1a 28 44 45 21 29 2a 42 |:CC(L)=.|.(DE!)*B|
|000002d0| 3a f0 07 20 4c 00 00 08 | 00 0f ff b8 00 00 00 00 |:.. L...|........|
|000002e0| 00 3e 00 10 ff f6 00 00 | 22 72 65 61 64 69 6e 67 |.>......|"reading|
|000002f0| 22 f0 0b 20 50 28 4e 29 | 3a 4e 3d 4e 2b 31 3a f0 |".. P(N)|:N=N+1:.|
|00000300| 0f 20 50 28 4e 2d 31 29 | 3c 3e 39 39 39 39 20 f6 |. P(N-1)|<>9999 .|
|00000310| 05 20 f0 0d 20 22 72 65 | 61 64 69 6e 67 22 00 00 |. .. "re|ading"..|
|00000320| 00 08 00 11 ff c0 00 00 | 00 00 00 0e 00 12 ff f6 |........|........|
|00000330| 00 00 22 62 61 63 6b 22 | 00 00 00 2e 00 13 ff f0 |.."back"|........|
|00000340| 00 00 72 3d 28 72 2b 52 | 31 2b 33 36 30 29 20 f6 |..r=(r+R|1+360) .|
|00000350| 0a 20 33 36 30 3a 71 3d | 28 71 2b 51 31 2b 33 36 |. 360:q=|(q+Q1+36|
|00000360| 30 29 20 f6 0a 20 33 36 | 30 00 00 16 00 14 ff d0 |0) .. 36|0.......|
|00000370| 00 00 53 3d 53 53 28 71 | 29 3a 43 3d 43 43 28 71 |..S=SS(q|):C=CC(q|
|00000380| 29 00 00 2e 00 15 ff e8 | 00 00 53 31 3d 53 53 28 |).......|..S1=SS(|
|00000390| 72 29 3a 43 31 3d 43 43 | 28 72 29 3a 49 3d 49 2b |r):C1=CC|(r):I=I+|
|000003a0| 49 31 3a 4a 3d 4a 2b 4a | 31 3a 4b 3d 4b 2b 4b 31 |I1:J=J+J|1:K=K+K1|
|000003b0| 00 00 00 1a 00 16 ff d0 | 00 02 f0 01 20 4c 3d 30 |........|.... L=0|
|000003c0| 20 f6 04 20 4e 2d 35 20 | f6 06 20 34 00 00 00 2e | .. N-5 |.. 4....|
|000003d0| 00 17 ff e4 02 02 f0 13 | 20 20 73 69 6e 20 28 78 |........|  sin (x|
|000003e0| 2b 79 29 3d 73 69 6e 20 | 78 20 63 6f 73 20 79 20 |+y)=sin |x cos y |
|000003f0| 2b 20 73 69 6e 20 79 20 | 63 6f 73 20 78 00 00 32 |+ sin y |cos x..2|
|00000400| 00 18 ff d0 02 02 f0 13 | 20 20 20 20 20 20 20 20 |........|        |
|00000410| 20 20 20 20 20 61 74 72 | 6f 63 69 6f 75 73 20 63 |     atr|ocious c|
|00000420| 6f 64 65 20 62 75 74 20 | 69 74 20 77 6f 72 6b 73 |ode but |it works|
|00000430| 00 00 00 32 00 19 ff cc | 02 02 46 3d 28 43 2a 50 |...2....|..F=(C*P|
|00000440| 28 4c 2b 32 29 2b 53 2a | 50 28 4c 2b 31 29 29 2f |(L+2)+S*|P(L+1))/|
|00000450| 42 3a 5a 5a 3d 28 43 31 | 2a 46 2d 53 31 2a 50 28 |B:ZZ=(C1|*F-S1*P(|
|00000460| 4c 29 29 2f 42 00 00 34 | 00 1a ff cc 02 02 58 58 |L))/B..4|......XX|
|00000470| 3d 28 43 31 2a 50 28 4c | 29 2b 53 31 2a 46 29 2f |=(C1*P(L|)+S1*F)/|
|00000480| 42 3a 59 59 3d 28 43 2a | 50 28 4c 2b 31 29 2d 53 |B:YY=(C*|P(L+1)-S|
|00000490| 2a 50 28 4c 2b 32 29 29 | 2f 42 00 00 00 2c 00 1b |*P(L+2))|/B...,..|
|000004a0| ff ca 02 02 f0 13 20 20 | 20 20 20 20 20 20 20 20 |......  |        |
|000004b0| 20 20 20 20 6e 6f 77 20 | 73 63 61 6c 65 20 61 6e |    now |scale an|
|000004c0| 64 20 6d 6f 74 69 6f 6e | 20 00 00 36 00 1c ff d2 |d motion| ..6....|
|000004d0| 02 02 47 21 3d 28 44 2a | 44 29 2f 28 28 58 58 2b |..G!=(D*|D)/((XX+|
|000004e0| 49 29 2a 55 2b 28 59 59 | 2b 4a 2b 34 2a 44 29 2a |I)*U+(YY|+J+4*D)*|
|000004f0| 56 2b 28 5a 5a 2b 4b 29 | 2a 57 29 20 20 20 20 20 |V+(ZZ+K)|*W)     |
|00000500| 00 00 00 34 00 1d ff c8 | 02 02 58 3d 28 58 58 2b |...4....|..X=(XX+|
|00000510| 49 29 2a 47 21 2d 55 3a | 59 3d 28 59 59 2b 4a 2b |I)*G!-U:|Y=(YY+J+|
|00000520| 34 2a 44 29 2a 47 21 2d | 56 3a 5a 3d 28 5a 5a 2b |4*D)*G!-|V:Z=(ZZ+|
|00000530| 4b 29 2a 47 21 2d 57 00 | 00 20 00 1e ff ca 02 02 |K)*G!-W.|. ......|
|00000540| 58 21 3d 28 56 2a 58 2d | 55 2a 59 29 2f 55 56 3a |X!=(V*X-|U*Y)/UV:|
|00000550| 59 21 3d 44 2a 5a 2f 55 | 56 00 00 3a 00 1f ff de |Y!=D*Z/U|V..:....|
|00000560| 02 02 f0 13 20 20 20 20 | 20 20 20 20 20 20 20 20 |....    |        |
|00000570| 20 20 6e 6f 20 6f 66 66 | 73 63 72 65 65 6e 20 47 |  no off|screen G|
|00000580| 77 6f 72 6c 64 73 20 64 | 72 61 77 69 6e 67 20 68 |worlds d|rawing h|
|00000590| 65 72 65 20 21 00 00 44 | 00 20 ff c4 02 02 f0 0f |ere !..D|. ......|
|000005a0| 20 50 28 4c 2b 33 29 3d | 31 20 f6 05 20 f0 2c 20 | P(L+3)=|1 .. ., |
|000005b0| f8 d0 28 58 21 2b 32 35 | 30 2c 59 21 2b 31 35 30 |..(X!+25|0,Y!+150|
|000005c0| 29 20 3a f0 15 20 f0 2c | 20 f8 e6 28 58 21 2b 32 |) :.. .,| ..(X!+2|
|000005d0| 35 30 2c 59 21 2b 31 35 | 30 29 00 00 00 36 00 21 |50,Y!+15|0)...6.!|
|000005e0| ff ba 00 00 22 4f 4e 4e | 22 f0 07 20 4c 3a f0 04 |...."ONN|".. L:..|
|000005f0| 3a f0 0f 20 f2 0b 28 5f | 64 6f 77 6e 29 3d 30 20 |:.. ..(_|down)=0 |
|00000600| f6 05 20 f0 0d 20 22 62 | 61 63 6b 22 20 3a f0 15 |.. .. "b|ack" :..|
|00000610| 20 f0 1f 00 00 08 00 22 | ff c8 00 00 00 00 00 3e | ......"|.......>|
|00000620| 00 23 ff f6 00 00 f0 13 | 20 20 20 20 20 20 20 20 |.#......|        |
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000640| 78 2c 79 2c 7a 20 63 6f | 6f 72 64 73 20 6f 66 20 |x,y,z co|ords of |
|00000650| 6c 69 6e 65 20 73 65 67 | 6d 65 6e 74 73 00 00 46 |line seg|ments..F|
|00000660| 00 24 ff c0 00 00 f0 13 | 20 20 20 20 20 20 20 20 |.$......|        |
|00000670| 20 20 20 20 20 20 20 20 | 63 61 6e 20 62 65 20 61 |        |can be a|
|00000680| 6e 79 20 73 68 61 70 65 | 20 6a 75 73 74 20 74 65 |ny shape| just te|
|00000690| 72 6d 69 6e 61 74 65 20 | 77 69 74 68 20 2c 2c 2c |rminate |with ,,,|
|000006a0| 39 39 39 39 00 00 00 18 | 00 25 ff b8 00 00 f0 08 |9999....|.%......|
|000006b0| 20 31 30 30 2c 31 30 30 | 2c 31 30 30 2c 31 00 00 | 100,100|,100,1..|
|000006c0| 00 18 00 26 ff e6 00 00 | f0 08 20 2d 31 30 30 2c |...&....|.. -100,|
|000006d0| 31 30 30 2c 31 30 30 2c | 30 00 00 1a 00 27 ff e6 |100,100,|0....'..|
|000006e0| 00 00 f0 08 20 2d 31 30 | 30 2c 2d 31 30 30 2c 31 |.... -10|0,-100,1|
|000006f0| 30 30 2c 30 00 00 00 18 | 00 28 ff e4 00 00 f0 08 |00,0....|.(......|
|00000700| 20 31 30 30 2c 2d 31 30 | 30 2c 31 30 30 2c 30 00 | 100,-10|0,100,0.|
|00000710| 00 18 00 29 ff e6 00 00 | f0 08 20 31 30 30 2c 31 |...)....|.. 100,1|
|00000720| 30 30 2c 31 30 30 2c 30 | 00 00 00 18 00 2a ff e6 |00,100,0|.....*..|
|00000730| 00 00 f0 08 20 31 30 30 | 2c 31 30 30 2c 2d 31 30 |.... 100|,100,-10|
|00000740| 30 2c 30 00 00 1a 00 2b | ff e6 00 00 f0 08 20 2d |0,0....+|...... -|
|00000750| 31 30 30 2c 31 30 30 2c | 2d 31 30 30 2c 30 00 00 |100,100,|-100,0..|
|00000760| 00 1a 00 2c ff e4 00 00 | f0 08 20 2d 31 30 30 2c |...,....|.. -100,|
|00000770| 2d 31 30 30 2c 2d 31 30 | 30 2c 30 00 00 1a 00 2d |-100,-10|0,0....-|
|00000780| ff e4 00 00 f0 08 20 31 | 30 30 2c 2d 31 30 30 2c |...... 1|00,-100,|
|00000790| 2d 31 30 30 2c 30 00 00 | 00 18 00 2e ff e4 00 00 |-100,0..|........|
|000007a0| f0 08 20 31 30 30 2c 31 | 30 30 2c 2d 31 30 30 2c |.. 100,1|00,-100,|
|000007b0| 30 00 00 1a 00 2f ff e6 | 00 00 f0 08 20 20 31 30 |0..../..|....  10|
|000007c0| 30 2c 2d 31 30 30 2c 2d | 31 30 30 2c 31 00 00 1a |0,-100,-|100,1...|
|000007d0| 00 30 ff e4 00 00 f0 08 | 20 20 20 31 30 30 2c 2d |.0......|   100,-|
|000007e0| 31 30 30 2c 31 30 30 2c | 30 00 00 1a 00 31 ff e4 |100,100,|0....1..|
|000007f0| 00 00 f0 08 20 2d 31 30 | 30 2c 2d 31 30 30 2c 31 |.... -10|0,-100,1|
|00000800| 30 30 2c 31 00 00 00 1a | 00 32 ff e4 00 00 f0 08 |00,1....|.2......|
|00000810| 20 2d 31 30 30 2c 2d 31 | 30 30 2c 2d 31 30 30 2c | -100,-1|00,-100,|
|00000820| 30 00 00 1a 00 33 ff e4 | 00 00 f0 08 20 2d 31 30 |0....3..|.... -10|
|00000830| 30 2c 31 30 30 2c 2d 31 | 30 30 2c 31 00 00 00 18 |0,100,-1|00,1....|
|00000840| 00 34 ff e4 00 00 f0 08 | 20 2d 31 30 30 2c 31 30 |.4......| -100,10|
|00000850| 30 2c 31 30 30 2c 30 00 | 00 12 00 35 ff e6 00 00 |0,100,0.|...5....|
|00000860| f0 08 20 20 2c 2c 2c 39 | 39 39 39 00 00 08 00 36 |..  ,,,9|999....6|
|00000870| ff ec 00 00 00 00 00 0a | ff ff ff f6 ff 00 f0 12 |........|........|
|00000880| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+