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

Internet Message Format | 1998-05-29 | 41KB

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


fractint-digest          Friday, May 29 1998          Volume 01 : Number 226




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

Date: Fri, 29 May 1998 08:29:20 -0700
From: Mark Christenson <[e-mail]>
Subject: Re: (fractint) FRM: gravipop

I think it's because you're not using w & v.  Try this:

gravipop {;might work?
        ;5-28-98 kathy roth
    x=xpixel, y=ypixel:
    h=imag(p3)
    w=fn1(x)
  ;  x=fn3(p1/fn2(x*x)) + p2
    x=fn3(p1/fn2(w*w)) + p2
    v=fn1(y)
  ;  y=fn3(p1/fn2(y*y)) +p2
    y=fn3(p1/fn2(v*v)) +p2
    x=x-h*sin(y+tan(3*y))
    y=y-h*sin(x+tan(3*x))
    |x+y|<real(p3)
     }

One of these days I hope to have time to frac again.  I've been
really frustrated not having time to check out all of these
new formulae and pars, and I get cranky without a creative
outlet.


Later, Bud


- --------------------------------------------------------------
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 May 1998 11:54:30 -0400
From: Sylvie Gallet <[e-mail]>
Subject: (fractint) gravipop

Hi Kathy,

>> Can anyone just send me a workable version of Popcorn Jul?

PopcornJul (origin) {; adaptation by Bradley Beacham  [74223,2745]
       ; The next line sets h=3D0.05 if real(p1)<=3D0, else h=3Dreal(p1)
  h =3D (0.05 * (real(p1)<=3D0) + real(p1) * (0<p1))
  x =3D real(pixel), y =3D imag(pixel):
    newx =3D x - h*sin((y) + tan(3*y))
    newy =3D y - h*sin((x) + tan(3*x))
    x =3D newx, y =3D newy
    z =3D x + flip(y)
      |z| < 4
  ;SOURCE: pj.frm
}

>> Here's a par from popcornjul:
>>
>> beach_at_kehena    { ; 5-28-98 kathy roth

  Very nice image!

  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 May 1998 13:24:21 EDT
From: <[e-mail]>
Subject: Re: (fractint) Partobat - problem solved!?

Hi Peter, hi Les,

thanks for your response about partobat 3.5. I will send your messages to
Michael Peters.

Cheers --Jo--

- --------------------------------------------------------------
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 May 1998 13:24:20 EDT
From: <[e-mail]>
Subject: (fractint) missing "O" on my site

Hi,

'scuse me. I added the missing "o" and maps3 is downloadable from my site.
Cheers --Jo--

- --------------------------------------------------------------
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 May 1998 10:37:13 -0700
From: "Mike and Linda Allison" <[e-mail]>
Subject: (fractint) Paul's frm; my par and colormap

This one is a little off balance but I like it anyway.  Do what you can
with the colormap.

Great formula, Paul!  Thanks!

Linda
http://www.fractalus.com/gumbycat/ (last update 5/29/98)
http://www.geocities.com/Paris/5519 (last update 5/29/98)
http://www.toptown.com/innercircle/gumbycat/index.html (last update
3/20/98)

- ------------------begin---------------

