StartColourDefinition
Seed(&B)
Phase(&2C)
Dithering(&1000)
NoiseToBeFiltered(&FFFF)
LinearField(&F5EF,&7978)
OneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferTwo
LinearField(&ADD7,&7B58)
OneDimensionalStoreBufferOne
LinearField(&EC09,&BD5)
CreateColoursUsingHSVData
EndColourDefinition

Seed(&79)
Phase(&2C)
NoiseToBeFiltered(&7B)
CreateCosineArtefacts(&639C)
CreateTwoDimensionalFilter(ShiftedFractalNoise(&F320,&F,Noise(&47,&AE),Noise(&DD,&223)))
TwoDimensionalTransform
TwoDimensionalEqualization
HorizontalShear(&FFFF,Overwrite)
Dithering(&2000)
MakeSprite
Checksum(&C459)
End



