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

Seed(&1512)
Phase(&35)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
LinearField(&FFFF,&C000)
OneDimensionalStoreBufferOne
For(&2)
  CreateOneDimensionalFilter(QuickNoise(&C785,&5BE))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  LinearField(&FFFF,&C000)
  Radials(&FFFF,&4800,Random(&FFFF,&0),Random(&FFFF,&0),Maximise,Maximise)
Next
TwoDimensionalEqualization
Dithering(Zero)
MakeSprite
Checksum(&FE97)
End

