home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 4
/
DATAFILE_PDCD4.iso
/
utilities
/
utilst
/
texturgdn
/
Textures
/
WWW
/
FineNot
< prev
next >
Wrap
Text File
|
1996-09-22
|
1KB
|
44 lines
StartColourDefinition
Dithering(&0)
LinearField(&FFFF,&A000)
OneDimensionalStoreBufferTwo
OneDimensionalStoreBufferOne
CreateColoursUsingRGBData
EndColourDefinition
Seed(&699D)
Phase(&1A)
NoiseToBeFiltered(&949F)
CreateOneDimensionalFilter(QuickNoise(&D37A,&F8))
OneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(FractalNoise(&BCFE,&2E))
SmoothOneDimensionalTransform
OneDimensionalContrast(&419)
HorizontalWaveWarp(Overwrite)
VerticalShear(&2,Overwrite)
HorizontalShear(&1,Overwrite)
CreateOneDimensionalFilter(Noise(&81B0,&168))
SmoothOneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(Noise(&7EFA,&E5))
SmoothOneDimensionalTransform
OneDimensionalContrast(&20C)
VerticalWaveWarp(SimpleAddition)
HorizontalShear(&FFFC,Overwrite)
CreateOneDimensionalFilter(Noise(&C901,&10B))
SmoothOneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(Noise(&F4DB,&102))
SmoothOneDimensionalTransform
OneDimensionalContrast(&1D4)
HorizontalWaveWarp(SimpleAddition)
HorizontalShear(&3,Overwrite)
If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&4000) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&2000) Else Dithering(&0)
MakeSprite
Checksum(&7F8D)
End