/ AmigActive 20 / AACD20.BIN / AACD / Programming / AmiSlate-Source / SlateRexx / Mandelbrot.rexx

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2f 2a 20 0a 2a 2a 20 4d | 61 6e 64 65 6c 62 72 6f |/* .** M|andelbro|
|00000010| 74 20 67 65 6e 65 72 61 | 74 6f 72 20 56 30 2e 35 |t genera|tor V0.5|
|00000020| 20 2d 2d 20 46 6f 72 20 | 75 73 65 20 77 69 74 68 | -- For |use with|
|00000030| 20 41 6d 69 53 6c 61 74 | 65 2e 0a 2a 2a 0a 2a 2a | AmiSlat|e..**.**|
|00000040| 20 43 6f 70 79 72 69 67 | 68 74 20 31 39 39 35 20 | Copyrig|ht 1995 |
|00000050| 4a 6f 68 61 6e 20 54 6f | 72 69 6e 0a 2a 2a 0a 2a |Johan To|rin.**.*|
|00000060| 2a 20 43 6f 6e 74 61 63 | 74 20 6d 65 20 61 74 20 |* Contac|t me at |
|00000070| 6a 6f 68 61 6e 40 61 72 | 74 77 6f 72 6b 73 2e 61 |johan@ar|tworks.a|
|00000080| 70 61 6e 61 2e 6f 72 67 | 2e 61 75 0a 2a 2a 0a 2a |pana.org|.au.**.*|
|00000090| 2f 0a 0a 0a 2f 2a 0a 46 | 6f 72 20 74 68 65 20 62 |/.../*.F|or the b|
|000000a0| 65 73 74 20 61 70 70 65 | 72 61 6e 63 65 2c 20 65 |est appe|rance, e|
|000000b0| 78 74 72 61 63 74 20 61 | 6e 64 20 6c 6f 61 64 20 |xtract a|nd load |
|000000c0| 74 68 69 73 20 70 69 63 | 74 75 72 65 20 69 6e 74 |this pic|ture int|
|000000d0| 6f 20 41 6d 69 53 6c 61 | 74 65 0a 62 65 66 6f 72 |o AmiSla|te.befor|
|000000e0| 65 20 72 75 6e 6e 69 6e | 67 20 74 68 69 73 20 73 |e runnin|g this s|
|000000f0| 63 72 69 70 74 2e 0a 0a | 62 65 67 69 6e 20 36 34 |cript...|begin 64|
|00000100| 34 20 4d 61 6e 64 65 6c | 43 6f 6c 6f 72 73 2e 69 |4 Mandel|Colors.i|
|00000110| 66 66 0a 4d 31 44 5d 32 | 33 30 60 60 60 28 21 29 |ff.M1D]2|30```(!)|
|00000120| 33 24 29 2d 30 44 55 28 | 31 60 60 60 60 21 30 60 |3$)-0DU(|1````!0`|
|00000130| 60 40 60 21 60 60 60 60 | 60 60 30 22 60 60 60 60 |`@`!````|``0"````|
|00000140| 60 21 38 4c 60 48 60 21 | 60 24 2d 2d 30 35 60 60 |`!8L`H`!|`$--05``|
|00000150| 56 0a 4d 60 60 60 50 60 | 60 60 60 60 60 23 50 28 |V.M```P`|`````#P(|
|00000160| 22 23 50 30 24 23 50 38 | 26 23 50 40 28 23 50 48 |"#P0$#P8|&#P@(#PH|
|00000170| 2a 23 50 50 2c 23 50 58 | 2e 23 50 5c 2f 23 50 5c |*#PP,#PX|.#P\/#P\|
|00000180| 2f 22 40 5c 2f 21 30 5c | 2f 60 60 5c 2d 60 60 30 |/"@\/!0\|/``\-``0|
|00000190| 0a 4d 5c 2c 60 60 5c 2b | 60 60 31 55 29 21 30 40 |.M\,``\+|``1U)!0@|
|000001a0| 60 60 60 60 30 60 60 30 | 60 60 30 54 25 2d 31 50 |````0``0|``0T%-1P|
|000001b0| 60 60 60 60 30 60 60 49 | 60 60 30 44 5d 24 36 30 |````0``I|``0D]$60|
|000001c0| 60 60 60 60 40 60 60 60 | 60 60 60 60 60 60 35 0a |````@```|``````5.|
|000001d0| 21 60 2c 60 60 60 0a 60 | 60 0a 65 6e 64 0a 73 69 |!`,```.`|`.end.si|
|000001e0| 7a 65 20 31 33 36 0a 2a | 2f 0a 0a 0a 0a 70 61 72 |ze 136.*|/....par|
|000001f0| 73 65 20 61 72 67 20 43 | 6f 6d 6d 61 6e 64 50 6f |se arg C|ommandPo|
|00000200| 72 74 20 41 63 74 69 76 | 65 53 74 72 69 6e 67 0a |rt Activ|eString.|
|00000210| 0a 61 64 64 72 65 73 73 | 20 28 43 6f 6d 6d 61 6e |.address| (Comman|
|00000220| 64 50 6f 72 74 29 0a 0a | 69 66 20 28 6c 65 6e 67 |dPort)..|if (leng|
|00000230| 74 68 28 43 6f 6d 6d 61 | 6e 64 50 6f 72 74 29 20 |th(Comma|ndPort) |
|00000240| 3d 3d 20 30 29 20 74 68 | 65 6e 20 64 6f 0a 09 73 |== 0) th|en do..s|
|00000250| 61 79 20 22 22 0a 09 73 | 61 79 20 22 55 73 61 67 |ay ""..s|ay "Usag|
|00000260| 65 3a 20 20 72 78 20 6d | 61 6e 64 65 6c 62 72 6f |e:  rx m|andelbro|
|00000270| 74 2e 72 65 78 78 20 3c | 52 45 58 58 50 4f 52 54 |t.rexx <|REXXPORT|
|00000280| 4e 41 4d 45 3e 22 0a 09 | 73 61 79 20 22 20 20 20 |NAME>"..|say "   |
|00000290| 20 20 20 20 20 28 52 45 | 58 58 50 4f 52 54 4e 41 |     (RE|XXPORTNA|
|000002a0| 4d 45 20 69 73 20 75 73 | 75 61 6c 6c 79 20 41 4d |ME is us|ually AM|
|000002b0| 49 53 4c 41 54 45 29 22 | 0a 09 73 61 79 20 22 22 |ISLATE)"|..say ""|
|000002c0| 0a 09 73 61 79 20 22 4f | 72 20 72 75 6e 20 66 72 |..say "O|r run fr|
|000002d0| 6f 6d 20 74 68 65 20 52 | 65 78 78 20 6d 65 6e 75 |om the R|exx menu|
|000002e0| 20 77 69 74 68 69 6e 20 | 41 6d 69 53 6c 61 74 65 | within |AmiSlate|
|000002f0| 2e 22 0a 09 73 61 79 20 | 22 22 0a 09 65 78 69 74 |."..say |""..exit|
|00000300| 20 30 0a 09 65 6e 64 0a | 0a 6f 70 74 69 6f 6e 73 | 0..end.|.options|
|00000310| 20 72 65 73 75 6c 74 73 | 0a 0a 2f 2a 20 43 61 6c | results|../* Cal|
|00000320| 63 75 6c 61 74 65 20 63 | 65 6e 74 65 72 20 6f 66 |culate c|enter of|
|00000330| 20 64 72 61 77 69 6e 67 | 20 61 72 65 61 20 2a 2f | drawing| area */|
|00000340| 0a 47 65 74 57 69 6e 64 | 6f 77 41 74 74 72 73 20 |.GetWind|owAttrs |
|00000350| 73 74 65 6d 20 77 69 6e | 2e 0a 58 5f 53 69 7a 65 |stem win|..X_Size|
|00000360| 20 3d 20 74 72 75 6e 63 | 28 28 77 69 6e 2e 77 69 | = trunc|((win.wi|
|00000370| 64 74 68 2d 35 38 29 29 | 0a 59 5f 53 69 7a 65 20 |dth-58))|.Y_Size |
|00000380| 3d 20 74 72 75 6e 63 28 | 28 77 69 6e 2e 68 65 69 |= trunc(|(win.hei|
|00000390| 67 68 74 2d 35 33 29 29 | 0a 0a 2f 2a 20 49 6e 69 |ght-53))|../* Ini|
|000003a0| 74 20 73 6f 6d 65 20 76 | 61 72 69 61 62 6c 65 73 |t some v|ariables|
|000003b0| 20 2a 2f 0a 50 69 78 65 | 6c 53 69 7a 65 20 3d 20 | */.Pixe|lSize = |
|000003c0| 33 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |3       |        |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 2f 2a 20 54 68 65 |        |  /* The|
|000003e0| 20 73 69 7a 65 20 6f 66 | 20 65 61 63 68 20 64 6f | size of| each do|
|000003f0| 74 20 69 6e 20 70 69 78 | 65 6c 73 20 2a 2f 0a 0a |t in pix|els */..|
|00000400| 49 74 65 72 61 74 69 6f | 6e 73 20 3d 20 33 32 0a |Iteratio|ns = 32.|
|00000410| 0a 5a 5f 72 20 3d 20 30 | 0a 5a 5f 69 20 3d 20 30 |.Z_r = 0|.Z_i = 0|
|00000420| 0a 43 5f 72 20 3d 20 30 | 0a 43 5f 69 20 3d 20 30 |.C_r = 0|.C_i = 0|
|00000430| 0a 4b 5f 72 20 3d 20 30 | 0a 4b 5f 69 20 3d 20 30 |.K_r = 0|.K_i = 0|
|00000440| 0a 44 65 6c 74 61 5f 72 | 20 3d 20 30 0a 44 65 6c |.Delta_r| = 0.Del|
|00000450| 74 61 5f 69 20 3d 20 30 | 0a 49 74 74 20 3d 20 30 |ta_i = 0|.Itt = 0|
|00000460| 0a 58 20 3d 20 30 0a 59 | 20 3d 20 30 0a 0a 53 74 |.X = 0.Y| = 0..St|
|00000470| 61 72 74 5f 72 20 3d 20 | 2d 32 2e 35 0a 53 74 61 |art_r = |-2.5.Sta|
|00000480| 72 74 5f 69 20 3d 20 2d | 31 2e 37 35 0a 45 6e 64 |rt_i = -|1.75.End|
|00000490| 5f 72 20 3d 20 31 2e 35 | 0a 45 6e 64 5f 69 20 3d |_r = 1.5|.End_i =|
|000004a0| 20 31 2e 37 35 0a 0a 0a | 55 6c 5f 72 20 3d 20 53 | 1.75...|Ul_r = S|
|000004b0| 74 61 72 74 5f 72 0a 55 | 6c 5f 69 20 3d 20 53 74 |tart_r.U|l_i = St|
|000004c0| 61 72 74 5f 69 0a 4c 72 | 5f 72 20 3d 20 45 6e 64 |art_i.Lr|_r = End|
|000004d0| 5f 72 0a 4c 72 5f 69 20 | 3d 20 45 6e 64 5f 69 0a |_r.Lr_i |= End_i.|
|000004e0| 0a 44 65 6c 74 61 5f 72 | 20 3d 20 4c 72 5f 72 2d |.Delta_r| = Lr_r-|
|000004f0| 55 6c 5f 72 0a 44 65 6c | 74 61 5f 69 20 3d 20 4c |Ul_r.Del|ta_i = L|
|00000500| 72 5f 69 2d 55 6c 5f 72 | 0a 0a 0a 44 6f 20 59 20 |r_i-Ul_r|...Do Y |
|00000510| 3d 20 30 20 74 6f 20 59 | 5f 53 69 7a 65 2d 31 20 |= 0 to Y|_Size-1 |
|00000520| 42 59 20 50 69 78 65 6c | 53 69 7a 65 2b 31 0a 20 |BY Pixel|Size+1. |
|00000530| 20 20 43 5f 69 20 3d 20 | 44 65 6c 74 61 5f 69 2f |  C_i = |Delta_i/|
|00000540| 59 5f 53 69 7a 65 2a 59 | 2b 55 6c 5f 69 0a 20 20 |Y_Size*Y|+Ul_i.  |
|00000550| 20 44 6f 20 58 20 3d 20 | 30 20 74 6f 20 58 5f 53 | Do X = |0 to X_S|
|00000560| 69 7a 65 2d 31 20 42 59 | 20 50 69 78 65 6c 53 69 |ize-1 BY| PixelSi|
|00000570| 7a 65 2b 31 0a 20 20 20 | 20 20 20 43 5f 72 20 3d |ze+1.   |   C_r =|
|00000580| 20 44 65 6c 74 61 5f 72 | 2f 58 5f 53 69 7a 65 2a | Delta_r|/X_Size*|
|00000590| 58 2b 55 6c 5f 72 0a 20 | 20 20 20 20 20 5a 5f 72 |X+Ul_r. |     Z_r|
|000005a0| 20 3d 20 43 5f 72 0a 20 | 20 20 20 20 20 5a 5f 69 | = C_r. |     Z_i|
|000005b0| 20 3d 20 43 5f 69 0a 20 | 20 20 20 20 20 4b 5f 72 | = C_i. |     K_r|
|000005c0| 20 3d 20 5a 5f 72 20 2a | 20 5a 5f 72 0a 20 20 20 | = Z_r *| Z_r.   |
|000005d0| 20 20 20 4b 5f 69 20 3d | 20 5a 5f 69 20 2a 20 5a |   K_i =| Z_i * Z|
|000005e0| 5f 69 0a 20 20 20 20 20 | 20 49 74 74 20 3d 20 30 |_i.     | Itt = 0|
|000005f0| 0a 20 20 20 20 20 20 44 | 6f 20 57 68 69 6c 65 20 |.      D|o While |
|00000600| 28 28 4b 5f 72 20 2b 20 | 4b 5f 69 29 20 3c 20 34 |((K_r + |K_i) < 4|
|00000610| 29 20 26 20 28 49 74 74 | 20 3c 20 49 74 65 72 61 |) & (Itt| < Itera|
|00000620| 74 69 6f 6e 73 29 0a 20 | 20 20 20 20 20 20 20 20 |tions). |        |
|00000630| 5a 5f 69 20 3d 20 32 20 | 2a 20 5a 5f 72 20 2a 20 |Z_i = 2 |* Z_r * |
|00000640| 5a 5f 69 20 2b 20 43 5f | 69 0a 20 20 20 20 20 20 |Z_i + C_|i.      |
|00000650| 20 20 20 5a 5f 72 20 3d | 20 4b 5f 72 20 2d 20 4b |   Z_r =| K_r - K|
|00000660| 5f 69 20 2b 20 43 5f 72 | 0a 20 20 20 20 20 20 20 |_i + C_r|.       |
|00000670| 20 20 4b 5f 72 20 3d 20 | 5a 5f 72 20 2a 20 5a 5f |  K_r = |Z_r * Z_|
|00000680| 72 0a 20 20 20 20 20 20 | 20 20 20 4b 5f 69 20 3d |r.      |   K_i =|
|00000690| 20 5a 5f 69 20 2a 20 5a | 5f 69 0a 20 20 20 20 20 | Z_i * Z|_i.     |
|000006a0| 20 20 20 20 49 74 74 20 | 3d 20 49 74 74 20 2b 20 |    Itt |= Itt + |
|000006b0| 31 0a 20 20 20 20 20 20 | 20 20 20 65 6e 64 0a 20 |1.      |   end. |
|000006c0| 20 20 20 20 20 49 66 20 | 49 74 74 20 3e 20 49 74 |     If |Itt > It|
|000006d0| 65 72 61 74 69 6f 6e 73 | 2d 32 20 74 68 65 6e 20 |erations|-2 then |
|000006e0| 49 74 74 20 3d 20 2d 33 | 0a 0a 20 20 20 20 20 20 |Itt = -3|..      |
|000006f0| 53 65 74 46 50 65 6e 20 | 49 74 74 2b 34 0a 20 20 |SetFPen |Itt+4.  |
|00000700| 20 20 20 20 53 71 75 61 | 72 65 20 58 20 59 20 58 |    Squa|re X Y X|
|00000710| 2b 50 69 78 65 6c 53 69 | 7a 65 20 59 2b 50 69 78 |+PixelSi|ze Y+Pix|
|00000720| 65 6c 53 69 7a 65 20 46 | 49 4c 4c 0a 0a 20 20 20 |elSize F|ILL..   |
|00000730| 45 6e 64 0a 45 6e 64 0a |                         |End.End.|        |
+--------+-------------------------+-------------------------+--------+--------+