0528pc01           { ; copyright Linda Allison created May 29, 1998
                     ; [e-mail]
                     ; calc time   0:01:28.59
                     ; formula by Paul Carlson; colormap by Linda
Allison
  reset=1960 type=formula formulafile=0528pc01.par
  formulaname=fb_halley_m4 passes=t

center-mag=+1.01281940334334200/+1.75425472636706300/290410.5/0.9719/29.
\
  999 params=1/0/0.9350000000000001/0/0.17/0 float=y maxiter=25000
  inside=253 outside=summ

colors=A04onl<13>WQGUODSNC<11>000qqq<27>000wRF<6>mG8kE6jD6<2>fA5d94c83a7
\

2_61<6>J31H31E21B20<3>000g28<28>211pon<14>WQGUODSNC<11>000qqq<28>000wRF<
\
  8>lG8jF8iE7gD7fC6dA5<13>000g28<28>000e6Ed4Eb2E`0D<11>A04pon
  }

frm:fb_halley_m4 {; Copyright (c) Paul W. Carlson, 1998
    ; Halley solution of w^4 - w - c = 0
    ; Always use float=y, outside=summ
    ; p1 = relaxation factor
    ; p2 = radius of center of ring (0.01 to 10)
    ; p3 = one half thickness of ring (0.01 to p2)

    c = pixel
    w = z = iter = bailout = 0
    d0 = p2 + p3
    d1 = 0.382683432365 * p2
    d2 = 0.923879532511 * p2
    dsqd = d0 * d0 + p2 * p2 - (d0 + d0) * d2
    :
    w2 = w * w, fnc = w2 * w2 - w - c, der = 4 * w * w2 - 1
    k = p1 * fnc / (der - 12 * w2 * fnc / (der + der))
    w = w - k
    ;
    IF ((abs(cabs(w) - p2) < p3) && iter > 0)
     bailout = 1
     wr = real(w), wi = imag(w)
     awr = abs(wr), awi = abs(wi)
     IF (awr >= awi)
         dist = (awr - d2) * (awr - d2) + (awi - d1) * (awi - d1)
         adjust = 1
     ELSE
         dist = (awr - d1) * (awr - d1) + (awi - d2) * (awi - d2)
         adjust = 0
     ENDIF
     IF     (wr >= 0 && wi >= 0)
         range_num = 1 - adjust
     ELSEIF (wr < 0 && wi >= 0)
         range_num = 2 + adjust
     ELSEIF (wr < 0 && wi < 0)
         range_num = 5 - adjust
     ELSE
         range_num = 6 + adjust
     ENDIF
     ratio = sqrt(dist / dsqd)
     z = 29 * ratio + range_num * 30 + 1
    ELSEIF (|k| < 0.000001)
     bailout = 1
     z = 252
    ENDIF
    iter = iter + 1
    z = z - iter
    bailout == 0
}

- -----------------end-----------------------





- --------------------------------------------------------------
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 May 1998 11:03:31 -0700 (PDT)
From: noel giffin <[e-mail]>
Subject: Re: (fractint) Permission denied to download Fractint from Spanky??!??

    Paul wrote:

> Going through other Spanky pages I find the Fractint page has been moved to
> /www/fractint/fractint.html, but that still doesn't explain my getting a 403,
> as a 404 is what should have occurred!


    The fractint pages have not moved! They have been at:

    http://spanky.triumf.ca/www/fractint/fractint.html

    for a few years now!

    As for the return code, here are the definitions.


=====================================================================
Forbidden 403

The request is for something forbidden. Authorization will not help.

Not found 404

The server has not found anything matching the URI given
=====================================================================

By trying to access

    /fractint/fractint.html

rather than

    /www/fractint/fractint.html

It looks,to the http server,that you are trying to access a directory
tree that it is not permitted to serve, hence the 403 return code.

    Regards,
    Noel


- --------------------------------------------------------------
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 May 1998 11:29:33 -0700
From: Mark Christenson <[e-mail]>
Subject: Re: (fractint) FRM: gravipop

At 08:29 AM 5/29/98 -0700, you wrote:
>I think it's because you're not using w & v.  Try this:
>...

You may also have a problem with overwriting variables.
Set up a dummy "x"...

gravipop {;might work?
        ;5-28-98 kathy roth
    x=xpixel, y=ypixel:
    h=imag(p3)
    w=fn1(x)
  ;  x=fn3(p1/fn2(x*x)) + p2
    x=fn3(p1/fn2(w*w)) + p2
    v=fn1(y)
  ;  y=fn3(p1/fn2(y*y)) +p2
    y=fn3(p1/fn2(v*v)) +p2
  ;  x=x-h*sin(y+tan(3*y))
    x1=x-h*sin(y+tan(3*y)) ; dummy x
    y=y-h*sin(x+tan(3*x))
    x = x1 ; update x
    |x+y|<real(p3)
     }

Also, is your bailout test correct?


Bud


- --------------------------------------------------------------
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 May 1998 15:59:37 -0400
From: [e-mail] (Robert Hailman)
Subject: RE Re: (fractint) In Memoriam 486

NERDS! NERDS! YOU ARE ALL NERDS! STOP THE NERDINESS! KILL THE NERDS! DIE NERDS!
GO TO HELL!
Send flames to me ASAP.

Another expression of my political unique political views,
   Robert Hailman

[e-mail] wrote:
> I'm quite sure they were made of magnetic monopoles. Well, the cheap ones of
> course. The 'elite' editions were often magnetic hexapoles.
>
> Christian
>

- --------------------------------------------------------------
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 May 1998 16:50:34 EDT
From: <[e-mail]>
Subject: (fractint) 3 little pars

Here's 3 more parmfiles for anyone who just wants to view fractals as *art* :)
Enjoy~

Jim

******************************************************************************
******************

Apache             { ; 2min 75mhz 800x600
                     ; 5/29/98 image(c)JamesWeaver
  reset=1920 type=formula formulafile=jack5.frm formulaname=ormandel15
  function=conj passes=t
  center-mag=-0.0420168/1.33227e-015/0.625/1/-90 params=-3/0
  maxiter=125 outside=real potential=255/255/0 invert=1/0/0
  colors=000404000<15>0f0<15>zz0<15>zzz<15>000<12>TN0WO0YQ0`S0aU0<14>zz0<1\
  4>jB0i70f70<14>000<15>S5N<15>zz0<14>ZZ8XX8VW8TU8RS8<2>LM6JK6HI6FG6DF5<2>\
  795574354033077<13>4zz<15>zz0<15>z1z<13>808
  }

Rose               { ; 1.5min 75mhz 800x600
                     ; 5/29/98 image(c) JamesWeaver
  reset=1960 type=halley passes=t
  center-mag=-4.88498e-015/0.11099/0.622417 params=5/0.2/0.025/-0.24
  float=y maxiter=1000 inside=epsiloncross outside=real invert=1/0/0
  periodicity=0
  colors=0002I2<7>171151020000313717A20<12>cAP<10>H43E30A2A<2>000<15>hh0<1\
  5>000<3>00D00H22I<10>PP`<7>77L55J33H00E00A007003000<2>A00<2>L80OA0RD0UG0\
  YJ0<5>rZ0<11>400A00<2>000<15>0pp<12>0BB077044000222<14>hhh<15>000<27>007\
  017037<13>4S4<6>2J2
  }

A_Dance_with_Julia { ; 2.5min 75mhz 800x600
                     ; 5/29/98 image(c) JamesWeaver
  reset=1960 type=julia(fn||fn) function=cotanh/flip passes=t
  center-mag=+0.61309814450000000/-0.35420227000000000/0.6420237/1/45
  params=0.8/-1.1/1 bailoutest=manh outside=atan
  colors=000OOO<5>000<12>TN0WO0YQ0`S0aU0<14>zz0<14>jB0i70f70<14>000<15>S5N\
  <15>zz0<14>ZZ8XX8VW8TU8RS8<2>LM6JK6HI6FG6DF5<2>795574354033077<13>4zz<15\
  >zz0<15>z1z<15>000<15>0f0<15>zz0<15>zzz<8>SSS
  }


- --------------------------------------------------------------
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 May 1998 17:00:28 EDT
From: <[e-mail]>
Subject: (fractint) Graphics Developers

Hi,

