StartColourDefinition
  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
  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)
  OneDimensionalStoreBufferOne
  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)
  CreateColoursUsingHSVData
EndColourDefinition

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

