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

Internet Message Format | 1998-12-10 | 40KB

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


fractint-digest      Thursday, December 10 1998      Volume 01 : Number 341




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

Date: Mon, 7 Dec 1998 21:05:35 -0600 (CST)
From: [e-mail] (Paul and/or Joyce Carlson)
Subject: (fractint) Yet some more holiday fractals

comment {
Here's four inverted 3rd-order Newton Julia sets with
a holiday look.  Simple, yet kind of pretty.

This will be the last of the "holiday" images (at least
for a while) - I know you must be getting tired of them.

Paul Carlson
}

newt3xmasj1        {; Copyright (c) Paul W. Carlson, 1998
  reset=1960 type=formula formulafile=newt3atn.frm
  formulaname=newt3_atan_j passes=t
  center-mag=0.356027/-8.65e-007/1.123446/1/-90
  params=0.1/0 float=y maxiter=5000 inside=253 outside=summ
  invert=1/1/0
  colors=0000h0<58>0O0VVV<58>zzzO00<58>z88000<73>000
  }

newt3xmasj2        {; Copyright (c) Paul W. Carlson, 1998
  reset=1960 type=formula formulafile=newt3atn.frm
  formulaname=newt3_atan_j passes=t
  center-mag=0.783537/-8.65e-007/0.1341222/1/-90
  params=0.1/0 float=y maxiter=5000 inside=253 outside=summ
  invert=1/-1/0
  colors=0000h0<58>0O0VVV<58>zzzO00<58>z88000<73>000
  }

newt3xmasj3        {; Copyright (c) Paul W. Carlson, 1998
  reset=1960 type=formula formulafile=newt3atn.frm
  formulaname=newt3_atan_j passes=t
  center-mag=-1.75179/-8.65e-007/0.1827956/1/90
  params=0.1/0 float=y maxiter=5000 inside=253 outside=summ
  invert=1/-0.5/0
  colors=0000h0<58>0O0VVV<58>zzzO00<58>z88000<73>000
  }

newt3xmasj4        {; Copyright (c) Paul W. Carlson, 1998
  reset=1960 type=formula formulafile=newt3atn.frm
  formulaname=newt3_atan_j passes=t
  center-mag=-0.830706/-8.65e-007/0.363015/1/-90
  params=0.1/0 float=y maxiter=5000 inside=253 outside=summ
  invert=1/0.5/0
  colors=0000h0<58>0O0VVV<58>zzzO00<58>z88000<73>000
  }

frm:Newt3_Atan_J {; Copyright (c) Paul Carlson, 1998
    ;
    ; p1 = max. |w - root| for early bailout
    ;
    w = prev_w = pixel
    z = iter = bailout = range = 0
    root1 = (1,0)
    root2 = (-0.5,0.866025403)
    root3 = (-0.5,-0.866025403)
    :
    w2 = w * w, w3 = w2 * w
    w = w - (w3 - 1 ) / (3 * w2)
    ;
    wr = real(w), wi = imag(w)
    pr = real(prev_w), pm = imag(prev_w)
    prev_w = w
    IF (|w - root1| < p1)
    range = 0
    bailout = 1
    ELSEIF (|w - root2| < p1)
    range = 1
    bailout = 1
    ELSEIF (|w - root3| < p1)
    range = 2
    bailout = 1
    ENDIF
    IF (bailout == 1)
    index = abs(119 * (atan((wi - pm) / (wr - pr))) / pi)
    z = index + range * 60 + 1
    ENDIF
    iter = iter + 1
    z = z - iter
    bailout == 0 && |w| < 1.0e20
}


- --------------------------------------------------------------
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: Mon, 7 Dec 1998 22:23:16 -0500 (EST)
From: Jeff Field <[e-mail]>
Subject: Re: (fractint) Yet some more holiday fractals

On Mon, 7 Dec 1998, Paul and/or Joyce Carlson wrote:

> comment {
> Here's four inverted 3rd-order Newton Julia sets with
> a holiday look.  Simple, yet kind of pretty.
>
> This will be the last of the "holiday" images (at least
> for a while) - I know you must be getting tired of them.
>
> Paul Carlson
> }
>

Paul--

    It's hard to get tired of your images.  They are exemplars of
balance between complexity and simplicity.  Hope you'll be putting up more
pars, even if they're not holiday images.

- --Jeff


- --------------------------------------------------------------
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: Mon, 7 Dec 1998 22:23:16 -0500 (EST)
From: Jeff Field <[e-mail]>
Subject: Re: (fractint) Yet some more holiday fractals

On Mon, 7 Dec 1998, Paul and/or Joyce Carlson wrote:

> comment {
> Here's four inverted 3rd-order Newton Julia sets with
> a holiday look.  Simple, yet kind of pretty.
>
> This will be the last of the "holiday" images (at least
> for a while) - I know you must be getting tired of them.
>
> Paul Carlson
> }
>

