/* By:      Paul Butterworth (aka Otis)
   Student: University of Auckland Engineering School
            New Zealand
            Electrical Engineering
   Email:   p-j@bigfoot.com (preferred)
            pb@engineer.com
            pbut015@student.auckland.ac.nz

Blazing Comet    16/9/99
*/



Durn="0.8",

B0="-30 * ( sin(.3 * t) )^2",
B1="60 * ( cos(.3 * t) )",
B2="20 * ( sin(.11 * t) )",


CamX="B0 + 35",
CamY="B1",
CamZ="-14 + B2",

CmLX="35",
CmLY="0",
CmLZ="0",

CUpX="0",
CUpY="0",
CUpZ="1",

B3=".1 * t",

C0="(1 - dt) ^ 2",  // fades colours to black
C1="sin(dt * PI * .8 + .1)",   // controls YZ expansion
C2="(abs( fft( 0.05 ) )+ abs( fft( 0.1 ) ) + abs( fft( 0.5 ) ))/3 + .2",   
/* controls X departure of tail - Any function that takes average amplitude of samples? */
C3="20*C1*C2",
C4="15 * sqrt( dt )",

D0="abs( fft( s ) )", // sound amplitude for colour
D1="C3 + C4*D0",   // diminishing amplitude for sparks
D2="s * 6.283185307 + B3",   // makes circle


X="dt * 120 * C2",
Y="D1*cos(D2)",   // position + amplitude deviation
Z="D1*sin(D2)",   // position + amplitude deviation


R="C0",
G="C0 * D0 * 2",
B="2 * C0 * pos(D0 - .7) + .1 * dt",



ConL=1,

ConB=0,

LWdt="2",

Blrs=0,
BlrB=1,

widt=300,
heig=300,

Scal="500",

ScSz=1,

Pers="75",

Vers=40
