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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 54 68 69 73 | 20 69 73 20 41 6e 64 72 |;.; This| is Andr|
|00000010| 65 77 73 27 20 73 63 72 | 61 74 63 68 20 70 72 6f |ews' scr|atch pro|
|00000020| 67 72 61 6d 20 66 65 61 | 74 75 72 65 64 20 6f 6e |gram fea|tured on|
|00000030| 20 42 55 4d 38 2e 00 3b | 20 49 20 68 61 76 65 20 | BUM8..;| I have |
|00000040| 74 77 65 61 6b 65 64 20 | 69 74 20 61 20 6c 69 74 |tweaked |it a lit|
|00000050| 74 6c 65 20 73 6f 20 74 | 68 61 74 20 69 74 20 72 |tle so t|hat it r|
|00000060| 75 6e 73 20 74 6f 20 61 | 20 66 72 61 6d 65 00 3b |uns to a| frame.;|
|00000070| 20 6f 6e 20 6d 79 20 31 | 32 30 30 2f 30 33 30 2d | on my 1|200/030-|
|00000080| 35 30 2f 36 4d 62 2e 00 | 3b 20 49 74 20 64 65 6d |50/6Mb..|; It dem|
|00000090| 6f 6e 73 74 72 61 74 65 | 73 20 74 68 65 20 75 73 |onstrate|s the us|
|000000a0| 65 20 6f 66 20 61 73 73 | 65 6d 62 6c 79 20 6c 61 |e of ass|embly la|
|000000b0| 6e 67 75 61 67 65 20 70 | 72 6f 63 65 64 75 72 65 |nguage p|rocedure|
|000000c0| 73 20 69 6e 00 3b 20 42 | 6c 69 74 7a 20 70 72 6f |s in.; B|litz pro|
|000000d0| 67 72 61 6d 73 2e 00 3b | 20 49 66 20 79 6f 75 20 |grams..;| If you |
|000000e0| 77 61 6e 74 20 74 6f 20 | 73 70 65 65 64 20 74 68 |want to |speed th|
|000000f0| 69 73 20 70 72 6f 67 72 | 61 6d 20 75 70 20 66 75 |is progr|am up fu|
|00000100| 72 74 68 65 72 2c 20 74 | 68 65 6e 20 79 6f 75 00 |rther, t|hen you.|
|00000110| 3b 20 6e 65 65 64 20 61 | 20 66 61 73 74 20 68 6f |; need a| fast ho|
|00000120| 72 69 7a 6f 6e 74 61 6c | 20 6c 69 6e 65 20 64 72 |rizontal| line dr|
|00000130| 61 77 20 72 6f 75 74 69 | 6e 65 20 6f 72 20 79 6f |aw routi|ne or yo|
|00000140| 75 20 63 61 6e 20 63 68 | 65 61 74 2e 00 3b 00 3b |u can ch|eat..;.;|
|00000150| 20 4d 6f 76 65 20 74 68 | 65 20 6d 6f 75 73 65 20 | Move th|e mouse |
|00000160| 61 72 6f 75 6e 64 20 74 | 6f 20 63 72 65 61 74 65 |around t|o create|
|00000170| 20 6c 61 76 61 20 6c 61 | 6d 70 20 74 79 70 65 20 | lava la|mp type |
|00000180| 65 66 66 65 63 74 73 2e | 00 3b 00 00 80 04 20 63 |effects.|.;.... c|
|00000190| 6f 73 6c 75 70 2e 71 28 | 37 32 30 29 2c 73 69 6e |oslup.q(|720),sin|
|000001a0| 6c 75 70 2e 71 28 37 32 | 30 29 20 20 20 20 20 20 |lup.q(72|0)      |
|000001b0| 20 20 20 20 20 3b 20 63 | 72 65 61 74 65 20 73 69 |     ; c|reate si|
|000001c0| 6e 2f 63 6f 73 20 6c 6f | 6f 6b 75 70 20 74 61 62 |n/cos lo|okup tab|
|000001d0| 6c 65 73 00 80 16 20 6e | 3d 30 20 80 18 20 37 32 |les... n|=0 .. 72|
|000001e0| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0       |        |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 00 20 |        |     ;. |
|00000200| 20 61 6e 67 31 2e 66 3d | 6e 2a 80 ba 2f 31 38 30 | ang1.f=|n*../180|
|00000210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000220| 20 20 20 20 20 20 20 20 | 20 3b 00 20 20 61 6e 67 |        | ;.  ang|
|00000230| 32 2e 66 3d 6e 2a 80 ba | 2f 39 30 20 20 20 20 20 |2.f=n*..|/90     |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000250| 20 20 20 20 20 3b 00 20 | 20 63 6f 73 6c 75 70 28 |     ;. | coslup(|
|00000260| 6e 29 3d e0 05 28 61 6e | 67 32 29 2a 34 20 20 20 |n)=..(an|g2)*4   |
|00000270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000280| 3b 00 20 20 73 69 6e 6c | 75 70 28 6e 29 3d e0 0a |;.  sinl|up(n)=..|
|00000290| 28 61 6e 67 32 29 2a 34 | 20 20 20 20 20 20 20 20 |(ang2)*4|        |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 00 80 17 20 |        |   ;... |
|000002b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002d0| 20 20 20 20 20 3b 00 00 | 80 04 20 73 71 72 6c 75 |     ;..|.. sqrlu|
|000002e0| 70 2e 77 28 32 30 34 38 | 29 20 20 20 20 20 20 20 |p.w(2048|)       |
|000002f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000300| 20 3b 20 63 72 65 61 74 | 65 20 73 71 75 61 72 65 | ; creat|e square|
|00000310| 20 72 6f 6f 74 20 6c 6f | 6f 6b 75 70 00 80 16 20 | root lo|okup... |
|00000320| 69 69 2e 66 3d 30 20 80 | 18 20 32 30 34 38 20 20 |ii.f=0 .|. 2048  |
|00000330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000340| 20 20 20 20 20 20 3b 20 | 74 61 62 6c 65 00 20 20 |      ; |table.  |
|00000350| 76 2e 66 3d e0 0c 28 69 | 69 2f 34 30 39 36 29 2a |v.f=..(i|i/4096)*|
|00000360| 36 35 35 33 35 3a 73 71 | 72 6c 75 70 28 69 69 29 |65535:sq|rlup(ii)|
|00000370| 3d 76 20 20 20 20 20 3b | 00 80 17 20 20 20 20 20 |=v     ;|...     |
|00000380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003a0| 20 3b 00 00 d0 01 20 30 | 2c 32 35 36 2c 32 35 36 | ;.... 0|,256,256|
|000003b0| 2c 31 00 d0 01 20 31 2c | 32 35 36 2c 32 35 36 2c |,1... 1,|256,256,|
|000003c0| 31 00 c7 82 20 30 2c 34 | 30 2c 32 33 35 2c 24 30 |1... 0,4|0,235,$0|
|000003d0| 30 31 31 2c 30 2c 32 2c | 30 00 00 3b 00 3b 20 54 |011,0,2,|0..;.; T|
|000003e0| 68 69 6e 20 64 69 73 70 | 6c 61 79 20 66 6f 72 20 |hin disp|lay for |
|000003f0| 6d 6f 72 65 20 73 70 65 | 65 64 2e 00 3b 00 c7 88 |more spe|ed..;...|
|00000400| 20 30 2c 2d 38 2c 31 36 | 2c 2d 31 36 2c 33 32 2c | 0,-8,16|,-16,32,|
|00000410| 2d 34 38 00 00 ce 0a 20 | 30 2c 30 2c 35 2c 30 2c |-48.... |0,0,5,0,|
|00000420| 35 3a ce 0a 20 30 2c 31 | 2c 31 35 2c 30 2c 30 00 |5:.. 0,1|,15,0,0.|
|00000430| 00 80 34 3a b6 01 20 80 | c5 00 00 80 08 20 71 63 |..4:.. .|..... qc|
|00000440| 6c 73 7b 62 6d 70 74 72 | 2e 6c 7d 00 20 20 3b 00 |ls{bmptr|.l}.  ;.|
|00000450| 20 20 3b 20 54 65 64 73 | 27 20 6c 69 67 68 74 6e |  ; Teds|' lightn|
|00000460| 69 6e 27 20 62 69 74 61 | 6d 70 20 63 6c 65 61 72 |in' bita|mp clear|
|00000470| 20 72 6f 75 74 69 6e 65 | 20 74 68 61 74 00 20 20 | routine| that.  |
|00000480| 3b 20 6f 6e 6c 79 20 77 | 6f 72 6b 73 20 6f 6e 20 |; only w|orks on |
|00000490| 74 68 65 20 66 69 72 73 | 74 20 70 6c 61 6e 65 20 |the firs|t plane |
|000004a0| 6f 66 20 61 20 62 69 74 | 61 6d 70 20 74 68 61 74 |of a bit|amp that|
|000004b0| 20 69 73 00 20 20 3b 20 | 32 35 36 20 70 69 78 65 | is.  ; |256 pixe|
|000004c0| 6c 73 20 77 69 64 65 20 | 3a 29 2e 00 20 20 3b 00 |ls wide |:)..  ;.|
|000004d0| 20 20 80 7e 2e 6c 20 64 | 30 2c 61 30 3a 80 3f 20 |  .~.l d|0,a0:.? |
|000004e0| 23 33 32 2a 32 35 36 2c | 61 30 3a 80 7e 23 32 35 |#32*256,|a0:.~#25|
|000004f0| 35 2c 64 37 00 20 20 80 | 81 23 30 2c 64 30 3a 80 |5,d7.  .|.#0,d0:.|
|00000500| 81 23 30 2c 64 31 3a 80 | 81 23 30 2c 64 32 3a 80 |.#0,d1:.|.#0,d2:.|
|00000510| 81 23 30 2c 64 33 00 20 | 20 80 81 23 30 2c 64 34 |.#0,d3. | ..#0,d4|
|00000520| 3a 80 81 23 30 2c 64 35 | 3a 80 81 23 30 2c 64 36 |:..#0,d5|:..#0,d6|
|00000530| 3a 80 7e 20 64 30 2c 61 | 31 00 20 20 63 6c 72 5f |:.~ d0,a|1.  clr_|
|00000540| 6c 69 6e 3a 80 82 2e 6c | 20 64 30 2d 64 36 2f 61 |lin:...l| d0-d6/a|
|00000550| 31 2c 2d 28 61 30 29 3a | 80 6f 20 64 37 2c 63 6c |1,-(a0):|.o d7,cl|
|00000560| 72 5f 6c 69 6e 00 20 20 | 80 11 00 80 02 20 80 08 |r_lin.  |..... ..|
|00000570| 00 00 80 09 2e 71 20 71 | 73 71 72 7b 61 2e 71 2c |.....q q|sqr{a.q,|
|00000580| 62 6d 70 74 72 2e 6c 7d | 00 20 20 3b 00 20 20 3b |bmptr.l}|.  ;.  ;|
|00000590| 20 41 6e 64 72 65 77 73 | 27 20 71 75 69 63 6b 20 | Andrews|' quick |
|000005a0| 73 71 75 61 72 65 20 72 | 6f 6f 74 20 72 6f 75 74 |square r|oot rout|
|000005b0| 69 6e 65 00 20 20 3b 00 | 20 20 80 7e 2e 6c 20 64 |ine.  ;.|  .~.l d|
|000005c0| 31 2c 61 33 00 20 20 80 | 81 23 31 38 2c 64 32 3a |1,a3.  .|.#18,d2:|
|000005d0| 80 7e 2e 6c 20 23 32 30 | 34 38 2c 64 33 3a 80 81 |.~.l #20|48,d3:..|
|000005e0| 23 30 2c 64 34 00 20 20 | 6c 6f 6f 70 3a 80 5c 2e |#0,d4.  |loop:.\.|
|000005f0| 6c 20 64 33 2c 64 30 3a | 80 4e 20 64 6f 6e 65 00 |l d3,d0:|.N done.|
|00000600| 20 20 80 7d 2e 6c 23 31 | 2c 64 30 3a 80 91 23 31 |  .}.l#1|,d0:..#1|
|00000610| 2c 64 34 3a 80 7d 2e 6c | 23 31 2c 64 30 3a 80 91 |,d4:.}.l|#1,d0:..|
|00000620| 23 31 2c 64 34 00 20 20 | 80 6f 20 64 32 2c 6c 6f |#1,d4.  |.o d2,lo|
|00000630| 6f 70 3a 64 6f 6e 65 3a | 80 3d 20 64 30 2c 64 30 |op:done:|.= d0,d0|
|00000640| 00 20 20 80 82 20 30 28 | 61 33 2c 64 30 29 2c 64 |.  .. 0(|a3,d0),d|
|00000650| 30 2f 64 35 3a 80 84 20 | 64 34 2c 64 35 3a 80 89 |0/d5:.. |d4,d5:..|
|00000660| 20 64 34 3a 80 84 20 64 | 34 2c 64 30 00 20 20 80 | d4:.. d|4,d0.  .|
|00000670| 3d 2e 6c 20 64 35 2c 64 | 30 3a 80 7d 2e 6c 20 64 |=.l d5,d|0:.}.l d|
|00000680| 32 2c 64 30 00 20 20 80 | 11 00 80 02 20 80 09 00 |2,d0.  .|.... ...|
|00000690| 00 c7 83 20 30 3a c7 86 | 20 30 2c 30 00 00 6d 61 |... 0:..| 0,0..ma|
|000006a0| 73 31 3d 30 2e 33 3a 6d | 61 73 32 3d 30 2e 31 35 |s1=0.3:m|as2=0.15|
|000006b0| 00 80 bb 00 20 20 80 37 | 3a 74 2b 32 3a 80 0b 20 |....  .7|:t+2:.. |
|000006c0| 74 3e 33 35 39 20 80 21 | 20 74 3d 30 00 20 20 c7 |t>359 .!| t=0.  .|
|000006d0| 84 20 30 2c 64 62 2c 70 | 78 2c 70 79 00 20 20 70 |. 0,db,p|x,py.  p|
|000006e0| 78 3d 38 2b 63 6f 73 6c | 75 70 28 74 29 3a 70 79 |x=8+cosl|up(t):py|
|000006f0| 3d 38 2d 73 69 6e 6c 75 | 70 28 74 29 00 00 20 20 |=8-sinlu|p(t)..  |
|00000700| 64 62 3d 31 2d 64 62 3a | 80 2c 20 d0 01 20 64 62 |db=1-db:|., .. db|
|00000710| 00 20 20 71 63 6c 73 7b | da 02 2e 6c 28 80 b8 20 |.  qcls{|...l(.. |
|00000720| d0 01 28 64 62 29 2b 38 | 29 7d 00 00 20 20 70 6f |..(db)+8|)}..  po|
|00000730| 73 31 3d b6 05 20 80 45 | 20 38 00 20 20 70 6f 73 |s1=.. .E| 8.  pos|
|00000740| 32 3d b6 04 20 80 45 20 | 38 00 20 20 6d 61 73 31 |2=.. .E |8.  mas1|
|00000750| 2b 63 6f 73 6c 75 70 28 | 74 29 20 80 45 20 39 00 |+coslup(|t) .E 9.|
|00000760| 20 20 80 16 20 73 79 3d | 30 20 80 18 20 32 35 35 |  .. sy=|0 .. 255|
|00000770| 00 20 20 20 20 78 3d 28 | 73 79 2d 39 35 2e 35 29 |.    x=(|sy-95.5)|
|00000780| 20 80 45 20 36 00 00 20 | 20 20 20 78 70 31 3d 28 | .E 6.. |   xp1=(|
|00000790| 78 2d 70 6f 73 31 29 2a | 28 78 2d 70 6f 73 31 29 |x-pos1)*|(x-pos1)|
|000007a0| 00 20 20 20 20 78 70 32 | 3d 28 78 2d 70 6f 73 32 |.    xp2|=(x-pos2|
|000007b0| 29 2a 28 78 2d 70 6f 73 | 32 29 00 20 20 20 20 70 |)*(x-pos|2).    p|
|000007c0| 74 63 3d 28 78 70 31 2d | 6d 61 73 31 29 2a 78 70 |tc=(xp1-|mas1)*xp|
|000007d0| 32 2d 6d 61 73 32 2a 78 | 70 31 00 00 20 20 20 20 |2-mas2*x|p1..    |
|000007e0| 80 0b 20 70 74 63 3c 30 | 00 20 20 20 20 20 20 70 |.. ptc<0|.      p|
|000007f0| 74 62 3d 78 70 32 2b 78 | 70 31 2d 6d 61 73 31 2d |tb=xp2+x|p1-mas1-|
|00000800| 6d 61 73 32 00 20 20 20 | 20 20 20 64 65 73 63 72 |mas2.   |   descr|
|00000810| 3d 70 74 62 2a 70 74 62 | 2d 70 74 63 20 80 44 20 |=ptb*ptb|-ptc .D |
|00000820| 32 00 20 20 20 20 20 20 | 73 71 64 65 73 3d 71 73 |2.      |sqdes=qs|
|00000830| 71 72 7b 64 65 73 63 72 | 2c 26 73 71 72 6c 75 70 |qr{descr|,&sqrlup|
|00000840| 28 30 29 7d 00 20 20 20 | 20 20 20 73 71 64 65 73 |(0)}.   |   sqdes|
|00000850| 3d 28 73 71 64 65 73 2d | 70 74 62 29 20 80 45 20 |=(sqdes-|ptb) .E |
|00000860| 31 00 20 20 20 20 20 20 | 79 3d 71 73 71 72 7b 73 |1.      |y=qsqr{s|
|00000870| 71 64 65 73 2c 26 73 71 | 72 6c 75 70 28 30 29 7d |qdes,&sq|rlup(0)}|
|00000880| 00 20 20 20 20 20 20 73 | 78 3d 79 20 80 44 20 36 |.      s|x=y .D 6|
|00000890| 00 20 20 20 20 20 20 6c | 79 3d 63 6f 73 6c 75 70 |.      l|y=coslup|
|000008a0| 28 74 29 80 44 32 2b 73 | 79 00 20 20 20 20 20 20 |(t).D2+s|y.      |
|000008b0| 6c 78 31 3d 31 32 38 2d | 73 78 2b 63 6f 73 6c 75 |lx1=128-|sx+coslu|
|000008c0| 70 28 74 29 00 20 20 20 | 20 20 20 6c 78 32 3d 31 |p(t).   |   lx2=1|
|000008d0| 32 38 2b 73 78 2d 73 69 | 6e 6c 75 70 28 74 29 00 |28+sx-si|nlup(t).|
|000008e0| 20 20 20 20 20 20 bb 85 | 20 6c 78 31 2c 6c 79 2c |      ..| lx1,ly,|
|000008f0| 6c 78 32 2c 6c 79 2c 31 | 00 20 20 20 20 80 c0 00 |lx2,ly,1|.    ...|
|00000900| 20 20 80 17 00 3b 20 20 | 50 6f 6b 65 2e 77 20 24 |  ...;  |Poke.w $|
|00000910| 64 66 66 31 38 30 2c 24 | 66 66 66 00 80 bc 20 df |dff180,$|fff... .|
|00000920| 04 28 30 29 3c 3e 30 00 | 00 80 02 00             |.(0)<>0.|....    |
+--------+-------------------------+-------------------------+--------+--------+