[Fractint] Fractal Tone-Poems (music?)

14 Aug 2002

      Jim Wilson wrote this, though I couldn't read it...must be some sort of 
mime-thing, which I have long forgotten.
...
You know, when I first started to read this "Vignette"  my first thought 
was that this had no business being in the Fractint forum.   However, 
reading on, I became quite impressed by this verbal fractal   Most posts 
are graphics pars or formulae, can't remember if,or when, anybody offered 
a music par.  This is a something different...now if only Morgan could 
incorporate some verbal recursion, this might constitute a new Fractal 
form, requiring a different type of formula.   Could we soon be posting 
.vig files?  If so, then nobody woud feel the need to plead for 
brevity   After all, what is a brief fractal?
Anyway, I have a few music pars, or as I prefer, fractal tone-poems, which 
I have been reluctant to let see the light of day - especially since our 
beloved par-rater extrordinaire once declared that *any* music par had a 
maximum possible rating of 2. I won't bother trying to rate them...Lee 
Skinner says that Fugue_on_y_minor sounds like "farts" on his speakers and 
Chaos_City hurts his ears. A couple of them may have been included in a 
version of Fractint...if so, sorry for the duplicate.

There are a few idiosyncrasies involved with sound pars. Resolution often 
affects the sounds, so most of these pars force one of the standard 
Fractint video modes, SF5(640x480), SF7(1024x768), and one 
SF9(1280x1024). If SF9 gives you a problem, use 1280x1024x256 disk video.
If you have changed your config file, choose your corresponding res for 
each par, please. Some of these are "multimedia" ie. the image is part of 
the show - Lotus, for instance, (usually and good image is just an
accident)...others either have no image or are drawn so slowly that there 
might as well not be one.

Lastly, but very important. These are OPL3 chip compatible. That 
includes most soundcards, but *NOT* the SBLive!, which has an EMU10K 
chip. Other SB cards, or SB compatibles will give the proper sounds as 
far as I know. Often the SBLive will indeed play something from these 
pars, but it is totally different in most cases. I do have some SBLive! 
compatible pars if someone wants.  

Oh yeah...some of these get to a point where they are no longer 
interesting or repetitious but others get more interesting later in. Be 
sure to let Boo! and Lotus run to conpletion though.

Bill Jemison

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

BOO!               { ; Image&Music (c) Bill Jemison 2000
                     ; Fractal Tone-Poem
                     ; OPL3 (most SB compatibles - NOT SBLive!)
                     ; playtime~00:00:35
  reset=2000 type=threeply passes=1 video=SF5
  center-mag=-25.6682/-4.28027/0.001124723/0.4739/-85/-55.646
  params=-165/-17/126 float=y maxiter=13 viewwindows=1/0.75/yes/0/0
  cyclerange=1/15 hertz=-1000 sound=x/fm attenuate=mid polyphony=2
  attack=8 decay=5 sustain=14 srelease=10 orbitdelay=400 showorbit=yes
  colors=000zzz<253>000
  }

Chaos_City           { ; copyright (c) Bill Jemison 1999
                     ; Fractal Tone-Poem
                     ; OPL3 (most SB compatibles - NOT SBLive!)
                     ; add Concert Hall reverb if possible
                     ; must use 1024x768x256 video mode
  reset=2000 type=mandel passes=d video=SF7
  center-mag=-0.21515300000000000/+0.64304200000000000/1354.084/0.1539/-7.\
  496/-51.993 params=0/0 float=y maxiter=1000 fillcolor=0 inside=0
  outside=0 viewwindows=19/0.75/yes/0/0 cyclerange=1/1 hertz=0
  sound=x/fm polyphony=2 wavetype=7 attack=3 decay=5 sustain=15
  srelease=8 orbitdelay=1500 showorbit=yes
  colors=00000e0e00eee00e0eeL0eeeLLLLLzLzLLzzzLLzLzzzLzzz000555<3>HHHKKKOO\
  O<3>ccchhhmmmssszzz00z<3>z0z<3>z00<3>zz0<3>0z0<3>0zz<2>0GzVVz<3>zVz<3>zV\
  V<3>zzV<3>VzV<3>Vzz<2>Vbzhhz<3>zhz<3>zhh<3>zzh<3>hzh<3>hzz<2>hlz00S<3>S0\
  S<3>S00<3>SS0<3>0S0<3>0SS<2>07SEES<3>SES<3>SEE<3>SSE<3>ESE<3>ESS<2>EHSKK\
  S<2>QKSSKSSKQSKOSKMSKK<2>SQKSSKQSKOSKMSKKSK<2>KSQKSSKQSKOSKMS00G<3>G0G<3\
...
G00<3>GG0<3>0G0<3>0GG<2>04G88G<2>E8GG8GG8EG8CG8AG88<2>GE8GG8EG8CG8AG88G\
  8<2>8GE8GG8EG8CG8AGBBG<2>FBGGBGGBFGBDGBCGBB<2>GFBGGBFGBDGBCGBBGB<2>BGFBG\
  GBFGBDGBCG000<6>000
  }
