StartColourDefinition
  Dithering(Zero)
  LinearField(&0,&2)
  LinearSegment(&FFFF,&D7B0,&0,&D0DA,SimpleAddition)
  LinearSegment(&F43B,&A848,&E1C3,&2,SimpleAddition)
  LinearSegment(&DA22,&C25D,&0,&A1B3,SimpleAddition)
  LinearSegment(&719D,&CE76,&E971,&0,SimpleAddition)
  LinearSegment(&D014,&9BB4,&2,&81AB,SimpleAddition)
  LinearSegment(&16A1,&76B4,&E617,&0,SimpleAddition)
  LinearSegment(&9811,&83C0,&0,&D2EE,SimpleAddition)
  LinearSegment(&B5AD,&4851,&DA4C,&2,SimpleAddition)
  OneDimensionalStoreBufferTwo
  LinearField(&0,&2)
  LinearSegment(&FFFB,&F1B4,&2,&A6D2,SimpleAddition)
  LinearSegment(&ED91,&D3AD,&C7ED,&2,SimpleAddition)
  LinearSegment(&E70F,&829A,&4,&4E89,SimpleAddition)
  LinearSegment(&11CD,&596E,&B184,&2,SimpleAddition)
  LinearSegment(&3EE3,&A2C,&2,&ED09,SimpleAddition)
  LinearSegment(&BC3B,&237F,&E187,&2,SimpleAddition)
  LinearSegment(&D2B8,&51DB,&0,&E346,SimpleAddition)
  LinearSegment(&CBA4,&4D32,&704F,&2,SimpleAddition)
  OneDimensionalStoreBufferOne
  LinearField(&2,&0)
  LinearSegment(&FFFD,&E04B,&0,&D072,SimpleAddition)
  LinearSegment(&C8B6,&C4FD,&7422,&2,SimpleAddition)
  LinearSegment(&BD77,&622C,&2,&8197,SimpleAddition)
  LinearSegment(&78CB,&BA50,&F045,&2,SimpleAddition)
  LinearSegment(&B8FE,&D44,&2,&FD09,SimpleAddition)
  LinearSegment(&9027,&2596,&FA38,&2,SimpleAddition)
  LinearSegment(&1874,&44A,&0,&FC14,SimpleAddition)
  LinearSegment(&B59F,&7441,&C1FF,&0,SimpleAddition)
  CreateColoursUsingHSVData
EndColourDefinition

|
| Think Pink
|
Seed(&4782)
Phase(&1B)
NoiseToBeFiltered(&84)
CreateCosineArtefacts(&BA10)
CreateCosineSymmetry
CreateTwoDimensionalFilter(PinkNoise(&BF19,&1F6))
TwoDimensionalTransform
TwoDimensionalEqualization
Dithering(&17B9)
MakeSprite

StartColourDefinition
  Dithering(Zero)
  LinearField(&0,&FFFF)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColoursUsingRGBData
EndColourDefinition

Seed(&46)
TwoDimensionalClear
LinearField(&E627,&0)
For(&8)
  Ripples(&F422,&206D,Random(&D3CF,&1),Random(&EAB7,&1),Maximise)
Next
Dithering(&1)
AddToSprite
Checksum(&4A25)
End

