StartColourDefinition
  Seed(&A13B)
  Dithering(&0)
  DitheringOne(&0)
  DitheringTwo(&2000)
  NoiseToBeFiltered(&C215)
  LinearField(&30E,&9894)
  OneDimensionalStoreBufferTwo
  LinearField(&EC7F,&CC9F)
  OneDimensionalStoreBufferOne
  LinearField(&EEA5,&811A)
  CreateColours(HSV)
EndColourDefinition

Seed(&B11)
Phase(&2C)
TwoDimensionalClear
LinearField(&FFFF,&0)
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(QuickNoise(&F52D,&50B3))
SmoothOneDimensionalTransform
OneDimensionalMaskBufferOne(ScaledMultiplication)
For(&20)
  AddToPercentage(&3)
  Ripples(&FFFF,&4000,Random(&FFFF,&0),Random(&CFFF,&0),UnboundedAddition)
Next
TwoDimensionalEqualization
Dithering(&2000)
MakeSprite
Checksum(&BC7B)
End

