home *** CD-ROM | disk | FTP | other *** search
/ ftp.xmission.com / 2014.06.ftp.xmission.com.tar / ftp.xmission.com / pub / lists / fractint / archive / v01.n282 < prev    next >
Internet Message Format  |  1998-08-27  |  46KB

  1. From: owner-fractint-digest@lists.xmission.com (fractint-digest)
  2. To: fractint-digest@lists.xmission.com
  3. Subject: fractint-digest V1 #282
  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       Thursday, August 27 1998       Volume 01 : Number 282
  11.  
  12.  
  13.  
  14.  
  15. ----------------------------------------------------------------------
  16.  
  17. Date: Thu, 27 Aug 1998 07:41:30 -0400 (EDT)
  18. From: kragen@pobox.com (Kragen)
  19. Subject: Re: (fractint) Spam?
  20.  
  21. On Wed, 26 Aug 1998, Ray Montgomery wrote:
  22. >     Just read a posting from Damascena.  Maybe humorous, maybe not - 
  23. > but ended up as spam.  Am I wrong?
  24.  
  25. It would have been spam if Damascena had posted it in many places.  But
  26. it was certainly unsolicited advertising, and off-topic.
  27.  
  28. BTW: search the web for "filk" if you liked those songs, because there
  29. are thousands of others.  They were not written by the ad sponsors.
  30.  
  31. Kragen
  32.  
  33. - -- 
  34. <kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
  35. We are forming cells within a global brain and we are excited that we might
  36. start to think collectively.  What becomes of us still hangs crucially on
  37. how we think individually.  -- Tim Berners-Lee, inventor of the Web
  38.  
  39.  
  40. - --------------------------------------------------------------
  41. Thanks for using Fractint, The Fractals and Fractint Discussion List
  42. Post Message:   fractint@lists.xmission.com
  43. Get Commands:   majordomo@lists.xmission.com "help"
  44. Administrator:  twegner@phoenix.net
  45. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  46.  
  47. ------------------------------
  48.  
  49. Date: Thu, 27 Aug 1998 07:58:54 EDT
  50. From: JimBeau549@aol.com
  51. Subject: (fractint) another new page
  52.  
  53.   Here's another page I slapped together last night.  There's a total of 12
  54. images which are some favorites of mine that I have posted in AOL, 2 of which
  55. are 3D types that I couldn't post to the list as a parfile.  The page is very
  56. similiar to the one I made recently, and will be touched up in the near
  57. future, however...all the images can be viewed and downloaded as of now.
  58. Enjoy~
  59.      http://members.aol.com/jweaver285/page1.htm
  60.  
  61. Jim
  62.  
  63. - --------------------------------------------------------------
  64. Thanks for using Fractint, The Fractals and Fractint Discussion List
  65. Post Message:   fractint@lists.xmission.com
  66. Get Commands:   majordomo@lists.xmission.com "help"
  67. Administrator:  twegner@phoenix.net
  68. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  69.  
  70. ------------------------------
  71.  
  72. Date: Thu, 27 Aug 1998 16:05:27 +0200
  73. From: "Dean-Christian Strik" <cstrik.isg@hetnet.nl>
  74. Subject: (fractint) Speaking of spam...
  75.  
  76. Some of us (see below), for some reason got a 'message' which was REAL SPAM.
  77.  
  78. Does anyone have a clue where it comes from?
  79.  
  80. Christian
  81.  
  82. >>>>
  83. To: Angela Wilczynski <wizzle@beachnet.com>,
  84.         Anibal Valiente <anvaliente@hotmail.com>,
  85.         Barry Bluestein <barryblue@mindspring.com>,
  86.         Bob Margolis <rttyman@wwa.com>, "Damien M. Jones" <dmj@fractalus.com>,
  87.         Dean-Christian Strik <cstrik.isg@hetnet.nl>,
  88.         Derek Hasted <derek.hasted@btinternet.com>,
  89.         Elaina Tillinghast <juice@airmail.net>, Eva Jacsch <ej@magnet.at>,
  90.         Frederik Slijkerman <fjslman@wins.uva.nl>,
  91.         Hans Bomers <cubic@mediaport.org>, James Weaver <JimBeau549@aol.com>,
  92.         Kathy Drake <mcdp@juno.com>, Kathy Roth <kroth@well.com>,
  93.         Ken Childress <kchildre@uccs.jpl.nasa.gov>,
  94.         "Luc-AndrΘ Rey" <lrey@worldcom.ch>,
  95.         "Morgan L. Owens" <packrat@nznet.gen.nz>,
  96.         Sylvie Gallet <Sylvie_Gallet@compuserve.com>,
  97.         "W. Decker" <wdecker@csc.com>, William Decker <wdecker@csc.com>
  98.  
  99.  
  100.  
  101.  
  102.  
  103. - --------------------------------------------------------------
  104. Thanks for using Fractint, The Fractals and Fractint Discussion List
  105. Post Message:   fractint@lists.xmission.com
  106. Get Commands:   majordomo@lists.xmission.com "help"
  107. Administrator:  twegner@phoenix.net
  108. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  109.  
  110. ------------------------------
  111.  
  112. Date: Thu, 27 Aug 1998 10:10:33 -0400 (EDT)
  113. From: kragen@pobox.com (Kragen)
  114. Subject: Re: (fractint) Speaking of spam...
  115.  
  116. On Thu, 27 Aug 1998, Dean-Christian Strik wrote:
  117. > Some of us (see below), for some reason got a 'message' which was REAL SPAM.
  118. > Does anyone have a clue where it comes from?
  119.  
  120. No, but I think that if you forward me the full headers, I might have a
  121. better idea.  It's not your run-of-the-mill spamware.
  122.  
  123. Kragen
  124.  
  125. - -- 
  126. <kragen@pobox.com>       Kragen Sitaker     <http://www.pobox.com/~kragen/>
  127. We are forming cells within a global brain and we are excited that we might
  128. start to think collectively.  What becomes of us still hangs crucially on
  129. how we think individually.  -- Tim Berners-Lee, inventor of the Web
  130.  
  131.  
  132. - --------------------------------------------------------------
  133. Thanks for using Fractint, The Fractals and Fractint Discussion List
  134. Post Message:   fractint@lists.xmission.com
  135. Get Commands:   majordomo@lists.xmission.com "help"
  136. Administrator:  twegner@phoenix.net
  137. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  138.  
  139. ------------------------------
  140.  
  141. Date: Thu, 27 Aug 1998 10:30:31 -0400
  142. From: Sylvie Gallet <Sylvie_Gallet@compuserve.com>
  143. Subject: (fractint) Speaking of spam...
  144.  
  145. Christian,
  146.  
  147. >> Some of us (see below), for some reason got a 'message' which was
  148. >> REAL SPAM.
  149. >>
  150. >> Does anyone have a clue where it comes from?
  151.  
  152.   I haven't got spam for at least 4 days, probably because Compuserve's
  153. filter works fine!
  154.  
  155.         - Sylvie
  156.  
  157. - --------------------------------------------------------------
  158. Thanks for using Fractint, The Fractals and Fractint Discussion List
  159. Post Message:   fractint@lists.xmission.com
  160. Get Commands:   majordomo@lists.xmission.com "help"
  161. Administrator:  twegner@phoenix.net
  162. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  163.  
  164. ------------------------------
  165.  
  166. Date: Thu, 27 Aug 1998 11:54:15 -0500
  167. From: "Damien M. Jones" <dmj@fractalus.com>
  168. Subject: (fractint) Re: [fractal-art] Speaking of spam...
  169.  
  170. Christian,
  171.  
  172.  - Some of us (see below), for some reason got a 'message' which was REAL
  173.  - SPAM. Does anyone have a clue where it comes from?
  174.  
  175. Yes, one of the regular posters to alt.binaries.pictures.fractals sent out
  176. a "humor" message, but neglected to use blind carbon copies for the
  177. addresses, thus making all the addresses the message sent to visible.  One
  178. of the recipients then replied to the entire list of people with the bogus
  179. chain-email message.
  180.  
  181. Damien M. Jones   \\
  182. dmj@fractalus.com  \\  Fractalus Galleries & Info:
  183.                     \\  http://www.fractalus.com/
  184.  
  185. - --------------------------------------------------------------
  186. Thanks for using Fractint, The Fractals and Fractint Discussion List
  187. Post Message:   fractint@lists.xmission.com
  188. Get Commands:   majordomo@lists.xmission.com "help"
  189. Administrator:  twegner@phoenix.net
  190. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  191.  
  192. ------------------------------
  193.  
  194. Date: Fri, 28 Aug 1998 01:03:43 +0200
  195. From: "Dean-Christian Strik" <cstrik.isg@hetnet.nl>
  196. Subject: Re: (fractint) Speaking of spam...
  197.  
  198. Sylvie wrote:
  199.  
  200. >I haven't got spam for at least 4 days, probably because Compuserve's
  201. >filter works fine!
  202.  
  203.  
  204. I'm considering pobox (www.pobox.com) (Kragen has that). I believe it's $15 a
  205. year. It gives you at least 3 adresses@pobox.com, redirecting to your real
  206. e-mail address; $3/year for additional addresses. One month free trial. It
  207. offers similar filtering. Of course there are also free redirection services
  208. (like bigfoot), but I don't know if they support junkmail filtering.
  209.  
  210. Christian
  211.  
  212. PS. Why is your mail always via Blind.Copy.Receiver?
  213.  
  214.  
  215.  
  216.  
  217.  
  218.  
  219. - --------------------------------------------------------------
  220. Thanks for using Fractint, The Fractals and Fractint Discussion List
  221. Post Message:   fractint@lists.xmission.com
  222. Get Commands:   majordomo@lists.xmission.com "help"
  223. Administrator:  twegner@phoenix.net
  224. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  225.  
  226. ------------------------------
  227.  
  228. Date: Thu, 27 Aug 1998 16:34:17 -0700
  229. From: Ray Montgomery <elmont@cdsnet.net>
  230. Subject: (fractint) Re: DeCelle address
  231.  
  232.     Hi, Bob,
  233.  
  234.     Thanks for the posting.  It prompted me to go back and try again and was
  235. successful.  It must have been a problem with my browser.  Normally, to
  236. find such a problem, I would just look in a mirror to find the cause but
  237. this time I double and triple checked.
  238.     The end of it is that it was a worthwhile visit because I was very
  239. impressed with the images.
  240.     Thanks again.  Wish I was smart enough to understand the contents of the
  241. book you were writing about.  A hundred or so years ago I took an aptitude
  242. test and my rating in the math department went off the page - downward.
  243. Words, on the other hand, went off the page - upward.  So, I guess
  244. everything balances out.  (In its own peculiar way.)
  245.  
  246.             Regards            Ray
  247.  
  248.  
  249. - --------------------------------------------------------------
  250. Thanks for using Fractint, The Fractals and Fractint Discussion List
  251. Post Message:   fractint@lists.xmission.com
  252. Get Commands:   majordomo@lists.xmission.com "help"
  253. Administrator:  twegner@phoenix.net
  254. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  255.  
  256. ------------------------------
  257.  
  258. Date: Thu, 27 Aug 1998 19:38:54 -0400
  259. From: Sylvie Gallet <Sylvie_Gallet@compuserve.com>
  260. Subject: (fractint) Re: Speaking of spam...
  261.  
  262. Damien,
  263.  
  264. >> Yes, one of the regular posters to alt.binaries.pictures.fractals
  265. >> sent out a "humor" message, but neglected to use blind carbon copies
  266. >> for the addresses, thus making all the addresses the message sent to
  267. >> visible.
  268.  
  269.   Though my address is in the list, I haven't seen this message.  What wa=
  270. s
  271. it about?
  272.  
  273.   Cheers,
  274.  
  275.         - Sylvie
  276.  
  277. - --------------------------------------------------------------
  278. Thanks for using Fractint, The Fractals and Fractint Discussion List
  279. Post Message:   fractint@lists.xmission.com
  280. Get Commands:   majordomo@lists.xmission.com "help"
  281. Administrator:  twegner@phoenix.net
  282. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  283.  
  284. ------------------------------
  285.  
  286. Date: Thu, 27 Aug 1998 19:56:05 -0400
  287. From: Sylvie Gallet <Sylvie_Gallet@compuserve.com>
  288. Subject: Re: (fractint) Speaking of spam...
  289.  
  290. Christian,
  291.  
  292. >> PS. Why is your mail always via Blind.Copy.Receiver?
  293.  
  294.   I don't know!
  295.  
  296.         - Sylvie
  297.  
  298. - --------------------------------------------------------------
  299. Thanks for using Fractint, The Fractals and Fractint Discussion List
  300. Post Message:   fractint@lists.xmission.com
  301. Get Commands:   majordomo@lists.xmission.com "help"
  302. Administrator:  twegner@phoenix.net
  303. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  304.  
  305. ------------------------------
  306.  
  307. Date: Fri, 28 Aug 1998 11:57:51 +1200
  308. From: "Morgan L. Owens" <packrat@nznet.gen.nz>
  309. Subject: Re: (fractint) Re: [fractal-art] Speaking of spam...
  310.  
  311. At 11:54 27/08/98 -0500, you wrote:
  312. >Christian,
  313. >
  314. > - Some of us (see below), for some reason got a 'message' which was REAL
  315. > - SPAM. Does anyone have a clue where it comes from?
  316. >
  317. >Yes, one of the regular posters to alt.binaries.pictures.fractals sent out
  318. >a "humor" message, but neglected to use blind carbon copies for the
  319. >addresses, thus making all the addresses the message sent to visible.  One
  320. >of the recipients then replied to the entire list of people with the bogus
  321. >chain-email message.
  322. >
  323. My standard reaction to this kind of chain-email message is to inform the
  324. Federal Trade Commission and the United States Postal Inspection Service
  325. (and if claims of an inflated income are involved, the Inland Revenue
  326. Service).
  327.  
  328. Morgan L. "Havoc" Owens
  329.  
  330.  
  331. - --------------------------------------------------------------
  332. Thanks for using Fractint, The Fractals and Fractint Discussion List
  333. Post Message:   fractint@lists.xmission.com
  334. Get Commands:   majordomo@lists.xmission.com "help"
  335. Administrator:  twegner@phoenix.net
  336. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  337.  
  338. ------------------------------
  339.  
  340. Date: Thu, 27 Aug 1998 20:05:03 -0700
  341. From: Mark Christenson <mchris@hooked.net>
  342. Subject: Re: (fractint) Formula inclusion
  343.  
  344. At 05:10 PM 8/26/98 +1200, Morgan L. Owens wrote:
  345.  
  346. (regarding function calls / subroutines )
  347.  
  348. >The main disadvantage would basically be that it would make the language
  349. >more complex (especially since adding more extensive flow control support
  350. >would not be too far down the line then) and difficult to learn. But it
  351. >might be argued (mightn't it?) that the formula language's "flat" structure
  352. >is starting to become a drawback?
  353.  
  354. Definitely!  In addition to making code easier to re-use, subroutines would 
  355. also make code easier to read.  Folks could easily plug different coloring
  356. methods into their formulae, and, if more user controlled variables (or a way
  357. for the "x" screen to be made aware of embedded coloring methods) were
  358. made available, even change them "on the fly."  It would also address
  359. the needs of people with a primary interest, be it the basic mathematics,
  360. or the coloring method, or whatever.
  361.  
  362. I wouldn't be averse to the #include construct.  
  363.  
  364.  
  365. Bud
  366.  
  367.  
  368. - --------------------------------------------------------------
  369. Thanks for using Fractint, The Fractals and Fractint Discussion List
  370. Post Message:   fractint@lists.xmission.com
  371. Get Commands:   majordomo@lists.xmission.com "help"
  372. Administrator:  twegner@phoenix.net
  373. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  374.  
  375. ------------------------------
  376.  
  377. Date: Thu, 27 Aug 1998 21:24:36 -0700
  378. From: "Angela Wilczynski" <wizzle@beachnet.com>
  379. Subject: Re: (fractint) AGP video cards & 1600x1200
  380.  
  381. Sylvie...
  382.  
  383. I have the Millennium II (8 megs).....I'm fairly sure it has AGP....and
  384. 1600 x 1200 works just fine.
  385.  
  386. 'Angela
  387.  
  388. Sylvie Gallet wrote:
  389. > Hi All,
  390. >   I'm about to get a new system with either the ATI AGP Xpert Work (8 megs)
  391. > or the Millennium II AGP (8 megs): has anyone been able to use Fractint at
  392. > 1600x1200 with one of these cards?
  393. >   Cheers,
  394. >         - Sylvie
  395. > --------------------------------------------------------------
  396. > Thanks for using Fractint, The Fractals and Fractint Discussion List
  397. > Post Message:   fractint@lists.xmission.com
  398. > Get Commands:   majordomo@lists.xmission.com "help"
  399. > Administrator:  twegner@phoenix.net
  400. > Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  401.  
  402. - --------------------------------------------------------------
  403. Thanks for using Fractint, The Fractals and Fractint Discussion List
  404. Post Message:   fractint@lists.xmission.com
  405. Get Commands:   majordomo@lists.xmission.com "help"
  406. Administrator:  twegner@phoenix.net
  407. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  408.  
  409. ------------------------------
  410.  
  411. Date: Thu, 27 Aug 1998 21:32:21 -0700 (MST)
  412. From: Kerry Mitchell <lkmitch@primenet.com>
  413. Subject: (fractint) New coloring schemes
  414.  
  415. Just a heads up--the next 3 messages from me are 3 different coloring
  416. schemes.  They're all based on the same idea--watching the orbit for its
  417. closest approach to 2 curves.  The 3 cases are:  2 circles, 2 lines, and 1
  418. circle/1 line.  The narratives will all read the same, but they really are
  419. slightly different.  And, if you don't care about any of this, you now
  420. know that you can skip those posts are go on living a happy life!
  421.  
  422. - -------------------------------------------------------------------------------
  423. Kerry Mitchell
  424. lkmitch@primenet.com
  425. - -------------------------------------------------------------------------------
  426.  
  427.  
  428. - --------------------------------------------------------------
  429. Thanks for using Fractint, The Fractals and Fractint Discussion List
  430. Post Message:   fractint@lists.xmission.com
  431. Get Commands:   majordomo@lists.xmission.com "help"
  432. Administrator:  twegner@phoenix.net
  433. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  434.  
  435. ------------------------------
  436.  
  437. Date: Thu, 27 Aug 1998 21:33:23 -0700 (MST)
  438. From: Kerry Mitchell <lkmitch@primenet.com>
  439. Subject: (fractint) "2 circles" coloring scheme
  440.  
  441. comment { ; narrative copyright Kerry Mitchell 26aug98
  442.  
  443. 2 Circles Coloring Method
  444.  
  445. Several coloring schemes have been put together that color according 
  446. to the orbit's nearest approach to a specified point or curve.  This
  447. method extends that idea by coloring according to the orbit's nearest
  448. simultaneous approach to 2 specified circles.
  449.  
  450. A circle in the x-y plane can be specified by (x - xcenter)^2 +
  451. (y - ycenter)^2 = radius^2, where (xcenter, ycenter) is the coordinate 
  452. of the center of the circle, and radius is the circle's radius.  For
  453. complex numbers z = x+i*y, (and center = xcenter+i*ycenter)
  454.  
  455. f(z) = |z - center| - radius^2 (using Fractint's || convention)
  456.  
  457. is a real-valued function that gives the relationship of z to the 
  458. circle.  If f(z) < 0, then z is inside the circle.  A positive
  459. value of f(z) means that z is outside of the circle, and f=0 means 
  460. that z is on the circle.
  461.  
  462. Using 2 circles then results in 2 functions, fx(z) and fy(z).  One
  463. circle corresponds to fx, and the other to fy.  At each iteration,
  464. a new complex variable, w, can be defined as, w = fx(z)+i*fy(z).
  465. To check for the closest simultaneous approach of the orbit to both
  466. circles, it is sufficient to check for the smallest |w|.  This w is
  467. saved, and at the end of the iteration, "decomp=256" is used to color
  468. the pixel according to the polar angle of w.
  469.  
  470. In its most general form, this method requires 6 real parameters:  
  471. 2 each for the x- and y-coordinates of the centers of the circles,
  472. and 2 for the radii of the 2 circles.  For Mandelbrot implementation,
  473. this requires hardcoding the bailout value, which has been set to 
  474. 10^12.  For Julia implementations, the bailout is also hardcoded, but
  475. another 2 parameters are needed to specify the Julia parameter, c.
  476. The "general_jul" formula is written with a hardcoded value of c, to
  477. allow for the greatest flexibility in choosing circles.
  478.  
  479. A great deal of choice can still be allowed by only using 4 parameters
  480. to choose the circles, thereby freeing the other 2 for picking c.
  481. The "cenx=ceny_jul" method uses concentric circles (both having the 
  482. same center).  The radii of the circles are independently chosen.  
  483. A variation of this is the "cenx=-ceny_jul" formula, wherein the 
  484. centers of the circles are placed symmetrically with respect to the 
  485. origin of the complex plane.  Another variation uses the same radii
  486. for both circles, but different centers.  In "offset_rx=ry_jul", 
  487. this is accomplished by choosing a point on the plane.  One circle 
  488. is place a little outward of this point, and the other is a little
  489. inward of the chosen point.  The amount of shift along the radial
  490. line is 1 of the parameters.
  491.  
  492. Because of the wide variety of parameter settings, it's not possible
  493. to say what happens with the image as the circles are moved.  However,
  494. you'll get very different results if the circles don't intersect from
  495. when they do.  If they do intersect, you'll tend to see points in the
  496. image where all the colors come together (this corresponds to where
  497. the orbit found the intersection point).  Varied ribbon-like effects
  498. can be seen when the circles are very close to each other--either 
  499. concentric with slightly different radii, or offset by a small amount.
  500.  
  501. }
  502.  
  503. general_man { ; copyright Kerry Mitchell 26aug98
  504.   ;
  505.   ; sample for "2 general circles" coloring method
  506.   ;
  507.   reset=1960 type=formula formulafile=fractint.frm
  508.   formulaname=general_man passes=1 center-mag=-0.7/0/0.6\
  509.   /1/-90 params=-2/0/-2/0/1.95/2.05 float=y maxiter=256
  510.   inside=0 decomp=256 colors=zwj<2>zyvzzzxxz<13>SSzPPzOO\
  511.   w<14>000<15>zo0<14>zywzzzxxz<13>RRzPPzOOv<11>55B337223\
  512.   110<13>tj0xm0zo1<13>zxtzyxyyz<12>VVzTTzRRzPPyNNu<12>33\
  513.   6112220<14>yn0zo2<14>zyyyyz<13>SSzQQzOOx<14>111000<15>\
  514.   zo0<10>zvf cyclerange=0/255 periodicity=0
  515.   }
  516.  
  517. general_jul { ; copyright Kerry Mitchell 26aug98
  518.   ;
  519.   ; sample for "2 general circles" coloring method
  520.   ;
  521.   reset=1960 type=formula formulafile=fractint.frm
  522.   formulaname=general_jul passes=1 center-mag=0/0/0.6666667
  523.   params=-2/0/0/2/1.414/1.414 float=y maxiter=256 inside=0
  524.   decomp=256 periodicity=0 colors=540<27>xm0zo0zo1<29>zyxz\
  525.   zzyyz<29>RRzPPzPPy<30>000<30>yn0zo0zo2<29>zyyzzzyyz<29>Q\
  526.   QzPPzOOx<29>111000110330 cyclerange=0/255
  527.   }
  528.  
  529. concentric { ; copyright Kerry Mitchell 26aug98
  530.   ;
  531.   ; sample for "2 concentric circles" coloring method
  532.   ;
  533.   reset=1960 type=formula formulafile=fractint.frm
  534.   periodicity=0 formulaname=cenx=ceny_jul passes=1 center\
  535.   -mag=0/0/0.8 params=0/1/0/0/0.98/1.02 float=y maxiter=256
  536.   inside=0 decomp=256 colors=cX0<21>yn0zo0zo0zo1<61>zzzzzz\
  537.   yyz<60>QQzPPzPPzPPy<61>000000110<37>bW0 cyclerange=0/255
  538.   }
  539.  
  540. opposing { ; copyright Kerry Mitchell 26aug98
  541.   ;
  542.   ; sample for "2 opposing circles" coloring method
  543.   ;
  544.   reset=1960 type=formula formulafile=fractint.frm
  545.   formulaname=cenx=-ceny_jul passes=1 center-mag=0/0/0.8
  546.   params=-0.779702280199264/0.1503397589375293/0/1/1/1
  547.   float=y maxiter=256 inside=0 decomp=256 periodicity=0
  548.   cyclerange=0/255 colors=000<15>zo0<14>zyvzzzxxz<13>SSzP\
  549.   PzOOw<14>000<15>zo0<14>zywzzzxxz<13>RRzPPzOOv<11>55B337\
  550.   223110<13>tj0xm0zo1<13>zxtzyxyyz<12>VVzTTzRRzPPyNNu<12>\
  551.   336112220<14>yn0zo2<14>zyyyyz<13>SSzQQzOOx<14>111
  552.   }
  553.  
  554. offset { ; copyright Kerry Mitchell 26aug98
  555.   ;
  556.   ; sample for "2 offset circles" coloring method
  557.   ;
  558.   reset=1960 type=formula formulafile=fractint.frm
  559.   periodicity=0 formulaname=offset_rx=ry_jul center-mag=0\
  560.   /0/0.6666667 params=0.39/0.44/1/0/1/0.1 float=y maxiter=256
  561.   inside=0 decomp=256 colors=xm0zo0<30>zyxzzzyyz<29>RRzPPzP\
  562.   Py<30>000<30>yn0zo0zo2<29>zyyzzzyyz<29>QQzPPzOOx<29>11100\
  563.   0110<28>vk0 cyclerange=0/255 passes=1
  564.   }
  565.  
  566. frm:general_man { ; Kerry Mitchell 26aug98 
  567.     ;
  568.     ; "2 general circles" coloring method for Mandelbrot
  569.     ; c = pixel = Mandelbrot parameter
  570.         ; p1 = x-circle center
  571.         ; p2 = y-circle center
  572.         ; real(p3) = x-circle radius
  573.         ; imag(p3) = y-circle radius
  574.     ; bailout hardcoded to 10^12
  575.     ; use "decomp=256" coloring
  576.     ;
  577.         c=pixel, zc=0, bailout=1e12, iter=1, rmin=1e12
  578.         cenx=p1, radx=real(p3), rad2x=radx*radx
  579.         ceny=p2, rady=imag(p3), rad2y=rady*rady:
  580.         iter=iter+1, zc=sqr(zc)+c
  581.         tempx=|zc-cenx|-rad2x
  582.         tempy=|zc-ceny|-rad2y
  583.         temp=tempx+flip(tempy), r=|temp|
  584.         if (r<rmin)
  585.           rmin=r, z=temp
  586.           endif
  587.         if ((|zc|>bailout)||(iter==maxit))
  588.           iter=-1
  589.           endif
  590.         iter>0
  591.         }
  592.  
  593. frm:general_jul { ; Kerry Mitchell 26aug98
  594.     ;
  595.     ; "2 general circles" coloring method for Julia sets
  596.     ; c = Julia parameter, hardcoded
  597.         ; p1 = x-circle center
  598.         ; p2 = y-circle center
  599.         ; real(p3) = x-circle radius
  600.         ; imag(p3) = y-circle radius
  601.     ; bailout hardcoded to 10^12
  602.     ; use "decomp=256" coloring
  603.     ;
  604.         zc=pixel, c=(0.39,0.44), bailout=1e12, iter=1, rmin=1e12
  605.         cenx=p1, radx=real(p3), rad2x=radx*radx
  606.         ceny=p2, rady=imag(p3), rad2y=rady*rady:
  607.         iter=iter+1, zc=sqr(zc)+c
  608.         tempx=|zc-cenx|-rad2x
  609.         tempy=|zc-ceny|-rad2y
  610.         temp=tempx+flip(tempy), r=|temp|
  611.         if (r<rmin)
  612.           rmin=r, z=temp
  613.           endif
  614.         if ((|zc|>bailout)||(iter==maxit))
  615.           iter=-1
  616.           endif
  617.         iter>0
  618.         }
  619.  
  620. frm:cenx=ceny_jul { ; Kerry Mitchell 26aug98
  621.     ;
  622.     ; "2 concentric circles" coloring method for Julia sets
  623.     ; p1 = c = Julia parameter
  624.     ; p2 = (both) circle center
  625.         ; real(p3) = x-circle radius
  626.         ; imag(p3) = y-circle radius
  627.     ; bailout hardcoded to 10^12
  628.     ; use "decomp=256" coloring
  629.     ;
  630.         zc=pixel, c=p1, bailout=1e12, iter=1, rmin=1e12
  631.         cenx=p2, radx=real(p3), rad2x=radx*radx
  632.         ceny=cenx, rady=imag(p3), rad2y=rady*rady:
  633.         iter=iter+1, zc=sqr(zc)+c
  634.         tempx=|zc-cenx|-rad2x
  635.         tempy=|zc-ceny|-rad2y
  636.         temp=tempx+flip(tempy), r=|temp|
  637.         if (r<rmin)
  638.           rmin=r, z=temp
  639.           endif
  640.         if ((|zc|>bailout)||(iter==maxit))
  641.           iter=-1
  642.           endif
  643.         iter>0
  644.         }
  645.  
  646. frm:cenx=-ceny_jul { ; Kerry Mitchell 26aug98
  647.     ;
  648.     ; "2 opposing circles" coloring method for Julia sets
  649.     ; p1 = c = Julia parameter
  650.         ; p2 = x-circle center
  651.         ; -p2 = y-circle center
  652.         ; real(p3) = x-circle radius
  653.         ; imag(p3) = y-circle radius
  654.     ; bailout hardcoded to 10^12
  655.     ; use "decomp=256" coloring
  656.     ;
  657.         zc=pixel, c=p1, bailout=1e12, iter=1, rmin=1e12
  658.         cenx=p2, radx=real(p3), rad2x=radx*radx
  659.         ceny=-cenx, rady=imag(p3), rad2y=rady*rady:
  660.         iter=iter+1, zc=sqr(zc)+c
  661.         tempx=|zc-cenx|-rad2x
  662.         tempy=|zc-ceny|-rad2y
  663.         temp=tempx+flip(tempy), r=|temp|
  664.         if (r<rmin)
  665.           rmin=r, z=temp
  666.           endif
  667.         if ((|zc|>bailout)||(iter==maxit))
  668.           iter=-1
  669.           endif
  670.         iter>0
  671.         }
  672.  
  673. frm:offset_rx=ry_jul { ; Kerry Mitchell 26aug98
  674.     ;
  675.     ; "2 offset circles" coloring method for Julia sets
  676.     ; p1 = c = Julia parameter
  677.     ; p2 = approximate circle center
  678.     ; real(p3) = (both) circle radius
  679.     ; imag(p3) = center offsets--added to p2 for
  680.     ;   centerx, subtracted from p2 for centery
  681.     ; bailout hardcoded to 10^12
  682.     ; use "decomp=256" coloring
  683.     ;
  684.         zc=pixel, c=p1, bailout=1e12, iter=1, rmin=1e12
  685.         cenx=p2*(1+imag(p3)), radx=real(p3), rad2x=radx*radx
  686.         ceny=p2*(1-imag(p3)), rad2y=rad2x:
  687.         iter=iter+1, zc=sqr(zc)+c
  688.         tempx=|zc-cenx|-rad2x
  689.         tempy=|zc-ceny|-rad2y
  690.         temp=tempx+flip(tempy), r=|temp|
  691.         if (r<rmin)
  692.           rmin=r, z=temp
  693.           endif
  694.         if ((|zc|>bailout)||(iter==maxit))
  695.           iter=-1
  696.           endif
  697.         iter>0
  698.         }
  699.  
  700.  
  701.  
  702. - --------------------------------------------------------------
  703. Thanks for using Fractint, The Fractals and Fractint Discussion List
  704. Post Message:   fractint@lists.xmission.com
  705. Get Commands:   majordomo@lists.xmission.com "help"
  706. Administrator:  twegner@phoenix.net
  707. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  708.  
  709. ------------------------------
  710.  
  711. Date: Thu, 27 Aug 1998 21:33:57 -0700 (MST)
  712. From: Kerry Mitchell <lkmitch@primenet.com>
  713. Subject: (fractint) "2 lines" coloring method
  714.  
  715. comment { ; narrative copyright Kerry Mitchell 26aug98
  716.  
  717. 2 Lines Coloring Method
  718.  
  719. Several coloring schemes have been put together that color according 
  720. to the orbit's nearest approach to a specified point or curve.  This
  721. method extends that idea by coloring according to the orbit's nearest
  722. simultaneous approach to 2 specified lines.
  723.  
  724. A line in the x-y plane can be specified by the standard form: a*x +
  725. b*y + c = 0, where the slope of the line = -a/b (when b=0, the line is
  726. vertical).  For complex numbers z = x+i*y, then function
  727.  
  728. f(z) = a*real(z) + b*imag(z) + c
  729.  
  730. is a real-valued function that gives the relationship of z to the 
  731. line.  If f(z) < 0, then z is on one side of the line, and if f(z) > 0,
  732. z is on the other side.  If f=0, then z is on the line.
  733.  
  734. Using 2 lines then results in 2 functions, fx(z) and fy(z).  One line
  735. corresponds to fx, and the other to fy.  At each iteration, a new complex
  736. variable, w, can be defined as, w = fx(z)+i*fy(z).  To check for the
  737. closest simultaneous approach of the orbit to both lines, it is
  738. sufficient to check for the smallest |w|.  This w is saved, and at the
  739. end of the iteration, "decomp=256" is used to color the pixel according
  740. to the polar angle of w.
  741.  
  742. In its most general form, this method requires 6 real parameters:  
  743. 3 (a, b, c) for each line.  For Mandelbrot implementation, this requires
  744. hardcoding the bailout value, which has been set to 10^12.  For Julia
  745. implementations, the bailout is also hardcoded, but another 2 parameters
  746. are needed to specify the Julia parameter, c.  The "general_jul" formula
  747. is written with a hardcoded value of c, to allow for the greatest
  748. flexibility in choosing lines.
  749.  
  750. A great deal of choice can still be allowed by only using 4 parameters
  751. to choose the lines, thereby freeing the other 2 for picking c.
  752. The "parallel_jul" method uses parallel lines.  A variation of this is
  753. the "orthogonal_jul" formula, wherein the lines meet at right angles.
  754. Another variation uses the opposite slopes for the 2 lines.  For example,
  755. if one line forms a 30 degree angle with the real axis, then the other
  756. line would make a -30 degree angle.
  757.  
  758. Because of the wide variety of parameter settings, it's not possible
  759. to say what happens with the image as the lines are moved.  However,
  760. you'll get very different results if the lines don't intersect from
  761. when they do.  If they do intersect, you'll tend to see points in the
  762. image where all the colors come together (this corresponds to where
  763. the orbit found the intersection point).  Varied ribbon-like effects
  764. can be seen when the lines are very close to each other--either 
  765. parallel with a small gap between them, or with slightly different slopes.
  766.  
  767. }
  768.  
  769. general_man { ; copyright Kerry Mitchell 26aug98
  770.   ;
  771.   ; sample for "2 general lines" coloring method
  772.   ;
  773.   reset=1960 type=formula formulafile=fractint.frm periodicity=0
  774.   formulaname=general_man passes=1 center-mag=-0.73/0/0.74/1/-90
  775.   params=1/0/0.75/0/1/0 float=y maxiter=256 inside=0 decomp=256
  776.   colors=000<30>x0mz0oz1o<29>zxyzzzyzy<29>RzRPzPPyP<30>000<30>\
  777.   y0nz0oz2o<29>zyyzzzyzy<29>QzQPzPOxO<29>111 cyclerange=0/255
  778.   }
  779.  
  780. general_jul { ; copyright Kerry Mitchell 26aug98
  781.   ;
  782.   ; sample for "2 general lines" coloring method
  783.   ;
  784.   reset=1960 type=formula formulafile=fractint.frm periodicity=0
  785.   formulaname=general_jul passes=1 center-mag=0/0/0.75/1/-12.5
  786.   params=1/0/2/0/1/1.5 float=y maxiter=2000 inside=0 decomp=256
  787.   colors=DVD<14>111000101<29>x0mz0oz1o<29>zxyzzzyzy<29>RzRPzPP\
  788.   yP<30>000<30>y0nz0oz2o<29>zyyzzzyzy<29>QzQPzPOxO<13>DXD
  789.   }
  790.  
  791. parallel { ; copyright Kerry Mitchell 26aug98
  792.   ;
  793.   ; sample for "2 parallel lines" coloring method
  794.   ;
  795.   reset=1960 type=formula formulafile=fractint.frm decomp=256
  796.   periodicity=0 formulaname=parallel_jul passes=1 center-mag\
  797.   =0/0/0.8/1/-7.5 params=0.39/0.44/2.64/-1/0.1/-0.1 float=y
  798.   maxiter=256 inside=0 colors=c0X<10>y0nz0oz2o<29>zyyzzzyzy\
  799.   <29>QzQPzPOxO<29>111000101<29>x0mz0oz1o<29>zxyzzzyzy<29>R\
  800.   zRPzPPyP<30>000<18>a0V cyclerange=0/255
  801.   }
  802.  
  803. orthogonal { ; copyright Kerry Mitchell 26aug98
  804.   ;
  805.   ; sample for "2 orthogonal lines" coloring method
  806.   ;
  807.   reset=1960 type=formula formulafile=fractint.frm
  808.   formulaname=orthogonal_jul passes=1 center-mag=0/0/0.8
  809.   params=-0.779702280199264/0.1503397589375293/1/2/1/2 float=y
  810.   maxiter=256 inside=0 decomp=256 periodicity=0 colors=HeH<20>\
  811.   000<30>y0nz0oz2o<29>zyyzzzyzy<29>QzQPzPOxO<29>111000101<29\
  812.   >x0mz0oz1o<29>zxyzzzyzy<29>RzRPzPPyP<8>IgI cyclerange=0/255
  813.   }
  814.  
  815. opposite { ; copyright Kerry Mitchell 26aug98
  816.   ;
  817.   ; sample for "2 lines with opposite angles" coloring method
  818.   ;
  819.   reset=1960 type=formula formulafile=fractint.frm cyclerange=0/255
  820.   formulaname=oppangle_jul passes=1 center-mag=0/0/0.6666667
  821.   params=-0.0573720519293145/0.6691939992424446/3/1/0/0 float=y
  822.   maxiter=2000 inside=0 decomp=256 periodicity=0 colors=`z`<18>\
  823.   QzQPzPPzPPyP<61>000000101<60>y0nz0oz0oz1o<61>zzzzzzyzy<40>aza
  824.   }
  825.  
  826. frm:general_man {
  827.     ;
  828.         ; "2 general lines" coloring method for Mandelbrot
  829.     ; c = pixel = Mandelbrot parameter
  830.         ; real(p1) = x-line a
  831.         ; imag(p1) = x-line b
  832.         ; real(p2) = x-line c
  833.         ; imag(p2) = y-line a
  834.         ; real(p3) = y-line b
  835.         ; imag(p3) = y-line c
  836.     ; bailout hardcoded to 10^12
  837.     ; use "decomp=256" coloring
  838.     ;
  839.         c=pixel, zc=0, bailout=1e12, iter=1, rmin=1e12
  840.         ax=real(p1), bx=imag(p1), cx=real(p2)
  841.         ay=imag(p2), by=real(p3), cy=imag(p3):
  842.         iter=iter+1, zc=sqr(zc)+c
  843.         x=real(zc), y=imag(zc)
  844.         tempx=ax*x+bx*y+cx
  845.         tempy=ay*x+by*y+cy
  846.         temp=tempx+flip(tempy), r=|temp|
  847.         if (r<rmin)
  848.           rmin=r, z=temp
  849.           endif
  850.         if ((|zc|>bailout)||(iter==maxit))
  851.           iter=-1
  852.           endif
  853.         iter>0
  854.         }
  855.  
  856. frm:general_jul {
  857.     ;
  858.         ; "2 general lines" coloring method for Julia sets
  859.         ; c = Julia parameter, hardcoded
  860.         ; real(p1) = x-line a
  861.         ; imag(p1) = x-line b
  862.         ; real(p2) = x-line c
  863.         ; imag(p2) = y-line a
  864.         ; real(p3) = y-line b
  865.         ; imag(p3) = y-line c
  866.     ; bailout hardcoded to 10^12
  867.     ; use "decomp=256" coloring
  868.     ;
  869.         zc=pixel, c=(.26,.0014), bailout=1e12, iter=1, rmin=1e12
  870.         ax=real(p1), bx=imag(p1), cx=real(p2)
  871.         ay=imag(p2), by=real(p3), cy=imag(p3):
  872.         iter=iter+1, zc=sqr(zc)+c
  873.         x=real(zc), y=imag(zc)
  874.         tempx=ax*x+bx*y+cx
  875.         tempy=ay*x+by*y+cy
  876.         temp=tempx+flip(tempy), r=|temp|
  877.         if (r<rmin)
  878.           rmin=r, z=temp
  879.           endif
  880.         if ((|zc|>bailout)||(iter==maxit))
  881.           iter=-1
  882.           endif
  883.         iter>0
  884.         }
  885.  
  886. frm:parallel_jul {
  887.     ;
  888.         ; "2 parallel lines" coloring method for Julia sets
  889.         ; p1 = c = Julia parameter
  890.         ; real(p2) = x-line a = y-line a
  891.         ; imag(p2) = x-line b = y-line b
  892.         ; real(p3) = x-line c
  893.         ; imag(p3) = y-line c
  894.     ; bailout hardcoded to 10^12
  895.     ; use "decomp=256" coloring
  896.     ;
  897.         zc=pixel, c=p1, bailout=1e12, iter=1, rmin=1e12
  898.         ax=real(p2), bx=imag(p2), cx=real(p3)
  899.         ay=ax, by=bx, cy=imag(p3):
  900.         iter=iter+1, zc=sqr(zc)+c
  901.         x=real(zc), y=imag(zc)
  902.         tempx=ax*x+bx*y+cx
  903.         tempy=ay*x+by*y+cy
  904.         temp=tempx+flip(tempy), r=|temp|
  905.         if (r<rmin)
  906.           rmin=r, z=temp
  907.           endif
  908.         if ((|zc|>bailout)||(iter==maxit))
  909.           iter=-1
  910.           endif
  911.         iter>0
  912.         }
  913.  
  914. frm:orthogonal_jul {
  915.     ;
  916.         ; "2 orthogonal lines" coloring method for Julia sets
  917.         ; p1 = c = Julia parameter
  918.         ; real(p2) = x-line a = negative of y-line b
  919.         ; imag(p2) = x-line b = negative of y-line a
  920.         ; real(p3) = x-line c
  921.         ; imag(p3) = y-line c
  922.     ; bailout hardcoded to 10^12
  923.     ; use "decomp=256" coloring
  924.     ;
  925.         zc=pixel, c=p1, bailout=1e12, iter=1, rmin=1e12
  926.         ax=real(p2), bx=imag(p2), cx=real(p3)
  927.         ay=bx, by=-ax, cy=imag(p3):
  928.         iter=iter+1, zc=sqr(zc)+c
  929.         x=real(zc), y=imag(zc)
  930.         tempx=ax*x+bx*y+cx
  931.         tempy=ay*x+by*y+cy
  932.         temp=tempx+flip(tempy), r=|temp|
  933.         if (r<rmin)
  934.           rmin=r, z=temp
  935.           endif
  936.         if ((|zc|>bailout)||(iter==maxit))
  937.           iter=-1
  938.           endif
  939.         iter>0
  940.         }
  941.  
  942. frm:oppangle_jul {
  943.     ;
  944.         ; "2 opposing lines" coloring method for Julia sets
  945.         ; p1 = c = Julia parameter
  946.         ; real(p2) = x-line a = y-line a
  947.         ; imag(p2) = x-line b = negative of y-line b
  948.         ; real(p3) = x-line c
  949.         ; imag(p3) = y-line c
  950.     ; bailout hardcoded to 10^12
  951.     ; use "decomp=256" coloring
  952.     ;
  953.         zc=pixel, c=p1, bailout=1e12, iter=1, rmin=1e12
  954.         ax=real(p2), bx=imag(p2), cx=real(p3)
  955.         ay=ax, by=-bx, cy=imag(p3):
  956.         iter=iter+1, zc=sqr(zc)+c
  957.         x=real(zc), y=imag(zc)
  958.         tempx=ax*x+bx*y+cx
  959.         tempy=ay*x+by*y+cy
  960.         temp=tempx+flip(tempy), r=|temp|
  961.         if (r<rmin)
  962.           rmin=r, z=temp
  963.           endif
  964.         if ((|zc|>bailout)||(iter==maxit))
  965.           iter=-1
  966.           endif
  967.         iter>0
  968.         }
  969.  
  970.  
  971.  
  972. - --------------------------------------------------------------
  973. Thanks for using Fractint, The Fractals and Fractint Discussion List
  974. Post Message:   fractint@lists.xmission.com
  975. Get Commands:   majordomo@lists.xmission.com "help"
  976. Administrator:  twegner@phoenix.net
  977. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  978.  
  979. ------------------------------
  980.  
  981. Date: Thu, 27 Aug 1998 21:34:47 -0700 (MST)
  982. From: Kerry Mitchell <lkmitch@primenet.com>
  983. Subject: (fractint) "circle & line" coloring method
  984.  
  985. comment { ; narrative copyright Kerry Mitchell 26aug98
  986.  
  987. Circle & Line Coloring Method
  988.  
  989. Several coloring schemes have been put together that color according 
  990. to the orbit's nearest approach to a specified point or curve.  This
  991. method extends that idea by coloring according to the orbit's nearest
  992. simultaneous approach to a circle and a line.
  993.  
  994. A circle in the x-y plane can be specified by (x - xcenter)^2 +
  995. (y - ycenter)^2 = radius^2, where (xcenter, ycenter) is the coordinate 
  996. of the center of the circle, and radius is the circle's radius.  For
  997. complex numbers z = x+i*y, (and center = xcenter+i*ycenter)
  998.  
  999. f(z) = |z - center| - radius^2 (using Fractint's || convention)
  1000.  
  1001. is a real-valued function that gives the relationship of z to the 
  1002. circle.  If f(z) < 0, then z is inside the circle.  A positive
  1003. value of f(z) means that z is outside of the circle, and f=0 means 
  1004. that z is on the circle.
  1005.  
  1006. A line in the x-y plane can be specified by the standard form: a*x +
  1007. b*y + c = 0, where the slope of the line = -a/b (when b=0, the line is
  1008. vertical).  For complex numbers z = x+i*y, then function
  1009.  
  1010. f(z) = a*real(z) + b*imag(z) + c
  1011.  
  1012. is a real-valued function that gives the relationship of z to the 
  1013. line.  If f(z) < 0, then z is on one side of the line, and if f(z) > 0,
  1014. z is on the other side.  If f=0, then z is on the line.
  1015.  
  1016. Using both a circle and a line then results in 2 functions, fx(z) and
  1017. fy(z).  The circle corresponds to fx, and the line to fy.  At each
  1018. iteration, a new complex variable, w, can be defined as, w = fx(z) +
  1019. i*fy(z).  To check for the closest simultaneous approach of the orbit
  1020. to both curves, it is sufficient to check for the smallest |w|.  This
  1021. w is saved, and at the end of the iteration, "decomp=256" is used to
  1022. color the pixel according to the polar angle of w.
  1023.  
  1024. In its most general form, this method requires 6 real parameters:  
  1025. 2 for the x- and y-coordinates of the center of the circles and 1 for
  1026. its radius, and 3 (a, b, c) for the line.  For Mandelbrot implementation,
  1027. this requires hardcoding the bailout value, which has been set to 
  1028. 10^12.  For Julia implementations, the bailout is also hardcoded, but
  1029. another 2 parameters are needed to specify the Julia parameter, c.
  1030. The "general_jul" formula is written with a hardcoded value of c, to
  1031. allow for the greatest flexibility in choosing the circle and line.
  1032.  
  1033. A great deal of choice can still be allowed by only using 4 parameters
  1034. to choose the curves, thereby freeing the other 2 for picking c.
  1035. The "center_jul" formula uses a diametric line through the center of
  1036. the circle.  The radius of the circle and the slope of the line are
  1037. independently chosen.  A variation of this is the "tangent_jul"
  1038. formula, wherein the line is tangent to the circle.  The point of
  1039. tangency is at a specified angle on the circle.  Another variation is
  1040. the "offset_jul" formula.  This is similar to the tangent formula, but
  1041. the line is offset from the circle by the amount of the radius.
  1042.  
  1043. Because of the wide variety of parameter settings, it's not possible
  1044. to say what happens with the image as the curves are moved.  However,
  1045. you'll get very different results if they don't intersect from when
  1046. they do.  If they do intersect, you'll tend to see points in the
  1047. image where all the colors come together (this corresponds to where
  1048. the orbit found the intersection point).
  1049.  
  1050. }
  1051.  
  1052. general_man-1 { ; copyright Kerry Mitchell 26aug98
  1053.   ;
  1054.   ; sample for "general circle & line" coloring method
  1055.   ;
  1056.   reset=1960 type=formula formulafile=fractint.frm
  1057.   formulaname=general_man passes=1 center-mag=-0.3/0/0.7
  1058.   params=1/1/2/0/1/1 float=y maxiter=256 inside=0
  1059.   decomp=256 colors=000<61>y99zAAzAAzBB<61>zzzzzzzyz<60>\
  1060.   i1ih0hh0hg0g<61>000 cyclerange=0/255 periodicity=0
  1061.   }
  1062.  
  1063. general_man-2 { ; copyright Kerry Mitchell 26aug98
  1064.   ;
  1065.   ; sample for "general circle & line" coloring method
  1066.   ;
  1067.   reset=1960 type=formula formulafile=fractint.frm
  1068.   periodicity=0 formulaname=general_man center-mag=-0.6\
  1069.   66667/0/0.7/1/-90 params=-1/0/0.25/0/1/0 float=y
  1070.   maxiter=256 inside=0 decomp=256 colors=000<30>y99zAAz\
  1071.   CC<30>zzz<30>i1ih0hf0f<28>303101100<29>x99zAAzBB<30\
  1072.   >zzz<30>i2ih0hg0g<30>000 cyclerange=0/255 passes=1
  1073.   }
  1074.  
  1075. general_jul { ; copyright Kerry Mitchell 26aug98
  1076.   ;
  1077.   ; sample for "general circle & line" coloring method
  1078.   ;
  1079.   reset=1960 type=formula formulafile=fractint.frm
  1080.   formulaname=general_jul passes=1 center-mag=0/0/0.75/1/5
  1081.   periodicity=0 params=-2/0/3/1/0/4 float=y maxiter=256
  1082.   inside=0 decomp=256 colors=f0f<28>202000000<30>y99zAAzCC\
  1083.   <30>zzz<30>i1ih0hf0f<28>303101100<29>x99zAAzBB<30>zzz<30>\
  1084.   i2ih0hg0g cyclerange=0/255
  1085.   }
  1086.  
  1087. center { ; copyright Kerry Mitchell 26aug98
  1088.   ;
  1089.   ; sample for "circle & diameter line" coloring method
  1090.   ;
  1091.   reset=1960 type=formula formulafile=fractint.frm
  1092.   formulaname=center_jul passes=1 center-mag=0/0/0.813\
  1093.   /1/-7.5 params=0.39/0.44/0.39/0.44/0.45/53.9125 float=y
  1094.   maxiter=256 inside=0 decomp=256 periodicity=0 cyclerange=0/255
  1095.   colors=000<61>y99zAAzAAzBB<61>zzzzzzzyz<60>i1ih0hh0hg0g<61>000
  1096.   }
  1097.  
  1098. tangent { ; copyright Kerry Mitchell 26aug98
  1099.   ;
  1100.   ; sample for "circle & tangent line" coloring method
  1101.   ;
  1102.   reset=1960 type=formula formulafile=fractint.frm
  1103.   periodicity=0 formulaname=tangent_jul passes=1 center-\
  1104.   mag=0/0/1/1/90 params=0.26/0/0/0/0.2/45 float=y maxiter=1000
  1105.   inside=0 decomp=256 colors=U0U<9>202200<14>y99<15>zyyzxz<13>\
  1106.   j5ji1if0f<14>101300<14>zAA<15>zzz<15>h0h<14>303000000<15>zAA\
  1107.   <15>zzz<14>i3ih0he0e<11>808505303100<13>t99x99zBB<13>zuuzxxz\
  1108.   yz<13>j6ji2ig0g<3>X0X cyclerange=0/255
  1109.   }
  1110.  
  1111. offset { ; copyright Kerry Mitchell 26aug98
  1112.   ;
  1113.   ; sample for "circle & offset line" coloring method
  1114.   ;
  1115.   reset=1960 type=formula formulafile=fractint.frm
  1116.   formulaname=offset_jul passes=1 center-mag=0/0/0.8
  1117.   params=-0.778/0.201/-2/0/1/90 float=y maxiter=256
  1118.   inside=0 decomp=256 periodicity=0 colors=303000000<15>\
  1119.   zAA<15>zzz<14>i3ih0he0e<11>808505303100<13>t99x99zBB\
  1120.   <13>zuuzxxzyz<13>j6ji2ig0g<14>202200<14>y99<15>zyyzxz\
  1121.   <13>j5ji1if0f<14>101300<14>zAA<15>zzz<15>h0h<13>606
  1122.   }
  1123.  
  1124. frm:general_man {
  1125.     ;
  1126.         ; "general circle & line" coloring method for Mandelbrot
  1127.     ; c = pixel = Mandelbrot parameter
  1128.         ; p1 = x-circle center
  1129.         ; real(p2) = x-circle radius
  1130.         ; imag(p2) = y-line a
  1131.         ; real(p3) = y-line b
  1132.         ; imag(p3) = y-line c
  1133.     ; bailout hardcoded to 10^12
  1134.     ; use "decomp=256" coloring
  1135.     ;
  1136.         c=pixel, zc=0, bailout=1e12, iter=1, rmin=1e12
  1137.         cenx=p1, radx=real(p2), rad2x=radx*radx
  1138.         ay=imag(p2), by=real(p3), cy=imag(p3):
  1139.         iter=iter+1, zc=sqr(zc)+c
  1140.         tempx=|zc-cenx|-rad2x
  1141.         tempy=ay*real(zc)+by*imag(zc)+cy
  1142.         temp=tempx+flip(tempy), r=|temp|
  1143.         if (r<rmin)
  1144.           rmin=r, z=temp
  1145.           endif
  1146.         if ((|zc|>bailout)||(iter==maxit))
  1147.           iter=-1
  1148.           endif
  1149.         iter>0
  1150.         }
  1151.  
  1152. frm:general_jul {
  1153.     ;
  1154.         ; "general circle & line" coloring method for Julia sets
  1155.         ; c = Julia parameter, hardcoded
  1156.         ; p1 = x-circle center
  1157.         ; real(p2) = x-circle radius
  1158.         ; imag(p2) = y-line a
  1159.         ; real(p3) = y-line b
  1160.         ; imag(p3) = y-line c
  1161.     ; bailout hardcoded to 10^12
  1162.     ; use "decomp=256" coloring
  1163.     ;
  1164.         zc=pixel, c=(0,1), bailout=1e12, iter=1, rmin=1e12
  1165.         cenx=p1, radx=real(p2), rad2x=radx*radx
  1166.         ay=imag(p2), by=real(p3), cy=imag(p3):
  1167.         iter=iter+1, zc=sqr(zc)+c
  1168.         tempx=|zc-cenx|-rad2x
  1169.         tempy=ay*real(zc)+by*imag(zc)+cy
  1170.         temp=tempx+flip(tempy), r=|temp|
  1171.         if (r<rmin)
  1172.           rmin=r, z=temp
  1173.           endif
  1174.         if ((|zc|>bailout)||(iter==maxit))
  1175.           iter=-1
  1176.           endif
  1177.         iter>0
  1178.         }
  1179.  
  1180. frm:center_jul {
  1181.     ;
  1182.         ; "circle & line thru center" coloring method for Julia sets
  1183.         ; p1 = c = Julia parameter
  1184.         ; p2 = x-circle center
  1185.         ; real(p3) = x-circle radius
  1186.         ; imag(p3) = y-line slope angle, degrees
  1187.     ; bailout hardcoded to 10^12
  1188.     ; use "decomp=256" coloring
  1189.     ;
  1190.         zc=pixel, c=p1, bailout=1e12, iter=1, rmin=1e12
  1191.         cenx=p2, radx=real(p3), rad2x=radx*radx
  1192.         theta=imag(p3)*pi/180, ct=cos(theta), st=sin(theta)
  1193.         ay=-st, by=ct, cy=-ct*imag(cenx)+st*real(cenx):
  1194.         iter=iter+1, zc=sqr(zc)+c
  1195.         tempx=|zc-cenx|-rad2x
  1196.         tempy=ay*real(zc)+by*imag(zc)+cy
  1197.         temp=tempx+flip(tempy), r=|temp|
  1198.         if (r<rmin)
  1199.           rmin=r, z=temp
  1200.           endif
  1201.         if ((|zc|>bailout)||(iter==maxit))
  1202.           iter=-1
  1203.           endif
  1204.         iter>0
  1205.         }
  1206.  
  1207. frm:tangent_jul {
  1208.     ;
  1209.         ; "circle & tangent line" coloring method for Julia sets
  1210.         ; p1 = c = Julia parameter
  1211.         ; p2 = x-circle center
  1212.         ; real(p3) = x-circle radius
  1213.         ; imag(p3) = angle of line from circle center to tangent
  1214.         ;    point of y-line, degrees
  1215.     ; bailout hardcoded to 10^12
  1216.     ; use "decomp=256" coloring
  1217.     ;
  1218.         zc=pixel, c=p1, bailout=1e12, iter=1, rmin=1e12
  1219.         cenx=p2, radx=real(p3), rad=radx, rad2x=|radx|
  1220.         theta=imag(p3)*pi/180, ct=cos(theta), st=sin(theta)
  1221.         xt=real(cenx)+rad*ct, yt=imag(cenx)+rad*st
  1222.         phi=theta+pi/2, cp=cos(phi), sp=sin(phi)
  1223.         ay=sp, by=-cp, cy=cp*yt-sp*xt:
  1224.         iter=iter+1, zc=sqr(zc)+c
  1225.         tempx=|zc-cenx|-rad2x
  1226.         tempy=ay*real(zc)+by*imag(zc)+cy
  1227.         temp=tempx+flip(tempy), r=|temp|
  1228.         if (r<rmin)
  1229.           rmin=r, z=temp
  1230.           endif
  1231.         if ((|zc|>bailout)||(iter==maxit))
  1232.           iter=-1
  1233.           endif
  1234.         iter>0
  1235.         }
  1236.  
  1237. frm:offset_jul {
  1238.     ;
  1239.         ; "circle & offset line" coloring method for Julia sets
  1240.         ; p1 = c = Julia parameter
  1241.         ; p2 = x-circle center
  1242.         ; real(p3) = x-circle radius
  1243.         ; imag(p3) = angle of line from circle center to tangent
  1244.         ;    point, degrees.  y-line is parallel to tangent line
  1245.         ;    and offset by amount of radius.
  1246.     ; bailout hardcoded to 10^12
  1247.     ; use "decomp=256" coloring
  1248.     ;
  1249.         zc=pixel, c=p1, bailout=1e12, iter=1, rmin=1e12
  1250.         cenx=p2, radx=real(p3), rad=2*radx, rad2x=|radx|
  1251.         theta=imag(p3)*pi/180, ct=cos(theta), st=sin(theta)
  1252.         xt=real(cenx)+rad*ct, yt=imag(cenx)+rad*st
  1253.         phi=theta+pi/2, cp=cos(phi), sp=sin(phi)
  1254.         ay=sp, by=-cp, cy=cp*yt-sp*xt:
  1255.         iter=iter+1, zc=sqr(zc)+c
  1256.         tempx=|zc-cenx|-rad2x
  1257.         tempy=ay*real(zc)+by*imag(zc)+cy
  1258.         temp=tempx+flip(tempy), r=|temp|
  1259.         if (r<rmin)
  1260.           rmin=r, z=temp
  1261.           endif
  1262.         if ((|zc|>bailout)||(iter==maxit))
  1263.           iter=-1
  1264.           endif
  1265.         iter>0
  1266.         }
  1267.  
  1268.  
  1269.  
  1270. - --------------------------------------------------------------
  1271. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1272. Post Message:   fractint@lists.xmission.com
  1273. Get Commands:   majordomo@lists.xmission.com "help"
  1274. Administrator:  twegner@phoenix.net
  1275. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  1276.  
  1277. ------------------------------
  1278.  
  1279. End of fractint-digest V1 #282
  1280. ******************************
  1281.  
  1282.