StartColourDefinition
  Dithering(Zero)
  LinearField(&F4E7,&C8C3)
  OneDimensionalStoreBufferTwo
  LinearField(&F800,&B892)
  OneDimensionalStoreBufferOne
  LinearField(&D800,&E8D9)
  CreateColoursUsingRGBData
EndColourDefinition

|
| Turbulence demonstartion
|
Seed(&8C22)
Phase(&2D)
NoiseToBeFiltered(&D6F8)
Percentage(&0)
CreateOneDimensionalFilter(QuickNoise(&FF62,&1893))
OneDimensionalTransform
HorizontalWaves(Overwrite)
VerticalShear(&1,Overwrite)
CreateOneDimensionalFilter(QuickNoise(&F2DE,&4D3))
OneDimensionalTransform
HorizontalWaves(SimpleAddition)
For(&C)
  AddToPercentage(&7)
  CreateOneDimensionalFilter(FractalNoise(&F47E,&66))
  SmoothOneDimensionalTransform
  HorizontalDistortion(Overwrite)
  CreateOneDimensionalFilter(FractalNoise(&F337,&5A))
  SmoothOneDimensionalTransform
  VerticalDistortion(Overwrite)
Next
TwoDimensionalEqualization
ScaledDithering(&4000)
MakeSprite
Checksum(&CA9B)
End

