StartColourDefinition
  Dithering(Zero)
  LinearField(&FFFF,&B000)
  OneDimensionalStoreBufferTwo
  LinearField(&FFFF,&C000)
  OneDimensionalStoreBufferOne
  LinearField(&FFFF,&E000)
  CreateColoursUsingRGBData
EndColourDefinition

|
| Turbulence demonstartion
|
Seed(&8C22)
Phase(&2F)
NoiseToBeFiltered(&FEEB)
Percentage(&0)
CreateOneDimensionalFilter(QuickNoise(&8014,&507))
OneDimensionalTransform
HorizontalWaves(Overwrite)
VerticalShear(&2,Overwrite)
CreateOneDimensionalFilter(QuickNoise(&FFFF,&480))
OneDimensionalTransform
HorizontalWaves(Maximise)
VerticalShear(&FFFF,Overwrite)
For(&E)
  AddToPercentage(&6)
  CreateOneDimensionalFilter(FractalNoise(&FFFF,&72))
  SmoothOneDimensionalTransform
  HorizontalDistortion(Overwrite)
  CreateOneDimensionalFilter(FractalNoise(&FFFF,&6A))
  SmoothOneDimensionalTransform
  VerticalDistortion(Overwrite)
Next
TwoDimensionalEqualization
ScaledDithering(&4000)
MakeSprite
Checksum(&9D48)
End

