StartColourDefinition
  Dithering(Zero)
  LinearField(&8000,&FFFF)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColoursUsingRGBData
EndColourDefinition

Seed(&B)
Phase(&2C)
TwoDimensionalClear
CreateOneDimensionalFilter(Noise(&FFB5,&3C0))
SmoothOneDimensionalTransform
OneDimensionalEqualization
Ripples(&3FFF,&1000,&100,&100,Maximise)
Ripples(&FFFF,&1000,&F000,&C00,Maximise)
Ripples(&FFFF,&F00,&1000,&B000,Maximise)
SmoothTwoDimensionalTransform
TwoDimensionalEqualization
ScaledDithering(&4000)
MakeSprite
Checksum(&CF58)
End