Chop_schtiks_SF7   { ;  Copyright 2000 by Bill Jemison 
                               ; Fractal Tone-Poem
                     ; OPL3 (most SB compatibles - NOT SBLive!)
                     ; add Concert Hall reverb if possible
  reset=2000 type=frothybasin passes=1 video=SF7
  center-mag=0.877039/-0.240632/1.465201 params=1/0/2.028713768218725
  float=y maxiter=647 bailout=1 symmetry=none periodicity=0
  viewwindows=8/0.75/yes/0/0 hertz=-50 sound=z/fm/quant polyphony=9
  scalemap=1/3/5/6/8/10/12/1/5/8/1/5 orbitdelay=750 showorbit=yes
  }

Crystal            { ; copyright (c) Bill Jemison 1999
                     ; Fractal Tone-Poem
                     ; OPL3 (most SB compatibles - NOT SBLive!)
                     ; add Concert Hall reverb if possible
  reset=2000 type=threeply passes=1 video=SF7
  center-mag=-25.6682/-4.28027/0.001127669/1.2175/-174.164/11.757
  params=55/1/42 float=y maxiter=48 viewwindows=1/0.75/yes/0/0
  hertz=50 sound=y/fm attenuate=mid polyphony=2 attack=8 decay=5
  sustain=14 srelease=10 orbitdelay=1000 showorbit=yes
  colors=000zzz<253>zzz
  }

Cycle-o-rama       { ; Image&music (c) Bill Jemison 2000
                     ; Fractal Tone-Poem
                     ; OPL3 (most SB compatibles - NOT SBLive!)
                     ; add Concert Hall reverb if possible
                     ; playtime 0:08:22
  reset=2000 type=threeply passes=1 video=SF7
  center-mag=6.091/19.6806/0.01024156/2.6547/171.252/24.801
  params=22/0.4/-1.8 float=y maxiter=32 viewwindows=2/0.75/yes/0/0
  hertz=0 sound=y/fm attenuate=mid polyphony=9 wavetype=5 attack=10
  sustain=10 srelease=10 orbitdelay=400 showorbit=yes
  colors=000zz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL000\
  0<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e00L00zz\
  LzL0000<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e0\
  0L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2\
...
z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzz\
  ezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2\
0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL0zL0cc\
  c<24>ccc<4>ccc00L00e00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzze
  }
Fugue_on_y_minor   { ; copyright (c) Bill Jemison 1999
                     ; Fractal Tone-Poem
                     ; OPL3 (most SB compatibles - NOT SBLive!)
                     ; add Concert Hall reverb if possible
                     ; must use 1024x768x256 video mode
  reset=2000 type=mandel passes=d video=SF7
  center-mag=-0.21515300000000000/+0.64304200000000000/1354.084/0.1539/-7.\
  496/-51.993 params=0/0 float=y maxiter=1000 fillcolor=0 inside=0
  outside=0 viewwindows=19/0.75/yes/0/0 cyclerange=1/1 hertz=50
  sound=y/fm/quant polyphony=2 wavetype=7 attack=3 decay=5 sustain=15
  srelease=8 scalemap=1/4/8/1/1/8/4/1/4/1/8/12 orbitdelay=1500
  showorbit=yes
  colors=00000e0e00eee00e0eeL0eeeLLLLLzLzLLzzzLLzLzzzLzzz000555<3>HHHKKKOO\
  O<3>ccchhhmmmssszzz00z<3>z0z<3>z00<3>zz0<3>0z0<3>0zz<2>0GzVVz<3>zVz<3>zV\
  V<3>zzV<3>VzV<3>Vzz<2>Vbzhhz<3>zhz<3>zhh<3>zzh<3>hzh<3>hzz<2>hlz00S<3>S0\
  S<3>S00<3>SS0<3>0S0<3>0SS<2>07SEES<3>SES<3>SEE<3>SSE<3>ESE<3>ESS<2>EHSKK\
  S<2>QKSSKSSKQSKOSKMSKK<2>SQKSSKQSKOSKMSKKSK<2>KSQKSSKQSKOSKMS00G<3>G0G<3\
...
G00<3>GG0<3>0G0<3>0GG<2>04G88G<2>E8GG8GG8EG8CG8AG88<2>GE8GG8EG8CG8AG88G\
  8<2>8GE8GG8EG8CG8AGBBG<2>FBGGBGGBFGBDGBCGBB<2>GFBGGBFGBDGBCGBBGB<2>BGFBG\
  GBFGBDGBCG000<6>000
  }
