home *** CD-ROM | disk | FTP | other *** search
/ ftp.xmission.com / 2014.06.ftp.xmission.com.tar / ftp.xmission.com / pub / lists / fractint / archive / v01.n332 < prev    next >
Internet Message Format  |  1998-11-14  |  42KB
  1. From: owner-fractint-digest@lists.xmission.com (fractint-digest)
  2. To: fractint-digest@lists.xmission.com
  3. Subject: fractint-digest V1 #332
  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       Sunday, November 15 1998       Volume 01 : Number 332
  11.  
  12.  
  13.  
  14.  
  15. ----------------------------------------------------------------------
  16.  
  17. Date: Fri, 13 Nov 1998 23:28:54 -0500
  18. From: JoWeber <JoWeber@compuserve.com>
  19. Subject: (fractint) My Dog Ate the Internet!
  20.  
  21. Hi Paul,
  22.  
  23. >>Sylvie Gallet posted something called "ifs".  I copied them, but don't
  24. know how to view them - I keep getting an error message.  Any tips?      =
  25.   =
  26.  
  27.  
  28. Edit the file, copy all ifs-formulas into a file with the suffix .ifs,
  29. start fractint and let it calculate the pars.
  30. BTW Wonderful images.
  31. Cheers --Jo--
  32.  
  33. - --------------------------------------------------------------
  34. Thanks for using Fractint, The Fractals and Fractint Discussion List
  35. Post Message:   fractint@lists.xmission.com
  36. Get Commands:   majordomo@lists.xmission.com "help"
  37. Administrator:  twegner@phoenix.net
  38. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  39.  
  40. ------------------------------
  41.  
  42. Date: Sat, 14 Nov 1998 18:15:30 -0500
  43. From: Paul DeCelle <PaulDC@prodigy.net>
  44. Subject: Re: (fractint) .ifs files
  45.  
  46. > JoWeber wrote:
  47.  
  48. > Edit the file, copy all ifs-formulas into a file with the suffix .ifs,
  49. > start fractint and let it calculate the pars.
  50.  
  51. Thanks, Jo - I'll give it a try.  
  52.  
  53. Regards, Paul DeCelle
  54.  
  55. - --------------------------------------------------------------
  56. Thanks for using Fractint, The Fractals and Fractint Discussion List
  57. Post Message:   fractint@lists.xmission.com
  58. Get Commands:   majordomo@lists.xmission.com "help"
  59. Administrator:  twegner@phoenix.net
  60. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  61.  
  62. ------------------------------
  63.  
  64. Date: Sun, 15 Nov 1998 02:11:57 -0700 (MST)
  65. From: Kerry Mitchell <lkmitch@primenet.com>
  66. Subject: (fractint) New goodies
  67.  
  68. I've updated my collections of Fractint and UltraFractal coloring schemes.
  69. The new toys are both "curve"-type colorings:  color by closest approach
  70. to a curve or how often the orbit is inside the curve.  The curves are:
  71. general polar curves where r is a function of theta, and the astroid curve
  72. (4-pointed star or hypocycloid).  I'll be posting the actual formulae and
  73. parameters files to each list shortly.  Until then, you can find the
  74. updated files at:
  75.  
  76. www.primenet.com/~lkmitch/lkm-pub.zip
  77.  
  78. for Fractint stuff, and 
  79.  
  80. www.primenet.com/~lkmitch/lkm-pub-uf.zip
  81.  
  82. for UltraFractal stuff.
  83.  
  84. Enjoy,
  85. Kerry
  86.  
  87. - -------------------------------------------------------------------------------
  88. Kerry Mitchell
  89. lkmitch@primenet.com    www.primenet.com/~lkmitch/
  90. - -------------------------------------------------------------------------------
  91.  
  92.  
  93. - --------------------------------------------------------------
  94. Thanks for using Fractint, The Fractals and Fractint Discussion List
  95. Post Message:   fractint@lists.xmission.com
  96. Get Commands:   majordomo@lists.xmission.com "help"
  97. Administrator:  twegner@phoenix.net
  98. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  99.  
  100. ------------------------------
  101.  
  102. Date: Sun, 15 Nov 1998 07:40:23 -0500
  103. From: davides <davides@pipeline.com>
  104. Subject: (fractint) Inverse Julias
  105.  
  106. Below are some inverse julias. They take a little while to complete:
  107.  
  108. =========================++++++++++++============================
  109.  
  110. An_Inverse_Julia   { ;  (c) David Shanholtzer Nov 14, 1998 t=0:19:13.27
  111.                      ;  P200 MMX 1024x768
  112.                      ; color map: dav86
  113.   reset=1960 type=julia_inverse miim=depth/right
  114.   center-mag=0/0/0.6666667 params=-0.0197/0.71/235 float=y
  115.   maxiter=10000 inside=zmag
  116.   colors=000ZBZ<52>zzz00U<60>xxyzzzzzz<62>00Uzzz<60>V2VU0UU0U<9>ZAZ
  117.   }
  118.  
  119. An_Inverse_Julia1  { ;  (c) David Shanholtzer Nov 14, 1998 t=0:20:37.58
  120.                      ;  P200 MMX 1024x768
  121.                      ; color map: Dav86
  122.   reset=1960 type=julia_inverse miim=depth/right
  123.   center-mag=0/0/0.6666667 params=-0.012/0.6556999999999999/235
  124.   float=y maxiter=750000
  125.   colors=000ZBZ<52>zzz00U<60>xxyzzzzzz<62>00Uzzz<60>V2VU0UU0U<9>ZAZ
  126.   }
  127.  
  128. An_Inverse_Julia2  { ;  (c) David Shanholtzer Nov 14, 1998 t=0:14:45.24
  129.                      ;  P200 MMX 1024x768
  130.                      ; color map: Dav86
  131.   reset=1960 type=julia_inverse miim=depth/right
  132.   center-mag=0/0/0.6666667 params=-0.013127748/0.701/250 float=y
  133.   maxiter=1500 bailout=16 inside=zmag outside=summ
  134.   colors=00000e0e00eee00e0eeL0eeeLLLLLzLzLLzzzLLzLzzzLzzz000555<3>HHHKKKOO\
  135.   OSSSWWW___ccchhhmmmssszzz00z<3>z0z<3>z00<3>zz0<3>0z0<3>0zz<2>0GzVVz<3>zV\
  136.   z<3>zVV<3>zzV<3>VzV<3>Vzz<2>Vbzhhz<3>zhz<3>zhh<3>zzh<3>hzh<3>hzz<2>hlz00\
  137.   S<3>S0S<3>S00<3>SS0<3>0S0<3>0SS<2>07SEES<3>SES<3>SEE<3>SSE<3>ESE<3>ESS<2\
  138.   >EHSKKS<2>QKSSKSSKQSKOSKMSKK<2>SQKSSKQSKOSKMSKKSK<2>KSQKSSKQSKOSKMS00G<3\
  139.   >G0G<3>G00<3>GG0<3>0G0<3>0GG<2>04G88G<2>E8GG8GG8EG8CG8AG88<2>GE8GG8EG8CG\
  140.   8AG88G8<2>8GE8GG8EG8CG8AGBBG<2>FBGGBGGBFGBDGBCGBB<2>GFBGGBFGBDGBCGBBGB<2\
  141.   >BGFBGGBFGBDGBCG0Pe<6>0J_
  142.   }
  143.  
  144. An_Inverse_Julia2a { ;  (c) David Shanholtzer Nov 14, 1998 t=0:14:45.24
  145.                      ;  P200 MMX 1024x768
  146.                      ; color map: Dav25c
  147.   reset=1960 type=julia_inverse miim=depth/right
  148.   center-mag=0/0/0.6666667 params=-0.013127748/0.701/250 float=y
  149.   maxiter=1500 bailout=16 inside=zmag outside=summ
  150.   colors=000iJnlLq<30>G1IE0GF0G<24>e8bmcw<32>909100<35>J00K00L00M00N00<36>\
  151.   w65000<68>D0FE0GG1I<10>gIk
  152.   }
  153.  
  154. An_Inverse_Julia4  { ;  (c) David Shanholtzer Nov 15, 1998 t=0:16:11.42
  155.                      ;  P200 MMX 1024x768
  156.   reset=1960 type=julia_inverse miim=depth/left
  157.   center-mag=0/0/0.6666667 params=-0.01325/0.70133/247 float=y
  158.   maxiter=35000 inside=zmag
  159.   colors=00000e0e00eee00e0eeL0eeeLLLLLzLzLLzzzLLzLzzzLzzz000555<3>HHHKKKOO\
  160.   OSSSWWW___ccchhhmmmssszzz00z<3>z0z<3>z00<3>zz0<3>0z0<3>0zz<2>0GzVVz<3>zV\
  161.   z<3>zVV<3>zzV<3>VzV<3>Vzz<2>Vbzhhz<3>zhz<3>zhh<3>zzh<3>hzh<3>hzz<2>hlz00\
  162.   S<3>S0S<3>S00<3>SS0<3>0S0<3>0SS<2>07SEES<3>SES<3>SEE<3>SSE<3>ESE<3>ESS<2\
  163.   >EHSKKS<2>QKSSKSSKQSKOSKMSKK<2>SQKSSKQSKOSKMSKKSK<2>KSQKSSKQSKOSKMS00G<3\
  164.   >G0G<3>G00<3>GG0<3>0G0<3>0GG<2>04G88G<2>E8GG8GG8EG8CG8AG88<2>GE8GG8EG8CG\
  165.   8AG88G8<2>8GE8GG8EG8CG8AGBBG<2>FBGGBGGBFGBDGBCGBB<2>GFBGGBFGBDGBCGBBGB<2\
  166.   >BGFBGGBFGBDGBCGV3V<6>ZAZ
  167.   }
  168.  
  169. An_Inverse_Julia5  { ;  (c) David Shanholtzer Nov 15, 1998 t=0:31:35.53
  170.                      ;  P200 MMX 1024x768
  171.   reset=1960 type=julia_inverse miim=depth/left
  172.   center-mag=0/0/0.6666667 params=-0.001975/0.6475/255 float=y
  173.   maxiter=750000 inside=zmag
  174.   colors=00000e0e00eee00e0eeL0eeeLLLLLzLzLLzzzLLzLzzzLzzz000555<3>HHHKKKOO\
  175.   OSSSWWW___ccchhhmmmssszzz00z<3>z0z<3>z00<3>zz0<3>0z0<3>0zz<2>0GzVVz<3>zV\
  176.   z<3>zVV<3>zzV<3>VzV<3>Vzz<2>Vbzhhz<3>zhz<3>zhh<3>zzh<3>hzh<3>hzz<2>hlz00\
  177.   S<3>S0S<3>S00<3>SS0<3>0S0<3>0SS<2>07SEES<3>SES<3>SEE<3>SSE<3>ESE<3>ESS<2\
  178.   >EHSKKS<2>QKSSKSSKQSKOSKMSKK<2>SQKSSKQSKOSKMSKKSK<2>KSQKSSKQSKOSKMS00G<3\
  179.   >G0G<3>G00<3>GG0<3>0G0<3>0GG<2>04G88G<2>E8GG8GG8EG8CG8AG88<2>GE8GG8EG8CG\
  180.   8AG88G8<2>8GE8GG8EG8CG8AGBBG<2>FBGGBGGBFGBDGBCGBB<2>GFBGGBFGBDGBCGBBGB<2\
  181.   >BGFBGGBFGBDGBCGV3V<6>ZAZ
  182.   }
  183.  
  184. And remember, if you walk a mile in someone's shoes, s/he'll be a mile away
  185. and barefoot...  :)
  186. davides@pipeline.com
  187. ds30@umail.umd.edu
  188. Back up my hard drive?
  189. How do I put it in reverse?
  190.  
  191. - --------------------------------------------------------------
  192. Thanks for using Fractint, The Fractals and Fractint Discussion List
  193. Post Message:   fractint@lists.xmission.com
  194. Get Commands:   majordomo@lists.xmission.com "help"
  195. Administrator:  twegner@phoenix.net
  196. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  197.  
  198. ------------------------------
  199.  
  200. Date: Sun, 15 Nov 1998 12:15:15 -0700 (MST)
  201. From: Kerry Mitchell <lkmitch@primenet.com>
  202. Subject: (fractint) Polar Curves coloring
  203.  
  204. Here are the .frm and .par files for the Polar Curves coloring method that
  205. I mentioned earlier.  Both are included in my Fractint stuff collection on
  206. my webpage.
  207.  
  208. Kerry
  209.  
  210. - -------------------------------------------------------------------------------
  211. Kerry Mitchell
  212. lkmitch@primenet.com    www.primenet.com/~lkmitch/
  213. - -------------------------------------------------------------------------------
  214.  
  215. *** begin polar.par ***
  216. comment { ; copyright Kerry Mitchell 14nov98
  217.  
  218. Polar Curves
  219.  
  220. Typically, points in a plane are thought of in terms of their x- and
  221. y-coordinates, that is, how far away (and on which side) the point is
  222. from the horizontal x-axis and the vertical y-axis.  Another way of
  223. looking at the point is with polar coordinates, which specify the
  224. distance of the point from the origin (r) and its direction (t).  The
  225. two methods are equivalent:
  226.  
  227. x = r*cos(t), y=r*sin(t), or
  228. r^2 = x^2 + y^2, tan(t) = y/x.
  229.  
  230. Polar curves are curves that specify r as a function of t, instead of
  231. y as a function of x.  The curve used in this coloring method is:
  232.  
  233. r = [a * f(b*t)]^n + r0,
  234.  
  235. where f is one of Fractint's builtin functions (e.g., sin, cos, exp,
  236. etc.), a is an amplitude scaling factor, and b is a frequency factor.
  237. The exponent n is useful for making the curve wider or thinner, and r0
  238. is a expansion or contraction constant.
  239.  
  240. Some special curves can be generated using this function.  Spirals can
  241. be made by using the "ident" function.  Here, the exponent n controls
  242. how tightly wound the spiral is.  However, only one revolution of the
  243. spiral will be drawn, as t is limited to the range 0 to 2*pi.
  244.  
  245. "Rose" curves are made by using either sin or cos functions.  The
  246. parameter a controls the size of the curve.  The number of "petals"
  247. is b, so long as b is a positive integer.  Increasing n from 1 will
  248. make the petals thinner; decreasing it toward 0 will make them thicker.
  249. Leave r0=0 for the standard rose curve, where the petals all join at
  250. the origin.
  251.  
  252. Since the sin and cos functions generate negative values, the "rose"
  253. curves will have some regions of negative r.  How this is handled
  254. depends on r0 and "negrflag", the negative r flag.  Setting negrflag to
  255. 1 will make the routine ignore negative r values.  This, with r0 is set
  256. to 0, will cause the rose curve to have "b" number of petals, all of
  257. them the same size.  Setting negrflag=2 will make the routine consider
  258. negative r's the same as positive r's.  Thus, the rose curve will have
  259. 2*b petals.  Increasing r0 from 0 will make r positive more often than
  260. negative.  This will also increase the number of petals from b to 2*b,
  261. but half of the petals will be small and half will be large.
  262.  
  263. The best way to see the effects of the parameter choices is to use the
  264. "polar" formula.  This formula doesn't draw a fractal, just the polar
  265. curve determined by a, b, n, r0, the chosen function, and the negative r
  266. flag.  Another flag determines how the curve is shown.  If the coloring
  267. flag "colflag" is set to 1, then the image will be colored by how close
  268. the pixel is to the polar curve.  Is essence, this will outline the curve.
  269. If colflag=2, then the area outside of the curve is colored black (color
  270. 0), and the inside is rendered in a second color (color 40).
  271.  
  272. The other formulas use polar curves to color fractals.  There are 2
  273. basic rendering methods:  how close the orbit comes to the polar curve,
  274. and how often the orbit is inside the polar curve.  The "polar-near_man"
  275. and "polar-near_jul" formulas color the Mandelbrot and Julia sets in the
  276. first manner.  The "polar-inout_man" and "polar-inout_jul" formulas take
  277. the second tack.  In the Julia cases, the bailout value and the negative
  278. r flag are hardcoded, to allow full freedom in specifying a, b, n, and r0.
  279.  
  280. }
  281.  
  282. four-leaf-rose { ; set imag(p1)=2 to see effect of negative r
  283.   ;
  284.   ; illustrates interior coloring of polar curve
  285.   ;
  286.   reset=1960 type=formula formulafile=test.frm formulaname=polar
  287.   function=sin center-mag=0/0/0.7 params=2/1/1/4/1/0 float=y
  288.   maxiter=256 inside=0 decomp=256 periodicity=0 cyclerange=0/255
  289.   }
  290.  
  291. near_mandel { ; copyright Kerry Mitchell 14nov98
  292.   ;
  293.   ; illustrates "near to polar curve" Mandelbrot coloring
  294.   ;
  295.   reset=1960 type=formula formulafile=polar.frm
  296.   formulaname=polar-near_man function=cos center-mag=-0.6/0/0.8
  297.   params=1000/1/1/3/3/0 float=y maxiter=28 inside=0 decomp=256
  298.   periodicity=0 colors=000<46>00x00z00z<12>08z09z0Az0Bz0Cz<28>\
  299.   0mz0oz0oz<12>7xs8yr9zqAzpBzo<44>xz2zz0zz0<46>zR0zR0yQ0yQ0xP0\
  300.   <9>rK0qJ0pI0oI0nI0<11>ZC0YC0WB0UB0<13>210 cyclerange=0/255
  301.   }
  302.  
  303. near_julia { ; copyright Kerry Mitchell 14nov98
  304.   ;
  305.   ; illustrates "near to polar curve" Julia coloring
  306.   ;
  307.   reset=1960 type=formula formulafile=polar.frm
  308.   formulaname=polar-near_jul function=sin center-mag=0/0\
  309.   /0.6666667 params=-0.778/0.201/2/2/1/0.4428474 float=y
  310.   maxiter=256 inside=0 decomp=256 periodicity=0 colors=000\
  311.   <46>00x00z00z<12>08z09z0Az0Bz0Cz<28>0mz0oz0oz<12>7xs8yr9\
  312.   zqAzpBzo<44>xz2zz0zz0<46>zR0zR0yQ0yQ0xP0<9>rK0qJ0pI0oI0n\
  313.   I0<11>ZC0YC0WB0UB0<13>210 cyclerange=0/255
  314.   }
  315.  
  316. inout_mandel { ; copyright Kerry Mitchell 14nov98
  317.   ;
  318.   ; illustrates "inside polar curve" Mandelbrot coloring
  319.   ;
  320.   reset=1960 type=formula formulafile=polar.frm
  321.   formulaname=polar-inout_man function=cos center-mag=-0.6/0/0.8
  322.   params=1000/2/1/2/1/0 float=y maxiter=256 inside=0 decomp=256
  323.   periodicity=0 colors=000<62>00z00z11y<61>zz0zz0zy0<61>z01z01\
  324.   z12<61>zzz cyclerange=0/255
  325.   }
  326.  
  327. inout_julia { ; copyright Kerry Mitchell 14nov98
  328.   ;
  329.   ; illustrates "inside polar curve" Julia coloring
  330.   ;
  331.   reset=1960 type=formula formulafile=polar.frm
  332.   formulaname=polar-inout_jul function=cos center-mag=0/0/0.9/1/10
  333.   params=-0.1010946435276083/0.9562770568810802/1/3/1/0 float=y
  334.   maxiter=256 inside=0 decomp=256 periodicity=0 colors=000<62>00z\
  335.   00z11y<61>zz0zz0zy0<61>z01z01z12<61>zzz cyclerange=0/255
  336.   }
  337. *** end polar.par ***
  338.  
  339. *** begin polar.frm ***
  340. polar { ; Kerry Mitchell 14nov98
  341.         ;
  342.         ; draws polar curve r = cabs(a*fn1(b*theta))^n+r0
  343.         ;
  344.         ; real(p1) = coloring flag:
  345.         ;   1 to color by nearness to curve
  346.         ;   2 to color by inside/outside
  347.         ; imag(p1) = negative r handling flag:
  348.         ;   1 to ignore r<0
  349.         ;   2 to use |r| instead of r
  350.         ; real(p2) = a = amplitude
  351.         ; imag(p2) = b = frequency
  352.         ; real(p3) = n = exponent
  353.         ; imag(p3) = r0 = baseline
  354.         ;
  355.         ; use decomp=256, float=yes, periodicity=no
  356.         ;
  357.         zc=pixel, done=1, twopi=2*pi
  358.         a=real(p2), b=imag(p2), n=real(p3), r0=imag(p3)
  359.         colflag=real(p1), negrflag=imag(p1)
  360.         :
  361.         t=imag(log(zc))
  362.         if(t<0)
  363.           t=t+twopi
  364.         endif
  365.         r=a*fn1(b*t)
  366.         if(r>=0)
  367.           r=r^n
  368.         else
  369.           r=-((-r)^n)
  370.         endif
  371.         r=r+r0
  372.         if(colflag==1)
  373.           if(negrflag==1)
  374.             err=r-cabs(zc)
  375.           else
  376.             err=|r|-|zc|
  377.           endif
  378.           err=cabs(err)
  379.           t=log(err)
  380.           z=cos(t)+flip(sin(t))
  381.         else
  382.           if(negrflag==1)
  383.             if(r<cabs(zc))
  384.               t=0
  385.             else
  386.               t=1
  387.             endif
  388.           else
  389.             if(|r|<|zc|)
  390.               t=0
  391.             else
  392.               t=1
  393.             endif
  394.           endif
  395.           z=cos(t)+flip(sin(t))
  396.         endif
  397.         done==0
  398.         }
  399.  
  400. polar-near_man { ; Kerry Mitchell 14nov98
  401.         ;
  402.         ; colors Mandelbrot set by orbit's closet approach to
  403.         ; polar curve r = cabs(a*fn1(b*theta))^n+r0
  404.         ;
  405.         ; real(p1) = bailout
  406.         ; imag(p1) = negative r handling flag:
  407.         ;   1 to ignore r<0
  408.         ;   2 to use |r| instead of r
  409.         ; real(p2) = a = amplitude
  410.         ; imag(p2) = b = frequency
  411.         ; real(p3) = n = exponent
  412.         ; imag(p3) = r0 = baseline
  413.         ;
  414.         ; colors inside & outside points the same way
  415.         ; use decomp=256, float=yes, periodicity=no
  416.         ;
  417.         zc=0, c=pixel, iter=1, done=0
  418.         bailout=real(p1), errmin=bailout
  419.         a=real(p2), b=imag(p2), n=real(p3), r0=imag(p3)
  420.         twopi=2*pi, negrflag=imag(p1)
  421.         :
  422.         ;
  423.         ; standard iteration
  424.         ;
  425.         iter=iter+1, zc=sqr(zc)+c
  426.         ;
  427.         ; compute polar angle t from new value of zc
  428.         ;   adjust t to be in range [0, 2pi]
  429.         ;
  430.         t=imag(log(zc))
  431.         if(t<0)
  432.           t=t+twopi
  433.         endif
  434.         ;
  435.         ; find polar radius from angle t
  436.         ;
  437.         r=a*fn1(b*t)
  438.         if(r>=0)
  439.           r=r^n
  440.         else
  441.           r=-((-r)^n)
  442.         endif
  443.         r=r+r0
  444.         ;
  445.         ; if negrflag = 1, compare r with magnitude of zc--
  446.         ;   this ignores negative r values
  447.         ; if negrflag = 2, compare magnitude squared of r
  448.         ;   with magnitude squared of zc--this treats -r as r
  449.         ;
  450.         if(negrflag==1)
  451.           err=cabs(r-cabs(zc))
  452.         else
  453.           err=cabs(|r|-|zc|)
  454.         endif
  455.         ;
  456.         ; update minimum distance if a new smaller error is found
  457.         ;
  458.         if(err<errmin)
  459.           errmin=err
  460.         endif
  461.         ;
  462.         ; bailout at escape or maximum iterations
  463.         ;   set "done" flag
  464.         ;   use log(minimum distance) as angle for decomp coloring
  465.         ;
  466.         if((|zc|>bailout)||(iter==maxit))
  467.           done=1
  468.           t=log(errmin)
  469.           z=cos(t)+flip(sin(t))
  470.         endif
  471.         done==0
  472.         }
  473.  
  474. polar-near_jul { ; Kerry Mitchell 14nov98
  475.         ;
  476.         ; colors Julia set by orbit's closet approach to
  477.         ; polar curve r = cabs(a*fn1(b*theta))^n+r0
  478.         ;
  479.         ; p1 = c = Julia parameter
  480.         ; real(p2) = a = amplitude
  481.         ; imag(p2) = b = frequency
  482.         ; real(p3) = n = exponent
  483.         ; imag(p3) = r0 = baseline
  484.         ;
  485.         ; bailout = 1000 (hardcoded)
  486.         ; negative r handling flag = 1 (hardcoded)
  487.         ;   1 to ignore r<0
  488.         ;   2 to use |r| instead of r
  489.         ;
  490.         ; colors inside & outside points the same way
  491.         ; use decomp=256, float=yes, periodicity=no
  492.         ;
  493.         zc=pixel, c=p1, iter=1, done=0
  494.         bailout=1000, errmin=bailout
  495.         a=real(p2), b=imag(p2), n=real(p3), r0=imag(p3)
  496.         twopi=2*pi, negrflag=1
  497.         :
  498.         ;
  499.         ; standard iteration
  500.         ;
  501.         iter=iter+1, zc=sqr(zc)+c
  502.         ;
  503.         ; compute polar angle t from new value of zc
  504.         ;   adjust t to be in range [0, 2pi]
  505.         ;
  506.         t=imag(log(zc))
  507.         if(t<0)
  508.           t=t+twopi
  509.         endif
  510.         ;
  511.         ; find polar radius from angle t
  512.         ;
  513.         r=a*fn1(b*t)
  514.         if(r>=0)
  515.           r=r^n
  516.         else
  517.           r=-((-r)^n)
  518.         endif
  519.         r=r+r0
  520.         ;
  521.         ; if negrflag = 1, compare r with magnitude of zc--
  522.         ;   this ignores negative r values
  523.         ; if negrflag = 2, compare magnitude squared of r
  524.         ;   with magnitude squared of zc--this treats -r as r
  525.         ;
  526.         if(negrflag==1)
  527.           err=cabs(r-cabs(zc))
  528.         else
  529.           err=cabs(|r|-|zc|)
  530.         endif
  531.         ;
  532.         ; update minimum distance if a new smaller error is found
  533.         ;
  534.         if(err<errmin)
  535.           errmin=err
  536.         endif
  537.         ;
  538.         ; bailout at escape or maximum iterations
  539.         ;   set "done" flag
  540.         ;   use log(minimum distance) as angle for decomp coloring
  541.         ;
  542.         if((|zc|>bailout)||(iter==maxit))
  543.           done=1
  544.           t=log(errmin)
  545.           z=cos(t)+flip(sin(t))
  546.         endif
  547.         done==0
  548.         }
  549.  
  550. polar-inout_man { ; Kerry Mitchell 14nov98
  551.         ;
  552.         ; colors Mandelbrot set by how often orbit is inside
  553.         ; polar curve r = cabs(a*fn1(b*theta))^n+r0
  554.         ;
  555.         ; real(p1) = bailout
  556.         ; imag(p1) = negative r handling flag:
  557.         ;   1 to ignore r<0
  558.         ;   2 to use |r| instead of r
  559.         ; real(p2) = a = amplitude
  560.         ; imag(p2) = b = frequency
  561.         ; real(p3) = n = exponent
  562.         ; imag(p3) = r0 = baseline
  563.         ;
  564.         ; colors inside & outside points the same way
  565.         ; use decomp=256, float=yes, periodicity=no
  566.         ;
  567.         zc=0, c=pixel, iter=1, done=0
  568.         bailout=real(p1), incount=0
  569.         a=real(p2), b=imag(p2), n=real(p3), r0=imag(p3)
  570.         twopi=2*pi, negrflag=imag(p1)
  571.         :
  572.         ;
  573.         ; standard iteration
  574.         ;
  575.         iter=iter+1, zc=sqr(zc)+c
  576.         ;
  577.         ; compute polar angle t from new value of zc
  578.         ;   adjust t to be in range [0, 2pi]
  579.         ;
  580.         t=imag(log(zc))
  581.         if(t<0)
  582.           t=t+twopi
  583.         endif
  584.         ;
  585.         ; find polar radius from angle t
  586.         ;
  587.         r=a*fn1(b*t)
  588.         if(r>=0)
  589.           r=r^n
  590.         else
  591.           r=-((-r)^n)
  592.         endif
  593.         r=r+r0
  594.         ;
  595.         ; if negrflag = 1, compare r with magnitude of zc--
  596.         ;   this ignores negative r values
  597.         ; if negrflag = 2, compare magnitude squared of r
  598.         ;   with magnitude squared of zc--this treats -r as r
  599.         ;
  600.         if(negrflag==1)
  601.           err=cabs(zc)-r
  602.         else
  603.           err=|zc|-|r|
  604.         endif
  605.         ;
  606.         ; update inside counter if err<0
  607.         ;
  608.         if(err<0)
  609.           incount=incount+1
  610.         endif
  611.         ;
  612.         ; bailout at escape or maximum iterations
  613.         ;   set "done" flag
  614.         ;   use ratio of incount to iterations as angle for decomp coloring
  615.         ;
  616.         if((|zc|>bailout)||(iter==maxit))
  617.           done=1
  618.           t=twopi*incount/(iter-1)
  619.           z=cos(t)+flip(sin(t))
  620.         endif
  621.         done==0
  622.         }
  623.  
  624. polar-inout_jul { ; Kerry Mitchell 14nov98
  625.         ;
  626.         ; colors Julia set by how often orbit is inside
  627.         ; polar curve r = cabs(a*fn1(b*theta))^n+r0
  628.         ;
  629.         ; p1 = c = Julia parameter
  630.         ; real(p2) = a = amplitude
  631.         ; imag(p2) = b = frequency
  632.         ; real(p3) = n = exponent
  633.         ; imag(p3) = r0 = baseline
  634.         ;
  635.         ; bailout=1000 (hardcoded)
  636.         ; negative r handling flag = 1 (hardcoded)
  637.         ;   1 to ignore r<0
  638.         ;   2 to use |r| instead of r
  639.         ;
  640.         ; colors inside & outside points the same way
  641.         ; use decomp=256, float=yes, periodicity=no
  642.         ;
  643.         zc=pixel, c=p1, iter=1, done=0
  644.         bailout=1000, incount=0
  645.         a=real(p2), b=imag(p2), n=real(p3), r0=imag(p3)
  646.         twopi=2*pi, negrflag=1
  647.         :
  648.         ;
  649.         ; standard iteration
  650.         ;
  651.         iter=iter+1, zc=sqr(zc)+c
  652.         ;
  653.         ; compute polar angle t from new value of zc
  654.         ;   adjust t to be in range [0, 2pi]
  655.         ;
  656.         t=imag(log(zc))
  657.         if(t<0)
  658.           t=t+twopi
  659.         endif
  660.         ;
  661.         ; find polar radius from angle t
  662.         ;
  663.         r=a*fn1(b*t)
  664.         if(r>=0)
  665.           r=r^n
  666.         else
  667.           r=-((-r)^n)
  668.         endif
  669.         r=r+r0
  670.         ;
  671.         ; if negrflag = 1, compare r with magnitude of zc--
  672.         ;   this ignores negative r values
  673.         ; if negrflag = 2, compare magnitude squared of r
  674.         ;   with magnitude squared of zc--this treats -r as r
  675.         ;
  676.         if(negrflag==1)
  677.           err=cabs(zc)-r
  678.         else
  679.           err=|zc|-|r|
  680.         endif
  681.         ;
  682.         ; update inside counter if err<0
  683.         ;
  684.         if(err<0)
  685.           incount=incount+1
  686.         endif
  687.         ;
  688.         ; bailout at escape or maximum iterations
  689.         ;   set "done" flag
  690.         ;   use ratio of incount to iterations as angle for decomp coloring
  691.         ;
  692.         if((|zc|>bailout)||(iter==maxit))
  693.           done=1
  694.           t=twopi*incount/(iter-1)
  695.           z=cos(t)+flip(sin(t))
  696.         endif
  697.         done==0
  698.         }
  699. *** end polar.frm ***
  700.  
  701.  
  702.  
  703.  
  704. - --------------------------------------------------------------
  705. Thanks for using Fractint, The Fractals and Fractint Discussion List
  706. Post Message:   fractint@lists.xmission.com
  707. Get Commands:   majordomo@lists.xmission.com "help"
  708. Administrator:  twegner@phoenix.net
  709. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  710.  
  711. ------------------------------
  712.  
  713. Date: Sun, 15 Nov 1998 12:17:30 -0700 (MST)
  714. From: Kerry Mitchell <lkmitch@primenet.com>
  715. Subject: (fractint) Astroid coloring method
  716.  
  717. Here are the .frm and .par files for the Astroid coloring method that I
  718. mentioned earlier.  Both are included in my Fractint stuff collection on
  719. my webpage.
  720.  
  721. Kerry
  722.  
  723. - -------------------------------------------------------------------------------
  724. Kerry Mitchell
  725. lkmitch@primenet.com    www.primenet.com/~lkmitch/
  726. - -------------------------------------------------------------------------------
  727.  
  728. *** begin astroid.par ***
  729. comment { ; copyright Kerry Mitchell 14nov98
  730.  
  731. Astroid
  732.  
  733. The astroid is a figure from analytic geometry, resembling a four-
  734. pointed star with concave sides.  Its defining equation is:
  735.  
  736. x^(2/3) + y^(2/3) = a^(2/3)
  737.  
  738. where a determines the size of the figure, similar to the radius of
  739. a circle.  This equation can be generalized by changing the exponent
  740. of 2/3 to any value n.  If n is between 0 and 1, the figure resembles
  741. the standard astroid.  The sides go from being straight lines for n=1
  742. to lying atop of the coordinates axes as n approaches 0.  For n>1, the
  743. figure becomes convex, and is a circle for n=2.  As n approaches
  744. infinity, the figure approaches a square.
  745.  
  746. This generalized astroid is the basis of this coloring scheme.  As with
  747. other plane figures, the astroid can be compared to the Mandelbrot and
  748. Julia orbits.  In the "astroid-near_man" and "astroid-near_jul" formulas,
  749. the fractal is colored according to the closest approach of the orbit
  750. to the figure.  The "astroid-inout_man" and "astroid-inout_jul" figures
  751. color by how often the orbit lands inside the astroid.
  752.  
  753. The shape of the astroid can be altered through the exponent n, and its
  754. size changed through the use of a.  In addition, its orientation and
  755. location in the plane are determined by a "center" and "rotation"
  756. parameters.  The effects of all these parameters can be investigated
  757. using the basic "astroid" formula.  Here, the coloring flag allows 2
  758. ways of viewing the astroid:  in outline (colflag=1) and by coloring
  759. the inside vs. the outside (colflag=2).
  760.  
  761. }
  762.  
  763. basic-astroid { ; set real(p1)=2 to see inside
  764.   ;
  765.   ; illustrates astroid drawing
  766.   ;
  767.   reset=1960 type=formula formulafile=astroid.frm formulaname=astroid
  768.   center-mag=0/0/0.6666667 params=1/0/1/0.666666666/0/0 float=y
  769.   maxiter=256 inside=0 decomp=256 periodicity=0 cyclerange=0/255
  770.   }
  771.  
  772. square-mandel { ; copyright Kerry Mitchell 14nov98
  773.   ;
  774.   ; illustrates "near astroid" Mandelbrot coloring
  775.   ;
  776.   reset=1960 type=formula formulafile=astroid.frm
  777.   formulaname=astroid-near_man center-mag=-0.25/0/0.7
  778.   params=1000/0/0.01/20/0/0 float=y maxiter=100 inside=0
  779.   decomp=256 periodicity=0 colors=zzzuzzryz<5>jvzivziuz<7>\
  780.   bqybqyapyapy`ox<8>WkwVjvVjvViv<7>RetQesQdsQdrPcr<25>GSfF\
  781.   RfFReFQd<13>AJXAJWAIV9IU9HU<33>001000001<31>8GS9HT9HU9IU\
  782.   AIVAJW<31>KYmLZnLZnM_oM_o<11>RetRftSftSgtTgu<4>VjvVjvWkw\
  783.   Xkw<11>bqycrydryesyesz<5>jvzkwzmwz<2>qyzryzuzz cyclerange=0/255
  784.   }
  785.  
  786. sprites { ; copyright Kerry Mitchell 14nov98
  787.   ;
  788.   ; illustrates "near astroid" Julia coloring
  789.   ;
  790.   reset=1960 type=formula formulafile=astroid.frm
  791.   formulaname=astroid-near_jul center-mag=0/0/0.6666667
  792.   params=0/1/0.6666666666666666/0.3333333333333333/-2/0
  793.   float=y maxiter=7 inside=0 decomp=256 periodicity=0
  794.   colors=FF`<3>DDXDDWDDVDDUCCT<28>000000110<60>yn0zo0zo\
  795.   0zo1<61>zzzzzzyyz<60>QQzPPzPPzPPy<23>FFa cyclerange=0/255
  796.   }
  797.  
  798. astroid-near-julia { ; copyright Kerry Mitchell 14nov98
  799.   ;
  800.   ; illustrates "inside astroid" Mandelbrot coloring
  801.   ;
  802.   reset=1960 type=formula formulafile=astroid.frm cyclerange=0/255
  803.   formulaname=astroid-inout_man decomp=256 periodicity=0
  804.   center-mag=-1.27693934506353900/+0.35261951597131690/274914.1
  805.   params=1000/0/0.75/0.5/-0.75/0 float=y maxiter=256 inside=0
  806.   colors=000<62>00z00z11y<61>zz0zz0zy0<61>z01z01z12<61>zzz
  807.   }
  808.  
  809. neptune { ; copyright Kerry Mitchell 14nov98
  810.   ;
  811.   ; illustrates "inside astroid" Julia coloring
  812.   ;
  813.   reset=1960 type=formula formulafile=astroid.frm
  814.   formulaname=astroid-inout_jul center-mag=0/0/0.6666667
  815.   params=-0.735038819963/0.14041387858/2/0.5/1/0 float=y
  816.   maxiter=256 inside=0 decomp=256 periodicity=0 colors=000\
  817.   <30>xm0zo0zo1<29>zyxzzzyyz<29>RRzPPzPPy<30>000<30>yn0zo0\
  818.   zo2<29>zyyzzzyyz<29>QQzPPzOOx<29>111 cyclerange=0/255
  819.   }
  820. *** end astroid.par ***
  821.  
  822. *** begin astroid.frm ***
  823. astroid { ; Kerry Mitchell 14nov98
  824.         ;
  825.         ; draws a astroid:  x^n + y^n = a^n
  826.         ;
  827.         ; real(p1) = coloring flag:
  828.         ;   1 to color by nearness to curve
  829.         ;   2 to color by inside/outside
  830.         ; imag(p1) = rotation angle
  831.         ; real(p2) = a = size
  832.         ; imag(p2) = n = exponent
  833.         ; p3 = astroid center
  834.         ;
  835.         ; use decomp=256, float=yes, periodicity=no
  836.         ;
  837.         zc=pixel, done=1, colflag=real(p1)
  838.         a=real(p2), n=imag(p2), aton=a^n
  839.         center=p3, rot=imag(p1)/180*pi, rot=exp(flip(rot))
  840.         :
  841.         temp=rot*(zc-center)
  842.         x=cabs(real(temp)), y=cabs(imag(temp))
  843.         err=x^n+y^n-aton
  844.         if(colflag==1)
  845.           t=log(cabs(err))
  846.         else
  847.           if(err<0)
  848.             t=1
  849.           else
  850.             t=0
  851.           endif
  852.         endif
  853.         z=cos(t)+flip(sin(t))
  854.         done==0
  855.         }
  856.  
  857. astroid-near_man { ; Kerry Mitchell 14nov98
  858.         ;
  859.         ; colors Mandelbrot set by orbit's closet approach to
  860.         ; a astroid:  x^n + y^n = a^n
  861.         ;
  862.         ; real(p1) = bailout
  863.         ; imag(p1) = rotation angle, degrees
  864.         ; real(p2) = a = size
  865.         ; imag(p2) = n = exponent
  866.         ; p3 = center of astroid
  867.         ;
  868.         ; colors inside & outside points the same way
  869.         ; use decomp=256, float=yes, periodicity=no
  870.         ;
  871.         zc=0, c=pixel, iter=1, done=0
  872.         bailout=real(p1), errmin=bailout
  873.         a=real(p2), n=imag(p2), aton=a^n
  874.         center=p3, rot=imag(p1)/180*pi, rot=exp(flip(rot))
  875.         :
  876.         ;
  877.         ; standard iteration
  878.         ;
  879.         iter=iter+1, zc=sqr(zc)+c
  880.         ;
  881.         ; compute difference between actual location and
  882.         ; astroid location; update minimum if necessary
  883.         ;
  884.         temp=(zc-center)*rot
  885.         x=cabs(real(temp)), y=cabs(imag(temp))
  886.         err=cabs(x^n+y^n-aton)
  887.         if(err<errmin)
  888.           errmin=err
  889.         endif
  890.         ;
  891.         ; bailout at escape or maximum iterations
  892.         ;   set "done" flag
  893.         ;   use log(minimum) as angle for decomp coloring
  894.         ;
  895.         if((|zc|>bailout)||(iter==maxit))
  896.           done=1
  897.           t=log(errmin)
  898.           z=cos(t)+flip(sin(t))
  899.         endif
  900.         done==0
  901.         }
  902.  
  903. astroid-near_jul { ; Kerry Mitchell 14nov98
  904.         ;
  905.         ; colors Julia set by orbit's closet approach to
  906.         ; a astroid:  x^n + y^n = a^n
  907.         ;
  908.         ; p1 = c = Julia parameter
  909.         ; real(p2) = a = size
  910.         ; imag(p2) = n = exponent
  911.         ; p3 = center of astroid
  912.         ; bailout = 1000 (hardcoded)
  913.         ; rotation angle, degrees = 0 (hardcoded)
  914.         ;
  915.         ; colors inside & outside points the same way
  916.         ; use decomp=256, float=yes, periodicity=no
  917.         ;
  918.         zc=pixel, c=p1, iter=1, done=0
  919.         bailout=1000, errmin=bailout
  920.         a=real(p2), n=imag(p2), aton=a^n
  921.         center=p3, rot=0/180*pi, rot=exp(flip(rot))
  922.         :
  923.         ;
  924.         ; standard iteration
  925.         ;
  926.         iter=iter+1, zc=sqr(zc)+c
  927.         ;
  928.         ; compute difference between actual location and
  929.         ; astroid location; update minimum if necessary
  930.         ;
  931.         temp=(zc-center)*rot
  932.         x=cabs(real(temp)), y=cabs(imag(temp))
  933.         err=cabs(x^n+y^n-aton)
  934.         if(err<errmin)
  935.           errmin=err
  936.         endif
  937.         ;
  938.         ; bailout at escape or maximum iterations
  939.         ;   set "done" flag
  940.         ;   use log(minimum) as angle for decomp coloring
  941.         ;
  942.         if((|zc|>bailout)||(iter==maxit))
  943.           done=1
  944.           t=log(errmin)
  945.           z=cos(t)+flip(sin(t))
  946.         endif
  947.         done==0
  948.         }
  949.  
  950. astroid-inout_man { ; Kerry Mitchell 14nov98
  951.         ;
  952.         ; colors Mandelbrot set by how often orbit is inside
  953.         ; a astroid:  x^n + y^n = a^n
  954.         ;
  955.         ; real(p1) = bailout
  956.         ; imag(p1) = rotation angle, degrees
  957.         ; real(p2) = a = size
  958.         ; imag(p2) = n = exponent
  959.         ; p3 = center of astroid
  960.         ;
  961.         ; colors inside & outside points the same way
  962.         ; use decomp=256, float=yes, periodicity=no
  963.         ;
  964.         zc=0, c=pixel, iter=1, done=0
  965.         bailout=real(p1), incount=0, speed=2*pi
  966.         a=real(p2), n=imag(p2), aton=a^n
  967.         center=p3, rot=imag(p1)/180*pi, rot=exp(flip(rot))
  968.         :
  969.         ;
  970.         ; standard iteration
  971.         ;
  972.         iter=iter+1, zc=sqr(zc)+c
  973.         ;
  974.         ; compute difference between actual location and
  975.         ; astroid location; update minimum if necessary
  976.         ;
  977.         temp=(zc-center)*rot
  978.         x=cabs(real(temp)), y=cabs(imag(temp))
  979.         err=x^n+y^n-aton
  980.         if(err<0)
  981.           incount=incount+1
  982.         endif
  983.         ;
  984.         ; bailout at escape or maximum iterations
  985.         ;   set "done" flag
  986.         ;   use incount/iterations as angle for decomp coloring
  987.         ;
  988.         if((|zc|>bailout)||(iter==maxit))
  989.           done=1
  990.           t=speed*incount/(iter-1)
  991.           z=cos(t)+flip(sin(t))
  992.         endif
  993.         done==0
  994.         }
  995.  
  996. astroid-inout_jul { ; Kerry Mitchell 14nov98
  997.         ;
  998.         ; colors Julia set by how often orbit is inside
  999.         ; a astroid:  x^n + y^n = a^n
  1000.         ;
  1001.         ; p1 = c = Julia parameter
  1002.         ; real(p2) = a = size
  1003.         ; imag(p2) = n = exponent
  1004.         ; p3 = center of astroid
  1005.         ; bailout = 1000 (hardcoded)
  1006.         ; rotation angle, degrees = 0 (hardcoded)
  1007.         ;
  1008.         ; colors inside & outside points the same way
  1009.         ; use decomp=256, float=yes, periodicity=no
  1010.         ;
  1011.         zc=pixel, c=p1, iter=1, done=0
  1012.         bailout=1000, incount=0, speed=2*pi
  1013.         a=real(p2), n=imag(p2), aton=a^n
  1014.         center=p3, rot=0/180*pi, rot=exp(flip(rot))
  1015.         :
  1016.         ;
  1017.         ; standard iteration
  1018.         ;
  1019.         iter=iter+1, zc=sqr(zc)+c
  1020.         ;
  1021.         ; compute difference between actual location and
  1022.         ; astroid location; update minimum if necessary
  1023.         ;
  1024.         temp=(zc-center)*rot
  1025.         x=cabs(real(temp)), y=cabs(imag(temp))
  1026.         err=x^n+y^n-aton
  1027.         if(err<0)
  1028.           incount=incount+1
  1029.         endif
  1030.         ;
  1031.         ; bailout at escape or maximum iterations
  1032.         ;   set "done" flag
  1033.         ;   use incount/iterations as angle for decomp coloring
  1034.         ;
  1035.         if((|zc|>bailout)||(iter==maxit))
  1036.           done=1
  1037.           t=speed*incount/(iter-1)
  1038.           z=cos(t)+flip(sin(t))
  1039.         endif
  1040.         done==0
  1041.         }
  1042. *** end astroid.frm ***
  1043.  
  1044.  
  1045.  
  1046.  
  1047.  
  1048. - --------------------------------------------------------------
  1049. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1050. Post Message:   fractint@lists.xmission.com
  1051. Get Commands:   majordomo@lists.xmission.com "help"
  1052. Administrator:  twegner@phoenix.net
  1053. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  1054.  
  1055. ------------------------------
  1056.  
  1057. Date: Sun, 15 Nov 1998 14:24:17 -0500
  1058. From: JoWeber <JoWeber@compuserve.com>
  1059. Subject: (fractint) motw007
  1060.  
  1061. Hi All,
  1062.  
  1063. I added the Mandel of the Week 7 and some new sites.
  1064. Enjoy --Jo--
  1065.  
  1066. http://ourworld.compuserve.com/homepages/joweber
  1067.  
  1068. - --------------------------------------------------------------
  1069. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1070. Post Message:   fractint@lists.xmission.com
  1071. Get Commands:   majordomo@lists.xmission.com "help"
  1072. Administrator:  twegner@phoenix.net
  1073. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  1074.  
  1075. ------------------------------
  1076.  
  1077. Date: Sun, 15 Nov 1998 13:24:45 -0800
  1078. From: "Jay Hill" <ehill1@san.rr.com>
  1079. Subject: Re: (fractint) motw007
  1080.  
  1081. Hi Jo,
  1082.  
  1083. OK, so it took 159 hours to generate the image, but how many to find it?
  1084.  
  1085. From your page...
  1086. http://ourworld.compuserve.com/homepages/joweber/jo_03.htm
  1087. what does this mean:
  1088.  
  1089. The Image is created at 1600x1200 and then saved with fractint at 800x600.
  1090. Don't you have to recalc at 800x600?
  1091.  
  1092. The last line of the par misses a C/R (I fixed this in my copy)
  1093. 2>zK0zH0zE0zB0z70z40z00<10>Z00W00T00Q00N00<8>100<12>h2gk2jm2no2qr3utIv<4\
  1094. >zzz<10>Zjz 
  1095.  
  1096. finally why do I get this message when I try to load the par into Fractint...
  1097. - ------
  1098. Oops. I couldn't understand the argument:
  1099.   center-mag=-1.94052699850330403982402612983984930363482192014828248165
  1100.  
  1101. Any key to continue...
  1102. - ------
  1103.  
  1104. I even made the lines half as long with the usual \ to cut them.
  1105. Anyone know?
  1106.  
  1107. OK, I'm confused!! Next I copied the gif image to disk and loaded it for
  1108. viewing 
  1109. without difficulty. Then used 'B' command to save it to a par. Now I compare 
  1110. this par with that copied directly from the web page. I can't see a difference
  1111. but Fractint gets above error message on the par snipped from the web 
  1112. page but no error from the par generated locally from the gif.
  1113. Now what gives?  Many of my images are posted as .jpg or as 1/2 resolution gif
  1114. for compression. I also display the par. Now it looks like this is bound to 
  1115. give some folk trouble. Great...
  1116.  
  1117. Wait, here is a test .par anyone should be able to duplicate the problem
  1118. with...
  1119. http://home.san.rr.com/jayrhill/12.par            (save to your disk to try)
  1120. Now image par '1' loads ok, image par '2' does not and they are binary (hex)
  1121. identicals 
  1122. as far as I can see!!!!!
  1123.  
  1124. Jay
  1125. - ----------
  1126. From: JoWeber <JoWeber@compuserve.com>
  1127. To: INTERNET:fractint@lists. <fractint@lists.xmission.com>
  1128. Subject: (fractint) motw007
  1129. Date: Sunday, November 15, 1998 11:24 AM
  1130.  
  1131. Hi All,
  1132.  
  1133. I added the Mandel of the Week 7 and some new sites.
  1134. Enjoy --Jo--
  1135.  
  1136. http://ourworld.compuserve.com/homepages/joweber
  1137.  
  1138.  
  1139. - --------------------------------------------------------------
  1140. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1141. Post Message:   fractint@lists.xmission.com
  1142. Get Commands:   majordomo@lists.xmission.com "help"
  1143. Administrator:  twegner@phoenix.net
  1144. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  1145.  
  1146. ------------------------------
  1147.  
  1148. Date: Sun, 15 Nov 1998 16:48:49 -0500
  1149. From: Sylvie Gallet <Sylvie_Gallet@compuserve.com>
  1150. Subject: Re: (fractint) motw007
  1151.  
  1152. Hi Jay,
  1153.  
  1154. >> Wait, here is a test .par anyone should be able to duplicate the probl=
  1155. em
  1156. >> with... http://home.san.rr.com/jayrhill/12.par            (save to you=
  1157. r
  1158. >> disk to try) Now image par '1' loads ok, image par '2' does not and th=
  1159. ey
  1160. >> are binary (hex) identicals as far as I can see!!!!!
  1161.  
  1162.   No, they are not identical!  There's an extra space after the "\" in th=
  1163. e
  1164. second line of the center-mag section, just delete it and "2" will load o=
  1165. k.
  1166.  
  1167.   Cheers,
  1168.  
  1169.         - Sylvie
  1170.  
  1171. - --------------------------------------------------------------
  1172. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1173. Post Message:   fractint@lists.xmission.com
  1174. Get Commands:   majordomo@lists.xmission.com "help"
  1175. Administrator:  twegner@phoenix.net
  1176. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  1177.  
  1178. ------------------------------
  1179.  
  1180. Date: Sun, 15 Nov 1998 14:06:45 -0800
  1181. From: "Jay Hill" <ehill1@san.rr.com>
  1182. Subject: Re: (fractint) motw007
  1183.  
  1184. Thank you for the quick reply. The HEX is more precise than ASCII. I was 
  1185. using PC MAGAZINE's compare.com which showed marks on spaces but
  1186. not at hte end of the lines.
  1187.  
  1188. Now I wanted to see what the early zooms look like. We can't edit the zoom in
  1189. fractint
  1190. so I edited the working par file like this
  1191.  
  1192. MotW007-x-goof_up  { ; at 1280x1024 (Jay Hill experimenting with...
  1193.                      ; http://ourworld.compuserve.com/homepages/joweber/jo_03.h
  1194.                      ; on a P133 at 1600x1200 Nov 14, 1998 21:32:30 
  1195.                      ; Par and Image Copyright 1998 by Jo Weber 
  1196.   reset=1960 type=mandel
  1197.   center-mag=-1.94052699850330400/+0.00000001506577993/1.770042e+015/1.178\
  1198.   2/-80/0.738 params=0/0 float=y maxiter=6666 inside=0
  1199.   colors=000Xhz<5>I`yG_yEYyCXy9Wy<3>0Qx1Ru2Tq<7>JfWLhTPjV<2>_obbpdeqfirhls\
  1200.   k<3>zyt<6>zb0<5>zq1zt2zw2zz3vz6<8>Kw_<5>Ets<6>000B15<4>w0P<2>l5Kh7Id8G`9\
  1201.   EXBC<5>993<2>FG6HI7IK7JN8<2>NVAPYBOVB<3>KJ9JF8JE7<2>IB6<6>qW0sb0<5>zz9<7\
  1202.   >OnRJlUEkWAiZ5h`0fb<2>7ai<5>YFw<6>D78B30<6>f50<9>xt4zz0<12>zK0zH0zE0zB0z\
  1203.   70z40z00<9>a00Z00W00T00Q00<9>100<12>h2gk2jm2no2qr3utIv<4>zzz<10>Zjz
  1204.   }
  1205.  
  1206. then after a few zooms I get this bands of garbage showing me we were not 
  1207. getting into deep zoom mode. Several more zooms resulted in this...I never got
  1208. into 
  1209. extended precision mode!!!  Using 320x200 does not help.
  1210. {{{
  1211.  cvtcentermag problem
  1212.  xxmin= -1.#IND0000000000000000 xxmax= -1.#IND0000000000000000
  1213.  yymin= -1.#IND0000000000000000 yymax= -1.#IND0000000000000000
  1214.  xx3rd= -1.#IND0000000000000000 yy3rd= -1.#IND0000000000000000
  1215.  delxx= 0.00000000000000000000 delyy= 0.00000000000000000019
  1216.  delx2= 0.00000000000000000223 dely2= -0.00000000000000000070
  1217.  
  1218.  Any key to continue...
  1219. }}}
  1220.  
  1221. I'm now proceeding through this mess by editing the par file. There is
  1222. something 
  1223. screwy going on. I've never seen this before, and I've deep zoomed a few...
  1224.  
  1225. Jay
  1226.  
  1227. - ----------
  1228. From: Sylvie Gallet <Sylvie_Gallet@compuserve.com>
  1229. To: Blind.Copy.Receiver@compuserve.com
  1230. Subject: Re: (fractint) motw007
  1231. Date: Sunday, November 15, 1998 1:48 PM
  1232.  
  1233. Hi Jay,
  1234.  
  1235. >> Wait, here is a test .par anyone should be able to duplicate the problem
  1236. >> with... http://home.san.rr.com/jayrhill/12.par            (save to your
  1237. >> disk to try) Now image par '1' loads ok, image par '2' does not and they
  1238. >> are binary (hex) identicals as far as I can see!!!!!
  1239.  
  1240.   No, they are not identical!  There's an extra space after the "\" in the
  1241. second line of the center-mag section, just delete it and "2" will load ok.
  1242.  
  1243.   Cheers,
  1244.  
  1245.         - Sylvie
  1246.  
  1247.  
  1248.  
  1249. - --------------------------------------------------------------
  1250. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1251. Post Message:   fractint@lists.xmission.com
  1252. Get Commands:   majordomo@lists.xmission.com "help"
  1253. Administrator:  twegner@phoenix.net
  1254. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  1255.  
  1256. ------------------------------
  1257.  
  1258. End of fractint-digest V1 #332
  1259. ******************************
  1260.  
  1261.