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
  OneDimensionalStoreBufferOne
  CreateColours(RGB)
EndColourDefinition

Seed(&B11)
Phase(&2C)
TwoDimensionalClear
LinearField(&1FFF,&0)
OneDimensionalStoreBufferOne
For(&5)
  AddToPercentage(&F)
  Ripples(&FFFF,&6000,Random(&FFFF,&0),Random(&FFFF,&0),CeilingAddition)
Next
TwoDimensionalEqualization
HorizontalShear(&1,Overwrite)
Dithering(&300)
MakeSprite
Checksum(&230A)
End

|
| For fertility.
|
CreateTwoDimensionalFilter(Or(ShiftedFractalNoise(&FD5D,&14B,Noise(&C75,&108C),&AA9),&14CE))
