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

Internet Message Format | 1998-02-13 | 41KB

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


fractint-digest       Friday, February 13 1998       Volume 01 : Number 108




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

Date: Thu, 12 Feb 1998 12:48:19 -0800 (PST)
From: FIRSTNAME LASTNAME <[e-mail]>
Subject: (fractint) previous post not meant as accusation of anyone

- ---alex dukay <[e-mail]> wrote:
>
> LASTNAME FIRSTNAME
> >Nuff sed?
> As far as I'm concerned your apology is accepted by me...You should
however
> get a  spell checker...Why don't you use your real name?
> Alex Dukay
>
> -
> ------------------------------------------------------------
> 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"
>


Geez,

the more I try to fix this the worse it seems to get. I was not
stabbing at the list or any one person.  I was asked why do I use the
moniker FIRSTNAME LASTNAME and I answered.  I can get a tad verbose
but still I was asked.  Anyway I'm gonna stop before I shoot off the
rest of my toes here.  BLAM!  there goes another one, dammit. 8->

Well at least my aim is improving.



James R. McKenzie







There are no health benefits the hours are lousy and the pay and work
conditions really stink but still I gotta be me.  No one else applied
for the job.

_________________________________________________________
DO YOU YAHOO!?
Get your free @yahoo.com address at http://mail.yahoo.com


- -
- ------------------------------------------------------------
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, 12 Feb 1998 16:05:24 -0500
From: Les St Clair <[e-mail]>
Subject: (fractint) more list pars

Hi everyone,

Thanks to a favourable response to my compilation of pars from this list =
I
have now completed the line-up by adding collections for August thru
December '97.

The zipped collections can be found on my web site at:

http://ourworld.compuserve.com/homepages/Les_StClair/

cheers, =


Les

- -
- ------------------------------------------------------------
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, 12 Feb 1998 17:53:25 -0800
From: Wizzle <[e-mail]>
Subject: Re: (fractint) Palette editing

I've been thinking a lot about improvements......and I think the problem is
best broken down into two parts.

1.  Choosing colors

Fractint doesn't do as good a job as simple win95 type color selection
tools like the palettes found in Netscape's html editor or Paintshop Pro's
palette selector

Basically a window pops up with a rainbow palette displayed.....you pull
cross hairs with a mouse to pick the general color you want (red,
magenta....etc)....then there is a slider that lets you "fine tune" the
color selected.  At the same time.....the RGB codes for the colors are in
the right hand side of the same window.....so if you find a color you
particularly like....you can note the numbers.  On the left hand side of
the palette selector is a space to add selected colors for use "next time."
 I own graphics programs with a more complicated system.....but I find this
works very very well.....it is very visual for the beginner (since you see
the color palette).....yet lets the more experienced user get to the
"right" color via the numbers. My homepage background is r 0 g 0 b 51, for
instance.....so I enter that when I want to make up something that matches
my background.

2.  Organizing the colors onto the fractal

This is the area where the fractint mapping method does such a superb
job......and an important one it is.  I can (1) position a particular color
with great precision in the fractal image itself and (2) arrange the way
the colors will cycle in the image. I've spent many a frustrated hour
trying to figure out how to make the colors "line up" like I want them to
with the slider/step method used by most of the truecolor programs I've
tried. Let's say I had a spot of red I detested.......I couldn't get rid of
it like I do in Fractint without destroying the entire color organization
I'd created with the sliders. To me, the sliders seem to organize the
entire palette in some mysterious fashion.....and if I want to have pink
following green instead of yellow following green......I can't seem to
figure out how to do it.  And if I have a whole series in mind.....first
red...then black...then orange...more black...etc....forget it.

I'm sure melding these two problems in a truecolor is going to be a toughy.

Angela

ps...I downloaded the new version of trumand today for a "test drive"

At 03:00 PM 2/12/98 EST, you wrote:
>
>Wizzle, and anyone else with an interest:
>I am planning in the near future to include a palette editor for Trumand.
>Before I start work on it I would like to get some input. I know there is a
>wish list already out there, but I would like to hear some pro's, con's and
>priorities. In the absence of any input I will implement something like
>Makemap as a popup control.
>Ron Barnett


- -
- ------------------------------------------------------------
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, 12 Feb 1998 17:24:37 -0500
From: [e-mail] (C C)
Subject: Re: (fractint) more list pars

Les, I just wanted to tell you it's wonderful of you to collect the pars
and frms off the list. It's been almost impossible for me to keep up with
any of it. Just this morning I accidentally deleted the par and frm that
Linda posted to the list as a part of her Bliss printout announcement.
There's no "undelete" in Juno.<G> So thank you for giving me and others a
way to get all the pars!--Alice

_____________________________________________________________________
You don't need to buy Internet access to use free Internet e-mail.
Get completely free e-mail from Juno at http://www.juno.com
Or call Juno at (800) 654-JUNO [654-5866]


