home *** CD-ROM | disk | FTP | other *** search
/ ftp.xmission.com / 2014.06.ftp.xmission.com.tar / ftp.xmission.com / pub / lists / fractint / archive / v01.n304 < prev    next >
Internet Message Format  |  1998-09-28  |  41KB

  1. From: owner-fractint-digest@lists.xmission.com (fractint-digest)
  2. To: fractint-digest@lists.xmission.com
  3. Subject: fractint-digest V1 #304
  4. Reply-To: fractint-digest
  5. Sender: owner-fractint-digest@lists.xmission.com
  6. Errors-To: owner-fractint-digest@lists.xmission.com
  7. Precedence: bulk
  8.  
  9.  
  10. fractint-digest       Monday, September 28 1998       Volume 01 : Number 304
  11.  
  12.  
  13.  
  14.  
  15. ----------------------------------------------------------------------
  16.  
  17. Date: Sun, 27 Sep 1998 10:50:12 -0000
  18. From: "Dean-Christian Strik" <dean2@bigfoot.com>
  19. Subject: (fractint) ICQ # List -- C'est tout?
  20.  
  21. Dear fractaleer,
  22.  
  23. In the beginning of this month, I asked all of the members of that time (well,
  24. there won't be much new members in that time) whether they want to be listed
  25. in a list of ICQ # available to all list members, but it can also be found in
  26. the list archives and on the Internet.
  27.  
  28. At the time of writing this, there were about 70 entries in the list. These
  29. entries had been added by Paul N. Lee and me, but not all on your request. The
  30. reason for canceling these entries now is privacy: you're being listed. And a
  31. lot of people (and I can agree with that) are against being listed too much,
  32. even if it is just about having some protection against being spammed.
  33. There are also a lot of members who have given me permission. Unfortunately, I
  34. am unable to track all of you down. So as a precaution, *all* entries are
  35. deleted.
  36.  
  37. On the other hand, I'd like the list to be as complete as possible!
  38. Unfortunately, the number of replies has been surprisingly (that is, to *me*),
  39. low. I really want to ask you again: please supply me (e-mail address at the
  40. bottom) with your ICQ #. A lot of #s make the # List a valuable resource.
  41.  
  42. I've included parts of my original request (September 5) below.
  43.  
  44. "I guess there are a lot of people on the list who actually do have a number
  45. and haven't let me know yet. There are also people on the list who have about
  46. five accounts, probably four of them not working."
  47.  
  48. "This request will be only made once (that's this time). Okay, maybe I'll
  49. repeat it in a year or so."
  50.  
  51. "If you don't know what an ICQ # is, and are interested in the phenomenon,
  52. want
  53. to use or abuse it, or just want to join over 4,000,000 others, visit
  54. www.mirabilis.com "
  55.  
  56. "Feel welcome to flame me, to my personal address please, if you think I
  57. spammed you :-)"
  58.  
  59. "So, in short: Please mail me your ICQ # if you have one."
  60.  
  61. Thanks in advance and kind regards,
  62.  
  63. Dean-Christian Strik,
  64. dean2@bigfoot.com
  65.  
  66.  
  67.  
  68.  
  69.  
  70. - --------------------------------------------------------------
  71. Thanks for using Fractint, The Fractals and Fractint Discussion List
  72. Post Message:   fractint@lists.xmission.com
  73. Get Commands:   majordomo@lists.xmission.com "help"
  74. Administrator:  twegner@phoenix.net
  75. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  76.  
  77. ------------------------------
  78.  
  79. Date: Sun, 27 Sep 1998 12:49:50 -0400
  80. From: Paul Derbyshire <pderbysh@usa.net>
  81. Subject: Re: (fractint) ICQ # List -- C'est tout?
  82.  
  83. 10423848
  84. - -- 
  85.    .*.  "Clouds are not spheres, mountains are not cones, coastlines are not
  86. - -()  <  circles, and bark is not smooth, nor does lightning travel in a
  87.    `*'  straight line."    -------------------------------------------------
  88.         -- B. Mandelbrot  |http://surf.to/pgd.net
  89. _____________________ ____|________     Paul Derbyshire     pderbysh@usa.net
  90. Programmer & Humanist|ICQ: 10423848|
  91.  
  92. - --------------------------------------------------------------
  93. Thanks for using Fractint, The Fractals and Fractint Discussion List
  94. Post Message:   fractint@lists.xmission.com
  95. Get Commands:   majordomo@lists.xmission.com "help"
  96. Administrator:  twegner@phoenix.net
  97. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  98.  
  99. ------------------------------
  100.  
  101. Date: Sun, 27 Sep 1998 10:44:07 +0200
  102. From: Swan <Swan@wanadoo.fr>
  103. Subject: [Fwd: Re: (fractint) Windows Makemap.exe]
  104.  
  105. Ce message est en plusieurs parties sous format MIME.
  106.  
  107. - --------------48F2280649A7
  108. Content-Type: text/plain; charset=us-ascii
  109. Content-Transfer-Encoding: 7bit
  110.  
  111. Hello Ron, please can you explain me what the Makemap.exe do and 
  112. how to use it in Fractint ? I wish download it, how many ko your 
  113. application do ?
  114. Thanks.
  115. Octavio.
  116.  
  117. - --------------48F2280649A7
  118. Content-Type: message/rfc822
  119. Content-Transfer-Encoding: 7bit
  120. Content-Disposition: inline
  121.  
  122. Return-Path: <owner-fractint@lists.xmission.com>
  123. Received: from wanadoo.fr (root@hetre.wanadoo.fr [193.252.19.37])
  124.           by smtpi12.wanadoo.fr (8.7.5/[France Telecom Interactive]) with ESMTP id XAA21548
  125.           for <swan@mail12.wanadoo.fr>; Wed, 16 Sep 1998 23:01:43 +0200 (MET DST)
  126. Received: from lists.xmission.com [198.60.22.7] by wanadoo.fr
  127.           for <Swan@wanadoo.fr>
  128.           Paris Wed, 16 Sep 1998 23:05:07 +0200 (MET DST)
  129. Received: from domo by lists.xmission.com with local (Exim 1.82 #1)
  130.     id 0zJOeW-0000Fp-00; Wed, 16 Sep 1998 14:58:16 -0600
  131. Message-ID: <01BDE193.955D3E40.rbarnett@telenet.net>
  132. From: Ron Barnett <rbarnett@telenet.net>
  133. To: "'fractint@lists.xmission.com'" <fractint@lists.xmission.com>
  134. Subject: RE: (fractint) Windows Makemap.exe
  135. Date: Wed, 16 Sep 1998 16:57:15 -0400
  136. X-Mailer: Microsoft Internet E-mail/MAPI - 8.0.0.4211
  137. MIME-Version: 1.0
  138. Content-Type: text/plain; charset="us-ascii"
  139. Content-Transfer-Encoding: 7bit
  140. Sender: owner-fractint@lists.xmission.com
  141. Precedence: bulk
  142. Reply-To: fractint@lists.xmission.com
  143. X-UIDL: 1a9a542586ef28375864a1d39ec1e3c9
  144. X-Mozilla-Status: 0011
  145.  
  146. A word from the developer:
  147. I wrote Makemap 4 years ago. It is a 16 bit app developed using Borland 
  148. C++. It needs bwcc.dll, not bwcc32.dll. I have had good intentions of 
  149. upgrading the app to 32 bit, but my hectic work schedule has prevented me. 
  150. I am currently traveling almost 90% of the time. Over the years I have had 
  151. occasional reports of problems under Win95, but I have been unable to 
  152. reproduce them on my system, which is also running Win95. The long term 
  153. solution is for me to find the time to upgrade it to 32 bit :-).
  154. Ron Barnett
  155.  
  156. - -----Original Message-----
  157. From:    Gedeon Peteri [SMTP:gedeon@InfoAve.Net]
  158. Sent:    Wednesday, September 16, 1998 2:12 PM
  159. To:    fractint@lists.xmission.com
  160. Subject:    Re: (fractint) Windows Makemap.exe
  161.  
  162. Ken,
  163.  
  164. My makemap.exe runs just fine under Win95, with the bwcc.dll file, which 
  165. you say
  166. you have. On the other hand, I have a file called bwcc32.dll, which, 
  167. frankly, I
  168. don't know what it is for. The name suggests some relationship, so if you 
  169. would
  170. like to try it, e-mail me personally and I will send it to you to try 
  171. (206KB).
  172.  
  173. Gedeon
  174.  
  175. Ken Childress wrote:
  176.  
  177. > > >I was trying to run makemap.exe on a Win 95 system.  I get an error
  178. > > >message (forget the number).
  179. > >Plus, it's now more of a mission to figure what is messed up
  180. > on my system that is preventing makemap from working.  :-)
  181. >
  182. > Ken...
  183.  
  184. - --
  185. - --------------------------------------------------------------
  186. Fractals: http://www.geocities.com/~gedeonp/index.html
  187. Member Infinite Fractal Loop
  188. Last updated: July 12, 1998
  189. Photography: http://members.xoom.com/gedeonp/index.html
  190. Last updated: July 20, 1998
  191. - --------------------------------------------------------------
  192.  
  193.  
  194.  
  195. - --------------------------------------------------------------
  196. Thanks for using Fractint, The Fractals and Fractint Discussion List
  197. Post Message:   fractint@lists.xmission.com
  198. Get Commands:   majordomo@lists.xmission.com "help"
  199. Administrator:  twegner@phoenix.net
  200. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  201.  
  202. - --------------------------------------------------------------
  203. Thanks for using Fractint, The Fractals and Fractint Discussion List
  204. Post Message:   fractint@lists.xmission.com
  205. Get Commands:   majordomo@lists.xmission.com "help"
  206. Administrator:  twegner@phoenix.net
  207. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  208.  
  209.  
  210. - --------------48F2280649A7--
  211.  
  212.  
  213.  
  214. - --------------------------------------------------------------
  215. Thanks for using Fractint, The Fractals and Fractint Discussion List
  216. Post Message:   fractint@lists.xmission.com
  217. Get Commands:   majordomo@lists.xmission.com "help"
  218. Administrator:  twegner@phoenix.net
  219. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  220.  
  221. ------------------------------
  222.  
  223. Date: Sun, 27 Sep 1998 22:14:04 -0700 (MST)
  224. From: Kerry Mitchell <lkmitch@primenet.com>
  225. Subject: (fractint) Fractal dimension coloring
  226.  
  227. On the fractal programmer's list, Stephen Ferguson posted a link to his
  228. tutorial on fractal dimension coloring of fractals.  Here's a set of
  229. Fractint formulas and pars to implement his ideas.
  230.  
  231. - -------------------------------------------------------------------------------
  232. Kerry Mitchell
  233. lkmitch@primenet.com    www.primenet.com/~lkmitch/
  234. - -------------------------------------------------------------------------------
  235.  
  236. comment {
  237.  
  238. Fractal Dimension coloring
  239.  
  240. Stephen Ferguson posted an analysis of fractal dimension, which he
  241. based on an algorithm by Holger Jaenisch.  The formulas here take
  242. Stephen's analysis and implement it in Fractint.
  243.  
  244. Since the fractal dimension can be computed for either the real or
  245. the imaginary parts of z (actually, for any bounded set of real
  246. numbers), a plotting flag in the formula tells which component to
  247. use.  Set the flag to 1 to plot the fractal dimension of the real
  248. component, 2 for the imaginary component, or 3 for the magnitude.
  249. Any other value uses the 2 component dimensions as the real and
  250. imaginary parts of a new complex variable, and plots by the polar
  251. angle of that variable.
  252.  
  253. The "fdim" formulas implement Stephen's analysis as written.  This
  254. includes a "2-1/(0.5+n/d)" scaling, where n and d both involve log
  255. functions.  This may be mathematically accurate, but obscures the
  256. detail by reducing the dynamic range of the variables (the variables
  257. change to little to be seen with the standard Fractint coloring
  258. schemes).  Consequently, the "fdim2" formulas remove the scaling, and
  259. color essentially by n/d.  Also, the absolute value restriction was
  260. removed from the compilation of the mean and standard deviation.  Both
  261. statistics handle negatives well, and this allows the method to
  262. properly handle non-symmetric orbits.  Preliminary tests indicate that
  263. the fundamental nature of the images is unchanged, although the "fdim2"
  264. formulas are simpler and should run faster.
  265.  
  266. As fractal dimension calculations involve bounded sets, this method
  267. is best suited for "inside" colorings.  Therefore, if the orbit
  268. escapes, it is assigned the value of 1.0, which corresponds to color
  269. 0 when using the "decomp" coloring.  Decomp=256 is recommended for
  270. this method.
  271.  
  272. }
  273.  
  274. fdim-man-x { ; copyright Kerry Mitchell 26sep98
  275.   ;
  276.   ; sample of fractal dimension coloring
  277.   ; uses real component of z, Mandelbrot set
  278.   ;
  279.   reset=1960 type=formula formulafile=fractint.frm cyclerange=0/255
  280.   formulaname=fdim2_man center-mag=-0.7/0/1.1 params=4.7/1
  281.   float=y maxiter=100 inside=0 decomp=256 periodicity=0
  282.   colors=000<61>y00z00z00z10<61>zz0zz0yy1<61>00z00z11z<61>zzz
  283.   }
  284.  
  285. fdim-man-y { ; copyright Kerry Mitchell 26sep98
  286.   ;
  287.   ; sample of fractal dimension coloring
  288.   ; uses imaginary component of z, Mandelbrot set
  289.   ;
  290.   reset=1960 type=formula formulafile=fractint.frm cyclerange=0/255
  291.   formulaname=fdim2_man center-mag=-0.7/0/1.1 params=6.8/2
  292.   float=y maxiter=100 inside=0 decomp=256 periodicity=0
  293.   colors=000<61>y00z00z00z10<61>zz0zz0yy1<61>00z00z11z<61>zzz
  294.   }
  295.  
  296. fdim-man-r { ; copyright Kerry Mitchell 26sep98
  297.   ;
  298.   ; sample of fractal dimension coloring
  299.   ; uses magnitude of z, Mandelbrot set
  300.   ;
  301.   reset=1960 type=formula formulafile=fractint.frm cyclerange=0/255
  302.   formulaname=fdim2_man center-mag=-0.7/0/1.1 params=9.2/3
  303.   float=y maxiter=100 inside=0 decomp=256 periodicity=0
  304.   colors=000<61>y00z00z00z10<61>zz0zz0yy1<61>00z00z11z<61>zzz
  305.   }
  306.  
  307. fdim-man-both { ; copyright Kerry Mitchell 26sep98
  308.   ;
  309.   ; sample of fractal dimension coloring
  310.   ; uses both components of z, Mandelbrot set
  311.   ;
  312.   reset=1960 type=formula formulafile=fractint.frm cyclerange=0/255
  313.   formulaname=fdim2_man function=ident center-mag=-0.7/0/1.1
  314.   params=4.2/0 float=y maxiter=100 inside=0 decomp=256 periodicity=0
  315.   colors=000<62>yn0zo0zo0zo1<61>zzzzzzyyz<60>QQzPPzPPzPPy<60>111
  316.   }
  317.  
  318. fdim-jul-x { ; copyright Kerry Mitchell 26sep98
  319.   ;
  320.   ; sample of fractal dimension coloring
  321.   ; uses real component of z, Julia set
  322.   ;
  323.   reset=1960 type=formula formulafile=fractint.frm
  324.   formulaname=fdim2_jul center-mag=0/0/1.2/1/-92.5
  325.   params=0.3590310488975619/0.1009347986428277/6.7/1 float=y
  326.   maxiter=100 inside=0 decomp=256 periodicity=0 colors=000<61>y\
  327.   00z00z00z10<61>zz0zz0yy1<61>00z00z11z<61>zzz cyclerange=0/255
  328.   }
  329.  
  330. fdim-jul-y { ; copyright Kerry Mitchell 26sep98
  331.   ;
  332.   ; sample of fractal dimension coloring
  333.   ; uses imaginary component of z, Julia set
  334.   ;
  335.   reset=1960 type=formula formulafile=fractint.frm
  336.   formulaname=fdim2_jul center-mag=0/0/0.9/1/-12
  337.   params=-0.125/0.649519052838/5.2/2 float=y
  338.   maxiter=100 inside=0 decomp=256 periodicity=0 colors=000<61>\
  339.   y00z00z00z10<61>zz0zz0yy1<61>00z00z11z<61>zzz cyclerange=0/255
  340.   }
  341.  
  342. fdim-jul-r { ; copyright Kerry Mitchell 26sep98
  343.   ;
  344.   ; sample of fractal dimension coloring
  345.   ; uses magnitude of z, Julia set
  346.   ;
  347.   reset=1960 type=formula formulafile=fdim.frm cyclerange=0/255
  348.   formulaname=fdim2_jul center-mag=0/0/0.95 params=-0.39054087022/-0\
  349.   .586787907347/8/3 float=y maxiter=100 inside=0 decomp=256 periodic\
  350.   ity=0 colors=000<61>y00z00z00z10<61>zz0zz0yy1<61>00z00z11z<61>zzz
  351.   }
  352.  
  353. fdim-jul-both { ; copyright Kerry Mitchell 26sep98
  354.   ;
  355.   ; sample of fractal dimension coloring
  356.   ; uses both components of z, Julia set
  357.   ;
  358.   reset=1960 type=formula formulafile=fractint.frm cyclerange=0/255
  359.   formulaname=fdim2_jul center-mag=0/0/0.98 params=0/0/16/0 float=y
  360.   maxiter=100 inside=0 decomp=256 periodicity=0
  361.   colors=000<61>y99zAAzAAzBB<61>zzzzzzzyz<60>i1ih0hh0hg0g<61>000
  362.   }
  363.  
  364. frm:fdim2_man { ; Kerry Mitchell 26sep98
  365.         ;
  366.         ; real(p1) = coloring speed
  367.         ; imag(p1) = plot flag
  368.         ;   1:  plot x fdim
  369.         ;   2:  plot y fdim
  370.         ;   3:  plot r fdim
  371.         ;   other:  x = x fdim, y = y fdim, plot angle
  372.         ;
  373.         zc=0, c=pixel, iter=1, done=0
  374.         speed=real(p1), plotflag=imag(p1)
  375.         xmin=1e12, xmax=-1e12, ymin=1e12, ymax=-1e12
  376.         ssx=0, sx=0, ssy=0, sy=0
  377.         rmin=1e12, rmax=-1e12, ssr=0, sr=0
  378.         :
  379.         iter=iter+1, zc=sqr(zc)+c
  380.         x=real(zc), y=imag(zc), r=cabs(zc)
  381.         ssx=ssx+sqr(x), sx=sx+x
  382.         ssy=ssy+sqr(y), sy=sy+y
  383.         ssr=ssr+sqr(r), sr=sr+r
  384.         if(x<xmin)
  385.           xmin=x
  386.         endif
  387.         if(x>xmax)
  388.           xmax=x
  389.         endif
  390.         if(y<ymin)
  391.           ymin=y
  392.         endif
  393.         if(y>ymax)
  394.           ymax=y
  395.         endif
  396.         if(r<rmin)
  397.           rmin=r
  398.         endif
  399.         if(r>rmax)
  400.           rmax=r
  401.         endif
  402.         if(|zc|>4)
  403.           done=1
  404.           z=1
  405.         endif
  406.         if(iter==maxit)
  407.           done=1
  408.           s=sqrt(ssx-sx*sx/iter)
  409.           fdimx=(xmax-xmin)/s
  410.           s=sqrt(ssy-sy*sy/iter)
  411.           fdimy=(ymax-ymin)/s
  412.           s=sqrt(ssr-sr*sr/iter)
  413.           fdimr=(rmax-rmin)/s
  414.           if(plotflag==1)
  415.             t=speed*fdimx
  416.             z=cos(t)+flip(sin(t))
  417.           elseif(plotflag==2)
  418.             t=speed*fdimy
  419.             z=cos(t)+flip(sin(t))
  420.           elseif(plotflag==3)
  421.             t=speed*fdimr
  422.             z=cos(t)+flip(sin(t))
  423.           else
  424.             z=fdimx+flip(fdimy)
  425.             z=z^speed
  426.           endif
  427.         endif
  428.         done==0
  429.         }
  430.  
  431. frm:fdim2_jul { ; Kerry Mitchell 26sep98
  432.         ;
  433.         ; p1 = c = Julia parameter
  434.         ; real(p2) = coloring speed
  435.         ; imag(p2) = plot flag
  436.         ;   1:  plot x fdim
  437.         ;   2:  plot y fdim
  438.         ;   3:  plot r fdim
  439.         ;   other:  x = x fdim, y = y fdim, plot angle
  440.         ;
  441.         c=p1, zc=pixel, iter=1, done=0
  442.         speed=real(p2), plotflag=imag(p2)
  443.         xmin=1e12, xmax=-1e12, ymin=1e12, ymax=-1e12
  444.         ssx=0, sx=0, ssy=0, sy=0
  445.         rmin=1e12, rmax=-1e12, ssr=0, sr=0
  446.         :
  447.         iter=iter+1, zc=sqr(zc)+c
  448.         x=real(zc), y=imag(zc), r=cabs(zc)
  449.         ssx=ssx+sqr(x), sx=sx+x
  450.         ssy=ssy+sqr(y), sy=sy+y
  451.         ssr=ssr+sqr(r), sr=sr+r
  452.         if(x<xmin)
  453.           xmin=x
  454.         endif
  455.         if(x>xmax)
  456.           xmax=x
  457.         endif
  458.         if(y<ymin)
  459.           ymin=y
  460.         endif
  461.         if(y>ymax)
  462.           ymax=y
  463.         endif
  464.         if(r<rmin)
  465.           rmin=r
  466.         endif
  467.         if(r>rmax)
  468.           rmax=r
  469.         endif
  470.         if(|zc|>4)
  471.           done=1
  472.           z=1
  473.         endif
  474.         if(iter==maxit)
  475.           done=1
  476.           s=sqrt(ssx-sx*sx/iter)
  477.           fdimx=(xmax-xmin)/s
  478.           s=sqrt(ssy-sy*sy/iter)
  479.           fdimy=(ymax-ymin)/s
  480.           s=sqrt(ssr-sr*sr/iter)
  481.           fdimr=(rmax-rmin)/s
  482.           if(plotflag==1)
  483.             t=speed*fdimx
  484.             z=cos(t)+flip(sin(t))
  485.           elseif(plotflag==2)
  486.             t=speed*fdimy
  487.             z=cos(t)+flip(sin(t))
  488.           elseif(plotflag==3)
  489.             t=speed*fdimr
  490.             z=cos(t)+flip(sin(t))
  491.           else
  492.             z=fdimx+flip(fdimy)
  493.             z=z^speed
  494.           endif
  495.         endif
  496.         done==0
  497.         }
  498.  
  499. frm:fdim_man { ; Kerry Mitchell 26sep98
  500.         ;
  501.         ; real(p1) = coloring speed
  502.         ; imag(p1) = plot flag
  503.         ;   1:  plot x fdim
  504.         ;   2:  plot y fdim
  505.         ;   other:  x = x fdim, y = y fdim, plot angle
  506.         ;
  507.         zc=0, c=pixel, iter=1, done=0
  508.         speed=real(p1), plotflag=imag(p1)
  509.         xmin=1e12, xmax=0, ymin=1e12, ymax=0
  510.         ssx=0, sx=0, ssy=0, sy=0
  511.         :
  512.         iter=iter+1, zc=sqr(zc)+c
  513.         x=cabs(real(zc)), y=cabs(imag(zc))
  514.         ssx=ssx+sqr(x), sx=sx+x
  515.         ssy=ssy+sqr(y), sy=sy+y
  516.         if(x<xmin)
  517.           xmin=x
  518.         endif
  519.         if(x>xmax)
  520.           xmax=x
  521.         endif
  522.         if(y<ymin)
  523.           ymin=y
  524.         endif
  525.         if(y>ymax)
  526.           ymax=y
  527.         endif
  528.         if(|zc|>4)
  529.           done=1
  530.           z=1
  531.         endif
  532.         if(iter==maxit)
  533.           done=1
  534.           denom=log(iter)
  535.           s=ssx-sx*sx/iter
  536.           numer=-log((xmax-xmin)/(sqrt(s)*iter))
  537.           fdimx=2-1/(0.5+numer/denom)
  538.           s=ssy-sy*sy/iter
  539.           numer=-log((ymax-ymin)/(sqrt(s)*iter))
  540.           fdimy=2-1/(0.5+numer/denom)
  541.           if(plotflag==1)
  542.             t=speed*fdimx
  543.             z=cos(t)+flip(sin(t))
  544.           elseif(plotflag==2)
  545.             t=speed*fdimy
  546.             z=cos(t)+flip(sin(t))
  547.           else
  548.             z=fdimx+flip(fdimy)
  549.             z=z^speed
  550.           endif
  551.         endif
  552.         done==0
  553.         }
  554.  
  555. frm:fdim_jul { ; Kerry Mitchell 26sep98
  556.         ;
  557.         ; p1 = c = Julia parameter
  558.         ; real(p2) = coloring speed
  559.         ; imag(p2) = plot flag
  560.         ;   1:  plot x fdim
  561.         ;   2:  plot y fdim
  562.         ;   other:  x = x fdim, y = y fdim, plot angle
  563.         ;
  564.         c=p1, zc=pixel, iter=1, done=0
  565.         speed=real(p2), plotflag=imag(p2)
  566.         xmin=1e12, xmax=0, ymin=1e12, ymax=0
  567.         ssx=0, sx=0, ssy=0, sy=0
  568.         :
  569.         iter=iter+1, zc=sqr(zc)+c
  570.         x=cabs(real(zc)), y=cabs(imag(zc))
  571.         ssx=ssx+sqr(x), sx=sx+x
  572.         ssy=ssy+sqr(y), sy=sy+y
  573.         if(x<xmin)
  574.           xmin=x
  575.         endif
  576.         if(x>xmax)
  577.           xmax=x
  578.         endif
  579.         if(y<ymin)
  580.           ymin=y
  581.         endif
  582.         if(y>ymax)
  583.           ymax=y
  584.         endif
  585.         if(|zc|>4)
  586.           done=1
  587.           z=1
  588.         endif
  589.         if(iter==maxit)
  590.           done=1
  591.           denom=log(iter)
  592.           s=ssx-sx*sx/iter
  593.           numer=-log((xmax-xmin)/(sqrt(s)*iter))
  594.           fdimx=2-1/(0.5+numer/denom)
  595.           s=ssy-sy*sy/iter
  596.           numer=-log((ymax-ymin)/(sqrt(s)*iter))
  597.           fdimy=2-1/(0.5+numer/denom)
  598.           if(plotflag==1)
  599.             t=speed*fdimx
  600.             z=cos(t)+flip(sin(t))
  601.           elseif(plotflag==2)
  602.             t=speed*fdimy
  603.             z=cos(t)+flip(sin(t))
  604.           else
  605.             z=fdimx+flip(fdimy)
  606.             z=z^speed
  607.           endif
  608.         endif
  609.         done==0
  610.         }
  611.  
  612.  
  613.  
  614. - --------------------------------------------------------------
  615. Thanks for using Fractint, The Fractals and Fractint Discussion List
  616. Post Message:   fractint@lists.xmission.com
  617. Get Commands:   majordomo@lists.xmission.com "help"
  618. Administrator:  twegner@phoenix.net
  619. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  620.  
  621. ------------------------------
  622.  
  623. Date: Sun, 27 Sep 1998 22:14:55 -0700 (MST)
  624. From: Kerry Mitchell <lkmitch@primenet.com>
  625. Subject: (fractint) Fractal dimension coloring
  626.  
  627. Here's Stephen's original post.
  628.  
  629. - -------------------------------------------------------------------------------
  630. Kerry Mitchell
  631. lkmitch@primenet.com    www.primenet.com/~lkmitch/
  632. - -------------------------------------------------------------------------------
  633.  
  634. - ---------- Forwarded message ----------
  635. Date: Fri, 27 Sep 2002 12:35:37 +0000
  636. From: "Stephen C. Ferguson" <stephenf@HiWAAY.net>
  637. Reply-To: fracprogrammers-list@terindell.com
  638. To: fracprogrammers-list@terindell.com
  639. Subject: Re: new app source
  640. Resent-Date: Sun, 27 Sep 1998 13:36:45 -0400 (EDT)
  641. Resent-From: fracprogrammers-list@terindell.com
  642.  
  643. If anyone is interested, I've finally written a couple of tutorials. One on a
  644. 24-bit sine/ cosine fractal coloring technique and another on a fractal
  645. dimension approximation method.
  646.  
  647. http://home.HiWAAY.net/~stephenf/Tutorials/Coloring/Coloring.html
  648. http://home.HiWAAY.net/~stephenf/Tutorials/FDimension/dimension.html
  649.  
  650. Comments?
  651.  
  652. Steve.
  653. - -- 
  654. http://home.HiWAAY.net/~stephenf/
  655.  
  656.  
  657.  
  658. - --------------------------------------------------------------
  659. Thanks for using Fractint, The Fractals and Fractint Discussion List
  660. Post Message:   fractint@lists.xmission.com
  661. Get Commands:   majordomo@lists.xmission.com "help"
  662. Administrator:  twegner@phoenix.net
  663. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  664.  
  665. ------------------------------
  666.  
  667. Date: 
  668. From: "Fliguer, Miguel" <M_Fliguer@miniphone.com.ar>
  669. Subject: (fractint) Gigueresque par
  670.  
  671. Hello !
  672.  
  673. This one looks like some H.R.Giger's picture. Enjoy !  Comments are welcome.
  674.  
  675.  
  676. giger2             { ; 
  677.   reset=1960 type=formula formulafile=miguel.frm
  678.   formulaname=Prueba_000 function=tan/tan
  679.   center-mag=-0.000777572/-1.67072/4.041715 params=0/1/0/1
  680.   colors=000DDD<63>vvvvvvwwwwwwvvv<78>111000111<44>ssstttuuuwwwvvvttt<33>0\
  681.   006CEAAE000<17>CCC
  682.   }
  683.  
  684. frm:  Prueba_000 {; 
  685. z=fn1(pixel), c=fn2(pixel):
  686. z=fn2(p1/z^4) - fn1(p2/z^2) + c
  687. |z|<64
  688. }
  689.  
  690.  
  691. - ----
  692. Miguel Fliguer - Buenos Aires, Argentina
  693. m_fliguer@miniphone.com.ar
  694.  
  695.  
  696. - --------------------------------------------------------------
  697. Thanks for using Fractint, The Fractals and Fractint Discussion List
  698. Post Message:   fractint@lists.xmission.com
  699. Get Commands:   majordomo@lists.xmission.com "help"
  700. Administrator:  twegner@phoenix.net
  701. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  702.  
  703. ------------------------------
  704.  
  705. Date: Mon, 28 Sep 1998 15:20:29 -0400
  706. From: wdecker@csc.com
  707. Subject: re: (fractint) Gigueresque par
  708.  
  709. There are some interesting images hidden in this formula. This one is sort
  710. of stained glass.
  711. The y potential parameter usually gives you a different perspective! I
  712. usually try it just to see
  713. what might happen.
  714.  
  715. Thanks, Miguel.
  716.  
  717. Bill Decker
  718.  
  719. glory              { ;  (c) Bill Decker Sep 28, 1998 t=  0:01:27.66
  720.                      ;  on P100 1024x768
  721.   reset=1960 type=formula formulafile=mflig.par formulaname=prueba_000
  722.   function=tanh/sqr
  723.   center-mag=-0.0195277/-0.0626542/0.3152126/1/-67.499 params=0/1/0/1
  724.   potential=255/200/0
  725.   colors=000733<2>211000000<13>000000222<22>zzz<22>333000000<15>000<4>G40K\
  726.   50L50<13>fE4hF5iH6<13>xhNzkPyiO<13>jI7hF5gF5<12>O71M61K50I50F40<4>000<17\
  727.   >000100311<10>L88N99PAAQBASDATEA<20>zk8<22>RC9PAAOAA<9>844
  728.   }
  729.  
  730. > Hello !
  731. >
  732. > This one looks like some H.R.Giger's picture. Enjoy !  Comments are
  733. > welcome.
  734. >
  735. giger2             { ;
  736.   reset=1960 type=formula formulafile=miguel.frm
  737.   formulaname=Prueba_000 function=tan/tan
  738.   center-mag=-0.000777572/-1.67072/4.041715 params=0/1/0/1
  739.   colors=000DDD<63>vvvvvvwwwwwwvvv<78>111000111<44>ssstttuuuwwwvvvttt<33>0\
  740.   006CEAAE000<17>CCC
  741.   }
  742.  
  743. frm:Prueba_000 {;
  744. z=fn1(pixel), c=fn2(pixel):
  745. z=fn2(p1/z^4) - fn1(p2/z^2) + c
  746. |z|<64
  747. }
  748. >
  749. > ----
  750. > Miguel Fliguer - Buenos Aires, Argentina
  751. > m_fliguer@miniphone.com.ar
  752. >
  753.  
  754.  
  755.  
  756. - --------------------------------------------------------------
  757. Thanks for using Fractint, The Fractals and Fractint Discussion List
  758. Post Message:   fractint@lists.xmission.com
  759. Get Commands:   majordomo@lists.xmission.com "help"
  760. Administrator:  twegner@phoenix.net
  761. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  762.  
  763. ------------------------------
  764.  
  765. Date: Mon, 28 Sep 1998 16:36:14 -0400
  766. From: Gedeon Peteri <gedeon@InfoAve.Net>
  767. Subject: (fractint) web site update
  768.  
  769. Now that the contest is over, I uploaded my entries, based on my Euler
  770. formulas, as well as many others I created while working on them, and
  771. created a greatly expanded section of Euler fractals on my web site. You
  772. will find 65 images there, arranged in seven sections. In addition, I
  773. added six more images to my page featuring images based on Sylvie
  774. Gallet's formulas, and a second page of modified fractals. As a result,
  775. push came to shove on my Geocities site, and I had to move some pages to
  776. Fortunecity, although everything remains to be linked from my main
  777. Geocities home page. I invite you to visit. Your comments are
  778. appreciated as always.
  779.  
  780. Gedeon
  781.  
  782. - --
  783. - --------------------------------------------------------------
  784. Fractals: http://www.geocities.com/~gedeonp/index.html
  785. Member Infinite Fractal Loop
  786. Last updated: September 28, 1998 - major revision
  787. Photography: http://members.xoom.com/gedeonp/index.html
  788. Last updated: July 20, 1998
  789. - --------------------------------------------------------------
  790.  
  791.  
  792.  
  793. - --------------------------------------------------------------
  794. Thanks for using Fractint, The Fractals and Fractint Discussion List
  795. Post Message:   fractint@lists.xmission.com
  796. Get Commands:   majordomo@lists.xmission.com "help"
  797. Administrator:  twegner@phoenix.net
  798. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  799.  
  800. ------------------------------
  801.  
  802. Date: Mon, 28 Sep 1998 14:06:34 -0700
  803. From: "Mike and Linda Allison" <gumbycat@ix.netcom.com>
  804. Subject: (fractint) My contest entries 
  805.  
  806. Hi, y'all!
  807.  
  808. I've added my 3 entries and 6 more of my "rejects" to my "Rejects"
  809. gallery at:
  810.  
  811. http://www.fractalus.com/gumbycat/gallery5.html
  812.  
  813. Stop in and visit when you get a chance!
  814. Linda
  815.  
  816.  
  817.  
  818. - --------------------------------------------------------------
  819. Thanks for using Fractint, The Fractals and Fractint Discussion List
  820. Post Message:   fractint@lists.xmission.com
  821. Get Commands:   majordomo@lists.xmission.com "help"
  822. Administrator:  twegner@phoenix.net
  823. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  824.  
  825. ------------------------------
  826.  
  827. Date: Mon, 28 Sep 1998 17:57:47 -0400
  828. From: Paul Derbyshire <pderbysh@usa.net>
  829. Subject: Re: (fractint) ICQ # List -- C'est tout?
  830.  
  831. At 01:58 PM 9/28/98 -0500, you wrote:
  832. >####################################################
  833. >This message was not delivered to
  834. >denise.demkowicz@162.118.11.172 
  835. >Sender was informed with a copy of this message
  836. >####################################################
  837. >10423848
  838.  
  839. What the hell?
  840. - -- 
  841.    .*.  "Clouds are not spheres, mountains are not cones, coastlines are not
  842. - -()  <  circles, and bark is not smooth, nor does lightning travel in a
  843.    `*'  straight line."    -------------------------------------------------
  844.         -- B. Mandelbrot  |http://surf.to/pgd.net
  845. _____________________ ____|________     Paul Derbyshire     pderbysh@usa.net
  846. Programmer & Humanist|ICQ: 10423848|
  847.  
  848. - --------------------------------------------------------------
  849. Thanks for using Fractint, The Fractals and Fractint Discussion List
  850. Post Message:   fractint@lists.xmission.com
  851. Get Commands:   majordomo@lists.xmission.com "help"
  852. Administrator:  twegner@phoenix.net
  853. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  854.  
  855. ------------------------------
  856.  
  857. Date: Mon, 28 Sep 1998 21:40:56 -0400 (EDT)
  858. From: kragen@pobox.com (Kragen)
  859. Subject: Re: (fractint) ICQ # List -- C'est tout?
  860.  
  861. On Mon, 28 Sep 1998, Paul Derbyshire wrote:
  862. > At 01:58 PM 9/28/98 -0500, you wrote:
  863. > >####################################################
  864. > >This message was not delivered to
  865. > >denise.demkowicz@162.118.11.172 
  866. > >Sender was informed with a copy of this message
  867. > >####################################################
  868. > >10423848
  869. > What the hell?
  870.  
  871. This means that some incompetent system administrator has installed
  872. some brain-dead mail software written by four-year-olds who aren't
  873. competent to program their way out of a bubble-sort assignment.  Flame
  874. the hell out of the bastard; they should know better than to inflict
  875. their goddamned broken shitty software on everybody on the Internet.
  876.  
  877. Everytime I post a message to BUGTRAQ@netspace.org, which has something
  878. like 20,000 recipients, I get about five of these.
  879.  
  880. Pardon my French.
  881.  
  882. Kragen
  883.  
  884. - -- 
  885. <kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
  886. A well designed system must take people into account.  . . .  It's hard to
  887. build a system that provides strong authentication on top of systems that can
  888. be penetrated by knowing someone's mother's maiden name.  -- Schneier
  889.  
  890.  
  891. - --------------------------------------------------------------
  892. Thanks for using Fractint, The Fractals and Fractint Discussion List
  893. Post Message:   fractint@lists.xmission.com
  894. Get Commands:   majordomo@lists.xmission.com "help"
  895. Administrator:  twegner@phoenix.net
  896. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  897.  
  898. ------------------------------
  899.  
  900. Date: Mon, 28 Sep 1998 20:47:55 -0500
  901. From: "Nature Leseul" <nleseul@zurich.crosswinds.net>
  902. Subject: Re: (fractint) ICQ # List -- C'est tout?
  903.  
  904. <<This means that some incompetent system administrator has installed
  905. some brain-dead mail software written by four-year-olds who aren't
  906. competent to program their way out of a bubble-sort assignment.  >>
  907.  
  908.   My COMPUTER TEACHER couldn't figure out why the bubble sort program she'd
  909. done wasn't working. I had to explain that a bubble sort uses TWO loops.
  910. Should we be afraid for the future of our planet? :-P
  911. ||===================== ||
  912. ||   --v^v-[Nature Leseul]-v^v--    ||
  913. ||  The weird guy in the corner ||
  914. ||          Dreamy Smurf            ||
  915. ||             Donatello!               ||
  916. ||      "Some are vicious,          ||
  917. ||         some are fools,           ||
  918. ||        and others blind            ||
  919. ||          to see in me,             ||
  920. ||       one of their kind."          ||
  921. ||  -Anatoly, Endgame (Chess)||
  922. ||===================== ||
  923.  
  924.  
  925. - --------------------------------------------------------------
  926. Thanks for using Fractint, The Fractals and Fractint Discussion List
  927. Post Message:   fractint@lists.xmission.com
  928. Get Commands:   majordomo@lists.xmission.com "help"
  929. Administrator:  twegner@phoenix.net
  930. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  931.  
  932. ------------------------------
  933.  
  934. Date: Mon, 28 Sep 1998 22:18:34 -0400
  935. From: "Phil DiGiorgi" <phild@iinc.com>
  936. Subject: (fractint) Contest Images
  937.  
  938. Now that the judging is officially closed, I'd like to thank all the fine artists for sharing
  939. their beautiful work.   You are all winners!
  940.  
  941. And I'd really like to thank the 2 guessers who thought my images belonged to Sylvie Gallet.   It
  942. was very flattering  ;-)
  943.  
  944.  
  945.   Phil D.
  946.  
  947.  
  948. - --------------------------------------------------------------
  949. Thanks for using Fractint, The Fractals and Fractint Discussion List
  950. Post Message:   fractint@lists.xmission.com
  951. Get Commands:   majordomo@lists.xmission.com "help"
  952. Administrator:  twegner@phoenix.net
  953. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  954.  
  955. ------------------------------
  956.  
  957. Date: Mon, 28 Sep 1998 22:55:43 -0400
  958. From: Ron Barnett <rbarnett@telenet.net>
  959. Subject: RE: (fractint) Contest Images
  960.  
  961. I would also like to thank a guesser who thought my images belonged to Sylvie :-)
  962. Ron Barnett
  963.  
  964. - -----Original Message-----
  965. From:    Phil DiGiorgi [SMTP:phild@iinc.com]
  966. Sent:    Monday, September 28, 1998 10:19 PM
  967. To:    fractint@lists.xmission.com
  968. Subject:    (fractint) Contest Images
  969.  
  970.  
  971. Now that the judging is officially closed, I'd like to thank all the fine artists for sharing
  972. their beautiful work.   You are all winners!
  973.  
  974. And I'd really like to thank the 2 guessers who thought my images belonged to Sylvie Gallet.   It
  975. was very flattering  ;-)
  976.  
  977.  
  978.   Phil D.
  979.  
  980.  
  981. - --------------------------------------------------------------
  982. Thanks for using Fractint, The Fractals and Fractint Discussion List
  983. Post Message:   fractint@lists.xmission.com
  984. Get Commands:   majordomo@lists.xmission.com "help"
  985. Administrator:  twegner@phoenix.net
  986. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  987.  
  988. - --------------------------------------------------------------
  989. Thanks for using Fractint, The Fractals and Fractint Discussion List
  990. Post Message:   fractint@lists.xmission.com
  991. Get Commands:   majordomo@lists.xmission.com "help"
  992. Administrator:  twegner@phoenix.net
  993. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  994.  
  995. ------------------------------
  996.  
  997. Date: Mon, 28 Sep 1998 22:47:12 -0700
  998. From: kathy roth <kroth@well.com>
  999. Subject: (fractint) contest pars
  1000.  
  1001. I don't have a web page so here are my
  1002. contest entries and some alternates.  (I'm still
  1003. wondering who made Untitled 1, 2 and 3!)
  1004.       When they announced the contest I was
  1005. afraid that I would not have anything suitably original.
  1006. Right after that  I tried putting Gravijul into Paul
  1007. Carlson's Spir_stalks_jul.  This formula was great, very
  1008. amenable to this sort of fiddling and was versatile.
  1009. It made lots of different images.  I called it gravistalks.
  1010.     P1 and P2 don't work as Julia coordinates so
  1011. later I used them for the gravijul parameters-
  1012. gravistalks 2 and 3 coming soon!
  1013.  
  1014.  
  1015. amphora            { ; kathy roth 7-98
  1016.                      ; modified Sylvie Gallet palette
  1017.   reset=1960 type=formula formulafile=fractint.frm
  1018.   formulaname=gravistalks function=conj/tan/atanh
  1019.   center-mag=-0.681694/-0.67038/3.012664/1/-135
  1020.   params=2/0/0.04/150/8/15 float=y bailout=100
  1021. inside=255 outside=summ
  1022.   colors=000<13>000fnn<28>4CCUUZ<13>DDG\
  1023. SWT<13>8B9qpf<26>GE8EC6B93wrl<28>B7\
  1024.   1pii<26>FBBD99A66mjn<28>CADggl<3>ddic\
  1025. chbbf<20>EEHDDG99Cmmummu<28>3BC
  1026.   }
  1027.  
  1028. amphora7           { ; kathy roth 7-98
  1029.                      ; modified Sylvie Gallet palette
  1030.   reset=1960 type=formula formulafile=fractint.frm
  1031.   formulaname=gravistalks function=conj/tan/atanh
  1032.   center-mag=-0.000768747/-1.02947/4.95925/1/180
  1033.   params=2/0/0.04/150/8/15 float=y bailout=100
  1034. inside=255 outside=summ
  1035.   colors=000QUZ<11>7EG000kkk000<12>000\
  1036. fnn<28>4CCUUZ<13>DDGSWT<13>8B9qpf<26\
  1037.   >GE8EC6B93wrl<28>B71pii<26>FBBD99A66\
  1038. mjn<28>CADggl<3>ddicchbbf<20>EEHDDG9\
  1039.   9Cmmummu<13>SW_
  1040.   }
  1041.  
  1042. _con98_3b { ; kathy roth 7-98 astrolabe
  1043.                      ; Paul Carlson's palette
  1044.   colors=000d44<12>O00zW0<28>c40zz0<28>aG0\
  1045. 0zR<28>0C40zz<28>0CCGGz<28>00O00\
  1046.   0<13>000fOz<28>I0Kz0f<28>O08z88<14>f44
  1047.   }
  1048.  
  1049. _con98_2 { ; kathy roth 7-98 exuberant stalks
  1050.                      ; modified Linda Allison palette
  1051.   reset=1960 type=formula formulafile=fractint.frm
  1052.   formulaname=gravistalks function=tan/tan/atanh
  1053.   center-mag=56.5385/1.93933/1.670526/1/180
  1054. params=2/0/0.01/150/8/15 float=y
  1055. bailout=100 inside=255 outside=summ
  1056.   colors=000<14>000wxf<28>5C3hwz<28>5B\
  1057. Gmmz<28>99Czee<28>M06zxg<28>A00zvn<2\
  1058.   8>D4Aprc<28>180ztx<28>ULR
  1059.   }
  1060.  
  1061. _con98_3 { ; kathy roth 7-98 astrolabe
  1062.                      ; modified Linda Allison palette
  1063.   reset=1960 type=formula formulafile=fractint.frm
  1064.   formulaname=gravistalks function=conj/tan/atanh
  1065.   center-mag=-0.512647/-0.501333/1.494282/1/-135
  1066.   params=2/0/0.04/150/8/15 float=y
  1067. bailout=100 inside=255 outside=summ
  1068.   colors=000SSZ<12>99Czee<28>M06`dR<14>JO\
  1069. DYSK<12>A00zvn<28>D4Aprc<28>180zt\
  1070.   x<28>ULR000<13>000wxf<28>5C3hwz<28>5BGmmz<14>TT`
  1071.   }
  1072.  
  1073. _con98_1 { ; kathy roth 7-98 stalking in the grass
  1074.            ; palette modified from Angela Wilczynski
  1075.   reset=1960 type=formula formulafile=fractint.frm
  1076.   formulaname=gravistalks function=tan/tan/atanh
  1077.   center-mag=56.5471/1.86416/10.23098/1/180
  1078. params=2/0/0.005/150/8/15
  1079.   float=y bailout=100 inside=255 outside=summ
  1080.   colors=000www<27>333000000<13>000uzz<13>MawR\
  1081. Wv<11>335000000www<28>000dsn\
  1082.   <3>Inb<24>000www<28>KKKwzz<9>0pp<18>0XX\
  1083. ccc<28>000www<15>U0m<12>101
  1084.   }
  1085.  
  1086. amphora2          { ; kathy roth 7-98
  1087.                      ; modified Linda Allison palette
  1088.   reset=1960 type=formula formulafile=fractint.frm
  1089.   formulaname=gravistalks function=conj/tan/atanh
  1090.   center-mag=-0.138518/0.0217136/0.6077542/1/-90
  1091.   params=2/0/0.04/150/8/15 float=y bailout=100
  1092. inside=255 outside=summ
  1093.   colors=000SSZ<12>99Czee<28>M06zxg<28>A00z\
  1094. vn<28>D4Aprc<28>180ztx<28>ULR00\
  1095.   0<13>000wxf<28>5C3hwz<28>5BGmmz<14>TT`
  1096.   }
  1097.  
  1098.  
  1099.  
  1100. amphora3          { ; kathy roth 7-98
  1101.                      ; palette modified from Angela Wilczynski
  1102.    colors=000ZZZ<19>zzz000<9>0zz<9>r\
  1103. 0r<9>000<47>000111333<29>zzz<30>2220000\
  1104.   00<39>000Z0AU00<6>m00<7>T0m<4>F0F<2>000<24>YYY
  1105.   }
  1106.  
  1107. _con98_4          { ; kathy roth 7-98
  1108.                      ; modified Sylvie Gallet palette
  1109.   reset=1960 type=formula formulafile=fractint.frm
  1110.   formulaname=gravistalks function=tan/tan/atanh
  1111.   center-mag=56.5475/1.85911/6.846418/-1/180
  1112.    params=2/0/0.01/150/8/15
  1113.   float=y bailout=100 inside=255 outside=summ
  1114.   colors=000gnhfmfelf<2>UdW<23>DIElkX<3>hdLfbHfb\
  1115. H<22>KH5NVO<12>DIEiUAhS7fQ\
  1116.   4<12>F92wtt<15>`NOZKLYKK<10>F99vuv<19>SNV\
  1117. QLTPKSOJQ<5>FCHllp<28>EEKmuu<18\
  1118.   >DWXBUVBTU<7>6HI000<13>000mrrmrr<5>AUU<21>011
  1119.   }
  1120.  
  1121. amphora4          { ; kathy roth 7-98
  1122.                      ; palette modified from Angela Wilczynski
  1123.   reset=1960 type=formula formulafile=fractint.frm
  1124.   formulaname=gravistalks function=conj/tan/atanh
  1125.   center-mag=-0.023567/0.0129639/1.006216/1/-90
  1126.   params=2/0/0.04/150/8/15 float=y
  1127. bailout=100 inside=255 outside=summ
  1128.   colors=0000xx<27>0CCGGz<28>00O000<13>00\
  1129. 0fOz<28>I0Kz0f<28>O08z88<28>O00zW\
  1130.   0<28>c40zz0<28>aG00zR<28>0C40zz
  1131.   }
  1132.  
  1133. amphora5          { ; kathy roth 7-98
  1134.                      ; modified Sylvie Gallet palette
  1135.   reset=1960 type=formula formulafile=fractint.frm
  1136.   formulaname=gravistalks function=asin/tan/atanh
  1137.   center-mag=0.0177482/-0.00402091/0.7854263/1.0731/-90
  1138.   params=2/0/0.04/150/8/15 float=y
  1139. bailout=100 inside=255 outside=summ
  1140.   colors=000gnhfmfelf<2>UdW<23>DIElkX<3>hdL\
  1141. fbHfbH<22>KH5wrl<14>hS7fQ4dP4<1\
  1142.   1>F92wtt<15>`NOZKLYKK<10>F99vuv<19>SNVQLTP\
  1143. KSOJQ<5>FCHllp<28>EEKmuu<18>DW\
  1144.   XBUVBTU<7>6HI000<13>000mrrmrr<5>AUU<21>011
  1145.   }
  1146.  
  1147. amphora6          { ; kathy roth 7-98
  1148.                      ; palette modified from Angela Wilczynski
  1149.   reset=1960 type=formula formulafile=fractint.frm
  1150.   formulaname=gravistalks function=asin/tan/atanh
  1151.   center-mag=0.0177482/-0.00402091/0.6249354/1.0731/-90
  1152.   params=2/0/0.04/150/8/15 float=y bailout=100
  1153. inside=255 outside=summ  invert=1/0/0
  1154.   colors=000<14>000zzc<28>cKA000<28>000\
  1155. 0wz<27>03C00A000<28>000fOz<28>K0F00\
  1156.   0<28>000KKU<24>555444333222111<29>000
  1157.   }
  1158.  
  1159.  
  1160.  
  1161.  
  1162.  
  1163. frm:gravistalks {; adapted from Paul W. Carlson
  1164.       ;original gravijul by Mark Christenson
  1165.       ;kathy roth 1998
  1166.     ;
  1167.     ;   p1       = Julia set coordinates
  1168.     ;   real(p2) = a factor controlling the size of the stalks
  1169.     ;   imag(p2) = iterations to skip
  1170.     ;   real(p3) = number of color ranges
  1171.     ;   imag(p3) = number of colors in a range
  1172.     ;
  1173.     w = pixel
  1174.     c = p1
  1175.     z = bailout = iter = range_num = 0
  1176.     stalk_width = real(p2)
  1177.     max_wm = imag(p2)
  1178.     num_ranges = real(p3)
  1179.     colors_in_range = imag(p3)
  1180.     index_factor = (colors_in_range - 1) / stalk_width
  1181.     :
  1182.     q=fn1(w)
  1183. w=fn3(1/fn2(q*q)), wr = real(w), awr = abs(wr)
  1184.     w = w - wr + awr
  1185.     ;
  1186.     IF (abs(real(w)) <= abs(imag(w)))
  1187.  dist = abs(real(w))
  1188.     ELSE
  1189.  dist = abs(imag(w))
  1190.     ENDIF
  1191.     IF (dist < stalk_width && |w|<max_wm && iter>1)
  1192.  z = index_factor * dist + range_num * colors_in_range + 1
  1193.  bailout = 1
  1194.     ENDIF
  1195.     range_num = range_num + 1
  1196.     IF (range_num == num_ranges)
  1197.         range_num = 0
  1198.     ENDIF
  1199.     iter = iter + 1
  1200.     z = z - iter
  1201.     bailout == 0  && |w| < 4
  1202. }
  1203.  
  1204. amphora2a          { ; kathy roth 7-98
  1205.                      ; Paul Carlson's palette
  1206.     colors=000<14>000fOz<28>I0Kz0f<28>O08z\
  1207. 88<28>O00zW0<28>c40zz0<28>aG00zR<2\
  1208.   8>0C40zz<28>0CCGGz<28>00O
  1209.   }
  1210.  
  1211.  
  1212.  
  1213.  
  1214.  
  1215.  
  1216. - --------------------------------------------------------------
  1217. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1218. Post Message:   fractint@lists.xmission.com
  1219. Get Commands:   majordomo@lists.xmission.com "help"
  1220. Administrator:  twegner@phoenix.net
  1221. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  1222.  
  1223. ------------------------------
  1224.  
  1225. End of fractint-digest V1 #304
  1226. ******************************
  1227.  
  1228.