StartColourDefinition
  Dithering(&0)
  LinearField(&1,&FFFF)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColoursUsingRGBData
EndColourDefinition

Seed(&12)
Phase(&35)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
For(&3)
  CreateOneDimensionalFilter(QuickNoise(&E2CD,&26F))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  LinearField(&FFFF,&C000)
  CreateOneDimensionalFilter(QuickNoise(&4B54,&8B2))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  Radials(&FFFF,&3800,Random(&7D5E,&2),Random(&5186,&0),Maximise,Maximise)
Next
TwoDimensionalEqualization
Dithering(&2000)
MakeSprite
Checksum(&FF71)
End

