home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / fractal / progs / booker / StrGenDraw < prev    next >
Unknown  |  1991-06-01  |  4.4 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert Truevision Targa Graphic (image/tga) magic Supported
100% file data default
100% xdgMime image/x-tga default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 4b f4 20 20 3e | 53 74 72 47 65 6e 44 72 |...K. >|StrGenDr|
|00000010| 61 77 20 20 20 20 20 20 | 20 20 53 74 72 69 6e 67 |aw | String|
|00000020| 20 47 65 6e 65 72 61 74 | 69 6e 67 2c 20 46 72 61 | Generat|ing, Fra|
|00000030| 63 74 61 6c 20 70 69 63 | 74 75 72 65 73 20 74 6f |ctal pic|tures to|
|00000040| 20 44 72 61 77 20 46 69 | 6c 65 73 0d 00 14 1b f4 | Draw Fi|les.....|
|00000050| 20 20 4d 41 43 48 49 4e | 45 3a 20 20 41 72 63 68 | MACHIN|E: Arch|
|00000060| 69 6d 65 64 65 73 0d 00 | 1e 1c f4 20 20 4c 41 4e |imedes..|... LAN|
|00000070| 47 55 41 47 45 3a 20 42 | 42 43 20 42 41 53 49 43 |GUAGE: B|BC BASIC|
|00000080| 20 56 0d 00 28 1b f4 20 | 20 41 55 54 48 4f 52 3a | V..(.. | AUTHOR:|
|00000090| 20 20 20 43 79 20 42 6f | 6f 6b 65 72 2c 0d 00 32 | Cy Bo|oker,..2|
|000000a0| 47 f4 20 20 20 20 20 20 | 20 20 20 20 20 20 38 36 |G. | 86|
|000000b0| 20 43 68 75 72 63 68 20 | 56 69 65 77 2c 20 4d 61 | Church |View, Ma|
|000000c0| 69 6e 20 52 6f 61 64 2c | 20 43 72 6f 63 6b 65 6e |in Road,| Crocken|
|000000d0| 68 69 6c 6c 2c 20 53 77 | 61 6e 6c 65 79 2c 20 4b |hill, Sw|anley, K|
|000000e0| 65 6e 74 2e 0d 00 3c 18 | f4 20 20 20 20 20 20 20 |ent...<.|. |
|000000f0| 20 20 20 20 20 42 52 38 | 20 38 4a 57 0d 00 46 3d | BR8| 8JW..F=|
|00000100| f4 20 20 42 61 73 65 64 | 20 6f 6e 20 61 6e 20 61 |. Based| on an a|
|00000110| 72 74 69 63 6c 65 20 62 | 79 20 54 69 6d 20 41 75 |rticle b|y Tim Au|
|00000120| 73 74 69 6e 2c 20 69 6e | 20 46 72 61 63 74 61 6c |stin, in| Fractal|
|00000130| 20 52 65 70 6f 72 74 20 | 38 0d 00 50 05 f4 0d 00 | Report |8..P....|
|00000140| 5a 05 3a 0d 00 64 3f c8 | 9b 20 22 3c 42 61 73 69 |Z.:..d?.|. "<Basi|
|00000150| 63 56 24 4c 69 62 3e 2e | 4c 69 62 48 61 6e 64 6c |cV$Lib>.|LibHandl|
|00000160| 65 72 22 20 20 3a 20 20 | ee 20 85 20 f2 5f 68 61 |er" : |. . ._ha|
|00000170| 6e 64 6c 65 5f 6c 69 62 | 72 61 72 79 5f 65 72 72 |ndle_lib|rary_err|
|00000180| 6f 72 0d 00 6e 2b f2 5f | 68 61 72 64 5f 69 6e 69 |or..n+._|hard_ini|
|00000190| 74 69 61 6c 69 73 65 5f | 4c 69 62 48 61 6e 64 6c |tialise_|LibHandl|
|000001a0| 65 72 28 20 32 30 2c 20 | 30 31 30 20 29 0d 00 78 |er( 20, |010 )..x|
|000001b0| 32 f2 5f 6c 6f 61 64 5f | 6c 69 62 72 61 72 79 28 |2._load_|library(|
|000001c0| 20 22 3c 42 61 73 69 63 | 56 24 4c 69 62 3e 2e 4d | "<Basic|V$Lib>.M|
|000001d0| 6f 64 65 49 6e 66 6f 22 | 2c 20 30 30 31 20 29 0d |odeInfo"|, 001 ).|
|000001e0| 00 82 34 f2 5f 6c 6f 61 | 64 5f 6c 69 62 72 61 72 |..4._loa|d_librar|
|000001f0| 79 28 20 22 3c 42 61 73 | 69 63 56 24 4c 69 62 3e |y( "<Bas|icV$Lib>|
|00000200| 2e 43 72 65 61 74 65 44 | 72 61 77 22 2c 20 30 30 |.CreateD|raw", 00|
|00000210| 31 20 29 0d 00 8c 05 3a | 0d 00 96 0f 20 20 6d 6f |1 )....:|.... mo|
|00000220| 64 65 25 20 3d 20 30 0d | 00 a0 05 3a 0d 00 aa 0d |de% = 0.|...:....|
|00000230| 20 20 eb 20 6d 6f 64 65 | 25 0d 00 b4 41 20 20 f2 | . mode|%...A .|
|00000240| 5f 67 65 74 5f 6d 6f 64 | 65 5f 69 6e 66 6f 28 20 |_get_mod|e_info( |
|00000250| eb 20 29 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |. ) | :|
|00000260| 20 20 f4 20 20 53 65 74 | 20 6c 6f 61 64 73 61 20 | . Set| loadsa |
|00000270| 76 61 72 69 61 62 6c 65 | 73 2e 0d 00 be 05 3a 0d |variable|s.....:.|
|00000280| 00 c8 14 20 20 f2 5f 6d | 61 69 6e 5f 70 72 6f 67 |... ._m|ain_prog|
|00000290| 72 61 6d 0d 00 d2 05 e0 | 0d 00 dc 05 3a 0d 00 e6 |ram.....|....:...|
|000002a0| 4b f4 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |K. *****|********|
|000002b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002e0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 00 f0 05 3a 0d 00 fa |********|....:...|
|000002f0| 14 dd 20 f2 5f 6d 61 69 | 6e 5f 70 72 6f 67 72 61 |.. ._mai|n_progra|
|00000300| 6d 0d 01 04 46 ea 20 63 | 68 61 72 24 28 29 2c 20 |m...F. c|har$(), |
|00000310| 72 75 6c 65 24 28 29 2c | 20 6d 61 78 5f 6e 25 2c |rule$(),| max_n%,|
|00000320| 20 6e 25 2c 20 61 78 69 | 6f 6d 25 2c 20 62 78 69 | n%, axi|om%, bxi|
|00000330| 6f 6d 25 2c 20 66 25 2c | 20 61 6e 67 6c 65 2c 20 |om%, f%,| angle, |
|00000340| 63 79 63 6c 65 73 25 0d | 01 0e 47 ea 20 69 25 2c |cycles%.|..G. i%,|
|00000350| 20 6a 25 2c 20 6b 25 2c | 20 62 25 2c 20 78 2c 20 | j%, k%,| b%, x, |
|00000360| 79 2c 20 61 2c 20 62 2c | 20 73 74 61 63 6b 25 2c |y, a, b,| stack%,|
|00000370| 20 78 28 29 2c 20 79 28 | 29 2c 20 61 6e 67 6c 65 | x(), y(|), angle|
|00000380| 28 29 2c 20 64 65 70 74 | 68 25 2c 20 6c 25 0d 01 |(), dept|h%, l%..|
|00000390| 18 08 ea 20 65 25 0d 01 | 22 07 20 20 3a 0d 01 2c |... e%..|". :..,|
|000003a0| 11 20 20 6d 61 78 5f 6e | 25 20 3d 20 31 30 0d 01 |. max_n|% = 10..|
|000003b0| 36 23 20 20 de 20 63 68 | 61 72 25 20 6d 61 78 5f |6# . ch|ar% max_|
|000003c0| 6e 25 2c 20 72 75 6c 65 | 24 28 6d 61 78 5f 6e 25 |n%, rule|$(max_n%|
|000003d0| 29 0d 01 40 17 20 20 de | 20 61 78 69 6f 6d 25 20 |)..@. .| axiom% |
|000003e0| 31 30 30 2a 31 30 32 34 | 0d 01 4a 32 20 20 de 20 |100*1024|..J2 . |
|000003f0| 62 78 69 6f 6d 25 20 31 | 30 30 2a 31 30 32 34 3a |bxiom% 1|00*1024:|
|00000400| 20 65 25 3d 62 78 69 6f | 6d 25 2b 31 30 30 2a 31 | e%=bxio|m%+100*1|
|00000410| 30 32 34 2a 39 35 2f 31 | 30 30 0d 01 54 07 20 20 |024*95/1|00..T. |
|00000420| 3a 0d 01 5e 07 20 20 87 | 0d 01 68 07 20 20 3a 0d |:..^. .|..h. :.|
|00000430| 01 72 2e 20 20 f1 20 22 | 50 65 72 66 6f 72 6d 20 |.r. . "|Perform |
|00000440| 61 20 73 74 72 69 6e 67 | 20 67 65 6e 65 72 61 74 |a string| generat|
|00000450| 69 6e 67 20 46 72 61 63 | 74 61 6c 2e 22 0d 01 7c |ing Frac|tal."..||
|00000460| 1e f4 20 20 50 52 4f 43 | 5f 56 6f 6e 5f 4b 6f 63 |.. PROC|_Von_Koc|
|00000470| 68 5f 73 6e 6f 77 66 6c | 61 6b 65 0d 01 86 27 f4 |h_snowfl|ake...'.|
|00000480| 20 20 50 52 4f 43 5f 48 | 69 6c 62 65 72 74 5f 73 | PROC_H|ilbert_s|
|00000490| 70 61 63 65 5f 66 69 6c | 6c 69 6e 67 5f 63 75 72 |pace_fil|ling_cur|
|000004a0| 76 65 0d 01 90 25 f4 20 | 20 50 52 4f 43 5f 50 65 |ve...%. | PROC_Pe|
|000004b0| 61 6e 6f 5f 73 70 61 63 | 65 5f 66 69 6c 6c 69 6e |ano_spac|e_fillin|
|000004c0| 67 5f 63 75 72 76 65 0d | 01 9a 18 f4 20 20 50 52 |g_curve.|.... PR|
|000004d0| 4f 43 5f 44 72 61 67 6f | 6e 5f 63 75 72 76 65 0d |OC_Drago|n_curve.|
|000004e0| 01 a4 21 f4 20 20 50 52 | 4f 43 5f 51 75 61 64 72 |..!. PR|OC_Quadr|
|000004f0| 61 74 69 63 5f 4b 6f 63 | 68 5f 49 73 6c 61 6e 64 |atic_Koc|h_Island|
|00000500| 0d 01 ae 12 f4 20 20 50 | 52 4f 43 5f 42 75 73 68 |..... P|ROC_Bush|
|00000510| 5f 31 0d 01 b8 12 f4 20 | 20 50 52 4f 43 5f 42 75 |_1..... | PROC_Bu|
|00000520| 73 68 5f 32 0d 01 c2 12 | f4 20 20 50 52 4f 43 5f |sh_2....|. PROC_|
|00000530| 42 75 73 68 5f 33 0d 01 | cc 0c 20 20 f2 5f 43 79 |Bush_3..|.. ._Cy|
|00000540| 5f 31 0d 01 d6 07 20 20 | 3a 0d 01 e0 17 20 20 6c |_1.... |:.... l|
|00000550| 25 20 3d 20 a9 24 61 78 | 69 6f 6d 25 20 2d 20 31 |% = .$ax|iom% - 1|
|00000560| 0d 01 ea 17 20 20 e3 20 | 69 25 3d 20 31 20 b8 20 |.... . |i%= 1 . |
|00000570| 63 79 63 6c 65 73 25 0d | 01 f4 22 f1 22 47 65 6e |cycles%.|.."."Gen|
|00000580| 65 72 61 74 69 6e 67 20 | 63 79 63 6c 65 20 22 3b |erating |cycle ";|
|00000590| 20 69 25 3b 20 22 20 22 | 3b 0d 01 fe 14 20 20 20 | i%; " "|;.... |
|000005a0| 20 24 62 78 69 6f 6d 25 | 20 3d 20 22 22 0d 02 08 | $bxiom%| = ""...|
|000005b0| 13 20 20 20 20 62 25 20 | 3d 20 62 78 69 6f 6d 25 |. b% |= bxiom%|
|000005c0| 0d 02 12 14 20 20 20 20 | e3 20 6a 25 3d 20 30 20 |.... |. j%= 0 |
|000005d0| b8 20 6c 25 0d 02 1c 18 | 20 20 20 20 20 20 70 25 |. l%....| p%|
|000005e0| 20 3d 20 61 78 69 6f 6d | 25 3f 6a 25 0d 02 26 10 | = axiom|%?j%..&.|
|000005f0| 20 20 20 20 20 20 66 25 | 20 3d 20 b9 0d 02 30 16 | f%| = ...0.|
|00000600| 20 20 20 20 20 20 e3 20 | 6b 25 3d 20 30 20 b8 20 | . |k%= 0 . |
|00000610| 6e 25 0d 02 3a 3d 20 20 | 20 20 20 20 20 20 e7 20 |n%..:= | . |
|00000620| 70 25 3d 63 68 61 72 25 | 3f 6b 25 20 8c 20 24 62 |p%=char%|?k% . $b|
|00000630| 25 3d 72 75 6c 65 24 28 | 6b 25 29 3a 62 25 2b 3d |%=rule$(|k%):b%+=|
|00000640| a9 72 75 6c 65 24 28 6b | 25 29 3a 66 25 3d a3 0d |.rule$(k|%):f%=..|
|00000650| 02 44 0e 20 20 20 20 20 | 20 ed 20 6b 25 0d 02 4e |.D. | . k%..N|
|00000660| 20 20 20 20 20 20 20 e7 | 20 66 25 20 8c 20 24 62 | .| f% . $b|
|00000670| 25 3d bd 28 70 25 29 3a | 62 25 2b 3d 31 0d 02 58 |%=.(p%):|b%+=1..X|
|00000680| 28 20 20 20 20 20 20 e7 | 20 62 25 3e 65 25 20 8c |( .| b%>e% .|
|00000690| 20 85 20 30 2c 22 4f 75 | 74 20 6f 66 20 6d 65 6d | . 0,"Ou|t of mem|
|000006a0| 6f 72 79 21 22 0d 02 62 | 0c 20 20 20 20 ed 20 6a |ory!"..b|. . j|
|000006b0| 25 0d 02 6c 16 20 20 20 | 20 6c 25 20 3d 20 62 25 |%..l. | l% = b%|
|000006c0| 2d 62 78 69 6f 6d 25 0d | 02 76 09 f1 20 c3 6c 25 |-bxiom%.|.v.. .l%|
|000006d0| 0d 02 80 19 20 20 20 20 | e3 20 6a 25 3d 30 20 b8 |.... |. j%=0 .|
|000006e0| 20 6c 25 2b 35 20 88 20 | 34 0d 02 8a 1f 20 20 20 | l%+5 . |4.... |
|000006f0| 20 20 20 61 78 69 6f 6d | 25 21 6a 25 20 3d 20 62 | axiom|%!j% = b|
|00000700| 78 69 6f 6d 25 21 6a 25 | 0d 02 94 0c 20 20 20 20 |xiom%!j%|.... |
|00000710| ed 20 6a 25 0d 02 9e 0a | 20 20 ed 20 69 25 0d 02 |. j%....| . i%..|
|00000720| a8 07 20 20 3a 0d 02 b2 | 39 20 20 64 65 70 74 68 |.. :...|9 depth|
|00000730| 25 20 3d 20 38 30 30 20 | 3a 20 de 20 78 25 28 64 |% = 800 |: . x%(d|
|00000740| 65 70 74 68 25 29 2c 20 | 79 25 28 64 65 70 74 68 |epth%), |y%(depth|
|00000750| 25 29 2c 20 74 25 28 64 | 65 70 74 68 25 29 0d 02 |%), t%(d|epth%)..|
|00000760| bc 07 20 20 3a 0d 02 c6 | 10 20 20 de 20 64 25 28 |.. :...|. . d%(|
|00000770| 33 2c 20 31 29 0d 02 d0 | 07 20 20 3a 0d 02 da 17 |3, 1)...|. :....|
|00000780| 20 20 78 25 20 3d 20 6c | 65 6e 67 74 68 20 2a 20 | x% = l|ength * |
|00000790| 32 35 36 0d 02 e4 0d 20 | 20 79 25 20 3d 20 78 25 |256.... | y% = x%|
|000007a0| 0d 02 ee 07 20 20 3a 0d | 02 f8 23 20 20 64 25 28 |.... :.|..# d%(|
|000007b0| 30 2c 30 29 20 3d 20 20 | 78 25 20 3a 20 64 25 28 |0,0) = |x% : d%(|
|000007c0| 30 2c 31 29 20 3d 20 20 | 20 30 0d 03 02 23 20 20 |0,1) = | 0...# |
|000007d0| 64 25 28 31 2c 30 29 20 | 3d 20 20 20 30 20 3a 20 |d%(1,0) |= 0 : |
|000007e0| 64 25 28 31 2c 31 29 20 | 3d 20 20 79 25 0d 03 0c |d%(1,1) |= y%...|
|000007f0| 23 20 20 64 25 28 32 2c | 30 29 20 3d 20 2d 78 25 |# d%(2,|0) = -x%|
|00000800| 20 3a 20 64 25 28 32 2c | 31 29 20 3d 20 20 20 30 | : d%(2,|1) = 0|
|00000810| 0d 03 16 23 20 20 64 25 | 28 33 2c 30 29 20 3d 20 |...# d%|(3,0) = |
|00000820| 20 20 30 20 3a 20 64 25 | 28 33 2c 31 29 20 3d 20 | 0 : d%|(3,1) = |
|00000830| 2d 79 25 0d 03 20 07 20 | 20 3a 0d 03 2a 28 20 20 |-y%.. . | :..*( |
|00000840| 74 25 20 3d 20 30 20 3a | 20 78 25 20 3d 20 30 20 |t% = 0 :| x% = 0 |
|00000850| 3a 20 79 25 20 3d 20 78 | 25 20 3a 20 73 25 20 3d |: y% = x|% : s% =|
|00000860| 20 30 0d 03 34 07 20 20 | 3a 0d 03 3e 11 20 20 61 | 0..4. |:..>. a|
|00000870| 25 20 3d 20 61 78 69 6f | 6d 25 0d 03 48 17 20 20 |% = axio|m%..H. |
|00000880| c8 99 20 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 6e |.. "Hour|glass_On|
|00000890| 22 0d 03 52 09 20 20 ea | 20 85 0d 03 5c 58 20 20 |"..R. .| ...\X |
|000008a0| ee 20 85 20 ea 20 f7 20 | 85 20 3a 20 c8 99 20 22 |. . . . |. : .. "|
|000008b0| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 66 66 22 20 3a |Hourglas|s_Off" :|
|000008c0| 20 f2 5f 48 61 6e 64 6c | 65 5f 44 72 61 77 46 69 | ._Handl|e_DrawFi|
|000008d0| 6c 65 5f 45 72 72 6f 72 | 20 3a 20 85 20 9f 2c 20 |le_Error| : . ., |
|000008e0| f6 24 2b 20 22 20 5b 22 | 2b 20 c3 9e 2b 20 22 5d |.$+ " ["|+ ..+ "]|
|000008f0| 2e 22 0d 03 66 2e 20 20 | f2 5f 4f 70 65 6e 5f 44 |."..f. |._Open_D|
|00000900| 72 61 77 46 69 6c 65 28 | 20 31 36 2a 31 30 32 34 |rawFile(| 16*1024|
|00000910| 2c 20 22 53 74 72 69 6e | 67 20 47 65 6e 22 20 29 |, "Strin|g Gen" )|
|00000920| 0d 03 70 38 20 20 f2 5f | 4f 70 65 6e 5f 44 72 61 |..p8 ._|Open_Dra|
|00000930| 77 5f 50 61 74 68 5f 4f | 62 6a 65 63 74 28 20 26 |w_Path_O|bject( &|
|00000940| 46 30 46 30 46 30 30 30 | 2c 20 30 2c 20 30 2c 20 |F0F0F000|, 0, 0, |
|00000950| 31 20 3c 3c 20 36 20 29 | 0d 03 7a 16 20 20 f2 5f |1 << 6 )|..z. ._|
|00000960| 4d 6f 76 65 28 20 78 25 | 2c 20 79 25 20 29 0d 03 |Move( x%|, y% )..|
|00000970| 84 0d 20 20 65 25 20 3d | 20 61 25 0d 03 8e 10 20 |.. e% =| a%.... |
|00000980| 20 c8 95 20 3f 61 25 3c | 3e 31 33 0d 03 98 33 20 | .. ?a%<|>13...3 |
|00000990| 20 20 20 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 | .. "H|ourglass|
|000009a0| 5f 50 65 72 63 65 6e 74 | 61 67 65 22 2c 20 28 61 |_Percent|age", (a|
|000009b0| 25 2d 65 25 29 2a 31 30 | 30 20 81 20 6c 25 0d 03 |%-e%)*10|0 . l%..|
|000009c0| a2 10 20 20 20 20 c8 8e | 20 3f 61 25 20 ca 0d 03 |.. ..| ?a% ...|
|000009d0| ac 37 20 20 20 20 c9 20 | 26 36 36 20 3a 20 78 25 |.7 . |&66 : x%|
|000009e0| 2b 3d 64 25 28 74 25 2c | 30 29 3a 79 25 2b 3d 64 |+=d%(t%,|0):y%+=d|
|000009f0| 25 28 74 25 2c 31 29 3a | f2 5f 44 72 61 77 28 78 |%(t%,1):|._Draw(x|
|00000a00| 25 2c 79 25 29 0d 03 b6 | 1b 20 20 20 20 c9 20 26 |%,y%)...|. . &|
|00000a10| 32 42 20 3a 20 74 25 3d | 28 74 25 2b 31 29 80 33 |2B : t%=|(t%+1).3|
|00000a20| 0d 03 c0 1b 20 20 20 20 | c9 20 26 32 44 20 3a 20 |.... |. &2D : |
|00000a30| 74 25 3d 28 74 25 2b 33 | 29 80 33 0d 03 ca 31 20 |t%=(t%+3|).3...1 |
|00000a40| 20 20 20 c9 20 26 35 42 | 20 3a 20 78 25 28 73 25 | . &5B| : x%(s%|
|00000a50| 29 3d 78 3a 79 25 28 73 | 25 29 3d 79 3a 74 25 28 |)=x:y%(s|%)=y:t%(|
|00000a60| 73 25 29 3d 74 25 3a 73 | 25 2b 3d 31 0d 03 d4 33 |s%)=t%:s|%+=1...3|
|00000a70| 20 20 20 20 c9 20 26 35 | 44 20 3a 20 73 25 2d 3d | . &5|D : s%-=|
|00000a80| 31 3a 78 25 3d 78 25 28 | 73 25 29 3a 79 25 3d 79 |1:x%=x%(|s%):y%=y|
|00000a90| 25 28 73 25 29 3a 74 25 | 3d 74 25 28 73 25 29 0d |%(s%):t%|=t%(s%).|
|00000aa0| 03 de 09 20 20 20 20 cb | 0d 03 e8 0f 20 20 20 20 |... .|.... |
|00000ab0| 61 25 20 2b 3d 20 31 0d | 03 f2 07 20 20 ce 0d 03 |a% += 1.|... ...|
|00000ac0| fc 12 20 20 f2 5f 43 6c | 6f 73 65 5f 50 61 74 68 |.. ._Cl|ose_Path|
|00000ad0| 0d 04 06 1e 20 20 f2 5f | 43 6c 6f 73 65 5f 44 72 |.... ._|Close_Dr|
|00000ae0| 61 77 5f 50 61 74 68 5f | 4f 62 6a 65 63 74 0d 04 |aw_Path_|Object..|
|00000af0| 10 45 20 20 f2 5f 44 72 | 61 77 5f 50 61 74 68 5f |.E ._Dr|aw_Path_|
|00000b00| 4f 62 6a 65 63 74 5f 4d | 6f 76 65 5f 54 6f 28 20 |Object_M|ove_To( |
|00000b10| 44 72 61 77 5f 4f 62 6a | 65 63 74 25 20 2b 20 44 |Draw_Obj|ect% + D|
|00000b20| 72 61 77 5f 42 75 66 66 | 65 72 25 2c 20 30 2c 20 |raw_Buff|er%, 0, |
|00000b30| 30 20 29 0d 04 1a 26 20 | 20 f2 5f 43 6c 6f 73 65 |0 )...& | ._Close|
|00000b40| 5f 44 72 61 77 46 69 6c | 65 28 20 22 4d 61 6e 44 |_DrawFil|e( "ManD|
|00000b50| 72 61 77 22 2c 20 a3 20 | 29 0d 04 24 1e 20 20 f7 |raw", . |)..$. .|
|00000b60| 20 85 20 3a 20 c8 99 20 | 22 48 6f 75 72 67 6c 61 | . : .. |"Hourgla|
|00000b70| 73 73 5f 4f 66 66 22 0d | 04 2e 07 20 20 e0 0d 04 |ss_Off".|... ...|
|00000b80| 38 05 e1 0d 04 42 05 3a | 0d 04 4c 4b f4 20 2a 2a |8....B.:|..LK. **|
|00000b90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ba0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000bd0| 2a 2a 2a 0d 04 56 0c dd | 20 f2 5f 43 79 5f 31 0d |***..V..| ._Cy_1.|
|00000be0| 04 60 2b 20 20 c8 91 20 | 28 6c 6f 67 6d 61 78 78 |.`+ .. |(logmaxx|
|00000bf0| 25 2a 32 29 20 81 20 34 | 2c 20 28 6c 6f 67 6d 61 |%*2) . 4|, (logma|
|00000c00| 78 79 25 2a 32 29 20 81 | 20 34 0d 04 6a 34 20 20 |xy%*2) .| 4..j4 |
|00000c10| 6c 65 6e 67 74 68 20 3d | 20 28 73 63 72 65 65 6e |length =| (screen|
|00000c20| 5f 77 69 64 74 68 25 20 | 2f 20 33 30 30 29 20 2a |_width% |/ 300) *|
|00000c30| 20 28 31 20 3c 3c 20 6c | 74 6f 70 78 25 29 0d 04 | (1 << l|topx%)..|
|00000c40| 74 04 0d 04 7e 07 20 20 | 3a 0d 04 88 17 20 20 24 |t...~. |:.... $|
|00000c50| 61 78 69 6f 6d 25 20 3d | 20 22 66 2d 67 2d 66 22 |axiom% =| "f-g-f"|
|00000c60| 0d 04 92 11 20 20 61 6e | 67 6c 65 20 3d 20 af 2f |.... an|gle = ./|
|00000c70| 32 0d 04 9c 2d 20 20 63 | 68 61 72 25 3f 30 20 3d |2...- c|har%?0 =|
|00000c80| 20 97 28 22 66 22 29 20 | 3a 20 72 75 6c 65 24 28 | .("f") |: rule$(|
|00000c90| 30 29 20 3d 20 22 66 2b | 67 66 67 2b 66 22 0d 04 |0) = "f+|gfg+f"..|
|00000ca0| a6 2d 20 20 63 68 61 72 | 25 3f 31 20 3d 20 97 28 |.- char|%?1 = .(|
|00000cb0| 22 67 22 29 20 3a 20 72 | 75 6c 65 24 28 31 29 20 |"g") : r|ule$(1) |
|00000cc0| 3d 20 22 67 2d 66 67 66 | 2d 67 22 0d 04 b0 0c 20 |= "g-fgf|-g".... |
|00000cd0| 20 6e 25 20 3d 20 31 0d | 04 ba 11 20 20 63 79 63 | n% = 1.|... cyc|
|00000ce0| 6c 65 73 25 20 3d 20 34 | 0d 04 c4 05 e1 0d 04 ce |les% = 4|........|
|00000cf0| 05 3a 0d 04 d8 05 3a 0d | 04 e2 46 3a 20 f4 20 20 |.:....:.|..F: . |
|00000d00| 54 68 69 73 20 69 73 20 | 75 73 65 64 20 74 6f 20 |This is |used to |
|00000d10| 6d 61 6b 65 20 73 75 72 | 65 20 74 68 61 74 20 61 |make sur|e that a|
|00000d20| 6e 20 65 6e 74 69 72 65 | 20 70 61 74 68 20 28 74 |n entire| path (t|
|00000d30| 68 61 74 27 73 20 61 6c | 72 65 61 64 79 0d 04 ec |hat's al|ready...|
|00000d40| 42 3a 20 f4 20 20 63 6c | 6f 73 65 64 2c 20 69 73 |B: . cl|osed, is|
|00000d50| 20 74 6f 20 74 68 65 20 | 74 6f 70 72 69 67 68 74 | to the |topright|
|00000d60| 20 6f 66 20 78 6d 69 6e | 25 2c 20 79 6d 69 6e 25 | of xmin|%, ymin%|
|00000d70| 20 28 75 73 75 61 6c 6c | 20 30 2c 20 30 29 2e 0d | (usuall| 0, 0)..|
|00000d80| 04 f6 40 3a 20 f4 20 20 | 4e 65 65 64 65 64 20 62 |..@: . |Needed b|
|00000d90| 65 63 61 75 73 65 20 44 | 72 61 77 20 2f 20 44 72 |ecause D|raw / Dr|
|00000da0| 61 77 31 bd 20 65 78 70 | 65 63 74 20 65 76 65 72 |aw1. exp|ect ever|
|00000db0| 79 74 68 69 6e 67 20 3e | 3d 20 30 2c 20 30 2e 0d |ything >|= 0, 0..|
|00000dc0| 05 00 05 3a 0d 05 0a 35 | dd 20 f2 5f 44 72 61 77 |...:...5|. ._Draw|
|00000dd0| 5f 50 61 74 68 5f 4f 62 | 6a 65 63 74 5f 50 6f 73 |_Path_Ob|ject_Pos|
|00000de0| 69 74 69 76 65 28 20 70 | 25 2c 20 78 6d 69 6e 25 |itive( p|%, xmin%|
|00000df0| 2c 20 79 6d 69 6e 25 20 | 29 0d 05 14 13 20 20 78 |, ymin% |).... x|
|00000e00| 6d 69 6e 25 20 2d 3d 20 | 70 25 21 38 0d 05 1e 11 |min% -= |p%!8....|
|00000e10| 20 20 e7 20 78 6d 69 6e | 25 3e 30 20 8c 0d 05 28 | . xmin|%>0 ...(|
|00000e20| 35 20 20 20 20 f2 5f 44 | 72 61 77 5f 54 72 61 6e |5 ._D|raw_Tran|
|00000e30| 73 6c 61 74 65 5f 50 61 | 74 68 28 20 70 25 20 2b |slate_Pa|th( p% +|
|00000e40| 20 34 30 2c 20 30 2c 20 | 78 6d 69 6e 25 2c 20 30 | 40, 0, |xmin%, 0|
|00000e50| 20 29 0d 05 32 15 20 20 | 20 20 70 25 21 38 20 2b | )..2. | p%!8 +|
|00000e60| 3d 20 78 6d 69 6e 25 0d | 05 3c 16 20 20 20 20 70 |= xmin%.|.<. p|
|00000e70| 25 21 31 36 20 2b 3d 20 | 78 6d 69 6e 25 0d 05 46 |%!16 += |xmin%..F|
|00000e80| 33 20 20 20 20 44 72 61 | 77 5f 78 6d 61 78 25 20 |3 Dra|w_xmax% |
|00000e90| 3d 20 a4 5f 6d 61 78 5f | 69 6e 74 28 20 44 72 61 |= ._max_|int( Dra|
|00000ea0| 77 5f 78 6d 61 78 25 2c | 20 70 25 21 31 36 20 29 |w_xmax%,| p%!16 )|
|00000eb0| 0d 05 50 07 20 20 cd 0d | 05 5a 14 20 20 79 6d 69 |..P. ..|.Z. ymi|
|00000ec0| 6e 25 20 2d 3d 20 70 25 | 21 31 32 0d 05 64 11 20 |n% -= p%|!12..d. |
|00000ed0| 20 e7 20 79 6d 69 6e 25 | 3e 30 20 8c 0d 05 6e 35 | . ymin%|>0 ...n5|
|00000ee0| 20 20 20 20 f2 5f 44 72 | 61 77 5f 54 72 61 6e 73 | ._Dr|aw_Trans|
|00000ef0| 6c 61 74 65 5f 50 61 74 | 68 28 20 70 25 20 2b 20 |late_Pat|h( p% + |
|00000f00| 34 30 2c 20 30 2c 20 30 | 2c 20 79 6d 69 6e 25 20 |40, 0, 0|, ymin% |
|00000f10| 29 0d 05 78 16 20 20 20 | 20 70 25 21 31 32 20 2b |)..x. | p%!12 +|
|00000f20| 3d 20 79 6d 69 6e 25 0d | 05 82 16 20 20 20 20 70 |= ymin%.|... p|
|00000f30| 25 21 32 30 20 2b 3d 20 | 79 6d 69 6e 25 0d 05 8c |%!20 += |ymin%...|
|00000f40| 33 20 20 20 20 44 72 61 | 77 5f 79 6d 61 78 25 20 |3 Dra|w_ymax% |
|00000f50| 3d 20 a4 5f 6d 61 78 5f | 69 6e 74 28 20 44 72 61 |= ._max_|int( Dra|
|00000f60| 77 5f 79 6d 61 78 25 2c | 20 70 25 21 31 36 20 29 |w_ymax%,| p%!16 )|
|00000f70| 0d 05 96 20 20 20 20 20 | 44 72 61 77 5f 79 6d 61 |... |Draw_yma|
|00000f80| 78 25 20 2d 3d 20 44 72 | 61 77 5f 79 6d 69 6e 25 |x% -= Dr|aw_ymin%|
|00000f90| 0d 05 a0 16 20 20 20 20 | 44 72 61 77 5f 78 6d 69 |.... |Draw_xmi|
|00000fa0| 6e 25 20 3d 20 30 0d 05 | aa 16 20 20 20 20 44 72 |n% = 0..|.. Dr|
|00000fb0| 61 77 5f 79 6d 69 6e 25 | 20 3d 20 30 0d 05 b4 07 |aw_ymin%| = 0....|
|00000fc0| 20 20 cd 0d 05 be 05 e1 | 0d 05 c8 05 3a 0d 05 d2 | ......|....:...|
|00000fd0| 30 dd 20 f2 5f 44 72 61 | 77 5f 50 61 74 68 5f 4f |0. ._Dra|w_Path_O|
|00000fe0| 62 6a 65 63 74 5f 4d 6f | 76 65 5f 54 6f 28 20 70 |bject_Mo|ve_To( p|
|00000ff0| 25 2c 20 78 6f 25 2c 20 | 79 6f 25 20 29 0d 05 dc |%, xo%, |yo% )...|
|00001000| 11 20 20 78 6f 25 20 2d | 3d 20 70 25 21 38 0d 05 |. xo% -|= p%!8..|
|00001010| e6 12 20 20 79 6f 25 20 | 2d 3d 20 70 25 21 31 32 |.. yo% |-= p%!12|
|00001020| 0d 05 f0 1d 20 20 e7 20 | 28 78 6f 25 3c 3e 30 29 |.... . |(xo%<>0)|
|00001030| 20 84 20 28 79 6f 25 3c | 3e 30 29 20 8c 0d 05 fa | . (yo%<|>0) ....|
|00001040| 35 20 20 20 20 f2 5f 44 | 72 61 77 5f 54 72 61 6e |5 ._D|raw_Tran|
|00001050| 73 6c 61 74 65 5f 50 61 | 74 68 28 20 70 25 20 2b |slate_Pa|th( p% +|
|00001060| 20 34 30 2c 20 30 2c 20 | 78 6f 25 2c 20 79 6f 25 | 40, 0, |xo%, yo%|
|00001070| 20 29 0d 06 04 13 20 20 | 20 20 70 25 21 38 20 2b | ).... | p%!8 +|
|00001080| 3d 20 78 6f 25 0d 06 0e | 14 20 20 20 20 70 25 21 |= xo%...|. p%!|
|00001090| 31 32 20 2b 3d 20 79 6f | 25 0d 06 18 14 20 20 20 |12 += yo|%.... |
|000010a0| 20 70 25 21 31 36 20 2b | 3d 20 78 6f 25 0d 06 22 | p%!16 +|= xo%.."|
|000010b0| 14 20 20 20 20 70 25 21 | 32 30 20 2b 3d 20 79 6f |. p%!|20 += yo|
|000010c0| 25 0d 06 2c 32 20 20 20 | 20 44 72 61 77 5f 78 6d |%..,2 | Draw_xm|
|000010d0| 69 6e 25 20 3d 20 a4 5f | 6d 69 6e 5f 69 6e 74 28 |in% = ._|min_int(|
|000010e0| 20 44 72 61 77 5f 78 6d | 69 6e 25 2c 20 70 25 21 | Draw_xm|in%, p%!|
|000010f0| 38 20 29 0d 06 36 33 20 | 20 20 20 44 72 61 77 5f |8 )..63 | Draw_|
|00001100| 79 6d 69 6e 25 20 3d 20 | a4 5f 6d 69 6e 5f 69 6e |ymin% = |._min_in|
|00001110| 74 28 20 44 72 61 77 5f | 79 6d 69 6e 25 2c 20 70 |t( Draw_|ymin%, p|
|00001120| 25 21 31 32 20 29 0d 06 | 40 33 20 20 20 20 44 72 |%!12 )..|@3 Dr|
|00001130| 61 77 5f 78 6d 61 78 25 | 20 3d 20 a4 5f 6d 61 78 |aw_xmax%| = ._max|
|00001140| 5f 69 6e 74 28 20 44 72 | 61 77 5f 78 6d 61 78 25 |_int( Dr|aw_xmax%|
|00001150| 2c 20 70 25 21 31 36 20 | 29 0d 06 4a 33 20 20 20 |, p%!16 |)..J3 |
|00001160| 20 44 72 61 77 5f 79 6d | 61 78 25 20 3d 20 a4 5f | Draw_ym|ax% = ._|
|00001170| 6d 61 78 5f 69 6e 74 28 | 20 44 72 61 77 5f 79 6d |max_int(| Draw_ym|
|00001180| 61 78 25 2c 20 70 25 21 | 32 30 20 29 0d 06 54 07 |ax%, p%!|20 )..T.|
|00001190| 20 20 cd 0d 06 5e 05 e1 | 0d 06 68 05 3a 0d ff | ...^..|..h.:.. |
+--------+-------------------------+-------------------------+--------+--------+