ftp.xmission.com/2014.06.ftp.xmission.com.tar/ftp.xmission.com/pub/lists/fractint/archive/v01.n357

Internet Message Format | 1999-01-29 | 46KB

From: [e-mail] (fractint-digest)
To: [e-mail]
Subject: fractint-digest V1 #357
Reply-To: fractint-digest
Sender: [e-mail]
Errors-To: [e-mail]
Precedence: bulk


fractint-digest        Friday, January 29 1999        Volume 01 : Number 357




----------------------------------------------------------------------

Date: Tue, 26 Jan 1999 15:53:30 -0500
From: Barry N Merenoff <[e-mail]>
Subject: (fractint) Re: Spines and Rivers

Two questions:

What does the command "logmap=3Dfly" do?

Where did you get the word Riparian? Is this a Star Trek word?

Collin Merenoff

- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Tue, 26 Jan 1999 14:53:00 -0600
From: Bob Margolis <[e-mail]>
Subject: (fractint) Pars for the course

012699-1           { ; (c) 1999 by Bob Margolis
  reset=1960 type=julia passes=1
  center-mag=-7.77156e-016/7.77156e-016/0.8440015/1.3333
  params=0.2957631958525612/-0.01682239149687881 float=y maxiter=1250
  inside=0 symmetry=xyaxis viewwindows=1/1/yes/0/0
  colors=000<31>000<3>O00U00Z00c00h00l00o00s00u00x00y00z00<2>x00u00s00o00l\
  00<2>Z00U00O00<3>000000<3>OO0UU0ZZ0cc0hh0ll0oo0ss0uu0xx0yy0zz0<2>xx0uu0s\
  s0oo0ll0<2>ZZ0UU0OO0<3>000000<3>OOOUUUZZZccchhhlllooosssuuuxxxyyyzzz<2>x\
  xxuuusssooolll<2>ZZZUUUOOO<3>000000<4>B0NE0SF0V<2>K0dM0gN0iO0jO0lO0lO0lO\
  0lO0jN0i<2>J0aH0ZF0VE0S<5>000000<3>O00U00Z00c00h00l00o00s00u00x00y00z00<\
  2>x00u00s00o00l00<2>Z00U00O00<3>000000<3>OO0UU0ZZ0cc0hh0ll0oo0ss0uu0xx0y\
  y0zz0<2>xx0uu0ss0oo0ll0<2>ZZ0UU0OO0<3>000000<3>OOOUUUZZZccchhhlllooosssu\
  uuxxxyyyzzz<2>xxxuuusssooolll<2>ZZZUUUOOO<3>000 cyclerange=0/0
  }

012699-2           { ; (c) 1999 by Bob Margolis
  reset=1960 type=julia passes=1
  center-mag=-6.66134e-016/4.44089e-016/1.56913
  params=-0.00490500399877384/-0.7157539284218196 float=y maxiter=1250
  bailoutest=and logmap=yes distest=-1/5/768/768 symmetry=xyaxis
  viewwindows=1/1/yes/0/0
  colors=000O0l409<29>000<3>O00U00Z00c00h00l00o00s00u00x00y00z00<2>x00u00s\
  00o00l00<2>Z00U00O00<3>000<191>000 cyclerange=0/0
  }

012699-3           { ; (c) 1999 by Bob Margolis
  reset=1960 type=julia passes=1
  center-mag=-6.66134e-016/4.44089e-016/0.9245494
  params=-0.7451693332340752/-0.1130613598870986 float=y maxiter=1250
  symmetry=xyaxis viewwindows=1/1/yes/0/0
  colors=000<30>B32822612<15>uhT<15>612<15>fE2<15>612<15>uhT<14>944<126>94\
  4 cyclerange=0/0
  }

012699-4           { ; (c) 1999 by Bob Margolis
  reset=1960 type=julia passes=1
  center-mag=0/7.27596e-012/4.069012e-005
  params=-0.5427712593671016/0.50681109359754 float=y maxiter=1250
  bailoutest=and outside=real logmap=95 invert=0.5/0/0 symmetry=xyaxis
  periodicity=0 viewwindows=1/1/yes/0/0
  colors=000<158>000`0D<15>u02w02x01z00z20<22>zw0000<50>000
  cyclerange=0/0
  }

- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Tue, 26 Jan 1999 21:07:29 -0500
From: [e-mail]
Subject: (fractint) Re: Spines and Rivers

According to the Fractint manual, "LOGMODE=fly/table Forces the use of the
on-the-fly routine or the logarithm table for the calculation of log
palettes.  Not normally needed."

Goodness knows where I picked it up. Must have been in someone else's par I
extracted from the list. I removed it from one of the riparian pars and did
not see any difference in the image or speed of computaion.

Riparian means river bank or estuary. As for SciFi, this applies more to
Philip Jose Farmer's Riverworld stories (where I first ran across the word)
than to Star Trek.

Bill Decker

A couple more odd pars.

star-burst         { ;  (c) Bill Decker Jan 25, 1999 t=  0:00:53.50
                     ;  on P150 800x600
  reset=1960 type=formula formulafile=0bill.frm formulaname=Prueba_003
  function=recip/abs passes=1
  center-mag=-0.0208003/-0.0684588/0.4197822 params=-5/-1/2/5/4/100
  potential=255/150/0 periodicity=0
  colors=000494<15>000000101<43>N0NN0NN0NN0NO1N<43>rhGsiFsiG<30>yyxzzzzzy<\
  30>tjHsiFsiF<42>DQCCQCBPBAOA<29>494
  }

mandalla2          { ;  (c) Bill Decker Jan 23, 1999 t=  0:01:33.65
                     ;  on P150 800x600
  reset=1960 type=formula formulafile=0bill.frm
  formulaname=bills_xy-trade function=cotan/cotan/flip passes=1
  center-mag=-0.997672/-0.326282/5.237235/1/-110.087/-0.036
  params=-10/-1/-2/-2/0/0 potential=255/200/0
  colors=000unT<7>tjHsiFsiF<42>DQCCQCBPBAOA<46>000000101<43>N0NN0NN0NN0NO1\
  N<43>rhGsiFsiG<30>yyxzzzzzy<21>voU
  }

frm:Prueba_003 {; Bill Decker mod 10/98 of Prueba_000
            ; Miguel Fliguer - Buenos Aires, Argentina
            ; [e-mail]
  z=fn1(pixel), c=fn2(pixel)
  e1=real(p3), e2=e1*2, f=imag(p3):
  z=fn2(p1/z^e2) - fn1(p2/z^e1) + c
  |z|<f
}

frm:bills_xy-trade  {
  a = real(p1), b = imag(p1), z = pixel
  d = real(p2), e = imag(p2)
  bail = real(p3):
  x = real(z), x1 = z^a
  y = imag(z), y1 = z^b
  ztemp = fn1(x) + d*fn2(y1) + fn1(y) + e*fn2(x1)
  z = fn3(ztemp)
  |z| > bail
}





Two questions:
What does the command "logmap=fly" do?
Where did you get the word Riparian? Is this a Star Trek word?
Collin Merenoff
- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"








- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Tue, 26 Jan 1999 23:37:29 EST
From: [e-mail]
Subject: Re: (fractint) Re: Spines and Rivers

In a message dated 1/26/99 12:59:05 PM Pacific Standard Time,
[e-mail] writes:

<< Where did you get the word Riparian? >>
Goes back to Latin for water

- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Tue, 26 Jan 1999 23:45:26 EST
From: [e-mail]
Subject: Re: (fractint) Re: Spines and Rivers

In a message dated 1/26/99 8:42:38 PM Pacific Standard Time, [e-mail]
writes:

<< << Where did you get the word Riparian? >>
 Goes back to Latin for water >>

oops, was cut off mid sentence.....

Water bank or shore line... usually or most commonly in the legal term, such
as "riparian rights"

- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Wed, 27 Jan 1999 10:22:41 +1
From: "J.P. Louvet" <[e-mail]>
Subject: Re: (fractint) New UF Galleries

le 25 Jan 99 a 17:03, Sylvie Gallet ecrivait (Sylvie Gallet wrote) :


>   Thank you!  The fern was made with a Fractint formula created from one
>   of
> my IFS.  The original colored version is in Gallery 4.
>   Here are the formulas and pars:

Merci Sylvie.

Jean-Pierre

Jean-Pierre louvet : [e-mail]
Fractal album :
http://graffiti.cribx1.u-bordeaux.fr/MAPBX/louvet/jpl0.html

- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Wed, 27 Jan 1999 08:07:16 -0800
From: "Valery VALENTIN" <[e-mail]>
Subject: (fractint) Xfractint

Hi,
How can I execute Xfractint with the batch option in the background (using the command line), I mean without having the Xfractint window opened.



______________________________________________________

Sent by FortuneCity Mail at http://www.fortunecity.com



Join now and receive 20Mb of free web space and E-mail

- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Wed, 27 Jan 1999 15:44:48 -0600
From: Bob Margolis <[e-mail]>
Subject: (fractint) PARS for the course

012799-1           { ; (c) 1999 by Bob Margolis
  reset=1960 type=julzpower passes=1
  center-mag=1.42109e-014/-1.42109e-014/0.01175928/1.3333
  params=-0.5022268202424391/-0.06350611496938727/3/0 float=y
  maxiter=75 inside=0 outside=summ invert=0.5/0/0 symmetry=xyaxis
  periodicity=0 viewwindows=1/1/yes/0/0
  colors=000ve0<2>qS0oO0lK0iG0eD0bA0Y80U60Q40<2>B20<31>205G20L30<2>Y80bA0e\
  D0iG0lK0<2>sX0u`0ve0wj0wj0ve0<2>qS0oO0lK0iG0eD0bA0Y80U60Q40<2>B20205<175\
  >205 cyclerange=0/0
  }

