home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 4
/
DATAFILE_PDCD4.iso
/
utilities
/
utilst
/
texturgdn
/
Textures
/
WWW
/
TinyStarz
< prev
next >
Wrap
Text File
|
1996-09-22
|
905b
|
29 lines
StartColourDefinition
Dithering(&0)
LinearField(&FFFF,&A400)
OneDimensionalStoreBufferTwo
OneDimensionalStoreBufferOne
CreateColoursUsingRGBData
EndColourDefinition
Seed(&162)
Phase(&35)
NoiseToBeFiltered(&D9C5)
TwoDimensionalClear
SetVariable(&0,Combine(Multiplication,LogicalShiftRight(Size,&4),LogicalShiftRight(Size,&4)))
SetVariable(&1,LogicalShiftLeft(Divide(&1800,Size),&8))
For(Variable(&0))
LinearField(&FFFF,&2000)
OneDimensionalStoreBufferOne
OneDimensionalStoreBufferTwo
CreateOneDimensionalFilter(QuickNoise(&C785,&800))
SmoothOneDimensionalTransform
OneDimensionalEqualization
Radials(&FFFF,Variable(&1),Random(&FFFF,&0),Random(&FFFF,&0),Overwrite,Maximise)
Next
TwoDimensionalEqualization
If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&4000) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&2000) Else Dithering(&0)
MakeSprite
Checksum(&AED1)
End