Lotus              {; copyright (c) Bill Jemison 2000 
                     ; Fractal Tone-Poem
                     ; OPL3 (most SB compatibles - NOT SBLive!)
                     ; add Concert Hall reverb if possible
  reset=2000 type=threeply passes=1 video=SF7
  center-mag=-25.6682/-4.28027/0.001124723/0.4739/-85/-55.646
  params=-55/-1/-42 float=y maxiter=49 viewwindows=1/0.75/yes/0/0
  hertz=-50 sound=y/fm attenuate=mid polyphony=9 attack=8 decay=5
  sustain=14 srelease=10 orbitdelay=1000 showorbit=yes
  colors=0000Lz0ez0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e0\
  0L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2\
...
z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzz\
  ezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2\
0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<2\
00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL\
  0000<2>00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<2>00z<2>0zzzzezz0<2>z00e00L0\
  0zzLzL0zL0<25>C4HA4H83I<2>21K00L00e00z<2>0zzzzezz0<2>z00e00L00zzLzL0000<\
  2>00z
  }
Pod_Racers         { ; Copyright (c) Bill Jemison [70400,2537] 1999 
                     ; Fractal Tone-Poem
                     ; OPL3 (most SB compatibles - NOT SBLive!)
                     ; add Concert Hall reverb if possible
  reset=2000 type=mandelcloud passes=1 center-mag=-0.5/0/0.6666667
  params=50 float=y maxiter=500 viewwindows=12/0.75/yes/0/0 hertz=512
  sound=x/pc/fm polyphony=3 wavetype=1 decay=8 sustain=14 srelease=10
  orbitdelay=1000 showorbit=yes
  }

Nocturn            { ; copyright (c) Bill Jemison 1999
                     ;  Fractal Tone-Poem
                     ; add Concert Hall reverb if possible
                     ; must use 640x480x256 video mode
  reset=2000 type=mandel passes=d video=SF5
  center-mag=-0.215153/0.643042/1354.077/0.1539/-7.499/-51.994
  params=0/0 maxiter=1000 fillcolor=0 inside=0 outside=0
  viewwindows=19/0.75/yes/0/0 hertz=0 sound=x/fm/quant polyphony=8
  wavetype=4 scalemap=1/4/8/1/1/8/4/1/4/1/8/12 orbitdelay=4000
  showorbit=yes
  colors=00000e0e00eee00e0eeL0eeeLLLLLzLzLLzzzLLzLzzzLzzz000555<3>HHHKKKOO\
  O<3>ccchhhmmmssszzz00z<3>z0z<3>z00<3>zz0<3>0z0<3>0zz<2>0GzVVz<3>zVz<3>zV\
  V<3>zzV<3>VzV<3>Vzz<2>Vbzhhz<3>zhz<3>zhh<3>zzh<3>hzh<3>hzz<2>hlz00S<3>S0\
  S<3>S00<3>SS0<3>0S0<3>0SS<2>07SEES<3>SES<3>SEE<3>SSE<3>ESE<3>ESS<2>EHSKK\
  S<2>QKSSKSSKQSKOSKMSKK<2>SQKSSKQSKOSKMSKKSK<2>KSQKSSKQSKOSKMS00G<3>G0G<3\
...
G00<3>GG0<3>0G0<3>0GG<2>04G88G<2>E8GG8GG8EG8CG8AG88<2>GE8GG8EG8CG8AG88G\
  8<2>8GE8GG8EG8CG8AGBBG<2>FBGGBGGBFGBDGBCGBB<2>GFBGGBFGBDGBCGBBGB<2>BGFBG\
  GBFGBDGBCG000<6>000
  }
