home *** CD-ROM | disk | FTP | other *** search
/ ftp.xmission.com / 2014.06.ftp.xmission.com.tar / ftp.xmission.com / pub / lists / fractint / archive / v01.n144 < prev    next >
Internet Message Format  |  1998-03-24  |  43KB
  1. From: owner-fractint-digest@lists.xmission.com (fractint-digest)
  2. To: fractint-digest@lists.xmission.com
  3. Subject: fractint-digest V1 #144
  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       Wednesday, March 25 1998       Volume 01 : Number 144
  11.  
  12.  
  13.  
  14.  
  15. ----------------------------------------------------------------------
  16.  
  17. Date: Tue, 24 Mar 1998 17:46:00 -0600
  18. From: Trevor Fast <TFAST@gregory1.com>
  19. Subject: (fractint) Fractal paper
  20.  
  21. I know this might be off topic, and I apologize in advance.
  22.  
  23. I am writing a paper entitled The Effects of Fractal Geometry on Modern   
  24. Science for a college composition class.  If you know of any information   
  25. that might be useful for this report, please e-mail only to me   
  26. (tfast@gregory1.com), so the list doesn't get clogged.
  27.  
  28. Thanks.  
  29.  
  30. - -
  31. - ------------------------------------------------------------
  32. Thanks for using Fractint, The Fractals and Fractint Discussion List
  33. Post Message:   fractint@xmission.com
  34. Get Commands:   majordomo@xmission.com "help"
  35. Administrator:  twegner@phoenix.net
  36. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  37.  
  38. ------------------------------
  39.  
  40. Date: Tue, 24 Mar 1998 19:02:38 -0500
  41. From: "Peter Gavin" <pgavin@mindspring.com>
  42. Subject: (fractint) Batch mode made easier...  Yeah right :)
  43.  
  44. This is a multi-part message in MIME format.
  45.  
  46. - ------=_NextPart_000_0007_01BD5757.69DB6880
  47. Content-Type: text/plain;
  48.     charset="iso-8859-1"
  49. Content-Transfer-Encoding: 7bit
  50.  
  51. I wrote these batch files to make batchmode easier to use.  I thought it'd
  52. be helpful...  The pair runs through all the images in one directory,
  53. renders them, and moves the completed ones to another directory.  I have 2
  54. directories on my computer, one for images I want rendered immediately, and
  55. one for images I want done later... like high-digit arbitrary precision
  56. images... :)  However, before you use it, you'll (probably) need to change
  57. the directory names, to match yours, and you'll also need to create a file
  58. with an ini extension, which creates the parameters you want to use, such as
  59. video mode.  To use them, run "runbatch.bat <filename>" where <filename> is
  60. the first eight characters of the ini file's name.  This file then runs
  61. batch.bat on the images in
  62. "d:\fractint\images" and moves them to "d:\fractint\images\complete" on
  63. completion.  (You'll probably need to change these.)  It then runs fractint
  64. on "d:\fractint\images\later" and saves them to the same directory.  Of
  65. course, prior to running this, you'll need to begin rendering the images and
  66. then save them.  It also saves whatever progress or errors it makes in
  67. "batch.log".  To quit the batch file, you can press any key during a render,
  68. after which it says "Press ctrl-c to quit or any other key to continue",
  69. then press ctrl-c (duh.. :) ) and it dumps you to a dos prompt.  If you run
  70. this from a dos-mode pif in windows 95, pressing ctrl-c bypasses the rest of
  71. autoexec.bat, so you'll need to reboot and hit escape when win95 tells you.
  72. I hope you find this useful! Since they weren't too big, i attached them to
  73. this mail...
  74.  
  75.  
  76.  
  77. Pete
  78. <pgavin@mindspring.com>
  79.  
  80.  
  81. - ------=_NextPart_000_0007_01BD5757.69DB6880
  82. Content-Type: application/octet-stream;
  83.     name="RUNBATCH.BAT"
  84. Content-Transfer-Encoding: 7bit
  85. Content-Disposition: attachment;
  86.     filename="RUNBATCH.BAT"
  87.  
  88. @echo off
  89. if !%1!==!! goto badargs
  90.  
  91. :start
  92. for %%f in ( d:\fractint\images\*.gif ) do call batch.bat %1 %%f
  93. for %%f in ( d:\fractint\images\later\*.gif ) do call batch.bat %1 %%f
  94. if not exist d:\fractint\images\*.gif goto imagesempty
  95. goto start
  96.  
  97. :imagesempty
  98. if not exist d:\fractint\images\later\*.gif goto end
  99. goto start
  100.  
  101. :badargs
  102. echo Bad Arguments!
  103.  
  104. :end
  105. - ------=_NextPart_000_0007_01BD5757.69DB6880
  106. Content-Type: application/octet-stream;
  107.     name="batch.bat"
  108. Content-Transfer-Encoding: 7bit
  109. Content-Disposition: attachment;
  110.     filename="batch.bat"
  111.  
  112. @echo off
  113.  
  114. if !%2!==!! goto badargs
  115.  
  116.  
  117. cls
  118. choice /c:ynq /n /ty,3 Render %2? 
  119. if errorlevel 2 goto askstop
  120. if errorlevel 1 goto render
  121. goto end
  122.  
  123. :render
  124. fractint filename=%2 savename=%2 overwrite=y batch=y
  125. if errorlevel 2 goto keypushed
  126. if errorlevel 1 goto loaderror
  127. if errorlevel 0 goto finished
  128. goto end
  129.  
  130. :finished
  131. echo Image %2 completed. >> batch.log
  132. move %2 D:\FractInt\images\COMPLETE
  133. goto end
  134.  
  135. :keypushed
  136. echo Key pressed while rendering image %2. >> batch.log
  137. echo.
  138. goto askstop
  139.  
  140. :askstop
  141. echo Press CTRL-C to quit, any other key to continue.
  142. pause > nul
  143. goto end
  144.  
  145. :loaderror
  146. echo Error while rendering image %2 >> batch.log
  147. goto end
  148.  
  149. :badargs
  150. echo Bad arguments!
  151.  
  152. :end
  153.  
  154. - ------=_NextPart_000_0007_01BD5757.69DB6880--
  155.  
  156.  
  157. - -
  158. - ------------------------------------------------------------
  159. Thanks for using Fractint, The Fractals and Fractint Discussion List
  160. Post Message:   fractint@xmission.com
  161. Get Commands:   majordomo@xmission.com "help"
  162. Administrator:  twegner@phoenix.net
  163. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  164.  
  165. ------------------------------
  166.  
  167. Date: Wed, 25 Mar 1998 00:48:38 -0500 (EST)
  168. From: ao950@freenet.carleton.ca (Paul Derbyshire)
  169. Subject: Re: (fractint) sci.fractals
  170.  
  171. >hi
  172. >does anyone know what the deal w/ sci.fractals is? no more fractal posts --
  173. >just mindless drivel, apparently by  nine-year olds w/ bad social skills.
  174.  
  175. It seems some dolt crossposted a thread in somewhere (alt.flame?) to
  176. sci.fractals and dozens of others, and people are following up, flaming
  177. each other, and cluelessly not changing the followups-to. :P
  178.  
  179. I have complained to a number of their postmasters.
  180.  
  181.  
  182. - --
  183.     .*.  Friendship, companionship, love, and having fun are the reasons for
  184.  -()  <  life. All else; sex, money, fame, etc.; are just to get/express these.
  185.     `*'  Send any and all mail with attachments to the hotmail address please.
  186. Paul Derbyshire ao950@freenet.carleton.ca pgd73@hotmail.com
  187.  
  188. - -
  189. - ------------------------------------------------------------
  190. Thanks for using Fractint, The Fractals and Fractint Discussion List
  191. Post Message:   fractint@xmission.com
  192. Get Commands:   majordomo@xmission.com "help"
  193. Administrator:  twegner@phoenix.net
  194. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  195.  
  196. ------------------------------
  197.  
  198. Date: Wed, 25 Mar 1998 06:14:18 -0500
  199. From: davides <davides@pipeline.com>
  200. Subject: (fractint) combo6 (retry)
  201.  
  202. <fontfamily><param>Times New Roman</param><bigger><bigger>Jay advises me
  203. that my previous post was mangled...so another try:
  204.  
  205.  
  206. 051597-002-m1-m2-m3   {; Linda Allison May 15,1997
  207.  
  208.                  ; modified by Sylvie Gallet
  209.  
  210.            ; modified again by Linda Allison
  211.  
  212.            ; and again by David Shanholtzer
  213.  
  214.  ; 1st parameter: real(p1) = bailout
  215.  
  216.  ; 2nd parameter: imag(p1) = number of sides
  217.  
  218.  z = 0
  219.  
  220.  c = 0.4 * log(sqr(pixel^imag(p1))) :
  221.  
  222.  z2 = fn1(z) + c , sqz2 = fn2(z2)
  223.  
  224.  z = c * (1-sqz2)/(1+sqz2)
  225.  
  226.  |z| <<= p1
  227.  
  228. }
  229.  
  230.  
  231. =============================================================
  232.  
  233. </bigger></bigger></fontfamily><bigger>
  234.  
  235. combo6             { ; A variation of a variation of a formula by Linda
  236. A.
  237.  
  238.                      ; David Shanholtzer, 1998
  239.  
  240.                      ; Color map: Dav23
  241.  
  242.                      ; cycle for effect
  243.  
  244.   reset=1960 type=formula formulafile=fractint.frm
  245.  
  246.   formulaname=051597-002-m1-m2-m function=sin/sin passes=1
  247.  
  248.   center-mag=9.715e-006/1.0165e-005/0.6666712 params=20/10 float=y
  249.  
  250.   maxiter=2000 inside=maxiter outside=summ decomp=256
  251.  
  252.  
  253. colors=AIIEQQAII<<60>JcdKdeKbc<<9>AIIZF0<<50>vi0wj0wj0wj0<<75>ZF0AII<<2>AIIAJ\
  254.  
  255.   JAJJAKKBKK<<39>KdeHYY
  256.  
  257.   }
  258.  
  259. </bigger>
  260.  
  261. In the above par the next to last line should be tacked on tp the end of
  262. the first line (In colors). Hope this one makes it. Besides, I kind of
  263. like this color map...
  264.  
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272. davides@pipeline.com
  273.  
  274. Back up my hard drive?
  275.  
  276. How do I put it in reverse?
  277.  
  278. - -
  279. - ------------------------------------------------------------
  280. Thanks for using Fractint, The Fractals and Fractint Discussion List
  281. Post Message:   fractint@xmission.com
  282. Get Commands:   majordomo@xmission.com "help"
  283. Administrator:  twegner@phoenix.net
  284. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  285.  
  286. ------------------------------
  287.  
  288. Date: Wed, 25 Mar 1998 10:58:44 -0600
  289. From: "Paul N. Lee" <Paul.N.Lee@Worldnet.att.net>
  290. Subject: Re: (fractint) combo6 (retry)
  291.  
  292. davides wrote:
  293. >
  294. > Jay advises me that my previous post was mangled...so another try:
  295. >
  296.  
  297. After a little manipulation on the first posting, here is what I got to
  298. work:
  299.  
  300.  
  301. combo6       { ; A variation of a variation of a formula by Linda A.
  302.                ; David Shanholtzer, 1998
  303.                ; Color map: Dav23
  304.                ; cycle for effect
  305.   reset=1960 type=formula formulafile=combos.par formulaname=Many_mods
  306.   function=sin/sin passes=1
  307.   center-mag=9.715e-006/1.0165e-005/0.6666712 params=20/10 float=y
  308.   maxiter=2000 inside=maxiter outside=summ decomp=256
  309.   colors=AIIEQQAII<60>JcdKdeKbc<9>AIIZF0<50>vi0wj0wj0wj0<75>ZF0AII<2>\
  310.   AIIAJJAJJAKKBKK<39>KdeHYY
  311.   }
  312.  
  313. frm:Many_mods {; Linda Allison May 15,1997
  314.                ; modified by Sylvie Gallet
  315.                ; modified again by Linda Allison
  316.                ; and again by David Shanholtzer
  317.                ; 1st parameter: real(p1) = bailout
  318.                ; 2nd parameter: imag(p1) = number of sides
  319. z=0,
  320. c=0.4*log(sqr(pixel^imag(p1))):
  321. z2=fn1(z)+c,
  322. sqz2=fn2(z2),
  323. z=c*(1-sqz2)/(1+sqz2),
  324. |z| <= p1
  325. }
  326.  
  327.  
  328. Some additional COLOR values for the above PAR:
  329.  
  330.   colors=0000k0<85>0B0zW0<125>LA0000<2>0000z0<35>0k0
  331.  
  332.   colors=000a0C<5>z0C00H<14>z0H00L<14>z0L00P<14>z0P00T<14>z0T00Y<14>\
  333.   z0Y00a<14>z0a00e<14>z0e00i<14>z0i00n<14>z0n00r<14>z0r00v<14>z0v\
  334.   00z<14>z0z400<13>z00004<14>z04008<14>z0800C<7>Y0C
  335.  
  336.   colors=000821<12>RBESCFUDGVEHWFHXHI<23>viRwjSxkSzmTylTxkSwjRviQ<4>\
  337.   maMk_LhYK<20>000<6>B96CA7EB9<14>aUPbWQdXRfZTf_U<30>zzymfn<24>yxxyyx\
  338.   xww<8>menlcmlbm<24>TAXS8WS8W<22>93A839738627627627<13>616616705\
  339.   704<4>600510610
  340.  
  341. - -
  342. - ------------------------------------------------------------
  343. Thanks for using Fractint, The Fractals and Fractint Discussion List
  344. Post Message:   fractint@xmission.com
  345. Get Commands:   majordomo@xmission.com "help"
  346. Administrator:  twegner@phoenix.net
  347. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  348.  
  349. ------------------------------
  350.  
  351. Date: Wed, 25 Mar 1998 12:39:12 -0800
  352. From: "Jay Hill" <ehill1@san.rr.com>
  353. Subject: Re: (fractint) combo6 (retry)
  354.  
  355. Hi Paul,
  356.  
  357. Cool color patterns.
  358.  
  359. You can load them easily if you put these pars in your par file.
  360.  
  361. combo6c0           { ; original COLOR values, davides
  362.   colors=AIIEQQAII<60>JcdKdeKbc<9>AIIZF0<50>vi0wj0wj0wj0<75>ZF0AII<2>\
  363.   AIIAJJAJJAKKBKK<39>KdeHYY
  364. }
  365. combo6c1           { ; additional COLOR values, PNL
  366.   colors=0000k0<85>0B0zW0<125>LA0000<2>0000z0<35>0k0
  367. }
  368. combo6c2           { ; additional COLOR values, PNL
  369.   colors=000a0C<5>z0C00H<14>z0H00L<14>z0L00P<14>z0P00T<14>z0T00Y<14>\
  370.   z0Y00a<14>z0a00e<14>z0e00i<14>z0i00n<14>z0n00r<14>z0r00v<14>z0v\
  371.   00z<14>z0z400<13>z00004<14>z04008<14>z0800C<7>Y0C
  372. }
  373. combo6c3           { ; additional COLOR values, PNL
  374.   colors=000821<12>RBESCFUDGVEHWFHXHI<23>viRwjSxkSzmTylTxkSwjRviQ<4>\
  375.   maMk_LhYK<20>000<6>B96CA7EB9<14>aUPbWQdXRfZTf_U<30>zzymfn<24>yxxyyx\
  376.   xww<8>menlcmlbm<24>TAXS8WS8W<22>93A839738627627627<13>616616705\
  377.   704<4>600510610
  378. }
  379.  
  380. - ----------
  381. > From: Paul N. Lee <Paul.N.Lee@Worldnet.att.net>
  382. > Date: Wednesday, March 25, 1998 8:58 AM
  383. > 
  384. > davides wrote:
  385. > >
  386. > > Jay advises me that my previous post was mangled...so another try:
  387. > >
  388. > 
  389. > After a little manipulation on the first posting, here is what I got to
  390. > work:
  391. > 
  392. > 
  393. > combo6       { ; A variation of a variation of a formula by Linda A.
  394.  
  395.  
  396. - -
  397. - ------------------------------------------------------------
  398. Thanks for using Fractint, The Fractals and Fractint Discussion List
  399. Post Message:   fractint@xmission.com
  400. Get Commands:   majordomo@xmission.com "help"
  401. Administrator:  twegner@phoenix.net
  402. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  403.  
  404. ------------------------------
  405.  
  406. Date: Wed, 25 Mar 1998 14:54:27 PST
  407. From: "Paul Derbyshire" <pgd73@hotmail.com>
  408. Subject: (fractint) Nuclear M-set -> new coloring method: Gorgeous!
  409.  
  410. GORGEOUS new multicolored renderings of the 3 mandelbrot planes.
  411.  
  412. Example PARs attached below. (WARNING: some take hours ona freaking 
  413. Pentium! Load at your own risk! I am not responsible for any sleep 
  414. deprivation, hallucinations, epilepsy, or lack of sex that may occur!)
  415.  
  416.  
  417. - --- 8< ---  Formulas, add to nuclear.frm --- >8 ---
  418.  
  419. Nuclear_M_kq { ; p1, p2 parameters. c is Mandel parameter. Colored based 
  420. on all
  421.                ; 3 critical points. Use outside=real, float=y, 
  422. periodicity=n,
  423.                ; maxiter>=256, and logmap=0.
  424.                ; For logmap effect put real(p2) minimum iteration,
  425.                ; imag(p2) bigger than 1, e.g. 2.
  426.                ; Color 0 is for all critical points trapped.
  427.                ; Colors 1-66, 67-129, 130-192, and 193-255 are separate 
  428. ranges.
  429.                ; Use first for outside, second thru fourth for two
  430.                ; critical points escape, one trapped...
  431.                ; Coloring variant.
  432.   a=p1, c=p2, k=pixel, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2, a6=3*a2, 
  433. r3ac=r3*ac, ack=k*ac
  434.   min=real(p2)
  435.   p=imag(p2)
  436.   IF(p==0)
  437.     p=1
  438.   ENDIF
  439.   z1=0, z2=1, z3=-1
  440.   qq=10^-3, iter=0, done=0, z2done=0, m=maxit-1, z1done=0, z3done=0, 
  441. m2=floor(m/2), z1a=z1, z2a=z2, z3a=z3, flag=0, z1d2=0, z2d2=0, z3d2=0, 
  442. qrl=1.5, q2=0.15
  443.   qq2=10^-7
  444.   :
  445.   IF(z3done==0)
  446.     zz2=sqr(z3)
  447.     zz3=z3*zz2
  448.     z3=(r3a2*zz3-a6*zz2-r3ac*z3-ac)/(r3*z3+1)+ack,
  449.     IF(lastsqr>10000)
  450.       z3done=iter
  451.       z3d2=1
  452.     ENDIF
  453.   ENDIF
  454.   IF(z2done==0)
  455.     zz2=sqr(z2)
  456.     zz3=z2*zz2
  457.     z2=(r3a2*zz3-a6*zz2-r3ac*z2-ac)/(r3*z2+1)+ack,
  458.     IF(lastsqr>10000)
  459.       z2done=iter
  460.       z2d2=1
  461.     ENDIF
  462.   ENDIF
  463.   IF(z1done==0)
  464.     zz2=sqr(z1)
  465.     zz3=z1*zz2
  466.     z1=(r3a2*zz3-a6*zz2-r3ac*z1-ac)/(r3*z1+1)+ack,
  467.     IF(lastsqr>10000)
  468.       z1done=iter
  469.       z1d2=1
  470.     ENDIF
  471.   ENDIF
  472.   iter=iter+1
  473.   IF(iter>=m2 && flag==0)
  474.     z1chek=z1
  475.     z2chek=z2
  476.     z3chek=z3
  477.     flag=1
  478.     spd=0
  479.     first=0
  480.     same12=0
  481.     same23=0
  482.     same13=0
  483.   ELSEIF(flag==1)
  484.     IF(z1d2==0)
  485.       zz2=sqr(z1a)
  486.       zz3=z1a*zz2
  487.       z1a=(r3a2*zz3-a6*zz2-r3ac*z1a-ac)/(r3*z1a+1)+ack
  488.     ENDIF
  489.     IF(z2d2==0)
  490.       zz2=sqr(z2a)
  491.       zz3=z2a*zz2
  492.       z2a=(r3a2*zz3-a6*zz2-r3ac*z2a-ac)/(r3*z2a+1)+ack
  493.     ENDIF
  494.     IF(z3d2==0)
  495.       zz2=sqr(z3a)
  496.       zz3=z3a*zz2
  497.       z3a=(r3a2*zz3-a6*zz2-r3ac*z3a-ac)/(r3*z3a+1)+ack
  498.     ENDIF
  499.     spd=spd+1
  500.     IF(|z1a-z2chek|<qq && z1d2==0)
  501.       same12=1
  502.       z1d2=spd
  503.       IF(first==0 && |z2a-z1chek|>=qq)
  504.         first=1
  505.       ENDIF
  506.     ENDIF
  507.     IF(|z2a-z1chek|<qq && z2d2==0)
  508.       same12=1
  509.       z2d2=spd
  510.       IF(first==0 && |z1a-z2chek|>=qq)
  511.         first=2
  512.       ENDIF
  513.     ENDIF
  514.     IF(|z1a-z3chek|<qq && z1d2==0)
  515.       same13=1
  516.       z1d2=spd
  517.       IF(first==0 && |z3a-z1chek|>=qq)
  518.         first=1
  519.       ENDIF
  520.     ENDIF
  521.     IF(|z3a-z1chek|<qq && z3d2==0)
  522.       same13=1
  523.       z3d2=spd
  524.       IF(first==0 && |z1a-z3chek|>=qq)
  525.         first=3
  526.       ENDIF
  527.     ENDIF
  528.     IF(|z2a-z3chek|<qq && z2d2==0)
  529.       same23=1
  530.       z2d2=spd
  531.       IF(first==0 && |z3a-z2chek|>=qq)
  532.         first=2
  533.       ENDIF
  534.     ENDIF
  535.     IF(|z3a-z2chek|<qq && z3d2==0)
  536.       same23=1
  537.       z3d2=spd
  538.       IF(first==0 && |z2a-z3chek|>=qq)
  539.         first=3
  540.       ENDIF
  541.     ENDIF
  542.     IF(|z1a-z1chek|<qq2)
  543.       z1d2=spd
  544.     ENDIF
  545.     IF(|z2a-z2chek|<qq2)
  546.       z2d2=spd
  547.     ENDIF
  548.     IF(|z3a-z3chek|<qq2)
  549.       z3d2=spd
  550.     ENDIF
  551.   ENDIF
  552.   IF((z1d2>0 && z2d2>0 && z3d2>0) || iter==m)
  553.     IF(z1done==0 || z2done==0 || z3done==0)
  554.       IF(z2done>0 && z3done>0)
  555.         ddd=z2done
  556.         IF(z3done>ddd)
  557.           ddd=z3done
  558.         ENDIF
  559.         color=((ddd-min)/(m-min))^(1/p)*63
  560.         IF(color>63)
  561.           color=63
  562.         ENDIF
  563.         IF(color<1)
  564.           color=1
  565.         ENDIF
  566.         color=color+66
  567.       ELSEIF(z1done>0 && z3done>0)
  568.         ddd=z1done
  569.         IF(z3done>ddd)
  570.           ddd=z3done
  571.         ENDIF
  572.         color=((ddd-min)/(m-min))^(1/p)*63
  573.         IF(color>63)
  574.           color=63
  575.         ENDIF
  576.         IF(color<1)
  577.           color=1
  578.         ENDIF
  579.         color=color+129
  580.       ELSEIF(z1done>0 && z2done>0)
  581.         ddd=z1done
  582.         IF(z2done>ddd)
  583.           ddd=z2done
  584.         ENDIF
  585.         color=((ddd-min)/(m-min))^(1/p)*63
  586.         IF(color>63)
  587.           color=63
  588.         ENDIF
  589.         IF(color<1)
  590.           color=1
  591.         ENDIF
  592.         color=color+192
  593.       ELSEIF(z1done>0)
  594.         IF(same23!=0 && first!=0)
  595.           IF(first==2)
  596.             ddd=z3d2
  597.             cj=129
  598.           ELSE
  599.             ddd=z2d2
  600.             cj=192
  601.           ENDIF
  602.           color=((ddd-min)/(m2-min))^(1/p)*63
  603.           color=64-color
  604.         ELSE
  605.           cj=66
  606.           color=((z1done-min)/(m-min))^(1/p)*63
  607.         ENDIF
  608.         IF(color>63)
  609.           color=63
  610.         ENDIF
  611.         IF(color<1)
  612.           color=1
  613.         ENDIF
  614.         color=color+cj
  615.       ELSEIF(z2done>0)
  616.         IF(same13!=0 && first!=0)
  617.           IF(first==1)
  618.             ddd=z3d2
  619.             cj=66
  620.           ELSE
  621.             ddd=z1d2
  622.             cj=192
  623.           ENDIF
  624.           color=((ddd-min)/(m2-min))^(1/p)*63
  625.           color=64-color
  626.         ELSE
  627.           cj=129
  628.           color=((z2done-min)/(m-min))^(1/p)*63
  629.         ENDIF
  630.         IF(color>63)
  631.           color=63
  632.         ENDIF
  633.         IF(color<1)
  634.           color=1
  635.         ENDIF
  636.         color=color+cj
  637.       ELSEIF(z3done>0)
  638.         IF(same12!=0 && first!=0)
  639.           IF(first==1)
  640.             ddd=z2d2
  641.             cj=66
  642.           ELSE
  643.             ddd=z1d2
  644.             cj=129
  645.           ENDIF
  646.           color=((ddd-min)/(m-min))^(1/p)*63
  647.           color=64-color
  648.         ELSE
  649.           cj=192
  650.           color=((z3done-min)/(m-min))^(1/p)*63
  651.         ENDIF
  652.         IF(color>63)
  653.           color=63
  654.         ENDIF
  655.         IF(color<1)
  656.           color=1
  657.         ENDIF
  658.         color=color+cj
  659.       ELSEIF(same12==1 && same23==1)
  660.         IF(first==1)
  661.           ddd=z2d2+z3d2
  662.           cj=66
  663.         ELSEIF(first==2)
  664.           ddd=z1d2+z3d2
  665.           cj=129
  666.         ELSEIF(first==3)
  667.           ddd=z1d2+z2d2
  668.           cj=192
  669.         ELSE
  670.           ddd=z1d2+z2d2+z3d2
  671.           cj=0
  672.         ENDIF
  673.         IF(first==0)
  674.           color=(ddd/m2)^(1/p)*66
  675.           color=67-color
  676.           IF(color>66)
  677.             color=66
  678.           ENDIF
  679.           IF(color<1)
  680.             color=1
  681.           ENDIF
  682.         ELSE
  683.           color=(ddd/m2)^(1/p)*63
  684.           color=64-color
  685.           IF(color>63)
  686.             color=63
  687.           ENDIF
  688.           IF(color<1)
  689.             color=1
  690.           ENDIF
  691.         ENDIF
  692.         color=color+cj
  693.       ELSEIF(same12==1)
  694.         IF(first==1)
  695.           ddd=z2d2
  696.           cj=129
  697.         ELSEIF(first==2)
  698.           ddd=z1d2
  699.           cj=66
  700.         ELSE
  701.           cj=192
  702.           ddd=z1d2+z2d2
  703.         ENDIF
  704.         color=(ddd/m2)^(1/p)*63
  705.         color=64-color
  706.         IF(color>63)
  707.           color=63
  708.         ENDIF
  709.         IF(color<1)
  710.           color=1
  711.         ENDIF
  712.         color=color+cj
  713.       ELSEIF(same13==1)
  714.         IF(first==1)
  715.           cj=192
  716.           ddd=z3d2
  717.         ELSEIF(first==3)
  718.           cj=66
  719.           ddd=z1d2
  720.         else
  721.           cj=129
  722.           ddd=z1d2+z3d2
  723.         ENDIF
  724.         color=(ddd/m2)^(1/p)*63
  725.         color=64-color
  726.         IF(color>63)
  727.           color=63
  728.         ENDIF
  729.         IF(color<1)
  730.           color=1
  731.         ENDIF
  732.         color=color+cj
  733.       ELSEIF(same23==1)
  734.         IF(first==2)
  735.           ddd=z3d2
  736.           cj=192
  737.         ELSEIF(first==3)
  738.           ddd=z2d2
  739.           cj=129
  740.         ELSE
  741.           ddd=z2d2+z3d2
  742.           cj=66
  743.         ENDIF
  744.         color=(ddd/m2)^(1/p)*63
  745.         color=64-color
  746.         IF(color>63)
  747.           color=63
  748.         ENDIF
  749.         IF(color<1)
  750.           color=1
  751.         ENDIF
  752.         color=color+cj
  753.       ELSE
  754.         color=0
  755.       ENDIF
  756.     ELSE
  757.       color=((iter-min)/(m-min))^(1/p)*66
  758.       IF(color>66)
  759.         color=66
  760.       ENDIF
  761.       IF(color<1)
  762.         color=1
  763.       ENDIF
  764.     ENDIF
  765.     done=1
  766.     z=color-iter-7
  767.   ENDIF
  768.   done==0
  769. }
  770.  
  771. Nuclear_M_cq { ; p1, p3 parameters. c is Mandel parameter. Colored based 
  772. on all
  773.                ; 3 critical points. Use outside=real, float=y, 
  774. periodicity=n,
  775.                ; maxiter>=256, and logmap=0.
  776.                ; For logmap effect put real(p2) minimum iteration,
  777.                ; imag(p2) bigger than 1, e.g. 2.
  778.                ; Color 0 is for all critical points trapped.
  779.                ; Colors 1-66, 67-129, 130-192, and 193-255 are separate 
  780. ranges.
  781.                ; Use first for outside, second thru fourth for two
  782.                ; critical points escape, one trapped...
  783.                ; Coloring variant.
  784.   a=p1, c=pixel, k=p3, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2, a6=3*a2, 
  785. r3ac=r3*ac, ack=k*ac
  786.   min=real(p2)
  787.   p=imag(p2)
  788.   IF(p==0)
  789.     p=1
  790.   ENDIF
  791.   z1=0, z2=1, z3=-1
  792.   qq=0.001, iter=0, done=0, z2done=0, m=maxit-1, z1done=0, z3done=0, 
  793. m2=floor(m/2), z1a=z1, z2a=z2, z3a=z3, flag=0, z1d2=0, z2d2=0, z3d2=0, 
  794. qrl=1.5, q2=0.15
  795.   qq2=0.0000001
  796.   :
  797.   IF(z3done==0)
  798.     zz2=sqr(z3)
  799.     zz3=z3*zz2
  800.     z3=(r3a2*zz3-a6*zz2-r3ac*z3-ac)/(r3*z3+1)+ack,
  801.     IF(lastsqr>10000)
  802.       z3done=iter
  803.       z3d2=1
  804.     ENDIF
  805.   ENDIF
  806.   IF(z2done==0)
  807.     zz2=sqr(z2)
  808.     zz3=z2*zz2
  809.     z2=(r3a2*zz3-a6*zz2-r3ac*z2-ac)/(r3*z2+1)+ack,
  810.     IF(lastsqr>10000)
  811.       z2done=iter
  812.       z2d2=1
  813.     ENDIF
  814.   ENDIF
  815.   IF(z1done==0)
  816.     zz2=sqr(z1)
  817.     zz3=z1*zz2
  818.     z1=(r3a2*zz3-a6*zz2-r3ac*z1-ac)/(r3*z1+1)+ack,
  819.     IF(lastsqr>10000)
  820.       z1done=iter
  821.       z1d2=1
  822.     ENDIF
  823.   ENDIF
  824.   iter=iter+1
  825.   IF(iter>=m2 && flag==0)
  826.     z1chek=z1
  827.     z2chek=z2
  828.     z3chek=z3
  829.     flag=1
  830.     spd=0
  831.     first=0
  832.     same12=0
  833.     same23=0
  834.     same13=0
  835.   ELSEIF(flag==1)
  836.     IF(z1d2==0)
  837.       zz2=sqr(z1a)
  838.       zz3=z1a*zz2
  839.       z1a=(r3a2*zz3-a6*zz2-r3ac*z1a-ac)/(r3*z1a+1)+ack
  840.     ENDIF
  841.     IF(z2d2==0)
  842.       zz2=sqr(z2a)
  843.       zz3=z2a*zz2
  844.       z2a=(r3a2*zz3-a6*zz2-r3ac*z2a-ac)/(r3*z2a+1)+ack
  845.     ENDIF
  846.     IF(z3d2==0)
  847.       zz2=sqr(z3a)
  848.       zz3=z3a*zz2
  849.       z3a=(r3a2*zz3-a6*zz2-r3ac*z3a-ac)/(r3*z3a+1)+ack
  850.     ENDIF
  851.     spd=spd+1
  852.     IF(|z1a-z2chek|<qq && z1d2==0)
  853.       same12=1
  854.       z1d2=spd
  855.       IF(first==0 && |z2a-z1chek|>=qq)
  856.         first=1
  857.       ENDIF
  858.     ENDIF
  859.     IF(|z2a-z1chek|<qq && z2d2==0)
  860.       same12=1
  861.       z2d2=spd
  862.       IF(first==0 && |z1a-z2chek|>=qq)
  863.         first=2
  864.       ENDIF
  865.     ENDIF
  866.     IF(|z1a-z3chek|<qq && z1d2==0)
  867.       same13=1
  868.       z1d2=spd
  869.       IF(first==0 && |z3a-z1chek|>=qq)
  870.         first=1
  871.       ENDIF
  872.     ENDIF
  873.     IF(|z3a-z1chek|<qq && z3d2==0)
  874.       same13=1
  875.       z3d2=spd
  876.       IF(first==0 && |z1a-z3chek|>=qq)
  877.         first=3
  878.       ENDIF
  879.     ENDIF
  880.     IF(|z2a-z3chek|<qq && z2d2==0)
  881.       same23=1
  882.       z2d2=spd
  883.       IF(first==0 && |z3a-z2chek|>=qq)
  884.         first=2
  885.       ENDIF
  886.     ENDIF
  887.     IF(|z3a-z2chek|<qq && z3d2==0)
  888.       same23=1
  889.       z3d2=spd
  890.       IF(first==0 && |z2a-z3chek|>=qq)
  891.         first=3
  892.       ENDIF
  893.     ENDIF
  894.     IF(|z1a-z1chek|<qq2)
  895.       z1d2=spd
  896.     ENDIF
  897.     IF(|z2a-z2chek|<qq2)
  898.       z2d2=spd
  899.     ENDIF
  900.     IF(|z3a-z3chek|<qq2)
  901.       z3d2=spd
  902.     ENDIF
  903.   ENDIF
  904.   IF((z1d2>0 && z2d2>0 && z3d2>0) || iter==m)
  905.     IF(z1done==0 || z2done==0 || z3done==0)
  906.       IF(z2done>0 && z3done>0)
  907.         ddd=z2done
  908.         IF(z3done>ddd)
  909.           ddd=z3done
  910.         ENDIF
  911.         color=((ddd-min)/(m-min))^(1/p)*63
  912.         IF(color>63)
  913.           color=63
  914.         ENDIF
  915.         IF(color<1)
  916.           color=1
  917.         ENDIF
  918.         color=color+66
  919.       ELSEIF(z1done>0 && z3done>0)
  920.         ddd=z1done
  921.         IF(z3done>ddd)
  922.           ddd=z3done
  923.         ENDIF
  924.         color=((ddd-min)/(m-min))^(1/p)*63
  925.         IF(color>63)
  926.           color=63
  927.         ENDIF
  928.         IF(color<1)
  929.           color=1
  930.         ENDIF
  931.         color=color+129
  932.       ELSEIF(z1done>0 && z2done>0)
  933.         ddd=z1done
  934.         IF(z2done>ddd)
  935.           ddd=z2done
  936.         ENDIF
  937.         color=((ddd-min)/(m-min))^(1/p)*63
  938.         IF(color>63)
  939.           color=63
  940.         ENDIF
  941.         IF(color<1)
  942.           color=1
  943.         ENDIF
  944.         color=color+192
  945.       ELSEIF(z1done>0)
  946.         IF(same23!=0 && first!=0)
  947.           IF(first==2)
  948.             ddd=z3d2
  949.             cj=129
  950.           ELSE
  951.             ddd=z2d2
  952.             cj=192
  953.           ENDIF
  954.           color=((ddd-min)/(m2-min))^(1/p)*63
  955.           color=64-color
  956.         ELSE
  957.           cj=66
  958.           color=((z1done-min)/(m-min))^(1/p)*63
  959.         ENDIF
  960.         IF(color>63)
  961.           color=63
  962.         ENDIF
  963.         IF(color<1)
  964.           color=1
  965.         ENDIF
  966.         color=color+cj
  967.       ELSEIF(z2done>0)
  968.         IF(same13!=0 && first!=0)
  969.           IF(first==1)
  970.             ddd=z3d2
  971.             cj=66
  972.           ELSE
  973.             ddd=z1d2
  974.             cj=192
  975.           ENDIF
  976.           color=((ddd-min)/(m2-min))^(1/p)*63
  977.           color=64-color
  978.         ELSE
  979.           cj=129
  980.           color=((z2done-min)/(m-min))^(1/p)*63
  981.         ENDIF
  982.         IF(color>63)
  983.           color=63
  984.         ENDIF
  985.         IF(color<1)
  986.           color=1
  987.         ENDIF
  988.         color=color+cj
  989.       ELSEIF(z3done>0)
  990.         IF(same12!=0 && first!=0)
  991.           IF(first==1)
  992.             ddd=z2d2
  993.             cj=66
  994.           ELSE
  995.             ddd=z1d2
  996.             cj=129
  997.           ENDIF
  998.           color=((ddd-min)/(m-min))^(1/p)*63
  999.           color=64-color
  1000.         ELSE
  1001.           cj=192
  1002.           color=((z3done-min)/(m-min))^(1/p)*63
  1003.         ENDIF
  1004.         IF(color>63)
  1005.           color=63
  1006.         ENDIF
  1007.         IF(color<1)
  1008.           color=1
  1009.         ENDIF
  1010.         color=color+cj
  1011.       ELSEIF(same12==1 && same23==1)
  1012.         IF(first==1)
  1013.           ddd=z2d2+z3d2
  1014.           cj=66
  1015.         ELSEIF(first==2)
  1016.           ddd=z1d2+z3d2
  1017.           cj=129
  1018.         ELSEIF(first==3)
  1019.           ddd=z1d2+z2d2
  1020.           cj=192
  1021.         ELSE
  1022.           ddd=z1d2+z2d2+z3d2
  1023.           cj=0
  1024.         ENDIF
  1025.         IF(first==0)
  1026.           color=(ddd/m2)^(1/p)*66
  1027.           color=67-color
  1028.           IF(color>66)
  1029.             color=66
  1030.           ENDIF
  1031.           IF(color<1)
  1032.             color=1
  1033.           ENDIF
  1034.         ELSE
  1035.           color=(ddd/m2)^(1/p)*63
  1036.           color=64-color
  1037.           IF(color>63)
  1038.             color=63
  1039.           ENDIF
  1040.           IF(color<1)
  1041.             color=1
  1042.           ENDIF
  1043.         ENDIF
  1044.         color=color+cj
  1045.       ELSEIF(same12==1)
  1046.         IF(first==1)
  1047.           ddd=z2d2
  1048.           cj=129
  1049.         ELSEIF(first==2)
  1050.           ddd=z1d2
  1051.           cj=66
  1052.         ELSE
  1053.           cj=192
  1054.           ddd=z1d2+z2d2
  1055.         ENDIF
  1056.         color=(ddd/m2)^(1/p)*63
  1057.         color=64-color
  1058.         IF(color>63)
  1059.           color=63
  1060.         ENDIF
  1061.         IF(color<1)
  1062.           color=1
  1063.         ENDIF
  1064.         color=color+cj
  1065.       ELSEIF(same13==1)
  1066.         IF(first==1)
  1067.           cj=192
  1068.           ddd=z3d2
  1069.         ELSEIF(first==3)
  1070.           cj=66
  1071.           ddd=z1d2
  1072.         else
  1073.           cj=129
  1074.           ddd=z1d2+z3d2
  1075.         ENDIF
  1076.         color=(ddd/m2)^(1/p)*63
  1077.         color=64-color
  1078.         IF(color>63)
  1079.           color=63
  1080.         ENDIF
  1081.         IF(color<1)
  1082.           color=1
  1083.         ENDIF
  1084.         color=color+cj
  1085.       ELSEIF(same23==1)
  1086.         IF(first==2)
  1087.           ddd=z3d2
  1088.           cj=192
  1089.         ELSEIF(first==3)
  1090.           ddd=z2d2
  1091.           cj=129
  1092.         ELSE
  1093.           ddd=z2d2+z3d2
  1094.           cj=66
  1095.         ENDIF
  1096.         color=(ddd/m2)^(1/p)*63
  1097.         color=64-color
  1098.         IF(color>63)
  1099.           color=63
  1100.         ENDIF
  1101.         IF(color<1)
  1102.           color=1
  1103.         ENDIF
  1104.         color=color+cj
  1105.       ELSE
  1106.         color=0
  1107.       ENDIF
  1108.     ELSE
  1109.       color=((iter-min)/(m-min))^(1/p)*66
  1110.       IF(color>66)
  1111.         color=66
  1112.       ENDIF
  1113.       IF(color<1)
  1114.         color=1
  1115.       ENDIF
  1116.     ENDIF
  1117.     done=1
  1118.     z=color-iter-7
  1119.   ENDIF
  1120.   done==0
  1121. }
  1122.  
  1123. Nuclear_M_aq { ; p2, p3 parameters. c is Mandel parameter. Colored based 
  1124. on all
  1125.                ; 3 critical points. Use outside=real, float=y, 
  1126. periodicity=n,
  1127.                ; maxiter>=256, and logmap=0.
  1128.                ; For logmap effect put real(p2) minimum iteration,
  1129.                ; imag(p2) bigger than 1, e.g. 2.
  1130.                ; Color 0 is for all critical points trapped.
  1131.                ; Colors 1-66, 67-129, 130-192, and 193-255 are separate 
  1132. ranges.
  1133.                ; Use first for outside, second thru fourth for two
  1134.                ; critical points escape, one trapped...
  1135.                ; Coloring variant.
  1136.   a=pixel, c=p2, k=p3, a2=a*a, ac=a*c, r3=sqrt(3), r3a2=r3*a2, a6=3*a2, 
  1137. r3ac=r3*ac, ack=k*ac
  1138.   min=real(p2)
  1139.   p=imag(p2)
  1140.   IF(p==0)
  1141.     p=1
  1142.   ENDIF
  1143.   z1=0, z2=1, z3=-1
  1144.   qq=10^-3, iter=0, done=0, z2done=0, m=maxit-1, z1done=0, z3done=0, 
  1145. m2=floor(m/2), z1a=z1, z2a=z2, z3a=z3, flag=0, z1d2=0, z2d2=0, z3d2=0, 
  1146. qrl=1.5, q2=0.15
  1147.   qq2=10^-7
  1148.   :
  1149.   IF(z3done==0)
  1150.     zz2=sqr(z3)
  1151.     zz3=z3*zz2
  1152.     z3=(r3a2*zz3-a6*zz2-r3ac*z3-ac)/(r3*z3+1)+ack,
  1153.     IF(lastsqr>10000)
  1154.       z3done=iter
  1155.       z3d2=1
  1156.     ENDIF
  1157.   ENDIF
  1158.   IF(z2done==0)
  1159.     zz2=sqr(z2)
  1160.     zz3=z2*zz2
  1161.     z2=(r3a2*zz3-a6*zz2-r3ac*z2-ac)/(r3*z2+1)+ack,
  1162.     IF(lastsqr>10000)
  1163.       z2done=iter
  1164.       z2d2=1
  1165.     ENDIF
  1166.   ENDIF
  1167.   IF(z1done==0)
  1168.     zz2=sqr(z1)
  1169.     zz3=z1*zz2
  1170.     z1=(r3a2*zz3-a6*zz2-r3ac*z1-ac)/(r3*z1+1)+ack,
  1171.     IF(lastsqr>10000)
  1172.       z1done=iter
  1173.       z1d2=1
  1174.     ENDIF
  1175.   ENDIF
  1176.   iter=iter+1
  1177.   IF(iter>=m2 && flag==0)
  1178.     z1chek=z1
  1179.     z2chek=z2
  1180.     z3chek=z3
  1181.     flag=1
  1182.     spd=0
  1183.     first=0
  1184.     same12=0
  1185.     same23=0
  1186.     same13=0
  1187.   ELSEIF(flag==1)
  1188.     IF(z1d2==0)
  1189.       zz2=sqr(z1a)
  1190.       zz3=z1a*zz2
  1191.       z1a=(r3a2*zz3-a6*zz2-r3ac*z1a-ac)/(r3*z1a+1)+ack
  1192.     ENDIF
  1193.     IF(z2d2==0)
  1194.       zz2=sqr(z2a)
  1195.       zz3=z2a*zz2
  1196.       z2a=(r3a2*zz3-a6*zz2-r3ac*z2a-ac)/(r3*z2a+1)+ack
  1197.     ENDIF
  1198.     IF(z3d2==0)
  1199.       zz2=sqr(z3a)
  1200.       zz3=z3a*zz2
  1201.       z3a=(r3a2*zz3-a6*zz2-r3ac*z3a-ac)/(r3*z3a+1)+ack
  1202.     ENDIF
  1203.     spd=spd+1
  1204.     IF(|z1a-z2chek|<qq && z1d2==0)
  1205.       same12=1
  1206.       z1d2=spd
  1207.       IF(first==0 && |z2a-z1chek|>=qq)
  1208.         first=1
  1209.       ENDIF
  1210.     ENDIF
  1211.     IF(|z2a-z1chek|<qq && z2d2==0)
  1212.       same12=1
  1213.       z2d2=spd
  1214.       IF(first==0 && |z1a-z2chek|>=qq)
  1215.         first=2
  1216.       ENDIF
  1217.     ENDIF
  1218.     IF(|z1a-z3chek|<qq && z1d2==0)
  1219.       same13=1
  1220.       z1d2=spd
  1221.       IF(first==0 && |z3a-z1chek|>=qq)
  1222.         first=1
  1223.       ENDIF
  1224.     ENDIF
  1225.     IF(|z3a-z1chek|<qq && z3d2==0)
  1226.       same13=1
  1227.       z3d2=spd
  1228.       IF(first==0 && |z1a-z3chek|>=qq)
  1229.         first=3
  1230.       ENDIF
  1231.     ENDIF
  1232.     IF(|z2a-z3chek|<qq && z2d2==0)
  1233.       same23=1
  1234.       z2d2=spd
  1235.       IF(first==0 && |z3a-z2chek|>=qq)
  1236.         first=2
  1237.       ENDIF
  1238.     ENDIF
  1239.     IF(|z3a-z2chek|<qq && z3d2==0)
  1240.       same23=1
  1241.       z3d2=spd
  1242.       IF(first==0 && |z2a-z3chek|>=qq)
  1243.         first=3
  1244.       ENDIF
  1245.     ENDIF
  1246.     IF(|z1a-z1chek|<qq2)
  1247.       z1d2=spd
  1248.     ENDIF
  1249.     IF(|z2a-z2chek|<qq2)
  1250.       z2d2=spd
  1251.     ENDIF
  1252.     IF(|z3a-z3chek|<qq2)
  1253.       z3d2=spd
  1254.     ENDIF
  1255.   ENDIF
  1256.   IF((z1d2>0 && z2d2>0 && z3d2>0) || iter==m)
  1257.     IF(z1done==0 || z2done==0 || z3done==0)
  1258.       IF(z2done>0 && z3done>0)
  1259.         ddd=z2done
  1260.         IF(z3done>ddd)
  1261.           ddd=z3done
  1262.         ENDIF
  1263.         color=((ddd-min)/(m-min))^(1/p)*63
  1264.         IF(color>63)
  1265.           color=63
  1266.         ENDIF
  1267.         IF(color<1)
  1268.           color=1
  1269.         ENDIF
  1270.         color=color+66
  1271.       ELSEIF(z1done>0 && z3done>0)
  1272.         ddd=z1done
  1273.         IF(z3done>ddd)
  1274.           ddd=z3done
  1275.         ENDIF
  1276.         color=((ddd-min)/(m-min))^(1/p)*63
  1277.         IF(color>63)
  1278.           color=63
  1279.         ENDIF
  1280.         IF(color<1)
  1281.           color=1
  1282.         ENDIF
  1283.         color=color+129
  1284.       ELSEIF(z1done>0 && z2done>0)
  1285.         ddd=z1done
  1286.         IF(z2done>ddd)
  1287.           ddd=z2done
  1288.         ENDIF
  1289.         color=((ddd-min)/(m-min))^(1/p)*63
  1290.         IF(color>63)
  1291.           color=63
  1292.         ENDIF
  1293.         IF(color<1)
  1294.           color=1
  1295.         ENDIF
  1296.         color=color+192
  1297.       ELSEIF(z1done>0)
  1298.         IF(same23!=0 && first!=0)
  1299.           IF(first==2)
  1300.             ddd=z3d2
  1301.             cj=129
  1302.           ELSE
  1303.             ddd=z2d2
  1304.             cj=192
  1305.           ENDIF
  1306.           color=((ddd-min)/(m2-min))^(1/p)*63
  1307.           color=64-color
  1308.         ELSE
  1309.           cj=66
  1310.           color=((z1done-min)/(m-min))^(1/p)*63
  1311.         ENDIF
  1312.         IF(color>63)
  1313.           color=63
  1314.         ENDIF
  1315.         IF(color<1)
  1316.           color=1
  1317.         ENDIF
  1318.         color=color+cj
  1319.       ELSEIF(z2done>0)
  1320.         IF(same13!=0 && first!=0)
  1321.           IF(first==1)
  1322.             ddd=z3d2
  1323.             cj=66
  1324.           ELSE
  1325.             ddd=z1d2
  1326.             cj=192
  1327.           ENDIF
  1328.           color=((ddd-min)/(m2-min))^(1/p)*63
  1329.           color=64-color
  1330.         ELSE
  1331.           cj=129
  1332.           color=((z2done-min)/(m-min))^(1/p)*63
  1333.         ENDIF
  1334.         IF(color>63)
  1335.           color=63
  1336.         ENDIF
  1337.         IF(color<1)
  1338.           color=1
  1339.         ENDIF
  1340.         color=color+cj
  1341.       ELSEIF(z3done>0)
  1342.         IF(same12!=0 && first!=0)
  1343.           IF(first==1)
  1344.             ddd=z2d2
  1345.             cj=66
  1346.           ELSE
  1347.             ddd=z1d2
  1348.             cj=129
  1349.           ENDIF
  1350.           color=((ddd-min)/(m-min))^(1/p)*63
  1351.           color=64-color
  1352.         ELSE
  1353.           cj=192
  1354.           color=((z3done-min)/(m-min))^(1/p)*63
  1355.         ENDIF
  1356.         IF(color>63)
  1357.           color=63
  1358.         ENDIF
  1359.         IF(color<1)
  1360.           color=1
  1361.         ENDIF
  1362.         color=color+cj
  1363.       ELSEIF(same12==1 && same23==1)
  1364.         IF(first==1)
  1365.           ddd=z2d2+z3d2
  1366.           cj=66
  1367.         ELSEIF(first==2)
  1368.           ddd=z1d2+z3d2
  1369.           cj=129
  1370.         ELSEIF(first==3)
  1371.           ddd=z1d2+z2d2
  1372.           cj=192
  1373.         ELSE
  1374.           ddd=z1d2+z2d2+z3d2
  1375.           cj=0
  1376.         ENDIF
  1377.         IF(first==0)
  1378.           color=(ddd/m2)^(1/p)*66
  1379.           color=67-color
  1380.           IF(color>66)
  1381.             color=66
  1382.           ENDIF
  1383.           IF(color<1)
  1384.             color=1
  1385.           ENDIF
  1386.         ELSE
  1387.           color=(ddd/m2)^(1/p)*63
  1388.           color=64-color
  1389.           IF(color>63)
  1390.             color=63
  1391.           ENDIF
  1392.           IF(color<1)
  1393.             color=1
  1394.           ENDIF
  1395.         ENDIF
  1396.         color=color+cj
  1397.       ELSEIF(same12==1)
  1398.         IF(first==1)
  1399.           ddd=z2d2
  1400.           cj=129
  1401.         ELSEIF(first==2)
  1402.           ddd=z1d2
  1403.           cj=66
  1404.         ELSE
  1405.           cj=192
  1406.           ddd=z1d2+z2d2
  1407.         ENDIF
  1408.         color=(ddd/m2)^(1/p)*63
  1409.         color=64-color
  1410.         IF(color>63)
  1411.           color=63
  1412.         ENDIF
  1413.         IF(color<1)
  1414.           color=1
  1415.         ENDIF
  1416.         color=color+cj
  1417.       ELSEIF(same13==1)
  1418.         IF(first==1)
  1419.           cj=192
  1420.           ddd=z3d2
  1421.         ELSEIF(first==3)
  1422.           cj=66
  1423.           ddd=z1d2
  1424.         else
  1425.           cj=129
  1426.           ddd=z1d2+z3d2
  1427.         ENDIF
  1428.         color=(ddd/m2)^(1/p)*63
  1429.         color=64-color
  1430.         IF(color>63)
  1431.           color=63
  1432.         ENDIF
  1433.         IF(color<1)
  1434.           color=1
  1435.         ENDIF
  1436.         color=color+cj
  1437.       ELSEIF(same23==1)
  1438.         IF(first==2)
  1439.           ddd=z3d2
  1440.           cj=192
  1441.         ELSEIF(first==3)
  1442.           ddd=z2d2
  1443.           cj=129
  1444.         ELSE
  1445.           ddd=z2d2+z3d2
  1446.           cj=66
  1447.         ENDIF
  1448.         color=(ddd/m2)^(1/p)*63
  1449.         color=64-color
  1450.         IF(color>63)
  1451.           color=63
  1452.         ENDIF
  1453.         IF(color<1)
  1454.           color=1
  1455.         ENDIF
  1456.         color=color+cj
  1457.       ELSE
  1458.         color=0
  1459.       ENDIF
  1460.     ELSE
  1461.       color=((iter-min)/(m-min))^(1/p)*66
  1462.       IF(color>66)
  1463.         color=66
  1464.       ENDIF
  1465.       IF(color<1)
  1466.         color=1
  1467.       ENDIF
  1468.     ENDIF
  1469.     done=1
  1470.     z=color-iter-7
  1471.   ENDIF
  1472.   done==0
  1473. }
  1474.  
  1475.  
  1476. - --- >8 --- PAR examples use this and earlier nukes --- 8< ---
  1477.  
  1478. nuke_j_5           {
  1479.   reset=1960 type=formula formulafile=nuclear.frm
  1480.   formulaname=nuclear_jcollog center-mag=1.25716/-0.0284745/0.1666
  1481.   params=0.2/0.4/-0.3/0.3/-4.18768/18.01368 float=y maxiter=5000
  1482.   inside=0 outside=real periodicity=0
  1483.   
  1484. colors=000<15>000000201<4>H08K0AL0B<40>zcz001<13>08G09I0AI<34>TknUloVmpW\
  1485.   oqXprYqs<5>czze00<15>jCDkCEkDFkDGkEH<41>zhq0e0<30>MoRNoRNpSNpS<27>lzh
  1486.   }
  1487.  
  1488. nuke_j_5a          {
  1489.   reset=1960 type=formula formulafile=nuclear.frm
  1490.   formulaname=nuclear_jcollog center-mag=-0.323135/0.0497836/0.7243478
  1491.   params=0.2/0.4/-0.3/0.3/-4.18768/18.01368 float=y maxiter=5000
  1492.   inside=0 outside=real periodicity=0
  1493.   
  1494. colors=000<15>000000201<4>H08K0AL0B<40>zcz001<13>08G09I0AI<34>TknUloVmpW\
  1495.   oqXprYqs<5>czze00<15>jCDkCEkDFkDGkEH<41>zhq0e0<30>MoRNoRNpSNpS<27>lzh
  1496.   }
  1497.  
  1498. nuke_j_6           {
  1499.   reset=1960 type=formula formulafile=nuclear.frm
  1500.   formulaname=nuclear_jcollog center-mag=1.19458/-0.0284745/0.1946262
  1501.   params=0.2/0.4/-0.3/0.3/-7.28445/18.93872 float=y maxiter=5000
  1502.   inside=0 outside=real periodicity=0
  1503.   
  1504. colors=000<15>000000021<4>0H80KA0LB<40>czz001<61>U00zzz<15>ezzczzcyz<43>\
  1505.   00K0e0<30>MoRNoRNpSNpS<27>lzh
  1506.   }
  1507.  
  1508. nuke_j_7           {
  1509.   reset=1960 type=formula formulafile=nuclear.frm
  1510.   formulaname=nuclear_jcollog center-mag=1.19458/-0.0284745/0.1946262
  1511.   params=0.2/0.4/-0.3/0.3/-5.522983/18.89509 float=y maxiter=5000
  1512.   inside=0 outside=real periodicity=0
  1513.   
  1514. colors=000Xzz<7>zzz<6>zzzzzzzxy<4>zirzfpzeo<40>N00zzy<61>Xzz000<15>L00N0\
  1515.   0N10<43>zzfzLz<30>_Bd_BcZAcZAc<27>I0E
  1516.   }
  1517.  
  1518. nuke_j_8           {
  1519.   reset=1960 type=formula formulafile=nuclear.frm
  1520.   formulaname=nuclear_jcollog center-mag=1.19458/-0.0284745/0.1946262
  1521.   params=0.2/0.4/-0.3/0.3/-5.40371/19.45501 float=y maxiter=5000
  1522.   inside=0 outside=real periodicity=0
  1523.   
  1524. colors=000zzX<7>zzz<6>zzzzzzxyz<4>irzfpzeoz<40>00Nzzy<61>Xzz000<15>L00N0\
  1525.   0N10<43>zzffzz<47>12M00L00K<11>000
  1526.   }
  1527.  
  1528. sapphires_&_frost  {
  1529.   reset=1960 type=formula formulafile=nuclear.frm
  1530.   formulaname=nuclear_jcollog center-mag=1.19458/-0.0284745/0.1946262
  1531.   params=0.2/0.4/-0.3/0.3/-5.40371/19.45501 float=y maxiter=5000
  1532.   inside=0 outside=real periodicity=0
  1533.   
  1534. colors=000zzX<7>zzz<6>zzzzzzxyz<4>irzfpzeoz<40>00Nzzy<61>Xzz000<15>L00N0\
  1535.   0N10<43>zzffzz<47>12M00L00K<11>000
  1536.   }
  1537.  
  1538. nuke_j_9           {
  1539.   reset=1960 type=formula formulafile=nuclear.frm
  1540.   formulaname=nuclear_jcollog center-mag=1.19458/-0.0284745/0.1946262
  1541.   params=0.2/0.4/-0.3/0.3/-4.2165853/18.0097309 float=y maxiter=5000
  1542.   inside=0 outside=real periodicity=0
  1543.   
  1544. colors=000fzz<15>zzz<9>_qX<6>0N0<31>000zuu<7>zdjzbiz_gzXezUczRazN_<16>z2\
  1545.   Dz0By0B<28>A00zfz<61>CI_vzz<18>347004005<40>0Kz
  1546.   }
  1547.  
  1548. vine_&_cherries    { ; Beautiful!!
  1549.   reset=1960 type=formula formulafile=nuclear.frm
  1550.   formulaname=nuclear_jcollog center-mag=1.19458/-0.0284745/0.1946262
  1551.   params=0.2/0.4/-0.3/0.3/-4.2165853/18.0097309 float=y maxiter=5000
  1552.   inside=0 outside=real periodicity=0
  1553.   
  1554. colors=000fzz<15>zzz<9>_qX<6>0N0<31>000zuu<7>zdjzbiz_gzXezUczRazN_<16>z2\
  1555.   Dz0By0B<28>A00zfz<61>CI_vzz<18>347004005<40>0Kz
  1556.   }
  1557.  
  1558. vine_&_cherries_a  { ; Beautiful!!
  1559.   reset=1960 type=formula formulafile=nuclear.frm
  1560.   formulaname=nuclear_jcollog center-mag=-0.184945/0.105503/0.7490231
  1561.   params=0.2/0.4/-0.3/0.3/-4.2165853/18.0097309 float=y maxiter=5000
  1562.   inside=0 outside=real periodicity=0
  1563.   
  1564. colors=000fzz<15>zzz<9>_qX<6>0N0<31>000zuu<7>zdjzbiz_gzXezUczRazN_<16>z2\
  1565.   Dz0By0B<28>A00zfz<61>CI_vzz<18>347004005<40>0Kz
  1566.   }
  1567.  
  1568. nuke_j_9a          {
  1569.   reset=1960 type=formula formulafile=nuclear.frm
  1570.   formulaname=nuclear_jcollog center-mag=-0.184945/0.105503/0.7490231
  1571.   params=0.2/0.4/-0.3/0.3/-4.2165853/18.0097309 float=y maxiter=5000
  1572.   inside=0 outside=real periodicity=0
  1573.   
  1574. colors=000fzz<15>zzz<9>_qX<6>0N0<31>000zuu<7>zdjzbiz_gzXezUczRazN_<16>z2\
  1575.   Dz0By0B<28>A00zfz<61>CI_vzz<18>347004005<40>0Kz
  1576.   }
  1577.  
  1578. nuke_j_9a1         {
  1579.   reset=1960 type=formula formulafile=nuclear.frm
  1580.   formulaname=nuclear_jcollogb
  1581.   center-mag=1.00055/6.78941e-005/16.79424
  1582.   params=0.2/0.4/-0.3/0.3/-4.2165853/18.0097309 float=y maxiter=5000
  1583.   inside=0 outside=real periodicity=0
  1584.   
  1585. colors=000zzz<25>gte<7>7T6<2>2N20K00J0<8>020000003<14>00zzuu<7>zdjzbiz_g\
  1586.   
  1587. zXezUczRazN_<16>z2Dz0By0B<28>A00zfz<61>CI_zzz<7>vzz<4>gkkcghbfg<25>8BD79\
  1588.   C68B56A459338227005<13>000
  1589.   }
  1590.  
  1591. nuke_j_10          {
  1592.   reset=1960 type=formula formulafile=nuclear.frm
  1593.   formulaname=nuclear_jcollog center-mag=1.19458/-0.0284745/0.1946262
  1594.   params=0.2/0.4/-0.3/0.3/-6.86128/18.98886 float=y maxiter=5000
  1595.   inside=0 outside=real periodicity=0
  1596.   
  1597. colors=000zzz<27>m6X<10>lMz<24>yxzzzzzzy<61>Xzz00K<34>000<5>ZBx<21>urzzz\
  1598.   z<38>n2qm0pk0n<19>00A
  1599.   }
  1600.  
  1601. nuke_j_11          {
  1602.   reset=1960 type=formula formulafile=nuclear.frm
  1603.   formulaname=nuclear_jcollog center-mag=1.19458/-0.0284745/0.1946262
  1604.   params=0.2/0.4/-0.3/0.3/-5.2784594/16.9289491 float=y maxiter=5000
  1605.   inside=0 outside=real periodicity=0
  1606.   colors=00000U<64>00Bzzy<61>Xzzzzx<61>UKAiXx<34>tpy<13>QXb<4>7BQ<7>00A
  1607.   }
  1608.  
  1609. Draco_in_the_Sky   { ; Wondrous!
  1610.   reset=1960 type=formula formulafile=nuclear.frm
  1611.   formulaname=nuclear_jcollog center-mag=1.19458/-0.0284745/0.1946262
  1612.   params=0.2/0.4/-0.3/0.3/-5.2784594/16.9289491 float=y maxiter=5000
  1613.   inside=0 outside=real periodicity=0
  1614.   colors=00000U<64>00Bzzy<61>Xzzzzx<61>UKAiXx<34>tpy<13>QXb<4>7BQ<7>00A
  1615.   }
  1616.  
  1617. Draco_in_the_Sky_a { ;  
  1618.   reset=1960 type=formula formulafile=nuclear.frm
  1619.   formulaname=nuclear_jcollog center-mag=-0.117977/0.761996/0.7976482
  1620.   params=0.2/0.4/-0.3/0.3/-5.2784594/16.9289491 float=y maxiter=5000
  1621.   inside=0 outside=real periodicity=0
  1622.   colors=00000U<64>00Bzzy<61>Xzzzzx<61>UKAiXx<34>tpy<13>QXb<4>7BQ<7>00A
  1623.   }
  1624.  
  1625. nuke_j_11a         { ;  
  1626.   reset=1960 type=formula formulafile=nuclear.frm
  1627.   formulaname=nuclear_jcollog center-mag=-0.117977/0.761996/0.7976482
  1628.   params=0.2/0.4/-0.3/0.3/-5.2784594/16.9289491 float=y maxiter=5000
  1629.   inside=0 outside=real periodicity=0
  1630.   colors=00000U<64>00Bzzy<61>Xzzzzx<61>UKAiXx<34>tpy<13>QXb<4>7BQ<7>00A
  1631.   }
  1632.  
  1633. nuke_mc1           { ; A Herman Archipelago
  1634.   reset=1960 type=formula formulafile=nuclear.frm
  1635.   formulaname=Nuclear_M_c passes=t
  1636.   center-mag=1.34012/-4.31742/2.060029 params=0.1/0.35/0/3/6.9032/2.72
  1637.   float=y maxiter=5000 inside=0 outside=real periodicity=0
  1638.   
  1639. colors=000zzz<32>M22K00K00<29>000zzz<30>zd2zc0yb0<28>A00zKU<29>e2Ld1Lc0K\
  1640.   b0Ka0K`0K<26>00Avzz<15>0Kz<45>000
  1641.   }
  1642.  
  1643. nuke_m_c1a         { ;INCREDIBLE!
  1644.   reset=1960 type=formula formulafile=nuclear.frm
  1645.   formulaname=nuclear_m_cq passes=t
  1646.   center-mag=1.12121/-4.02629/5.309354 params=0.1/0.35/0/3/6.9032/2.72
  1647.   float=y maxiter=5000 inside=16 outside=real periodicity=0
  1648.   
  1649. colors=000zzz<32>M22K00K00<29>000_md<35>1HO0GN2HR<7>KUz<15>zzzd_m<36>N0G\
  1650.   <8>zKU<14>zwwzzzzzU<35>zn1zm0zk2<7>zUK<15>zzz
  1651.   }
  1652.  
  1653. - --- 8< --- End --- >8 ---
  1654. - -- 
  1655.     .*.  Friendship, companionship, love, and having fun are the reasons for
  1656.  -()  <  life. All else; sex, money, fame, etc.; are just to get/express these.
  1657.     `*'  Send any and all mail with attachments to the hotmail address please.
  1658. Paul Derbyshire ao950@freenet.carleton.ca pgd73@hotmail.com
  1659.  
  1660. ______________________________________________________
  1661. Get Your Private, Free Email at http://www.hotmail.com
  1662.  
  1663. - -
  1664. - ------------------------------------------------------------
  1665. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1666. Post Message:   fractint@xmission.com
  1667. Get Commands:   majordomo@xmission.com "help"
  1668. Administrator:  twegner@phoenix.net
  1669. Unsubscribe:    majordomo@xmission.com "unsubscribe fractint"
  1670.  
  1671. ------------------------------
  1672.  
  1673. End of fractint-digest V1 #144
  1674. ******************************
  1675.  
  1676.