home *** CD-ROM | disk | FTP | other *** search
- StartColourDefinition
- Dithering(&0)
- LinearField(&8000,&FFFF)
- OneDimensionalStoreBufferTwo
- OneDimensionalStoreBufferOne
- CreateColoursUsingRGBData
- EndColourDefinition
-
- Seed(&B)
- Phase(&2C)
- TwoDimensionalClear
- CreateOneDimensionalFilter(Noise(&FFB5,&3C0))
- SmoothOneDimensionalTransform
- OneDimensionalEqualization
- Ripples(&3FFF,&1000,&100,&100,Maximise)
- Ripples(&FFFF,&1000,&F000,&C00,Maximise)
- Ripples(&FFFF,&F00,&1000,&B000,Maximise)
- SmoothTwoDimensionalTransform
- TwoDimensionalEqualization
- If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&4000) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&2000) Else Dithering(&0)
- MakeSprite
- Checksum(&E4A9)
- End
-