StartColourDefinition
  Dithering(Zero)
  LinearField(&3F78,&189)
  OneDimensionalStoreBufferTwo
  LinearField(&E061,&DF6F)
  OneDimensionalStoreBufferOne
  LinearField(&E535,&6CAE)
  CreateColours(HSV)
EndColourDefinition

Seed(&B)
Phase(&2C)
NoiseToBeFiltered(&FFFF)
Percentage(&0)
CreateOneDimensionalFilter(QuickNoise(&FFFF,&15F))
OneDimensionalTransform
HorizontalWaves(Overwrite)
VerticalShear(&2,Overwrite)
CreateOneDimensionalFilter(QuickNoise(&F52D,&180))
OneDimensionalTransform
HorizontalWaves(SimpleAddition)
VerticalShear(&FFFF,Overwrite)
TwoDimensionalContrast(&1000)
For(&8)
  AddToPercentage(&C)
  CreateOneDimensionalFilter(QuickNoise(&FFFF,&11F))
  SmoothOneDimensionalTransform
  HorizontalDistortion(Overwrite)
  CreateOneDimensionalFilter(QuickNoise(&FFFF,&11F))
  SmoothOneDimensionalTransform
  VerticalDistortion(Overwrite)
Next
ScaledDithering(&4000)
MakeSprite
Checksum(&4D22)
End

