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

Seed(&1159)
Phase(&135)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
LinearField(&8000,&FFFF)
OneDimensionalStoreBufferOne
For(&1)
  CreateOneDimensionalFilter(QuickNoise(&11E,&2E))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  LinearField(&8000,&FFFF)
  Radials(&FFFF,&4800,Random(&2259,&0),Random(&5B3B,&2),Maximise,Maximise)
Next
TwoDimensionalEqualization
Dithering(Zero)
MakeSprite
Checksum(&A604)
End

