home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 4
/
DATAFILE_PDCD4.iso
/
utilities
/
utilst
/
texturgdn
/
Textures
/
WWW
/
RipScl
< prev
next >
Wrap
Text File
|
1996-09-22
|
674b
|
24 lines
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