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

Seed(&E002)
Phase(&35)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
For(&20)
  AddToPercentage(&3)
  LinearField(&FFFF,&4000)
  OneDimensionalStoreBufferOne
  CreateOneDimensionalFilter(QuickNoise(&C785,&251))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  OneDimensionalMaskBufferOne(ScaledMultiplication)
  OneDimensionalStoreBufferOne
  CreateOneDimensionalFilter(QuickNoise(&C785,&81))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  Radials(&FFFF,&5000,Random(&FFFF,&0),Random(&FFFF,&0),Overwrite,Maximise)
Next
TwoDimensionalEqualization
Dithering(&2000)
MakeSprite
Checksum(&3025)
End