- -
- ------------------------------------------------------------
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, 13 Feb 1998 11:15:21 +1
From: "J.P. Louvet" <[e-mail]>
Subject: (fractint) Site update

I apologize to post this message in this list, but it is the most active.

I have now 60 true color fractals made with Fractal Elite (Terry's
program).

I have also new links, several to pages of fractals made with Fractint. If
you like what I do, cross-references will be appreciated. All remarks will
be welcome (bug, typo error, syntax... and what do you think about these
images).

Do you think that this is out of topic ?

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: Fri, 13 Feb 1998 11:14:57 +1
From: "J.P. Louvet" <[e-mail]>
Subject: (fractint) Site update

I apologize to post this message in this list, but it is the most active.

I have now 60 true color fractals made with Fractal Elite (Terry's
program).

I have also new links, several to pages of fractals made with Fractint. If
you like what I do, cross-references will be appreciated. All remarks will
be welcome (bug, typo error, syntax... and what do you think about these
images).

Do you think that this is out of topic ?

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: Fri, 13 Feb 1998 13:17:12 EST
From: [e-mail]
Subject: Re: (fractint) Palette editing

In a message dated 98-02-12 20:41:55 EST, you write:

<< 've been thinking a lot about improvements......and I think the problem is
 best broken down into two parts.

 1.  Choosing colors

 Basically a window pops up with a rainbow palette displayed.....you pull
 cross hairs with a mouse to pick the general color you want (red,
 magenta....etc)....then there is a slider that lets you "fine tune" the
 color selected.....

 2.  Organizing the colors onto the fractal

 This is the area where the fractint mapping method does such a superb
 job...... Angela
  >>

The first option is the easy one. That is the interface that Makemap has, and
the one I plan to put into Truemand. The second one is tougher, but it is one
I use myself with Fractint, and I agree with you completely about its utility.
The only solution I see right now will require the user to switch to a 256
color video mode for Windows, Windows 95 or Windows NT so that palette
animation can be used. This would only be necessary during the "color
tweaking" process. The user would then switch back to the high color or true
color video mode for redrawing the final version of the fractal. That is
basically the solution that the current version of Truemand uses for palette
animation and color tweaking. Microsoft has a Power Toys package for Windows
95 that allows switching between color resolutions without re-booting. I don't
know if a similar utility exits for Windows NT.
Ron

- -
- ------------------------------------------------------------
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, 13 Feb 1998 18:43:23 -0800
From: "Jay Hill" <[e-mail]>
Subject: (fractint) Happy Valentine's Day wizzle.

Dr. J sez

Happy Valentine's Day wizzle.
http://home.san.rr.com/jayrhill/FotN/FotN45.html

J

frm:Heart { ; (c) Jay Hill, 1998
done = 1, z = 0, zc = 0, c = sqrt(pixel+.75)
s=|c|, t1=(256*s - 96)*s + 32*Real(c), t2=16*s + 32*Real(c) + 16
z=z + 251*(t1<=3) + 252*(t2<=1) ; set colors
if(z>0) ; for periods 1, 2
done=-1 ; color is set for c in a component, skip iterations
endif
: ; initialization.
zc=sqr(zc) + c ; standard MSet iteration
if (|zc| >= 4) ; Bailout at 4
done=-1 ; Set flag to force an exit.
endif
done >= 0 ; Continue if the flag >=0.
}

RedHeart { ; (c) Jay Hill, 1998
reset=1960 type=formula formulafile=*.frm formulaname=Heart
center-mag=-0.242321/-3.33067e-016/4.347826/1/-90
float=y maxiter=252 inside=251 outside=summ
invert=1/0.5/0 symmetry=xaxis periodicity=0
colors=000<248>111111000wK1000000KA8
}



- -
- ------------------------------------------------------------
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, 13 Feb 1998 21:02:27 -0700 (MST)
From: Kerry Mitchell <[e-mail]>
Subject: (fractint) Explanation, formulas & pars--average (long)

