StartColourDefinition
  Dithering(Zero)
  LinearField(&DCAA,&1)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColoursUsingRGBData
EndColourDefinition

Seed(&1FE)
Phase(&32)
NoiseToBeFiltered(&8B)
CreateTwoDimensionalFilter(Or(ShiftedFractalNoise(&D59A,&159,Noise(&A51,&F61),Noise(&DC8,&3C33)),ShiftedNoise(&298D,ShiftedNoise(&298D,&F0,&8967,&12C4),&8967,&12C4)))
TwoDimensionalTransform
TwoDimensionalEqualization
Dithering(Zero)
MakeSprite
Checksum(&D4FE)
End

