StartColourDefinition
  StopAnimating
  Seed(&B)
  Phase(&2C)
  Dithering(&6000)
  DitheringOne(&6000)
  DitheringTwo(&6000)
  NoiseToBeFiltered(&FFFF)
  CreateOneDimensionalFilter(Noise(&7938,&83))
  OneDimensionalTransform
  OneDimensionalEqualization
  OneDimensionalStoreBufferTwo
  LinearField(&FCE3,&FFFF)
  OneDimensionalStoreBufferOne
  LinearField(&8748,&F560)
  CreateColours(HSV)
StartAnimating
EndColourDefinition

Seed(&B11)
Phase(&2C)
TwoDimensionalClear
LinearField(&FFFF,&0)
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(QuickNoise(&F52D,&7B3))
SmoothOneDimensionalTransform
OneDimensionalMaskBufferOne(ScaledMultiplication)
SetVariable(&0,&0)
For(&10)
AddToPercentage(&5)
Ripples(&FFFF,&4000,Random(&FFFF,&0),Random(&FFFF,&0),Maximise)
Next
TwoDimensionalEqualization
Dithering(&80)
MakeSprite
Checksum(&28BB)
End

