StartColourDefinition
  Seed(&84)
  Phase(&33)
  Dithering(&0)
  LinearField(&0,&0)
  LinearSegment(&FFFF,&E000,&0,&FFFF,SimpleAddition)
  LinearSegment(&DFFF,&C000,&FFFF,&0,SimpleAddition)
  LinearSegment(&BFFF,&A000,&0,&FFFF,SimpleAddition)
  LinearSegment(&9FFF,&8000,&FFFF,&0,SimpleAddition)
  LinearSegment(&7FFF,&6000,&0,&FFFF,SimpleAddition)
  LinearSegment(&5FFF,&4000,&FFFF,&0,SimpleAddition)
  LinearSegment(&3FFF,&2000,&0,&FFFF,SimpleAddition)
  LinearSegment(&1FFF,&0,&FFFF,&0,SimpleAddition)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColoursUsingRGBData
EndColourDefinition

Seed(&EFC3)
Phase(&31)
NoiseToBeFiltered(&E579)
Percentage(&0)
CreateTwoDimensionalFilter(QuickNoise(&F6A8,&99))
TwoDimensionalTransform
For(&2)
  AddToPercentage(&F)
  CreateOneDimensionalFilter(FractalNoise(&E342,&D))
  SmoothOneDimensionalTransform
  HorizontalDistortion(Overwrite)
  AddToPercentage(&F)
  CreateOneDimensionalFilter(FractalNoise(&BE60,&C))
  SmoothOneDimensionalTransform
  VerticalDistortion(Overwrite)
Next
TwoDimensionalEqualization
Dithering(&600)
MakeSprite
Checksum(&CD46)
End

