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

Seed(&E002)
Phase(&35)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
For(&30)
  AddToPercentage(&2)
  LinearField(&FFFF,&4000)
  OneDimensionalStoreBufferOne
  CreateOneDimensionalFilter(QuickNoise(&C785,&251))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  OneDimensionalMaskBufferOne(ScaledMultiplication)
  OneDimensionalStoreBufferOne
  CreateOneDimensionalFilter(QuickNoise(&C785,&51))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  Radials(&FFFF,&4300,Random(&FFFF,&0),Random(&FFFF,&0),Overwrite,Maximise)
Next
TwoDimensionalEqualization
ScaledDithering(&2000)
MakeSprite
Checksum(&9C74)
End

