/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_ext.dms / in.adf / LibsDev.lha / userlibprogs / Derez_ZoomXY.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 46 58 20 6c 69 62 72 | 61 72 79 20 28 43 29 31 |;FX libr|ary (C)1|
|00000010| 39 39 34 20 52 65 66 6c | 65 63 74 69 76 65 20 49 |994 Refl|ective I|
|00000020| 6d 61 67 65 73 00 3b 45 | 78 61 6d 70 6c 65 20 70 |mages.;E|xample p|
|00000030| 72 6f 67 72 61 6d 00 3b | 42 79 20 53 74 65 70 68 |rogram.;|By Steph|
|00000040| 65 6e 20 4d 63 4e 61 6d | 61 72 61 00 3b 50 6c 65 |en McNam|ara.;Ple|
|00000050| 61 73 65 20 66 65 65 6c | 20 66 72 65 65 20 74 6f |ase feel| free to|
|00000060| 20 75 73 65 20 61 6e 79 | 20 70 61 72 74 20 6f 66 | use any| part of|
|00000070| 20 74 68 65 20 70 72 6f | 67 72 61 6d 00 3b 20 69 | the pro|gram.; i|
|00000080| 6e 20 77 68 61 74 65 76 | 65 72 20 77 61 79 20 79 |n whatev|er way y|
|00000090| 6f 75 20 66 65 65 6c 20 | 6c 69 6b 65 00 00 3b 6e |ou feel |like..;n|
|000000a0| 65 77 74 79 70 65 20 66 | 6f 72 20 70 6f 6c 79 67 |ewtype f|or polyg|
|000000b0| 6f 6e 20 64 72 61 77 69 | 6e 67 00 80 01 2e 63 6f |on drawi|ng....co|
|000000c0| 6f 72 64 00 20 20 78 2e | 77 20 3a 20 79 2e 77 00 |ord.  x.|w : y.w.|
|000000d0| 80 02 20 80 01 00 00 3b | 44 69 6d 65 6e 73 69 6f |.. ....;|Dimensio|
|000000e0| 6e 20 73 6f 6d 65 20 61 | 72 72 61 79 73 00 80 04 |n some a|rrays...|
|000000f0| 20 73 6e 2e 71 28 33 35 | 39 29 00 80 04 20 63 6e | sn.q(35|9)... cn|
|00000100| 2e 71 28 33 35 39 29 00 | 80 04 20 70 6f 6c 79 67 |.q(359).|.. polyg|
|00000110| 6f 6e 2e 63 6f 6f 72 64 | 28 34 29 00 00 3b 53 74 |on.coord|(4)..;St|
|00000120| 61 74 65 6d 65 6e 74 20 | 74 68 61 74 20 64 72 61 |atement |that dra|
|00000130| 77 73 20 61 20 6e 69 63 | 65 20 70 61 74 74 65 72 |ws a nic|e patter|
|00000140| 6e 21 00 80 08 20 44 72 | 61 77 54 72 69 61 6e 67 |n!... Dr|awTriang|
|00000150| 6c 65 73 20 7b 61 6e 67 | 67 2e 77 2c 72 61 64 69 |les {ang|g.w,radi|
|00000160| 69 31 2e 77 2c 72 61 64 | 69 69 32 2e 77 2c 63 6f |i1.w,rad|ii2.w,co|
|00000170| 6c 2e 77 7d 00 2e 44 72 | 61 77 54 72 69 3a 00 20 |l.w}..Dr|awTri:. |
|00000180| 20 80 15 20 73 6e 28 29 | 2c 63 6e 28 29 2c 70 6f | .. sn()|,cn(),po|
|00000190| 6c 79 67 6f 6e 28 29 00 | 20 20 80 34 00 20 20 65 |lygon().|  .4.  e|
|000001a0| 6e 64 61 6e 67 2e 77 3d | 61 6e 67 67 2b 33 36 30 |ndang.w=|angg+360|
|000001b0| 00 20 20 80 bb 00 20 20 | 61 6e 67 67 2b 31 30 00 |.  ...  |angg+10.|
|000001c0| 20 20 61 6e 67 3d 61 6e | 67 67 20 3a 20 61 6e 67 |  ang=an|gg : ang|
|000001d0| 3d 61 6e 67 20 80 b9 20 | 33 36 30 00 00 20 20 70 |=ang .. |360..  p|
|000001e0| 6f 6c 79 67 6f 6e 28 31 | 29 5c 78 3d 31 36 30 2b |olygon(1|)\x=160+|
|000001f0| 73 6e 28 61 6e 67 29 2a | 72 61 64 69 69 31 00 20 |sn(ang)*|radii1. |
|00000200| 20 70 6f 6c 79 67 6f 6e | 28 31 29 5c 79 3d 31 30 | polygon|(1)\y=10|
|00000210| 30 2b 63 6e 28 61 6e 67 | 29 2a 72 61 64 69 69 31 |0+cn(ang|)*radii1|
|00000220| 00 00 20 20 61 6e 67 32 | 2e 77 3d 61 6e 67 2b 35 |..  ang2|.w=ang+5|
|00000230| 20 3a 20 80 0b 20 61 6e | 67 32 3e 33 35 39 20 80 | : .. an|g2>359 .|
|00000240| 21 20 61 6e 67 32 2d 33 | 36 30 00 20 20 70 6f 6c |! ang2-3|60.  pol|
|00000250| 79 67 6f 6e 28 32 29 5c | 78 3d 31 36 30 2b 73 6e |ygon(2)\|x=160+sn|
|00000260| 28 61 6e 67 32 29 2a 72 | 61 64 69 69 32 00 20 20 |(ang2)*r|adii2.  |
|00000270| 70 6f 6c 79 67 6f 6e 28 | 32 29 5c 79 3d 31 30 30 |polygon(|2)\y=100|
|00000280| 2b 63 6e 28 61 6e 67 32 | 29 2a 72 61 64 69 69 32 |+cn(ang2|)*radii2|
|00000290| 00 00 20 20 61 6e 67 32 | 2e 77 3d 61 6e 67 2d 35 |..  ang2|.w=ang-5|
|000002a0| 20 3a 20 80 0b 20 61 6e | 67 32 3c 30 20 80 21 20 | : .. an|g2<0 .! |
|000002b0| 61 6e 67 32 2b 33 36 30 | 00 20 20 70 6f 6c 79 67 |ang2+360|.  polyg|
|000002c0| 6f 6e 28 33 29 5c 78 3d | 31 36 30 2b 73 6e 28 61 |on(3)\x=|160+sn(a|
|000002d0| 6e 67 32 29 2a 72 61 64 | 69 69 32 00 20 20 70 6f |ng2)*rad|ii2.  po|
|000002e0| 6c 79 67 6f 6e 28 33 29 | 5c 79 3d 31 30 30 2b 63 |lygon(3)|\y=100+c|
|000002f0| 6e 28 61 6e 67 32 29 2a | 72 61 64 69 69 32 00 00 |n(ang2)*|radii2..|
|00000300| 20 20 bb 8b 20 33 2c 26 | 70 6f 6c 79 67 6f 6e 28 |  .. 3,&|polygon(|
|00000310| 31 29 2c 63 6f 6c 00 20 | 20 80 bc 20 61 6e 67 67 |1),col. | .. angg|
|00000320| 3d 65 6e 64 61 6e 67 00 | 80 02 20 80 08 00 00 3b |=endang.|.. ....;|
|00000330| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 20 |========|======= |
|00000340| 50 72 6f 67 72 61 6d 20 | 63 6f 64 65 20 68 65 72 |Program |code her|
|00000350| 65 20 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |e ======|========|
|00000360| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000370| 3d 3d 3d 3d 3d 3d 3d 3d | 00 00 80 36 00 00 3b 47 |========|...6..;G|
|00000380| 65 74 20 73 6f 6d 65 20 | 62 69 74 6d 61 70 73 00 |et some |bitmaps.|
|00000390| d0 01 20 30 2c 33 32 30 | 2c 32 30 30 2c 31 00 d0 |.. 0,320|,200,1..|
|000003a0| 01 20 31 2c 33 32 30 2c | 32 30 30 2c 31 00 00 3b |. 1,320,|200,1..;|
|000003b0| 53 65 74 20 73 6f 6d 65 | 20 63 6f 6c 6f 75 72 73 |Set some| colours|
|000003c0| 00 ce 0a 20 30 2c 30 2c | 31 35 2c 31 35 2c 31 35 |... 0,0,|15,15,15|
|000003d0| 00 ce 0a 20 30 2c 31 2c | 30 2c 30 2c 30 00 00 3b |... 0,1,|0,0,0..;|
|000003e0| 47 65 74 20 73 69 6e 20 | 61 6e 64 20 63 6f 73 20 |Get sin |and cos |
|000003f0| 6c 6f 6f 6b 20 61 72 72 | 61 79 73 00 80 16 20 68 |look arr|ays... h|
|00000400| 2e 6c 3d 30 20 80 18 20 | 33 35 39 00 20 20 61 3d |.l=0 .. |359.  a=|
|00000410| 28 68 2a 80 ba 29 2f 31 | 38 30 00 20 20 73 6e 28 |(h*..)/1|80.  sn(|
|00000420| 68 29 3d e0 0a 28 61 29 | 00 20 20 63 6e 28 68 29 |h)=..(a)|.  cn(h)|
|00000430| 3d e0 05 28 61 29 00 80 | 17 20 68 00 00 3b 47 6f |=..(a)..|. h..;Go|
|00000440| 20 69 6e 74 6f 20 42 6c | 69 74 7a 20 6d 6f 64 65 | into Bl|itz mode|
|00000450| 21 00 80 34 00 00 3b 50 | 6f 73 69 74 69 6f 6e 20 |!..4..;P|osition |
|00000460| 73 6c 69 63 65 20 69 6e | 20 63 65 6e 74 72 65 20 |slice in| centre |
|00000470| 6f 66 20 64 69 73 70 6c | 61 79 00 6f 66 66 73 65 |of displ|ay.offse|
|00000480| 74 2e 77 3d 30 00 80 0b | 20 bc 0c 3d 32 35 36 20 |t.w=0...| ..=256 |
|00000490| 80 21 20 6f 66 66 73 65 | 74 3d 32 38 00 00 3b 41 |.! offse|t=28..;A|
|000004a0| 6e 64 20 63 72 65 61 74 | 65 20 73 6c 69 63 65 00 |nd creat|e slice.|
|000004b0| c8 01 20 30 2c 34 34 2b | 6f 66 66 73 65 74 2c 33 |.. 0,44+|offset,3|
|000004c0| 32 30 2c 32 30 30 2c 24 | 66 66 66 38 2c 31 2c 38 |20,200,$|fff8,1,8|
|000004d0| 2c 32 2c 33 32 30 2c 33 | 32 30 00 00 3b 64 69 73 |,2,320,3|20..;dis|
|000004e0| 70 6c 61 79 20 62 69 74 | 6d 61 70 20 30 20 61 6e |play bit|map 0 an|
|000004f0| 64 20 75 73 65 20 70 61 | 6c 65 74 74 65 20 30 00 |d use pa|lette 0.|
|00000500| c8 04 20 30 00 80 2c 20 | ce 09 20 30 00 00 3b 44 |.. 0.., |.. 0..;D|
|00000510| 72 61 77 20 61 20 6e 69 | 63 65 20 70 61 74 74 65 |raw a ni|ce patte|
|00000520| 72 6e 20 6f 6e 20 62 69 | 74 6d 61 70 20 31 00 80 |rn on bi|tmap 1..|
|00000530| 2c 20 d0 01 20 31 20 3a | 20 c7 02 20 31 00 44 72 |, .. 1 :| .. 1.Dr|
|00000540| 61 77 54 72 69 61 6e 67 | 6c 65 73 20 7b 30 2c 32 |awTriang|les {0,2|
|00000550| 30 30 2c 31 32 38 2c 31 | 7d 00 44 72 61 77 54 72 |00,128,1|}.DrawTr|
|00000560| 69 61 6e 67 6c 65 73 20 | 7b 33 36 30 2c 31 32 37 |iangles |{360,127|
|00000570| 2c 38 30 2c 31 7d 00 44 | 72 61 77 54 72 69 61 6e |,80,1}.D|rawTrian|
|00000580| 67 6c 65 73 20 7b 30 2c | 37 39 2c 34 30 2c 31 7d |gles {0,|79,40,1}|
|00000590| 00 44 72 61 77 54 72 69 | 61 6e 67 6c 65 73 20 7b |.DrawTri|angles {|
|000005a0| 33 36 30 2c 33 39 2c 31 | 30 2c 31 7d 00 00 3b 42 |360,39,1|0,1}..;B|
|000005b0| 72 69 6e 67 20 74 68 65 | 20 77 68 6f 6c 65 20 73 |ring the| whole s|
|000005c0| 63 72 65 65 6e 20 69 6e | 00 3b 44 65 72 65 7a 65 |creen in|.;Dereze|
|000005d0| 73 20 62 69 74 6d 61 70 | 20 31 20 6f 6e 74 6f 20 |s bitmap| 1 onto |
|000005e0| 62 69 74 6d 61 70 20 30 | 00 80 16 20 68 3d 31 35 |bitmap 0|... h=15|
|000005f0| 36 20 80 18 20 31 20 80 | 19 20 2d 31 00 20 20 a1 |6 .. 1 .|. -1.  .|
|00000600| 04 20 31 2c 30 2c 30 2c | 30 2c 68 2c 32 30 30 00 |. 1,0,0,|0,h,200.|
|00000610| 20 20 80 37 00 80 17 20 | 68 00 00 3b 61 20 6c 69 |  .7... |h..;a li|
|00000620| 74 74 6c 65 20 77 61 69 | 74 00 80 37 20 35 30 00 |ttle wai|t..7 50.|
|00000630| 00 3b 54 61 6b 65 20 70 | 61 72 74 20 6f 66 20 74 |.;Take p|art of t|
|00000640| 68 65 20 73 63 72 65 65 | 6e 20 6f 75 74 00 3b 44 |he scree|n out.;D|
|00000650| 65 72 65 7a 20 6c 69 6e | 65 73 20 35 30 2d 31 34 |erez lin|es 50-14|
|00000660| 39 00 00 3b 47 65 74 20 | 70 6f 73 69 74 69 6f 6e |9..;Get |position|
|00000670| 20 74 6f 20 64 65 72 65 | 7a 20 66 72 6f 6d 20 61 | to dere|z from a|
|00000680| 6e 64 20 74 6f 20 28 62 | 69 74 6d 61 70 3d 31 2c |nd to (b|itmap=1,|
|00000690| 78 3d 30 2c 79 3d 35 30 | 29 00 61 64 2e 6c 3d a1 |x=0,y=50|).ad.l=.|
|000006a0| 0b 28 31 2c 30 2c 35 30 | 29 00 00 3b 44 6f 20 74 |.(1,0,50|)..;Do t|
|000006b0| 68 65 20 64 65 72 65 7a | 00 80 16 20 68 3d 31 20 |he derez|... h=1 |
|000006c0| 80 18 20 35 36 00 20 20 | a1 04 20 31 2c 30 2c 61 |.. 56.  |.. 1,0,a|
|000006d0| 64 2c 61 64 2c 68 2c 31 | 30 30 00 20 20 80 37 00 |d,ad,h,1|00.  .7.|
|000006e0| 80 17 20 68 00 00 3b 43 | 6c 65 61 72 20 73 70 61 |.. h..;C|lear spa|
|000006f0| 72 65 20 62 69 74 6d 61 | 70 00 80 2c 20 d0 01 20 |re bitma|p.., .. |
|00000700| 31 00 c7 02 20 31 00 b2 | 05 00 80 37 00 00 3b 50 |1... 1..|...7..;P|
|00000710| 72 69 6e 74 20 73 6f 6d | 65 20 74 65 78 74 00 c7 |rint som|e text..|
|00000720| 03 20 31 00 c7 04 20 31 | 33 2c 38 00 dd 81 20 22 |. 1... 1|3,8... "|
|00000730| 54 68 65 20 46 58 20 4c | 69 62 72 61 72 79 22 00 |The FX L|ibrary".|
|00000740| 00 c7 04 20 31 30 2c 31 | 30 00 dd 81 20 22 42 79 |... 10,1|0... "By|
|00000750| 20 52 65 66 6c 65 63 74 | 69 76 65 20 49 6d 61 67 | Reflect|ive Imag|
|00000760| 65 73 22 00 00 c7 04 20 | 31 30 2c 31 34 00 dd 81 |es".... |10,14...|
|00000770| 20 22 50 72 65 73 73 20 | 61 20 6d 6f 75 73 65 20 | "Press |a mouse |
|00000780| 62 75 74 74 6f 6e 22 00 | 00 c7 04 20 31 30 2c 31 |button".|... 10,1|
|00000790| 36 00 dd 81 20 22 74 6f | 20 65 78 69 74 20 74 68 |6... "to| exit th|
|000007a0| 69 73 20 70 72 6f 67 72 | 61 6d 22 00 00 3b 42 72 |is progr|am"..;Br|
|000007b0| 69 6e 67 20 69 6e 20 74 | 68 65 20 74 65 78 74 00 |ing in t|he text.|
|000007c0| 80 16 20 68 3d 35 36 20 | 80 18 20 30 20 80 19 20 |.. h=56 |.. 0 .. |
|000007d0| 2d 31 00 20 20 a1 04 20 | 31 2c 30 2c 61 64 2c 61 |-1.  .. |1,0,ad,a|
|000007e0| 64 2c 68 2c 31 30 30 00 | 20 20 80 37 00 80 17 20 |d,h,100.|  .7... |
|000007f0| 68 00 00 80 0a 00 00 3b | 49 6e 69 74 69 61 6c 69 |h......;|Initiali|
|00000800| 73 65 20 5a 6f 6f 6d 58 | 59 20 63 6f 6d 6d 61 6e |se ZoomX|Y comman|
|00000810| 64 20 2d 20 73 6f 75 72 | 63 65 20 20 20 3d 62 69 |d - sour|ce   =bi|
|00000820| 74 6d 61 70 20 31 00 3b | 20 20 20 20 20 20 20 20 |tmap 1.;|        |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000840| 20 20 20 20 64 65 73 74 | 20 20 20 20 20 3d 62 69 |    dest|     =bi|
|00000850| 74 6d 61 70 20 30 00 3b | 20 20 20 20 20 20 20 20 |tmap 0.;|        |
|00000860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000870| 20 20 20 20 61 64 64 73 | 6f 75 72 63 65 3d 30 00 |    adds|ource=0.|
|00000880| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |;       |        |
|00000890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 61 64 64 |        |     add|
|000008a0| 64 65 73 74 20 20 3d 30 | 00 a1 06 20 31 2c 30 2c |dest  =0|... 1,0,|
|000008b0| 30 2c 30 00 00 3b 43 6f | 70 79 20 62 69 74 6d 61 |0,0..;Co|py bitma|
|000008c0| 70 20 30 20 74 6f 20 31 | 00 d0 05 20 30 2c 31 00 |p 0 to 1|... 0,1.|
|000008d0| 80 37 20 31 30 00 00 3b | 44 6f 20 7a 6f 6f 6d 21 |.7 10..;|Do zoom!|
|000008e0| 00 80 16 20 68 3d 31 20 | 80 18 20 31 30 30 00 20 |... h=1 |.. 100. |
|000008f0| 20 a1 05 20 68 2c 68 2c | 32 30 30 00 20 20 80 37 | .. h,h,|200.  .7|
|00000900| 00 80 17 20 68 00 00 3b | 41 6e 64 20 65 6e 64 20 |... h..;|And end |
|00000910| 74 68 65 20 70 72 6f 67 | 72 61 6d 00 80 02 00 00 |the prog|ram.....|
|00000920| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+