/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_exa.dms / in.adf / tedsdemos / pscyhoc.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 61 6e 6f 74 |;.; This| is anot|
|00000010| 68 65 72 20 64 69 73 70 | 6c 61 79 20 6c 69 62 72 |her disp|lay libr|
|00000020| 61 72 79 20 65 78 61 6d | 70 6c 65 20 75 73 69 6e |ary exam|ple usin|
|00000030| 67 20 61 20 74 68 69 6e | 00 3b 20 64 69 73 70 6c |g a thin|.; displ|
|00000040| 61 79 20 61 6e 64 20 61 | 20 73 6e 65 61 6b 79 20 |ay and a| sneaky |
|00000050| 74 72 69 63 6b 2e 00 3b | 00 00 80 04 20 63 6f 73 |trick..;|.... cos|
|00000060| 6c 75 70 2e 71 28 37 32 | 30 29 2c 73 69 6e 6c 75 |lup.q(72|0),sinlu|
|00000070| 70 2e 71 28 37 32 30 29 | 00 80 16 20 6e 3d 30 20 |p.q(720)|... n=0 |
|00000080| 80 18 20 37 32 30 00 20 | 20 61 6e 67 31 2e 66 3d |.. 720. | ang1.f=|
|00000090| 6e 2a 80 ba 2f 31 38 30 | 00 20 20 61 6e 67 32 2e |n*../180|.  ang2.|
|000000a0| 66 3d 6e 2a 80 ba 2f 39 | 30 00 20 20 63 6f 73 6c |f=n*../9|0.  cosl|
|000000b0| 75 70 28 6e 29 3d e0 05 | 28 61 6e 67 31 29 2a 36 |up(n)=..|(ang1)*6|
|000000c0| 34 00 20 20 73 69 6e 6c | 75 70 28 6e 29 3d e0 0a |4.  sinl|up(n)=..|
|000000d0| 28 61 6e 67 32 29 2a 36 | 34 00 80 17 00 00 d0 01 |(ang2)*6|4.......|
|000000e0| 20 30 2c 34 38 30 2c 35 | 30 30 2c 33 00 d0 01 20 | 0,480,5|00,3... |
|000000f0| 31 2c 34 38 30 2c 35 30 | 30 2c 33 00 bb 8c 20 30 |1,480,50|0,3... 0|
|00000100| 2c 32 2c 24 30 31 3a bb | 8c 20 31 2c 33 2c 24 30 |,2,$01:.|. 1,3,$0|
|00000110| 31 00 bb 8c 20 30 2c 34 | 2c 24 30 32 3a bb 8c 20 |1... 0,4|,$02:.. |
|00000120| 31 2c 35 2c 24 30 32 00 | bb 8c 20 30 2c 36 2c 24 |1,5,$02.|.. 0,6,$|
|00000130| 30 34 3a bb 8c 20 31 2c | 37 2c 24 30 34 00 bb 8c |04:.. 1,|7,$04...|
|00000140| 20 30 2c 38 2c 24 30 33 | 00 00 ca 01 20 30 2c 32 | 0,8,$03|.... 0,2|
|00000150| 3a ca 01 20 31 2c 32 00 | 00 ce 17 20 30 2c 33 32 |:.. 1,2.|... 0,32|
|00000160| 00 00 c7 82 20 30 2c 33 | 39 2c 32 35 36 2c 24 30 |.... 0,3|9,256,$0|
|00000170| 30 31 33 2c 38 2c 33 32 | 2c 30 00 c7 88 20 30 2c |013,8,32|,0... 0,|
|00000180| 2d 38 2c 31 36 2c 2d 31 | 36 2c 33 32 2c 2d 34 38 |-8,16,-1|6,32,-48|
|00000190| 20 20 20 20 20 20 20 20 | 20 20 3b 20 74 68 69 6e |        |  ; thin|
|000001a0| 20 64 69 73 70 6c 61 79 | 00 00 80 34 00 00 80 06 | display|...4....|
|000001b0| 20 69 6e 69 74 61 6c 6c | 00 c7 83 20 30 3a c7 86 | initall|... 0:..|
|000001c0| 20 30 2c 30 00 c7 85 20 | 30 2c 30 2c 31 39 2c 30 | 0,0... |0,0,19,0|
|000001d0| 2c 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,0      |        |
|000001e0| 20 20 20 20 3b 20 64 69 | 73 70 6c 61 79 20 73 69 |    ; di|splay si|
|000001f0| 64 65 20 62 6f 72 64 65 | 72 73 00 c7 85 20 30 2c |de borde|rs... 0,|
|00000200| 30 2c 32 36 39 2c 30 2c | 31 20 20 20 20 20 20 20 |0,269,0,|1       |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 3b 00 00 80 bb 00 |        |  ;.....|
|00000220| 20 20 80 37 00 20 20 74 | 2b 32 3a 80 0b 20 74 3e |  .7.  t|+2:.. t>|
|00000230| 33 35 39 20 80 21 20 74 | 3d 30 00 20 20 c7 84 20 |359 .! t|=0.  .. |
|00000240| 30 2c 64 62 2c 66 78 2c | 66 79 2c 64 62 2c 62 78 |0,db,fx,|fy,db,bx|
|00000250| 2c 62 79 20 20 20 20 20 | 20 20 3b 20 73 6e 65 61 |,by     |  ; snea|
|00000260| 6b 79 20 74 72 69 63 6b | 00 00 20 20 66 78 3d 31 |ky trick|..  fx=1|
|00000270| 32 30 2b 63 6f 73 6c 75 | 70 28 74 29 3a 66 79 3d |20+coslu|p(t):fy=|
|00000280| 31 32 35 2b 73 69 6e 6c | 75 70 28 74 29 20 20 20 |125+sinl|up(t)   |
|00000290| 20 20 20 20 3b 20 6d 6f | 76 65 20 63 69 72 63 6c |    ; mo|ve circl|
|000002a0| 65 20 62 69 74 6d 61 70 | 73 00 20 20 62 78 3d 31 |e bitmap|s.  bx=1|
|000002b0| 32 30 2b 73 69 6e 6c 75 | 70 28 74 29 3a 62 79 3d |20+sinlu|p(t):by=|
|000002c0| 31 32 35 2b 63 6f 73 6c | 75 70 28 74 29 20 20 20 |125+cosl|up(t)   |
|000002d0| 20 20 20 20 3b 00 00 20 | 20 64 62 3d 31 2d 64 62 |    ;.. | db=1-db|
|000002e0| 3a 80 2c 20 d0 01 20 34 | 2b 64 62 3a ca 03 20 64 |:., .. 4|+db:.. d|
|000002f0| 62 20 20 20 20 20 20 3b | 20 71 62 6c 69 74 20 74 |b      ;| qblit t|
|00000300| 6f 70 20 61 6e 64 20 62 | 6f 74 74 6f 6d 00 20 20 |op and b|ottom.  |
|00000310| ca 02 20 64 62 2c 30 2c | 66 78 2c 66 79 20 20 20 |.. db,0,|fx,fy   |
|00000320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000330| 20 20 20 20 20 3b 20 62 | 6f 72 64 65 72 73 00 20 |     ; b|orders. |
|00000340| 20 ca 02 20 64 62 2c 30 | 2c 66 78 2c 66 79 2b 32 | .. db,0|,fx,fy+2|
|00000350| 35 33 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |53      |        |
|00000360| 20 20 20 20 20 20 3b 00 | 00 3b 20 20 50 6f 6b 65 |      ;.|.;  Poke|
|00000370| 20 24 64 66 66 31 38 30 | 2c 24 66 66 66 00 80 bc | $dff180|,$fff...|
|00000380| 20 df 04 28 30 29 3c 3e | 30 00 00 80 02 00 00 2e | ..(0)<>|0.......|
|00000390| 69 6e 69 74 61 6c 6c 00 | 20 20 80 2c 20 d0 01 20 |initall.|  ., .. |
|000003a0| 38 3a b2 05 20 31 20 20 | 20 20 20 20 20 20 20 20 |8:.. 1  |        |
|000003b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 73 65 |        |    ; se|
|000003c0| 74 20 75 70 20 62 6f 72 | 64 65 72 00 20 20 cd 08 |t up bor|der.  ..|
|000003d0| 20 30 2c 30 2c 30 2c 31 | 36 2c 32 35 36 3a b8 01 | 0,0,0,1|6,256:..|
|000003e0| 20 30 2c 30 20 20 20 3b | 20 73 68 61 70 65 73 00 | 0,0   ;| shapes.|
|000003f0| 20 20 80 2c 20 d0 01 20 | 34 3a b2 05 20 31 20 20 |  ., .. |4:.. 1  |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000410| 20 20 20 20 3b 00 20 20 | cd 08 20 30 2c 30 2c 30 |    ;.  |.. 0,0,0|
|00000420| 2c 32 35 36 2c 33 20 20 | 20 20 20 20 20 20 20 20 |,256,3  |        |
|00000430| 20 20 20 20 20 20 20 20 | 20 3b 00 20 20 3b 00 20 |        | ;.  ;. |
|00000440| 20 80 2c 20 d0 01 20 30 | 3a b2 05 20 20 20 20 20 | ., .. 0|:..     |
|00000450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000460| 20 20 20 3b 20 73 65 74 | 20 75 70 20 62 69 74 6d |   ; set| up bitm|
|00000470| 61 70 73 00 20 20 80 2c | 20 d0 01 20 32 20 20 20 |aps.  .,| .. 2   |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000490| 20 20 20 20 20 20 20 20 | 20 3b 20 77 69 74 68 20 |        | ; with |
|000004a0| 63 6f 6e 63 65 6e 74 72 | 69 63 00 20 20 80 16 20 |concentr|ic.  .. |
|000004b0| 6e 3d 32 38 30 20 80 18 | 20 30 20 80 19 20 2d 34 |n=280 ..| 0 .. -4|
|000004c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004d0| 20 20 3b 20 63 69 72 63 | 6c 65 73 00 20 20 20 20 |  ; circ|les.    |
|000004e0| 63 6c 3d 31 2d 63 6c 20 | 20 20 20 20 20 20 20 20 |cl=1-cl |        |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000500| 20 20 20 20 20 20 3b 00 | 20 20 20 20 bb 82 20 32 |      ;.|    .. 2|
|00000510| 34 30 2c 32 35 30 2c 6e | 2c 63 6c 20 20 20 20 20 |40,250,n|,cl     |
|00000520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 00 20 |        |     ;. |
|00000530| 20 80 17 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000550| 20 20 20 20 20 20 20 3b | 00 20 20 d0 05 20 30 2c |       ;|.  .. 0,|
|00000560| 31 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1       |        |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 3b 00 20 20 3b |        |   ;.  ;|
|00000580| 00 20 20 ce 0a 20 30 2c | 31 2c 31 35 2c 31 35 2c |.  .. 0,|1,15,15,|
|00000590| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0       |        |
|000005a0| 20 20 20 20 20 20 20 3b | 20 73 65 74 20 75 70 20 |       ;| set up |
|000005b0| 61 6c 6c 00 20 20 ce 0a | 20 30 2c 32 2c 31 35 2c |all.  ..| 0,2,15,|
|000005c0| 30 2c 31 35 20 20 20 20 | 20 20 20 20 20 20 20 20 |0,15    |        |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 70 61 6c 65 |        |  ; pale|
|000005e0| 74 74 65 20 63 6f 6c 6f | 75 72 73 00 20 20 ce 0a |tte colo|urs.  ..|
|000005f0| 20 30 2c 33 2c 30 2c 31 | 35 2c 31 35 20 20 20 20 | 0,3,0,1|5,15    |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000610| 20 20 3b 20 66 6f 72 20 | 63 69 72 63 6c 65 73 2c |  ; for |circles,|
|00000620| 00 20 20 ce 0a 20 30 2c | 34 2c 31 35 2c 31 35 2c |.  .. 0,|4,15,15,|
|00000630| 31 35 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |15      |        |
|00000640| 20 20 20 20 20 20 20 3b | 20 62 6f 72 64 65 72 73 |       ;| borders|
|00000650| 2c 00 20 20 ce 0a 20 30 | 2c 35 2c 31 35 2c 31 35 |,.  .. 0|,5,15,15|
|00000660| 2c 31 35 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,15     |        |
|00000670| 20 20 20 20 20 20 20 20 | 3b 00 20 20 ce 0a 20 30 |        |;.  .. 0|
|00000680| 2c 36 2c 31 35 2c 31 35 | 2c 31 35 20 20 20 20 20 |,6,15,15|,15     |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006a0| 3b 00 20 20 ce 0a 20 30 | 2c 37 2c 31 35 2c 31 35 |;.  .. 0|,7,15,15|
|000006b0| 2c 31 35 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,15     |        |
|000006c0| 20 20 20 20 20 20 20 20 | 3b 00 20 20 ce 0a 20 30 |        |;.  .. 0|
|000006d0| 2c 31 37 2c 31 35 2c 31 | 35 2c 31 35 20 20 20 20 |,17,15,1|5,15    |
|000006e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006f0| 3b 20 61 6e 64 20 73 70 | 72 69 74 65 73 00 80 07 |; and sp|rites...|
|00000700| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+