StartColourDefinition
Seed(&B)
Phase(&2C)
Dithering(&1000)
NoiseToBeFiltered(&FFFF)
LinearField(&FCE3,&FFF)
OneDimensionalStoreBufferTwo
LinearField(&CE3,&FFE0)
OneDimensionalStoreBufferOne
LinearField(&5248,&F556)
CreateColoursUsingHSVData
EndColourDefinition

Seed(&79)
Phase(&2C)
NoiseToBeFiltered(&7B)
CreateTwoDimensionalFilter(ShiftedSymmetricQuickNoise(&7403,&83,&BD,&B3))
TwoDimensionalTransform
LeadingDiagonalMirror(HalvingAddition)
TrailingDiagonalMirror(HalvingAddition)
TwoDimensionalEqualization
Dithering(&3000)
MakeSprite
Checksum(&FC43)
End



