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

Seed(&162)
Phase(&35)
NoiseToBeFiltered(&D9C5)
Percentage(&4)
TwoDimensionalClear
For(&14)
  AddToPercentage(&4)
  LinearField(&FFFF,&2000)
  OneDimensionalStoreBufferOne
  OneDimensionalStoreBufferTwo
  CreateOneDimensionalFilter(QuickNoise(&C785,&600))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  Radials(&FFFF,&4800,Random(&FFFF,&0),Random(&FFFF,&0),Overwrite,Maximise)
Next
TwoDimensionalEqualization
Dithering(&2000)
MakeSprite
Checksum(&9A0D)
End

