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

|
| Scaling invariance demonstrated
|
Seed(&A8BC)
Phase(&24)
NoiseToBeFiltered(&FFFF)
TwoDimensionalClear
CreateOneDimensionalFilter(Noise(Noise(&C562,&3EE),&3EE))
SmoothOneDimensionalTransform
OneDimensionalEqualization
Ripples(&FFFF,&780,&E00,&900,Maximise)
Ripples(&FFFF,&420,&3E00,&C000,Maximise)
Ripples(&FFFF,&7C0,&900,&500,Maximise)
TwoDimensionalTransform
TwoDimensionalContrast(&8000)
ScaledDithering(&4000)
MakeSprite
Checksum(&EDE8)
End