012799-2           { ; (c) 1999 by Bob Margolis
  reset=1960 type=julzpower passes=1 center-mag=0/0/0.6666667/5.5
  params=0.1578301636484797/-0.8125838443710536/3/0 float=y
  maxiter=255 inside=0 symmetry=xyaxis periodicity=0
  viewwindows=1/5.5/yes/0/0
  colors=000<2>000wwx<12>wwxH0X<12>407zzz<15>0QZ0S`0Uc<12>068zzz<15>Z0Z`0`\
  c0c<12>808zzz<15>Kg0Lj0Nn0<12>470zzz<15>e04h05<13>301zzz<15>90eA0h<13>20\
  6zzz<15>sW0wZ0<13>850zzz<15>0C00D0<13>020 cyclerange=0/0
  }

012799-3           { ; (c) 1999 by Bob Margolis
  reset=1960 type=julzpower passes=1
  center-mag=-7.77156e-016/6.66134e-016/1.344086
  params=-0.118322116444647/0.7951516531989524/3/0 float=y maxiter=255
  inside=0 symmetry=xyaxis periodicity=0 viewwindows=1/1/yes/0/0
  colors=ghj<11>ghjghjfgjffi<44>MEIRK6<62>zp`zp`yo`<60>SL7000MEI<61>nrtnrt\
  nqsmqsRK6 cyclerange=0/0
  }

