StartColourDefinition
  Seed(&B)
  Phase(&2C)
  Dithering(&0)
  NoiseToBeFiltered(&FFFF)
  LinearField(&0,&FFFF)
  OneDimensionalStoreBufferTwo
  LinearField(&FF3F,&8F63)
  OneDimensionalStoreBufferOne
  LinearField(&FF3F,&2F63)
  CreateColoursUsingHSVData
EndColourDefinition

Seed(&79)
Phase(&2C)
NoiseToBeFiltered(&7B)
CreateTwoDimensionalFilter(Multiply(Noise(&75B0,&11C),ShiftedNoise(&3F00,&12C,&110,&DC)))
TwoDimensionalTransform
CreateOneDimensionalFilter(QuickNoise(&FFE1,&118))
SmoothOneDimensionalTransform
HorizontalDistortion(Overwrite)
TwoDimensionalEqualization
Dithering(&2000)
MakeSprite
Checksum(&789C)
End

