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

Seed(&B)
Phase(&27)
TwoDimensionalClear
CreateOneDimensionalFilter(Noise(&D664,&38C))
SmoothOneDimensionalTransform
OneDimensionalEqualization
Ripples(&7074,&C10,&C7,&DD,Maximise)
Ripples(&FAA7,&1006,&CAAD,&DD1,Maximise)
Ripples(&F342,&E35,&12E3,&B398,Maximise)
SmoothTwoDimensionalTransform
TwoDimensionalEqualization
ScaledDithering(&4000)
MakeSprite
Checksum(&801E)
End