012799-4           { ; (c) 1999 by Bob Margolis
  reset=1960 type=julzpower passes=1
  center-mag=-6.03961e-014/5.59552e-014/0.09259684
  params=0.590770457134538/-0.06023088054352765/4/0 float=y maxiter=40
  inside=0 outside=mult invert=0.64/0/0 biomorph=111 symmetry=xyaxis
  periodicity=0 viewwindows=1/1/yes/0/0
  colors=000Q6C<2>lNWqT`uZcwdeweeu_crU`mOXfIR_CKS6DJ05000JLIOQRUUZZYec`jhc\
  nndpndpicodakZZf<2>KMKEHA0007AADDEIHJOKMUNP_QReTSfUS<2>PKN<3>1760005BG<5\
  >ecafca<6>07D0007L5BRB<2>PiOUoQYvRZvSUpQQjOLdLGYHCSC7M63F1000DCCPHEZMHgQ\
  JoTLtVNvWQwXQtWOpTLiQJ`MHRIFFDC38A0007CLDGVIKdOOlUSr_Wwd_ye`y_XwVSsPOmJK\
  eDGX7CN28C000NJFQSLU`RXhXZnb`rh`tnato`siZocXiYUbS<2>JAA000OIKUJN_KQdMShN\
  TkOVlQVlQVkOVhNUeMS`LQ<2>IHI0008DDDOHIXLMePPkTRpXSraSsaRqYPlUMfQIZMEQI9F\
  E44A000FE9RIF`LMiOSpQYuRdwSjxSkuSeqQZjOTaLM<2>6B3000GIGLNKPROUWS<2>giXgi\
  XceWZ`VUXS<3>CED000IJBLRMOYXRdeUimXlr_nu_nuXmsUjnRegO_Z<2>GC10006QGCYHHe\
  JNkLTpNZtPcvQdvRZtPTqNOlLIfJC_I6SG1JE000M8GUGL`OPfWUkcYokaqtfqufolbldYgX\
  UaPQ<2>F0C000A9H<5>kQPlRP<6>57G cyclerange=0/0
  }

012799-5           { ; (c) 1999 by Bob Margolis
  reset=1960 type=julzpower passes=1
  center-mag=8.88178e-016/-4.44089e-016/0.3563218
  params=-0.5117570815143607/0.6703791068929505/5/0 float=y maxiter=75
  inside=0 outside=atan logmap=yes invert=0.5/0/0 distest=-1/5/768/768
  symmetry=xyaxis periodicity=0 viewwindows=1/1/yes/0/0
  colors=000000zzzyzzzyzzyyyyyxyyyxzyxxxxxwxxxwyxwwwwwvwwwvxwvvvvvuvvvuwvu\
  uuuutuuutvutttttstttsutsssssrsssrtsrrrrrqrrrqsrqqqqqpqqqprqpppppopppoqpo\
  oooonooonponnnnnmnnnmonmmmmmlmmmlnmlllllklllkmlkkkkkjkkkjlkjjjjjijjjikji\
  iiiihiiihjihhhhhghhhgihgggggfgggfhgfffffefffegfeeeeedeeedfedddddcdddcedc\
  ccccbcccbdcbbbbbabbbacbaaaaa`aaa`ba`````_```_a`_____Z___Z`_ZZZZZYZZZY_ZY\
  YYYYXYYYXZYXXXXXWXXXWYXWWWWWVWWWVXWVVVVVUVVVUWVUUUUUTUUUTVUTTTTTSTTTSUTS\
  SSSSRSSSRTSRRRRRQRRRQSRQQQQQPQQQPRQPPPPPOPPPOQPOOOOONOOONPONNNNNMNNNMONM\
  MMMMLMMMLNMLLLLLKLLLKMLKKKKKJKKKJLKJJJJJIJJJIKJIIIIIHIIIHJIHHHHHGHHHGIHG\
  GGGGFGGGFHGFFFFFEFFFEGFEEEEEDEEEDFEDDDDDCDDDCEDCCCCCBCCCBDCBBBBBABBBACBA\
  AAAA9AAA9BA9999989998A98888878887987777767776876666656665765555545554654\
  4444344435433333233324322222122213211111011102100000000
  cyclerange=0/0
  }


- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Wed, 27 Jan 1999 20:33:45 -0700
From: Xylen <[e-mail]>
Subject: (fractint) philofractal mailing list

Well folks, here it is. The Philosophical-Fractal mailing list is
finally up and running. Thanks to Damien for doing the hard part.  :)

This mailing list is for the discussion of fractal philosophy. This
includes science and religion, at least in their non-dogmatic aspects,
and the way they relate to fractals. This list will have broader limits
than the three current fractal lists. The new list is the place for
discussions that are fractal related yet don't fit into the current
lists. But this is not an "anything goes" policy.  Any attempt to
promote an agenda, such as converting to Christianity or debunking the
paranormal will not be allowed. This is how arguments start.  We must
remember that one person's nonsense is another person's truth, and all
opinions are worth a consideration. What we want is a free exchange and
blending of fractal and philosophical ideas.

This list is closed and unmoderated. This means that only subscribers to
the list can post messages, and all the messages you post go out to
subscribers without advance checking by the administrator. Although I do
reserve the right to warn, and if necessary, remove posters who become
belligerent, use foul language, or in any other way are abusive in their
posts.

You can subscribe by sending a message to [e-mail]
with the words "subscribe philofractal" in the body of the email (please
remove the quotes when you send the message). If you have any questions
about the list you can reach me at [e-mail]


Xylen
- --
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
GO BRONCO'S----Winners of the 98 Super Bowl and
future winners of the 99 Super Bowl
http://members.tripod.com/~Xylen
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Wed, 27 Jan 1999 23:45:26 -0600
From: "Tim Wegner" <[e-mail]>
Subject: Re: (fractint) Xfractint

Valery asked:

> Hi,
> How can I execute Xfractint with the batch option in the background (using the command line), I mean without having the Xfractint window opened.

Try

xfractint -disk

This is a sort of disk video mode, and it works without Xwindows.

Tim



- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Thu, 28 Jan 1999 01:19:37 -0500
From: "Benjamin S. Franzus" <[e-mail]>
Subject: (fractint) Ultra Fractal colors

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<body text="#000000" bgcolor="#FFFFFF" link="#3366FF" vlink="#800040" alink="#000099">
For the beginner at writing parameters,
<br>these are some of the the color gradients.
<br>Since I don't care much for pastels, I didn't list them.
<p>index= color=0   ;Black
<br>index= color=90   ;Very Dark Red
<br>index= color=160   ;Dark Red
<br>index= color=255   ;Red
<br>index= color=65280  ;Green
<br>index= color=65535  ;Yellow
<br>index= color=655360  ;Dark Blue
<br>index= color=8388608  ;Medium Dark Blue
<br>index= color=16056575  ;Slightly Dark Magenta
<br>index= color=16711680  ;Blue
<br>index= color=16711935  ;Magenta
<br>index= color=16755200  ;Light Blue
<br>index= color=16758271  ;Light Magenta
<br>
</body>
</html>


- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Thu, 28 Jan 1999 12:51:11 EST
From: [e-mail]
Subject: Re: (fractint) Some Questions

In einer eMail vom 24.12.98 07:56:07 MEZ, schreiben Sie:

<< Oh, also Les St. Clair saves them all up every month into a zip file and
you can download all the formulas in one bunch from his web site:
  http://ourworld.compuserve.com/homepages/Les_StClair/ >>

Oh, me fool, I should have known. Thanks for reminding and saving editing time
with notespad (still I collect the Limericks, the hints, the URLs, ...)
Thank you.
Michael Hackenberger (Berlin, Germany)

- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Thu, 28 Jan 99 15:12:27 -0800
From: Tim Gilman <[e-mail]>
Subject: Re: (fractint) Xfractint

Recently my housemate, Blade, has been playing with XFractint on his
Irix-running Indy.  I forwarded him Tim's reply 'cause he was having
trouble generating large fractals to video.  He replied with this, which
is pretty obvious if you read the README (which he didn't, and hence
spent a few futile hours trying to fix a non-existant bug!), but who
knows, maybe it'll help..

_______________________________________________
Hi,

You may want to mention the "-private" flag to enable all 256 colors.

It is also necessary (desired) to specift the inage resolution with that
- -disk option.

example:

xfractint -disk -geometry 1024x768

Blade
_______________________________________________

=- Tim Gilman
Fractint for Macintosh, underway at:
http://www.scruz.net/~tgilman/tim/macfract/


>* ([e-mail]) coughed this up on 1/27/99 9:45 PM:
>Valery asked:
>
>> Hi,
>> How can I execute Xfractint with the batch option in the background (using
>the command line), I mean without having the Xfractint window opened.
>
>Try
>
>xfractint -disk
>
>This is a sort of disk video mode, and it works without Xwindows.
>
>Tim

- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Fri, 29 Jan 1999 00:57:16 +0100
From: Guy Marson <[e-mail]>
Subject: (fractint) puzzle

Hi fractinters,

this seems to be a good way to visualize the inverse and the normal plain
of a given formula..

puzzle5            {
  reset=1920 type=formula formulafile=puzzle.frm formulaname=punkt-2
  function=ident/recip/cosh passes=1
  center-mag=0.00650846/-0.127698/8.206697/1/-77.498 params=5/0/0/-3.2
  float=y maxiter=1000 inside=0 symmetry=none
  colors=D36KLd<5>E6BC00<3>G00H00K00O10S20V20<4>fM1iQ1jT1<5>vo1xs1xr1<15>l\
  Q1kO0jN0iM0<17>Q28O09M0A<6>000<151>000000223<15>fjn<4>NSsMQnLNi
  }

puzzle4            {
  reset=1920 type=formula formulafile=punkt.frm formulaname=punkt-2
  function=ident/recip/cosh passes=1
  center-mag=0.0144481/0.115406/2.348495/1/-77.498 params=5/0/0/-3.2
  float=y maxiter=1000 inside=0 symmetry=none
  colors=D36000000000<3>AACCDFFGIHJLKMO<8>fjn<4>NSs<8>E6BC00<3>G00H00K00O1\
  0S20V20<4>fM1iQ1jT1<5>vo1xs1xr1<15>lQ1kO0jN0iM0<17>Q28O09M0A<6>000<149>0\
  00
  }

frm:punkt-2 { ; using FRACTEXT (10'1996) by Jan Maarten van der Valk
              ; 'periodicity=0' and 'passes=1' recommended
  x=real(scrnpix)/real(scrnmax), y=(imag(scrnmax)-imag(scrnpix))/(rea\
  l(scrnmax)*0.75), z=x+flip(y)
  chrDT1 = y<0.9999&&x>-0.14935&&x<-0.04945
  chrDT2 = y<0.9999&&x>0.05045&&x<0.15035
  chrDT3 = y<0.9999&&x>0.25025&&x<0.35015
  chrDT4 = y<0.9999&&x>0.45005&&x<0.54995
  chrDT5 = y<0.9999&&x>0.64985&&x<0.74975
  chrDT6 = y<0.9999&&x>0.84965&&x<0.94955
  chrDT7 = y<0.9999&&x>1.04945&&x<1.14935
  test1 = chrDT1||chrDT2||chrDT3||chrDT4||chrDT5||chrDT6||chrDT7&&y>0\
  .9&&y<1.233
  chrDT8 = y<0.8999&&x>-0.04945&&x<0.05045
  chrDT9 = y<0.8999&&x>0.15035&&x<0.25025
  chrDT10 = y<0.8999&&x>0.35015&&x<0.45005
  chrDT11 = y<0.8999&&x>0.54995&&x<0.64985
  chrDT12 = y<0.8999&&x>0.74975&&x<0.84965
  chrDT13 = y<0.8999&&x>0.94955&&x<1.04945
  test2 = chrDT8||chrDT9||chrDT10||chrDT11||chrDT12||chrDT13&&y>0.8&&\
  y<1.133
  chrDT14 = y<0.7999&&x>-0.14935&&x<-0.04945
  chrDT15 = y<0.7999&&x>0.05045&&x<0.15035
  chrDT16 = y<0.7999&&x>0.25025&&x<0.35015
  chrDT17 = y<0.7999&&x>0.45005&&x<0.54995
  chrDT18 = y<0.7999&&x>0.64985&&x<0.74975
  chrDT19 = y<0.7999&&x>0.84965&&x<0.94955
  chrDT20 = y<0.7999&&x>1.04945&&x<1.14935
  test3 = chrDT14||chrDT15||chrDT16||chrDT17||chrDT18||chrDT19||chrDT\
  20&&y>0.7&&y<1.033
  chrDT21 = y<0.6999&&x>-0.04945&&x<0.05045
  chrDT22 = y<0.6999&&x>0.15035&&x<0.25025
  chrDT23 = y<0.6999&&x>0.35015&&x<0.45005
  chrDT24 = y<0.6999&&x>0.54995&&x<0.64985
  chrDT25 = y<0.6999&&x>0.74975&&x<0.84965
  chrDT26 = y<0.6999&&x>0.94955&&x<1.04945
  test4 = chrDT21||chrDT22||chrDT23||chrDT24||chrDT25||chrDT26&&y>0.6\
  &&y<0.933
  chrDT27 = y<0.5999&&x>-0.14935&&x<-0.04945
  chrDT28 = y<0.5999&&x>0.05045&&x<0.15035
  chrDT29 = y<0.5999&&x>0.25025&&x<0.35015
  chrDT30 = y<0.5999&&x>0.45005&&x<0.54995
  chrDT31 = y<0.5999&&x>0.64985&&x<0.74975
  chrDT32 = y<0.5999&&x>0.84965&&x<0.94955
  chrDT33 = y<0.5999&&x>1.04945&&x<1.14935
  test5 = chrDT27||chrDT28||chrDT29||chrDT30||chrDT31||chrDT32||chrDT\
  33&&y>0.5&&y<0.833
  chrDT34 = y<0.4999&&x>-0.04945&&x<0.05045
  chrDT35 = y<0.4999&&x>0.15035&&x<0.25025
  chrDT36 = y<0.4999&&x>0.35015&&x<0.45005
  chrDT37 = y<0.4999&&x>0.54995&&x<0.64985
  chrDT38 = y<0.4999&&x>0.74975&&x<0.84965
  chrDT39 = y<0.4999&&x>0.94955&&x<1.04945
  test6 = chrDT34||chrDT35||chrDT36||chrDT37||chrDT38||chrDT39&&y>0.4\
  &&y<0.733
  chrDT40 = y<0.3999&&x>-0.14935&&x<-0.04945
  chrDT41 = y<0.3999&&x>0.05045&&x<0.15035
  chrDT42 = y<0.3999&&x>0.25025&&x<0.35015
  chrDT43 = y<0.3999&&x>0.45005&&x<0.54995
  chrDT44 = y<0.3999&&x>0.64985&&x<0.74975
  chrDT45 = y<0.3999&&x>0.84965&&x<0.94955
  chrDT46 = y<0.3999&&x>1.04945&&x<1.14935
  test7 = chrDT40||chrDT41||chrDT42||chrDT43||chrDT44||chrDT45||chrDT\
  46&&y>0.3&&y<0.633
  chrDT47 = y<0.2999&&x>-0.04945&&x<0.05045
  chrDT48 = y<0.2999&&x>0.15035&&x<0.25025
  chrDT49 = y<0.2999&&x>0.35015&&x<0.45005
  chrDT50 = y<0.2999&&x>0.54995&&x<0.64985
  chrDT51 = y<0.2999&&x>0.74975&&x<0.84965
  chrDT52 = y<0.2999&&x>0.94955&&x<1.04945
  test8 = chrDT47||chrDT48||chrDT49||chrDT50||chrDT51||chrDT52&&y>0.2\
  &&y<0.533
  chrDT53 = y<0.1999&&x>-0.14935&&x<-0.04945
  chrDT54 = y<0.1999&&x>0.05045&&x<0.15035
  chrDT55 = y<0.1999&&x>0.25025&&x<0.35015
  chrDT56 = y<0.1999&&x>0.45005&&x<0.54995
  chrDT57 = y<0.1999&&x>0.64985&&x<0.74975
  chrDT58 = y<0.1999&&x>0.84965&&x<0.94955
  chrDT59 = y<0.1999&&x>1.04945&&x<1.14935
  test9 = chrDT53||chrDT54||chrDT55||chrDT56||chrDT57||chrDT58||chrDT\
  59&&y>0.1&&y<0.433
  chrDT60 = y<0.0999&&x>-0.04945&&x<0.05045
  chrDT61 = y<0.0999&&x>0.15035&&x<0.25025
  chrDT62 = y<0.0999&&x>0.35015&&x<0.45005
  chrDT63 = y<0.0999&&x>0.54995&&x<0.64985
  chrDT64 = y<0.0999&&x>0.74975&&x<0.84965
  chrDT65 = y<0.0999&&x>0.94955&&x<1.04945
  test10 = chrDT60||chrDT61||chrDT62||chrDT63||chrDT64||chrDT65&&y>0&\
  &y<0.333
  test=test1||test2||test3||test4||test5||test6||test7||test8||test9|\
  |test10
  test0=test0&&whitesq
  test0=((test0||test)==0)
  f1=sin(.5*pixel)
  f2=1/(32*pixel)
  pixel=(test==0)*f2+test*f1
  ; Import of formula 'Nwtbumps3' from file _N.FRM
  z = pixel + fn1( fn2( fn3( (pixel/|pixel|) * exp( p2 * |pixel|))))
  Root = 1 :
  z = ((p1-1)*z^p1+Root)/(p1*z^(p1-1))
  .001 <= |z^p1-Root|
  ;SOURCE: crazynwt.frm
  }


enjoy!

Guy

- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Fri, 29 Jan 1999 15:59:44 -0500
From: Sylvie Gallet <[e-mail]>
Subject: (fractint) puzzle

Hi Guy,

>> this seems to be a good way to visualize the inverse and the normal
>> plain of a given formula.. =


>> frm:punkt-2 { ; using FRACTEXT (10'1996) by Jan Maarten van der Valk

  Here is a much faster version of the formula:

frm:punkt-2 { ; Original formula by Guy Marson
              ; Optimized by Sylvie Gallet
              ; 'periodicity=3D0' and 'passes=3D1' recommended
  width =3D real(scrnmax/10)
  x =3D trunc(real(scrnpix)/width + 0.5)
  y =3D trunc(imag(scrnmax - scrnpix)/width/0.75)
  if ( x+y =3D=3D 2*trunc((x+y)/2) )
    pix =3D sin(.5*pixel)
  else
    pix =3D 1/(32*pixel)
  endif
  ; Import of formula 'Nwtbumps3' from file _N.FRM
  z =3D pix + fn1( fn2( fn3( (pix/|pix|) * exp( p2 * |pix|))))
  Root =3D 1 , p1_1 =3D p1 - 1 , zp1_1 =3D z^p1_1
  a =3D 1 - 1/p1 , b =3D root/p1 :
  z =3D a*z + b/zp1_1
  zp1_1 =3D z^p1_1
  .001 <=3D |zp1_1*z - Root|
  }

  Cheers,

        - Sylvie

- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

Date: Fri, 29 Jan 1999 19:12:38 -0600
From: "Damien M. Jones" <[e-mail]>
Subject: (fractint) No really, these are my last FractInt PARs :-)

Consider these a "proof of concept", they are not my best work. Some might
find them interesting, though. Best viewed at the highest possible
resolution (1600x1200 looks nice).

- -----8<----- begin dmj-tce.par

Cobwebs            {
  reset=1960 type=formula formulafile=fractint.frm
  formulaname=dmj-Mand-TC1 passes=2
  center-mag=-1.25869/0.369857/15.88512 params=0.125/0.125/0.125/0
  float=y maxiter=256 inside=0 outside=real
  colors=000000<4>z000C0<4>zC00P0<4>zP00a0<4>za00n0<4>zn00z0<4>zz000C<4>z0\
  C0CC<4>zCC0PC<4>zPC0aC<4>zaC0nC<4>znC0zC<4>zzC00P<4>z0P0CP<4>zCP0PP<4>zP\
  P0aP<4>zaP0nP<4>znP0zP<4>zzP00a<4>z0a0Ca<4>zCa0Pa<4>zPa0aa<4>zaa0na<4>zn\
  a0za<4>zza00n<4>z0n0Cn<4>zCn0Pn<4>zPn0an<4>zan0nn<4>znn0zn<4>zzn00z<4>z0\
  z0Cz<4>zCz0Pz<4>zPz0az<4>zaz0nz<4>znz0zz<4>zzz000<29>zzz000<6>000
  cyclerange=0/255
  }

Spots              {
  reset=1960 type=formula formulafile=fractint.frm
  formulaname=dmj-Mand-TC002 passes=2
  center-mag=+0.00187793427230018/+0.82296450939457240/66.66667
  params=0.25/0.0625/0.5/0 float=y maxiter=256 inside=0 outside=real
  colors=000000<4>z000C0<4>zC00P0<4>zP00a0<4>za00n0<4>zn00z0<4>zz000C<4>z0\
  C0CC<4>zCC0PC<4>zPC0aC<4>zaC0nC<4>znC0zC<4>zzC00P<4>z0P0CP<4>zCP0PP<4>zP\
  P0aP<4>zaP0nP<4>znP0zP<4>zzP00a<4>z0a0Ca<4>zCa0Pa<4>zPa0aa<4>zaa0na<4>zn\
  a0za<4>zza00n<4>z0n0Cn<4>zCn0Pn<4>zPn0an<4>zan0nn<4>znn0zn<4>zzn00z<4>z0\
  z0Cz<4>zCz0Pz<4>zPz0az<4>zaz0nz<4>znz0zz<4>zzz000<29>zzz000<6>000
  cyclerange=0/255
  }

Gummi              {
  reset=1960 type=formula formulafile=fractint.frm
  formulaname=dmj-Mand-TC003 passes=2
  center-mag=-0.07356494522691753/-0.97147390396659760/49.01961
  params=2/3/-15/0/-1.25/0 float=y maxiter=256 inside=0 outside=real
  colors=000000<4>z000C0<4>zC00P0<4>zP00a0<4>za00n0<4>zn00z0<4>zz000C<4>z0\
  C0CC<4>zCC0PC<4>zPC0aC<4>zaC0nC<4>znC0zC<4>zzC00P<4>z0P0CP<4>zCP0PP<4>zP\
  P0aP<4>zaP0nP<4>znP0zP<4>zzP00a<4>z0a0Ca<4>zCa0Pa<4>zPa0aa<4>zaa0na<4>zn\
  a0za<4>zza00n<4>z0n0Cn<4>zCn0Pn<4>zPn0an<4>zan0nn<4>znn0zn<4>zzn00z<4>z0\
  z0Cz<4>zCz0Pz<4>zPz0az<4>zaz0nz<4>znz0zz<4>zzz000<29>zzz000<6>000
  cyclerange=0/255
  }

FRM:dmj-Mand-TC001 {
;
; This formula places three traps on the complex
; plane, each a wide straight line. Each trap is
; a different color; as the orbit falls into the
; trap, it is "blended" towards the color of the
; trap. Colors accumulate until the point bails
; out.
;
; p1r    Trap 1 width
; p1i    Trap 2 width
; p2r    Trap 3 width
;
; To modify the trap centers, rotations, or
; colors, clone this formula, add your initials
; and a number onto the end of the formula name,
; and make your changes.
;
; initialization:
  r = 0
  g = 0
  b = 0
  done = 0
  i = 0

  t1 = (1.0, 0.5)        ; trap centers
  t2 = (0.0, 1.0)
  t3 = (-0.5, -1.0)
  t1r = 255, t1g = 0, t1b = 64    ; trap colors
  t2r = 255, t2g = 192, t2b = 0
  t3r = 0, t3g = 192, t3b = 255
  r1 = (0,1)^(0/90)        ; trap rotations
  r2 = (0,1)^(45/90)
  r3 = (0,1)^(60/90)
  IF (real(p1) == 0)        ; default thresholds
    p1 = 0.5 + flip(imag(p1))
  ENDIF
  IF (imag(p1) == 0)
    p1 = real(p1) + (0,0.5)
  ENDIF
  IF (real(p2) == 0)
    p2 = 0.5 + flip(imag(p2))
  ENDIF
  tt1 = 1 / real(p1)        ; reciprocals of trap thresholds
  tt2 = 1 / imag(p1)
  tt3 = 1 / real(p2)

  z = pixel, c = pixel

  :

; iteration:
  z = sqr(z) + c

  d1 = abs(real((t1-z)*r1))
  d2 = abs(real((t2-z)*r2))
  d3 = abs(real((t3-z)*r3))

  IF (d1 < real(p1))
    r = r + (t1r-r)*sqr(d1*tt1)
    g = g + (t1g-g)*sqr(d1*tt1)
    b = b + (t1b-b)*sqr(d1*tt1)
  ENDIF
  IF (d2 < imag(p1))
    r = r + (t2r-r)*sqr(d2*tt2)
    g = g + (t2g-g)*sqr(d2*tt2)
    b = b + (t2b-b)*sqr(d2*tt2)
  ENDIF
  IF (d3 < real(p2))
    r = r + (t3r-r)*sqr(d3*tt3)
    g = g + (t3g-g)*sqr(d3*tt3)
    b = b + (t3b-b)*sqr(d3*tt3)
  ENDIF

; bailout test:
  IF (|z| > 128 ); || i == maxit-2)    ; include last part for inside
    done = 1
  ENDIF
  i = i + 1

; color processing:
;
; True Color Engine 1.0
; Copyright 1999 Damien M. Jones
; http://www.fractalus.com/
;
; This block of formula code provides simulated true color
; in FractInt by dithering. Simply feed red, green, and blue
; values into the variables r, g, and b, set done=1 when your
; values are ready, and store the iteration count in i. To
; view the results, use the associated true color palette,
; use outside=real, and use passes=1 or passes=2; don't use
; guessing.
;
; You can re-use this code in your own formulas, but please
; give credit. Thanks!
;
  IF (done > 0)
    ; 1. Clip to valid ranges
    IF (r > 255)        ; You can remove these lines
      r = 255            ; if you are absolutely sure
    ENDIF            ; your RGB values will never
    IF (g > 255)        ; be out of range. That will
      g = 255            ; make your formula run a bit
    ENDIF            ; faster.
    IF (b > 255)
      b = 255
    ENDIF
    IF (r < 0)
      r = 0
    ENDIF
    IF (g < 0)
      g = 0
    ENDIF
    IF (b < 0)
      b = 0
    ENDIF

    ; 2. Figure out which spot in the dither pattern to use
    ; The dither pattern is a 4x4 matrix; since there are
    ; only six shades of each color, in-between shades must
    ; be "mixed".
    xdither = real(scrnpix) - floor(real(scrnpix)*0.25)*4
    ydither = imag(scrnpix) - floor(imag(scrnpix)*0.25)*4

    ; 3. Calculate the dither threshold for each channel
    ; a. Determine quadrant in dither pattern
    IF (ydither > 1.5)        ; bottom half
      ydither = ydither - 2    ; move to top half
      IF (xdither < 1.5)    ; left half (lower left quadrant)
        rdither = 3
    gdither = 3
    bdither = 3
      ELSE            ; right half (lower right quadrant)
        xdither = xdither - 2    ; move to left half
        rdither = 1
    gdither = 1
    bdither = 1
      ENDIF
    ELSE            ; top half
      IF (xdither > 1.5)    ; right half (upper right quadrant)
        xdither = xdither - 2    ; move to left half
        rdither = 2
        gdither = 2
        bdither = 2
      ELSE            ; left half (upper left quadrant)
        rdither = 0
        gdither = 0
        bdither = 0
      ENDIF
    ENDIF
    ; b. Determine precise cell in quadrant
    IF (ydither > 0.5)        ; bottom half
      IF (xdither < 0.5)    ; left half (bottom left cell)
        rdither = rdither + 12
        gdither = gdither + 12
        bdither = bdither + 12
      ELSE            ; right half (bottom right cell)
        rdither = rdither + 4
        gdither = gdither + 4
        bdither = bdither + 4
      ENDIF
    ELSE            ; top half
      IF (xdither > 0.5)    ; right half (upper right cell)
        rdither = rdither + 8
        gdither = gdither + 8
        bdither = bdither + 8
      ENDIF
    ENDIF

    ; 4. Scale r, g, b with dither weight added
    r = (r*80/255 + rdither) * 0.0625
    g = (g*80/255 + rdither) * 0.0625
    b = (b*80/255 + rdither) * 0.0625

    ; 5. Compute final color and fudge z
    r = floor(r) + floor(g)*6 + floor(b)*36
    z = r - i - 6
  ENDIF

; FractInt bailout:
  done == 0
}

FRM:dmj-Mand-TC002 {
;
; This formula places three traps on the complex
; plane, each a circle. Each trap is
; a different color; as the orbit falls into the
; trap, it is "blended" towards the color of the
; trap. Colors accumulate until the point bails
; out.
;
; p1r    Trap 1 width
; p1i    Trap 2 width
; p2r    Trap 3 width
;
; To modify the trap centers, rotations, or
; colors, clone this formula, add your initials
; and a number onto the end of the formula name,
; and make your changes.
;
; initialization:
  r = 0
  g = 0
  b = 0
  done = 0
  i = 0

  t1 = (0.75, 0.75)        ; trap centers
  t2 = (-0.25, 0.0)
  t3 = (-2.0, -0.25)
  t1r = 255, t1g = 0, t1b = 128    ; trap colors
  t2r = 0, t2g = 255, t2b = 128
  t3r = 0, t3g = 64, t3b = 255
  r1 = (0,1)^(0/90)        ; trap rotations
  r2 = (0,1)^(45/90)
  r3 = (0,1)^(60/90)
  IF (real(p1) == 0)        ; default thresholds
    p1 = 0.5 + flip(imag(p1))
  ENDIF
  IF (imag(p1) == 0)
    p1 = real(p1) + (0,0.5)
  ENDIF
  IF (real(p2) == 0)
    p2 = 0.5 + flip(imag(p2))
  ENDIF
  tt1 = 1 / real(p1)        ; reciprocals of trap thresholds
  tt2 = 1 / imag(p1)
  tt3 = 1 / real(p2)

  z = pixel, c = pixel

  :

; iteration:
  z = sqr(z) + c

  d1 = |t1-z|
  d2 = |t2-z|
  d3 = |t3-z|

  IF (d1 < real(p1))
    r = r + (t1r-r)*(1-sqrt(d1*tt1))
    g = g + (t1g-g)*(1-sqrt(d1*tt1))
    b = b + (t1b-b)*(1-sqrt(d1*tt1))
  ENDIF
  IF (d2 < imag(p1))
    r = r + (t2r-r)*(1-sqrt(d2*tt2))
    g = g + (t2g-g)*(1-sqrt(d2*tt2))
    b = b + (t2b-b)*(1-sqrt(d2*tt2))
  ENDIF
  IF (d3 < real(p2))
    r = r + (t3r-r)*(1-sqrt(d3*tt3))
    g = g + (t3g-g)*(1-sqrt(d3*tt3))
    b = b + (t3b-b)*(1-sqrt(d3*tt3))
  ENDIF

; bailout test:
  IF (|z| > 128 ); || i == maxit-2)    ; include last part for inside
    done = 1
  ENDIF
  i = i + 1

; color processing:
;
; True Color Engine 1.0
; Copyright 1999 Damien M. Jones
; http://www.fractalus.com/
;
; This block of formula code provides simulated true color
; in FractInt by dithering. Simply feed red, green, and blue
; values into the variables r, g, and b, set done=1 when your
; values are ready, and store the iteration count in i. To
; view the results, use the associated true color palette,
; use outside=real, and use passes=1 or passes=2; don't use
; guessing.
;
; You can re-use this code in your own formulas, but please
; give credit. Thanks!
;
  IF (done > 0)
    ; 1. Clip to valid ranges
    IF (r > 255)        ; You can remove these lines
      r = 255            ; if you are absolutely sure
    ENDIF            ; your RGB values will never
    IF (g > 255)        ; be out of range. That will
      g = 255            ; make your formula run a bit
    ENDIF            ; faster.
    IF (b > 255)
      b = 255
    ENDIF
    IF (r < 0)
      r = 0
    ENDIF
    IF (g < 0)
      g = 0
    ENDIF
    IF (b < 0)
      b = 0
    ENDIF

    ; 2. Figure out which spot in the dither pattern to use
    ; The dither pattern is a 4x4 matrix; since there are
    ; only six shades of each color, in-between shades must
    ; be "mixed".
    xdither = real(scrnpix) - floor(real(scrnpix)*0.25)*4
    ydither = imag(scrnpix) - floor(imag(scrnpix)*0.25)*4

    ; 3. Calculate the dither threshold for each channel
    ; a. Determine quadrant in dither pattern
    IF (ydither > 1.5)        ; bottom half
      ydither = ydither - 2    ; move to top half
      IF (xdither < 1.5)    ; left half (lower left quadrant)
        rdither = 3
    gdither = 3
    bdither = 3
      ELSE            ; right half (lower right quadrant)
        xdither = xdither - 2    ; move to left half
        rdither = 1
    gdither = 1
    bdither = 1
      ENDIF
    ELSE            ; top half
      IF (xdither > 1.5)    ; right half (upper right quadrant)
        xdither = xdither - 2    ; move to left half
        rdither = 2
        gdither = 2
        bdither = 2
      ELSE            ; left half (upper left quadrant)
        rdither = 0
        gdither = 0
        bdither = 0
      ENDIF
    ENDIF
    ; b. Determine precise cell in quadrant
    IF (ydither > 0.5)        ; bottom half
      IF (xdither < 0.5)    ; left half (bottom left cell)
        rdither = rdither + 12
        gdither = gdither + 12
        bdither = bdither + 12
      ELSE            ; right half (bottom right cell)
        rdither = rdither + 4
        gdither = gdither + 4
        bdither = bdither + 4
      ENDIF
    ELSE            ; top half
      IF (xdither > 0.5)    ; right half (upper right cell)
        rdither = rdither + 8
        gdither = gdither + 8
        bdither = bdither + 8
      ENDIF
    ENDIF

    ; 4. Scale r, g, b with dither weight added
    r = (r*80/255 + rdither) * 0.0625
    g = (g*80/255 + rdither) * 0.0625
    b = (b*80/255 + rdither) * 0.0625

    ; 5. Compute final color and fudge z
    r = floor(r) + floor(g)*6 + floor(b)*36
    z = r - i - 6
  ENDIF

; FractInt bailout:
  done == 0
}

FRM:dmj-Mand-TC003 {
;
; This formula places a single rainbow-colored
; ring trap on the complex plane. As the orbit falls
; into the trap, it is "blended" towards the
; color of the trap at the point it lands.
; Colors accumulate until the point bails out.
;
; p1r    Trap 1 width
; p1i    Trap 1 diameter
; p2r    Trap rotation
; p2i    Trap aspect
; p3    Trap center
;
; To modify the trap centers, rotations, or
; colors, clone this formula, add your initials
; and a number onto the end of the formula name,
; and make your changes.
;
; initialization:
  r = 0
  g = 0
  b = 0
  done = 0
  i = 0

  t1 = p3 ;(0.75, 0.75)        ; trap centers
  r1 = (0,1)^(0/90)        ; trap rotations
  IF (real(p1) == 0)        ; default thresholds
    p1 = 0.5 + flip(imag(p1))
  ENDIF
  IF (imag(p1) == 0)
    p1 = real(p1) + (0,0.25)
  ENDIF
  IF (imag(p2) == 0)
    p2 = real(p2) + (0,1.0)
  ENDIF
  r1 = (0,1)^(real(p2)/90)    ; trap rotations
  a1 = imag(p2)            ; aspect ratio
  tt1 = 1 / real(p1)        ; reciprocals of trap thresholds

  z = pixel, c = pixel

  :

; iteration:
  z = sqr(z) + c

  z1 = (z-t1) * r1
  z1 = real(z1) + flip(imag(z1)*a1)
  d1 = abs(cabs(z1)-imag(p1))

  IF (d1 < real(p1))
    d1 = 1 - (d1*tt1)
    h = (atan(imag(z1)/real(z1)) + pi/2) * 127.5/pi
    IF (real(z1) < 0)
      h = h + 127.5
    ENDIF
    s = 255
    l = 255 * sqr(d1)

    ; HSL -> RGB conversion code
    IF (s == 0)            ; zero saturation (grey shade)
      t1r = l, t1g = l, t1b = l    ; take the easy way out
    ELSE            ; non-zero saturation
      IF (l < 128)        ; lightness in the low half
        ls2 = l * (255+s) / 255    ; compute lightest value
      ELSE            ; lightness in the high half
        ls2 = l+s - (l*s) / 255    ; compute lightest value
      ENDIF
      ls1 = 2*l - ls2        ; compute darkest value
      IF (h < 42.6666667)    ; first sixth: red to yellow
        t1r = 255
        t1g = h * 6
    t1b = 0
      ELSEIF (h < 87.3333333)    ; second sixth: yellow to green
        t1r = (87.3333333 - h) * 6
        t1g = 255
    t1b = 0
      ELSEIF (h < 128)        ; third sixth: green to cyan
        t1r = 0
        t1g = 255
        t1b = (h-87.3333333) * 6
      ELSEIF (h < 170.6666667)    ; fourth sixth: cyan to blue
        t1r = 0
        t1g = (170.6666667 - h) * 6
    t1b = 255
      ELSEIF (h < 214.3333333)    ; fifth sixth: blue to magenta
        t1r = (h-170.6666667) * 6
        t1g = 0
    t1b = 255
      ELSE            ; last sixth: magenta to red
        t1r = 255
        t1g = 0
        t1b = (255 - h) * 6
      ENDIF
      ls2 = (ls2 - ls1) / 255    ; brightness range
      t1r = ls1 + t1r*ls2    ; scale RGB accordingly
      t1g = ls1 + t1g*ls2
      t1b = ls1 + t1b*ls2
    ENDIF
    r = r + (t1r-r)*(d1)
    g = g + (t1g-g)*(d1)
    b = b + (t1b-b)*(d1)
  ENDIF

; bailout test:
  IF (|z| > 128 ); || i == maxit-2)    ; include last part for inside
    done = 1
  ENDIF
  i = i + 1

; color processing:
;
; True Color Engine 1.0
; Copyright 1999 Damien M. Jones
; http://www.fractalus.com/
;
; This block of formula code provides simulated true color
; in FractInt by dithering. Simply feed red, green, and blue
; values into the variables r, g, and b, set done=1 when your
; values are ready, and store the iteration count in i. To
; view the results, use the associated true color palette,
; use outside=real, and use passes=1 or passes=2; don't use
; guessing.
;
; You can re-use this code in your own formulas, but please
; give credit. Thanks!
;
  IF (done > 0)
    ; 1. Clip to valid ranges
    IF (r > 255)        ; You can remove these lines
      r = 255            ; if you are absolutely sure
    ENDIF            ; your RGB values will never
    IF (g > 255)        ; be out of range. That will
      g = 255            ; make your formula run a bit
    ENDIF            ; faster.
    IF (b > 255)
      b = 255
    ENDIF
    IF (r < 0)
      r = 0
    ENDIF
    IF (g < 0)
      g = 0
    ENDIF
    IF (b < 0)
      b = 0
    ENDIF

    ; 2. Figure out which spot in the dither pattern to use
    ; The dither pattern is a 4x4 matrix; since there are
    ; only six shades of each color, in-between shades must
    ; be "mixed".
    xdither = real(scrnpix) - floor(real(scrnpix)*0.25)*4
    ydither = imag(scrnpix) - floor(imag(scrnpix)*0.25)*4

    ; 3. Calculate the dither threshold for each channel
    ; a. Determine quadrant in dither pattern
    IF (ydither > 1.5)        ; bottom half
      ydither = ydither - 2    ; move to top half
      IF (xdither < 1.5)    ; left half (lower left quadrant)
        rdither = 3
    gdither = 3
    bdither = 3
      ELSE            ; right half (lower right quadrant)
        xdither = xdither - 2    ; move to left half
        rdither = 1
    gdither = 1
    bdither = 1
      ENDIF
    ELSE            ; top half
      IF (xdither > 1.5)    ; right half (upper right quadrant)
        xdither = xdither - 2    ; move to left half
        rdither = 2
        gdither = 2
        bdither = 2
      ELSE            ; left half (upper left quadrant)
        rdither = 0
        gdither = 0
        bdither = 0
      ENDIF
    ENDIF
    ; b. Determine precise cell in quadrant
    IF (ydither > 0.5)        ; bottom half
      IF (xdither < 0.5)    ; left half (bottom left cell)
        rdither = rdither + 12
        gdither = gdither + 12
        bdither = bdither + 12
      ELSE            ; right half (bottom right cell)
        rdither = rdither + 4
        gdither = gdither + 4
        bdither = bdither + 4
      ENDIF
    ELSE            ; top half
      IF (xdither > 0.5)    ; right half (upper right cell)
        rdither = rdither + 8
        gdither = gdither + 8
        bdither = bdither + 8
      ENDIF
    ENDIF

    ; 4. Scale r, g, b with dither weight added
    r = (r*80/255 + rdither) * 0.0625
    g = (g*80/255 + rdither) * 0.0625
    b = (b*80/255 + rdither) * 0.0625

    ; 5. Compute final color and fudge z
    r = floor(r) + floor(g)*6 + floor(b)*36
    z = r - i - 6
  ENDIF

; FractInt bailout:
  done == 0
}

- -----8<----- end dmj-tce.par

Damien M. Jones   \\
[e-mail]  \\  Fractalus Galleries & Info:
                    \\  http://www.fractalus.com/

Please do not post my e-mail address on a web site or
in a newsgroup.  Thank you.

- --------------------------------------------------------------
Thanks for using Fractint, The Fractals and Fractint Discussion List
Post Message:   [e-mail]
Get Commands:   [e-mail] "help"
Administrator:  [e-mail]
Unsubscribe:    [e-mail] "unsubscribe fractint"

------------------------------

End of fractint-digest V1 #357
******************************