Paul--

    It's hard to get tired of your images.  They are exemplars of
balance between complexity and simplicity.  Hope you'll be putting up more
pars, even if they're not holiday images.

- --Jeff


- --------------------------------------------------------------
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: Mon, 07 Dec 1998 22:20:14 -0500
From: davides <[e-mail]>
Subject: (fractint) 4 pars'

Having (or rather, taking) some time this evening to look at some of Paul
Carlson's pars, and then tinkering with some numbers pretty much at random,
the following 4 pars are samples of what I started coming up with. ND35
also looks good with lindaa15 color map.


New_Dimension30    { ;  (c) David Shanholtzer Dec 07, 1998 t=0:05:47.90
                     ;  P200 MMX 1024x768
                     ; color map: dav90
  reset=1960 type=formula formulafile=fractint.frm formulaname=zf_ang
  function=cotan passes=t center-mag=0/0/0.6666667
  params=0.654/0.375/0.27/-2/2/125 float=y maxiter=252 inside=253
  outside=summ colors=00Xn0z<123>H0Pzzz<123>00V000<3>000
  }


New_Dimension32    { ;  (c) David Shanholtzer Dec 07, 1998 t=  0:02:56.75
                     ;  P200 MMX 1024x768
                     ; color map: dav25e
  reset=1960 type=formula formulafile=fractint.frm formulaname=zf_ang
  function=exp passes=t center-mag=-0.828935/0.797914/3.205128
  params=0.654/0.515/0.27/-3/2/125 float=y maxiter=252 inside=253
  outside=summ
  colors=000mcw<32>909100<35>J00K00L00M00N00<35>v54w65w65w65<8>w65l55a4530\
  3<14>505505606607<37>D0FE0GG1I<12>lLq<30>G1IE0GF0G<24>e8b
  }

New_Dimension33    { ;  (c) David Shanholtzer Dec 07, 1998 t=  0:06:54.85
                     ;  P200 MMX 1024x768
                     ; color map: dav25e
  reset=1960 type=formula formulafile=fractint.frm formulaname=zf_ang
  function=exp passes=t center-mag=-0.719453/0.72751/4.901961
  params=0.515/0.515/0.27/-3/2/125 float=y maxiter=252 inside=253
  outside=summ
  colors=000mcw<32>909100<35>J00K00L00M00N00<35>v54w65w65w65<8>w65l55a4530\
  3<14>505505606607<37>D0FE0GG1I<12>lLq<30>G1IE0GF0G<24>e8b
  }


New_Dimension35    { ;  (c) David Shanholtzer Dec 07, 1998 t=  0:10:45.21
                     ;  P200 MMX 1024x768
                     ; color map: dav25e (modified)
  reset=1960 type=formula formulafile=fractint.frm formulaname=zf_ang
  function=recip passes=t center-mag=-0.774194/-0.778357/7.751938
  params=0.414/0.5/0.357/-1/2/125 float=y maxiter=252 inside=253
  outside=summ
  colors=000mcw<32>909100<35>J00K00L00M00N00<35>v54w65w65w65<8>w65l55a4530\
  3<14>505505606607<37>D0FE0GG1I<12>lLq<30>G1IE0GF0G<21>b7_006d8ae8b
  }




