Re: [Fractint] sucker.par Distorting a fractal with harmony.

23 Apr 2010

      comment {
I decided to see what a tune does to a more noisy fractal
(one with high frequency, fine textures in it), namely
"Club_Lambda", z=z^2 -conj(z) +c, as I posted about four years
ago. The tune makes the usual snohman's torso bigger, fills in
some of limbs, and fills a head in, especially a neck.
The most interesting things are that no textures are in it, only
spines, and shape of inner set *reverts to the m-set*,
rather than a triangle in Club_Lambda. The outside=atan view of
FlauBug is just as noisy as Club_Lambda, though. I would think
that my tune is putting order into chaos were it not for that
inverse tangent view.

http://ecn.ab.ca/~brewhaha/img/FlauBug.jpg HSL combo.

I put new parameters and formula into an old file.
The tune is the same.
The name and formula has been changed to protect the lawyers :-)

begin
fractint formulafile=crown.par parmfile=crown.par}

Club_Lambda { ; Formula with texture.
              ; CC-BY BrewJay's Babble Bin
z=fn1(pixel), c=fn2(pixel), t=|P1|:

z = z*z -conj(z) +c
;c = c/2 +z,

|z| <= t
}

FlauBug { ;Same synthesizer input as sucker.par
          ; CC-BY http://ecn.ab.ca/~brewhaha/
z=fn1(pixel), c=fn2(pixel), iter=0:
iter=iter+1
if (iter>= 1 ) && (iter<= 1 )
  z=z*z/ 9 -conj(z)/ 22  +c
endif
if (iter>= 2 ) && (iter<= 4 )
  z=z*z/ 11 -conj(z)/ 16  +c
endif
if (iter>= 5 ) && (iter<= 6 )
  z=z*z/ 14 -conj(z)/ 11  +c
endif
if (iter>= 7 ) && (iter<= 10 )
  z=z*z/ 12 -conj(z)/ 16  +c
endif
if (iter>= 11 ) && (iter<= 12 )
  z=z*z/ 11 -conj(z)/ 28  +c
endif
if (iter>= 13 ) && (iter<= 14 )
  z=z*z/ 9 -conj(z)/ 22  +c
endif
if (iter>= 15 ) && (iter<= 16 )
  z=z*z/ 7 -conj(z)/ 14  +c
endif
if (iter>= 17 ) && (iter<= 20 )
  z=z*z/ 9 -conj(z)/ 18  +c
endif
if (iter>= 21 ) && (iter<= 24 )
  z=z*z/ 10 -conj(z)/ 20  +c
endif
if (iter>= 25 ) && (iter<= 26 )
  z=z*z/ 14 -conj(z)/ 22  +c
endif
if (iter>= 27 ) && (iter<= 29 )
  z=z*z/ 10 -conj(z)/ 15  +c
endif
if (iter>= 30 ) && (iter<= 32 )
  z=z*z/ 11 -conj(z)/ 18  +c
endif
if (iter>= 33 ) && (iter<= 33 )
  z=z*z/ 14 -conj(z)/ 22  +c
endif
if (iter>= 34 ) && (iter<= 35 )
  z=z*z/ 11 -conj(z)/ 11  +c
endif
if (iter> 35 )
    iter=0
endif
|z| <= real(P1)}

FlauBugLumo        { ; 51.41/megapixel at 866Mhz
                     ; CC-BY-NC Bohgosity BumaskiL
                     ; Fractint Version 2004 Patchlevel 4
                     ; Fractint saved name without case.
  reset=2004 type=formula formulafile=crown.par formulaname=flaubug
  function=zero/ident passes=b
  center-mag=-7.99646/7.77156e-016/1.262778/4.3849 params=3072/0
  float=y maxiter=255 inside=255 outside=atan
  invert=0.755748621589819/-7.83908667367891/0 symmetry=xaxis
  periodicity=0 colors=@altern.map
  }

