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

Seed(&12)
Phase(&35)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
For(&10)
  AddToPercentage(&6)
  CreateOneDimensionalFilter(QuickNoise(&C785,&5BE))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  OneDimensionalStoreBufferOne
  OneDimensionalStoreBufferTwo
  CreateOneDimensionalFilter(QuickNoise(&C785,&3BE))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  Radials(&FFFF,&3800,Random(&FFFF,&0),Random(&FFFF,&0),Maximise,SimpleAddition)
Next
TwoDimensionalEqualization
Dithering(&2000)
MakeSprite
Checksum(&2F65)
End

