/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / BLZ_EXD.DMS / in.adf / bum6 / frac.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 66 72 61 63 | 74 61 6c 20 64 65 6d 6f |;.; frac|tal demo|
|00000010| 00 3b 00 00 23 73 78 3d | 36 34 30 00 23 73 79 3d |.;..#sx=|640.#sy=|
|00000020| 35 31 32 00 00 80 01 20 | 2e 69 66 73 00 20 20 61 |512.... |.ifs.  a|
|00000030| 2e 71 3a 62 3a 63 3a 64 | 3a 65 3a 66 3a 70 00 80 |.q:b:c:d|:e:f:p..|
|00000040| 02 20 80 01 00 00 cf 01 | 20 30 2c 31 2b 38 2b 31 |. ......| 0,1+8+1|
|00000050| 36 00 00 ce 05 20 30 2c | 30 2c 30 2c 30 3a ce 05 |6.... 0,|0,0,0:..|
|00000060| 20 31 2c 31 35 2c 31 35 | 2c 31 35 00 00 d0 03 20 | 1,15,15|,15.... |
|00000070| 30 2c 30 00 00 80 16 20 | 69 6d 61 67 65 3d 31 20 |0,0.... |image=1 |
|00000080| 80 18 20 36 00 20 20 3b | 00 20 20 76 61 6c 75 65 |.. 6.  ;|.  value|
|00000090| 3d 31 38 35 30 30 00 20 | 20 3b 00 20 20 80 2c 20 |=18500. | ;.  ., |
|000000a0| d0 01 20 30 00 20 20 3b | 00 20 20 b2 05 00 20 20 |.. 0.  ;|.  ...  |
|000000b0| 3b 00 20 20 80 1b 20 74 | 72 61 6e 73 2c 78 73 63 |;.  .. t|rans,xsc|
|000000c0| 61 6c 65 2c 78 6f 66 66 | 2c 79 73 63 61 6c 65 2c |ale,xoff|,yscale,|
|000000d0| 79 6f 66 66 2c 73 63 78 | 6f 66 66 2c 73 63 79 6f |yoff,scx|off,scyo|
|000000e0| 66 66 2c 63 73 70 67 72 | 65 65 6e 2c 63 73 70 62 |ff,cspgr|een,cspb|
|000000f0| 6c 75 65 00 20 20 3b 00 | 20 20 80 04 20 80 b3 20 |lue.  ;.|  .. .. |
|00000100| 63 6f 64 65 2e 69 66 73 | 28 74 72 61 6e 73 29 00 |code.ifs|(trans).|
|00000110| 20 20 3b 00 20 20 80 ca | 20 63 6f 64 65 28 29 00 |  ;.  ..| code().|
|00000120| 20 20 3b 00 20 20 80 16 | 20 69 3d 30 20 80 18 20 |  ;.  ..| i=0 .. |
|00000130| 74 72 61 6e 73 2d 31 00 | 20 20 20 20 c0 02 20 63 |trans-1.|    .. c|
|00000140| 6f 64 65 28 29 00 20 20 | 20 20 80 1b 20 5c 61 2c |ode().  |  .. \a,|
|00000150| 5c 62 2c 5c 63 2c 5c 64 | 2c 5c 65 2c 5c 66 2c 5c |\b,\c,\d|,\e,\f,\|
|00000160| 70 00 20 20 80 17 00 20 | 20 3b 00 20 20 78 3d 30 |p.  ... | ;.  x=0|
|00000170| 3a 79 3d 30 3a 64 65 74 | 61 69 6c 3d 30 00 20 20 |:y=0:det|ail=0.  |
|00000180| 3b 00 20 20 80 bb 00 3b | 00 3b 20 66 72 61 63 74 |;.  ...;|.; fract|
|00000190| 61 6c 20 62 61 63 6b 67 | 72 6f 75 6e 64 20 72 6f |al backg|round ro|
|000001a0| 75 74 69 6e 65 00 3b 00 | 20 20 20 20 20 20 80 2c |utine.;.|      .,|
|000001b0| 20 d0 01 20 30 00 20 20 | 20 20 20 20 c0 04 20 63 | .. 0.  |    .. c|
|000001c0| 6f 64 65 28 29 00 20 20 | 20 20 20 20 80 0c 20 c0 |ode().  |    .. .|
|000001d0| 03 28 63 6f 64 65 28 29 | 29 00 20 20 20 20 20 20 |.(code()|).      |
|000001e0| 20 20 6e 3d bc 07 00 20 | 20 20 20 20 20 20 20 80 |  n=... |       .|
|000001f0| 0b 20 6e 20 3c 3d 20 5c | 70 00 20 20 20 20 20 20 |. n <= \|p.      |
|00000200| 20 20 20 20 6e 65 77 78 | 3d 5c 61 2a 78 20 2b 20 |    newx|=\a*x + |
|00000210| 5c 62 2a 79 20 2b 20 5c | 65 00 20 20 20 20 20 20 |\b*y + \|e.      |
|00000220| 20 20 20 20 6e 65 77 79 | 3d 5c 63 2a 78 20 2b 20 |    newy|=\c*x + |
|00000230| 5c 64 2a 79 20 2b 20 5c | 66 00 20 20 20 20 20 20 |\d*y + \|f.      |
|00000240| 20 20 20 20 78 3d 6e 65 | 77 78 00 20 20 20 20 20 |    x=ne|wx.     |
|00000250| 20 20 20 20 20 79 3d 6e | 65 77 79 00 20 20 20 20 |     y=n|ewy.    |
|00000260| 20 20 20 20 20 20 78 63 | 6f 3d 78 2a 78 73 63 61 |      xc|o=x*xsca|
|00000270| 6c 65 2b 78 6f 66 66 00 | 20 20 20 20 20 20 20 20 |le+xoff.|        |
|00000280| 20 20 79 63 6f 3d 28 79 | 73 63 61 6c 65 2d 28 79 |  yco=(y|scale-(y|
|00000290| 2a 79 73 63 61 6c 65 29 | 29 2d 79 6f 66 66 00 20 |*yscale)|)-yoff. |
|000002a0| 20 20 20 20 20 20 20 20 | 20 80 0b 20 64 65 74 61 |        | .. deta|
|000002b0| 69 6c 3e 31 30 20 80 21 | 20 b2 03 20 78 63 6f 2c |il>10 .!| .. xco,|
|000002c0| 79 63 6f 2c 31 20 80 22 | 20 64 65 74 61 69 6c 2b |yco,1 ."| detail+|
|000002d0| 31 00 20 20 20 20 20 20 | 20 20 80 c0 00 20 20 20 |1.      |  ...   |
|000002e0| 20 20 20 80 c1 00 00 20 | 20 80 bc 20 df 04 28 30 |   .... | .. ..(0|
|000002f0| 29 3c 3e 30 3a 80 37 20 | 35 30 00 00 80 17 00 00 |)<>0:.7 |50......|
|00000300| 80 02 00 00 2e 64 61 74 | 61 00 3b 00 3b 20 54 68 |.....dat|a.;.; Th|
|00000310| 65 20 66 69 72 73 74 20 | 74 77 6f 20 64 61 74 61 |e first |two data|
|00000320| 20 6c 69 6e 65 73 20 61 | 72 65 20 63 6f 6c 6f 75 | lines a|re colou|
|00000330| 72 73 2c 20 73 63 61 6c | 69 6e 67 73 20 61 6e 64 |rs, scal|ings and|
|00000340| 20 73 63 72 65 65 6e 20 | 6f 66 66 73 65 74 73 00 | screen |offsets.|
|00000350| 3b 20 54 68 65 20 72 65 | 6d 61 69 6e 69 6e 67 20 |; The re|maining |
|00000360| 6c 69 6e 65 73 20 61 72 | 65 20 74 68 65 20 49 2e |lines ar|e the I.|
|00000370| 46 2e 53 2e 20 63 6f 64 | 65 73 20 66 6f 72 20 74 |F.S. cod|es for t|
|00000380| 68 65 20 66 72 61 63 74 | 61 6c 73 20 66 6f 6c 6c |he fract|als foll|
|00000390| 6f 77 65 64 00 3b 20 62 | 79 20 74 68 65 20 74 65 |owed.; b|y the te|
|000003a0| 78 74 20 63 6f 6c 6f 75 | 72 73 20 61 6e 64 20 63 |xt colou|rs and c|
|000003b0| 2e 76 2e 20 74 65 78 74 | 00 00 3b 00 3b 20 4d 2e |.v. text|..;.; M.|
|000003c0| 46 2e 42 61 72 6e 73 6c | 65 79 27 73 20 46 65 72 |F.Barnsl|ey's Fer|
|000003d0| 6e 20 4c 65 61 66 00 3b | 00 80 1a 20 34 2c 38 30 |n Leaf.;|... 4,80|
|000003e0| 2c 32 37 30 2c 35 30 2c | 2d 34 36 30 2c 30 2c 30 |,270,50,|-460,0,0|
|000003f0| 2c 30 2c 30 00 80 1a 20 | 30 2c 30 2c 30 2c 30 2e |,0,0... |0,0,0,0.|
|00000400| 31 36 2c 30 2c 30 2c 30 | 2e 30 31 00 80 1a 20 30 |16,0,0,0|.01... 0|
|00000410| 2e 32 2c 2d 30 2e 32 36 | 2c 30 2e 32 33 2c 30 2e |.2,-0.26|,0.23,0.|
|00000420| 32 32 2c 30 2c 31 2e 36 | 2c 30 2e 30 37 00 80 1a |22,0,1.6|,0.07...|
|00000430| 20 2d 30 2e 31 35 2c 30 | 2e 32 38 2c 30 2e 32 36 | -0.15,0|.28,0.26|
|00000440| 2c 30 2e 32 34 2c 30 2c | 30 2e 34 34 2c 30 2e 30 |,0.24,0,|0.44,0.0|
|00000450| 37 00 80 1a 20 30 2e 38 | 35 2c 30 2e 30 34 2c 2d |7... 0.8|5,0.04,-|
|00000460| 30 2e 30 34 2c 30 2e 38 | 35 2c 30 2c 31 2e 36 2c |0.04,0.8|5,0,1.6,|
|00000470| 30 2e 38 35 00 00 3b 00 | 3b 20 53 70 69 72 61 6c |0.85..;.|; Spiral|
|00000480| 73 00 3b 00 80 1a 20 32 | 2c 35 35 30 2c 33 30 37 |s.;... 2|,550,307|
|00000490| 2c 34 30 30 2c 31 34 30 | 2c 30 2c 30 2c 30 2c 30 |,400,140|,0,0,0,0|
|000004a0| 00 80 1a 20 2d 30 2e 31 | 35 2c 30 2c 30 2c 2d 30 |... -0.1|5,0,0,-0|
|000004b0| 2e 31 35 2c 2d 30 2e 37 | 35 2c 2d 30 2e 32 35 2c |.15,-0.7|5,-0.25,|
|000004c0| 30 2e 31 00 80 1a 20 31 | 2e 31 37 39 2c 2d 30 2e |0.1... 1|.179,-0.|
|000004d0| 35 39 34 2c 30 2e 35 39 | 34 2c 30 2e 34 36 37 2c |594,0.59|4,0.467,|
|000004e0| 30 2c 30 2c 30 2e 39 00 | 00 3b 00 3b 20 46 65 72 |0,0,0.9.|.;.; Fer|
|000004f0| 6e 20 4c 65 61 66 00 3b | 00 80 1a 20 34 2c 36 34 |n Leaf.;|... 4,64|
|00000500| 30 2c 32 31 2c 35 31 32 | 2c 31 30 2c 30 2c 30 2c |0,21,512|,10,0,0,|
|00000510| 31 30 2c 31 32 00 80 1a | 20 30 2e 35 30 34 2c 2d |10,12...| 0.504,-|
|00000520| 30 2e 31 32 31 2c 30 2e | 30 38 39 2c 30 2e 36 38 |0.121,0.|089,0.68|
|00000530| 35 2c 30 2e 32 34 38 2c | 30 2e 32 35 2c 30 2e 35 |5,0.248,|0.25,0.5|
|00000540| 00 80 1a 20 30 2e 32 31 | 34 2c 2d 30 2e 33 37 38 |... 0.21|4,-0.378|
|00000550| 2c 30 2e 32 31 34 2c 30 | 2e 33 37 38 2c 30 2e 33 |,0.214,0|.378,0.3|
|00000560| 39 33 2c 30 2e 30 34 34 | 2c 30 2e 32 00 80 1a 20 |93,0.044|,0.2... |
|00000570| 30 2e 32 2c 30 2e 33 35 | 34 2c 2d 30 2e 32 2c 30 |0.2,0.35|4,-0.2,0|
|00000580| 2e 33 35 34 2c 30 2e 34 | 2c 30 2e 33 36 37 2c 30 |.354,0.4|,0.367,0|
|00000590| 2e 32 00 80 1a 20 30 2e | 30 32 35 2c 30 2c 30 2c |.2... 0.|025,0,0,|
|000005a0| 30 2e 33 35 2c 30 2e 34 | 39 35 2c 30 2c 30 2e 31 |0.35,0.4|95,0,0.1|
|000005b0| 00 00 3b 00 3b 20 53 69 | 65 72 70 69 6e 73 6b 69 |..;.; Si|erpinski|
|000005c0| 20 54 72 69 61 6e 67 6c | 65 00 3b 00 80 1a 20 33 | Triangl|e.;... 3|
|000005d0| 2c 36 34 30 2c 31 34 2c | 35 31 32 2c 32 30 2c 30 |,640,14,|512,20,0|
|000005e0| 2c 30 2c 31 31 2c 39 00 | 80 1a 20 30 2e 35 2c 30 |,0,11,9.|.. 0.5,0|
|000005f0| 2c 30 2c 30 2e 35 2c 30 | 2c 30 2c 30 2e 33 33 00 |,0,0.5,0|,0,0.33.|
|00000600| 80 1a 20 30 2e 35 2c 30 | 2c 30 2c 30 2e 35 2c 30 |.. 0.5,0|,0,0.5,0|
|00000610| 2e 35 2c 30 2c 30 2e 33 | 33 00 80 1a 20 30 2e 35 |.5,0,0.3|3... 0.5|
|00000620| 2c 30 2c 30 2c 30 2e 35 | 2c 30 2e 32 35 2c 30 2e |,0,0,0.5|,0.25,0.|
|00000630| 34 33 33 2c 30 2e 33 34 | 00 00 3b 00 3b 20 53 6e |433,0.34|..;.; Sn|
|00000640| 6f 77 66 6c 61 6b 65 00 | 3b 00 80 1a 20 35 2c 36 |owflake.|;... 5,6|
|00000650| 34 30 2c 31 35 2c 35 30 | 30 2c 2d 31 30 2c 30 2c |40,15,50|0,-10,0,|
|00000660| 30 2c 39 2c 33 00 80 1a | 20 30 2e 33 38 32 2c 30 |0,9,3...| 0.382,0|
|00000670| 2c 30 2c 30 2e 33 38 32 | 2c 30 2e 31 33 38 2c 30 |,0,0.382|,0.138,0|
|00000680| 2e 30 37 34 2c 30 2e 32 | 00 80 1a 20 30 2e 33 38 |.074,0.2|... 0.38|
|00000690| 32 2c 30 2c 30 2c 30 2e | 33 38 32 2c 30 2e 34 38 |2,0,0,0.|382,0.48|
|000006a0| 2c 30 2e 30 37 34 2c 30 | 2e 32 00 80 1a 20 30 2e |,0.074,0|.2... 0.|
|000006b0| 33 38 32 2c 30 2c 30 2c | 30 2e 33 38 32 2c 30 2e |382,0,0,|0.382,0.|
|000006c0| 35 38 35 2c 30 2e 33 39 | 39 2c 30 2e 32 00 80 1a |585,0.39|9,0.2...|
|000006d0| 20 30 2e 33 38 32 2c 30 | 2c 30 2c 30 2e 33 38 32 | 0.382,0|,0,0.382|
|000006e0| 2c 30 2e 33 31 2c 30 2e | 36 2c 30 2e 32 00 80 1a |,0.31,0.|6,0.2...|
|000006f0| 20 30 2e 33 38 32 2c 30 | 2c 30 2c 30 2e 33 38 32 | 0.382,0|,0,0.382|
|00000700| 2c 30 2e 30 33 33 2c 30 | 2e 33 39 39 2c 30 2e 32 |,0.033,0|.399,0.2|
|00000710| 00 00 3b 00 3b 20 54 65 | 64 20 66 72 61 63 74 61 |..;.; Te|d fracta|
|00000720| 6c 00 3b 00 80 1a 20 39 | 2c 36 34 30 2c 31 35 2c |l.;... 9|,640,15,|
|00000730| 35 31 32 2c 30 2c 30 2c | 30 2c 30 2c 30 00 80 1a |512,0,0,|0,0,0...|
|00000740| 20 30 2e 33 2c 30 2c 30 | 2c 30 2e 32 2c 30 2c 30 | 0.3,0,0|,0.2,0,0|
|00000750| 2e 38 2c 30 2e 31 00 80 | 1a 20 30 2c 30 2e 31 2c |.8,0.1..|. 0,0.1,|
|00000760| 2d 30 2e 38 2c 30 2c 30 | 2e 31 2c 30 2e 38 2c 30 |-0.8,0,0|.1,0.8,0|
|00000770| 2e 31 34 00 80 1a 20 30 | 2c 30 2e 31 2c 2d 31 2c |.14... 0|,0.1,-1,|
|00000780| 30 2c 30 2e 33 35 2c 31 | 2c 30 2e 31 37 00 80 1a |0,0.35,1|,0.17...|
|00000790| 20 30 2e 32 2c 30 2c 30 | 2c 30 2e 32 2c 30 2e 34 | 0.2,0,0|,0.2,0.4|
|000007a0| 35 2c 30 2e 38 2c 30 2e | 30 37 00 80 1a 20 30 2e |5,0.8,0.|07... 0.|
|000007b0| 32 2c 30 2c 30 2c 30 2e | 32 2c 30 2e 34 35 2c 30 |2,0,0,0.|2,0.45,0|
|000007c0| 2e 34 2c 30 2e 30 37 00 | 80 1a 20 30 2e 32 2c 30 |.4,0.07.|.. 0.2,0|
|000007d0| 2c 30 2c 30 2e 32 2c 30 | 2e 34 35 2c 30 2c 30 2e |,0,0.2,0|.45,0,0.|
|000007e0| 30 37 00 80 1a 20 30 2c | 30 2e 31 2c 2d 31 2c 30 |07... 0,|0.1,-1,0|
|000007f0| 2c 30 2e 37 2c 31 2c 30 | 2e 31 37 00 80 1a 20 30 |,0.7,1,0|.17... 0|
|00000800| 2e 31 35 2c 30 2e 30 39 | 2c 2d 30 2e 35 2c 30 2e |.15,0.09|,-0.5,0.|
|00000810| 31 31 2c 30 2e 37 36 2c | 30 2e 38 39 2c 30 2e 31 |11,0.76,|0.89,0.1|
|00000820| 00 80 1a 20 2d 30 2e 31 | 35 2c 30 2e 30 39 2c 2d |... -0.1|5,0.09,-|
|00000830| 30 2e 35 2c 2d 30 2e 31 | 31 2c 30 2e 39 31 2c 30 |0.5,-0.1|1,0.91,0|
|00000840| 2e 36 31 2c 30 2e 31 00 | 00                      |.61,0.1.|.       |
+--------+-------------------------+-------------------------+--------+--------+