StartColourDefinition
  Seed(&1D)
  Dithering(&2000)
  LinearField(&FBB6,&1)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColours(RGB)
EndColourDefinition

Seed(&B)
Phase(&2D)
NoiseToBeFiltered(&B2EF)
CreateOneDimensionalFilter(QuickNoise(&B6E2,&F4))
OneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(Noise(&F43A,&1D6))
SmoothOneDimensionalTransform
OneDimensionalContrast(&11D)
HorizontalWaveWarp(Overwrite)
HorizontalShear(&1,Overwrite)
HorizontalWaveWarp(SimpleAddition)
Dithering(&3000)
MakeSprite
Checksum(&EDF)
End