Rainforest         { ; copyright (c) Bill Jemison 2000 ver=20
                     ; Fractal Tone-Poem
                     ; OPL3 (most SB compatibles - NOT SBLive!)
                     ; add Concert Hall reverb if possible
                     ; requires 1280x1024 res...use diskvideo if necessary
  reset=2000 type=formula formulafile=1c3145.par formulaname=carr3145
  passes=1 video=SF9
  center-mag=-0.00150344575698622/-0.29691627188504780/823280.3/1/139.999
  params=200/300/400/550 float=y maxiter=647 symmetry=none
  periodicity=0 viewwindows=2/0.75/yes/0/0 hertz=0 sound=x/fm
  orbitdelay=400 showorbit=yes
  colors=000000<3>C04005I06<3>U0B<3>i04m02m68<3>pUWq_asee<3>zzs<3>alGWi6Vg\
  6<3>T_8SY9SW9<3>POBGI87B56AA<3>152040AAG<2>0Qc<5>5Zf6`g7ag<3>BhiBjjClk<2\
...
Fpl<3>jvqrwrzyt<3>zsZyqUyoOynJylDxj2wiK<3>vc4ua0ub3<3>vhJviNvjPwkR<2>xo\
  a0qe<11>cQTfOSjLQ<3>wCM<3>bADXABS99M96H84<6>872772672<2>160<5>572672772<\
  3>A93B94C94DA5EA4FB3PG3<3>jY1ob1uf0zk0<3>0kk<2>WgD<3>CXF<3>GVEHUEITEJTDK\
  SDLSDMRCOQBORA<3>OH7OE6NB5<4>YH8_I9aJ9cKAeLAhMB<3>mTInVJpYH<2>vdByg8yh5y\
  i3<3>ya4y_4yY4<3>yR4yQ5yO5<3>zG6zE6uH8qKBlNDgQFeNDbJA<12>F73
  }
frm:Carr3145(YAXIS){;Modified Sylvie Gallet frm. [101324,3444],1996
  ; passes=1 needs to be used with this PHC formula.
  ; Converted to IF..RLSE logic by Sylvie Gallet, 11/30/97
  pixel = -abs(real(pixel)) + flip(imag(pixel))
  c0 = (-0.7456,-0.132) - 0.0025/pixel
  if (whitesq)
    c = (-0.0466,-0.00825) + c0
    z = zorig = |pixel|*pixel*pixel + conj(0.10/pixel)
  else
    c = (0.0466,0.00825) + c0
    z = zorig = - sqr(|pixel|*pixel*pixel + conj(0.10/pixel))
  endif
  imagp1 = imag(p1) , imagp2 = imag(p2) , bailout = 16 , iter = 0 :
  if (iter == p1)
    z = 0 , c = 0.09375*cabs(zorig) + c0
  elseif (iter == imagp1)
    z = 0 , c = 0.140625*conj(zorig) + c0
  elseif (iter == p2)
    z = 0 , c = 0.2109375*flip(zorig) + c0
  elseif (iter == imagp2)
    z = 0 , c = 0.6328125*abs(zorig) + c0
  endif
  iter = iter + 1
  z = z*z + c
  |z| <= bailout
  }
Waterfall          { ; Copyright (c) Bill Jemison [70400,2537] 1999
                     ; Fractal Tone-Poem
                     ; OPL3 (most SB compatibles - NOT SBLive!)
                     ; add Concert Hall reverb if possible
  reset=2000 type=chip passes=1 video=SF7 center-mag=0/0/0.001754386
  params=-15/-19/1 float=y viewwindows=12/0.75/yes/0/0 hertz=-100
  sound=x/fm/quant polyphony=3 decay=8 sustain=14 srelease=10
  scalemap=1/3/5/6/8/10/12/1/3/5/8/10 orbitdelay=1000 showorbit=yes

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