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

|
| Simulated light source for backdrop
| Scaling invariance demonstrated
|
Seed(&8702)
Phase(&24)
NoiseToBeFiltered(&FFFF)
TwoDimensionalClear
CreateOneDimensionalFilter(Noise(&C562,&3EE))
SmoothOneDimensionalTransform
OneDimensionalEqualization
Ripples(&FFFF,&680,&1200,&2400,Maximise)
Ripples(&FFFF,&580,&1800,&1400,Maximise)
Ripples(&FFFF,&7C0,&800,&1400,Maximise)
SmoothTwoDimensionalTransform
TwoDimensionalEqualization
ScaledDithering(&4000)
MakeSprite
Checksum(&612)
End

