home *** CD-ROM | disk | FTP | other *** search
/ ftp.xmission.com / 2014.06.ftp.xmission.com.tar / ftp.xmission.com / pub / lists / fractint / archive / v01.n440 < prev    next >
Internet Message Format  |  2000-01-20  |  56KB
  1. From: owner-fractint-digest@lists.xmission.com (fractint-digest)
  2. To: fractint-digest@lists.xmission.com
  3. Subject: fractint-digest V1 #440
  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, January 20 2000       Volume 01 : Number 440
  11.  
  12.  
  13.  
  14.  
  15. ----------------------------------------------------------------------
  16.  
  17. Date: Mon, 17 Jan 2000 09:56:52 -0700
  18. From: Phil McRevis <legalize@xmission.com>
  19. Subject: Re: (fractint) Determining the M-Set 
  20.  
  21. First, please turn off your HTML mail setting.  The fractint mailing
  22. list specifically requests that you post in plain text and not use
  23. attachments.
  24.  
  25. In article <005101bf605f$e56319e0$b0fa343e@thomaspe>,
  26.     lochfrass@friendfactory.com  writes:
  27.  
  28. > I know that FRACTINT stops the calculation of an orbit if |z|>2. I heard =
  29. > that it is certain that a point is outside the M-Set if this happens. =
  30. > Can anyone explain this to me?
  31.  
  32. The M set is defined as the set of points for which the iterated
  33. sequence remains bounded.  M is computed from the sequence
  34.  
  35.     znew = zold^2 + c
  36.  
  37. Once the magnitude of zold becomes greater than 2, this sequence will
  38. diverge to infinity.
  39. - --
  40. <http://www.xmission.com/~legalize/>    Legalize Adulthood!
  41.     ``Ain't it funny that they all fire the pistol,     
  42.       at the wrong end of the race?''--PDBT     
  43. legalize@xmission.com    <http://www.thewho.net>
  44.  
  45. - --------------------------------------------------------------
  46. Thanks for using Fractint, The Fractals and Fractint Discussion List
  47. Post Message:   fractint@lists.xmission.com
  48. Get Commands:   majordomo@lists.xmission.com "help"
  49. Administrator:  twegner@swbell.net
  50. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  51.  
  52. ------------------------------
  53.  
  54. Date: Tue, 18 Jan 2000 01:09:47 -0500 (EST)
  55. From: Jim Muth <jamth@mindspring.com>
  56. Subject: (fractint) FOTD, 18-01-00 (Bits and Pieces) (c)
  57.  
  58. FOTD -- January 18, 2000
  59.  
  60. Fractal enthusiasts and visionaries:
  61.  
  62. I named today's fractal "Bits and Pieces".  I gave it this name 
  63. because of the disconnected bits and pieces of fractal stuff 
  64. scattered throughout the area.  These broken-off pieces are 
  65. there because the parent fractal is not totally connected.
  66.  
  67. The Mandelbrot set is connected.  That is it has no parts that 
  68. are disconnected from its main body.  Every midget is connected 
  69. to the main bay or one of the buds by an infinitely thin 
  70. filament of trapped points.  But not all fractals are connected 
  71. in such a manner.
  72.  
  73. The parent fractal of today's image is not connected.  It 
  74. contains islands of fractal material cut off from the main body. 
  75. In fact, it has no main body, appearing instead as several large 
  76. areas of fractal chaos filled with scattered small quadratic 
  77. M-sets of various distorted shapes and sizes.  Around the larger 
  78. chaotic areas lie smaller disconnected areas of chaos filled 
  79. with tiny M-sets.  Since these midget M-sets lie in cut-off 
  80. patches of chaos, the patterns around the midgets are also 
  81. filled with cut-off bits and pieces of fractal stuff.  Today's 
  82. picture shows one of these midgets.
  83.  
  84. I have colored the little fellow to emphasize the disconnected 
  85. nature of the features.  The coloring alone determines the 
  86. pattern, as can be shown by rotating the colors a few steps in 
  87. either direction.  I rate this image about a six on my personal 
  88. 0-to-10 quality scale.
  89.  
  90. The parameter file renders in 2 minutes on an average Pentium.  
  91. The JPEG image file is also available from:
  92.  
  93.           <alt.binaries.pictures.fractals>
  94.  
  95. and from:
  96.  
  97.           <http://home.att.net/~Paul.N.Lee/FotD/FotD.html>
  98.  
  99. The fractal weather today was sunny but hugely cold -- perfect 
  100. weather for hunting fractals.  The temperature of 17F (-8C) was 
  101. far far too cold for the cats to step outdoors.  They passed the 
  102. day chasing the moving patches of sunlight or stretched out 
  103. before a radiator.
  104.  
  105. It was also a perfect day for organizing my pompous philosophi-
  106. cal ponderings, which are coming together under the theme of the 
  107. three ways of obtaining knowledge.  In a few days the ponderings 
  108. will be made public -- stay posted.
  109.  
  110. Oh my -- I see it's time to shut down the fractal shop, feed the 
  111. fractal cats, and call it a night.  Until next time, take care, 
  112. and if your fractal becomes disconnected, it might not be all 
  113. that bad.
  114.  
  115.  
  116. Jim Muth
  117. jamth@mindspring.com
  118.  
  119.  
  120. START FORMULA==============================================
  121.  
  122. MandelbrotMix4 {; Jim Muth
  123. a=real(p1), b=imag(p1), d=real(p2), f=imag(p2),
  124. g=1/f, h=1/d, j=1/(f-b), z=(-a*b*g*h)^j,
  125. k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel):
  126. z=k*((a*(z^b))+(d*(z^f)))+c,
  127. |z| < l
  128. }
  129.  
  130. END FORMULA================================================
  131.  
  132. START PARAMETER FILE=======================================
  133.  
  134. Bits_and_Pieces    { ; time=0:02:10.72, SF5 on a p200
  135.   reset=2000 type=formula formulafile=critical.frm
  136.   formulaname=MandelbrotMix4 function=ident passes=1
  137.   center-mag=-3.74526689211778600/-3.02147577593595700\
  138.   /6.83767e+007/1/57.5 params=0.333/2/-2/-2/0/0 float=y
  139.   maxiter=500 bailout=25 inside=0
  140.   logmap=27 symmetry=none periodicity=10
  141.   colors=000WGJ<3>CD9<3>6SZ5Kd4Pj<2>Tcpahrkovrvzzzz000\
  142.   mml<3>QQQKKKDDD666WRBGDc5Uz4cz37b<3>017jSy<4>UJcRH_N\
  143.   FWKESHCNDAJ<3>436213zaOwVKmPGcJCZC8764gYO<3>EB8754C9\
  144.   1<3>53032A11KAmP6jS<3>3Qc2Kf2Fi1Ab05e`qh<2>9DqmWtjTw\
  145.   VJzF9zg1z<3>Q0zM0zH0z<2>40z6Qz4Hz28z9iz6Uz3Fz7kz<7>3\
  146.   Mz2Jz2Gz<3>03zuPz<3>TCzL9zE6z73ziVz<3>FAz75zJoz<3>Da\
  147.   zCYzBVzAPz8Lz<3>3Pz2Qz1RzqSz<3>RWzKXzDYz6Zzv_z<4>9dz\
  148.   SezLfzEgz7hz2iz<2>0lz7mz<5>3sz3tz2uz<3>0yzZzn<5>IzRG\
  149.   zNDzJ<3>2z3ZzY<3>LzKHzHEzD<2>3z3fzX<2>Az8Mzc7zF<2>1z\
  150.   3czD<3>Hz5Bz35z1zzC<3>Zz6Sz5Lz4Ez27z1CznKzu<3>6zJ3z9\
  151.   Lzk<5>BzP9zM8zI<3>1z36zG5zE4zC
  152.   }
  153.  
  154. END PARAMETER FILE=========================================
  155.  
  156. START 20.0 PAR-FORMULA FILE================================
  157.  
  158. Bits_and_Pieces    { ; time=0:02:10.72, SF5 on a p200
  159.   reset=2000 type=formula formulafile=critical.frm
  160.   formulaname=MandelbrotMix4 function=ident passes=1
  161.   center-mag=-3.74526689211778600/-3.02147577593595700\
  162.   /6.83767e+007/1/57.5 params=0.333/2/-2/-2/0/0 float=y
  163.   maxiter=500 bailout=25 inside=0
  164.   logmap=27 symmetry=none periodicity=10
  165.   colors=000WGJ<3>CD9<3>6SZ5Kd4Pj<2>Tcpahrkovrvzzzz000\
  166.   mml<3>QQQKKKDDD666WRBGDc5Uz4cz37b<3>017jSy<4>UJcRH_N\
  167.   FWKESHCNDAJ<3>436213zaOwVKmPGcJCZC8764gYO<3>EB8754C9\
  168.   1<3>53032A11KAmP6jS<3>3Qc2Kf2Fi1Ab05e`qh<2>9DqmWtjTw\
  169.   VJzF9zg1z<3>Q0zM0zH0z<2>40z6Qz4Hz28z9iz6Uz3Fz7kz<7>3\
  170.   Mz2Jz2Gz<3>03zuPz<3>TCzL9zE6z73ziVz<3>FAz75zJoz<3>Da\
  171.   zCYzBVzAPz8Lz<3>3Pz2Qz1RzqSz<3>RWzKXzDYz6Zzv_z<4>9dz\
  172.   SezLfzEgz7hz2iz<2>0lz7mz<5>3sz3tz2uz<3>0yzZzn<5>IzRG\
  173.   zNDzJ<3>2z3ZzY<3>LzKHzHEzD<2>3z3fzX<2>Az8Mzc7zF<2>1z\
  174.   3czD<3>Hz5Bz35z1zzC<3>Zz6Sz5Lz4Ez27z1CznKzu<3>6zJ3z9\
  175.   Lzk<5>BzP9zM8zI<3>1z36zG5zE4zC
  176.   }
  177.  
  178. frm:MandelbrotMix4 {; Jim Muth
  179. a=real(p1), b=imag(p1), d=real(p2), f=imag(p2),
  180. g=1/f, h=1/d, j=1/(f-b), z=(-a*b*g*h)^j,
  181. k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel):
  182. z=k*((a*(z^b))+(d*(z^f)))+c,
  183. |z| < l
  184. }
  185.  
  186. END 20.0 PAR-FORMULA FILE==================================
  187.  
  188.  
  189. - --------------------------------------------------------------
  190. Thanks for using Fractint, The Fractals and Fractint Discussion List
  191. Post Message:   fractint@lists.xmission.com
  192. Get Commands:   majordomo@lists.xmission.com "help"
  193. Administrator:  twegner@swbell.net
  194. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  195.  
  196. ------------------------------
  197.  
  198. Date: Tue, 18 Jan 2000 08:42:31 GMT
  199. From: "Rupert Millard" <rupertam@hotmail.com>
  200. Subject: Re: (fractint) Colour Map Recognition, I've writen a program
  201.  
  202. Hello all,
  203.           You can download my compressed duplicate colour map program at:
  204.  
  205. http://www.geocities.com/kangarupert/page10.html
  206.  
  207. Unfortunatley it says some maps are the same when they are not, check them 
  208. carefully in Fractint before you delete them. I will improve the program 
  209. when I have time so that double-checking will not be neccesary. I have 
  210. written this with best intentoins at heart and I accept no responsibility if 
  211. something goes wrong.
  212.  
  213. From,
  214. Rupert
  215. ______________________________________________________
  216. Get Your Private, Free Email at http://www.hotmail.com
  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@swbell.net
  224. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  225.  
  226. ------------------------------
  227.  
  228. Date: Wed, 19 Jan 2000 01:31:45 -0500 (EST)
  229. From: Jim Muth <jamth@mindspring.com>
  230. Subject: (fractint) FOTD, 19-01-00 (Schmidget Midget) (c)
  231.  
  232. FOTD -- January 19, 2000
  233.  
  234. Fractal enthusiasts and visionaries:
  235.  
  236. When I saw today's midget, I said to myself, "midget schmidget, 
  237. that's no midget.  It's just an open area that will fill in when 
  238. a higher maxiter is used."  Almost as a joke, I raised the 
  239. maxiter to 500,000 and recalculated the picture.  But the midget 
  240. did not vanish.  That is when I decided on the name: "Schmidget 
  241. Midget".
  242.  
  243. The midget is a true midget of order 1.2 or something like that. 
  244. Actually, the formula is -(Z^1.2)-1.23*(Z^1.234)+C, an obviously 
  245. whimsical arrangement.  As is the case with many midgets of such 
  246. a low order, the midget in today's picture is surrounded by 
  247. strangely decorative fractal objects, all divided and sub-div-
  248. ided to infinity.  There is a smaller sub-midget near the south 
  249. shore of today's midget, which I will investigate first thing 
  250. tomorrow.
  251.  
  252. The fractal weather was cloudy and very cold again today.  A few 
  253. flakes of snow drifted down during the afternoon, but did not 
  254. accumulate on the ground.  The temperature of 20F (-6.5C) was 
  255. perfect for snowmaking on the area ski-resorts.
  256.  
  257. Right now, it's getting late and the cats are getting hungry.  
  258. It's time to shut down the Fractal shoppe until tomorrow, and 
  259. call it a night.  Until next time, take care, and the parameter 
  260. file is slow.  Don't forget to download the image from:
  261.  
  262.           <alt.binaries.pictures.fractals>
  263.  
  264. or from:
  265.  
  266.           <http://home.att.net/~Paul.N.Lee/FotD/FotD.html>
  267.  
  268. My philosophy foundered once again today.  As always, I'll try 
  269. again tomorrow.
  270.  
  271.  
  272. Jim Muth
  273. jamth@mindspring.com
  274.  
  275.  
  276. START FORMULA==============================================
  277.  
  278. MandelbrotMix4 {; Jim Muth
  279. a=real(p1), b=imag(p1), d=real(p2), f=imag(p2),
  280. g=1/f, h=1/d, j=1/(f-b), z=(-a*b*g*h)^j,
  281. k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel):
  282. z=k*((a*(z^b))+(d*(z^f)))+c,
  283. |z| < l
  284. }
  285.  
  286. END FORMULA================================================
  287.  
  288. START PARAMETER FILE=======================================
  289.  
  290. Schmidget_Midget   { ; time=0:28:29.00, SF5 on p200
  291.   reset=2000 type=formula formulafile=critical.frm
  292.   formulaname=MandelbrotMix4 function=ident
  293.   center-mag=+0.05528421807509840/+0.21748697569581040\
  294.   /259.4338/1/32.5 params=-1/1.2/-1.23/1.234/-0.4/0
  295.   float=y maxiter=500000 bailout=25 inside=0 logmap=49
  296.   symmetry=none periodicity=10
  297.   colors=000fABlB8<17>Z7CY6DY6DX6DW6DV6DV5FU5HR6JP9LND\
  298.   NLFP<2>0gu<24>1JI1IG1HF<3>1E9<3>CQ9ES9HV9JYAM`FObK<3\
  299.   >igcnhhsjmrjrrjwrjzqjw<3>pejpcgpbdp`a<2>oWaoS`<2>nL`\
  300.   <3>mU_mW_mYZm_ZmaZ<5>lhYliXljX<4>kmWknWknV<3>kpVlqWn\
  301.   qWorXqsYruY<3>pyZpzZpzZ<17>kzajzajza<2>izaizagz`<3>l\
  302.   zdmzenzf<2>qzhozi<4>nzinzjnzjmzjmzjmzj<12>hzlhzmgzm<\
  303.   2>fzmfzmgzn<6>`zg_zfZze<3>VzaRzb<3>_zXazWczVezTgzSiz\
  304.   RjzR<13>lzElzDlzD<3>lz91zY<2>0z_<5>`zF
  305.   }
  306.  
  307. END PARAMETER FILE=========================================
  308.  
  309. START 20.0 PAR-FORMULA FILE================================
  310.  
  311. Schmidget_Midget   { ; time=0:28:29.00, SF5 on p200
  312.   reset=2000 type=formula formulafile=critical.frm
  313.   formulaname=MandelbrotMix4 function=ident
  314.   center-mag=+0.05528421807509840/+0.21748697569581040\
  315.   /259.4338/1/32.5 params=-1/1.2/-1.23/1.234/-0.4/0
  316.   float=y maxiter=500000 bailout=25 inside=0 logmap=49
  317.   symmetry=none periodicity=10
  318.   colors=000fABlB8<17>Z7CY6DY6DX6DW6DV6DV5FU5HR6JP9LND\
  319.   NLFP<2>0gu<24>1JI1IG1HF<3>1E9<3>CQ9ES9HV9JYAM`FObK<3\
  320.   >igcnhhsjmrjrrjwrjzqjw<3>pejpcgpbdp`a<2>oWaoS`<2>nL`\
  321.   <3>mU_mW_mYZm_ZmaZ<5>lhYliXljX<4>kmWknWknV<3>kpVlqWn\
  322.   qWorXqsYruY<3>pyZpzZpzZ<17>kzajzajza<2>izaizagz`<3>l\
  323.   zdmzenzf<2>qzhozi<4>nzinzjnzjmzjmzjmzj<12>hzlhzmgzm<\
  324.   2>fzmfzmgzn<6>`zg_zfZze<3>VzaRzb<3>_zXazWczVezTgzSiz\
  325.   RjzR<13>lzElzDlzD<3>lz91zY<2>0z_<5>`zF
  326.   }
  327.  
  328. frm:MandelbrotMix4 {; Jim Muth
  329. a=real(p1), b=imag(p1), d=real(p2), f=imag(p2),
  330. g=1/f, h=1/d, j=1/(f-b), z=(-a*b*g*h)^j,
  331. k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel):
  332. z=k*((a*(z^b))+(d*(z^f)))+c,
  333. |z| < l
  334. }
  335.  
  336. END 20.0 PAR-FORMULA FILE==================================
  337.  
  338.  
  339. - --------------------------------------------------------------
  340. Thanks for using Fractint, The Fractals and Fractint Discussion List
  341. Post Message:   fractint@lists.xmission.com
  342. Get Commands:   majordomo@lists.xmission.com "help"
  343. Administrator:  twegner@swbell.net
  344. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  345.  
  346. ------------------------------
  347.  
  348. Date: Wed, 19 Jan 2000 15:00:56 GET
  349. From: "Tony \(Anthony\) Hanmer" <a_hanmer@hotmail.com>
  350. Subject: Re: (fractint) Colour Map Recognition, I've writen a program
  351.  
  352. Many thanks, Rupert, for developing this programme!  Most gratifying.  I'm 
  353. currently rather a pauper as far as free computer access goes, but in a 
  354. while I hope for this to change, and to be able to investigate what you've 
  355. produced.  Rest assured that it will be very useful.
  356.  
  357. Thanks again,
  358.  
  359. Tony Hanmer
  360. ______________________________________________________
  361. Get Your Private, Free Email at http://www.hotmail.com
  362.  
  363.  
  364. - --------------------------------------------------------------
  365. Thanks for using Fractint, The Fractals and Fractint Discussion List
  366. Post Message:   fractint@lists.xmission.com
  367. Get Commands:   majordomo@lists.xmission.com "help"
  368. Administrator:  twegner@swbell.net
  369. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  370.  
  371. ------------------------------
  372.  
  373. Date: Wed, 19 Jan 2000 11:41:51 -0000
  374. From: Stephanie Dunne <sdunne@cs.may.ie>
  375. Subject: RE: (fractint) Colour Map Recognition, I've writen a program
  376.  
  377. Hi,
  378.  
  379. Can I get a copy of that colour map recognition program please?
  380.  
  381. Stephanie Dunne
  382.  
  383.  
  384.  
  385.  
  386.  
  387. - --------------------------------------------------------------
  388. Thanks for using Fractint, The Fractals and Fractint Discussion List
  389. Post Message:   fractint@lists.xmission.com
  390. Get Commands:   majordomo@lists.xmission.com "help"
  391. Administrator:  twegner@swbell.net
  392. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  393.  
  394. ------------------------------
  395.  
  396. Date: Wed, 19 Jan 2000 17:19:07 +-100
  397. From: Severino Fernandez <severinofer@recol.es>
  398. Subject: (fractint) change detection using multifractal analysis
  399.  
  400. I am very interested in automated change detection on images, =
  401. particularly in small area changes
  402. in remote sensing images, such as caused by changes in structures, new =
  403. buildings, new roads, etc.
  404. I have read the paper on change detection in images using multifractal =
  405. analysis written by Cristophe Canus and Jacques Levy Vehel and their =
  406. approach seemed extremely innovative and with a great potential.
  407. I tried to implement it using the large deviation spectrum, estimating =
  408. it with the simple histogram technique that Dr. Levy Vehel mentions in =
  409. some other of his papers, and using dyadic partitions of my sample =
  410. images, but the spectra I get are very discountinuous, due to the =
  411. non-overlapping of the capacity measures computed at the different =
  412. partitions. In fact, they do not resemble at all the spectra that Dr =
  413. Canus and Dr Levy Vehel present in their paper.
  414. I assume that I am wrongly interpreting the technique or that the method =
  415. for spectrum estimation I am using is not the appropiate one.
  416. If somebody has made any experience on this particular subject, I think =
  417. I need advice or any hint on multifractal spectrum estimation algorithms =
  418. publications, web pages or free software.
  419. Thank you all in advance
  420.  
  421. Severino Fernandez
  422. Instituto Nacional de Tecnica Aeroespacial
  423. Division de Ciencias del Espacio
  424. Departamento de Teledeteccion
  425. Carretera de Ajalvir, Km 4
  426. 28850 Torrejon de Ardoz
  427. Spain
  428. Tel  +34 91 677 41 30
  429.       +34 91 677 41 90
  430.       +34 91 305 16 52
  431. Fax +34 91 677 46 46
  432. Email severinofer@recol.es
  433.  
  434.  
  435.  
  436.  
  437. - --------------------------------------------------------------
  438. Thanks for using Fractint, The Fractals and Fractint Discussion List
  439. Post Message:   fractint@lists.xmission.com
  440. Get Commands:   majordomo@lists.xmission.com "help"
  441. Administrator:  twegner@swbell.net
  442. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  443.  
  444. ------------------------------
  445.  
  446. Date: Wed, 19 Jan 2000 18:38:02 EST
  447. From: RParracho@aol.com
  448. Subject: Re: (fractint) Colour Map Recognition, dos help
  449.  
  450. i was wondering if anyone remembers the dos pipe or redirect so the output of 
  451. this great little utility can go to a text file or diectly to the printer?
  452.  
  453.  
  454. - --------------------------------------------------------------
  455. Thanks for using Fractint, The Fractals and Fractint Discussion List
  456. Post Message:   fractint@lists.xmission.com
  457. Get Commands:   majordomo@lists.xmission.com "help"
  458. Administrator:  twegner@swbell.net
  459. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  460.  
  461. ------------------------------
  462.  
  463. Date: Thu, 20 Jan 2000 0:31 0000
  464. From: comdotatdotcom@csi.com
  465. Subject: RE: Re: (fractint) Colour Map Recognition, dos help
  466.  
  467. Hi,
  468.  
  469.  
  470. >i was wondering if anyone remembers the dos pipe or redirect so the
  471. >output of
  472. >this great little utility can go to a text file or diectly to the printer?
  473.  
  474. That'll be the > sign like this:
  475.  
  476. widget > out.txt
  477.  
  478. where widget is the name of the utility, to print it try:
  479.  
  480. widget > prn:
  481. or:
  482. widget > lpt1:
  483.  
  484. Cheers,
  485.           Robin.
  486.  
  487.  
  488.  
  489.  
  490. - --------------------------------------------------------------
  491. Thanks for using Fractint, The Fractals and Fractint Discussion List
  492. Post Message:   fractint@lists.xmission.com
  493. Get Commands:   majordomo@lists.xmission.com "help"
  494. Administrator:  twegner@swbell.net
  495. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  496.  
  497. ------------------------------
  498.  
  499. Date: Wed, 19 Jan 2000 21:26:45 EST
  500. From: RParracho@aol.com
  501. Subject: Re: (fractint) Colour Map Recognition, dos help
  502.  
  503. i tried the ">" redirect and it still went to console...am i just doing this 
  504. wrong?
  505.  
  506. c:\fractint\map>multimap > dupes.txt
  507.  
  508. it didn't redirect to my printer either.  can you or anyone else do it 
  509. successfully?
  510.  
  511. - --------------------------------------------------------------
  512. Thanks for using Fractint, The Fractals and Fractint Discussion List
  513. Post Message:   fractint@lists.xmission.com
  514. Get Commands:   majordomo@lists.xmission.com "help"
  515. Administrator:  twegner@swbell.net
  516. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  517.  
  518. ------------------------------
  519.  
  520. Date: Wed, 19 Jan 2000 22:22:19 -0500
  521. From: Harry Bissell <harrybissell@prodigy.net>
  522. Subject: Re: (fractint) Colour Map Recognition, dos help
  523.  
  524. I think you have to use
  525.  
  526. copy C:\xxxxxxxx   >prn  or lpt1 etc...
  527.  
  528. :^) Harry
  529.  
  530. RParracho@aol.com wrote:
  531.  
  532. > i tried the ">" redirect and it still went to console...am i just doing this
  533. > wrong?
  534. >
  535. > c:\fractint\map>multimap > dupes.txt
  536. >
  537. > it didn't redirect to my printer either.  can you or anyone else do it
  538. > successfully?
  539. >
  540. > --------------------------------------------------------------
  541. > Thanks for using Fractint, The Fractals and Fractint Discussion List
  542. > Post Message:   fractint@lists.xmission.com
  543. > Get Commands:   majordomo@lists.xmission.com "help"
  544. > Administrator:  twegner@swbell.net
  545. > Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  546.  
  547.  
  548. - --------------------------------------------------------------
  549. Thanks for using Fractint, The Fractals and Fractint Discussion List
  550. Post Message:   fractint@lists.xmission.com
  551. Get Commands:   majordomo@lists.xmission.com "help"
  552. Administrator:  twegner@swbell.net
  553. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  554.  
  555. ------------------------------
  556.  
  557. Date: Thu, 20 Jan 2000 00:39:00 -0500 (EST)
  558. From: Jim Muth <jamth@mindspring.com>
  559. Subject: (fractint) FOTD, 20-01-00 (Cyclogenesis) (c)
  560.  
  561. FOTD -- January 20, 2000
  562.  
  563. Fractal enthusiasts and visionaries:
  564.  
  565. Here in Fractal land everyone is preparing for the big one -- 
  566. the blizzard of 2000, which is due to strike Thursday and drop 
  567. as much as 6 inches on the area.  Of course in these parts an 
  568. inch of snow is almost a blizzard, so 6 inches must be 
  569. considered a storm of biblical proportions.
  570.  
  571. The incredible thing is that the storm which is due to drop all 
  572. that snow does not yet exist.  It is expected to develop 
  573. Thursday morning just off the coast.  Since the development of a 
  574. cyclonic storm is known as Cyclogenesis, and today's fractal is 
  575. twisted into spiral bands, I named the picture "Cyclogenesis".
  576.  
  577. Yes, I realize that the central midget is turning in the wrong 
  578. direction for a cyclone in the Northern Hemisphere, but maybe 
  579. the scene is in the Southern Hemisphere.
  580.  
  581. The formula behind the cyclone is my MandelbrotMix4, with some 
  582. significant irrational numbers randomly fed into it.  And yes, I 
  583. am guilty of a bit of post-processing in a graphic program.
  584.  
  585. The parameter file, if you choose to run it, is a slow one, 
  586. requiring 41 minutes on a Pentium 200mhz.  The JPEG'd image file 
  587. can be downloaded in only a minute or two from:
  588.  
  589.           <alt.binaries.pictures.fractals>
  590.  
  591. or from:
  592.  
  593.           <http://home.att.net/~Paul.N.Lee/FotD/FotD.html>
  594.  
  595. The fractal weather today was bearable, with partly cloudy skies 
  596. and an afternoon temperature of 32F (0C), which was milder than 
  597. yesterday, but still too cold for fractal cats to venture out of 
  598. doors.
  599.  
  600. A few days ago I left Mr. Percy Smedley standing in the middle 
  601. of his four-dimensional room contemplating the job before him of 
  602. painting the six walls.  Lest there be fear that I have 
  603. abandoned Mr. Smedley, let me assure you that I have not 
  604. forgotten him.  I have merely been too busy to properly describe 
  605. his task as he covers, or rather fills, the six surface-volumes 
  606. of the six walls with paint.  (Actually, I'm not sure how I 
  607. manage to fit all the things I do into a day with only 24 hours.)
  608.  
  609. I hope to return to Mr. Smedley tomorrow.  And if the snow 
  610. develops as predicted, things will grind to a halt, giving me 
  611. plenty of time to clear the driveway and return to our intrepid 
  612. painter.
  613.  
  614. Until that glorious moment arrives, take care, and the 
  615. philosophy *will* return, but Smedley comes first.
  616.  
  617.  
  618. Jim Muth
  619. jamth@mindspring.com
  620.  
  621.  
  622. START FORMULA==============================================
  623.  
  624. MandelbrotMix4 {; Jim Muth
  625. a=real(p1), b=imag(p1), d=real(p2), f=imag(p2),
  626. g=1/f, h=1/d, j=1/(f-b), z=(-a*b*g*h)^j,
  627. k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel):
  628. z=k*((a*(z^b))+(d*(z^f)))+c,
  629. |z| < l
  630. }
  631.  
  632. END FORMULA================================================
  633.  
  634. START PARAMETER FILE=======================================
  635.  
  636. Cyclogenesis       { ; time=0:41:22.64, SF5 on a p200
  637.   reset=2000 type=formula formulafile=critical.frm
  638.   formulaname=MandelbrotMix4 function=ident passes=1
  639.   center-mag=-0.23418923607130600/+0.42864036781657180\
  640.   /1.288888e+011/1/90
  641.   params=2.71828182845905/3.14159265358979/1.414213562\
  642.   38/0.70710706/0/0 float=y maxiter=6000 bailout=25
  643.   inside=0 logmap=-614 symmetry=none periodicity=10
  644.   colors=000E0eE0e<3>L0mN0oP0qR0s<2>X6xZ8z`AzZCxVEuNGm\
  645.   HHdAJX2LN0NG0P60P00T20V40X80ZA0bC0dG0eH0gJ2iN6mP8oTA\
  646.   qVCsXEu`HxbJzdLzgNziPzmTzoVzqXzuZzv`zxezsizmqogxkbzg\
  647.   ZzbTz`NzVHzPCzJ8X8kZ6z<2>Z6zZ6z`6z`6z`4z`4z`4z`4zb4z\
  648.   b4vb4Ab4Ab2Ab2ed2gd2id2id2kd2md2mb6q`8sZAuXEvVGxTHzR\
  649.   JzPNzNPzLRzJTzHXz<2>CbzGdzJezNgzPixTkuXmq`okbqgesdiu\
  650.   `mvVoxRszNvzHzzEzzAzz4zz0zz0zz0zzHzzezzdzzdzzbzzbzz`\
  651.   zz`zzZzzZzzXzzXxzVvzVuzTuzTqzNmzJkzGgzCdz8bz4Zz0Vz0T\
  652.   z0Pz0Nz0Lz0Lz0Lz0Jz0Jz0Jz0Hz0Hz0Hz0Gz2Gz4Gz6Gz6Hz6Jz\
  653.   4Lz4Nz2Pz2Rz0Tz0Vz0Xz0`z0PzAVzAzz6zz0<4>zz0zz0zz0zz0\
  654.   zz2zz6vzAuzCqzGozHkzLizPezRdzV`zZZz`VzdTzeZz`bzVezRi\
  655.   zLmzHszCvz6zz2zz0zz0zz0xz4uz8qzEmzHgzNdzR`zX<2>PziRz\
  656.   kRzkRzkRzmRzmRzmRzmTzoTzoTzoTzoTzqTzqTzqTzqVzsVzsVzu\
  657.   <3>VzvVzvVzxVzxVzz<3>VzzVzzTzzTzzRzzRzzRzzPzzPzz0zX0\
  658.   zZ0zb4ze
  659.   }
  660.  
  661. END PARAMETER FILE=========================================
  662.  
  663. START 20.0 PAR-FORMULA FILE================================
  664.  
  665. Cyclogenesis       { ; time=0:41:22.64, SF5 on a p200
  666.   reset=2000 type=formula formulafile=critical.frm
  667.   formulaname=MandelbrotMix4 function=ident passes=1
  668.   center-mag=-0.23418923607130600/+0.42864036781657180\
  669.   /1.288888e+011/1/90
  670.   params=2.71828182845905/3.14159265358979/1.414213562\
  671.   38/0.70710706/0/0 float=y maxiter=6000 bailout=25
  672.   inside=0 logmap=-614 symmetry=none periodicity=10
  673.   colors=000E0eE0e<3>L0mN0oP0qR0s<2>X6xZ8z`AzZCxVEuNGm\
  674.   HHdAJX2LN0NG0P60P00T20V40X80ZA0bC0dG0eH0gJ2iN6mP8oTA\
  675.   qVCsXEu`HxbJzdLzgNziPzmTzoVzqXzuZzv`zxezsizmqogxkbzg\
  676.   ZzbTz`NzVHzPCzJ8X8kZ6z<2>Z6zZ6z`6z`6z`4z`4z`4z`4zb4z\
  677.   b4vb4Ab4Ab2Ab2ed2gd2id2id2kd2md2mb6q`8sZAuXEvVGxTHzR\
  678.   JzPNzNPzLRzJTzHXz<2>CbzGdzJezNgzPixTkuXmq`okbqgesdiu\
  679.   `mvVoxRszNvzHzzEzzAzz4zz0zz0zz0zzHzzezzdzzdzzbzzbzz`\
  680.   zz`zzZzzZzzXzzXxzVvzVuzTuzTqzNmzJkzGgzCdz8bz4Zz0Vz0T\
  681.   z0Pz0Nz0Lz0Lz0Lz0Jz0Jz0Jz0Hz0Hz0Hz0Gz2Gz4Gz6Gz6Hz6Jz\
  682.   4Lz4Nz2Pz2Rz0Tz0Vz0Xz0`z0PzAVzAzz6zz0<4>zz0zz0zz0zz0\
  683.   zz2zz6vzAuzCqzGozHkzLizPezRdzV`zZZz`VzdTzeZz`bzVezRi\
  684.   zLmzHszCvz6zz2zz0zz0zz0xz4uz8qzEmzHgzNdzR`zX<2>PziRz\
  685.   kRzkRzkRzmRzmRzmRzmTzoTzoTzoTzoTzqTzqTzqTzqVzsVzsVzu\
  686.   <3>VzvVzvVzxVzxVzz<3>VzzVzzTzzTzzRzzRzzRzzPzzPzz0zX0\
  687.   zZ0zb4ze
  688.   }
  689.  
  690. frm:MandelbrotMix4 {; Jim Muth
  691. a=real(p1), b=imag(p1), d=real(p2), f=imag(p2),
  692. g=1/f, h=1/d, j=1/(f-b), z=(-a*b*g*h)^j,
  693. k=real(p3)+1, l=imag(p3)+100, c=fn1(pixel):
  694. z=k*((a*(z^b))+(d*(z^f)))+c,
  695. |z| < l
  696. }
  697.  
  698. END 20.0 PAR-FORMULA FILE==================================
  699.  
  700.  
  701. - --------------------------------------------------------------
  702. Thanks for using Fractint, The Fractals and Fractint Discussion List
  703. Post Message:   fractint@lists.xmission.com
  704. Get Commands:   majordomo@lists.xmission.com "help"
  705. Administrator:  twegner@swbell.net
  706. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  707.  
  708. ------------------------------
  709.  
  710. Date: Thu, 20 Jan 2000 14:19:59 -0800
  711. From: Gregory McClure <Gregory.McClure@quantum.com>
  712. Subject: (fractint) GregsBrn.frm -- Barnsley-Style Formulas...
  713.  
  714. Here are some formulas in the same vein as the GregsMan formulas posted
  715. earlier...
  716.  
  717. File GregsBrn.frm
  718. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  719. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  720. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  721. =3D=3D=3D=3D
  722. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
  723. GregsBarnsleyC2E {; =A92000 Greg McClure -- Dual func with even =
  724. constants
  725. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  726. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  727. 6/MANR
  728. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D ident/ident =3D =
  729. standard Barnsley
  730.   z =3D p1 + Pixel:
  731.    ip =3D imag(p3)
  732.    IF(IP<0)
  733.      ip =3D abs(ip)-1
  734.      z =3D z + p1
  735.    ENDIF
  736.    IF(real(z)>=3D0)
  737.      z=3D(fn1(z)-p2)*Pixel
  738.    ELSE
  739.      z=3D(fn2(z)+p2)*Pixel
  740.    ENDIF,
  741.    IF(ip<0.1)
  742.     ct =3D z
  743.    ELSEIF(ip<1.1)
  744.     ct =3D real(z)
  745.    ELSEIF(ip<2.1)
  746.     ct =3D imag(z)
  747.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  748.     ct =3D real(z)
  749.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  750.     ct =3D imag(z)
  751.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  752.     ct =3D real(z)
  753.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  754.     ct =3D imag(z)
  755.    ELSEIF(ip<5.1)
  756.     ct =3D (abs(real(z)) + abs(imag(z)))
  757.    ELSEIF(ip<6.1)
  758.     ct =3D (real(z) + imag(z))
  759.    ELSE
  760.     ct =3D z
  761.    ENDIF,
  762.     |ct| <=3D |real(p3)|
  763.   }
  764.  
  765. GregsBarnsleyC2P {; =A92000 Greg McClure -- Dual func with pos constant
  766. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  767. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  768. 6/MANR
  769. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D ident/ident =3D =
  770. standard Barnsley
  771.   z =3D p1 + Pixel:
  772.    ip =3D imag(p3)
  773.    IF(IP<0)
  774.      ip =3D abs(ip)-1
  775.      z =3D z + p1
  776.    ENDIF
  777.    IF(real(z)>=3D0)
  778.      z=3D(fn1(z)-p2)*Pixel
  779.    ELSE
  780.      z=3D(fn2(z)+1)*Pixel
  781.    ENDIF,
  782.    IF(ip<0.1)
  783.     ct =3D z
  784.    ELSEIF(ip<1.1)
  785.     ct =3D real(z)
  786.    ELSEIF(ip<2.1)
  787.     ct =3D imag(z)
  788.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  789.     ct =3D real(z)
  790.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  791.     ct =3D imag(z)
  792.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  793.     ct =3D real(z)
  794.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  795.     ct =3D imag(z)
  796.    ELSEIF(ip<5.1)
  797.     ct =3D (abs(real(z)) + abs(imag(z)))
  798.    ELSEIF(ip<6.1)
  799.     ct =3D (real(z) + imag(z))
  800.    ELSE
  801.     ct =3D z
  802.    ENDIF,
  803.     |ct| <=3D |real(p3)|
  804.   }
  805.  
  806. GregsBarnsleyC2N {; =A92000 Greg McClure -- Dual func with neg constant
  807. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  808. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  809. 6/MANR
  810. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D ident/ident =3D =
  811. standard Barnsley
  812.   z =3D p1 + Pixel:
  813.    ip =3D imag(p3)
  814.    IF(IP<0)
  815.      ip =3D abs(ip)-1
  816.      z =3D z + p1
  817.    ENDIF
  818.    IF(real(z)>=3D0)
  819.      z=3D(fn1(z)-1)*Pixel
  820.    ELSE
  821.      z=3D(fn2(z)+p2)*Pixel
  822.    ENDIF,
  823.    IF(ip<0.1)
  824.     ct =3D z
  825.    ELSEIF(ip<1.1)
  826.     ct =3D real(z)
  827.    ELSEIF(ip<2.1)
  828.     ct =3D imag(z)
  829.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  830.     ct =3D real(z)
  831.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  832.     ct =3D imag(z)
  833.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  834.     ct =3D real(z)
  835.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  836.     ct =3D imag(z)
  837.    ELSEIF(ip<5.1)
  838.     ct =3D (abs(real(z)) + abs(imag(z)))
  839.    ELSEIF(ip<6.1)
  840.     ct =3D (real(z) + imag(z))
  841.    ELSE
  842.     ct =3D z
  843.    ENDIF,
  844.     |ct| <=3D |real(p3)|
  845.   }
  846.  
  847. GregsBarnsleyM2E {; =A92000 Greg McClure -- Dual func with even mult
  848. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  849. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  850. 6/MANR
  851. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D ident/ident =3D =
  852. standard Barnsley
  853.   z =3D p1 + Pixel:
  854.    ip =3D imag(p3)
  855.    IF(IP<0)
  856.      ip =3D abs(ip)-1
  857.      z =3D z + p1
  858.    ENDIF
  859.    IF(real(z)>=3D0)
  860.      z=3Dp2*(fn1(z)-1)*Pixel
  861.    ELSE
  862.      z=3Dp2*(fn2(z)+1)*Pixel
  863.    ENDIF,
  864.    IF(ip<0.1)
  865.     ct =3D z
  866.    ELSEIF(ip<1.1)
  867.     ct =3D real(z)
  868.    ELSEIF(ip<2.1)
  869.     ct =3D imag(z)
  870.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  871.     ct =3D real(z)
  872.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  873.     ct =3D imag(z)
  874.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  875.     ct =3D real(z)
  876.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  877.     ct =3D imag(z)
  878.    ELSEIF(ip<5.1)
  879.     ct =3D (abs(real(z)) + abs(imag(z)))
  880.    ELSEIF(ip<6.1)
  881.     ct =3D (real(z) + imag(z))
  882.    ELSE
  883.     ct =3D z
  884.    ENDIF,
  885.     |ct| <=3D |real(p3)|
  886.   }
  887.  
  888. GregsBarnsleyM2P {; =A92000 Greg McClure -- Dual func with pos mult
  889. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  890. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  891. 6/MANR
  892. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D ident/ident =3D =
  893. standard Barnsley
  894.   z =3D p1 + Pixel:
  895.    ip =3D imag(p3)
  896.    IF(IP<0)
  897.      ip =3D abs(ip)-1
  898.      z =3D z + p1
  899.    ENDIF
  900.    IF(real(z)>=3D0)
  901.      z=3Dp2*(fn1(z)-1)*Pixel
  902.    ELSE
  903.      z=3D(fn2(z)+1)*Pixel
  904.    ENDIF,
  905.    IF(ip<0.1)
  906.     ct =3D z
  907.    ELSEIF(ip<1.1)
  908.     ct =3D real(z)
  909.    ELSEIF(ip<2.1)
  910.     ct =3D imag(z)
  911.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  912.     ct =3D real(z)
  913.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  914.     ct =3D imag(z)
  915.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  916.     ct =3D real(z)
  917.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  918.     ct =3D imag(z)
  919.    ELSEIF(ip<5.1)
  920.     ct =3D (abs(real(z)) + abs(imag(z)))
  921.    ELSEIF(ip<6.1)
  922.     ct =3D (real(z) + imag(z))
  923.    ELSE
  924.     ct =3D z
  925.    ENDIF,
  926.     |ct| <=3D |real(p3)|
  927.   }
  928.  
  929. GregsBarnsleyM2N {; =A92000 Greg McClure -- Dual func with neg mult
  930. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  931. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  932. 6/MANR
  933. ; p1 =3D 0/0, p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D ident/ident =3D =
  934. standard Barnsley
  935.   z =3D p1 + Pixel:
  936.    ip =3D imag(p3)
  937.    IF(IP<0)
  938.      ip =3D abs(ip)-1
  939.      z =3D z + p1
  940.    ENDIF
  941.    IF(real(z)>=3D0)
  942.      z=3D(fn1(z)-1)*Pixel
  943.    ELSE
  944.      z=3Dp2*(fn2(z)+1)*Pixel
  945.    ENDIF,
  946.    IF(ip<0.1)
  947.     ct =3D z
  948.    ELSEIF(ip<1.1)
  949.     ct =3D real(z)
  950.    ELSEIF(ip<2.1)
  951.     ct =3D imag(z)
  952.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  953.     ct =3D real(z)
  954.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  955.     ct =3D imag(z)
  956.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  957.     ct =3D real(z)
  958.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  959.     ct =3D imag(z)
  960.    ELSEIF(ip<5.1)
  961.     ct =3D (abs(real(z)) + abs(imag(z)))
  962.    ELSEIF(ip<6.1)
  963.     ct =3D (real(z) + imag(z))
  964.    ELSE
  965.     ct =3D z
  966.    ENDIF,
  967.     |ct| <=3D |real(p3)|
  968.   }
  969.  
  970. GregsBarnsJulC2E {; =A92000 Greg McClure -- Dual func with even =
  971. constants
  972. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  973. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  974. 6/MANR
  975. ; p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D ident/ident =3D standard Barns =
  976. Julia f/p1
  977.   z =3D Pixel:
  978.    IF(real(z)>=3D0)
  979.      z=3D(fn1(z)-p2)*p1
  980.    ELSE
  981.      z=3D(fn2(z)+p2)*p1
  982.    ENDIF,
  983.    ip =3D imag(p3)
  984.    IF(ip<0.1)
  985.     ct =3D z
  986.    ELSEIF(ip<1.1)
  987.     ct =3D real(z)
  988.    ELSEIF(ip<2.1)
  989.     ct =3D imag(z)
  990.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  991.     ct =3D real(z)
  992.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  993.     ct =3D imag(z)
  994.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  995.     ct =3D real(z)
  996.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  997.     ct =3D imag(z)
  998.    ELSEIF(ip<5.1)
  999.     ct =3D (abs(real(z)) + abs(imag(z)))
  1000.    ELSEIF(ip<6.1)
  1001.     ct =3D (real(z) + imag(z))
  1002.    ELSE
  1003.     ct =3D z
  1004.    ENDIF,
  1005.     |ct| <=3D |real(p3)|
  1006.   }
  1007.  
  1008. GregsBarnsJulC2P {; =A92000 Greg McClure -- Dual func with pos constant
  1009. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1010. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1011. 6/MANR
  1012. ; p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D ident/ident =3D standard Barns =
  1013. Julia f/p1
  1014.   z =3D Pixel:
  1015.    IF(real(z)>=3D0)
  1016.      z=3D(fn1(z)-p2)*p1
  1017.    ELSE
  1018.      z=3D(fn2(z)+1)*p1
  1019.    ENDIF,
  1020.    ip =3D imag(p3)
  1021.    IF(ip<0.1)
  1022.     ct =3D z
  1023.    ELSEIF(ip<1.1)
  1024.     ct =3D real(z)
  1025.    ELSEIF(ip<2.1)
  1026.     ct =3D imag(z)
  1027.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1028.     ct =3D real(z)
  1029.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1030.     ct =3D imag(z)
  1031.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1032.     ct =3D real(z)
  1033.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1034.     ct =3D imag(z)
  1035.    ELSEIF(ip<5.1)
  1036.     ct =3D (abs(real(z)) + abs(imag(z)))
  1037.    ELSEIF(ip<6.1)
  1038.     ct =3D (real(z) + imag(z))
  1039.    ELSE
  1040.     ct =3D z
  1041.    ENDIF,
  1042.     |ct| <=3D |real(p3)|
  1043.   }
  1044.  
  1045. GregsBarnsJulC2N {; =A92000 Greg McClure -- Dual func with neg constant
  1046. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1047. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1048. 6/MANR
  1049. ; p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D ident/ident =3D standard Barns =
  1050. Julia f/p1
  1051.   z =3D Pixel:
  1052.    IF(real(z)>=3D0)
  1053.      z=3D(fn1(z)-1)*p1
  1054.    ELSE
  1055.      z=3D(fn2(z)+p2)*p1
  1056.    ENDIF,
  1057.    ip =3D imag(p3)
  1058.    IF(ip<0.1)
  1059.     ct =3D z
  1060.    ELSEIF(ip<1.1)
  1061.     ct =3D real(z)
  1062.    ELSEIF(ip<2.1)
  1063.     ct =3D imag(z)
  1064.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1065.     ct =3D real(z)
  1066.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1067.     ct =3D imag(z)
  1068.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1069.     ct =3D real(z)
  1070.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1071.     ct =3D imag(z)
  1072.    ELSEIF(ip<5.1)
  1073.     ct =3D (abs(real(z)) + abs(imag(z)))
  1074.    ELSEIF(ip<6.1)
  1075.     ct =3D (real(z) + imag(z))
  1076.    ELSE
  1077.     ct =3D z
  1078.    ENDIF,
  1079.     |ct| <=3D |real(p3)|
  1080.   }
  1081.  
  1082. GregsBarnsJulM2E {; =A92000 Greg McClure -- Dual func with even mult
  1083. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1084. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1085. 6/MANR
  1086. ; p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D ident/ident =3D standard Barns =
  1087. Julia f/p1
  1088.   z =3D Pixel:
  1089.    IF(real(z)>=3D0)
  1090.      z=3Dp2*(fn1(z)-1)*p1
  1091.    ELSE
  1092.      z=3Dp2*(fn2(z)+1)*p1
  1093.    ENDIF,
  1094.    ip =3D imag(p3)
  1095.    IF(ip<0.1)
  1096.     ct =3D z
  1097.    ELSEIF(ip<1.1)
  1098.     ct =3D real(z)
  1099.    ELSEIF(ip<2.1)
  1100.     ct =3D imag(z)
  1101.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1102.     ct =3D real(z)
  1103.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1104.     ct =3D imag(z)
  1105.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1106.     ct =3D real(z)
  1107.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1108.     ct =3D imag(z)
  1109.    ELSEIF(ip<5.1)
  1110.     ct =3D (abs(real(z)) + abs(imag(z)))
  1111.    ELSEIF(ip<6.1)
  1112.     ct =3D (real(z) + imag(z))
  1113.    ELSE
  1114.     ct =3D z
  1115.    ENDIF,
  1116.     |ct| <=3D |real(p3)|
  1117.   }
  1118.  
  1119. GregsBarnsJulM2P {; =A92000 Greg McClure -- Dual func with pos mult
  1120. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1121. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1122. 6/MANR
  1123. ; p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D ident/ident =3D standard Barns =
  1124. Julia f/p1
  1125.   z =3D Pixel:
  1126.    IF(real(z)>=3D0)
  1127.      z=3Dp2*(fn1(z)-1)*p1
  1128.    ELSE
  1129.      z=3D(fn2(z)+1)*p1
  1130.    ENDIF,
  1131.    ip =3D imag(p3)
  1132.    IF(ip<0.1)
  1133.     ct =3D z
  1134.    ELSEIF(ip<1.1)
  1135.     ct =3D real(z)
  1136.    ELSEIF(ip<2.1)
  1137.     ct =3D imag(z)
  1138.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1139.     ct =3D real(z)
  1140.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1141.     ct =3D imag(z)
  1142.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1143.     ct =3D real(z)
  1144.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1145.     ct =3D imag(z)
  1146.    ELSEIF(ip<5.1)
  1147.     ct =3D (abs(real(z)) + abs(imag(z)))
  1148.    ELSEIF(ip<6.1)
  1149.     ct =3D (real(z) + imag(z))
  1150.    ELSE
  1151.     ct =3D z
  1152.    ENDIF,
  1153.     |ct| <=3D |real(p3)|
  1154.   }
  1155.  
  1156. GregsBarnsJulM2N {; =A92000 Greg McClure -- Dual func with neg mult
  1157. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1158. ; imag(p3) =3D type =3D 0/MOD, 1/REAL, 2/IMAG, 3/OR, 4/AND, 5/MANH, =
  1159. 6/MANR
  1160. ; p2 =3D 1/0, p3 =3D 2/0, fn1/fn2 =3D ident/ident =3D standard Barns =
  1161. Julia f/p1
  1162.   z =3D Pixel:
  1163.    IF(real(z)>=3D0)
  1164.      z=3D(fn1(z)-1)*p1
  1165.    ELSE
  1166.      z=3Dp2*(fn2(z)+1)*p1
  1167.    ENDIF,
  1168.    ip =3D imag(p3)
  1169.    IF(ip<0.1)
  1170.     ct =3D z
  1171.    ELSEIF(ip<1.1)
  1172.     ct =3D real(z)
  1173.    ELSEIF(ip<2.1)
  1174.     ct =3D imag(z)
  1175.    ELSEIF((ip<3.1) && (|rz|>|iz|))
  1176.     ct =3D real(z)
  1177.    ELSEIF((ip<3.1) && (|rz|<=3D|iz|))
  1178.     ct =3D imag(z)
  1179.    ELSEIF((ip<4.1) && (|rz|<|iz|))
  1180.     ct =3D real(z)
  1181.    ELSEIF((ip<4.1) && (|rz|>=3D|iz|))
  1182.     ct =3D imag(z)
  1183.    ELSEIF(ip<5.1)
  1184.     ct =3D (abs(real(z)) + abs(imag(z)))
  1185.    ELSEIF(ip<6.1)
  1186.     ct =3D (real(z) + imag(z))
  1187.    ELSE
  1188.     ct =3D z
  1189.    ENDIF,
  1190.     |ct| <=3D |real(p3)|
  1191.   }
  1192. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  1193. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  1194. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  1195. =3D=3D=3D=3D
  1196. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
  1197.  
  1198.   The Kwisatz Haderach,
  1199. =DF  Gregory J. McClure
  1200.  
  1201. - --------------------------------------------------------------
  1202. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1203. Post Message:   fractint@lists.xmission.com
  1204. Get Commands:   majordomo@lists.xmission.com "help"
  1205. Administrator:  twegner@swbell.net
  1206. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  1207.  
  1208. ------------------------------
  1209.  
  1210. Date: Thu, 20 Jan 2000 14:17:18 -0800
  1211. From: Gregory McClure <Gregory.McClure@quantum.com>
  1212. Subject: (fractint) GregsHyp.frm -- HyperComplex Formulas...
  1213.  
  1214. Here are some formulas in the same vein as the GregsMan formulas posted
  1215. earlier...
  1216.  
  1217. File GregsHyp.frm
  1218. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  1219. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  1220. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  1221. =3D=3D=3D=3D
  1222. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
  1223. GregsMandelHM1 {; =A92000 Greg McClure -- HyperMandel (Type ++--)
  1224. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1225. ; z(0) =3D (xP1+xPixel,yP1+yPixel,xP2,yP2)
  1226. ; z(n) =3D f[z(n-1)] + (xPixel,yPixel,xP2,yP2)
  1227. ; imag(p3) =3D type =3D 0/MOD,  1/MODRI, 2/MODJK, 3/REAL, 4/IMAG,
  1228. ;                 =3D 5/JMAG, 6/KMAG,  7/OR,    8/AND,  9/MANH, 10/MANR
  1229.   z1 =3D p1 + Pixel, z2 =3D p2, z =3D 0:
  1230.    f1 =3D real(z1) - imag(z2) + (0,1) * (imag(z1) + real(z2))
  1231.    f2 =3D real(z1) + imag(z2) + (0,1) * (imag(z1) - real(z2))
  1232.    f1 =3D fn1(f1)
  1233.    f2 =3D fn2(f2)
  1234.    z1 =3D (real(f1) + real(f2) + (0,1) * (imag(f1) + imag(f2))) / 2 + =
  1235. Pixel
  1236.    z2 =3D (imag(f1) - imag(f2) + (0,1) * (real(f2) - real(f1))) / 2 + =
  1237. p2
  1238.    z =3D sqrt(|z1| + |z2|)
  1239.    ip =3D imag(p3)
  1240.    rz =3D real(z1)
  1241.    iz =3D imag(z1)
  1242.    jz =3D real(z2)
  1243.    kz =3D imag(z2)
  1244.    IF(ip<0.1)
  1245.     ct =3D z
  1246.    ELSEIF(ip<1.1)
  1247.     ct =3D z1
  1248.    ELSEIF(ip<2.1)
  1249.     ct =3D z2
  1250.    ELSEIF(ip<3.1)
  1251.     ct =3D rz
  1252.    ELSEIF(ip<4.1)
  1253.     ct =3D iz
  1254.    ELSEIF(ip<5.1)
  1255.     ct =3D jz
  1256.    ELSEIF(ip<6.1)
  1257.     ct =3D kz
  1258.    ELSEIF((ip<7.1) && (|rz|>=3D|iz|) && (|rz|>=3D|jz|) && =
  1259. (|rz|>=3D|kz|))
  1260.     ct =3D rz
  1261.    ELSEIF((ip<7.1) && (|iz|>=3D|rz|) && (|iz|>=3D|jz|) && =
  1262. (|iz|>=3D|kz|))
  1263.     ct =3D iz
  1264.    ELSEIF((ip<7.1) && (|jz|>=3D|rz|) && (|jz|>=3D|iz|) && =
  1265. (|jz|>=3D|kz|))
  1266.     ct =3D jz
  1267.    ELSEIF((ip<7.1) && (|kz|>=3D|rz|) && (|iz|>=3D|kz|) && =
  1268. (|kz|>=3D|jz|))
  1269.     ct =3D kz
  1270.    ELSEIF((ip<8.1) && (|rz|<|iz|) && (|rz|<|jz|) && (|rz|<|kz|))
  1271.     ct =3D rz
  1272.    ELSEIF((ip<8.1) && (|iz|<|rz|) && (|iz|<|jz|) && (|iz|<|kz|))
  1273.     ct =3D iz
  1274.    ELSEIF((ip<8.1) && (|jz|<|rz|) && (|jz|<|iz|) && (|jz|<|kz|))
  1275.     ct =3D jz
  1276.    ELSEIF((ip<8.1) && (|kz|<|rz|) && (|kz|<|iz|) && (|kz|<|jz|))
  1277.     ct =3D kz
  1278.    ELSEIF(ip<9.1)
  1279.     ct =3D (abs(rz) + abs(iz) + abs(jz) + abs(kz))
  1280.    ELSEIF(ip<10.1)
  1281.     ct =3D (rz + iz + jz + kz)
  1282.    ELSE
  1283.     ct =3D z
  1284.    ENDIF,
  1285.     |ct| <=3D |real(p3)|
  1286.   }
  1287.  
  1288. GregsMandelHM2 {; =A92000 Greg McClure -- HyperMandel (Type --++)
  1289. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1290. ; z(0) =3D (xP2,yP2,xP1+xPixel,yP1+yPixel)
  1291. ; z(n) =3D f[z(n-1)] + (xP2,yP2,xPixel,yPixel)
  1292. ; imag(p3) =3D type =3D 0/MOD,  1/MODRI, 2/MODJK, 3/REAL, 4/IMAG,
  1293. ;                 =3D 5/JMAG, 6/KMAG,  7/OR,    8/AND,  9/MANH, 10/MANR
  1294.   z1 =3D p2, z2 =3D p1 + Pixel, z =3D 0:
  1295.    f1 =3D real(z1) - imag(z2) + (0,1) * (imag(z1) + real(z2))
  1296.    f2 =3D real(z1) + imag(z2) + (0,1) * (imag(z1) - real(z2))
  1297.    f1 =3D fn1(f1)
  1298.    f2 =3D fn2(f2)
  1299.    z1 =3D (real(f1) + real(f2) + (0,1) * (imag(f1) + imag(f2))) / 2 + =
  1300. p2
  1301.    z2 =3D (imag(f1) - imag(f2) + (0,1) * (real(f2) - real(f1))) / 2 + =
  1302. Pixel
  1303.    z =3D sqrt(|z1| + |z2|)
  1304.    ip =3D imag(p3)
  1305.    rz =3D real(z1)
  1306.    iz =3D imag(z1)
  1307.    jz =3D real(z2)
  1308.    kz =3D imag(z2)
  1309.    IF(ip<0.1)
  1310.     ct =3D z
  1311.    ELSEIF(ip<1.1)
  1312.     ct =3D z1
  1313.    ELSEIF(ip<2.1)
  1314.     ct =3D z2
  1315.    ELSEIF(ip<3.1)
  1316.     ct =3D rz
  1317.    ELSEIF(ip<4.1)
  1318.     ct =3D iz
  1319.    ELSEIF(ip<5.1)
  1320.     ct =3D jz
  1321.    ELSEIF(ip<6.1)
  1322.     ct =3D kz
  1323.    ELSEIF((ip<7.1) && (|rz|>=3D|iz|) && (|rz|>=3D|jz|) && =
  1324. (|rz|>=3D|kz|))
  1325.     ct =3D rz
  1326.    ELSEIF((ip<7.1) && (|iz|>=3D|rz|) && (|iz|>=3D|jz|) && =
  1327. (|iz|>=3D|kz|))
  1328.     ct =3D iz
  1329.    ELSEIF((ip<7.1) && (|jz|>=3D|rz|) && (|jz|>=3D|iz|) && =
  1330. (|jz|>=3D|kz|))
  1331.     ct =3D jz
  1332.    ELSEIF((ip<7.1) && (|kz|>=3D|rz|) && (|iz|>=3D|kz|) && =
  1333. (|kz|>=3D|jz|))
  1334.     ct =3D kz
  1335.    ELSEIF((ip<8.1) && (|rz|<|iz|) && (|rz|<|jz|) && (|rz|<|kz|))
  1336.     ct =3D rz
  1337.    ELSEIF((ip<8.1) && (|iz|<|rz|) && (|iz|<|jz|) && (|iz|<|kz|))
  1338.     ct =3D iz
  1339.    ELSEIF((ip<8.1) && (|jz|<|rz|) && (|jz|<|iz|) && (|jz|<|kz|))
  1340.     ct =3D jz
  1341.    ELSEIF((ip<8.1) && (|kz|<|rz|) && (|kz|<|iz|) && (|kz|<|jz|))
  1342.     ct =3D kz
  1343.    ELSEIF(ip<9.1)
  1344.     ct =3D (abs(rz) + abs(iz) + abs(jz) + abs(kz))
  1345.    ELSEIF(ip<10.1)
  1346.     ct =3D (rz + iz + jz + kz)
  1347.    ELSE
  1348.     ct =3D z
  1349.    ENDIF,
  1350.     |ct| <=3D |real(p3)|
  1351.   }
  1352.  
  1353. GregsMandelHMA(XAXIS) {; =A92000 Greg McClure -- HyperMandel (Type =
  1354. ++--)
  1355. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1356. ; z(0) =3D (xP1+xPixel,yP1+yPixel,xP2,yP2)     \ FORCED SYMMETRY
  1357. ; z(n) =3D f[z(n-1)] + (xPixel,yPixel,xP2,yP2) / ON X-AXIS
  1358. ; imag(p3) =3D type =3D 0/MOD,  1/MODRI, 2/MODJK, 3/REAL, 4/IMAG,
  1359. ;                 =3D 5/JMAG, 6/KMAG,  7/OR,    8/AND,  9/MANH, 10/MANR
  1360.   z1 =3D p1 + Pixel, z2 =3D p2, z =3D 0:
  1361.    f1 =3D real(z1) - imag(z2) + (0,1) * (imag(z1) + real(z2))
  1362.    f2 =3D real(z1) + imag(z2) + (0,1) * (imag(z1) - real(z2))
  1363.    f1 =3D fn1(f1)
  1364.    f2 =3D fn2(f2)
  1365.    z1 =3D (real(f1) + real(f2) + (0,1) * (imag(f1) + imag(f2))) / 2 + =
  1366. Pixel
  1367.    z2 =3D (imag(f1) - imag(f2) + (0,1) * (real(f2) - real(f1))) / 2 + =
  1368. p2
  1369.    z =3D sqrt(|z1| + |z2|)
  1370.    ip =3D imag(p3)
  1371.    rz =3D real(z1)
  1372.    iz =3D imag(z1)
  1373.    jz =3D real(z2)
  1374.    kz =3D imag(z2)
  1375.    IF(ip<0.1)
  1376.     ct =3D z
  1377.    ELSEIF(ip<1.1)
  1378.     ct =3D z1
  1379.    ELSEIF(ip<2.1)
  1380.     ct =3D z2
  1381.    ELSEIF(ip<3.1)
  1382.     ct =3D rz
  1383.    ELSEIF(ip<4.1)
  1384.     ct =3D iz
  1385.    ELSEIF(ip<5.1)
  1386.     ct =3D jz
  1387.    ELSEIF(ip<6.1)
  1388.     ct =3D kz
  1389.    ELSEIF((ip<7.1) && (|rz|>=3D|iz|) && (|rz|>=3D|jz|) && =
  1390. (|rz|>=3D|kz|))
  1391.     ct =3D rz
  1392.    ELSEIF((ip<7.1) && (|iz|>=3D|rz|) && (|iz|>=3D|jz|) && =
  1393. (|iz|>=3D|kz|))
  1394.     ct =3D iz
  1395.    ELSEIF((ip<7.1) && (|jz|>=3D|rz|) && (|jz|>=3D|iz|) && =
  1396. (|jz|>=3D|kz|))
  1397.     ct =3D jz
  1398.    ELSEIF((ip<7.1) && (|kz|>=3D|rz|) && (|iz|>=3D|kz|) && =
  1399. (|kz|>=3D|jz|))
  1400.     ct =3D kz
  1401.    ELSEIF((ip<8.1) && (|rz|<|iz|) && (|rz|<|jz|) && (|rz|<|kz|))
  1402.     ct =3D rz
  1403.    ELSEIF((ip<8.1) && (|iz|<|rz|) && (|iz|<|jz|) && (|iz|<|kz|))
  1404.     ct =3D iz
  1405.    ELSEIF((ip<8.1) && (|jz|<|rz|) && (|jz|<|iz|) && (|jz|<|kz|))
  1406.     ct =3D jz
  1407.    ELSEIF((ip<8.1) && (|kz|<|rz|) && (|kz|<|iz|) && (|kz|<|jz|))
  1408.     ct =3D kz
  1409.    ELSEIF(ip<9.1)
  1410.     ct =3D (abs(rz) + abs(iz) + abs(jz) + abs(kz))
  1411.    ELSEIF(ip<10.1)
  1412.     ct =3D (rz + iz + jz + kz)
  1413.    ELSE
  1414.     ct =3D z
  1415.    ENDIF,
  1416.     |ct| <=3D |real(p3)|
  1417.   }
  1418.  
  1419. GregsMandelHMB(XAXIS) {; =A92000 Greg McClure -- HyperMandel (Type =
  1420. - --++)
  1421. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1422. ; z(0) =3D (xP2,yP2,xP1+xPixel,yP1+yPixel)     \ FORCED SYMMETRY
  1423. ; z(n) =3D f[z(n-1)] + (xP2,yP2,xPixel,yPixel) / ON X-AXIS
  1424. ; imag(p3) =3D type =3D 0/MOD,  1/MODRI, 2/MODJK, 3/REAL, 4/IMAG,
  1425. ;                 =3D 5/JMAG, 6/KMAG,  7/OR,    8/AND,  9/MANH, 10/MANR
  1426.   z1 =3D p2, z2 =3D p1 + Pixel, z =3D 0:
  1427.    f1 =3D real(z1) - imag(z2) + (0,1) * (imag(z1) + real(z2))
  1428.    f2 =3D real(z1) + imag(z2) + (0,1) * (imag(z1) - real(z2))
  1429.    f1 =3D fn1(f1)
  1430.    f2 =3D fn2(f2)
  1431.    z1 =3D (real(f1) + real(f2) + (0,1) * (imag(f1) + imag(f2))) / 2 + =
  1432. p2
  1433.    z2 =3D (imag(f1) - imag(f2) + (0,1) * (real(f2) - real(f1))) / 2 + =
  1434. Pixel
  1435.    z =3D sqrt(|z1| + |z2|)
  1436.    ip =3D imag(p3)
  1437.    rz =3D real(z1)
  1438.    iz =3D imag(z1)
  1439.    jz =3D real(z2)
  1440.    kz =3D imag(z2)
  1441.    IF(ip<0.1)
  1442.     ct =3D z
  1443.    ELSEIF(ip<1.1)
  1444.     ct =3D z1
  1445.    ELSEIF(ip<2.1)
  1446.     ct =3D z2
  1447.    ELSEIF(ip<3.1)
  1448.     ct =3D rz
  1449.    ELSEIF(ip<4.1)
  1450.     ct =3D iz
  1451.    ELSEIF(ip<5.1)
  1452.     ct =3D jz
  1453.    ELSEIF(ip<6.1)
  1454.     ct =3D kz
  1455.    ELSEIF((ip<7.1) && (|rz|>=3D|iz|) && (|rz|>=3D|jz|) && =
  1456. (|rz|>=3D|kz|))
  1457.     ct =3D rz
  1458.    ELSEIF((ip<7.1) && (|iz|>=3D|rz|) && (|iz|>=3D|jz|) && =
  1459. (|iz|>=3D|kz|))
  1460.     ct =3D iz
  1461.    ELSEIF((ip<7.1) && (|jz|>=3D|rz|) && (|jz|>=3D|iz|) && =
  1462. (|jz|>=3D|kz|))
  1463.     ct =3D jz
  1464.    ELSEIF((ip<7.1) && (|kz|>=3D|rz|) && (|iz|>=3D|kz|) && =
  1465. (|kz|>=3D|jz|))
  1466.     ct =3D kz
  1467.    ELSEIF((ip<8.1) && (|rz|<|iz|) && (|rz|<|jz|) && (|rz|<|kz|))
  1468.     ct =3D rz
  1469.    ELSEIF((ip<8.1) && (|iz|<|rz|) && (|iz|<|jz|) && (|iz|<|kz|))
  1470.     ct =3D iz
  1471.    ELSEIF((ip<8.1) && (|jz|<|rz|) && (|jz|<|iz|) && (|jz|<|kz|))
  1472.     ct =3D jz
  1473.    ELSEIF((ip<8.1) && (|kz|<|rz|) && (|kz|<|iz|) && (|kz|<|jz|))
  1474.     ct =3D kz
  1475.    ELSEIF(ip<9.1)
  1476.     ct =3D (abs(rz) + abs(iz) + abs(jz) + abs(kz))
  1477.    ELSEIF(ip<10.1)
  1478.     ct =3D (rz + iz + jz + kz)
  1479.    ELSE
  1480.     ct =3D z
  1481.    ENDIF,
  1482.     |ct| <=3D |real(p3)|
  1483.   }
  1484.  
  1485. GregsJuliaHM1 {; =A92000 Greg McClure -- HyperJulia (Type ++00)
  1486. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  1487. ; z(-1) =3D (xPixel,yPixel,0,0)
  1488. ; z(n) =3D f[z(n-1)] + (xP1,yP1,xP2,yP2)
  1489. ; imag(p3) =3D type =3D 0/MOD,  1/MODRI, 2/MODJK, 3/REAL, 4/IMAG,
  1490. ;                 =3D 5/JMAG, 6/KMAG,  7/OR,    8/AND,  9/MANH, 10/MANR
  1491.   z1 =3D Pixel, z2 =3D 0, z =3D 0,
  1492.   f1 =3D real(z1) - imag(z2) + (0,1) * (imag(z1) + real(z2)),
  1493.   f2 =3D real(z1) + imag(z2) + (0,1) * (imag(z1) - real(z2)),
  1494.   f1 =3D fn1(f1), f2 =3D fn2(f2),
  1495.   z1 =3D (real(f1) + real(f2) + (0,1) * (imag(f1) + imag(f2))) / 2 + =
  1496. p1,
  1497.   z2 =3D (imag(f1) - imag(f2) + (0,1) * (real(f2) - real(f1))) / 2 + =
  1498. p2:
  1499.    f1 =3D real(z1) - imag(z2) + (0,1) * (imag(z1) + real(z2))
  1500.    f2 =3D real(z1) + imag(z2) + (0,1) * (imag(z1) - real(z2))
  1501.    f1 =3D fn1(f1)
  1502.    f2 =3D fn2(f2)
  1503.    z1 =3D (real(f1) + real(f2) + (0,1) * (imag(f1) + imag(f2))) / 2 + =
  1504. p1
  1505.    z2 =3D (imag(f1) - imag(f2) + (0,1) * (real(f2) - real(f1))) / 2 + =
  1506. p2
  1507.    z =3D sqrt(|z1| + |z2|)
  1508.    ip =3D imag(p3)
  1509.    rz =3D real(z1)
  1510.    iz =3D imag(z1)
  1511.    jz =3D real(z2)
  1512.    kz =3D imag(z2)
  1513.    IF(ip<0.1)
  1514.     ct =3D z
  1515.    ELSEIF(ip<1.1)
  1516.     ct =3D z1
  1517.    ELSEIF(ip<2.1)
  1518.     ct =3D z2
  1519.    ELSEIF(ip<3.1)
  1520.     ct =3D rz
  1521.    ELSEIF(ip<4.1)
  1522.     ct =3D iz
  1523.    ELSEIF(ip<5.1)
  1524.     ct =3D jz
  1525.    ELSEIF(ip<6.1)
  1526.     ct =3D kz
  1527.    ELSEIF((ip<7.1) && (|rz|>=3D|iz|) && (|rz|>=3D|jz|) && =
  1528. (|rz|>=3D|kz|))
  1529.     ct =3D rz
  1530.    ELSEIF((ip<7.1) && (|iz|>=3D|rz|) && (|iz|>=3D|jz|) && =
  1531. (|iz|>=3D|kz|))
  1532.     ct =3D iz
  1533.    ELSEIF((ip<7.1) && (|jz|>=3D|rz|) && (|jz|>=3D|iz|) && =
  1534. (|jz|>=3D|kz|))
  1535.     ct =3D jz
  1536.    ELSEIF((ip<7.1) && (|kz|>=3D|rz|) && (|iz|>=3D|kz|) && =
  1537. (|kz|>=3D|jz|))
  1538.     ct =3D kz
  1539.    ELSEIF((ip<8.1) && (|rz|<|iz|) && (|rz|<|jz|) && (|rz|<|kz|))
  1540.     ct =3D rz
  1541.    ELSEIF((ip<8.1) && (|iz|<|rz|) && (|iz|<|jz|) && (|iz|<|kz|))
  1542.     ct =3D iz
  1543.    ELSEIF((ip<8.1) && (|jz|<|rz|) && (|jz|<|iz|) && (|jz|<|kz|))
  1544.     ct =3D jz
  1545.    ELSEIF((ip<8.1) && (|kz|<|rz|) && (|kz|<|iz|) && (|kz|<|jz|))
  1546.     ct =3D kz
  1547.    ELSEIF(ip<9.1)
  1548.     ct =3D (abs(rz) + abs(iz) + abs(jz) + abs(kz))
  1549.    ELSEIF(ip<10.1)
  1550.     ct =3D (rz + iz + jz + kz)
  1551.    ELSE
  1552.     ct =3D z
  1553.    ENDIF,
  1554.     |ct| <=3D |real(p3)|
  1555.   }
  1556.  
  1557. GregsJuliaHM2 {; =A92000 Greg McClure -- HyperJulia (Type 00++)
  1558. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1559. ; z(-1) =3D (0,0,xPixel,yPixel)
  1560. ; z(n) =3D f[z(n-1)] + (xP2,yP2,xP1,yP1)
  1561. ; imag(p3) =3D type =3D 0/MOD,  1/MODRI, 2/MODJK, 3/REAL, 4/IMAG,
  1562. ;                 =3D 5/JMAG, 6/KMAG,  7/OR,    8/AND,  9/MANH, 10/MANR
  1563.   z1 =3D 0, z2 =3D Pixel, z =3D 0,
  1564.   f1 =3D real(z1) - imag(z2) + (0,1) * (imag(z1) + real(z2)),
  1565.   f2 =3D real(z1) + imag(z2) + (0,1) * (imag(z1) - real(z2)),
  1566.   f1 =3D fn1(f1), f2 =3D fn2(f2),
  1567.   z1 =3D (real(f1) + real(f2) + (0,1) * (imag(f1) + imag(f2))) / 2 + =
  1568. p2,
  1569.   z2 =3D (imag(f1) - imag(f2) + (0,1) * (real(f2) - real(f1))) / 2 + =
  1570. p1:
  1571.    f1 =3D real(z1) - imag(z2) + (0,1) * (imag(z1) + real(z2))
  1572.    f2 =3D real(z1) + imag(z2) + (0,1) * (imag(z1) - real(z2))
  1573.    f1 =3D fn1(f1)
  1574.    f2 =3D fn2(f2)
  1575.    z1 =3D (real(f1) + real(f2) + (0,1) * (imag(f1) + imag(f2))) / 2 + =
  1576. p2
  1577.    z2 =3D (imag(f1) - imag(f2) + (0,1) * (real(f2) - real(f1))) / 2 + =
  1578. p1
  1579.    z =3D sqrt(|z1| + |z2|)
  1580.    ip =3D imag(p3)
  1581.    rz =3D real(z1)
  1582.    iz =3D imag(z1)
  1583.    jz =3D real(z2)
  1584.    kz =3D imag(z2)
  1585.    IF(ip<0.1)
  1586.     ct =3D z
  1587.    ELSEIF(ip<1.1)
  1588.     ct =3D z1
  1589.    ELSEIF(ip<2.1)
  1590.     ct =3D z2
  1591.    ELSEIF(ip<3.1)
  1592.     ct =3D rz
  1593.    ELSEIF(ip<4.1)
  1594.     ct =3D iz
  1595.    ELSEIF(ip<5.1)
  1596.     ct =3D jz
  1597.    ELSEIF(ip<6.1)
  1598.     ct =3D kz
  1599.    ELSEIF((ip<7.1) && (|rz|>=3D|iz|) && (|rz|>=3D|jz|) && =
  1600. (|rz|>=3D|kz|))
  1601.     ct =3D rz
  1602.    ELSEIF((ip<7.1) && (|iz|>=3D|rz|) && (|iz|>=3D|jz|) && =
  1603. (|iz|>=3D|kz|))
  1604.     ct =3D iz
  1605.    ELSEIF((ip<7.1) && (|jz|>=3D|rz|) && (|jz|>=3D|iz|) && =
  1606. (|jz|>=3D|kz|))
  1607.     ct =3D jz
  1608.    ELSEIF((ip<7.1) && (|kz|>=3D|rz|) && (|iz|>=3D|kz|) && =
  1609. (|kz|>=3D|jz|))
  1610.     ct =3D kz
  1611.    ELSEIF((ip<8.1) && (|rz|<|iz|) && (|rz|<|jz|) && (|rz|<|kz|))
  1612.     ct =3D rz
  1613.    ELSEIF((ip<8.1) && (|iz|<|rz|) && (|iz|<|jz|) && (|iz|<|kz|))
  1614.     ct =3D iz
  1615.    ELSEIF((ip<8.1) && (|jz|<|rz|) && (|jz|<|iz|) && (|jz|<|kz|))
  1616.     ct =3D jz
  1617.    ELSEIF((ip<8.1) && (|kz|<|rz|) && (|kz|<|iz|) && (|kz|<|jz|))
  1618.     ct =3D kz
  1619.    ELSEIF(ip<9.1)
  1620.     ct =3D (abs(rz) + abs(iz) + abs(jz) + abs(kz))
  1621.    ELSEIF(ip<10.1)
  1622.     ct =3D (rz + iz + jz + kz)
  1623.    ELSE
  1624.     ct =3D z
  1625.    ENDIF,
  1626.     |ct| <=3D |real(p3)|
  1627.   }
  1628.  
  1629. GregsJuliaHMA(ORIGIN) {; =A92000 Greg McClure -- HyperJulia (Type ++00)
  1630. ; p1 =3D point, p2 =3D multiplier, p3 =3D cutoff/type
  1631. ; z(-1) =3D (xPixel,yPixel,0,0)          \ FORCED SYMMETRY
  1632. ; z(n) =3D f[z(n-1)] + (xP1,yP2,xP2,yP2) / AT ORIGIN
  1633. ; imag(p3) =3D type =3D 0/MOD,  1/MODRI, 2/MODJK, 3/REAL, 4/IMAG,
  1634. ;                 =3D 5/JMAG, 6/KMAG,  7/OR,    8/AND,  9/MANH, 10/MANR
  1635.   z1 =3D Pixel, z2 =3D 0, z =3D 0,
  1636.   f1 =3D real(z1) - imag(z2) + (0,1) * (imag(z1) + real(z2)),
  1637.   f2 =3D real(z1) + imag(z2) + (0,1) * (imag(z1) - real(z2)),
  1638.   f1 =3D fn1(f1), f2 =3D fn2(f2),
  1639.   z1 =3D (real(f1) + real(f2) + (0,1) * (imag(f1) + imag(f2))) / 2 + =
  1640. p1,
  1641.   z2 =3D (imag(f1) - imag(f2) + (0,1) * (real(f2) - real(f1))) / 2 + =
  1642. p2:
  1643.    f1 =3D real(z1) - imag(z2) + (0,1) * (imag(z1) + real(z2))
  1644.    f2 =3D real(z1) + imag(z2) + (0,1) * (imag(z1) - real(z2))
  1645.    f1 =3D fn1(f1)
  1646.    f2 =3D fn2(f2)
  1647.    z1 =3D (real(f1) + real(f2) + (0,1) * (imag(f1) + imag(f2))) / 2 + =
  1648. p1
  1649.    z2 =3D (imag(f1) - imag(f2) + (0,1) * (real(f2) - real(f1))) / 2 + =
  1650. p2
  1651.    z =3D sqrt(|z1| + |z2|)
  1652.    ip =3D imag(p3)
  1653.    rz =3D real(z1)
  1654.    iz =3D imag(z1)
  1655.    jz =3D real(z2)
  1656.    kz =3D imag(z2)
  1657.    IF(ip<0.1)
  1658.     ct =3D z
  1659.    ELSEIF(ip<1.1)
  1660.     ct =3D z1
  1661.    ELSEIF(ip<2.1)
  1662.     ct =3D z2
  1663.    ELSEIF(ip<3.1)
  1664.     ct =3D rz
  1665.    ELSEIF(ip<4.1)
  1666.     ct =3D iz
  1667.    ELSEIF(ip<5.1)
  1668.     ct =3D jz
  1669.    ELSEIF(ip<6.1)
  1670.     ct =3D kz
  1671.    ELSEIF((ip<7.1) && (|rz|>=3D|iz|) && (|rz|>=3D|jz|) && =
  1672. (|rz|>=3D|kz|))
  1673.     ct =3D rz
  1674.    ELSEIF((ip<7.1) && (|iz|>=3D|rz|) && (|iz|>=3D|jz|) && =
  1675. (|iz|>=3D|kz|))
  1676.     ct =3D iz
  1677.    ELSEIF((ip<7.1) && (|jz|>=3D|rz|) && (|jz|>=3D|iz|) && =
  1678. (|jz|>=3D|kz|))
  1679.     ct =3D jz
  1680.    ELSEIF((ip<7.1) && (|kz|>=3D|rz|) && (|iz|>=3D|kz|) && =
  1681. (|kz|>=3D|jz|))
  1682.     ct =3D kz
  1683.    ELSEIF((ip<8.1) && (|rz|<|iz|) && (|rz|<|jz|) && (|rz|<|kz|))
  1684.     ct =3D rz
  1685.    ELSEIF((ip<8.1) && (|iz|<|rz|) && (|iz|<|jz|) && (|iz|<|kz|))
  1686.     ct =3D iz
  1687.    ELSEIF((ip<8.1) && (|jz|<|rz|) && (|jz|<|iz|) && (|jz|<|kz|))
  1688.     ct =3D jz
  1689.    ELSEIF((ip<8.1) && (|kz|<|rz|) && (|kz|<|iz|) && (|kz|<|jz|))
  1690.     ct =3D kz
  1691.    ELSEIF(ip<9.1)
  1692.     ct =3D (abs(rz) + abs(iz) + abs(jz) + abs(kz))
  1693.    ELSEIF(ip<10.1)
  1694.     ct =3D (rz + iz + jz + kz)
  1695.    ELSE
  1696.     ct =3D z
  1697.    ENDIF,
  1698.     |ct| <=3D |real(p3)|
  1699.   }
  1700.  
  1701. GregsJuliaHMB(ORIGIN) {; =A92000 Greg McClure -- HyperJulia (Type 00++)
  1702. ; p1 =3D offset, p2 =3D multiplier, p3 =3D cutoff/type
  1703. ; z(-1) =3D (0,0,xPixel,yPixel)          \ FORCED SYMMETRY
  1704. ; z(n) =3D f[z(n-1)] + (xP2,yP2,xP1,yP1) / AT ORIGIN
  1705. ; imag(p3) =3D type =3D 0/MOD,  1/MODRI, 2/MODJK, 3/REAL, 4/IMAG,
  1706. ;                 =3D 5/JMAG, 6/KMAG,  7/OR,    8/AND,  9/MANH, 10/MANR
  1707.   z1 =3D real(Pixel), z2 =3D (0,1) * imag(Pixel), z =3D 0,
  1708.   f1 =3D real(z1) - imag(z2) + (0,1) * (imag(z1) + real(z2)),
  1709.   f2 =3D real(z1) + imag(z2) + (0,1) * (imag(z1) - real(z2)),
  1710.   f1 =3D fn1(f1), f2 =3D fn2(f2),
  1711.   z1 =3D (real(f1) + real(f2) + (0,1) * (imag(f1) + imag(f2))) / 2 + =
  1712. p2,
  1713.   z2 =3D (imag(f1) - imag(f2) + (0,1) * (real(f2) - real(f1))) / 2 + =
  1714. p1:
  1715.    f1 =3D real(z1) - imag(z2) + (0,1) * (imag(z1) + real(z2))
  1716.    f2 =3D real(z1) + imag(z2) + (0,1) * (imag(z1) - real(z2))
  1717.    f1 =3D fn1(f1)
  1718.    f2 =3D fn2(f2)
  1719.    z1 =3D (real(f1) + real(f2) + (0,1) * (imag(f1) + imag(f2))) / 2 + =
  1720. p2
  1721.    z2 =3D (imag(f1) - imag(f2) + (0,1) * (real(f2) - real(f1))) / 2 + =
  1722. p1
  1723.    z =3D sqrt(|z1| + |z2|)
  1724.    ip =3D imag(p3)
  1725.    rz =3D real(z1)
  1726.    iz =3D imag(z1)
  1727.    jz =3D real(z2)
  1728.    kz =3D imag(z2)
  1729.    IF(ip<0.1)
  1730.     ct =3D z
  1731.    ELSEIF(ip<1.1)
  1732.     ct =3D z1
  1733.    ELSEIF(ip<2.1)
  1734.     ct =3D z2
  1735.    ELSEIF(ip<3.1)
  1736.     ct =3D rz
  1737.    ELSEIF(ip<4.1)
  1738.     ct =3D iz
  1739.    ELSEIF(ip<5.1)
  1740.     ct =3D jz
  1741.    ELSEIF(ip<6.1)
  1742.     ct =3D kz
  1743.    ELSEIF((ip<7.1) && (|rz|>=3D|iz|) && (|rz|>=3D|jz|) && =
  1744. (|rz|>=3D|kz|))
  1745.     ct =3D rz
  1746.    ELSEIF((ip<7.1) && (|iz|>=3D|rz|) && (|iz|>=3D|jz|) && =
  1747. (|iz|>=3D|kz|))
  1748.     ct =3D iz
  1749.    ELSEIF((ip<7.1) && (|jz|>=3D|rz|) && (|jz|>=3D|iz|) && =
  1750. (|jz|>=3D|kz|))
  1751.     ct =3D jz
  1752.    ELSEIF((ip<7.1) && (|kz|>=3D|rz|) && (|iz|>=3D|kz|) && =
  1753. (|kz|>=3D|jz|))
  1754.     ct =3D kz
  1755.    ELSEIF((ip<8.1) && (|rz|<|iz|) && (|rz|<|jz|) && (|rz|<|kz|))
  1756.     ct =3D rz
  1757.    ELSEIF((ip<8.1) && (|iz|<|rz|) && (|iz|<|jz|) && (|iz|<|kz|))
  1758.     ct =3D iz
  1759.    ELSEIF((ip<8.1) && (|jz|<|rz|) && (|jz|<|iz|) && (|jz|<|kz|))
  1760.     ct =3D jz
  1761.    ELSEIF((ip<8.1) && (|kz|<|rz|) && (|kz|<|iz|) && (|kz|<|jz|))
  1762.     ct =3D kz
  1763.    ELSEIF(ip<9.1)
  1764.     ct =3D (abs(rz) + abs(iz) + abs(jz) + abs(kz))
  1765.    ELSEIF(ip<10.1)
  1766.     ct =3D (rz + iz + jz + kz)
  1767.    ELSE
  1768.     ct =3D z
  1769.    ENDIF,
  1770.     |ct| <=3D |real(p3)|
  1771.   }
  1772. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  1773. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  1774. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
  1775. =3D=3D=3D=3D
  1776. =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
  1777.  
  1778.   The Kwisatz Haderach,
  1779. =DF  Gregory J. McClure
  1780.  
  1781. - --------------------------------------------------------------
  1782. Thanks for using Fractint, The Fractals and Fractint Discussion List
  1783. Post Message:   fractint@lists.xmission.com
  1784. Get Commands:   majordomo@lists.xmission.com "help"
  1785. Administrator:  twegner@swbell.net
  1786. Unsubscribe:    majordomo@lists.xmission.com "unsubscribe fractint"
  1787.  
  1788. ------------------------------
  1789.  
  1790. End of fractint-digest V1 #440
  1791. ******************************
  1792.  
  1793.