StartColourDefinition
  Dithering(Zero)
  LinearField(&FFFF,&A400)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColoursUsingRGBData
EndColourDefinition

Seed(&162)
Phase(&35)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
SetVariable(&0,Multiply(LogicalShiftRight(Size,&4),LogicalShiftRight(Size,&4)))
SetVariable(&1,LogicalShiftLeft(Divide(&1800,Size),&8))
Percentage(Subtract(&64,Variable(&0)))
For(Variable(&0))
  AddToPercentage(&1)
  LinearField(&FFFF,&2000)
  OneDimensionalStoreBufferOne
  OneDimensionalStoreBufferTwo
  CreateOneDimensionalFilter(QuickNoise(&C785,&800))
  SmoothOneDimensionalTransform
  OneDimensionalEqualization
  Radials(&FFFF,Variable(&1),Random(&FFFF,&0),Random(&FFFF,&0),Overwrite,Maximise)
Next
TwoDimensionalEqualization
ScaledDithering(&4000)
MakeSprite
Checksum(&AF7F)
End

