home *** CD-ROM | disk | FTP | other *** search
- StartColourDefinition
- Dithering(&0)
- LinearField(&8000,&FFFF)
- OneDimensionalStoreBufferTwo
- OneDimensionalStoreBufferOne
- CreateColoursUsingRGBData
- EndColourDefinition
-
- Seed(&7661)
- Phase(&2D)
- TwoDimensionalClear
- CreateOneDimensionalFilter(Noise(&F48B,&2CC))
- SmoothOneDimensionalTransform
- OneDimensionalEqualization
- Ripples(&4933,&E2D,&CD,&B7,Maximise)
- Ripples(&F612,&11F6,&DE89,&10B0,Maximise)
- Ripples(&CB53,&1012,&1433,&C96D,Maximise)
- SmoothTwoDimensionalTransform
- TwoDimensionalEqualization
- If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&4000) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&2000) Else Dithering(&0)
- MakeSprite
- Checksum(&65E9)
- End
-