comment { ; narrative copyright Kerry Mitchell 13feb98

Average

Due to the discrete nature of fractal rendering, most
fractals exhibit some sort of banding artifacts.  That
is, formulas tend to be iterated until "something happens",
and then the pixel is colored.  There can appear a sharp
border between pixels where the iteration stopped at step
n, versus nearby pixels that survived until step n+1.
This discontinuity can even occur if the coloring is based
on something other than the iteration count.

Averaging is one way to reduce this banding.  The bands of
color are dependent upon the iteration count, which is
related to the escape radius, or bailout value.  Changing
the bailout will move the bands in or out from the fractal,
and may slightly change their shape.  Moving the bands is
the basis of this method.

For quadratic formulas (Mandelbrot and Julia sets), squaring
the bailout will move the bands out approximately one band
width.  To see this, assume that the orbit escaped at the
17th iteration, using a escape radius of 100.  The magnitude
of the iterate is between 100 and 10,000 (or else it would
have escaped before or after iteration 17).  The magnitude
of the next iteration will be between 10,000 and 1e8 (100
squared and 10,000 squared).  Now, changing the escape
radius to 10,000 (100 squared) means that the orbit will
escape at the next iteration, or that what was the 17th
iteration band has moved outward 1 band width.

To see how this works with fractals, assume that a string
of pixels is colored thusly with a given bailout value:

r g g g b b b

where "r" indicates red, "g" means green, and "b" is
blue.  Increasing the bailout value moves the band outward,
giving this string of colors:

r r g g g b b

Averaging the two:

r g g g b b b  first
r r g g g b b  second
r y g g c b b  average

where "y" means dark yellow and "c" means dark cyan.  The
hard boundary between red and green has now been smoothed
by the inclusion of a (dark) yellow pixel, and the line
between green and blue has been smoothed through a (dark)
cyan pixel.  In reality, more than two bailouts should be
used to get a smoothly varying image.  Also, when using a
bit-mapped fractal generator (Fractint), be aware that the
averaging takes place in color index space, not color space,
so it is important to use a smoothly varying color map.

The "ave8template" formula shows the basic functionality,
using 8 different bailouts.  Call the lowest bailout r1,
and choose it such that it is much larger than the size
of the parameter (say, 100).  Then the width of this
iteration band is from 100 to 10,000.  That is, all orbits
that escape will have magnitudes between 100 and 10,000.
The goal is to pick several other bailout values that will
equally span this space.  Since the high end of the range
is r1^2 or r1*r1^1, 8 even steps can be made by choosing
bailouts of

r = r1 * r1^(i/8),

for i from 1 to 8.  In practice, r1 and the next 7 steps
are used, since the eighth bailout will overlap the first
one.  Given the bailout values, 8 different iteration
flags are initialized to 0.

At each iteration, the overall iteration counter is
incremented, and an overall variable is recorded, which
tracks the relevant quantity (iteration, how many times
real(z) is less than imag(z), etc.).  Checking for escape
is doing by sequentially stepping through the 8 bailout
values.  If bailout 1 is exceeded, then set iteration
counter 1 to the current iteration and set variable 1
to the value of the overall variable.  If all the
bailouts have not yet been exceeded, continuing iterating.

When all the bailouts have been exceeded, compute the
average of all the specific variables (variable 1, variable
2, etc.).  Then, use that average as the coloring parameter.
If the pixel in question turns out the be an inside pixel,
color using the overall variable.

If the image is to be rendered simply using a smoothed
iteration count, then a method similar to Linas Vepstas'
renormalization is preferable.  However, if the variable
used for coloring does not lend itself to a simple
renormalization analysis, then the present method will
work very well.  The number of averages can easily be
changed to any appropriate amount.  However, when using
a bit-mapped generator, it will not be beneficial to
use an extreme number of averages, as the image will
still be limited to the number of colors available
in the generator.

ave8template  ; Kerry Mitchell 13feb98
        ; real(p1) = bailout (try 10)
        ; imag(p1) = unused
        ; real(p2) = inner coloring speed (0 for outer only)
        ; imag(p2) = outer coloring speed (0 for inner only)
        zc=0, c=pixel, iter=1, maxr=real(p1), count=0
        b1=maxr, fac=b1^0.125, b2=b1*fac, b3=b2*fac
        b4=b3*fac, b5=b4*fac, b6=b5*fac, b7=b6*fac, b8=b7*fac
        iter1=iter2=iter3=iter4=iter5=iter6=iter7=iter8=0
        inspeed=real(p2)*pi*255/128
        outspeed=imag(p2)*pi*255/128
        :
        iter=iter+1, zc=sqr(zc)+c, r2zc=|zc|
        ;
        ; insert logic here to compute variable counter
        ;
        count=count+1
        if (r2zc>b1)
          if (iter1==0)
            iter1=iter, q1=count/iter
          endif
        if (r2zc>b2)
          if (iter2==0)
            iter2=iter, q2=count/iter
          endif
        if (r2zc>b3)
          if (iter3==0)
            iter3=iter, q3=count/iter
          endif
        if (r2zc>b4)
          if (iter4==0)
            iter4=iter, q4=count/iter
          endif
        if (r2zc>b5)
          if (iter5==0)
            iter5=iter, q5=count/iter
          endif
        if (r2zc>b6)
          if (iter6==0)
            iter6=iter, q6=count/iter
          endif
        if (r2zc>b7)
          if (iter7==0)
            iter7=iter, q7=count/iter
          endif
        if (r2zc>b8)
          if (iter8==0)
            iter8=iter, q8=count/iter
          endif

        iter=-1
        q=(q1+q2+q3+q4+q5+q6+q7+q8)*0.125
        angle=q*outspeed
        z=cos(angle)+flip(sin(angle))

        endif
        endif
        endif
        endif
        endif
        endif
        endif
        endif

        if (iter==maxit)
          q=count/iter
          angle=q*inspeed
          z=cos(angle)+flip(sin(angle))
          iter=-1
          end if

        iter>0

}

