StartColourDefinition
  Dithering(Zero)
  LinearField(&0,&0)
  LinearSegment(&FFFF,&F000,&0,&FFFF,SimpleAddition)
  LinearSegment(&EFFF,&E000,&FFFF,&0,SimpleAddition)
  LinearSegment(&DFFF,&D000,&0,&FFFF,SimpleAddition)
  LinearSegment(&CFFF,&C000,&FFFF,&0,SimpleAddition)
  LinearSegment(&BFFF,&B000,&0,&FFFF,SimpleAddition)
  LinearSegment(&AFFF,&A000,&FFFF,&0,SimpleAddition)
  LinearSegment(&9FFF,&9000,&0,&FFFF,SimpleAddition)
  LinearSegment(&8FFF,&8000,&FFFF,&0,SimpleAddition)
  LinearSegment(&7FFF,&7000,&0,&FFFF,SimpleAddition)
  LinearSegment(&6FFF,&6000,&FFFF,&0,SimpleAddition)
  LinearSegment(&5FFF,&5000,&0,&FFFF,SimpleAddition)
  LinearSegment(&4FFF,&4000,&FFFF,&0,SimpleAddition)
  LinearSegment(&3FFF,&3000,&0,&FFFF,SimpleAddition)
  LinearSegment(&2FFF,&2000,&FFFF,&0,SimpleAddition)
  LinearSegment(&1FFF,&1000,&0,&FFFF,SimpleAddition)
  LinearSegment(&FFF,&0,&FFFF,&0,SimpleAddition)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColoursUsingRGBData
EndColourDefinition

Seed(&84)
Phase(&B80)
NoiseToBeFiltered(&FFFF)
Percentage(&0)
CreateCosineArtefacts(&FFFF)
CreateCosineSymmetry
CreateTwoDimensionalFilter(QuickNoise(&FFFF,&49))
TwoDimensionalTransform
For(&40)
  AddToPercentage(&1)
  TwoDimensionalEqualization
  TwoDimensionalFilter(&18,&18,&18,&18,&18,&18,&18,&18,&18,Overwrite)
Next
Percentage(&63)
TwoDimensionalEqualization
Dithering(Zero)
MakeSprite
Checksum(&5D28)
End

