StartColourDefinition
  Dithering(&0)
  OneDimensionalClear
  LinearField(&4000,&FFFF)
LinearSegment(&4FFF,&0,&E800,&A000,Overwrite)
  OneDimensionalStoreBufferTwo
  OneDimensionalStoreBufferOne
  CreateColoursUsingRGBData
EndColourDefinition

|
| Scaling invariance demonstrated
|
Seed(&FE29)
Phase(&29)
NoiseToBeFiltered(&DE78)
TwoDimensionalClear
Rectangle(&6000,&1,&1,&AF3,&227D,Overwrite)
Rectangle(&6000,&1,&1,&1CE9,&8C7,Overwrite)
Rectangle(&FFFF,&FC00,&FA00,&C00,&D00,Overwrite)
TwoDimensionalTransform
TwoDimensionalEqualization
Dithering(&4000)
MakeSprite
Checksum(&BE00)
End

