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

Seed(&162)
Phase(&35)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
Percentage(&14)
For(&50)
  AddToPercentage(&1)
  LinearField(&FFFF,&2000)
  OneDimensionalStoreBufferOne
  OneDimensionalStoreBufferTwo
  CreateOneDimensionalFilter(QuickNoise(&C785,&800))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  Radials(&FFFF,&3000,Random(&FFFF,&0),Random(&FFFF,&0),Overwrite,Maximise)
Next
TwoDimensionalEqualization
Dithering(&2000)
MakeSprite
Checksum(&1A06)
End

