StartColourDefinition
  Dithering(&1)
  LinearField(&EA47,&B17D)
  OneDimensionalStoreBufferTwo
  LinearField(&F664,&A38B)
  OneDimensionalStoreBufferOne
  LinearField(&A23E,&CF6F)
  CreateColoursUsingRGBData
EndColourDefinition

|
| Turbulence demonstartion
|
Seed(&8C22)
Phase(&2F)
NoiseToBeFiltered(&FEEB)
CreateOneDimensionalFilter(QuickNoise(&DD14,&1E07))
OneDimensionalTransform
HorizontalWaves(Overwrite)
VerticalShear(&2,Overwrite)
CreateOneDimensionalFilter(QuickNoise(&D91E,&4C9))
OneDimensionalTransform
HorizontalWaves(SimpleAddition)
For(&C)
  AddToPercentage(&6)
  CreateOneDimensionalFilter(FractalNoise(&FC69,&72))
  SmoothOneDimensionalTransform
  HorizontalDistortion(Overwrite)
  CreateOneDimensionalFilter(FractalNoise(&F329,&6A))
  SmoothOneDimensionalTransform
  VerticalDistortion(Overwrite)
Next
TwoDimensionalEqualization
ScaledDithering(&4000)
MakeSprite
Checksum(&43D7)
End