FlauBugChromo      { ; 43.99s/megapixel at 866Mhz
                     ; Map is a loud emphasis on complements.
                     ; CC-BY-NC Jay Litwyn.
                     ; Fractint Version 2004 Patchlevel 4
  reset=2004 type=formula formulafile=crown.par formulaname=flaubug
  function=zero/ident passes=b
  center-mag=-7.99646/7.77156e-016/1.262778/4.3849 params=3072/0
  float=y maxiter=255 inside=255
  invert=0.755748621589819/-7.83908667367891/0 symmetry=xaxis
  periodicity=0
  colors=0000z0z0z0z9z0p0zIz0e0zRz0W0z_z0L0zhz0B0zqz000zzz700szzF00kzzN0\
  0czzV00Wzzb00Ozzj00Gzzr008zzz000zsz070zkz0F0zcz0N0zWz0V0zOz0b0zGz0j0z8\
  z0r0z0z0z0z0z7z0s0zFz0k0zNz0c0zVz0W0zbz0O0zjz0G0zrz080zzz000szz700kzzF\
  00czzN00WzzV00Ozzb00Gzzj008zzr000zzz070zsz0F0zkz0N0zcz0V0zWz0b0zOz0j0z\
  Gz0r0z8z0z0z0z0z0s0z7z0k0zFz0c0zNz0W0zVz0O0zbz0G0zjz080zrz000zzz700szz\
  F00kzzN00czzV00Wzzb00Ozzj00Gzzr008zzz000zsz070zkz0F0zcz0N0zWz0V0zOz0b0\
  zGz0j0z8z0r0z0z0z0z0z7z0s0zFz0k0zNz0c0zVz0W0zbz0O0zjz0G0zrz080zzz000sz\
  z700kzzF00czzN00WzzV00Ozzb00Gzzj008zzr000zzz070zsz0F0zkz0N0zcz0V0zWz0b\
  0zOz0j0zGz0r0z8z0z0z0z0z0s0z7z0k0zFz0c0zNz0W0zVz0O0zbz0G0zjz080zrz000z\
  zz700szzF00kzzN00czzV00Wzzb00Ozzj00Gzzr008zzz000zsz070zkz0F0zcz0N0zWz0\
  V0zOz0b0zGz0j0z8z0r0z0z0z0z0z7z0s0zFz0k0zNz0c0zVz0W0zbz0O0zjz0G0zrz080\
  zz000
  }

Crown_ClubsH       { ; 16.59s/megapixel at 866Mhz.
                     ; CC-BY-SA, as given to wikipedia
                     ; Fractint Version 2004 Patchlevel 4
                     ; Demonstrates texture.
  reset=2004 type=formula formulafile=crown.par
  formulaname=club_lambda function=zero/ident passes=t
  center-mag=-0.848329/0/0.7526244/1.2756 params=4/0 float=y
  maxiter=255 inside=0 outside=imag invert=0.5/-0.25/0
  symmetry=xaxis periodicity=0 colors=@rainboh.map
  }

Crown_ClubsL       { ; 17.02s/megapixel at 866Mhz.
                     ; CC-BY-NC Jay Litwyn
                     ; Fractint Version 2004 Patchlevel 4
                     ; Once selected for card suits.
  reset=2004 type=formula formulafile=crown.par
  formulaname=club_lambda function=zero/ident passes=t
  center-mag=-0.848329/0/0.7526244/1.2756 params=4/0 float=y
  maxiter=255 inside=0 outside=atan invert=0.5/-0.25/0
  symmetry=xaxis periodicity=0 colors=@altern.map
  }

FlauBugDefault     { ; 11.43s/megapixel at 866Mhz
                     ; CC-BY Jay Litwyn
                     ; Fractint Version 2004 Patchlevel 4
                     ; Fractint saved name with case.
  reset=2004 type=formula formulafile=crown.par formulaname=FlauBug
  function=zero/ident passes=b
  center-mag=-6.30788/5.32907e-015/0.08020317/1.1807 params=3072/0
  float=y maxiter=255 inside=254 symmetry=xaxis periodicity=0
  colors=@defaultw.map
  }