StartColourDefinition
  Dithering(&0)
  LinearField(&FFFF,&0)
  OneDimensionalContrast(&800)
  OneDimensionalStoreBufferTwo
  LinearField(&FFFF,&CC00)
  OneDimensionalStoreBufferOne
  LinearField(&7FFF,&FFFF)
  CreateColours(HSV)
EndColourDefinition

Seed(&B11)
Phase(&3A)
NoiseToBeFiltered(&D0BB)
TwoDimensionalClear
LinearField(&19DD,&1)
OneDimensionalStoreBufferOne
For(&5)
  AddToPercentage(&12)
  Ripples(&FFFF,&8000,Random(&FFFF,&0),Random(&FFFF,&0),SimpleAddition)
Next
TwoDimensionalEqualization
HorizontalShear(&0,Overwrite)
Dithering(&300)
MakeSprite
Checksum(&6498)
End

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