well, I hope that there is no rule which said that it is forbidden what I have
done.
For all of you, who haven't access to Compuserve's
Graphics Developers Forum - but would like to see the work that there was
:-((
done - I added all the pars to my download page, sorted by years.
Because of my limited webspace I had to delete all frm's (use George Martin's
Orgform), doc's, Txt's and so on....
I hope you enjoy the magnificent stuff, it gives you and your machine years of
pleasure.
Cheers --Jo--

http://ourworld.compuserve.com/homepages/JoWeber
member of the Infinite Fractal Loop


- --------------------------------------------------------------
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 May 1998 18:26:42 -0400
From: davides <[e-mail]>
Subject: (fractint) For_Steve_Karl  (Par)

Having a few minutes this evening, I anticipated looking at a few pars
since there must be 17^36 pars scattered around inside this machine. After
looking at some, I would either tinker a bit, discard, keep - whatever.
First up: 001-Jester by Steve Karl. In which I tinkered a bit and came up
with this (Send flames to your local tax collection agency):

==========================================================================>

For_Steve_Karl     { ;  (c) David Shanholtzer May 29, 1998 t=0:00:46.58
                     ;  P200 MMX 1024x768
                     ; color map: by "O"
  reset=1960 type=formula formulafile=fractint.frm
  formulaname=gallet-6-08 function=cosxx/sin/zero passes=t
  center-mag=1.77636e-015/-1.77636e-015/0.1626667 params=1/0/2/0/99/0
  maxiter=1410065407 inside=99 potential=256/200/33
  invert=2.61459764833333/0/0
  colors=000<7>0000ZT<13>074<3>0A60B70B80B8<52>0mi0nj0mi<30>096FCC<18>wp`<\
  26>FCCD00G00<24>`F0000bG0cH0dI0<41>G0008D<6>0KL000<9>000
  }


[e-mail]
[e-mail]
Back up my hard drive?
How do I put it in reverse?

- --------------------------------------------------------------
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 May 1998 18:25:09 -0500
From: "William J. Hawley" <[e-mail]>
Subject: (fractint) Orgform.exe

This may already be fix in new version  but I found Orgform gave an
"unspecified exception" running in DOS under Win95 and just hangs in pure DOS
on a P-II 350.
Worked fine before the upgrade.

- --

                              William J. Hawley
                  [e-mail] at work
                     [e-mail] at play

- --

When companies ship Styrofoam, what do they pack it in?



- --------------------------------------------------------------
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 May 1998 18:25:11 -0500 (CDT)
From: [e-mail] (Paul and/or Joyce Carlson)
Subject: (fractint) Popcorn Formula

comment {
The formula popcorn_jul below produces the same images as
the builtin type, provided that float=yes.  The builtin
type can use integer math, but if it is used in the formula,
the tan() function fails when 3*y or 3*x is close to a
multiple of pi/2.  The popcorn1 par produces the same
image as does the builtin type with the defaults.

Just to see what would happen, I applied one of my rendering
methods to the formula to produce the formula pc_popcorn_jul.
Pars popcorn2, 3 and 4 use this formula.  The images are,
well, differnt, but they do look sort of artistic.

I'll probably try some other rendering method on the popcorn
when I get a chance.

Paul Carlson
}

frm:popcorn_jul { ; Paul Carlson, 1998
    ; Always use float=yes
    ;
    ; real(p1) = h in popcorn formula
    ; imag(p1) = bailout value
    ;
    x = real(pixel)
    y = imag(pixel)
    h = real(p1)
    :
    prev_x = x
    x = x - h * sin(y + tan(3 * y))
    y = y - h * sin(prev_x + tan(3 * prev_x))
    z = x + flip(y)
    |z| <= imag(p1)
}

popcorn1           { ; Paul Carlson, 1998
  reset=1960 type=formula formulafile=popform.frm
  formulaname=popcorn_jul
  corners=-3/3/-2.25/2.25 params=0.05/4 float=y
  colors=00000e0e00eee00e0eeL0eeeLLLLLzLzLLzzzLLzLzzzLzzz000555\
  <3>HHHKKKOOOSSSWWW___ccchhhmmmssszzz00z<3>z0z<3>z00<3>zz0<3>0\
  z0<3>0zz<2>0GzVVz<3>zVz<3>zVV<3>zzV<3>VzV<3>Vzz<2>Vbzhhz<3>zh\
  z<3>zhh<3>zzh<3>hzh<3>hzz<2>hlz00S<3>S0S<3>S00<3>SS0<3>0S0<3>\
  0SS<2>07SEES<3>SES<3>SEE<3>SSE<3>ESE<3>ESS<2>EHSKKS<2>QKSSKSS\
  KQSKOSKMSKK<2>SQKSSKQSKOSKMSKKSK<2>KSQKSSKQSKOSKMS00G<3>G0G<3\
  >G00<3>GG0<3>0G0<3>0GG<2>04G88G<2>E8GG8GG8EG8CG8AG88<2>GE8GG8\
  EG8CG8AG88G8<2>8GE8GG8EG8CG8AGBBG<2>FBGGBGGBFGBDGBCGBB<2>GFBG\
  GBFGBDGBCGBBGB<2>BGFBGGBFGBDGBCG000<6>000
  }

frm:pc_popcorn_jul { ; Copyright (c) Paul W. Carlson, 1998
    ; Always use float=yes
    ;
    ; real(p1) = h in popcorn formula
    ; imag(p1) = bailout value
    ; real(p2) = controls width of elements
    ; imag(p2)   not used
    ; real(p3) = number of color ranges
    ; imag(p3) = number of colors in a range
    ;
    z = iter = bailout = range_num = 0
    x = real(pixel)
    y = imag(pixel)
    h = real(p1)
    width = real(p2)
    num_ranges = real(p3)
    colors_in_range = imag(p3)
    index_factor = (colors_in_range - 1) / width
    :
    prev_x = x
    x = x - h * sin(y + tan(3 * y))
    y = y - h * sin(prev_x + tan(3 * prev_x))
    w = x + flip(y)
    dist = abs(|w|-.25)
    IF (dist < width && iter > 0)
    bailout = 1
    z = index_factor * dist + range_num * colors_in_range + 1
    ENDIF
    range_num = range_num + 1
    IF (range_num == num_ranges)
    range_num = 0
    ENDIF
    iter = iter + 1
    z = z - iter
    bailout == 0 && |w| < imag(p1)
}

popcorn2           { ; Copyright (c) Paul W. Carlson, 1998
  reset=1960 type=formula formulafile=pc_pop.frm
  formulaname=pc_popcorn_jul
  center-mag=0.0167448/0.620048/14.42221
  params=0.05/16/0.05/0/8/30
  float=y maxiter=252 inside=253 outside=summ
  colors=000fOz<28>I0Kz0f<28>O08z88<28>O00zW0<28>c40zz0<28>aG00\
  zR<28>0C40zz<28>0CCGGz<28>00O000<13>000
  }

popcorn3           { ; Copyright (c) Paul W. Carlson, 1998
  reset=1960 type=formula formulafile=pc_pop.frm
  formulaname=pc_popcorn_jul
  center-mag=0.0102518/0.407039/24.84469
  params=0.05/16/0.04/0/8/30
  float=y maxiter=252 inside=253 outside=summ
  colors=000fOz<28>I0Kz0f<28>O08z88<28>O00zW0<28>c40zz0<28>aG00\
  zR<28>0C40zz<28>0CCGGz<28>00O000<13>000
  }

popcorn4           { ; Copyright (c) Paul W. Carlson, 1998
  reset=1960 type=formula formulafile=pc_pop.frm
  formulaname=pc_popcorn_jul
  center-mag=0.00820949/0.605735/43.74066
  params=0.05/16/0.04/0/8/30
  float=y maxiter=252 inside=253 outside=summ
  colors=000fOz<28>I0Kz0f<28>O08z88<28>O00zW0<28>c40zz0<28>aG00\
  zR<28>0C40zz<28>0CCGGz<28>00O000<13>000
  }


- --------------------------------------------------------------
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 May 1998 18:34:37 -0500 (CDT)
From: [e-mail] (Paul and/or Joyce Carlson)
Subject: Re: (fractint) Paul's frm; my par and colormap

Beautiful image, Linda!  And thanks for the great colormap.

Paul Carlson


- --------------------------------------------------------------
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 May 1998 21:32:34 EDT
From: <[e-mail]>
Subject: (fractint) Quickie4 par/frm

I think i've become addicted to fractalizing!  I find my self just wanting to
do it.

One day a week I like to spend exploring par,map, or frm files of someone
elses work exclusively.
(Not regularly but chaotically).  Paul Carlson came back to me with images
that are great together
with mine in one file.  The differing points of view on an image, map, par are
refreshing and educational.
This posting includes three pars evolved from Paul Carlsons 'butterfIly' using
Newt_Fangs_Mset.
I am posting three of the strange places I visited.

Celtic_Braid       { ; RSP 29MAY98
  reset=1960 type=formula formulafile=rspf003.frm formulaname=rsp_3080
  passes=t center-mag=-6.66134e-016/4.44089e-016/0.9861933 params=3/0
  float=y maxiter=256 inside=0 periodicity=0
  colors=000000zb0<12>740310000`QV<12>423111000S8`<12>304101000OUY<10>5794\
  56234111000zVW<12>733311000e3L<11>703502201000kmx<12>567223000_mj<12>465\
  1220000OJ<11>043021011000ohh<12>655222000www<12>777333000jQU<12>52321100\
  0i0w<12>507203000CWn<5>6HS5FP4DL3BH28E16A146013000iXc<14>000_mj<13>122
  }

Green_Purple       { ; RSP 29MAY98
  reset=1960 type=formula formulafile=rspf003.frm formulaname=rsp_3080
  passes=t center-mag=-0.109036/0.176311/0.9114 params=3/0.1 float=y
  maxiter=512 inside=0 outside=real periodicity=0
  colors=0004ly<9>VtCYu6Ys7<12>iIQ<18>w73x61w61<31>RUHPVIPVI<12>_VPPNG<3>_\
  C6b93cA3<20>xjM<22>gI6fG5fG5<18>mPMnQNnROnSPnTQ<23>mxolzqlzo<18>Vy1<32>P\
  T4OS5MVD<4>7ip
  }

Filigre            { ; RSP 28MAY98
  reset=1960 type=formula formulafile=rspf003.frm formulaname=rsp_3090
  passes=t center-mag=0/0/0.6666667 params=-1/0 float=y maxiter=512
  inside=0 outside=real logmap=yes periodicity=0
  colors=000cdW<9>kxN<12>D8Q<9>bf9d_PfTeiLv<9>xic<3>GcnFjfDrY<2>CugCvkCuj<\
  15>G`NH_LJYN<8>`Bjb8mb8m<38>OAjNBiPEk<4>ZWv<6>p8As42s42<61>spyspyspx<48>\
  rf_
  }

Abstract           { ; RSP 28MAY98
  reset=1960 type=formula formulafile=rspf003.frm formulaname=rsp_3091
  center-mag=0.724525/-0.0076309/18.05907 params=3/0.35/0/0 float=y
  maxiter=512 inside=0 outside=real periodicity=0
  colors=000KIF<84>y_PCFE<47>NceCFENde<17>RmpSnqSmq<25>LNwKLxKLx<3>LMuLYU<\
  47>UngCFE<15>KIF
  }

Super_Slinkie      { ; *RSP 29MAY98
                     ; Mutant of "butterfly" by Paul W. Carlson
  reset=1960 type=formula formulafile=list.par
  formulaname=newt_fang_mset function=sin/sqr passes=t
  center-mag=1.5708/8.88178e-016/0.3529607/1.1481/-90
  params=0.65/0/12/12/8/30 float=y maxiter=253 inside=253 outside=summ
  colors=000z0f<28>O08z88<28>O00zW0<28>c40zz0<28>aG00zR<28>0C40zz<28>0CCGG\
  z<28>00OfOz<28>I0K000<13>000 orbitdelay=25
  }

Fractal_Spanner    { ; *RSP 29MAY98
                     ; Mutant of "butterfly" by Paul W. Carlson
                     ; Using Newt_Fang_Mset
  reset=1960 type=formula formulafile=_n.frm
  formulaname=newt_fang_mset function=sin/sqr passes=t
  center-mag=-0.467691/-0.895814/7.225695/1.1481/-90
  params=0.65/0/12/12/8/30 float=y maxiter=253 inside=253 outside=summ
  colors=000z0f<28>O08z88<28>O00zW0<28>c40zz0<28>aG00zR<28>0C40zz<28>0CCGG\
  z<28>00OfOz<28>I0K000<13>000 orbitdelay=25
  }

Old_Friend         { ; *RSP 29MAY98
                     ; Mutant of "butterfly" by Paul W. Carlson
                     ; Using Newt_Fang_Mset
  reset=1960 type=formula formulafile=_n.frm
  formulaname=newt_fang_mset function=sinh/tan passes=t
  center-mag=-0.659698/-0.77642/26.55023/1.1481/-90
  params=0.55/0/12/2/2/30 float=y maxiter=252 inside=253 outside=summ
  colors=000z0f<28>O08z88<28>O00zW0<28>c40zz0<28>aG00zR<28>0C40zz<28>0CCGG\
  z<28>00OfOz<28>I0K000<13>000 orbitdelay=25
  }

frm:rsp_3080    {    ;*RSP 29MAY98
  z=pixel,
  n=p1:
  z=z^n*sin(1/z)}

frm:rsp_3090    {    ;*RSP 29MAY98
  z=pixel,
  n=p1:
  z=z^n*sin(n/z)}

frm:rsp_3091    {    ;*RSP 29MAY98
  z=pixel,
  bail=(64*(|p2|<=0)+p2),
  n=(1*(|p1|<=0)+p1):
  z=z^n*sin(n/z)
  |z|<=bail}

- --------------------------------------------------------------
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 May 1998 19:49:35 -0700
From: kathy roth <[e-mail]>
Subject: (fractint) gravipop  (par and frm)

Thank you, Sylvie.  I have gotten it to work, and
it does have the watercolor-like effect that I was hoping
to get, although I inelegantly just put the gravijul
formula in after the popcornjul, so I guess it iterates
pocornjul and then feeds the new x and y into z and
then iterates gravijul.
         (Oh, also, I made a copy-and-paste error and repeated part
of it in the first few pars I made, and oddly enough the images
are nearly identical but ever so slightly different, so Agravipop
lives!)

frm:gravipop { ;5-29-98 kathy roth
            ;imag p3 must be positive
            x=real(pixel), y=imag(pixel), h=imag(p3):
            newx = x-h*sin((y) + tan(3*y))
            newy = y-h*sin((x) + tan(3*x))
            x=newx, y=newy
            z=x + flip(y)
            w = fn1(z)
            z = fn3(p1/fn2(w*w)) + p2
            |z| < real(p3)
    }

frm:agravipop { ;5-29-98 kathy roth
            ;my mistake!
            ;imag p3 must be positive
            x=real(pixel), y=imag(pixel), h=imag(p3):
            newx = x-h*sin((y) + tan(3*y))
            newy = y-h*sin((x) + tan(3*x))
            x=newx, y=newy
            z=x + flip(y)
            newx = x-h*sin((y) + tan(3*y))
            newy = y-h*sin((x) + tan(3*x))
            x=newx, y=newy
            z=x + flip(y)
            w = fn1(z)
            z = fn3(p1/fn2(w*w)) + p2
            |z| < real(p3)
    }

agrav1             { ; 5-29-98 kathy roth
                     ; palette by Linda Allison
  reset=1960 type=formula formulafile=1popco~1.frm
  formulaname=agravipop function=cotanh/atanh/atan passes=t
  center-mag=-0.252347/-0.701005/0.2051282/1/90 params=1/1/1/1/1/0.05
  float=y inside=111 outside=atan decomp=256
  colors=I8F<6>unr<7>8F8<7>ly\
l<7>05A<7>cru<7>444<7>mmz<7>I8F<7>zmm<7>A00<7\
  >zzg<7>N13<7>z_K<7>g50<7>zvn<7>I8\
F<7>ghl<7>08C<7>ata<7>A0A<7>Zrk<7>C40<7\
  >zii<7>F00<7>zrc<7>N57<7>yZJ<7>c\
20<7>zaV<7>F00<7>sog<7>I8F
  }

agrav2             { ; 5-29-98 kathy roth
                     ; palette by Linda Allison
  reset=1960 type=formula formulafile=1popco~1.frm
  formulaname=agravipop function=cotanh/atanh/atan passes=t
  center-mag=-0.0233255/0.0236748/1.888146/1/90 params=1/1/1/1/1/0.05
  float=y inside=111 outside=atan invert=1/0/0 decomp=256
  colors=I8F<6>unr<7>8F8<7>lyl<7>05\
A<7>cru<7>444<7>mmz<7>I8F<7>zmm<7>A00<7\
  >zzg<7>N13<7>z_K<7>g50<7>zvn<7>I8F<7>g\
hl<7>08C<7>ata<7>A0A<7>Zrk<7>C40<7\
  >zii<7>F00<7>zrc<7>N57<7>yZJ<7>c20<7>z\
aV<7>F00<7>sog<7>I8F
  }

agrav3             { ; 5-29-98 kathy roth
                     ; palette by Linda Allison
  reset=1960 type=formula formulafile=1popco~1.frm
  formulaname=gravipop function=cotanh/atanh/atan passes=t
  center-mag=-0.00217967/0.156643/6.478437/1/180 params=1/1/1/1/1/0.05
  float=y inside=111 outside=atan invert=1/0/0 decomp=256
  colors=I8F<6>unr<7>8F8<7>lyl<7>0\
5A<7>cru<7>444<7>mmz<7>I8F<7>zmm<7>A00<7\
  >zzg<7>N13<7>z_K<7>g50<7>zvn<7>I\
8F<7>ghl<7>08C<7>ata<7>A0A<7>Zrk<7>C40<7\
  >zii<7>F00<7>zrc<7>N57<7>yZJ<7>c2\
0<7>zaV<7>F00<7>sog<7>I8F
  }

agrav7             { ;wave_at_kehena
                     ; 5-29-98 kathy roth
                     ; palette by Sylvie Gallet
  reset=1960 type=formula formulafile=1popco~1.frm
  formulaname=agravipop function=atanh/atanh/atan passes=t
  center-mag=0.0613823/-1.37103/3.205128 params=1/1/1/1/1/0.05 float=y
  inside=111 outside=atan decomp=256
  colors=zzz99C<7>000UeeUeeUeefss<3>H\
ii<13>6IK5GI4EG4DE3BC39A<4>000svv<6>A\
  UU<22>000zzz<6>UdW<18>69858646534322\
2000zzz<6>fbHcZAbYA<21>000zzz<7>mU5<\
  22>000zzz<5>fSTbMNaMN<22>000\
zzz<6>WQ_<18>868656545333222000zzz<7>PPZ<13>\
  AAE
  }


agrav4             { ; 5-29-98 kathy roth
                     ; palette by Linda Allison
  reset=1960 type=formula formulafile=1popco~1.frm
  formulaname=agravipop function=cotanh/atanh/atan passes=t
  center-mag=0.170858/-3.95507/2.385212/1/90 params=1/1/1/1/1/0.05
  float=y inside=111 outside=atan decomp=256
  colors=I8F<6>unr<7>8F8<7>lyl<7>05\
A<7>cru<7>444<7>mmz<7>I8F<7>zmm<7>A00<7\
  >zzg<7>N13<7>z_K<7>g50<7>zvn<7>I8F<7>g\
hl<7>08C<7>ata<7>A0A<7>Zrk<7>C40<7\
  >zii<7>F00<7>zrc<7>N57<7>yZ\
J<7>c20<7>zaV<7>F00<7>sog<7>I8F
  }

agrav5             { ; underwater scene
                     ; 5-29-98 kathy roth
    colors=0df0fh<6>0xz<15>077<30>1Te\
1Uf000<30>000000122<12>BGJFJV<13>W`uXaw\
  W_u<14>H5S<24>zo`<3>vkW0uw<33>699777\
6AA<10>0cc0_`0_c0000II0_`<21>000<15>\
  0de
  }

agrav3a            { ; blue sky
                     ; 5-29-98
                     ; palette by Sylvie Gallet
    colors=frqqqr<24>JgnHfmHfm<27>Vno\
WnoXnoYopZop<3>bqpdqqerqgsqhsq<14>xyrzz\
  syzr<17>coVbnUbnU<31>9TB<15>wlL<14>yy\
fzzhxyh<26>5Wd2Uc2Vc<16>9kc9lcAmcBm\
  c<26>rrqtrqvrqxsrzts<4>srr
  }







- --------------------------------------------------------------
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 May 1998 21:59:37 -0500
From: Bob Margolis <[e-mail]>
Subject: (fractint) PAR: Fractal Excursions--Julias

Julia_19           { ; (c) by Bob Margolis, 1998
  reset=1960 type=julia passes=1
  center-mag=-4.09273e-012/5.57066e-012/0.001533216/1.3333
  params=-1.368978552267218/-0.006854015395267692 float=y maxiter=250
  invert=0.5/0/0 symmetry=none periodicity=0 viewwindows=1/1/yes/0/0
  colors=zzz<15>E0SF0UH0X<12>407zzz<15>0QZ0S`0Uc<12>068zzz<15>Z0Z`0`c0c<12\
  >808zzz<15>Kg0Lj0Nn0<12>470zzz<15>e04h05<13>301zzz<15>90eA0h<13>206zzz<1\
  5>sW0wZ0<13>850zzz<15>0C00D0<13>020 cyclerange=1/1
  }

Julia_20           { ; (c) by Bob Margolis, 1998
  reset=1960 type=julia passes=1
  center-mag=+0.00000000000000094/-0.00000000000000070/1927.345
  params=-1.369777474770824/0.01233349857882306 float=y maxiter=1500
  inside=bof61 outside=real distest=2/2/768/768 symmetry=xyaxis
  periodicity=0 viewwindows=1/1/yes/0/0
  colors=zzzc_q<8>90eA0h<13>206zzz<15>sW0wZ0<13>850zzz<15>0C00D0<13>020wwx\
  <14>E0SF0UH0X<12>407zzz<15>0QZ0S`0Uc<12>068zzz<15>Z0Z`0`c0c<12>808zzz<15\
  >Kg0Lj0Nn0<12>470zzz<15>e04h05<13>301zzz<5>fcs cyclerange=1/1
  }

Julia_21           { ; (c) by Bob Margolis, 1998
  reset=1960 type=julzpower passes=1
  center-mag=-3.63798e-012/-7.34267/0.0001320463/1.75
  params=-0.5618229724187631/-0.3159772088666649/3/0 float=y
  maxiter=1000 invert=0.5/0/0 symmetry=xyaxis periodicity=0
  viewwindows=1/1.75/yes/0/0
  colors=zzzbWi<7>E0SF0UH0X<12>407zzz<15>0QZ0S`0Uc<12>068zzz<15>Z0Z`0`c0c<\
  12>808zzz<15>Kg0Lj0Nn0<12>470zzz<15>e04h05<13>301zzz<15>90eA0h<13>206zzz\
  <15>sW0wZ0<13>850zzz<15>0C00D0<13>020wwx<5>e_k cyclerange=1/1
  }

Julia_22           { ; (c) by Bob Margolis, 1998
  reset=1960 type=julzpower passes=b center-mag=0/0/0.6666667
  params=0.3273988610891286/1.278119418133082/3/0 float=y maxiter=400
  bailoutest=and fillcolor=105 outside=real potential=64/64/0
  invert=0.5/0/0 symmetry=xyaxis periodicity=0 viewwindows=1/1/yes/0/0
  colors=zzzzzz<15>sW0wZ0<13>850zzz<15>0C00D0<13>020wwx<14>E0SF0UH0X<12>40\
  7zzz<15>0QZ0S`0Uc<12>068zzz<15>Z0Z`0`c0c<12>808zzz<15>Kg0Lj0Nn0<12>470zz\
  z<15>e04h05<13>301zzz<15>90eA0h<13>206 cyclerange=1/1
  }

Julia_23           { ; (c) by Bob Margolis, 1998
  reset=1960 type=julzpower passes=1
  center-mag=-4.44089e-016/4.44089e-016/0.9363296
  params=0.4517283971636711/0.02396779830841721/3/0 float=y
  maxiter=400 bailoutest=or symmetry=xyaxis periodicity=0
  viewwindows=1/1/yes/0/0
  colors=zzz<20>zzzD0P<8>407zzz<15>0QZ0S`0Uc<12>068zzz<15>Z0Z`0`c0c<12>808\
  zzz<15>Kg0Lj0Nn0<12>470zzz<15>e04h05<13>301zzz<15>90eA0h<13>206zzz<15>sW\
  0wZ0<13>850zzz<15>0C00D0<13>020 cyclerange=1/1
  }

Julia_24           { ; (c) by Bob Margolis, 1998
  reset=1960 type=julzpower passes=1
  center-mag=-3.33067e-016/3.33067e-016/0.7788162
  params=0.2871576143465159/0.7348347289566918/3/0 float=y maxiter=600
  bailoutest=real symmetry=xyaxis periodicity=0
  viewwindows=1/1/yes/0/0
  colors=zzz<10>zzzzzzxocxocxochR0hR0hR0xocxocE0R<9>407zzz<15>0QZ0S`0Uc<12\
  >068zzz<15>Z0Z`0`c0c<12>808zzz<15>Kg0Lj0Nn0<12>470zzz<15>e04h05<13>301zz\
  z<15>90eA0h<13>206zzz<15>sW0wZ0<13>850zzz<15>0C00D0<13>020
  cyclerange=1/1
  }

Julia_25           { ; (c) by Bob Margolis, 1998
  reset=1960 type=julzpower passes=1
  center-mag=-1.33227e-014/2.10942e-015/0.7478269/1.75
  params=0.3181991470478923/0.6822242657333791/3/0 float=y maxiter=900
  bailoutest=manr inside=bof60 biomorph=147 symmetry=xyaxis
  periodicity=0 viewwindows=1/1.75/yes/0/0
  colors=zzz<31>zzz<15>0QZ0S`0Uc<12>068zzz<15>Z0Z`0`c0c<12>808zzz<15>Kg0Lj\
  0Nn0<12>470zzz<63>zzz<15>sW0wZ0<13>850zzz<15>0C00D0<13>020
  cyclerange=1/1
  }

Julia_26           { ; (c) by Bob Margolis, 1998
  reset=1960 type=julzpower passes=1
  center-mag=-8.32667e-017/-2.77556e-017/3.306573
  params=-0.5533187340563496/-0.132799603919759/3/0 float=y
  maxiter=900 bailoutest=manh symmetry=xyaxis periodicity=0
  viewwindows=1/1/yes/0/0
  colors=000<63>000Cnz<11>y0yz0z<2>x0xu0vs0to0rl0oh0kc0gZ0dU0_O0VI0RC0L60H\
  00CO00<3>bO0eU0iZ0lc0oh0rl0to0vs0wu0yx0<2>zz0<14>0zz<14>y0yz0z<2>x0xu0vs\
  0to0ql0n<2>Z0bU0YO0T<3>008K00<3>_O0cU0gZ0jc0nh0ql0so0us0wu0xx0zy0zz0zz0<\
  14>0zz<14>y0yz0z<2>x0xu0vs0so0pl0m<2>Z0`U0WO0Q<3>004<32>004
  cyclerange=1/1
  }

- --------------------------------------------------------------
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 May 1998 20:18:42 -0700
From: kathy roth <[e-mail]>
Subject: (fractint) gravipop

>I think it's because you're not using w & v.  Try this:
>...

Thanks, Bud.  I think my problem was with the body of
the formula and you have to look at the popcornjul formula.
I think it is iterating the x and y separately and
you need the newx and newy part, and a relationship between
newx, newy aand z.  I keep trying to make little variations
on gravijul but none of them have the versatility of  gravijul.
Hope you have more time soon.  Gotta make time for fractaling!



- --------------------------------------------------------------
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 May 1998 22:34:11 -0500
From: Bob Margolis <[e-mail]>
Subject: (fractint) Off Topic:  Byte Magazine to End Print Edition

If you want the full story that was announced Friday, I'll send it to
you following your e-mail request.

Bob

- --------------------------------------------------------------
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, 30 May 1998 01:48:28 -0400
From: "Phil DiGiorgi" <[e-mail]>
Subject: (fractint) PAR what if...

I was checking out all those terrific pars that have been posted using Paul Carlson's ZF_Ang
formula last night, really neat images from Gedeon and Sylvie.   Played around a little with the
formula myself, and that fn setting really has some interesting effects.   So the thought occurs
to me, I wonder what that would do if I stuck it into the HC_Grav formula I've been messing with.
(Note the sophisticated mathematical insight here.)   Wherupon, unencumbered by any real
understanding of what I was doing, I pasted the line from one formula into the other in what
seemed to be an appropriate place, changed the variable names to match, loaded it up, and fed it
some parameters.   Here are the first few images that came out...

Side note to Paul:   Your formulas just amaze me, they are so much fun to work with!   Please
forgive my tinkering, I just can't help myself ;-)


Phil D.
[e-mail]



hcg2-101           { ;   t=  0:09:10.12   (c) P. DiGiorgi - May 30, 1998
                     ; Using a K6-266 at 1600x1200
  reset=1960 type=formula formulafile=pctest.frm
  formulaname=pd-HC_Grav2 function=sqrt/conj/recip/trunc passes=t
  center-mag=8.88178e-016/-1.77636e-015/0.2826667
  params=0.6/-0.8/0.91/0.04/0.15/0.06 float=y maxiter=255 inside=253
  outside=summ logmode=fly
  colors=000zsX<13>mgQlfQlfQkeQkeP<43>IGAwccuZZ<3>rMMqJJpHHo\
  EE<5>l00<47>J00sss<15>ffffffeeeeeeddd<41>GGG0`z0Zt<2>0Vn0Um0\
  Sk0Rj0Ri<3>0Nd0Nc0Mc0Lb<46>05I00C000000 cyclerange=1/252
  }

hcg2-102           { ;   t=  0:08:49.32   (c) P. DiGiorgi - May 29, 1998
                     ; Using a K6-266 at 1600x1200
  reset=1960 type=formula formulafile=pctest.frm
  formulaname=pd-HC_Grav2 function=sqrt/conj/recip/exp passes=t
  center-mag=1.45285/-1.32873/0.6572967/1/132.5
  params=0.62/-0.68/0.8/0.1/0.4/0.4 float=y maxiter=255 inside=253
  outside=summ logmode=fly
  colors=000zsX<13>mgQlfQlfQkeQjeP<43>DC7wccuZZ<3>rMMqJJpHHo\
  EE<5>l00<47>J00sss<61>5550cz0Zt<2>0Vn0Um0Sk0Rj0Ri<3>0Nd0Nc\
  0Mc<13>0ET0DS0DR0CR0CQ0BQ<26>00B00A00B00C000000
  cyclerange=1/252
  }

hcg2-103           { ;   t=  0:01:22.33   (c) P. DiGiorgi - May 29, 1998
                     ; Using a K6-266 at 1600x1200
  reset=1960 type=formula formulafile=pctest.frm
  formulaname=pd-HC_Grav2 function=sqr/ident/recip/sqr passes=t
  center-mag=-0.00781069/-0.0031258/0.8118091/1/112.499
  params=0.95/0/1.16/0/0.35/0.35 float=y maxiter=255 inside=253
  outside=summ logmode=fly
  colors=000sss<61>5550cz0Zt<2>0Vn0Um0Sk0Rj0Ri<3>0Nd0Nc0Mc<13>\
  0ET0DS0DR0CR0CQ0BQ<26>00B00A00BzsX<61>221wccuZZ<3>rMMqJJp\
  HHoEE<5>l00<47>40000C000000 cyclerange=1/252
  }

hcg2-104           { ;   t=  0:01:13.60   (c) P. DiGiorgi - May 29, 1998
                     ; Using a K6-266 at 1600x1200
  reset=1960 type=formula formulafile=pctest.frm
  formulaname=pd-HC_Grav2 function=log/sqr/recip/trunc passes=t
  center-mag=3.33436/3.55271e-015/0.2653649/1/-90
  params=2/0/0/0/0.6/0.6 float=y maxiter=255 inside=253 outside=summ
  logmode=fly
  colors=000sss<61>5550cz0Zt<2>0Vn0Um0Sk0Rj0Ri<3>0Nd0Nc0Mc<13>0E\
  T0DS0DR0CR0CQ0BQ<26>00B00A00BzsX<61>221wccuZZ<3>rMMqJJpHHo\
  EE<5>l00<47>40000C000000 cyclerange=1/252
  }

frm:pd-HC_Grav2     {; formula by P. DiGiorgi, May, 1998
       ; P. Carlson's Hi_Cycle method (modified)
       ; applied to Mark Christenson's Gravijul formula
    z = w = iter = range_num = bailout = 0
 pa = real(p3), pb = imag(p3)
  w = pixel
  c = p2
  i = (0,1)
     k = 1.2 - pb
     :
  u = fn1(w)
  w = fn3(p1/fn2(u*u))
  wr = real(w)
     w = w - wr + abs(wr) - c
  angle = atan(imag(w)/wr)
     ka = k * angle / pb
     rw = k * cos(angle) + pb * cos(ka)
     iw = k * sin(angle) + pb * sin(ka)
     ww = rw + i * iw
     ww = fn4(1 - ww)/ww
  dist = abs(|w|-|ww|)
     IF (dist < pa && iter > 1)
 bailout = 1
 index = 63 * dist / pa
 z = index + range_num * 63 + 1
     ENDIF
     iter = iter + 1
     range_num = range_num + 1
     IF (range_num == 4)
 range_num = 0
     ENDIF
     z = z - iter
     bailout == 0 && |w| < 100
 }




- --------------------------------------------------------------
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 #226
******************************