z1z2-sample        { ; copyright Kerry Mitchell 13feb98
  reset=1960 type=formula formulafile=fractint.frm
  formulaname=ave8z1gtz2_man passes=1 center-mag=-0.67\
  5845/0/0.8130081 params=1e10/0/2/4 float=y maxiter=256
  inside=0 decomp=256 periodicity=0 colors=000<40>x00z0\
  0z00<40>zy0zz0zz1<39>zzxzzzzzz<40>1zz0zz0yz<39>02z00z\
  00z<41>000 cyclerange=0/255
  }

xlty-sample        { ; copyright Kerry Mitchell 13feb98
  reset=1960 type=formula formulafile=fractint.frm
  formulaname=ave8xlty_man function=recip passes=1
  center-mag=-0.5/0/0.5 params=100/2/1/1 float=y
  maxiter=256 inside=0 decomp=256 periodicity=0 colors=\
  zzzvzzuzztzzryz<4>nxznxzmxzmwzlwz<3>jvzivzivziuz<18>a\
  qyapyapyapy`py<29>ThuThuThuTguSguSgu<57>HThHThGThGTgG\
  SgGSg<41>9IV9HU9HU9HT9HT<67>000 cyclerange=0/255
  }

triang-sample      { ; copyright Kerry Mitchell 13feb98
  reset=1960 type=formula formulafile=fractint.frm
  formulaname=ave8triangcount_j passes=1 center-mag=+0.\
  53215689404291660/-0.20115162024316770/217.3913 param\
  s=0.2892573747165716/0.01339117893975959/1000000/0/0/10
  float=y maxiter=2000 inside=0 decomp=256 periodicity=0
  colors=000<40>x00z00z00<40>zy0zz0zz1<39>zzxzzzzzz<40>1\
  zz0zz0yz<39>02z00z00z<41>000 cyclerange=0/255
  }

root-sample        { ; copyright Kerry Mitchell 13feb98
  reset=1960 type=formula formulafile=fractint.frm
  formulaname=ave8rootcount_j passes=1 center-mag=0/0/0.85
  params=-0.784997672205598/0.1465901215918722/1e15/0/0/2
  float=y maxiter=2000 inside=0 decomp=256 periodicity=0
  colors=ygt<4>zkwzlwznxzox<2>ztzzzzztzzry<4>zkwzjvzivzhu\
  zhuygt<8>x`px`ox_ox_nxZn<5>vWkvVjvVjvVi<12>rPcqObqObpOa\
  pNa<20>fGSfFReFRdFQ<13>XAJWAJVAIUAIU9H<33>100000100<31>\
  S9GT9HU9HUAIVAIWAJ<25>jIVkJWkJWlKXlKX<18>tRftSftSgtTguT\
  h<3>vVjvVjvWkwXk<16>yft cyclerange=0/255
  }

frm:ave8xlty_man { ; Kerry Mitchell 13feb98
        ; real(p1) = bailout (try 10)
        ; imag(p1) = rounding factor (try 1)
        ; real(p2) = inner coloring speed (0 for outer only)
        ; imag(p2) = outer coloring speed (0 for inner only)
        ; fn1 = arbitrary function (try log)
        zc=0, c=pixel, iter=1, maxr=real(p1), count=0
        b1=maxr, fac=b1^0.125, b2=b1*fac, b3=b2*fac
        b4=b3*fac, b5=b4*fac, b6=b5*fac, b7=b6*fac, b8=b7*fac
        iter1=iter2=iter3=iter4=iter5=iter6=iter7=iter8=0
        inspeed=real(p2)*pi*255/128, roundfac=imag(p1)
        outspeed=imag(p2)*pi*255/128:
        iter=iter+1, zc=sqr(zc)+c, r2zc=|zc|
        temp=fn1(zc)/roundfac, frac=roundfac*(temp-round(temp))
        if (real(frac)<imag(frac))
          count=count+1
          end if
        if (r2zc>b1)
          if (iter1==0)
            iter1=iter, q1=count/iter
          endif
        if (r2zc>b2)
          if (iter2==0)
            iter2=iter, q2=count/iter
          endif
        if (r2zc>b3)
          if (iter3==0)
            iter3=iter, q3=count/iter
          endif
        if (r2zc>b4)
          if (iter4==0)
            iter4=iter, q4=count/iter
          endif
        if (r2zc>b5)
          if (iter5==0)
            iter5=iter, q5=count/iter
          endif
        if (r2zc>b6)
          if (iter6==0)
            iter6=iter, q6=count/iter
          endif
        if (r2zc>b7)
          if (iter7==0)
            iter7=iter, q7=count/iter
          endif
        if (r2zc>b8)
          if (iter8==0)
            iter8=iter, q8=count/iter
          endif

        iter=-1
        q=(q1+q2+q3+q4+q5+q6+q7+q8)*0.125
        angle=q*outspeed
        z=cos(angle)+flip(sin(angle))

        endif
        endif
        endif
        endif
        endif
        endif
        endif
        endif

        if (iter==maxit)
          q=count/iter
          angle=q*inspeed
          z=cos(angle)+flip(sin(angle))
          iter=-1
          end if

        iter>0
        }

frm:ave8xlty_jul { ; Kerry Mitchell 13feb98
        ; p1 = Julia parameter
        ; real(p2) = bailout (try 10)
        ; imag(p2) = rounding factor (try 1)
        ; real(p3) = inner coloring speed (0 for outer only)
        ; imag(p3) = outer coloring speed (0 for inner only)
        ; fn1 = arbitrary function (try log)
        zc=pixel, c=p1, iter=1, maxr=real(p2), count=0
        b1=maxr, fac=b1^0.125, b2=b1*fac, b3=b2*fac
        b4=b3*fac, b5=b4*fac, b6=b5*fac, b7=b6*fac, b8=b7*fac
        iter1=iter2=iter3=iter4=iter5=iter6=iter7=iter8=0
        inspeed=real(p3)*pi*255/128, roundfac=imag(p2)
        outspeed=imag(p3)*pi*255/128:
        iter=iter+1, zc=sqr(zc)+c, r2zc=|zc|
        temp=fn1(zc)/roundfac, frac=roundfac*(temp-round(temp))
        if (real(frac)<imag(frac))
          count=count+1
          end if
        if (r2zc>b1)
          if (iter1==0)
            iter1=iter, q1=count/iter
          endif
        if (r2zc>b2)
          if (iter2==0)
            iter2=iter, q2=count/iter
          endif
        if (r2zc>b3)
          if (iter3==0)
            iter3=iter, q3=count/iter
          endif
        if (r2zc>b4)
          if (iter4==0)
            iter4=iter, q4=count/iter
          endif
        if (r2zc>b5)
          if (iter5==0)
            iter5=iter, q5=count/iter
          endif
        if (r2zc>b6)
          if (iter6==0)
            iter6=iter, q6=count/iter
          endif
        if (r2zc>b7)
          if (iter7==0)
            iter7=iter, q7=count/iter
          endif
        if (r2zc>b8)
          if (iter8==0)
            iter8=iter, q8=count/iter
          endif

        iter=-1
        q=(q1+q2+q3+q4+q5+q6+q7+q8)*0.125
        angle=q*outspeed
        z=cos(angle)+flip(sin(angle))

        endif
        endif
        endif
        endif
        endif
        endif
        endif
        endif

        if (iter==maxit)
          q=count/iter
          angle=q*inspeed
          z=cos(angle)+flip(sin(angle))
          iter=-1
          end if

        iter>0
        }

frm:ave8z1gtz2_jul { ; Kerry Mitchell 13feb98
        ; p1 = Julia parameter
        ; real(p2) = bailout (try 1e10)
        ; imag(p2) = unused
        ; real(p3) = inner coloring speed (0 for outer only)
        ; imag(p3) = outer coloring speed (0 for inner only)
        z1=pixel, r1=|z1|, c=p1, iter=1, maxr=real(p2), count=0
        b1=maxr, fac=b1^0.125, b2=b1*fac, b3=b2*fac
        b4=b3*fac, b5=b4*fac, b6=b5*fac, b7=b6*fac, b8=b7*fac
        iter1=iter2=iter3=iter4=iter5=iter6=iter7=iter8=0
        inspeed=real(p3)*pi*255/128
        outspeed=imag(p3)*pi*255/128:
        iter=iter+1, z2=sqr(z1)+c, r2=|z2|
        if (r1>r2)
          count=count+1
          end if
        z1=z2, r1=r2
        if (r2>b1)
          if (iter1==0)
            iter1=iter, q1=count/iter
          endif
        if (r2>b2)
          if (iter2==0)
            iter2=iter, q2=count/iter
          endif
        if (r2>b3)
          if (iter3==0)
            iter3=iter, q3=count/iter
          endif
        if (r2>b4)
          if (iter4==0)
            iter4=iter, q4=count/iter
          endif
        if (r2>b5)
          if (iter5==0)
            iter5=iter, q5=count/iter
          endif
        if (r2>b6)
          if (iter6==0)
            iter6=iter, q6=count/iter
          endif
        if (r2>b7)
          if (iter7==0)
            iter7=iter, q7=count/iter
          endif
        if (r2>b8)
          if (iter8==0)
            iter8=iter, q8=count/iter
          endif

        iter=-1
        q=(q1+q2+q3+q4+q5+q6+q7+q8)*0.125
        angle=q*outspeed
        z=cos(angle)+flip(sin(angle))

        endif
        endif
        endif
        endif
        endif
        endif
        endif
        endif

        if (iter==maxit)
          q=count/iter
          angle=q*inspeed
          z=cos(angle)+flip(sin(angle))
          iter=-1
          end if

        iter>0
        }

frm:ave8z1gtz2_man { ; Kerry Mitchell 13feb98
        ; real(p1) = bailout (try 1e10)
        ; imag(p1) = unused
        ; real(p2) = inner coloring speed (0 for outer only)
        ; imag(p2) = outer coloring speed (0 for inner only)
        z1=0, r1=|z1|, c=pixel, iter=1, maxr=real(p1), count=0
        b1=maxr, fac=b1^0.125, b2=b1*fac, b3=b2*fac
        b4=b3*fac, b5=b4*fac, b6=b5*fac, b7=b6*fac, b8=b7*fac
        iter1=iter2=iter3=iter4=iter5=iter6=iter7=iter8=0
        inspeed=real(p2)*pi*255/128
        outspeed=imag(p2)*pi*255/128:
        iter=iter+1, z2=sqr(z1)+c, r2=|z2|
        if (r1>r2)
          count=count+1
          end if
        z1=z2, r1=r2
        if (r2>b1)
          if (iter1==0)
            iter1=iter, q1=count/iter
          endif
        if (r2>b2)
          if (iter2==0)
            iter2=iter, q2=count/iter
          endif
        if (r2>b3)
          if (iter3==0)
            iter3=iter, q3=count/iter
          endif
        if (r2>b4)
          if (iter4==0)
            iter4=iter, q4=count/iter
          endif
        if (r2>b5)
          if (iter5==0)
            iter5=iter, q5=count/iter
          endif
        if (r2>b6)
          if (iter6==0)
            iter6=iter, q6=count/iter
          endif
        if (r2>b7)
          if (iter7==0)
            iter7=iter, q7=count/iter
          endif
        if (r2>b8)
          if (iter8==0)
            iter8=iter, q8=count/iter
          endif

        iter=-1
        q=(q1+q2+q3+q4+q5+q6+q7+q8)*0.125
        angle=q*outspeed
        z=cos(angle)+flip(sin(angle))

        endif
        endif
        endif
        endif
        endif
        endif
        endif
        endif

        if (iter==maxit)
          q=count/iter
          angle=q*inspeed
          z=cos(angle)+flip(sin(angle))
          iter=-1
          end if

        iter>0
        }

frm:ave8rootcount_m { ; Kerry Mitchell 12feb98
        ; real(p1) = bailout (try 1e10)
        ; imag(p1) = unused
        ; real(p2) = inner coloring speed (0 for outer only)
        ; imag(p2) = outer coloring speed (0 for inner only)
        zc=0, c=pixel, iter=1, maxr=real(p1), count=0
        b1=maxr, fac=b1^0.125, b2=b1*fac, b3=b2*fac
        b4=b3*fac, b5=b4*fac, b6=b5*fac, b7=b6*fac, b8=b7*fac
        iter1=iter2=iter3=iter4=iter5=iter6=iter7=iter8=0
        inspeed=real(p2)*pi*255/128
        outspeed=imag(p2)*pi*255/128:
        iter=iter+1, z2=sqr(zc), w=sqrt(z2),
        r1=|zc-w|, r2=|zc+w|, count=count+(r1<r2),
        zc=z2+c, r2zc=|zc|
        if (r2zc>b1)
          if (iter1==0)
            iter1=iter, q1=count/iter
          endif
        if (r2zc>b2)
          if (iter2==0)
            iter2=iter, q2=count/iter
          endif
        if (r2zc>b3)
          if (iter3==0)
            iter3=iter, q3=count/iter
          endif
        if (r2zc>b4)
          if (iter4==0)
            iter4=iter, q4=count/iter
          endif
        if (r2zc>b5)
          if (iter5==0)
            iter5=iter, q5=count/iter
          endif
        if (r2zc>b6)
          if (iter6==0)
            iter6=iter, q6=count/iter
          endif
        if (r2zc>b7)
          if (iter7==0)
            iter7=iter, q7=count/iter
          endif
        if (r2zc>b8)
          if (iter8==0)
            iter8=iter, q8=count/iter
          endif

        iter=-1
        q=(q1+q2+q3+q4+q5+q6+q7+q8)*0.125
        angle=q*outspeed
        z=cos(angle)+flip(sin(angle))

        endif
        endif
        endif
        endif
        endif
        endif
        endif
        endif

        if (iter==maxit)
          q=count/iter
          angle=q*inspeed
          z=cos(angle)+flip(sin(angle))
          iter=-1
          end if

        iter>0
        }

frm:ave8rootcount_j { ; Kerry Mitchell 12feb98
        ; p1 = Julia parameter
        ; real(p2) = bailout (try 1e10)
        ; imag(p2) = unused
        ; real(p3) = inner coloring speed (0 for outer only)
        ; imag(p3) = outer coloring speed (0 for inner only)
        zc=pixel, c=p1, iter=1, maxr=real(p2), count=0
        b1=maxr, fac=b1^0.125, b2=b1*fac, b3=b2*fac
        b4=b3*fac, b5=b4*fac, b6=b5*fac, b7=b6*fac, b8=b7*fac
        iter1=iter2=iter3=iter4=iter5=iter6=iter7=iter8=0
        inspeed=real(p3)*pi*255/128
        outspeed=imag(p3)*pi*255/128:
        iter=iter+1, z2=sqr(zc), w=sqrt(z2),
        r1=|zc-w|, r2=|zc+w|, count=count+(r1<r2),
        zc=z2+c, r2zc=|zc|
        if (r2zc>b1)
          if (iter1==0)
            iter1=iter, q1=count/iter
          endif
        if (r2zc>b2)
          if (iter2==0)
            iter2=iter, q2=count/iter
          endif
        if (r2zc>b3)
          if (iter3==0)
            iter3=iter, q3=count/iter
          endif
        if (r2zc>b4)
          if (iter4==0)
            iter4=iter, q4=count/iter
          endif
        if (r2zc>b5)
          if (iter5==0)
            iter5=iter, q5=count/iter
          endif
        if (r2zc>b6)
          if (iter6==0)
            iter6=iter, q6=count/iter
          endif
        if (r2zc>b7)
          if (iter7==0)
            iter7=iter, q7=count/iter
          endif
        if (r2zc>b8)
          if (iter8==0)
            iter8=iter, q8=count/iter
          endif

        iter=-1
        q=(q1+q2+q3+q4+q5+q6+q7+q8)*0.125
        angle=q*outspeed
        z=cos(angle)+flip(sin(angle))

        endif
        endif
        endif
        endif
        endif
        endif
        endif
        endif

        if (iter==maxit)
          q=count/iter
          angle=q*inspeed
          z=cos(angle)+flip(sin(angle))
          iter=-1
          end if

        iter>0
        }

frm:ave8triangcount_j {
        ; p1 = Julia parameter
        ; real(p2) = bailout (try 1e6)
        ; imag(p2) = unused
        ; real(p3) = inner coloring speed (0 for outer only)
        ; imag(p3) = outer coloring speed (0 for inner only)
        zc=pixel, c=p1, rc=cabs(c), r2zc=|zc|
        iter=1, maxr=real(p2), count=0
        b1=maxr, fac=b1^0.125, b2=b1*fac, b3=b2*fac
        b4=b3*fac, b5=b4*fac, b6=b5*fac, b7=b6*fac, b8=b7*fac
        iter1=iter2=iter3=iter4=iter5=iter6=iter7=iter8=0
        inspeed=real(p3)*pi*255/128
        outspeed=imag(p3)*pi*255/128:
        iter=iter+1, z2=sqr(zc)+c, rz2=cabs(z2),
        fac=abs(r2zc-rc), q=(rz2-fac)/(r2zc+rc-fac)
        zc=z2, r2zc=|zc|, count=count+q
        if (r2zc>b1)
          if (iter1==0)
            iter1=iter, q1=count/iter
          endif
        if (r2zc>b2)
          if (iter2==0)
            iter2=iter, q2=count/iter
          endif
        if (r2zc>b3)
          if (iter3==0)
            iter3=iter, q3=count/iter
          endif
        if (r2zc>b4)
          if (iter4==0)
            iter4=iter, q4=count/iter
          endif
        if (r2zc>b5)
          if (iter5==0)
            iter5=iter, q5=count/iter
          endif
        if (r2zc>b6)
          if (iter6==0)
            iter6=iter, q6=count/iter
          endif
        if (r2zc>b7)
          if (iter7==0)
            iter7=iter, q7=count/iter
          endif
        if (r2zc>b8)
          if (iter8==0)
            iter8=iter, q8=count/iter
          endif

        iter=-1
        q=(q1+q2+q3+q4+q5+q6+q7+q8)*0.125
        angle=q*outspeed
        z=cos(angle)+flip(sin(angle))

        endif
        endif
        endif
        endif
        endif
        endif
        endif
        endif

        if (iter==maxit)
          q=count/iter
          angle=q*inspeed
          z=cos(angle)+flip(sin(angle))
          iter=-1
          end if

        iter>0
        }

frm:ave8triangcount_m {
        ; real(p1) = bailout (try 1e6)
        ; imag(p1) = unused
        ; real(p2) = inner coloring speed (0 for outer only)
        ; imag(p2) = outer coloring speed (0 for inner only)
        zc=pixel, c=pixel, rc=cabs(c), r2zc=|zc|
        iter=1, maxr=real(p1), count=0
        b1=maxr, fac=b1^0.125, b2=b1*fac, b3=b2*fac
        b4=b3*fac, b5=b4*fac, b6=b5*fac, b7=b6*fac, b8=b7*fac
        iter1=iter2=iter3=iter4=iter5=iter6=iter7=iter8=0
        inspeed=real(p2)*pi*255/128
        outspeed=imag(p2)*pi*255/128:
        iter=iter+1, z2=sqr(zc)+c, rz2=cabs(z2),
        fac=abs(r2zc-rc), q=(rz2-fac)/(r2zc+rc-fac)
        zc=z2, r2zc=|zc|, count=count+q
        if (r2zc>b1)
          if (iter1==0)
            iter1=iter, q1=count/iter
          endif
        if (r2zc>b2)
          if (iter2==0)
            iter2=iter, q2=count/iter
          endif
        if (r2zc>b3)
          if (iter3==0)
            iter3=iter, q3=count/iter
          endif
        if (r2zc>b4)
          if (iter4==0)
            iter4=iter, q4=count/iter
          endif
        if (r2zc>b5)
          if (iter5==0)
            iter5=iter, q5=count/iter
          endif
        if (r2zc>b6)
          if (iter6==0)
            iter6=iter, q6=count/iter
          endif
        if (r2zc>b7)
          if (iter7==0)
            iter7=iter, q7=count/iter
          endif
        if (r2zc>b8)
          if (iter8==0)
            iter8=iter, q8=count/iter
          endif

        iter=-1
        q=(q1+q2+q3+q4+q5+q6+q7+q8)*0.125
        angle=q*outspeed
        z=cos(angle)+flip(sin(angle))

        endif
        endif
        endif
        endif
        endif
        endif
        endif
        endif

        if (iter==maxit)
          q=count/iter
          angle=q*inspeed
          z=cos(angle)+flip(sin(angle))
          iter=-1
          end if

        iter>0
        }

- -------------------------------------------------------------------------------
Kerry Mitchell
[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: Fri, 13 Feb 1998 23:48:27 -0500 (EST)
From: [e-mail] (Paul Derbyshire)
Subject: Re: (fractint) orgform

Do you realize what you've just done? You just spammed a 500K binary on the
Fractint list. I got a warning notice and hassles from my e-mail provider.
Don't post binaries on the Fractint list!

BTW, I don't care if that formula file has the world's best formulas, even
a *second formula with Herman rings*, I'm deleting it unread... too much of
a bother to download the freaking thing and unpack it and everything.


500K!

Sheesh.

ObFractint: I have tried and tried but have not figured out how to
generalize the hring formula to, say, cubic structure, or to add more
critical points. Damn damn damn... Anyone else got any ideas? Jay, Paul C?
Kerry? You math whizzes? :-)


- --
    .*.  Friendship, companionship, love, and having fun are the reasons for
 -()  <  life. All else; sex, money, fame, etc.; are just to get/express these.
    `*'  Send any and all mail with attachments to the hotmail address please.
Paul Derbyshire [e-mail] [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: Sat, 14 Feb 1998 00:59:29 -0500 (EST)
From: [e-mail] (Paul Derbyshire)
Subject: Re: (fractint) mailer issues

>I have a question regarding the mail problems I had last week.
>Today I sent myself a couple of test messages, with some
>interesting results.  When I sent it with Eudora's "insert text
>in document" option set, it came back exactly as I expected,
>as opposed to the way it came back from xmission.com (with
>the text as an attachment).  Since I assumed that insertion
>would have been done at my end, I am at a loss to explain the
>difference.
>
>Any ideas?

Your reader might be extracting text attachments (content-type: text)
inline, so that you can't "see" that it's an attachment, but it acts as an
attachment, and shows up as one at the mailing list majordomo.


- --
    .*.  Friendship, companionship, love, and having fun are the reasons for
 -()  <  life. All else; sex, money, fame, etc.; are just to get/express these.
    `*'  Send any and all mail with attachments to the hotmail address please.
Paul Derbyshire [e-mail] [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: Sat, 14 Feb 1998 01:12:52 -0500 (EST)
From: [e-mail] (Paul Derbyshire)
Subject: Re: (fractint) spanky fractal database ups and downs

>    Hoping to continue this reliable service.

It's been pretty good in my estimation. Every problem I've heard of has
been aging/bad hardware. What software do you use for:

* O/S
* Web server
* Mail
* TCP/IP low level networking for the web/mail server
* FTP service?

Cause a lot of what's out there is really unstable! You seem to have homed
in on the Right Stuff.

ObFractint: I still can't come up with more Herman ring formulas. But the
existing one is a rich territory. I found a seahorse with ahole punched in
it. The hole is where the eye would normally be, and the details at its
boundary are weeeeeeird. PAR coming soon...

- --
    .*.  Friendship, companionship, love, and having fun are the reasons for
 -()  <  life. All else; sex, money, fame, etc.; are just to get/express these.
    `*'  Send any and all mail with attachments to the hotmail address please.
Paul Derbyshire [e-mail] [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"

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

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