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

Seed(&12)
Phase(&35)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
For(&8)
  AddToPercentage(&B)
  LinearField(&FFFF,&2000)
  OneDimensionalStoreBufferOne
  OneDimensionalStoreBufferTwo
  CreateOneDimensionalFilter(QuickNoise(&C785,&BE))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  Radials(&FFFF,&4800,Random(&FFFF,&0),Random(&FFFF,&0),SimpleAddition,SimpleAddition)
Next
TwoDimensionalFilter(&20,&10,&FFE0,&20,&0,&FFE0,&20,&FFF0,&FFE0,SimpleAddition)
TwoDimensionalEqualization
Dithering(&2000)
MakeSprite
Checksum(&220E)
End

