StartColourDefinition
  Dithering(&0)
  LinearField(&0,&FFFF)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColours(RGB)
EndColourDefinition

Seed(&4E5E)
Phase(&2A)
TwoDimensionalClear
LinearField(&2148,&2)
OneDimensionalStoreBufferOne
For(&1)
  AddToPercentage(&B)
  CreateOneDimensionalFilter(QuickNoise(&FF12,&7FD))
  SmoothOneDimensionalTransform
  OneDimensionalMaskBufferOne(ScaledMultiplication)
  Ripples(&F81E,&BD06,Random(&FFFF,&0),Random(&FFFF,&0),Maximise)
  |
  AddToPercentage(&B)
  CreateOneDimensionalFilter(QuickNoise(&39DC,&8AC))
  SmoothOneDimensionalTransform
  OneDimensionalMaskBufferOne(ScaledMultiplication)
  Ripples(&E5AE,&A7C5,Random(&FFFF,&0),Random(&FFFF,&0),Maximise)
  |
  AddToPercentage(&B)
  CreateOneDimensionalFilter(QuickNoise(&D017,&A5D))
  SmoothOneDimensionalTransform
  OneDimensionalMaskBufferOne(ScaledMultiplication)
  Ripples(&FB2E,&73BE,Random(&FFFF,&0),Random(&FFFF,&0),Maximise)
  |
  AddToPercentage(&B)
  CreateOneDimensionalFilter(QuickNoise(&DE8D,&D6A))
  SmoothOneDimensionalTransform
  OneDimensionalMaskBufferOne(ScaledMultiplication)
  Ripples(&FC31,&3FCD,Random(&FFFF,&0),Random(&FFFF,&0),Maximise)
Next
TwoDimensionalEqualization
Dithering(&1E27)
MakeSprite
Checksum(&8415)
End

