Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!ames!sun-barr!newstop!sun!grapevine!koreth%panarthea.ebay@sun.com From: koreth%panarthea.ebay@sun.com (Steven Grimm) Newsgroups: comp.binaries.atari.st Subject: v06i062: mandel -- Fast Mandelbrot generator Keywords: arc, uuencode, low Message-ID: <34142@grapevine.uucp> Date: 20 Aug 89 22:08:51 GMT Sender: news@grapevine.uucp Lines: 192 Approved: koreth%panarthea.ebay@sun.com Submitted-by: SQ79%liverpool.ac.uk@NSFnet-Relay.AC.UK (Mark Powell) Posting-number: Volume 6, Issue 62 Archive-name: mandel Here is a Mandelbrot generator that I wrote about 9 months ago. A certain J.J.Lehett requested that I post this program... so here it is. Your probably groaning... "Not another Mandelbrot generator", but I think# you'll be surprised at the speed of this one. Take the time to download it and see for yourselves. [Sigh. Now I have to go work on my Mandelbrot program again, 'cause I can't stand knowing it's second fastest... -sg] Documentation on "how to use" and a little info. on the Mandelbrot set itself is included. Mark Powell ARPAnet : sq79%liv.ac.uk@{ucl-cs.arpa,cs.ucl.ac.uk} USENET : ...!mcvax!ukc!liv.ac.uk!sq79 ----------------------------cut here------------------------------------ table !"#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ begin 644 MANDEL.ARC M&@A-04Y$14PN4%)' Q L '0+ @'H3((- ,8#0 -" P!(%E2\ 4 a M!(^!)="(:" -$() UT$>0'@10,D>0 H&>@DR)-W !@H 7(&PA!]"_B$ 6! a MP$P#"L 6,!&R*D?#T&4Y/)H!+"!#%"!4L $'X!_@H @R?=T8$$D>/[]>W&!a M*U $)PX.0G 0@@(] !0(!4UU"#%$-,$a M4HT@E!1"A@#4%*) 81!$L;(X"0,L;I\,-01AF"QJ_.//&0P<(X1](M 0B D"@"& Z5@Ha M$L4S_VB#,0/8P#$!X'0\T+$X28P#!>_C5 &\%.32+35Z\(Q@^(D(0^#'@B(0(H7"_X3 HD[CE PGS>.235\[X0+)Da MOGGGGX<^^D"BF(ZZZJQS'>RT08*%$ !%2V@' $!A.]SI3@/ ^UWOA-<[XO7.a M>,A3'O.@1!'3L P! T0H2H##3KVAF+"AAP!=CNA4=a M&( :F"'/9G*Z4P"<*PR[_ #@P($$I$X/<.AH:E*K"8 '0& '# '#C6(@@QG0a MH 8VN $.QG@CC,88 I7=$> E&!?*208P?(U PQFH(\">$*^SP7#$/ A""_ ( (Q"$&(a M1RSB$I/XQ"8NL0P H=^4V(% $"&?41A'USTAP#F(,'0W"$" 8@R0$@P@P"Fa M((0 04'(4BAR898@Y"D$(4!-0'(0E! $60HA"++@P]_>0 9\.!O([6R$&A1a MF&-PF08/.<8,"I420,P@CBD11(L9P(>6"!@I=# PA%-"ASG[P#>Q@a M/.M@:%HH# \*< XG,*)GO-##A=Y@@!D8 RF T(6DG4#I&10#*8*PCZ^04EH"a MZ#$EA!"GG8;F@G%! PBOAD80UH$$&0S- S0( .\$$ 22R7I&!!!"-( A "%4a M]24&$ 8)]# 28@ &39X"#(LP6Q]V()@;Q" '2 PA2'(8!A9!@ F^LN$Y\ #a M"=$ #R&D ZPY @&&C""5(! #E08 1 H0,*Y@L$%?ON;"_ONM\#Y_6X-G*O>a M@4##6LX5""@4_."H2#@ %,!PA?-:+: PV#]4\<5RJQO=ZF8W6. M;W*@0=[Ya M_O>_X6WRAK,<#1*_^ (U[HPO?L< #A !%G" 29@HZH@?X#(,\Z,?\CCBR+0a MP0" 8%)'T ,B 44A !@@"<2V8#P$ Z=7F.)1BB9SC(4Q"D,78BK",),^HGa M-(+A \,/L#Q(&$:OH:&+R,-:R%0&LB *$(\!@(#PX0IP<$H]MKL( 4a MCN BL)A!'GX P"R@,(L< 2!.44 $&,@Q^ )X^P%Xa M49C1EUX18$"]$0!P@)8NL CJ6""1#?P *#1 "F!PAV>! 0@)X* U"'C; 0@4a M !PD?R#,[QM8CB^ .3/B##Z8D0#H %@C 92''$GAG B V/?Z08 E7 $"#VT 8HD'XTT'W?%WYTDBI7a ME1* @12,@"J<< %( !15!,!$ !(@4&%B!T$%SLA11\@"IZ$"#2T(&%00^9a M@E]T!@9D$"!'@(( 4 >B$H(IX0=@X 0!<@PR6 \K>$4XJ ,CL0800&$!@ E(a MH0PH _Z 9L$!(-H #;" 5Ra M4 9S8(UAX 9Y )K4 ;(6 8;@ 0;( 8!L %+4 1N0 =E\(QN4 =M( ;U^(O!a M.(WU& 9TD ;1:(UK 0)LL8[PV(YO\QX,8$*J%4CO\9!_,!!: 0"1%P"> P"%a M,0#_T!K<@I'^T$)K\0_W !B <\ ?C B:XP,_$ Q' 0C_\ $ ZN\0^/a M Y @+_< S= A;_, XH.9+Q4!8,\0\O10 4^0\'40#PL@#<(F@(<0 $@ 'a M8%T*@ X@0 :P 0a M$ * P.8 >H 6D',68 $44)L4@'.EJ18:"$U!3D1%3"Y$3T, Y"P a M= MBM&:_\10 P-%(" 9*%)&#=DRK 1(^<-'1!'RK@I(R<,G3=R @8<*&'(a M&SAYY*0Y@^9AC!PX<( 0D@=$$Q=37$!Y8-"#@-S:2A W;@@"LBZ<1E*Y%.&CD*6Z9A:P,'a M#*8@PJ MTT8,FY9L#IZI$^9,&18@ZJ1UP]DS11=@>T *4AA2@20@0-QI&#%%.a M9MD4OY)19%$9=*%!X62#I1$&&]&!%P)]T$WGT(4/39;99IU]!D)HK)%FVH!Ma ME5'B0W6% 0)DFJT5AG$=PK$>&2[0UT1+( @FQQP/6117&W D.2-JT@TF('8(a MI442'5#>H9EU%(G$(P@HT!'&&NW1M^,;#8(P@X*3-5A&;7J9=]V%;F2X(0@Ba MS-'7'6T<)$(*0;I&DVX492GE>V:4<0=]=5Y9VW<^PA7=&!O6$9ICK%5(X1P^a MR@5";#>BB>F;J:WFWIS157;9 /2)L&&?;@PE I1BM-2$0QB]$1J4T D6*QLJa MBF!A362(4&%VCK5!(1DTL547J@&-48<EUVG/X89!*S/6@A?69HYN!#H&[((:H&(:000P[%.)Y%&,EK$0C=a M[J>>1)^R=5!+,=A GQB#L3E&0]R: 4(>:(* 1A@*/PQ"&DPVM)^R<#WH%ZIWa M):0I6W^5>RY]Y3ZD((5K[ GEEMW.)0:=<4&&I*=U61B&>68T].W#:U'XGU]Va M'40?R8"]H;!_><%31]Q[&6JJ=OWY;??D6JYP:UTU)%X=W13E-%D<>F!<%)*4*JAVD,!a M_1RGT^%.6V>F=551Y^EIT9'77JC*@-#&YIH'JH)$WL6DF^8%-,<8:4@TAM,)a MN;6>76@>>5IT9$Q;YAT "@@=&6F0X<8)#Q'*%AL$&IB9S= J<'A%WP(3R\JGa M-6:]:7[UVX^ST!2@AD7G?XE;D'NJ9IPVU"8@1KE',0T&14%1#6D,0Z4KH,FD@1)" U"3:(L,BU2a M7>=@(=H2N0XRO-;X)PQD@%^FX#>7@.@.27P)F.;^DJ;)!&H*=2M#T\AGJ;G a MH8ML<8B%D&8N.A2Q-FG0V)Q:@L$T7"Y02!C4Z7@E'32Q07[T\XT;[- 2IDTDa M2M<9G9CF8"!0"68T(LE40$05'32(K6)WP,@::H,"Z'QL+C92PQO$@)HSO*%,a M8AB*@>I2L3"@QSPY4-!:KC,'#G[M"A:"68A:-[*')+$VIBS3=1I2!Y(43D%0a M_,O'M/8IC=VH#"T(R&04*+?1L6\]; A2$4[7$E.5RVVM))_+COB0-HRK(8C[a MEFI(%9#%16J?DR'5EFH"K ^-K0V[H\_'a M%/8SAO4)2" (7-LF6F:'OV>98F2J%T#.'N'=.DTAHY& :,KP ,NG[GL]:HAHP4ZABXF=7W30(&99*SXSW\$6C\U])7EDB@.JFQ@$"Y;F5ZG0.EEFL;9;*,9),#;] Ra MNJ%(JR)C\*\S8]TG6M('I!-Y%&?(]88\8(Z^J JA>IULZ<.UU[T<^@MG%8 "a M9K'F!Q%]B-J"%#L*E0$/2XP5W]*H,3O7#59 NJL" E(%XE"90P:= UB*L+V!a M'.#?%2N2TAXXUO:B@&YVZU-+M)66A'!N74>U-$6QB!,%K//AGVI2ZO -%HU!a M(@'V7=3#.=0O[@#L(> !BWEN#FA;CZZ^%^[OK1_BSBORKRR3F=!BB"T7K@#C,6L@a M!BCZ?9?<888!1C=J40V,6#:M:N%K(F!)PT 2 $6QHXI!G4D/J 8CH8$G%@1Ba M#YX;6W^#,"O>]O==:\O$DAV)9/E@D!a MR[=N[OKOP/YU*&6#8UI@>]E2-/=TS\_-D72TAQ3?/-D>0T;/ !8[+!Y)'R%?a M;*&?!^FW!RPM6#P*_&-0WI"A@W/ WZ):S);H3Q\L*Q _^9*G,<$&,Q*%=,SG!J+5J6W8)"A;/TS$ H0)]WV=>G6<1:$3-X&;J0Ra M8VG@ F40)#,@ ^#$.V'1@AZ(.6W'=.I"9U&'744H8AB(93]8&S(02XI&'RPHa M RJQ@V<0)"0@ Y=Q ,_T=\21,J-C@A02 TE! C V2 V4@!F.P:+(C-(TAa M+Q1"AB RX S)@ S30$S:PAV=(!JMB S60 _D!&6 XAV-8*132 C'@ C20a M TQ1 S%0 Y'82$&&0.RD%/V+F,C8">3]C'O2UA5T((RVW18-!a M&_K!B,@1A*@5'4:R4YD4BZ1G1.LU:V05@/V%@M1E:7<134%H@%'G(+ZV;?.Ba M@(CF?!@Q'DH6:P\8'6$R+RUWBS9CA\@R+P97@'(P%UO0.'_1?$HV!%T0'1&Xa M@I"@ #[V/-U((2-'@ 8( EM ,J61A.-BCJ""CJB!*O-HC"Q8C]EQ0J3A.,^$a M/";6$C'HB^U%-U]'/N"X4"R( BT@ RQPD1T$0U4W('"P(F60:'?!@-+#C$XCa M@AM9BZ&''>&HBZ4G@1CV870(DZ'Q/2CS$!>8@3"S@0+216D/(a M(5@S>[^' M]G!C8\2 U38C@U):]EQ;,H":@O42[#8)WA ,G6P-#(&%RZ@a M< $!&@A-04Y$24Y&+D1/0P Y 4 '0+W+2!R$\* ,5-"4 6'F#1LV;^ZDa M<7,&1)HY(.:\:3-P84$7($"$$?.F#AT0= 2":!+ DR;,3(>?-Q3ADZ+#(6a ME ,2S1N7(!HH>&,F8YZ.&>_8S+C&34(0=LK(R0."31HZ=-@,?$/3:,B%#3=Va M_.B0#D8024ZTR6@U8YB<"MJ$"5E&+9TT8]*4S(@B9,DU(,Z\(9,BXAL09<+,a M8?K&35RRZ2DTC500=^0\a MQ7H8!)R59^0L=J%39P](06HK &I0$#$5-O440RBCDO/=/Z."<-FS/"U ]E&a M?!DY8IHV<-CDT:&;=P$M/;1XD;%B"&\$5P3*&:A%HTD0YL.L!S%F8O8R>$"Xa MJ=-&C-(YNB6AUAD+#736'''4(5\9,8%06&OU82=5?MEQ%M,<=*Q'QQAHL&;&a M2F.AT((,+(R81E\Z)0<""B3*<*)C(I%D$DHJL33=1^O-D<9)$"U4$V0(*K@>a M1E/4 0<<-PUTQT ZP0$77G/))\93LBWEVAL+?>3C9329>2KZ!UB"S('TEW3U444&1#RUAF26#KE0!FT*Z.0=a M>#"L $,:O#DP1 \Q.&IF&KJIJ=]1<"@UTUC2O5:&'6ET-(=VGY7AQEN%=490a M<,_%E(:AB"K:&WCBD3>$K=_U@$*CCZ8PW@J5EGDFK^ 5>VFF ]$W5WVK+E2'a MJ:@^I11T/T+T::P9U1$M&ZW9P5P=4_4$0GLZH3#KH5V= %$;>PUG7%]ZO#$1a MH&;TE-P=\OTYF1D+/94'1NO6NMNMX0V[Z\&]BFGIF<*2I^RQ#"=KJ0QG#AM#a M&L0^C&G%E+90)L8K<#SQQXM2ZL(--1"[;*(*R'A22BM]](88+LF1%')HK.60a MOB+!2X:\^)Y;W:A*Y;4>=#3999A.5-VI(+@JTM @6X9)MRUQ"AWTV1M)ZP \UN#!##!AGI-MOZ\W$H%EFT)$T"#)T=2VK;A0MG8X2 B>'a M<%P/M)QATS&I )=7002'?&\YIQA-<:>.FFG@UCN1V/WV2-G9 _.:GL^H#43&a MGLHM[7EK(H@*51XBN 87'77,%^CIU$&F)UKU>?N137=\5A)3ULI&NNDB;7W6a MZR#8V:D*YI/3-,U,J )ZK]A08P@HRXV$"Na MZASF:6D)PY%<-3Z-T,<@':&)G"X( C(\I$)Y<-6#YC"&]:CJ:G^AC_2:=1:=a MS*%[KWD(5JJU*J64 4.L<=(8N#UKC(-40"(-;",,0IX8J/J5!a M#F,X3:!D8T+C@*Z,JUJ/9]+H+9Y-Q8T+Z8(+^@*")_1$)^63 TY^%Y*,C$$Ia M= B#CY RKA^"<0A7$\FK5O>a ME,[;*G(\-PA,ANV3RU>F\(:8+ DM/0N;!YMRG=4PA"S\\0]- M4^6!8&(BIRa MS7J2LJJ,1/$U;XC-8LC''-W!\IFCU--?$,*0KR3!EV]A3AU% DYQC@5(U,DFa MAMX ![14\RWHG(D';R>'W#V')H/JIL]B ,X_3.6$93,!"L(R;G4ST!L.*#^a M;%*',Z#!G4 ;R'[ZDS1JOO)]&N'*6:Y$*)T\3Y5RY)X\F6++P' H6\QL@S,;a M8H:81@UK&7E*4"53'X1TSU4Z$8-BQK &&&:$?Q5I22;?LQ6"@*@U+%%/1A)*a MA\9DY#<9R6K2FI0&/*!$,E^TCH284M00NDIH((@!!(-**[-HSZQ4ZQE7DO,&a MO(#@!OX\:2R# CPLAB%L;>W>7QMT%B?AM28^XRM>9I"#H KVFFCI&KB2Z3H0a ,*C8&,0#,AKZB&QH a a end