home *** CD-ROM | disk | FTP | other *** search
/ ftp.xmission.com / 2014.06.ftp.xmission.com.tar / ftp.xmission.com / pub / lists / fractint / archive / v01.n110 < prev    next >
Internet Message Format  |  1998-02-15  |  44KB

  1. From: owner-fractint-digest@lists.xmission.com (fractint-digest)
  2. To: fractint-digest@lists.xmission.com
  3. Subject: fractint-digest V1 #110
  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, February 15 1998       Volume 01 : Number 110
  11.  
  12.  
  13.  
  14.  
  15. ----------------------------------------------------------------------
  16.  
  17. Date: Sun, 15 Feb 1998 00:31:24 -0700 (MST)
  18. From: Kerry Mitchell <lkmitch@primenet.com>
  19. Subject: (fractint) Higher order Herman Rings
  20.  
  21. Paul D. queried:
  22.  
  23. > ObFractint: I have tried and tried but have not figured out how to
  24. > generalize the hring formula to, say, cubic structure, or to add more
  25. > critical points. Damn damn damn... Anyone else got any ideas? Jay, Paul C?
  26. > Kerry? You math whizzes? :-)
  27.  
  28. Try these out.  I don't guarantee that the are actually Herman rings,
  29. since I'm not sure I understand the exact definition.  However, they seem
  30. to do about the same thing that Paul's other ones did.  I'll post an
  31. explanation tomorrow.
  32.  
  33. third-order        { ; copyright Kerry Mitchell 14feb98
  34.   reset=1960 type=formula formulafile=fractint.frm
  35.   formulaname=herman_jul-polar center-mag=3.42201/1.04\
  36.   384/0.1760563/1/-7.5 params=5.5/0/3/4/1/1 float=y
  37.   maxiter=256 inside=0 decomp=256 periodicity=0 colors\
  38.   =000<40>x00z00z00<40>zy0zz0zz1<39>zzxzzzzzz<40>1zz0z\
  39.   z0yz<39>02z00z00z<41>000 cyclerange=0/255
  40.   }
  41.  
  42. fourth-order       { ; copyright Kerry Mitchell 14feb98
  43.   reset=1960 type=formula formulafile=fractint.frm
  44.   formulaname=herman_jul-polar center-mag=5.96811/0.05\
  45.   17307/0.1037344 params=8.3/0/4/4/1/4 float=y maxiter=256
  46.   inside=0 decomp=256 periodicity=0 colors=000<41>0x00z\
  47.   00y0<39>020000001<42>00x00z00y<39>002000100<40>z00<40\
  48.   >200 cyclerange=0/255
  49.   }
  50.  
  51. fifth-order        { ; copyright Kerry Mitchell 14feb98
  52.   reset=1960 type=formula formulafile=fractint.frm
  53.   formulaname=herman_jul-polar center-mag=6.45715/0.74\
  54.   0198/0.1168224/1/5 params=8.3/0/5/4/1/5 float=y
  55.   maxiter=256 inside=0 decomp=256 periodicity=0 colors\
  56.   =000400500600810<4>C20C20D20D30E30<3>G40H40H40H50<18\
  57.   >P91PA1PA1PA1QA1<29>YI5YI5YI5YJ5ZJ5ZJ5<57>iYIiYIjYIj\
  58.   YJjZJjZJ<41>qhWqiXqiXqiYqiY<67>zzz cyclerange=0/255
  59.   }
  60.  
  61. frm:herman_jul-polar { ; Kerry Mitchell 14feb98
  62.         ; p1 = Julia parameter
  63.         ; real(p2) = z exponent (use integer >= 2)
  64.         ; imag(p2) = coloring speed (try 4)
  65.         ; real(p3) = alpha magnitude (try 1)
  66.         ; imag(p3) = alpha polar angle (try integers)
  67.         ; use decomp=256, inside=0
  68.         zc=pixel, iter=1, n=real(p2), m=n-1, c=p1
  69.         maxr=1e6, minr=1/maxr, speed=imag(p2)*pi/128
  70.         r=real(p3), t=imag(p3), alpha=r*(cos(t)+flip(sin(t)))
  71.         oln=1/log(n), fac=log(0.5*log(maxr))
  72.         :
  73.         g=(zc-c)/(1-c*zc), zc=alpha*zc^n*g^m
  74.         iter=iter+1, r=|zc|
  75.         if (r<minr)
  76.           t=(iter+oln*(fac-log(log(cabs(zc)))))*speed
  77.           z=cos(t)+flip(sin(t))
  78.           iter=-1
  79.           end if
  80.         if (r>maxr)
  81.           t=(iter+oln*(fac-log(log(cabs(zc)))))*speed+pi
  82.           z=cos(t)+flip(sin(t))
  83.           iter=-1
  84.           end if
  85.         if (iter==maxit)
  86.           z=0
  87.           iter=-1
  88.           end if
  89.         iter>0
  90.         }
  91.  
  92. - -------------------------------------------------------------------------------
  93. Kerry Mitchell
  94. lkmitch@primenet.com
  95. - -------------------------------------------------------------------------------
  96.  
  97.  
  98.  
  99.  
  100. - -
  101. - ------------------------------------------------------------
  102. Thanks for using Fractint, The Fractals and Fractint Discussion List
  103. Post Message:   fractint@xmission.com
  104. Get Commands:   majordomo@xmission.com "help"
  105. Administrator:  twegner@phoenix.net
  106. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  107.  
  108. ------------------------------
  109.  
  110. Date: Sun, 15 Feb 1998 01:29:29 -0800 (PST)
  111. From: Kim Jiho <kimjd@plu.edu>
  112. Subject: (fractint) Dance club experience
  113.  
  114. Tonight, I had the unpleasant experience of going to a dance club. 
  115. Mostly, it was just smoke and extremely deafening music that many
  116. teenagers like.  But, out that chaos, one thing made the experience fun
  117. and exciting...  The Mandelbrot Set.
  118.  
  119. Actually, it was the plasma thing in Fractint.  There were three monitors
  120. (actaully TVs playing a pre-recorded video), with computer animation
  121. playing.  The first thing I saw in the video was the plasma screen (with
  122. more or less 256 colors).  That just reminded me of Fractint.  The company
  123. that made the video might have used Fractint, but I'm not completely sure.
  124. Anyway, as the video went on, the Mandelbrot set renderings came on, with
  125. the colors scrolling, very very much like Fractint.  There were other
  126. fractals, but I don't know what they're called off the top of my head.  It
  127. was quite refreshing in the sweaty, smoke-filled atmosphere of that place.
  128.  
  129. So, fractals have become popular culture...  Even 16 year-old kids, who
  130. have a disdain for math, are watching it.  
  131.  
  132. Just thought you'd like to hear that.
  133.  
  134. J.K. 
  135.  
  136.  
  137.  
  138.  
  139. - -
  140. - ------------------------------------------------------------
  141. Thanks for using Fractint, The Fractals and Fractint Discussion List
  142. Post Message:   fractint@xmission.com
  143. Get Commands:   majordomo@xmission.com "help"
  144. Administrator:  twegner@phoenix.net
  145. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  146.  
  147. ------------------------------
  148.  
  149. Date: Sun, 15 Feb 1998 04:38:31 -0500 (EST)
  150. From: ao950@freenet.carleton.ca (Paul Derbyshire)
  151. Subject: Re: (fractint) Dance club experience
  152.  
  153. >Tonight, I had the unpleasant experience of going to a dance club.
  154. >Mostly, it was just smoke and extremely deafening music that many
  155. >teenagers like.  But, out that chaos, one thing made the experience fun
  156. >and exciting...  The Mandelbrot Set.
  157.  
  158. [deleted details]
  159.  
  160. Kewl!
  161.  
  162. This has beren commonplace in the UK and Europe for four years now. I (and
  163. others) predicted it'd pop up on this continentin a few years. And
  164. evidently it has...
  165.  
  166.  
  167.  
  168. - --
  169.     .*.  Friendship, companionship, love, and having fun are the reasons for
  170.  -()  <  life. All else; sex, money, fame, etc.; are just to get/express these.
  171.     `*'  Send any and all mail with attachments to the hotmail address please.
  172. Paul Derbyshire ao950@freenet.carleton.ca pgd73@hotmail.com
  173.  
  174. - -
  175. - ------------------------------------------------------------
  176. Thanks for using Fractint, The Fractals and Fractint Discussion List
  177. Post Message:   fractint@xmission.com
  178. Get Commands:   majordomo@xmission.com "help"
  179. Administrator:  twegner@phoenix.net
  180. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  181.  
  182. ------------------------------
  183.  
  184. Date: Sun, 15 Feb 1998 06:23:22 -0500
  185. From: Les St Clair <Les_StClair@compuserve.com>
  186. Subject: Re: (fractint) 3D transformations
  187.  
  188. Hi Angela,
  189.  
  190. you asked
  191.  
  192. >>Those pars looked kinda funny to me....they referred to a gif
  193. file....???????
  194.  
  195. The pars, in these examples, come in pairs.
  196.  
  197. Here's what to do:
  198.  
  199. 1. Run the first par  "L3DT_01            { ; image for L3DT_01_3d"
  200.    this will produce a regular Fractint image.
  201. 2. Save the image in the usual way
  202.    note: this par automatically assigns the savename as "l3dt_01.gif"
  203. 3. Run the second par "L3DT_01_3d         { ; "Pinnacle" =
  204.  
  205.    this will look for the previously saved "l3dt_01.gif"
  206. 4. Once located, just keep hitting the return key to step through the 3D
  207. options which have been pre-defined in the second par file
  208.    e.g. scale, roughness, lighting, rotation etc.. The final keypress
  209. should render the 3D image.
  210.  
  211. Ditto for the L3DT_14 and L3DT_14_3D pair.
  212.  
  213. hope this helps!
  214.  
  215. - - Les
  216.  
  217.  
  218. - -
  219. - ------------------------------------------------------------
  220. Thanks for using Fractint, The Fractals and Fractint Discussion List
  221. Post Message:   fractint@xmission.com
  222. Get Commands:   majordomo@xmission.com "help"
  223. Administrator:  twegner@phoenix.net
  224. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  225.  
  226. ------------------------------
  227.  
  228. Date: Sun, 15 Feb 1998 06:23:25 -0500
  229. From: Les St Clair <Les_StClair@compuserve.com>
  230. Subject: Re: (fractint) 3D transformations
  231.  
  232. Hi Brian
  233.  
  234. >>Nice set of 3D images! =
  235.  
  236.  
  237. Thanks!
  238.  
  239. >>BTW, "Astral Plane" and "Curly Fractint" look suprisingly familiar<vbg>=
  240. !
  241.  
  242. I never said that these were NEW images <g>
  243.  
  244. - - Les
  245.  
  246.  
  247. - -
  248. - ------------------------------------------------------------
  249. Thanks for using Fractint, The Fractals and Fractint Discussion List
  250. Post Message:   fractint@xmission.com
  251. Get Commands:   majordomo@xmission.com "help"
  252. Administrator:  twegner@phoenix.net
  253. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  254.  
  255. ------------------------------
  256.  
  257. Date: Sun, 15 Feb 1998 09:42:27 EST
  258. From: Nature102@aol.com
  259. Subject: Re: (fractint) Dance club experience
  260.  
  261. In a message dated 98-02-15 04:31:55 EST, kimjd@plu.edu writes:
  262.  
  263. << So, fractals have become popular culture...  Even 16 year-old kids, who
  264.  have a disdain for math, are watching it.   >>
  265.  
  266.   They probably don't realize that they ARE math. I mean, in math, all we ever
  267. learn is how to square the hypotenuse of the sine and divide it by the radii
  268. of the diffrential over two and add pi. How fun. They don't realize that math
  269. can do cool stuff like fractals. When I tried to do a demonstration of
  270. Fractint in my Geometry class, the immediate reaction of most of the class was
  271. "What do you use them for?" Well, what is the Mona Lisa used for? (Good
  272. question. It's sure not big enough to be a postage stamp. :-P) 
  273.  
  274. - -
  275. - ------------------------------------------------------------
  276. Thanks for using Fractint, The Fractals and Fractint Discussion List
  277. Post Message:   fractint@xmission.com
  278. Get Commands:   majordomo@xmission.com "help"
  279. Administrator:  twegner@phoenix.net
  280. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  281.  
  282. ------------------------------
  283.  
  284. Date: Sun, 15 Feb 1998 10:01:10 -0800
  285. From: Peter Jakubowicz <pfjakub@earthlink.net>
  286. Subject: Re: (fractint) Dance club experience
  287.  
  288. > Well, what is the Mona Lisa used for? 
  289.  
  290. fractals; see Kerry Mithchell's gallery
  291.  
  292.  
  293. - -
  294. - ------------------------------------------------------------
  295. Thanks for using Fractint, The Fractals and Fractint Discussion List
  296. Post Message:   fractint@xmission.com
  297. Get Commands:   majordomo@xmission.com "help"
  298. Administrator:  twegner@phoenix.net
  299. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  300.  
  301. ------------------------------
  302.  
  303. Date: Sun, 15 Feb 1998 12:50:44 -0800
  304. From: Felix <aduhan@TTACS.TTU.EDU>
  305. Subject: Re: (fractint) Dance club experience
  306.  
  307. Nature102@aol.com wrote:
  308.  
  309. > In a message dated 98-02-15 04:31:55 EST, kimjd@plu.edu writes:
  310. >
  311. > << So, fractals have become popular culture...  Even 16 year-old kids, who
  312. >  have a disdain for math, are watching it.   >>
  313. >
  314. >   They probably don't realize that they ARE math.
  315.  
  316.     I would have to disagree.  I first got into fractals with Fractint and the
  317. bible _Fractal_Creations_ when I was fourteen.  (actually helped me through math
  318. on occaision when a particularly boring lesson could be related to biffurication,
  319. chaos or iteratives.  In one especially boring precal class I remembering writing
  320. a mandelbrot program on my TI-85)  Anyway, now I'm twenty, and for the last 4
  321. years I have dragged my computer and a rented LCD projector all over town to
  322. raves, rock concerts, private dances, anywhere a little more atmosphere is
  323. needed.  Atmosphere like a 16 foot julia.  And almost without exception someone
  324. will come up to me and says: "say, those are fractals aren't they?"  And then
  325. they'll get some friends and hang around and ask questions for a few minutes
  326. before giong back into the fray.
  327.     Point being:  Probably 50% of the kids at that club knew they were fractals,
  328. and I wouldn't be surprised if 15% could name the Mandelbrot.
  329.  
  330. Just my 2c.
  331.  
  332. - -Andrew
  333. - --
  334. | Andrew Duhan    |     Cereal is     |
  335. | aduhan@ttu.edu  |       g00d.       |
  336. | http://chimera.acs.ttu.edu/~aduhan/ |
  337.  
  338.  
  339.  
  340. - -
  341. - ------------------------------------------------------------
  342. Thanks for using Fractint, The Fractals and Fractint Discussion List
  343. Post Message:   fractint@xmission.com
  344. Get Commands:   majordomo@xmission.com "help"
  345. Administrator:  twegner@phoenix.net
  346. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  347.  
  348. ------------------------------
  349.  
  350. Date: Sun, 15 Feb 1998 14:48:57 EST
  351. From: Nature102@aol.com
  352. Subject: Re: (fractint) Dance club experience
  353.  
  354. In a message dated 98-02-15 13:53:42 EST, aduhan@TTACS.TTU.EDU writes:
  355.  
  356. << >   They probably don't realize that they ARE math.
  357.  
  358.      I would have to disagree.  [Snip]
  359.      Point being:  Probably 50% of the kids at that club knew they were
  360. fractals,
  361.  and I wouldn't be surprised if 15% could name the Mandelbrot. >>
  362.  
  363.   ::Shrugs:: Well, yah, they might be able to recognize them as fractals or as
  364. Mandelbrot set images, but how many do you think would really be able to look
  365. at them and realize that those cool images are nothing more than an equation?
  366.  
  367. - -
  368. - ------------------------------------------------------------
  369. Thanks for using Fractint, The Fractals and Fractint Discussion List
  370. Post Message:   fractint@xmission.com
  371. Get Commands:   majordomo@xmission.com "help"
  372. Administrator:  twegner@phoenix.net
  373. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  374.  
  375. ------------------------------
  376.  
  377. Date: Sun, 15 Feb 1998 15:08:33 -0500
  378. From: Dick Amerman <ramerman@erols.com>
  379. Subject: Re: (fractint) 3D transformations
  380.  
  381. Paul Derbyshire wrote:
  382.  
  383. > >arg, that should have been http://www.povray.org/
  384. > >sorry, sorry, i used to work as a copyeditor; i guess this is my
  385. > >subconscious' revenge for that experience
  386. >
  387. > Note: this address seems to behave strangely; sometimes it works
  388. > andsometimes it hangs any browser I've tried. I suspect maybe the machine
  389. > that hosts the web site is not entirely stable. Does anyone know of any
  390. > mirrors, or if themachine or software have been repaired/improved?
  391.  
  392. The Povray home page works OK for me, using Netscape's Communicator (now free at
  393. Netscape's site for the taking) -- I recently downloaded Povray 3.02 without
  394. trouble.  The page lists a number of mirror sites, most of them in Europe.  The
  395. page also says that there is no official site and that some sites do not supply all
  396. files.  Here's the list of web sites from Povray's home page:
  397.  
  398.         http://www.etsimo.uniovi.es/ftp/pub/raytrace
  399.         http://stef.u-picardie.fr/ftp/pub2/ftp.povray.org
  400.         http://www.vu.union.edu/~ftp/pub/povray
  401.         http://sunsite.icm.edu.pl/pub/povray
  402.         http://ftp.ncu.edu.tw/Packages/ray-tracing/
  403.         http://serviceftp.flashnet.it/mirrors.htm
  404.         http://kermit.stud.fh-heilbronn.de/povray
  405.         http://ftp.uni-erlangen.de/pub/other/povray/
  406.         http://gd.tuwien.ac.at/graphics/raytracing/povray/
  407.         http://ftp.tu-clausthal.de/pub/mirror/povray
  408.  
  409. I spot checked a few.  The vu.union.edu site no longer exists.  The sunsite.icm.edu
  410. is in Polish language, and I saw nothing I recognized as Povray.  The ncu.edu site
  411. came up gibberish.  The uni-erlangen ftp site worked just fine.
  412.  
  413. Povray is a neat, copyrighted, freeware program.
  414.  
  415. Version 3.02 is also available on the IRTC (Internet Ray Tracing Competition)
  416. CD-ROM for US$30, which can be ordered through http://www.aussie.org/products/.
  417.  
  418. You might enjoy viewing the competition images following links from
  419.  
  420.                                      http://www.irtc.org/
  421.  
  422. and you can even cast votes for your favorites.
  423.  
  424. Dick Amerman
  425.  
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432. - -
  433. - ------------------------------------------------------------
  434. Thanks for using Fractint, The Fractals and Fractint Discussion List
  435. Post Message:   fractint@xmission.com
  436. Get Commands:   majordomo@xmission.com "help"
  437. Administrator:  twegner@phoenix.net
  438. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  439.  
  440. ------------------------------
  441.  
  442. Date: Sun, 15 Feb 1998 15:01:08 -0800
  443. From: Felix <aduhan@TTACS.TTU.EDU>
  444. Subject: Re: (fractint) Dance club experience
  445.  
  446. Nature102@aol.com wrote:
  447.  
  448. > ... but how many do you think would really be able to look
  449. > at them and realize that those cool images are nothing more than an equation?
  450.  
  451.     Well I couldn't guess that number.  Probably less then we would like.Actually,
  452. two of the three math books I had in high school had a couple of pages devoted to
  453. iteratives and fractals.  The precal book even had a picture of Beniot himself...
  454.  
  455. - --
  456. | Andrew Duhan    |     Cereal is     |
  457. | aduhan@ttu.edu  |       g00d.       |
  458. | http://chimera.acs.ttu.edu/~aduhan/ |
  459.  
  460.  
  461.  
  462. - -
  463. - ------------------------------------------------------------
  464. Thanks for using Fractint, The Fractals and Fractint Discussion List
  465. Post Message:   fractint@xmission.com
  466. Get Commands:   majordomo@xmission.com "help"
  467. Administrator:  twegner@phoenix.net
  468. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  469.  
  470. ------------------------------
  471.  
  472. Date: Sun, 15 Feb 1998 15:17:42 -0800
  473. From: Wizzle <wizzle@cci-internet.com>
  474. Subject: (fractint) Carlson Map for Julias
  475.  
  476. I had one of those fortuitous goofs that seems to happen so often in
  477. fractal land.  I couldn't make the color map work for Bud's
  478. gj19..........and.....I was messing around with Paul Carlson's bright color
  479. map which he posted with his petals julia samples.  Well....one thing lead
  480. to another.....here is Bud's julia re-colored, followed by a variation on
  481. Kathy Roth's ShellWorld .....colored with Paul's map (you'll see why I
  482. cally it juicy) and below are some thoughts on this very very handy color
  483. map. 
  484.  
  485. gj19revised        { ; "Reflex" - (c) Mark "Bud" Christenson 2/13/98 
  486.                      ; recolored by wizzle from using Paul Carlson's color
  487.                      ; intervals
  488.   reset=1960 type=formula formulafile=*.frm formulaname=gravijul
  489.   function=atanh/atanh/atan center-mag=0/0/0.06
  490.   params=0.95/0/0.07000000000000001/0/2.95/0 float=y maxiter=151
  491.   inside=200 outside=atan
  492.   colors=000nXl<3>uhu<11>X4RU0OU3A<16>zcc<12>U3AG75<13>zzc<11>LD9I96E53A00\
  493.   00A<11>7Od8Qg9SjAUmASj<10>13E00A000<13>000F70<15>rZU<12>F700AK<15>0zz<12\
  494.   >0AKA00<15>zzc<12>A003A3<14>czc<13>3A3U0O<10>lUj
  495.   }
  496.  
  497. juicy_julia        { ; by wizzle via kathy roth with the carlson map
  498.                      ; from a formula by ???
  499.   reset=1960 type=formula formulafile=*.frm
  500.   formulaname=bubbleboth_jul
  501.   center-mag=0.0307987/0.0484215/0.781575/1.3423
  502.   params=-0.0174289981879/0.662179659/1000/0.75/1/0.5 float=y
  503.   maxiter=256 inside=period decomp=2048 periodicity=0
  504.   colors=0000xU<19>KA0<18>zw0<18>U50<15>zc0<14>V5GS2IQ1DO08<15>z0f<13>O08O\
  505.   00<15>z88<13>N19K0AK2DK4GK7K<25>f9ugAweAu<16>00K<9>N`iQdlUkq<2>awz<19>2M\
  506.   D0KA0MB<14>0uS
  507.   }
  508.  
  509. This color map works particularly well with julias of any sort.......but
  510. really is a must for the new fancier julia's done with ifs.  Here are some
  511. thoughts about working with this map.
  512.  
  513. 1.  Color transitions are not required.  But you must place the darkest and
  514. lightest colors where Paul did for the whole thing to work.
  515.  
  516. 2.  Any sort of color sequence seems to be accepatable.....so go wild!!
  517. Make blue follow yellow then jump to magenta........my version uses
  518. "wizzle" colors which tend to be bright mid tones. I tried doing a map
  519. using "chessiecat" colors and that looked lovely too....but was just not
  520. ME.  I've noticed we all seem to develop pallet personalities after a while.  
  521.  
  522. 3.  Don't go too bland....make sure you have a good range for the darkest
  523. and lightest colors and your julia will have a sense of 3d
  524. form....otherwise it will look flat and washed out no matter how pretty and
  525. individual color is.  You may want to start by just changing the lightest
  526. color in each color "set" to get a feel for the map. 
  527.  
  528. This map was really interesting to me because I usually don't like maps
  529. that have sharp color variations.......thus far I've made maps that
  530. smoothyly transition between colors. I'd say this type of map is a "must"
  531. for everyone's fractint toolkit. 
  532.  
  533. Happy coloring!!!
  534.  
  535. p.s.  if you are new and don't know how to "grab" maps.....check my tips 
  536.  
  537. http://wizzle.simplenet.com/fractals/fractalintro.htm
  538.  
  539. - -
  540. - ------------------------------------------------------------
  541. Thanks for using Fractint, The Fractals and Fractint Discussion List
  542. Post Message:   fractint@xmission.com
  543. Get Commands:   majordomo@xmission.com "help"
  544. Administrator:  twegner@phoenix.net
  545. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  546.  
  547. ------------------------------
  548.  
  549. Date: Sun, 15 Feb 1998 18:34:00 -0500
  550. From: Lee Skinner <LeeHSkinner@compuserve.com>
  551. Subject: (fractint) Crash!
  552.  
  553. Paul,
  554.  
  555. >>The PAR attached below seems to hang Fractint 19.6 a short way into the=
  556.  
  557. fourth pass using guessing at 1024x768x256. At this point, the image ceas=
  558. es
  559. to make progress and Fractint stops responding to such keys as x, tab, an=
  560. d
  561. esc. It becomes necessary to kill the DOS box. I had it saving partially
  562. complete versions of this image, using savetime=3D10; when I loaded the m=
  563. ost
  564. recent autosave it computed for about five minutes, then hung again at th=
  565. e
  566. same exact spot...<<
  567.  
  568. This is symtomatic of the occasional Fractint encoder/decoder bug that
  569. bites without warning every now and then, but usually with larger
  570. resolutions, and more frequently with images having little detail (which
  571. doesn't apply here.)  A way to get around this is to go back to some
  572. previously saved image that was OK, then pan it very slightly right, left=
  573. ,
  574. top, or down - it usualy doesn't make any difference which - and then see=
  575.  
  576. if that gets around the problem.  If not, try panning in a diffferent
  577. direction.
  578.  
  579. Lee
  580.  
  581. - -
  582. - ------------------------------------------------------------
  583. Thanks for using Fractint, The Fractals and Fractint Discussion List
  584. Post Message:   fractint@xmission.com
  585. Get Commands:   majordomo@xmission.com "help"
  586. Administrator:  twegner@phoenix.net
  587. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  588.  
  589. ------------------------------
  590.  
  591. Date: Sun, 15 Feb 1998 19:58:24 -0500
  592. From: "Jason Hine" <tumnus@together.net>
  593. Subject: Re: (fractint) Avogadro's number
  594.  
  595. Peter J. asked:
  596.  
  597.  
  598. >Is there any significance to blowing up the M-set by Avogadro's number
  599. >other than for the fun of it?
  600.  
  601.  
  602. Or how about the Planck length?  Amazing how these extreme numbers don't even
  603. come close to Fractint's limits...
  604.  
  605. Jason Hine
  606.  
  607.  
  608. - -
  609. - ------------------------------------------------------------
  610. Thanks for using Fractint, The Fractals and Fractint Discussion List
  611. Post Message:   fractint@xmission.com
  612. Get Commands:   majordomo@xmission.com "help"
  613. Administrator:  twegner@phoenix.net
  614. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  615.  
  616. ------------------------------
  617.  
  618. Date: Sun, 15 Feb 1998 21:45:06 -0600
  619. From: "Justin A. Kolodziej" <4wg7kolodzie@vms.csd.mu.edu>
  620. Subject: Re: (fractint) Avogadro's number
  621.  
  622. Jason Hine wrote:
  623. > Peter J. asked:
  624. > >Is there any significance to blowing up the M-set by Avogadro's number
  625. > >other than for the fun of it?
  626. > Or how about the Planck length?  Amazing how these extreme numbers don't even
  627. > come close to Fractint's limits...
  628.  
  629. Circumference of the universe, anyone?  :)  Maybe someone with a LOT of
  630. time to spare (like me) could make a web page dedicated to this stuff...
  631.  
  632. - -- 
  633. Justin A. Kolodziej
  634. Why pay for an OS when you can get a clearly superior one for free?
  635. Justin Kolodziej is 4wg7kolodzie@vms.csd.mu.edu
  636. Marquette University is www.mu.edu
  637.  
  638. - -
  639. - ------------------------------------------------------------
  640. Thanks for using Fractint, The Fractals and Fractint Discussion List
  641. Post Message:   fractint@xmission.com
  642. Get Commands:   majordomo@xmission.com "help"
  643. Administrator:  twegner@phoenix.net
  644. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  645.  
  646. ------------------------------
  647.  
  648. Date: Sun, 15 Feb 1998 20:05:00 -0800
  649. From: Wizzle <wizzle@cci-internet.com>
  650. Subject: (fractint) Lee's PNG Images
  651.  
  652. I surfed over to Lee Skinner's pages today with my nice new shiney Netscape
  653. Communicator 4.04......but I couldn't see the png images!!!!  a total
  654. disappointment.  What I got instead of pretty pictures was code......well
  655. over 1.1 meg of code per pic...<<blech>>.  
  656.  
  657. This is wierd......I can open a png file in Communicator just fine if the
  658. png file is on my puter....but none of Lee's images would work on the web.
  659. Anyone else have this prob?? And why were Lee's files so huge? even my
  660. biggest 1024 x whatever gif is less than a meg....I thought png was a
  661. better method of compression. Seems like we may not quite be there png-wise.
  662.  
  663. Angela
  664.  
  665. ps...lee's site is at http://fractal.mta.ca/fractals/skinner/skinner.htm  
  666.  
  667. - -
  668. - ------------------------------------------------------------
  669. Thanks for using Fractint, The Fractals and Fractint Discussion List
  670. Post Message:   fractint@xmission.com
  671. Get Commands:   majordomo@xmission.com "help"
  672. Administrator:  twegner@phoenix.net
  673. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  674.  
  675. ------------------------------
  676.  
  677. Date: Sun, 15 Feb 1998 22:36:19 -0800
  678. From: Felix <aduhan@TTACS.TTU.EDU>
  679. Subject: Re: (fractint) Lee's PNG Images
  680.  
  681. > ...  What I got instead of pretty pictures was code......
  682. > Anyone else have this prob??
  683.  
  684. Those darned MIME types.
  685.  
  686.  
  687. - --
  688. | Andrew Duhan    |     Cereal is     |
  689. | aduhan@ttu.edu  |       g00d.       |
  690. | http://chimera.acs.ttu.edu/~aduhan/ |
  691.  
  692.  
  693.  
  694. - -
  695. - ------------------------------------------------------------
  696. Thanks for using Fractint, The Fractals and Fractint Discussion List
  697. Post Message:   fractint@xmission.com
  698. Get Commands:   majordomo@xmission.com "help"
  699. Administrator:  twegner@phoenix.net
  700. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  701.  
  702. ------------------------------
  703.  
  704. Date: Sun, 15 Feb 1998 23:44:22 -0500
  705. From: Gedeon Peteri <gedeon@InfoAve.Net>
  706. Subject: Re: (fractint) Lee's PNG Images
  707.  
  708. Wizzle wrote:
  709.  
  710. > I surfed over to Lee Skinner's pages today with my nice new shiney Netscape
  711. > Communicator 4.04......but I couldn't see the png images!!!!  a total
  712. > disappointment.  What I got instead of pretty pictures was code......well
  713. > over 1.1 meg of code per pic...<<blech>>.
  714. >
  715. > This is wierd......I can open a png file in Communicator just fine if the
  716. > png file is on my puter....but none of Lee's images would work on the web.
  717. > Anyone else have this prob??
  718.  
  719. Yes! Same thing happens here and I am using Netscape Communicator 4.04 too.
  720. Fortunately I have Lee's par file and generated most of those great images
  721. myself.
  722.  
  723. Gedeon.
  724.  
  725.  
  726. - -
  727. - ------------------------------------------------------------
  728. Thanks for using Fractint, The Fractals and Fractint Discussion List
  729. Post Message:   fractint@xmission.com
  730. Get Commands:   majordomo@xmission.com "help"
  731. Administrator:  twegner@phoenix.net
  732. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  733.  
  734. ------------------------------
  735.  
  736. Date: Sun, 15 Feb 1998 22:59:07 -0800
  737. From: Felix <aduhan@TTACS.TTU.EDU>
  738. Subject: Re: (fractint) Lee's PNG Images
  739.  
  740. Felix wrote:
  741.  
  742. > > ...  What I got instead of pretty pictures was code......
  743. > > Anyone else have this prob??
  744. >
  745. > Those darned MIME types.
  746.  
  747. OK, I'm replying to my self, but:For more info, go to Communicator's
  748. help-->contents-->index--->MIME  and read what it's got to say.
  749.  
  750. - --
  751. | Andrew Duhan    |     Cereal is     |
  752. | aduhan@ttu.edu  |       g00d.       |
  753. | http://chimera.acs.ttu.edu/~aduhan/ |
  754.  
  755.  
  756.  
  757. - -
  758. - ------------------------------------------------------------
  759. Thanks for using Fractint, The Fractals and Fractint Discussion List
  760. Post Message:   fractint@xmission.com
  761. Get Commands:   majordomo@xmission.com "help"
  762. Administrator:  twegner@phoenix.net
  763. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  764.  
  765. ------------------------------
  766.  
  767. Date: Sun, 15 Feb 1998 21:08:25 -0800
  768. From: Mark Christenson <mchris@hooked.net>
  769. Subject: Re: (fractint) Carlson Map for Julias
  770.  
  771. comment {
  772. At 03:17 PM 2/15/98 -0800, Wizzle wrote:
  773. >I had one of those fortuitous goofs that seems to happen so often in
  774. >fractal land.  I couldn't make the color map work for Bud's
  775. >gj19...
  776.  
  777. What kind of trouble?  I hope I'm not putting out bad files...
  778.  
  779. Here's another branch on the gravijul tree.
  780.  
  781.  - Bud
  782. }
  783.  
  784. gj161              { ; "Shear", refined gj16 - (c) Bud 2/15/98
  785.   reset=1930 type=formula formulafile=*.frm formulaname=gravijul
  786.   function=recip/tan/sqrt passes=t
  787.   center-mag=0/0/0.45
  788.   params=0.95/0/0.1/0/2.95/0 float=y maxiter=300 inside=200
  789.   outside=atan
  790.   colors=NJX<2>NJ_OK`OKaPLbPLc<4>ROhSOhTPiUPiVQj<4>_Tm`UnaVnbWocXodYpeZqf_\
  791.   q<2>idtjfulhvnjvolwqnx<5>zzz<30>2WW0VV0UU<14>0FFzzz000<162>000
  792.   }
  793.  
  794.  
  795.  
  796. - -
  797. - ------------------------------------------------------------
  798. Thanks for using Fractint, The Fractals and Fractint Discussion List
  799. Post Message:   fractint@xmission.com
  800. Get Commands:   majordomo@xmission.com "help"
  801. Administrator:  twegner@phoenix.net
  802. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  803.  
  804. ------------------------------
  805.  
  806. Date: Mon, 16 Feb 1998 00:55:56 -0500 (EST)
  807. From: ao950@freenet.carleton.ca (Paul Derbyshire)
  808. Subject: Re: (fractint) Crash!
  809.  
  810. >This is symtomatic of the occasional Fractint encoder/decoder bug...
  811.  
  812. Encoder/decoder bug? It didn't hang during an autosave, or a load...
  813.  
  814.  
  815. - --
  816.     .*.  Friendship, companionship, love, and having fun are the reasons for
  817.  -()  <  life. All else; sex, money, fame, etc.; are just to get/express these.
  818.     `*'  Send any and all mail with attachments to the hotmail address please.
  819. Paul Derbyshire ao950@freenet.carleton.ca pgd73@hotmail.com
  820.  
  821. - -
  822. - ------------------------------------------------------------
  823. Thanks for using Fractint, The Fractals and Fractint Discussion List
  824. Post Message:   fractint@xmission.com
  825. Get Commands:   majordomo@xmission.com "help"
  826. Administrator:  twegner@phoenix.net
  827. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  828.  
  829. ------------------------------
  830.  
  831. Date: Sun, 15 Feb 1998 22:58:09 -0700 (MST)
  832. From: Kerry Mitchell <lkmitch@primenet.com>
  833. Subject: (fractint) More Herman Rings (long)
  834.  
  835. comment { ; narrative copyright Kerry Mitchell 15feb98
  836.  
  837. Higher order Herman Rings
  838.  
  839. In Paul Derbyshire's posting about Herman Rings, he gave a formula 
  840. that was known to generate the rings:
  841.  
  842. H(z) = alpha * z^2 * (z-c) / (1-c*z).
  843.  
  844. Paul's examples tended to resemble, in overall shape, Julia sets 
  845. from the standard quadratic, f(z) = z^2 + c.  I surmised that this 
  846. was due to the z^2 factor in H(z), and conjectured that higher 
  847. order Herman Rings could be made by increasing the z exponent.  
  848. Just going from z^2 to z^3 was interesting, but didn't result in 
  849. the same sort of dynamics that H(z) had.  So, I generalized H(z)
  850. into F(z):
  851.  
  852. F(z) = alpha * z^n * g(z)^m, where
  853. g(z) = (z-c)/(1-c*z).
  854.  
  855. The formula that Paul used had n=2 and m=1.  I tried n=3 and m=1 
  856. and determined it to be unsuccessful.  So, I tried n=3 and m=2, 
  857. and decided that, in general, m should be equal to n-1 for higher 
  858. order rings.
  859.  
  860. Finding the critical points for F is not as hard as it may seem.  
  861. Using the derivative rules from calculus,
  862.  
  863. F' = alpha * nz^(n-1) * g^m + alpha * z^n * mg'g^(m-1).
  864.  
  865. Setting F' = 0 to find the critical points means that alpha,
  866. z^(n-1) and g^(m-1) can all be divided out as common factors.
  867. (The critical points associated with those factors are:  z=0,
  868. z=c, and z=1/c.  None of these has interesting dynamics.)  The
  869. result is:
  870.  
  871. 0 = ng + mg'z, or
  872. z = -ng / (mg').
  873.  
  874. Differentiating g(z),
  875.  
  876. g' = (1-c^2) / (1-c*z)^2.
  877.  
  878. Using this in the above equation for z results in a quadratic
  879. for z which is easily solved using the quadratic equation.  In
  880. fact, when m = n-1, the discriminant of the solution can be
  881. factored.  The result is:
  882.  
  883. z = [c^2 + (2n-1)] +/- sqrt([c^2 - 1]*[c^2 - (2n-1)^2])] / (2nc).
  884.  
  885. Using this directly as the starting point for Mandelbrot-type 
  886. images leads to discontinuities, where one root should be used 
  887. instead of the other.  These discontinuities occur when real(c^2) 
  888. = n^2 + m^2, and at the imaginary axis.  In the formulas below
  889. (herman_man and herman-alpha), they are automatically handled
  890. in the initialization.  Since Julia sets are not initialized
  891. using critical points, the herman_jul formulas lack this logic.
  892.  
  893. The rotation parameter, alpha, is what seems to determine whether 
  894. or not Herman rings actually show up.  Two methods can be used to 
  895. set alpha--cartesian and polar coordinates.  For the cartesian 
  896. method (-cart formulas), the real and imaginary parts of alpha are 
  897. input directly.  With the polar method (-polar formulas), the 
  898. magnitude and polar angle of alpha are input.  This makes it very 
  899. easy to specify rotation by an irrational angle.  Simply specify a 
  900. *rational* number for the polar angle.  The irrationality of the 
  901. rotation angle is expressed as an irrational number of turns, not 
  902. radians.  Since the difference between turns and radians involves 
  903. a factor of pi, which is irrational, using a rational number of 
  904. radians insures that the number of turns is irrational.  The effect
  905. of alpha can be show through the special Mandelbrot-type formula,
  906. herman_alpha.  Here, c is input through parameters and z is
  907. initialized accordingly.  The parameter alpha is varied by being
  908. set to the pixel value.
  909.  
  910. The following formulas all use the renormalization method to 
  911. reduce banding.  In this implementation, the actual coloring is 
  912. performed using the decomposition method.  This allows separate 
  913. rendering of the orbits that get attracted to infinity and those 
  914. that get attracted to 0.  After forming the decomposition angle 
  915. based on the iteration count, those pixels that escape to infinity 
  916. have their angle increased by pi.  This means that for the same 
  917. iteration count, two pixels with different basins of attraction 
  918. will be separarated by half of the color palette.  Those pixels 
  919. whose orbits are not attracted by either 0 or infinity are treated
  920. as inside pixels.
  921.  
  922. }
  923.  
  924. alpha-sweep        { ; copyright Kerry Mitchell 15feb98
  925.                      ; blue goes to infinity, green to 0
  926.   reset=1960 type=formula formulafile=fractint.frm
  927.   formulaname=herman_alpha center-mag=0/0/0.6666667
  928.   params=3/4/1.25/0/1/0 float=y maxiter=256 inside=0 decomp=256
  929.   periodicity=0 colors=000<41>0x00z00y0<39>020000001<42>\
  930.   00x00z00y<39>002000100<40>z00<40>200 cyclerange=0/255
  931.   }
  932.  
  933. lay-o-the-land-2   { ; copyright Kerry Mitchell 15feb98
  934.   ; notice affect of critical points across imag axis
  935.   ; uses irrational rotation angle (1/2pi turns = 1 radian)
  936.   reset=1960 type=formula formulafile=fractint.frm
  937.   formulaname=herman_man-polar center-mag=7.40689/0/0.25
  938.   params=2/4/1/1/1/0 float=y maxiter=256 inside=0 decomp=256
  939.   periodicity=0 colors=000<40>x00z00z00<40>zy0zz0zz1<39>zzx\
  940.   zzzzzz<40>1zz0zz0yz<39>02z00z00z<41>000 cyclerange=0/255
  941.   }
  942.  
  943. herman-ring-2      { ; copyright Kerry Mitchell 15feb98
  944.                      ; ring from lay-o-the-land-2
  945.   reset=1960 type=formula formulafile=fractint.frm
  946.   formulaname=herman_jul-polar cyclerange=0/255
  947.   center-mag=1.43796/-0.021421/0.3493159/1/-37.499
  948.   params=3.14159265358979/0/2/4/1/1 float=y maxiter=256
  949.   inside=0 decomp=256 periodicity=0 colors=000<40>x00z00z00<\
  950.   40>zy0zz0zz1<39>zzxzzzzzz<40>1zz0zz0yz<39>02z00z00z<41>000
  951.   }
  952.  
  953. midget-four        { ; copyright Kerry Mitchell 15feb98
  954.   ; 4th order, uses rational rotation angle (1/4 turn)
  955.   reset=1960 type=formula formulafile=fractint.frm
  956.   formulaname=herman_man-cart center-mag=3.30331/0/0.6373984
  957.   params=4/4/0/1/-1/0 float=y maxiter=256 inside=0 decomp=256
  958.   periodicity=0 colors=000<46>00x00z00z<12>08z09z0Az0Bz0Cz<2\
  959.   8>0mz0oz0oz<12>7xs8yr9zqAzpBzo<44>xz2zz0zz0<46>zR0zR0yQ0yQ\
  960.   0xP0<9>rK0qJ0pI0oI0nI0<11>ZC0YC0WB0UB0<13>210 cyclerange=0/255
  961.   }
  962.  
  963. lace-doily         { ; copyright Kerry Mitchell 15feb98
  964.   ; 4th order, uses rational rotation angle (1/2 turn)
  965.   reset=1960 type=formula formulafile=fractint.frm
  966.   formulaname=herman_jul-cart center-mag=0/4.30063/0.1336898
  967.   params=0/5.660750148272625/4/4/-1/0 float=y maxiter=256
  968.   inside=0 decomp=256 periodicity=0 colors=Wph<9>bsmcsmdtn\
  969.   etnetofto<20>yzzzzzyzz<31>ZqjYqiXqiXphWphVpg<25>GhWFgVFg\
  970.   VEfUEfU<18>6_K6ZK6ZJ6YJ5YI<3>4WG4WG4VF3UF<14>1M71L71K61J\
  971.   60I5<3>0F30E30C20B2<2>060000060081<4>0F30G40H40I50I51J6<\
  972.   8>2QA2QB2RB2RC2SC<5>4VF4WG4WG4WH<12>8aN9bO9bOAbPAcP<20>K\
  973.   jZKk_Lk_Mk`<14>Vpg cyclerange=0/255
  974.   }
  975.  
  976. frm:herman_man-polar { ; Kerry Mitchell 15feb98
  977.         ; real(p1) = z exponent (use integer >= 2; m=n-1)
  978.         ; imag(p1) = coloring speed (try 4)
  979.         ; real(p2) = alpha magnitude (try 1)
  980.         ; imag(p2) = alpha polar angle (try integers)
  981.         ; real(p3) = critical point selector (>0 for positive root)
  982.         ; imag(p3) = unused                  (<0 for negative root)
  983.         ; use decomp=256
  984.         ; zero and infinity bailouts hardcoded to 1e-6, 1e6
  985.         c=pixel, iter=1, n=real(p1), m=n-1, nfac=2*n-1
  986.         maxr=1e6, minr=1/maxr, speed=imag(p1)*pi/128
  987.         r=real(p2), t=imag(p2), alpha=r*(cos(t)+flip(sin(t)))
  988.         oln=1/log(n), fac=log(0.5*log(maxr))
  989.         c2=sqr(c), hypfac=sqr(n)+sqr(m), pn=1
  990.         if (real(p3)<0)
  991.           pn=-1
  992.           end if
  993.         if (real(c2)>hypfac)
  994.           pn=-pn
  995.         end if
  996.         if (imag(c)<0)
  997.           pn=-pn
  998.         end if
  999.         d=sqrt((c2-1)*(c2-sqr(nfac)))
  1000.         z=(nfac+c2+pn*d)/(2*n*c)
  1001.         :
  1002.         g=(z-c)/(1-c*z), z=alpha*z^n*g^m
  1003.         iter=iter+1, r=|z|
  1004.         ;
  1005.         ; orbit trap around 0
  1006.         ;   renormalize iteration count via decomp angle
  1007.         ;   set "iteration done" flag (iter=-1)
  1008.         ;
  1009.         if (r<minr)
  1010.           angle=(iter+oln*(fac-log(log(cabs(z)))))*speed
  1011.           z=cos(angle)+flip(sin(angle))
  1012.           iter=-1
  1013.           end if
  1014.         ;
  1015.         ; orbit trap around infinity
  1016.         ;   renormalize iteration count via decomp angle
  1017.         ;   add pi to angle to separate from 0 orbit trap
  1018.         ;   set "iteration done" flag (iter=-1)
  1019.         ;
  1020.         if (r>maxr)
  1021.           angle=(iter+oln*(fac-log(log(cabs(z)))))*speed
  1022.           angle=angle+pi
  1023.           z=cos(angle)+flip(sin(angle))
  1024.           iter=-1
  1025.           end if
  1026.         iter>0
  1027.         }
  1028.  
  1029. frm:herman_man-cart { ; Kerry Mitchell 15feb98
  1030.         ; real(p1) = z exponent (use integer >= 2; m=n-1)
  1031.         ; imag(p1) = coloring speed (try 4)
  1032.         ; p2 = alpha (go wild)
  1033.         ; real(p3) = critical point selector (>0 for positive root)
  1034.         ; imag(p3) = unused                  (<0 for negative root)
  1035.         ; use decomp=256
  1036.         ; zero and infinity bailouts hardcoded to 1e-6, 1e6
  1037.         c=pixel, iter=1, n=real(p1), m=n-1, nfac=2*n-1
  1038.         maxr=1e6, minr=1/maxr, speed=imag(p1)*pi/128
  1039.         oln=1/log(n), fac=log(0.5*log(maxr)), alpha=p2
  1040.         c2=sqr(c), hypfac=sqr(n)+sqr(m), pn=1
  1041.         if (real(p3)<0)
  1042.           pn=-1
  1043.           end if
  1044.         if (real(c2)>hypfac)
  1045.           pn=-pn
  1046.         end if
  1047.         if (imag(c)<0)
  1048.           pn=-pn
  1049.         end if
  1050.         d=sqrt((c2-1)*(c2-sqr(nfac)))
  1051.         z=(nfac+c2+pn*d)/(2*n*c)
  1052.         :
  1053.         g=(z-c)/(1-c*z), z=alpha*z^n*g^m
  1054.         iter=iter+1, r=|z|
  1055.         ;
  1056.         ; orbit trap around 0
  1057.         ;   renormalize iteration count via decomp angle
  1058.         ;   set "iteration done" flag (iter=-1)
  1059.         ;
  1060.         if (r<minr)
  1061.           angle=(iter+oln*(fac-log(log(cabs(z)))))*speed
  1062.           z=cos(angle)+flip(sin(angle))
  1063.           iter=-1
  1064.           end if
  1065.         ;
  1066.         ; orbit trap around infinity
  1067.         ;   renormalize iteration count via decomp angle
  1068.         ;   add pi to angle to separate from 0 orbit trap
  1069.         ;   set "iteration done" flag (iter=-1)
  1070.         ;
  1071.         if (r>maxr)
  1072.           angle=(iter+oln*(fac-log(log(cabs(z)))))*speed
  1073.           angle=angle+pi
  1074.           z=cos(angle)+flip(sin(angle))
  1075.           iter=-1
  1076.           end if
  1077.         iter>0
  1078.         }
  1079.  
  1080. frm:herman_jul-polar { ; Kerry Mitchell 15feb98
  1081.         ; p1 = Julia parameter
  1082.         ; real(p2) = z exponent (use integer >= 2; m=n-1)
  1083.         ; imag(p2) = coloring speed (try 4)
  1084.         ; real(p3) = alpha magnitude (try 1)
  1085.         ; imag(p3) = alpha polar angle (try integers)
  1086.         ; use decomp=256
  1087.         ; zero and infinity bailouts hardcoded to 1e-6, 1e6
  1088.         z=pixel, c=p1, iter=1, n=real(p2), m=n-1
  1089.         maxr=1e6, minr=1/maxr, speed=imag(p2)*pi/128
  1090.         r=real(p3), t=imag(p3), alpha=r*(cos(t)+flip(sin(t)))
  1091.         oln=1/log(n), fac=log(0.5*log(maxr))
  1092.         :
  1093.         g=(z-c)/(1-c*z), z=alpha*z^n*g^m
  1094.         iter=iter+1, r=|z|
  1095.         ;
  1096.         ; orbit trap around 0
  1097.         ;   renormalize iteration count via decomp angle
  1098.         ;   set "iteration done" flag (iter=-1)
  1099.         ;
  1100.         if (r<minr)
  1101.           angle=(iter+oln*(fac-log(log(cabs(z)))))*speed
  1102.           z=cos(angle)+flip(sin(angle))
  1103.           iter=-1
  1104.           end if
  1105.         ;
  1106.         ; orbit trap around infinity
  1107.         ;   renormalize iteration count via decomp angle
  1108.         ;   add pi to angle to separate from 0 orbit trap
  1109.         ;   set "iteration done" flag (iter=-1)
  1110.         ;
  1111.         if (r>maxr)
  1112.           angle=(iter+oln*(fac-log(log(cabs(z)))))*speed
  1113.           angle=angle+pi
  1114.           z=cos(angle)+flip(sin(angle))
  1115.           iter=-1
  1116.           end if
  1117.         iter>0
  1118.         }
  1119.  
  1120. frm:herman_jul-cart { ; Kerry Mitchell 15feb98
  1121.         ; p1 = Julia parameter
  1122.         ; real(p2) = z exponent (use integer >= 2; m=n-1)
  1123.         ; imag(p2) = coloring speed (try 4)
  1124.         ; p3 = alpha (go nuts)
  1125.         ; use decomp=256
  1126.         ; zero and infinity bailouts hardcoded to 1e-6, 1e6
  1127.         z=pixel, c=p1, iter=1, n=real(p2), m=n-1
  1128.         maxr=1e6, minr=1/maxr, speed=imag(p2)*pi/128
  1129.         oln=1/log(n), fac=log(0.5*log(maxr)), alpha=p3
  1130.         :
  1131.         g=(z-c)/(1-c*z), z=alpha*z^n*g^m
  1132.         iter=iter+1, r=|z|
  1133.         ;
  1134.         ; orbit trap around 0
  1135.         ;   renormalize iteration count via decomp angle
  1136.         ;   set "iteration done" flag (iter=-1)
  1137.         ;
  1138.         if (r<minr)
  1139.           angle=(iter+oln*(fac-log(log(cabs(z)))))*speed
  1140.           z=cos(angle)+flip(sin(angle))
  1141.           iter=-1
  1142.           end if
  1143.         ;
  1144.         ; orbit trap around infinity
  1145.         ;   renormalize iteration count via decomp angle
  1146.         ;   add pi to angle to separate from 0 orbit trap
  1147.         ;   set "iteration done" flag (iter=-1)
  1148.         ;
  1149.         if (r>maxr)
  1150.           angle=(iter+oln*(fac-log(log(cabs(z)))))*speed
  1151.           angle=angle+pi
  1152.           z=cos(angle)+flip(sin(angle))
  1153.           iter=-1
  1154.           end if
  1155.         iter>0
  1156.         }
  1157.  
  1158. frm:herman_alpha { ; Kerry Mitchell 15feb98
  1159.         ; real(p1) = z exponent (use integer >= 2; m=n-1)
  1160.         ; imag(p1) = coloring speed (try 4)
  1161.         ; p2 = c
  1162.         ; real(p3) = critical point selector (>0 for positive root)
  1163.         ; imag(p3) = unused                  (<0 for negative root)
  1164.         ; use decomp=256
  1165.         ; zero and infinity bailouts hardcoded to 1e-6, 1e6
  1166.         alpha=pixel, iter=1, n=real(p1), m=n-1, nfac=2*n-1
  1167.         maxr=1e6, minr=1/maxr, speed=imag(p1)*pi/128
  1168.         oln=1/log(n), fac=log(0.5*log(maxr)), c=p2
  1169.         c2=sqr(c), hypfac=sqr(n)+sqr(m), pn=1
  1170.         if (real(p3)<0)
  1171.           pn=-1
  1172.           end if
  1173.         if (real(c2)>hypfac)
  1174.           pn=-pn
  1175.         end if
  1176.         if (imag(c)<0)
  1177.           pn=-pn
  1178.         end if
  1179.         d=sqrt((c2-1)*(c2-sqr(nfac)))
  1180.         z=(nfac+c2+pn*d)/(2*n*c)
  1181.         :
  1182.         g=(z-c)/(1-c*z), z=alpha*z^n*g^m
  1183.         iter=iter+1, r=|z|
  1184.         ;
  1185.         ; orbit trap around 0
  1186.         ;   renormalize iteration count via decomp angle
  1187.         ;   set "iteration done" flag (iter=-1)
  1188.         ;
  1189.         if (r<minr)
  1190.           angle=(iter+oln*(fac-log(log(cabs(z)))))*speed
  1191.           z=cos(angle)+flip(sin(angle))
  1192.           iter=-1
  1193.           end if
  1194.         ;
  1195.         ; orbit trap around infinity
  1196.         ;   renormalize iteration count via decomp angle
  1197.         ;   add pi to angle to separate from 0 orbit trap
  1198.         ;   set "iteration done" flag (iter=-1)
  1199.         ;
  1200.         if (r>maxr)
  1201.           angle=(iter+oln*(fac-log(log(cabs(z)))))*speed
  1202.           angle=angle+pi
  1203.           z=cos(angle)+flip(sin(angle))
  1204.           iter=-1
  1205.           end if
  1206.         iter>0
  1207.         }
  1208.  
  1209. - -------------------------------------------------------------------------------
  1210. Kerry Mitchell
  1211. lkmitch@primenet.com
  1212. - -------------------------------------------------------------------------------
  1213.  
  1214.  
  1215. - -
  1216. - ------------------------------------------------------------
  1217. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1218. Post Message:   fractint@xmission.com
  1219. Get Commands:   majordomo@xmission.com "help"
  1220. Administrator:  twegner@phoenix.net
  1221. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  1222.  
  1223. ------------------------------
  1224.  
  1225. End of fractint-digest V1 #110
  1226. ******************************
  1227.  
  1228.