/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_exa.dms / in.adf / tedsdemos / triplanes.bb2

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 41 6e 6f 74 | 68 65 72 20 64 69 73 70 |;.; Anot|her disp|
|00000010| 6c 61 79 20 6c 69 62 20 | 65 78 61 6d 70 6c 65 20 |lay lib |example |
|00000020| 74 68 61 74 20 75 73 65 | 73 20 61 20 62 69 67 20 |that use|s a big |
|00000030| 66 75 6c 6c 20 6f 76 65 | 72 73 63 61 6e 00 3b 20 |full ove|rscan.; |
|00000040| 64 69 73 70 6c 61 79 20 | 61 6e 64 20 74 68 65 20 |display |and the |
|00000050| 73 6e 65 61 6b 79 20 64 | 69 73 70 6c 61 79 20 74 |sneaky d|isplay t|
|00000060| 72 69 63 6b 2c 20 73 6f | 20 69 74 20 6d 61 79 20 |rick, so| it may |
|00000070| 67 6f 20 77 72 6f 6e 67 | 2e 00 3b 20 54 68 65 20 |go wrong|..; The |
|00000080| 77 65 69 72 64 6f 20 63 | 6f 6c 6f 75 72 73 20 61 |weirdo c|olours a|
|00000090| 72 65 20 73 65 74 20 75 | 70 20 62 79 20 74 68 65 |re set u|p by the|
|000000a0| 20 63 6f 70 70 65 72 00 | 3b 00 00 80 04 20 63 6f | copper.|;.... co|
|000000b0| 73 6c 75 70 31 2e 71 28 | 37 32 30 29 2c 73 69 6e |slup1.q(|720),sin|
|000000c0| 6c 75 70 31 2e 71 28 37 | 32 30 29 00 80 04 20 63 |lup1.q(7|20)... c|
|000000d0| 6f 73 6c 75 70 32 2e 71 | 28 37 32 30 29 2c 73 69 |oslup2.q|(720),si|
|000000e0| 6e 6c 75 70 32 2e 71 28 | 37 32 30 29 00 80 16 20 |nlup2.q(|720)... |
|000000f0| 6e 3d 30 20 80 18 20 37 | 32 30 00 20 20 61 6e 67 |n=0 .. 7|20.  ang|
|00000100| 31 2e 66 3d 6e 2a 80 ba | 2f 31 38 30 00 20 20 61 |1.f=n*..|/180.  a|
|00000110| 6e 67 32 2e 66 3d 6e 2a | 80 ba 2f 39 30 00 20 20 |ng2.f=n*|../90.  |
|00000120| 63 6f 73 6c 75 70 31 28 | 6e 29 3d e0 05 28 61 6e |coslup1(|n)=..(an|
|00000130| 67 32 29 2a 33 32 00 20 | 20 73 69 6e 6c 75 70 31 |g2)*32. | sinlup1|
|00000140| 28 6e 29 3d e0 0a 28 61 | 6e 67 32 29 2a 33 32 00 |(n)=..(a|ng2)*32.|
|00000150| 20 20 63 6f 73 6c 75 70 | 32 28 6e 29 3d e0 05 28 |  coslup|2(n)=..(|
|00000160| 61 6e 67 31 29 2a 33 32 | 00 20 20 73 69 6e 6c 75 |ang1)*32|.  sinlu|
|00000170| 70 32 28 6e 29 3d e0 0a | 28 61 6e 67 31 29 2a 33 |p2(n)=..|(ang1)*3|
|00000180| 32 00 80 17 00 00 d0 01 | 20 30 2c 34 38 30 2c 35 |2.......| 0,480,5|
|00000190| 30 30 2c 33 00 d0 01 20 | 31 2c 34 38 30 2c 35 30 |00,3... |1,480,50|
|000001a0| 30 2c 33 00 bb 8c 20 30 | 2c 32 2c 24 30 31 3a bb |0,3... 0|,2,$01:.|
|000001b0| 8c 20 31 2c 33 2c 24 30 | 31 00 bb 8c 20 30 2c 34 |. 1,3,$0|1... 0,4|
|000001c0| 2c 24 30 32 3a bb 8c 20 | 31 2c 35 2c 24 30 32 00 |,$02:.. |1,5,$02.|
|000001d0| bb 8c 20 30 2c 36 2c 24 | 30 34 3a bb 8c 20 31 2c |.. 0,6,$|04:.. 1,|
|000001e0| 37 2c 24 30 34 00 00 ce | 17 20 30 2c 38 00 cd 10 |7,$04...|. 0,8...|
|000001f0| 20 30 2c 33 32 2c 33 32 | 2c 31 00 00 c7 82 20 30 | 0,32,32|,1.... 0|
|00000200| 2c 33 34 2c 32 37 30 2c | 24 30 30 31 33 2c 38 2c |,34,270,|$0013,8,|
|00000210| 38 2c 2d 37 00 00 3b 00 | 3b 20 62 69 67 20 66 61 |8,-7..;.|; big fa|
|00000220| 74 20 6f 76 65 72 73 63 | 61 6e 20 64 69 73 70 6c |t oversc|an displ|
|00000230| 61 79 00 3b 00 c7 88 20 | 30 2c 32 2c 2d 38 2c 30 |ay.;... |0,2,-8,0|
|00000240| 2c 2d 31 36 2c 30 00 00 | 80 34 00 00 80 06 20 69 |,-16,0..|.4.... i|
|00000250| 6e 69 74 70 61 6c 00 80 | 06 20 69 6e 69 74 73 68 |nitpal..|. initsh|
|00000260| 70 00 80 06 20 69 6e 69 | 74 62 6d 70 00 c7 83 20 |p... ini|tbmp... |
|00000270| 30 3a c7 86 20 30 2c 30 | 00 00 80 bb 00 20 20 80 |0:.. 0,0|.....  .|
|00000280| 37 00 20 20 74 2b 31 3a | 80 0b 20 74 3e 33 35 39 |7.  t+1:|.. t>359|
|00000290| 20 80 21 20 74 3d 30 00 | 20 20 c7 84 20 30 2c 64 | .! t=0.|  .. 0,d|
|000002a0| 62 2c 66 78 2c 66 79 2c | 64 62 2c 62 78 2c 62 79 |b,fx,fy,|db,bx,by|
|000002b0| 00 00 20 20 66 78 3d 36 | 34 2b 73 69 6e 6c 75 70 |..  fx=6|4+sinlup|
|000002c0| 32 28 74 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |2(t)    |        |
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 6d 6f 76 65 |        |  ; move|
|000002e0| 20 66 69 72 73 74 20 74 | 77 6f 20 6c 61 79 65 72 | first t|wo layer|
|000002f0| 73 00 20 20 66 79 3d 36 | 34 2b 63 6f 73 6c 75 70 |s.  fy=6|4+coslup|
|00000300| 31 28 74 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |1(t)    |        |
|00000310| 20 20 20 20 20 20 20 20 | 20 20 3b 00 20 20 62 78 |        |  ;.  bx|
|00000320| 3d 36 34 2b 73 69 6e 6c | 75 70 31 28 74 29 20 20 |=64+sinl|up1(t)  |
|00000330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000340| 20 20 20 20 3b 00 20 20 | 62 79 3d 36 34 2b 63 6f |    ;.  |by=64+co|
|00000350| 73 6c 75 70 32 28 74 29 | 20 20 20 20 20 20 20 20 |slup2(t)|        |
|00000360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 00 |        |      ;.|
|00000370| 00 20 20 64 62 3d 31 2d | 64 62 3a 80 2c 20 d0 01 |.  db=1-|db:., ..|
|00000380| 20 34 2b 64 62 20 20 20 | 20 20 20 20 20 20 20 20 | 4+db   |        |
|00000390| 20 20 20 20 3b 20 6d 6f | 76 65 20 61 6e 64 20 63 |    ; mo|ve and c|
|000003a0| 72 65 61 74 65 20 74 68 | 69 72 64 00 20 20 79 79 |reate th|ird.  yy|
|000003b0| 3d 33 32 2b 63 6f 73 6c | 75 70 32 28 74 29 20 20 |=32+cosl|up2(t)  |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003d0| 20 20 20 20 3b 20 6c 61 | 79 65 72 00 20 20 b2 06 |    ; la|yer.  ..|
|000003e0| 20 31 36 2c 30 2c 34 33 | 32 2c 33 34 35 2c 30 2c | 16,0,43|2,345,0,|
|000003f0| 79 79 2c 32 2b 64 62 20 | 20 20 20 3b 00 00 3b 20 |yy,2+db |   ;..; |
|00000400| 20 50 6f 6b 65 2e 77 20 | 24 64 66 66 31 38 30 2c | Poke.w |$dff180,|
|00000410| 24 66 66 66 00 80 bc 20 | df 04 28 30 29 3c 3e 30 |$fff... |..(0)<>0|
|00000420| 00 00 80 02 00 00 2e 69 | 6e 69 74 70 61 6c 00 20 |.......i|nitpal. |
|00000430| 20 80 16 20 6e 3d 30 20 | 80 18 20 31 33 36 20 80 | .. n=0 |.. 136 .|
|00000440| 19 20 39 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. 9     |        |
|00000450| 20 20 20 20 3b 20 63 6f | 70 70 65 72 20 63 6f 6c |    ; co|pper col|
|00000460| 6f 75 72 73 20 6f 6e 00 | 20 20 20 20 72 2e 77 3d |ours on.|    r.w=|
|00000470| bc 0a 28 6e 2f 39 2c 30 | 2c 31 34 29 20 20 20 20 |..(n/9,0|,14)    |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 63 6f |        |    ; co|
|00000490| 6c 6f 75 72 20 72 65 67 | 69 73 74 65 72 73 00 20 |lour reg|isters. |
|000004a0| 20 20 20 c7 8d 20 30 2c | 31 2c 6e 2c 31 2b 72 2c |   .. 0,|1,n,1+r,|
|000004b0| 30 2c 30 2c 30 20 20 20 | 20 20 20 20 20 20 20 3b |0,0,0   |       ;|
|000004c0| 20 31 2d 37 00 20 20 80 | 17 20 20 20 20 20 20 20 | 1-7.  .|.       |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004e0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 00 20 20 80 |        |   ;.  .|
|000004f0| 16 20 6e 3d 31 33 37 20 | 80 18 20 32 35 35 20 80 |. n=137 |.. 255 .|
|00000500| 19 20 39 00 20 20 20 20 | 72 2e 77 3d bc 0a 28 28 |. 9.    |r.w=..((|
|00000510| 32 35 35 2d 6e 29 2f 39 | 2c 30 2c 31 34 29 00 20 |255-n)/9|,0,14). |
|00000520| 20 20 20 c7 8d 20 30 2c | 31 2c 6e 2c 31 2b 72 2c |   .. 0,|1,n,1+r,|
|00000530| 30 2c 30 2c 30 00 20 20 | 80 17 00 20 20 80 16 20 |0,0,0.  |...  .. |
|00000540| 6e 3d 30 20 80 18 20 31 | 33 36 20 80 19 20 39 00 |n=0 .. 1|36 .. 9.|
|00000550| 20 20 20 20 67 2e 77 3d | bc 0a 28 6e 2f 39 2c 30 |    g.w=|..(n/9,0|
|00000560| 2c 31 34 29 00 20 20 20 | 20 c7 8d 20 30 2c 32 2c |,14).   | .. 0,2,|
|00000570| 6e 2c 30 2c 31 2b 67 2c | 30 2c 31 00 20 20 80 17 |n,0,1+g,|0,1.  ..|
|00000580| 00 20 20 80 16 20 6e 3d | 31 33 37 20 80 18 20 32 |.  .. n=|137 .. 2|
|00000590| 35 35 20 80 19 20 39 00 | 20 20 20 20 67 2e 77 3d |55 .. 9.|    g.w=|
|000005a0| bc 0a 28 28 32 35 35 2d | 6e 29 2f 39 2c 30 2c 31 |..((255-|n)/9,0,1|
|000005b0| 34 29 00 20 20 20 20 c7 | 8d 20 30 2c 32 2c 6e 2c |4).    .|. 0,2,n,|
|000005c0| 30 2c 31 2b 67 2c 30 2c | 31 00 20 20 80 17 00 20 |0,1+g,0,|1.  ... |
|000005d0| 20 80 16 20 6e 3d 30 20 | 80 18 20 31 33 36 20 80 | .. n=0 |.. 136 .|
|000005e0| 19 20 39 00 20 20 20 20 | 72 2e 77 3d bc 0a 28 6e |. 9.    |r.w=..(n|
|000005f0| 2f 39 2c 30 2c 31 34 29 | 00 20 20 20 20 67 2e 77 |/9,0,14)|.    g.w|
|00000600| 3d bc 0a 28 6e 2f 39 2c | 30 2c 31 34 29 00 20 20 |=..(n/9,|0,14).  |
|00000610| 20 20 c7 8d 20 30 2c 33 | 2c 6e 2c 31 2b 72 2c 31 |  .. 0,3|,n,1+r,1|
|00000620| 2b 67 2c 30 2c 32 00 20 | 20 80 17 00 20 20 80 16 |+g,0,2. | ...  ..|
|00000630| 20 6e 3d 31 33 37 20 80 | 18 20 32 35 35 20 80 19 | n=137 .|. 255 ..|
|00000640| 20 39 00 20 20 20 20 72 | 2e 77 3d bc 0a 28 28 32 | 9.    r|.w=..((2|
|00000650| 35 35 2d 6e 29 2f 39 2c | 30 2c 31 34 29 00 20 20 |55-n)/9,|0,14).  |
|00000660| 20 20 67 2e 77 3d bc 0a | 28 28 32 35 35 2d 6e 29 |  g.w=..|((255-n)|
|00000670| 2f 39 2c 30 2c 31 34 29 | 00 20 20 20 20 c7 8d 20 |/9,0,14)|.    .. |
|00000680| 30 2c 33 2c 6e 2c 31 2b | 72 2c 31 2b 67 2c 30 2c |0,3,n,1+|r,1+g,0,|
|00000690| 32 00 20 20 80 17 00 20 | 20 80 16 20 6e 3d 30 20 |2.  ... | .. n=0 |
|000006a0| 80 18 20 31 33 36 20 80 | 19 20 39 00 20 20 20 20 |.. 136 .|. 9.    |
|000006b0| 62 2e 77 3d bc 0a 28 6e | 2f 39 2c 30 2c 31 34 29 |b.w=..(n|/9,0,14)|
|000006c0| 00 20 20 20 20 c7 8d 20 | 30 2c 34 2c 6e 2c 30 2c |.    .. |0,4,n,0,|
|000006d0| 30 2c 31 2b 62 2c 33 00 | 20 20 80 17 00 20 20 80 |0,1+b,3.|  ...  .|
|000006e0| 16 20 6e 3d 31 33 37 20 | 80 18 20 32 35 35 20 80 |. n=137 |.. 255 .|
|000006f0| 19 20 39 00 20 20 20 20 | 62 2e 77 3d bc 0a 28 28 |. 9.    |b.w=..((|
|00000700| 32 35 35 2d 6e 29 2f 39 | 2c 30 2c 31 34 29 00 20 |255-n)/9|,0,14). |
|00000710| 20 20 20 c7 8d 20 30 2c | 34 2c 6e 2c 30 2c 30 2c |   .. 0,|4,n,0,0,|
|00000720| 31 2b 62 2c 33 00 20 20 | 80 17 00 20 20 80 16 20 |1+b,3.  |...  .. |
|00000730| 6e 3d 30 20 80 18 20 31 | 33 36 20 80 19 20 39 00 |n=0 .. 1|36 .. 9.|
|00000740| 20 20 20 20 72 2e 77 3d | bc 0a 28 6e 2f 39 2c 30 |    r.w=|..(n/9,0|
|00000750| 2c 31 34 29 00 20 20 20 | 20 62 2e 77 3d bc 0a 28 |,14).   | b.w=..(|
|00000760| 6e 2f 39 2c 30 2c 31 34 | 29 00 20 20 20 20 c7 8d |n/9,0,14|).    ..|
|00000770| 20 30 2c 35 2c 6e 2c 31 | 2b 72 2c 30 2c 31 2b 62 | 0,5,n,1|+r,0,1+b|
|00000780| 2c 34 00 20 20 80 17 00 | 20 20 80 16 20 6e 3d 31 |,4.  ...|  .. n=1|
|00000790| 33 37 20 80 18 20 32 35 | 35 20 80 19 20 39 00 20 |37 .. 25|5 .. 9. |
|000007a0| 20 20 20 72 2e 77 3d bc | 0a 28 28 32 35 35 2d 6e |   r.w=.|.((255-n|
|000007b0| 29 2f 39 2c 30 2c 31 34 | 29 00 20 20 20 20 62 2e |)/9,0,14|).    b.|
|000007c0| 77 3d bc 0a 28 28 32 35 | 35 2d 6e 29 2f 39 2c 30 |w=..((25|5-n)/9,0|
|000007d0| 2c 31 34 29 00 20 20 20 | 20 c7 8d 20 30 2c 35 2c |,14).   | .. 0,5,|
|000007e0| 6e 2c 31 2b 72 2c 30 2c | 31 2b 62 2c 34 00 20 20 |n,1+r,0,|1+b,4.  |
|000007f0| 80 17 00 20 20 80 16 20 | 6e 3d 30 20 80 18 20 31 |...  .. |n=0 .. 1|
|00000800| 33 36 20 80 19 20 39 00 | 20 20 20 20 67 2e 77 3d |36 .. 9.|    g.w=|
|00000810| bc 0a 28 6e 2f 39 2c 30 | 2c 31 34 29 00 20 20 20 |..(n/9,0|,14).   |
|00000820| 20 62 2e 77 3d bc 0a 28 | 6e 2f 39 2c 30 2c 31 34 | b.w=..(|n/9,0,14|
|00000830| 29 00 20 20 20 20 c7 8d | 20 30 2c 36 2c 6e 2c 30 |).    ..| 0,6,n,0|
|00000840| 2c 31 2b 67 2c 31 2b 62 | 2c 35 00 20 20 80 17 00 |,1+g,1+b|,5.  ...|
|00000850| 20 20 80 16 20 6e 3d 31 | 33 37 20 80 18 20 32 35 |  .. n=1|37 .. 25|
|00000860| 35 20 80 19 20 39 00 20 | 20 20 20 67 2e 77 3d bc |5 .. 9. |   g.w=.|
|00000870| 0a 28 28 32 35 35 2d 6e | 29 2f 39 2c 30 2c 31 34 |.((255-n|)/9,0,14|
|00000880| 29 00 20 20 20 20 62 2e | 77 3d bc 0a 28 28 32 35 |).    b.|w=..((25|
|00000890| 35 2d 6e 29 2f 39 2c 30 | 2c 31 34 29 00 20 20 20 |5-n)/9,0|,14).   |
|000008a0| 20 c7 8d 20 30 2c 36 2c | 6e 2c 30 2c 31 2b 67 2c | .. 0,6,|n,0,1+g,|
|000008b0| 31 2b 62 2c 35 00 20 20 | 80 17 00 20 20 80 16 20 |1+b,5.  |...  .. |
|000008c0| 6e 3d 30 20 80 18 20 31 | 33 36 20 80 19 20 39 00 |n=0 .. 1|36 .. 9.|
|000008d0| 20 20 20 20 72 2e 77 3d | bc 0a 28 6e 2f 39 2c 30 |    r.w=|..(n/9,0|
|000008e0| 2c 31 34 29 00 20 20 20 | 20 67 2e 77 3d bc 0a 28 |,14).   | g.w=..(|
|000008f0| 6e 2f 39 2c 30 2c 31 34 | 29 00 20 20 20 20 62 2e |n/9,0,14|).    b.|
|00000900| 77 3d bc 0a 28 6e 2f 39 | 2c 30 2c 31 34 29 00 20 |w=..(n/9|,0,14). |
|00000910| 20 20 20 c7 8d 20 30 2c | 37 2c 6e 2c 31 2b 72 2c |   .. 0,|7,n,1+r,|
|00000920| 31 2b 67 2c 31 2b 62 2c | 36 00 20 20 80 17 00 20 |1+g,1+b,|6.  ... |
|00000930| 20 80 16 20 6e 3d 31 33 | 37 20 80 18 20 32 35 35 | .. n=13|7 .. 255|
|00000940| 20 80 19 20 39 00 20 20 | 20 20 72 2e 77 3d bc 0a | .. 9.  |  r.w=..|
|00000950| 28 28 32 35 35 2d 6e 29 | 2f 39 2c 30 2c 31 34 29 |((255-n)|/9,0,14)|
|00000960| 00 20 20 20 20 67 2e 77 | 3d bc 0a 28 28 32 35 35 |.    g.w|=..((255|
|00000970| 2d 6e 29 2f 39 2c 30 2c | 31 34 29 00 20 20 20 20 |-n)/9,0,|14).    |
|00000980| 62 2e 77 3d bc 0a 28 28 | 32 35 35 2d 6e 29 2f 39 |b.w=..((|255-n)/9|
|00000990| 2c 30 2c 31 34 29 00 20 | 20 20 20 c7 8d 20 30 2c |,0,14). |   .. 0,|
|000009a0| 37 2c 6e 2c 31 2b 72 2c | 31 2b 67 2c 31 2b 62 2c |7,n,1+r,|1+g,1+b,|
|000009b0| 36 00 20 20 80 17 00 20 | 20 80 16 20 6e 3d 31 37 |6.  ... | .. n=17|
|000009c0| 20 80 18 20 33 31 3a ce | 0a 20 30 2c 6e 2c 31 35 | .. 31:.|. 0,n,15|
|000009d0| 2c 31 35 2c 31 35 3a 80 | 17 00 80 07 00 00 2e 69 |,15,15:.|.......i|
|000009e0| 6e 69 74 73 68 70 00 20 | 20 80 2c 20 d0 01 20 32 |nitshp. | ., .. 2|
|000009f0| 3a b2 05 20 31 00 20 20 | bb 84 20 35 2c 35 2c 32 |:.. 1.  |.. 5,5,2|
|00000a00| 37 2c 32 37 2c 30 00 20 | 20 cd 08 20 30 2c 30 2c |7,27,0. | .. 0,0,|
|00000a10| 30 2c 33 32 2c 33 32 00 | 20 20 b2 05 00 80 07 00 |0,32,32.|  ......|
|00000a20| 00 2e 69 6e 69 74 62 6d | 70 00 20 20 80 16 20 62 |..initbm|p.  .. b|
|00000a30| 6d 70 3d 30 20 80 18 20 | 31 00 20 20 20 20 80 2c |mp=0 .. |1.    .,|
|00000a40| 20 d0 01 20 62 6d 70 3a | b2 05 00 20 20 20 20 80 | .. bmp:|...    .|
|00000a50| 16 20 78 3d 30 20 80 18 | 20 31 33 00 20 20 20 20 |. x=0 ..| 13.    |
|00000a60| 20 20 80 16 20 79 3d 30 | 20 80 18 20 31 33 00 20 |  .. y=0| .. 13. |
|00000a70| 20 20 20 20 20 20 20 cb | 08 20 30 2c 78 20 80 7c |       .|. 0,x .||
|00000a80| 20 35 2c 79 20 80 7c 20 | 35 00 20 20 20 20 20 20 | 5,y .| |5.      |
|00000a90| 80 17 00 20 20 20 20 80 | 17 00 20 20 80 17 00 80 |...    .|..  ....|
|00000aa0| 07 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+