home *** CD-ROM | disk | FTP | other *** search
- StartColourDefinition
- Dithering(&0)
- LinearField(&FFFF,&A000)
- OneDimensionalStoreBufferTwo
- OneDimensionalStoreBufferOne
- CreateColoursUsingRGBData
- EndColourDefinition
-
- |
- | Turbulence demonstartion
- |
- Seed(&B)
- Phase(&39)
- NoiseToBeFiltered(&E8A1)
- CreateOneDimensionalFilter(QuickNoise(&E5CB,&14BF))
- OneDimensionalTransform
- HorizontalWaves(Overwrite)
- VerticalShear(&1,Overwrite)
- CreateOneDimensionalFilter(QuickNoise(&B50F,&E6))
- OneDimensionalTransform
- HorizontalWaves(SimpleAddition)
- For(&10)
- CreateOneDimensionalFilter(FractalNoise(&C5FF,&44))
- SmoothOneDimensionalTransform
- HorizontalDistortion(Overwrite)
- CreateOneDimensionalFilter(FractalNoise(&F63A,&34))
- SmoothOneDimensionalTransform
- VerticalDistortion(Overwrite)
- Next
- TwoDimensionalEqualization
- If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&4000) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&2000) Else Dithering(&0)
- MakeSprite
- Checksum(&4C4)
- End
-