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

Seed(&E002)
Phase(&35)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
For(&2)
  LinearField(&FFFF,&0)
  OneDimensionalStoreBufferOne
  OneDimensionalStoreBufferTwo
  CreateOneDimensionalFilter(QuickNoise(&BC3C,&2E9))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  Radials(&FFFF,&4300,Random(&64B3,&0),Random(&C5DE,&0),Overwrite,Maximise)
Next
TwoDimensionalEqualization
Dithering(&2000)
MakeSprite
Checksum(&1276)
End

