StartColourDefinition
  Dithering(&0)
  LinearField(&3D1,&C090)
  OneDimensionalStoreBufferTwo
  LinearField(&848B,&A727)
  OneDimensionalStoreBufferOne
  LinearField(&1,&FF0F)
  CreateColoursUsingHSVData
EndColourDefinition

Seed(&112)
Phase(&35)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
LinearField(&0,&FFFF)
OneDimensionalStoreBufferOne
For(&2)
  CreateOneDimensionalFilter(QuickNoise(&C785,&5BE))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  Radials(&FFFF,&4800,Random(&FFFF,&0),Random(&FFFF,&0),Overwrite,Maximise)
Next
TwoDimensionalEqualization
Dithering(&2000)
MakeSprite
Checksum(&5692)
End

