home *** CD-ROM | disk | FTP | other *** search
- StartColourDefinition
- Dithering(&0)
- LinearField(&8000,&FFFF)
- OneDimensionalStoreBufferTwo
- OneDimensionalStoreBufferOne
- CreateColoursUsingRGBData
- EndColourDefinition
-
- Seed(&B)
- Phase(&27)
- TwoDimensionalClear
- CreateOneDimensionalFilter(Noise(&D664,&38C))
- SmoothOneDimensionalTransform
- OneDimensionalEqualization
- Ripples(&7074,&C10,&C7,&DD,Maximise)
- Ripples(&FAA7,&1006,&CAAD,&DD1,Maximise)
- Ripples(&F342,&E35,&12E3,&B398,Maximise)
- SmoothTwoDimensionalTransform
- TwoDimensionalEqualization
- If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&4000) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&2000) Else Dithering(&0)
- MakeSprite
- Checksum(&37EF)
- End
-