home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 4
/
DATAFILE_PDCD4.iso
/
utilities
/
utilst
/
texturgdn
/
Textures
/
WWW
/
TinyGroove
< prev
next >
Wrap
Text File
|
1996-09-22
|
784b
|
29 lines
StartColourDefinition
Dithering(&0)
LinearField(&FFFF,&A000)
OneDimensionalStoreBufferTwo
OneDimensionalStoreBufferOne
CreateColoursUsingRGBData
EndColourDefinition
|
| Simulated light source for backdrop
| Scaling invariance demonstrated
|
Seed(&A8BC)
Phase(&24)
NoiseToBeFiltered(&FFFF)
TwoDimensionalClear
CreateOneDimensionalFilter(Noise(Noise(&C562,&3EE),&3EE))
SmoothOneDimensionalTransform
OneDimensionalEqualization
Ripples(&FFFF,&780,&E00,&900,Maximise)
Ripples(&FFFF,&420,&3E00,&C000,Maximise)
Ripples(&FFFF,&7C0,&900,&500,Maximise)
TwoDimensionalTransform
TwoDimensionalContrast(&8000)
If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&4000) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&2000) Else Dithering(&0)
MakeSprite
Checksum(&FF39)
End