home *** CD-ROM | disk | FTP | other *** search
- StartColourDefinition
- Dithering(&0)
- LinearField(&FFFF,&A000)
- OneDimensionalStoreBufferTwo
- OneDimensionalStoreBufferOne
- CreateColoursUsingRGBData
- EndColourDefinition
-
- |
- | Simulated light source for backdrop
- | Scaling invariance demonstrated
- |
- Seed(&8702)
- Phase(&24)
- NoiseToBeFiltered(&FFFF)
- TwoDimensionalClear
- CreateOneDimensionalFilter(Noise(&C562,&3EE))
- SmoothOneDimensionalTransform
- OneDimensionalEqualization
- Ripples(&FFFF,&680,&1200,&2400,Maximise)
- Ripples(&FFFF,&580,&1800,&1400,Maximise)
- Ripples(&FFFF,&7C0,&800,&1400,Maximise)
- SmoothTwoDimensionalTransform
- TwoDimensionalEqualization
- If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&4000) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&2000) Else Dithering(&0)
- MakeSprite
- Checksum(&A763)
- End
-