home *** CD-ROM | disk | FTP | other *** search
- Newsgroups: comp.binaries.ibm.pc
- Path: sparky!uunet!ulowell!cs.ulowell.edu!oneill
- From: cbip@cs.ulowell.edu (CBIP Moderator)
- Subject: v20i189: mfra200.zoo, Small Mandelbrot calculator (part 01/01)
- Message-ID: <C01D58.8y8@ulowell.ulowell.edu>
- Followup-To: comp.binaries.ibm.pc.d
- Originator: oneill@cs.ulowell.edu
- Keywords: graphics, mandelbrot
- Sender: usenet@ulowell.ulowell.edu (News manager - ulowell)
- Organization: University of Massachusetts at Lowell Computer Science
- Date: Tue, 29 Dec 1992 19:36:43 GMT
- Approved: oneill@cs.ulowell.edu
- Lines: 151
-
- Checksum: 3887911703 (Verify with "brik -cv")
- X-Submissions-to: cbip@cs.ulowell.edu
- X-Questions-to: cbip-request@cs.ulowell.edu
- Submitted-by: Sam Laur <slime@mdata.fi>
- Posting-number: Volume 20, Issue 189
- Archive-name: mfra200/part01
-
- This is a *small* Mandelbrot calculator with zooming and sources in
- Assembler. It still has some quirks to iron out but I think it's worth
- a try at a "world audience" :-) .
-
- [
- Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command.
-
- checksum size (bytes) file (between BEGIN--cut and END--cut lines)
- 21620 7598 part01
-
- checksum size (bytes) file
- 33910 5492 mfra200.zoo
- -- Doc
- ]
-
-
- BEGIN--cut here--cut here
- begin 644 mfra200.zoo
- M6D]/(#(N,3`@07)C:&EV92X:``#<I\3]*@```-;___\"``$````````#W*?$
- M_0("H`<``'$```#V&,L&T,5K(@``+P<```(!``````````!M:6YI9G)A8RYA
- M<VT`"@`02M8`````I`%`````0"DC*``%,G.=]6VGKISQ*=_EN#:TLES<DH4=
- M6PJ6U"RV,CAV6`1A>?O>D?BN-O>;ECD_''_[S;CD;;D<I;2F5JQML`9"`X3<
- M&2QCA^^1]Q_;@.3=NXMV'=8VVW(*/XKK[YKU>M)[WW2F;$_?&VW+B:]O9Z->
- MME]WX!DWQ+K+-38Q1P#KUN"\,"D(1ONP*QEAK`$"R?;0GFQD,)VZ+Z^MMBOF
- MONHQ5ZU\<)X#($4HK2RPL_VT)S!?9```72%W\%\21`<!W7'Z]8:(U1*);J[:
- MROFIR`-MYH8D&&V+4LVM?8U0%3RBNZOL^`5/?'>`574*PY178W.$U@T:"05M
- MZZP"AW\@IU!"TK`H-^&)('X#/5ZV-'.)]J(.>&B``X_X!RC)$''M>8.^VT+4
- MPF;;L"<=@$-S$#MC:^OK@K+S<,2LX>,[$=P.)>Y==0+[+)'74%.X.`R1O%]X
- MW2.]F8=)"OS'F%>(02%EYPLI[MT`C%S%3%*4\7,4\412?9P75%)D)-;BPBX'
- MA:G4U<Q\?'P&$`-=C6AD)8KR`7DLTL9`F@S37<`APV!%2$O3XY7[`9>@+667
- MMM2XQW(`1-K0#Q3CSXYG["2DVZZ\RQ*%6[2TX.$"/?/@3M4A.+0$F2%+W.EM
- M[S4SH&C(!D9KQW'Q;N]O=@77V^M\VX)BS\N53[^!L4)Y<!]I!8BB8J4!N3FL
- MX,F-2@!3@R>E>@PQGB7S%&OAF7@Q$18D(8D(.Y,1)K)04L:*L12+8T4(C:C1
- M%)4&Q,$T18A/A\@8OQVA=!/GK*2"5>&XVDT,=Q_FQT99,E\]"EGJ9FH*DHI2
- MI"@$A#%UE,FT%IEZIDV<M,PJQ:*EUH"UJ8T:V,^J'^LA_JC#,MF!F(EYL13$
- M@Q?+!C:H2([A$O:TUT7"(-?,$L62U5)3-E'B7WHDJN3V2=H4!GP&;HG>`*"E
- MS76"T6%>TN*4;[UX'@NH@364?-!H0"[8%A&^Y\4"JXB;GG7L@$`TX+MU"!IB
- MWDO#92"DMV,B%QH%($6,J%N7A*BRJ06(AH-9B8.;*+9I,LXM(910-&<G4(3`
- MGCPAHK>K]&WN?/7K1,!8EB+FEM?@=?9X:^KV"",D`YQ\'7@:!N%!+(,"'!0.
- M@@AW*(64S[G?EQ"F(FGIF89CC<RJ@U54>FJ:**B:,.@J8IRHJC]7K&?(UOR5
- M@F@I6[,]=*TNU.]T;<U-+O.&`X$RT&B!I\Q$?8QNNW\H.02C5EP0)BK`"D$7
- M8RE_X-;X,YAM54)8WJU36[%-A_)`!-+C.@=K,@:_5:SH'F3Z6X,M^5P:X199
- MKE:V9PKR;T*6;)]WD.D$X8=%=3R.CZ5OBT@Q&C!K=$Z!KL#O&^K+4W[QA=DS
- M_=[4SN'X"2^@1EUZT@&Q4PP7'I>SN'@$E6[++L*9@!WS`[I^<AAIA]%\4-*/
- MW]`)GT%P:9K]-!<&EPG"9(M2H'A!(0<.VJ)+SMT7MSP9N.]TD[P,<,5CD%IT
- MV]G_#9/R1NYX%*K=F0T8OW-%%[`9_":"^DT)!H:2F1NF'%31F.69L``)O__S
- M.1%=CCI\!!'^TSMJF2#<P(?"9/!/,>1#Z,V%(/[*W$/E=PN9R"7#4@.QQ$%L
- MUV#.06X*B#TN(@H/>:T$)%1"7N+TD*!#=GD8632PM>YL<I$TL0)I8@NOX2-I
- M8J32Q5=?H\I&X6-$TL:IK?[4=:X-52FQ"=S5F0YZ]PP3+Z2)N@Q*,C.X(*2.
- M5R>X^$<FGA1'7%<+T&E/$-D-2P*S%IVAW@T<H;\]-LN*+UC)5<0``^1&B7^:
- ME(G6NJOAT*?#/+_>2SO`\O5/JD\ADL<5C_/7KH6Z1.BX?0G25/SU"TZ7ZFJ[
- M0KZ<)FC=U)7-.&OT^GE2%D%T+A7YK<4C0E(.H0]C"VX/Q87#ZWC-P<;Q@R6.
- M+0-^-.D>E.LCQH?<\:VO2\9&E=)M&GD>-"IXR/Y863U3&I7:E3]+PR<DQ1/;
- M,43^YBE_7,43T3%$]LQ1/5,5Y'A\DPY/;,.3WS#IX34</KF$)Z)A"?Q,(F].
- MQE?9RL(+H0-=;0\1>9XJM`14J2]"HJ3S8HPTS.VXDCE631M4DZ_$=#86S#BQ
- M.V']U@_>A<[DW&$Q9MOFVPR7>4HTK#C1KSMJ*YZFU9*"53:K<S:VU:2S3!\N
- MMY5140_];9SP#_JVS-T+DG!E1A\O!E<G`.I"5:DJ[@)OG#C_Y.`IYJ\G.PB/
- MFN.CH>]GHSIYZH</&D#(<>YOF,\I),W2I3\#]1"6J7Q.P3V$L,BX%!5--M/.
- M&,=LI^Y3TM:L3MIZ>?N6`!Z.1XRKR'&<B24YU:2HN>EZG$SHN2FXW%`:&I(4
- ME=K_R5QHQGIHAAT<>K[C9XF"R-"M<3Q0RK?].QMT<&Y3)K'81\4FJ0EU&:(^
- M/F=_\DU\T@R*)!IF?T]92K*G:HF_:4]#54>^0=%$@_L2SSR$?\-OCD)1X)"4
- M42$_]=ISR%2>^]].[7K```#<I\3]`@("$0``YP<``/88S@J;32L4```;"0``
- M`@$``````````&UI;FEF<F%C+F1O8P`*`!#"`0````"D`4````!`*2,H``=;
- M<[UV;;<<B\_`7W_:^&.7FU9'.M'6`<!9++.S`Z3<-)UNV\921;9YE$K$E153
- M\<?_Q*;2<DM&NU&\&[Q;N'O;1MM/%Y?NK1UZ.G^O-[LI?#/-Q<1%DHX2[$5%
- M^B+'92X_9[./-G\WW>;[OGV.AM%E2601!36'P,.%T*?0M"JDNP]/\MW[#T^9
- M:R<K5K@\K7-9J33E)`]./D>3D]R7/33,7.B$$N4EY,;##OJ90NRD^!VM)'<U
- M5)4H"&<3=)/LTZ6T19W*6Q*:RAK4_#N5N;J<'G1:BXM+FU$^HUY1K4NER63%
- M\4.<AD+BBF5:2;6E@5N]ZIIIM'!4;+!KGUM8]4ZTEI:XO0AEP63-7H"Y2].U
- M8O*ELV"!T:3]ZXIW)1L)[:DQZ@XEH;BYMA#P'PBK4FA+\>UVGUZ5"&NMMIPL
- MRE:UVPFL*JXJ&U5V"&Q9.3\?7Z<_J+J_GW\(C`RG%>#LUI+)#6B'`\X^<)'X
- MY,EM1@81S\I0:WP?OXGR.8NR%E8@_[FLH37#ZSQ_+ZS\[1(TK4/+]['P)!/4
- MM=Q*I2@*@H)'J!Q.9[TU"*+LU\/:A!O!"4(K1.I:H"AN8X'L")TBBEE)T!CF
- M)%!&K4$:FF3LZ"?K;8O&`E2-B24*A'J[TE8RD0S05>NYZJ$+)Z:("9V3U<><
- MI[@S'#,7-`N3CXL$%'U\H0D71_S8J`H#"\RE/9&)DI@U(I8E[RG3J0P4=>%J
- MO-I.5GXE4UD-;S;YC14:=:`KIE0#?2#E-Q;*:4L7=O<>E,>-WM;5FG;\B<VR
- M`85X[XBFJ$812>;4Y-H>6=4,N+C6'!\Z?]DH6#^<?%Q^R3OF[RGXTV()8KWG
- M2=SF"$'887Q4P5@/#QDG6;75)'J]+D4!D),.X,3`3T)!^$5[X():JE2!8?&@
- MR]TQ/K*29M4T;%J$,X(1]<IT4!L&X("V*>EQ:DQO>\8V=N$328E-+S>I:41J
- M*%E_9_:4NK'G<6<UU0UX(%HCQMY'IX_6(]`$-*5AN127K2'5%FZ4.@'\>T/^
- MY(N/`E^-.XJI-7U(`.0JG`,!MA2TW6M`/!OU2I)T$M722!0/:`G,83VH%?(9
- M\P;L:'YBT!QEA;_1VNKW?GS1=G%AGF`,CN2:W>D[0F71Y&:=`%^+N%R@J)0X
- M(ILO=:*9G;Z>9.%&?6CGZB_7L].<NIM(@CR<49_&/,:JM.#=*:@$,&.^'Y\W
- M@"E^SP\OD"%AYO@EUPBH^[+(#2UQVSG0ZPYRMT[X"%(,4NC^G8?I5;PFC7E;
- MCN)][!5W,7]]U)]]N!]FE.E%BX%6@132.._&RK=8)8Q9HB^7L9S5B4D;;>>R
- M]('*0)+$GW<DQ:D:W`_IA_L,>)Z`\\Z:$6/VUB,E70IGA+>JRC6?_FN3HQF+
- M)\1%\S1:FOAE-9BP?1V'=4=J9T4X('DSYISO3$`S,T0(G:PRBJ)#V2)]V,;;
- M_+A_T%3OC7K#"7DWTQAV^`K[-]7T.%*445P+7@AA308^AFY90=J":*6PVASU
- M*II7NFA)!&!F94F\&A)=0F4E<[FG5T'P'D5.ER()$3(B(2/5"8:XQV!:F8]^
- M,B6OD=F/9OC'>#D^QP%`92'&$$!;T<;!$X$*46+"BQO+I5ITB-3(+OP3#0'G
- M:,-U3$+\^+3YD+U-C&GR.+$FJHE>@2,$[3W&@ZGI7W1+;:23JK+_!CN5"UK+
- M*L+!`?J+._VK\0YY>F68^^_6XQV)"8M^7TX_0>#1FDJ5H=J3_SE>X8!@!OV)
- MN?+FU-[L"=SYPA*<-RR&&_XT=#`E@YJR^__Z&R/6VWQ[\;KQST1J"K6BB^UK
- M#JX#]Q%$\"X,?T(X/YD_QJKB@Q=[?-L$]3?:O.51T:\IS\$K\CKYE9@9!<@7
- M/OQJK:>5:+Y'IOP"?DJJP4V0.JP*T#0]R8SU]7%Q3%U@;C?2_:>"%>8'*J$S
- M,8P`2^."3OQ67-M+J28:KBT#%1?_[&5\L9..3,=O>2<8G-W"+V!:,/8I4^#E
- M3QOC#^=(@-:=A_+X7).CRQA=-G6K4@8G5Q>=R=1]R3T@RCSWX1(:`*LU!CGJ
- MOW9[&7<'Z'HNVTK&<49R1G/Q,MWW#;6BC&60YE.]3@`8KQHJ=H7V.(`D7"GR
- M&/`_.VEI%D-9Y`.C<<L8B@DF"8HG9*IWH*$J*3,*/VO(3S1(B@S<+S;9!1#I
- M[;^MHJL4&=4^7?0080PA&)`Z;&4'%$=(>6-:&2X\H?1P=R9!^H+CY/9F/&^P
- M01ZJIR'DBHFDP.C)\A4<P%(,^>\7::;A$CS"<Q/O$XQAF4JB+/EW%5GB3GFM
- MCT(DJ@)^41)0QQG'IC5_.VD'H+>F]T*'([[I82"/+&POAM)2Q$YEBUGY'GGW
- M5&]E1F>:I"-`8]$^_,?-Y+-6L]%;GY^PZ"!;;[\W4A2YMJ?Z-'1U\';XIKP?
- M?<HSQ!SV.C8F!X:E294(G?54*6>Y/AGPG7>BFDP&!FE"S?EWW9Z#A:P1X]^:
- MH,>7*>\',>\'[=/X9YF9\^>;OSS:5"O!,)FNU?[#4VFN+/L+#-!A735UCL%D
- M/7.?+9A&\V\N7-PEP_PAAQ_:,#9\U5*((BA8EN\UFHZ-N#V9^'>XO2&>ZPX@
- M_N#BQ^!)+VEGY0XGI_#/ASNQ@XE_(W<G[,ASI!2#`5^B%A>LN@9*_VY/9TYL
- M_%R9^(NVQVRS[<3IT=?Z<W7T;V\/&LOQQ?1+&-]`K$>`48V&IC@$2H"E@IO`
- MWY[,@DC=EW[J=L<\)L_[C8Y%+-_P#XM"B58*-VLC@W5QH^E\!)'P"-V*(&=_
- MNT$Q;&L\N..\4E>F.?DML=)T_3DPIZMPFKX_#&_"^^X`/&,9_T@KS?=QG\0!
- MF+CFS^LY=1>2%H^"6?&N5M8:!7?+67&L0,_0H(V1;P"965QQLOG'"6QT?PLI
- MLZ8V9Y32[K_A%+PC#T&`+Q+<Y%\AYJ<WS14MC0]V$!K>N.5WM#+$A]OQ9,5'
- M+>)CIHA)``=/S1AQ`VFH;0O]NB"UOAF&DXR1HFQR^,CE^$(K]X,PN&;`2A96
- M60\FH3?I0#.MV\2!R:5^'P74OVW>AV[B-"700J.R[?N*ASM3]^O3](P)CFSB
- M'3]9F97_#EVZ[I85TB^\352S?6!9U[BI,`<@2)$!'P```-RGQ/T"`CP5``!)
- M$0``]AC-!ANO^P,``/,#```"`0``````````;6EN:69R86,N97AE``H`$"SN
- M`````*0!0````$`I(R@``]]LX?:I)P/_X\`Q606KMKM(+;KCMRZ-SQN<YEHL
- MW,TSW;=;;=SG;IY[BW.N>80<O3*'-=,"F;;MVOPV5BW;N9KHT<HT4BF5';E0
- MN)2E4$;3\!%X+*H>\A\=6``D$`J>H,(-`0!H*4!C_<%84'UD@`3`30'@H@S#
- M0;1U$?N&Y!V?([]*!.*N=G/J!?GKVJ782CPML'__Q34O(LO4O;+W?BY`=M<+
- M^I:!V#?%DQK.C!>[9[H,J69A>+VLE!,0P]X&;<&&_!.S[G&GY!!>RD/F(+]Q
- MO$[#(C[D,,-9=/;<Q)%<G3$N2GZA_VXM[M%,V"**Y>E.,OW<LF''QQ:U[YR8
- M;#&U]-<[V#KPJ%.(C-F#_-UPWO$3T4@KL@;M=NGX)\T%IWF"*=78E]XTBT9]
- M$FYJKJY!TNJ*GO<&55(.E9#9;;*B:F^H?^]JZNA?`!B@KAJW]$.AG%6ZU[CP
- M-JM.<UDR?8?H[/F/]ZJ<LR=YR9_\O]R..I-YRS;1FQ6Y1QYL\\ZA/OD]YM9"
- M^@UY_-*JN):@Q08*+0[7226=-PB6!6GM0,F`"H7L#AP*ZT88L5L4AMJE9>%<
- ME@PH=*E4\$5#\RGZ2W@Z93SRZ=!T?T"7EZ&Y+PB^J6Y+EYVO+V2U):`B6B4Y
- M:4OYR^<0_V>=RQBEOLO;3@'`\.RVZ!SK_%/TD,7[$:[],]AE&17JZNB%4QS/
- M)=K#,@%!YW.Z&]G#L%U6J?P=;MU_;K333#)B9#%3/=:0)>][+UEHH=)EPR&6
- M23DLH-;\;J9=-Z"P=6-O2UEYHD/A*[Y]45EE*?=607)OR3K^T=)%KDC`,K>M
- M@ON6I3/I;FH?2FK3=SFTDS/9OHBWL*,[X%511[5!H59N-;)'APRLC_F2>Y#5
- M/S)EW<FU:?$%#Y]L=U(7XG=07':/&/KCB[#0YA[AI/$6;2-*"\K2\))NVY@L
- MQIX:/N1SSROD/3KBDBKHHS[?NH$:U#;]=(%\^V.@U69%'PO2)J57/S6J3ADP
- MK8J)76/F?/,XAKBV'=;7<HMM91ZCMT/&NT-@&K=MZJ)*0+O%#5;!4V5Q9R`[
- M\>8D*ZLRIIZCY>*;VO*'R30<K[]]X!]/U7#R_,Y6N9-*$@5D(;F%(_Q4<]FW
- MFPH@W&<+TC4;O`-,21:@U!X6E)2<>A]ZYN1)3-R,<64-1+/MD6..OE9)<,=>
- M:D8ZW+@S8F4EAB3@`+M#<9KZ,KQST'5OUK>VQ)>#*R8W]9,0^C2,QB:1K2+Y
- M\6+HCKR>S!BBLQW^"-:[4+!*!J,V@,5:/VGYGQ;\,(@.WN&MB>)QE[7MKG<$
- MZY>N8I+M&1\+[5E)E9C=,%_D:`0EA)1R?9>-+GI6L"3^$```W*?$_0(`````
- M````````````````````````````````````````````````````````````
- "_(,`
- `
- end
- END--cut here--cut here
-