StartColourDefinition
  StopAnimating
  Seed(&B)
  Phase(&2C)
  Dithering(&4000)
  DitheringOne(&4000)
  DitheringTwo(&4000)
  NoiseToBeFiltered(&FFFF)
  CreateOneDimensionalFilter(Noise(&4938,&4))
  OneDimensionalTransform
  OneDimensionalEqualization
  OneDimensionalStoreBufferTwo
  LinearField(&FCE3,&FFFF)
  OneDimensionalStoreBufferOne
  LinearField(&A748,&F560)
  CreateColours(HSV)
StartAnimating
EndColourDefinition

Seed(&B)
Phase(&2C)
CreateOneDimensionalFilter(QuickNoise(&FFE1,&160))
OneDimensionalTransform
HorizontalWaves(Overwrite)
VerticalShear(&2,Overwrite)
CreateOneDimensionalFilter(QuickNoise(&FFE1,&2A8))
OneDimensionalTransform
HorizontalWaves(SimpleAddition)
VerticalShear(&FFFF,Overwrite)
TwoDimensionalEqualization
Dithering(&D)
MakeSprite
Checksum(&A5D5)
End

