StartColourDefinition
  Dithering(&0)
  LinearField(&3D1,&C090)
  OneDimensionalStoreBufferTwo
  LinearField(&848B,&A727)
  OneDimensionalStoreBufferOne
  LinearField(&1,&FF0F)
  CreateColours(HSV)
EndColourDefinition

Seed(&E002)
Phase(&35)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
LinearField(&D2E1,&0)
OneDimensionalStoreBufferOne
SetVariable(&0,&0)
For(&11)
  AddToPercentage(&5)
  CreateOneDimensionalFilter(QuickNoise(&C785,&5BE))
  SmoothOneDimensionalTransform
  OneDimensionalMaskBufferOne(ScaledMultiplication)
  Ripples(&FFFF,&4300,Random(&FFFF,&0),Random(&FFFF,&0),Maximise)
Next
TwoDimensionalEqualization
Dithering(&2000)
MakeSprite
Checksum(&66A0)
End