[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: Mon, 7 Dec 1998 22:25:21 EST
From: [e-mail]
Subject: Re: (fractint)sstools.ini

In a message dated 12/7/98 7:02:25 PM Eastern Standard Time,
[e-mail] writes:

<< I believe most of them may be found in the FRACTINT.DOC file that is
 produced when you run Fractint with the MAKEDOC parameter.
  >>
<<Here is the one that I use, hope it helps you. >>

Thanks Paul,
This is great.
Steve

- --------------------------------------------------------------
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: Mon, 14 Sep 1998 23:50:33 +1200
From: "Karl Scherer" <[e-mail]>
Subject: (fractint) Upgrade (Video card?) problerm

Hi everybody!
I am new to this mailing list.

Could please someone help me or give me some advids with the following
urgent problem?

One week ago I upgraded my PC from Pentium 233 to Pentium II, 400 Mhz,
which has a AGP 6326 video card (8MB) included. Since then Fractint does
not work anymore, saying "This video mode is not abailable with your
adapter" to all video modes selected. When I exit Fractint, the mouse still
can be moved, but I cannot click any icon anymore and have to restart the
PC. Is Fractint not ready for this video card or have I done something
wrong?? Since I am in the middle of creating a lot of pictures, I am
desparately in search for some help or upgrade of Fractint!

Any response is very much appreciated.
Thanks for your help, Karl

Karl Scherer
11 Utting Str, Auckland, New Zealand
[e-mail]
Seen my homepage lately?
http://www.kiwi.gen.nz/~karl


- --------------------------------------------------------------
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, 8 Dec 1998 07:56:35 +0000
From: "Andrej Lajovic" <[e-mail]>
Subject: (fractint) Re: Some Lyapunov pars

Hello!

Tony Hanmer wrote:

>>I haven't got round to changing colours on most of them - hope
y'all aren't too tired of the original palette!<<

Colors make miracles. Here is a 'lyapunov002' par with changed
palette.

lyap002        { ; (c) Tony Hanmer, map by Andrej Lajovic
                     ; t=0:0:48.22 P166 768x1024
                     ; ;
  reset=1960 type=lyapunov
  center-mag=+3.67543649638187400/+3.28437790\
  922241200/138.3616/0.5512/122\
  .498/53.562 params=-1128679445/0.5/0
  float=y maxiter=8 inside=256
  colors=000<41>00U10U20T<50>s00t00t00<7>y00z\
  00z00z00<47>z00y00y00x00w00<9\
  4>000
  }

Regards,
Andrej

- --------------------------------------------------------------
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: Mon, 07 Dec 1998 23:22:05 -0800
From: kathy roth <[e-mail]>
Subject: (fractint) holiday images

Paul Carlson wrote:

> This will be the last of the "holiday" images (at least
> for a while) - I know you must be getting tired of them.
>

I'm not getting tired of the holiday fractals-
It's nice to have you posting again.  Here are some
I made in the course of the year- kind of corny
maybe but I really like this time of year.  (Just
don't buy anything and stay away from canned music.)

_solstice1         { ; kathy roth
                     ; wizzle map
  reset=1960 type=formula formulafile=koffset.frm
  formulaname=koffset_rx=ry_jul function=tan/recip/atanh
  center-mag=-1.5037/0.114056/0.4733924/0.75 params=1/1/0.3/0/1.15/1
  float=y outside=mult logmode=fly decomp=256 periodicity=0
  colors=000NNN<28>zzz000<9>0zz<9>r\
0r<9>000<47>000111333<29>zzz<30>2220000\
  00<39>000Z0AU00<6>m00<7>T0m<3>I0MF0FA0A505000<15>LLL
  }

_solstice2         { ; kathy roth
                     ; Linda Alison map
  reset=1960 type=formula formulafile=koffset.frm
  formulaname=koffset_rx=ry_jul function=tan/recip/atanh
  center-mag=-3.12573/1.93847/1.008649 params=1/1/0.3/0/1.15/1 float=y
  outside=mult decomp=256 periodicity=0
colors=800<35>u00w00v00<37>200000\
020050<11>los<13>SNCQL9PK8QK6<14>xn_<13>TN9RL7\
PJ7PK8<14>nru<14>050130200100000<13>0A4\
0B40C50C6<13>AQNBRPBRO<10>\
  3GA3F93F9<25>122121111000100<3>600vlZ
  }

_solstice3         { ; kathy roth
                     ; wizzle map
  reset=1960 type=formula formulafile=kbarnc~1.frm
  formulaname=kbarnceltic center-mag=2.20378/-0.458376/0.880784/1/110
  params=0.3/0.7/0.11/10/8/30 float=y outside=summ logmode=fly
colors=000m0K<28>F07ffk<25>77I55G\
33GwmU<28>843m0K<28>H08ffk<28>33\
GwmU<29>B85000<13>000wmU<28>843rrv<28>AAK
  }

_solstice4          { ; kathy roth
  reset=1960 type=formula formulafile=cnfrc_~1.frm
  formulaname=cnfrc_fnc_mset function=tan passes=t
  center-mag=-0.75447879728118780/-0.00000407342674519/2104889/0.75/180
  params=0.8/0/1/0/2/125 float=y maxiter=1000 inside=253 outside=summ
  logmode=fly colors=000zVz<123>C0Czzz<123>OOO000<3>000
  }

_solstice5          { ; kathy roth
  reset=1960 type=formula formulafile=frac_ml.frm
  formulaname=conic-near_juli center-mag=0/0/13.33333
  params=0/-100/0/0/0/-100 float=y maxiter=256 inside=0 logmode=fly
  decomp=256 periodicity=0
  colors=PAb<21>ZKj_Kk_Lk`Mk<11>fSpgTpg\
UpgVphWp<3>jZrk_rk_rl`rlas<27>zyzzz\
  zzyz<35>hWqhVpgUpfUofTo<3>dRmdQmcQmc\
PmbPl<10>YIjXIiXHiWHhWGh<19>M7`M6_L6\
  _K6_<3>I6YI5XH5XH4WG4W<14>91O91O81N\
71M<7>30F30E20C<3>006000006<4>30E30F4\
  0G40H50I<8>92PA2PA2QB2QB2R<7>F4VG4WG4W\
H4W<6>K7ZL7_L7_M7`M8`<3>O9b
  cyclerange=0/255
  }

_solstice6_holly&berry { ; kathy roth
  reset=1960 type=formula formulafile=csin_a~1.frm
  formulaname=csin_atan_julia passes=1
  center-mag=+0.00012816020025019/+0.00003205342237071/355.217
  params=1/1/10/0/50/100 float=y maxiter=5000 inside=period
  outside=imag logmode=fly
  colors=000<2>zzW<3>000<4>z0z<2>000\
000<2>JTw<3>000<4>z00<2>000000<2>0z0<3\
  >000<4>zW0<2>000000<2>jUy<3>000<4>Nh\
w<2>000000<2>xkk<3>000<4>WKG<2>00000\
  0<2>vEP<3>000<4>rZM<2>000000<2>qSo<3>00\
0<4>zz0<2>000000<2>Wzt<3>000<4>xH\
  0<2>000000<2>zzW<3>000<4>bNM<2>000\
000<2>EeL<3>000<4>_9z<2>000000<2>5Yz<3\
  >000<4>z5Y<2>000000<2>llZ<3>00000\
0<3>kkk<2>000000<2>dJz<3>000<4>ez0<2>00\
  0000<2>zhQ<3>000<4>0zz<2>00000\
0<2>y7a<3>000<4>cZH<2>000000<2>WhQ<3>000<4\
  >00z<2>000
  }

_solstice7_frostybrot { ; kathy roth
  reset=1960 type=formula formulafile=frac_ml.frm
  formulaname=dmj-mand-cr2-ang passes=t
  center-mag=+0.13579789674395010/+0.67083533877918060/293.0404
  params=1/10/10/1/10/1 float=y maxiter=256 inside=bof60 outside=real
  logmode=fly
  colors=C`V<6>7LJXFD<4>rDQ<2>tS_uX\
cvagwfkwknxpryuvzzz<35>JfuHetHdr<4>FalF\
  `kE_iEZhEYf<8>BUWBUVBUUBTTASRASR<36>4AA\
4AA5CB<12>BZUC`VBZU<22>6B56936A4<\
  46>PbF<6>svc<6>feBdc7``8<4>FOFJNF<2>ca\
EkfDrkDzqCzmC<8>v8A<5>x39r48
  cyclerange=0/255
  }

_solstice8         { ; kathy roth
  reset=1960 type=formula formulafile=ucgrav.frm formulaname=ucgrav
  function=log/cosxx/tan center-mag=257.634/-18.7204/0.003459964/1/-90
  params=0.1/0/0/0.1/1.3/1 float=y maxiter=1023 inside=255
  outside=atan logmode=fly viewwindows=1/1/yes/0/0
  colors=0004jc<19>2DC2BA2BA<12>111000\
000000<15>000500500<26>iB3<9>ziM<2>v\
  _HtXFrTDpQBoM9mJ7kF5iB3<9>911500000<12>00\
0000011021<10>3A93B93CA3CA3B9<1\
  3>011011000000021<4>3CA4FC5JF<9>EqcFt\
eEqc<14>012000<15>4zn<2>4pe4lb4h_3d\
  X3`U<8>022<13>4zp<8>4kd
  }

frm:dmj-Mand-Cr2-Ang { ; outside = decomp: angle of closest z[n] to ring

at p1
 ; This is the angle relative to p1.

 IF (imag(p2) == 0)  ; Invalid value for aspect ratio.
   p2 = (0,1) + real(p2)  ; Substitute a default value.
 ENDIF
 IF (real(p3) == 0)  ; Invalid value for color scale.
   p3 = 75 + flip(imag(p3)) ; Substitute a default value.
 ENDIF
 IF (imag(p3) == 0)  ; Invalid value for ring radius.
   p3 = (0,1) + real(p3)  ; Substitute a default value.
 ENDIF
 closest = 1e+38   ; Closest approach so far.
 point = 0   ; Point of that closest approach.
 done = 2   ; Iteration counter.
 r = (0,1) ^ (real(p2)/90) ; Compute rotation vector.
 radius = sqr(imag(p3))  ; Calculate radius squared.

 z = 0, c = pixel:  ; Mandelbrot initialization.
 z = sqr(z) + c   ; Mandelbrot calculation.

 done = done + 1   ; Done one more iteration.
 z2 = (z-p1) * r   ; Offset to p1 and rotate.
 z2 = real(z2) + flip(imag(z2) * imag(p2)) ; Distort aspect.
 d = abs((|z2|) - radius) ; Compute ring distance squared.
 IF (d < closest)  ; Closer than previous value.
   point = z   ; Save that point.
   closest = d   ; Save the closest approach.
 ENDIF
 IF (|z| > 128)   ; Point exceeds bailout.
   z = point - p1  ; Return closest point.
   done = -1   ; Set flag to force an exit.
 ENDIF

 done >= 0   ; Continue if the flag is clear.
}

frm:koffset_rx=ry_jul { ;adapted from Kerry Mitchell
 ;
 ; "2 offset circles" coloring method for Julia sets
 ; p1 = c = Julia parameter
 ; p2 = approximate circle center
 ; real(p3) = (both) circle radius
 ; imag(p3) = center offsets--added to p2 for
 ;   centerx, subtracted from p2 for centery
 ; bailout hardcoded to 10^12
 ; use "decomp=256" coloring
 ;
        zc=pixel, c=p1, bailout=1e12, iter=1, rmin=1e12
        cenx=p2*(1+imag(p3)), radx=real(p3), rad2x=radx*radx
        ceny=p2*(1-imag(p3)), rad2y=rad2x:
        iter=iter+1, w=fn1(zc)
zc=fn3(1/fn2(w*w))
        tempx=|zc-cenx|-rad2x
        tempy=|zc-ceny|-rad2y
        temp=tempx+flip(tempy), r=|temp|
        if (r<rmin)
          rmin=r, z=temp
          endif
        if ((|zc|>bailout)||(iter==maxit))
          iter=-1
          endif
        iter>0
        }

frm:kbarnCeltic {;adapted from Paul Carlson
; Copyright (c) Paul W. Carlson, 1998
    ;****************************************************
    ; Always use floating point math and outside=summ.
    ;
    ; Parameters:
    ;   p1       = Julia set coordinates
    ;   real(p2) = a factor controlling the width of the stalks
    ;   imag(p2) = maximum iterations for stalks
    ;   real(p3) = number of color ranges
    ;   imag(p3) = number of colors in a color range
    ;****************************************************
    w = pixel
    c = p1
    z = 0
    bailout = 0
    iter = 0
    range_num = 0
    stalk_width = real(p2)
    max_iter = imag(p2)
    num_ranges = real(p3)
    colors_in_range = imag(p3)
    ratio = (colors_in_range - 1) / stalk_width:
    ;
     w=(w-1)*p1
    w = w * w, wr = real(w)
    w = w - wr + abs(wr) - c
    ;
    IF (abs(real(w)) <= abs(imag(w)))
        min_dist_to_axis = abs(real(w))
    ELSE
        min_dist_to_axis = abs(imag(w))
    ENDIF
    IF (min_dist_to_axis < stalk_width && iter > 1 && iter <= max_iter)
 z = ratio * min_dist_to_axis + range_num * colors_in_range + 1
 bailout = 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| < 4
}

frm:conic-near_juli { ; Kerry Mitchell 11may98
        cc=(0,1), zc=pixel, maxr=1e12, minr=maxr, iter=1
        a=real(p1), b=imag(p1), c=real(p2), d=imag(p2)
        e=real(p3), f=imag(p3):
        iter=iter+1, zc=sqr(zc)+cc, x=real(zc), y=imag(zc)
        conic=|x*(a*x+b)+y*(c*y+d)+e*x*y+f|
        if (conic<minr)
          minr=conic
          end if
        if ((|zc|>maxr)||(iter==maxit))
          iter=-1
          t=log(minr)
          z=cos(t)+flip(sin(t))
          end if
        iter>0
        }
frm:Ucgrav{;6-1-98 kathy roth
     ;variation on frm by Morgan Owens and Mark Christenson
t=p1,bailout=real(p3),z=pixel,v=imag(p3):
x=real(z),y=imag(z)
ax=4*x-2,ay=4*y-2
Tx=fn1(ax*(ax*ax-2))
Ty=fn1(ay*(ay*ay-2))
x=x-t*Ty,y=y+t*Tx
z=x+flip(y)
w = fn1(z)
   z = fn3(v/fn2(w*w)) + p2
    |z| < p3
  }

frm:CnFrc_Fnc_Mset {; Copyright (c) Paul W. Carlson, 1998
    ; real(p1) = controls size of elements (1 to 32)
    ; imag(p1)   not used
    ; real(p2) = usually 1
    ; imag(p2)   not used
    ; real(p2) = number of color ranges
    ; imag(p2) = number of colors in a range
    w = z = iter = range_num = bailout = 0
    c = pixel
    num_ranges = real(p3)
    colors_in_range = imag(p3):
    prev_w = w
    k = w * w + c
    w = k - fn1(p2/(k+p2/(k+p2/(k+p2/(k+p2/(k+p2))))))
    IF (abs(real(w)) > p1)
 bailout = 1
 angle = abs(atan((imag(w)-imag(prev_w))/(real(w)-\
  real(prev_w))))
 index = 2 * colors_in_range * angle / pi
 z = index + 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
}













- --------------------------------------------------------------
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, 8 Dec 1998 03:28:26 EST
From: [e-mail]
Subject: (fractint) 3 pars (various)

   Hi folks,

     Here's a few more favs of mine from the last couple of days.

          Enjoy~

  Jim
***************************************************************


holida3z.gif       { ; image(c)1998 JimWeaver   lambda(fn:fn)   t=20min20s
  reset=1960 type=lambda(fn||fn) function=cotanh/ident passes=t
  center-mag=-0.00487205/0.00764759/0.08584525/0.9367/-14.755/-17.744
  params=0.2/0.7/1 float=y maxiter=255 bailoutest=real inside=bof60
  logmap=old periodicity=0
  colors=000rG3<6>SDF<4>L0KB8D1H5<19>Q`5Sa6R`6<16>2I6IIAZJE<6>wgF<8>XKDUHD\
  SGC<6>AB7000HIC<10>svcsvc<9>VVLSSJPPHMMFKJD<6>200pdJ<5>zjF<13>RCCEEE<13>\
  kki<18>005332<17>zpa<12>UPFMJIEDLAAK<3>ALQAOSARUBUWBXY<6>DqlDtnCqm<2>Bgh\
  Adg9`e8Yd7Vb<7>14RC6QO8OP9NQBM000000UFJVHI<7>zH0vH2
  }

sp_k28sc.gif       { ; image(c)1998 JimWeaver   OK-28           t=02min22s
  reset=1960 type=formula formulafile=fractint.frm formulaname=OK-28
  function=cosxx/cotanh passes=t
  center-mag=-0.0108207/3.2218/3.671747/1/-152.5 params=0.3854/0/0/0
  float=y inside=bof60 outside=real invert=1/0/0
  colors=0009O6<4>2I6IIAZJE<6>wgF<8>XKDUHDSGC<6>AB7000HIC<10>svcsvc<9>VVLS\
  SJPPHMMFKJD<6>200pdJ<5>zjF<13>RCCEEE<13>kki<18>005332<17>zpa<12>UPFMJIED\
  LAAK<3>ALQAOSARUBUWBXY<6>DqlDtnCqm<2>BghAdg9`e8Yd7Vb<7>14RC6QO8OP9NQBM00\
  0000UFJVHI<7>zH0<8>SDF<4>L0KB8D1H5<19>Q`5Sa6R`6<10>BP6
  }

weave13.gif        { ; image(c)1998 JimWeaver   fn(z*z)         t=00min13s
                     ; looks great as tiled wallpaper
  reset=1960 type=fn(z*z) function=asin passes=t
  center-mag=-0.00000000000000083/+0.00000000000000061/1.595935
  float=y maxiter=255 potential=255/50/0 invert=0.5/0/0
  colors=000999KKK<10>XXXyoRxmNxkJwiF<4>qU6pR4oQ4<12>ZC5YB5W96U87T77R58<12\
  >zpN<3>jmVelW___```aaaccc<20>CCCBBB888<5>000B0A<14>d9H<10>A00<8>Y0B`0Ca2\
  D<25>zzm<4>yqVakYYj_Uia<13>EP7DO5CM3AK0BJ0CI0<13>U30<15>zcc<17>IDDGCCEAA\
  C99A77<3>000<14>III cyclerange=2/255
  }


- --------------------------------------------------------------
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, 8 Dec 1998 10:49:51 +0100 (MET)
From: [e-mail] (Thomas Nitz)
Subject: (fractint) owner-fractint-digest

Hi,
I'm am member of the fractint-digest-list and i'm very
interested in the single issues. Unfortunately i
deleted the last issue #340.
Could you please send it to me again?

Thank you, regards,
Thomas


- --

                                                  .
                                                 .:.
                                                .:::.
                                               .:::::.
                                           ***.:::::::.***
                                      *******.:::::::::.*******
      E N E R G I E !!              ********.:::::::::::.********
                                   ********.:::::::::::::.********
                                   *******.::::::'***`::::.*******
                                   ******.::::'*********`::.******
                                    ****.:::'*************`:.****
                                      *.::'*****************`.*
                                      .:'  ***************    .
                                     .

*********************************************************************
*  Dr. Thomas Nitz                                                  *
*  Zentrum f. Meeres- und Klimaforschung                            *
*  Institut fuer Meereskunde                                        *
*  Universitaet Hamburg                   Tel.:   [phone]  *
*  Troplowitzstrasse 7                    Fax :   [phone]  *
*  22529 Hamburg                        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: Tue, 8 Dec 1998 17:34:37 -0500
From: JoWeber <[e-mail]>
Subject: Re: (fractint) xmas-pars

Hi Tom,

you can download the program FracText from my download page on

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

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: Tue, 8 Dec 1998 16:40:23 EST
From: [e-mail]
Subject: (fractint) Re: formulas

Back after a complex series of crashes (you don't wanna know!) and had not
done backups when I should, of course -- so I lost all bazillion of the lovely
chby .frm files I got from this list (except chby9 which James Weaver was kind
enuf to send me). Please, anyone who can share these, send privately to
[e-mail] who will be eternally grateful and promises to back up at
least Fractint more regularly :)

I think someone had also posted a URL to visit for these???

TIA

Dama

- --------------------------------------------------------------
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, 8 Dec 1998 19:04:16 -0500
From: Sylvie Gallet <[e-mail]>
Subject: Re: (fractint) ... IFS...

Hi Michael,

>> Can you look at a formula and kind of SEE the potential in it?

  No, it would be too easy!!!

>> I always have to start off with a nice one and change single parameter=
s,
>> often ending up with blank screen. Or is it just getting experienced t=
o
>> smell the rewarding changes?

  I have a long experience with fractals (13 years) and I still spent man=
y
hours in playing with them.

  Cheers,

        - Sylvie

- ----------------------------------------------------------------------
 E-mail:
   [e-mail]
 Visit my exhibit at Museum of Computer Art:
   http://www.dorsai.org/~moca/
 My Fractal Galleries:
   http://spanky.triumf.ca/www/fractint/sylvie/gallet.html
   http://ourworld.compuserve.com/homepages/Sylvie_Gallet/homepage.htm
- ----------------------------------------------------------------------

- --------------------------------------------------------------
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, 8 Dec 1998 16:40:23 EST
From: [e-mail]
Subject: (fractint) Re: formulas

Back after a complex series of crashes (you don't wanna know!) and had not
done backups when I should, of course -- so I lost all bazillion of the lovely
chby .frm files I got from this list (except chby9 which James Weaver was kind
enuf to send me). Please, anyone who can share these, send privately to
[e-mail] who will be eternally grateful and promises to back up at
least Fractint more regularly :)

I think someone had also posted a URL to visit for these???

TIA

Dama

- --------------------------------------------------------------
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, 08 Dec 1998 22:19:15 -0500
From: Tom Conally <[e-mail]>
Subject: Re: (fractint) xmas-pars

At 05:34 PM 12/8/98 -0500, you wrote:
>Hi Tom,
>
>you can download the program FracText from my download page on
>
>http://ourworld.compuserve.com/homepages/joweber.
>
>Cheers --Jo--
>
Thanks very much Jo,
I enjoyed your Christmas pars
Tom Conally
In every boomerang there is a perfect throw.
Your life, Grasshopper, is to practice  till you find that throw
and become one with that boomerang!
  Boomerangs        http://www.angelfire.com/nc/conally
   Paradise             http://www.netpath.net/~conally/
   Fractal Images   http://members.tripod.com/~afractal

- --------------------------------------------------------------
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, 9 Dec 1998 00:35:54 -0600 (CST)
From: [e-mail] (Paul and/or Joyce Carlson)
Subject: (fractint) Formula and pars

comment {
This is the result of an experiment I did this evening,
applying my FlexBall rendering method to an equation that I
really didn't think would produce much.  The results were
mixed, but the first of these pars produces a rather nice
spiral, and the second is a zoom centered on a baby 'Brot
which is, if nothing else, a little different.

Paul Carlson
}

fbeqnmop1          {; Copyright (c) Paul W. Carlson, 1998
  reset=1960 type=formula formulafile=fbeqnmop.frm
  formulaname=FB_EqnMoP passes=t
  center-mag=-0.78179965712418010/+0.11990154562518730/1389404/\
  1/-19.999 params=3/0/1.7/0
  float=y maxiter=3000 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
  }

fbeqnmop2          {; Copyright (c) Paul W. Carlson, 1998
  reset=1960 type=formula formulafile=fbeqnmop.frm
  formulaname=FB_EqnMoP passes=t
  center-mag=1.62954/4.64906e-016/36.08856/1/90
  params=3/0/1/0 float=y maxiter=500 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
  }


frm:FB_EqnMoP {; Copyright (c) Paul W. Carlson, 1998
    ; p1 = radius of center of ring (0.01 to 10)
    ; p2 = one half thickness of ring (0.01 to p1)
    ;
    c = pixel
    w = z = iter = bailout = 0
    d0 = p1 + p2
    d1 = 0.382683432365 * p1
    d2 = 0.923879532511 * p1
    dsqd = d0 * d0 + p1 * p1 - (d0 + d0) * d2
    :
    w2 = w * w
    w = c * (1 - w2) / (1 + w2)
    ;
    IF ((abs(cabs(w) - p1) < p2) && 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
    ENDIF
    iter = iter + 1
    z = z - iter
    bailout == 0 && |w| < 1000
}


- --------------------------------------------------------------
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, 09 Dec 1998 08:27:01 -0500
From: Gedeon Peteri <[e-mail]>
Subject: Re: (fractint) Re: formulas

Damascena, you can download the entire set of chby formulas and par from my
Geocities homepage.

Gedeon

[e-mail] wrote:

> Back after a complex series of crashes (you don't wanna know!) and had not
> done backups when I should, of course -- so I lost all bazillion of the lovely
> chby .frm files I got from this list (except chby9 which James Weaver was kind
> enuf to send me). Please, anyone who can share these, send privately to
> [e-mail] who will be eternally grateful and promises to back up at
> least Fractint more regularly :)
>
> I think someone had also posted a URL to visit for these???
>
> TIA
>
> Dama
>
> --------------------------------------------------------------
> 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"

- --
- --------------------------------------------------------------
Fractals: http://www.geocities.com/~gedeonp/index.html
Member Infinite Fractal Loop
Last updated: September 28, 1998 - major revision
Photography: http://members.xoom.com/gedeonp/index.html
Last updated: November 8, 1998
- --------------------------------------------------------------



- --------------------------------------------------------------
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, 9 Dec 1998 08:47:59 EST
From: [e-mail]
Subject: Re: (fractint) Re: formulas

In a message dated 12/9/98 5:33:56 AM Pacific Standard Time,
[e-mail] writes:

> you can download the entire set of chby formulas and par from my
>  Geocities homepage

And I thank you most sincerely :) I'm going there now.....several people have
sent me bunches of .frm files and a set of .pars but some of the .pars call
for formulas that weren't included in the other stuff....

Dama

- --------------------------------------------------------------
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, 9 Dec 1998 15:54:45 -0500
From: [e-mail]
Subject: (fractint) Winter pars

Blustery winds. Fluries? Stars? Snapping cold. (At least that's what winter
is supposed to be.)

Bill Decker

out-of-the-north4  { ;  (c) Bill Decker Dec 07, 1998 t=  0:01:28.70
                     ;  on P100 1024x768
  reset=1960 type=formula formulafile=0bill.frm formulaname=billsfn3
  function=sqr passes=1 center-mag=2.80645/0.589015/3.238888/1/-90
  params=1/1/-0.5/0/1/5 float=y maxiter=55555 inside=64
  potential=255/50/1 decomp=256
  colors=00093A<9>B1CC1CC1CD0DD0DE0E<30>TSTTSTUTUUTUVUV<11>`_`zzz<49>zzzzz\
  zzzyzzx<27>llYkkXkkXjjX<26>YYXYYXXXYXXZ<27>JIyIHzIHy<26>45A458458<17>93A
  }

frm:billsfn3  {
  z = pixel, ztemp = p1 :
  z = ztemp^p2 - fn1(z^p3)
  ztemp = real(z)
  z < 4
}



- --------------------------------------------------------------
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, 10 Dec 1998 15:26:16 -0600
From: Lee&SusanLane <[e-mail]>
Subject: (fractint) Kathy Roth "kind of corny"

Hi Kathy,

Terrific holiday show. I think Solstice5 and 7 are spectacular, but I
enjoyed them all very much. All, that is, except Solstice6 for which the
formula csin_atan_julia could not be found. Could you send it along or
otherwise advise me.

Thanks,   Lee


- --------------------------------------------------------------
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, 10 Dec 1998 20:21:07 EST
From: [e-mail]
Subject: (fractint) 2 pars (OK-20)

  Hi folks,

    This is just an average looking fractal, but the 2nd image(a zoom of the
1st) is an odd but nice spiral.

    Enjoy~

  Jim
******************************************************************************
***


K20face1.gif       { ; image(c)1998 JimWeaver   OK-20 formula    t=01min39s
  reset=1960 type=formula formulafile=fractint.frm formulaname=OK-20
  function=cosxx/atanh passes=t
  center-mag=-0.892232/-9.54792e-015/0.7060685/1/-90 params=100/0
  float=y inside=bof60 periodicity=0
  colors=000<26>XXXyoRxmNxkJwiF<4>qU6pR4oQ4<12>ZC5YB5W96U87T77R58<12>zpN<3\
  >jmVelW___```aaaccc<29>000B0A<14>d9H<10>A00<8>Y0B`0Ca2D<25>zzm<4>yqVakYY\
  j_Uia<13>EP7DO5CM3AK0BJ0CI0<13>U30<15>zcc<17>IDDGCCEAAC99A77<3>000
  }

K20face2.gif       { ; image(c)1998 JimWeaver   OK-20 formula    t=04min03s
                     ; zoom of K20face1.gif
  reset=1960 type=formula formulafile=fractint.frm formulaname=OK-20
  function=cosxx/atanh passes=b
  center-mag=+0.07903866296638717/-0.17229802464551960/742.328/1/-17.499
  params=100/0 float=y inside=bof60 periodicity=0
  colors=000rjXpgVmeTkcR<9>AAK<3>ALQAOSARUBUWBXY<6>DqlDtnCqm<2>BghAdg9`e8Y\
  d7Vb<5>3BU27T26P<5>000<14>wn_<15>M75<14>`Q5aS6`R6<10>PB6<9>kXBp`D<2>wgF<\
  18>000<12>svc<20>200<7>whF<4>lYEiWEeUE<7>EEE<13>kki<18>005332<17>zpawn_u\
  lY
  }


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