home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 4
/
DATAFILE_PDCD4.iso
/
utilities
/
utilst
/
texturgdn
/
Textures
/
Dust
/
RandRDust2
< prev
Wrap
Text File
|
1996-09-22
|
980b
|
33 lines
StartColourDefinition
Dithering(&0)
LinearField(&0,&4)
LinearFieldSegment(&2,&D5EC,&0,&18F2,SimpleAddition)
LinearFieldSegment(&CB00,&0,&27E6,&4754,SimpleAddition)
LinearFieldSegment(&0,&DE7C,&3482,&5005,SimpleAddition)
LinearFieldSegment(&EA75,&2,&4F69,&A564,SimpleAddition)
LinearFieldSegment(&4,&F754,&63D8,&9FF6,SimpleAddition)
LinearFieldSegment(&D240,&0,&868A,&AEEB,SimpleAddition)
LinearFieldSegment(&0,&E70F,&CE59,&F977,SimpleAddition)
LinearFieldSegment(&FAB2,&2,&E538,&AEB6,SimpleAddition)
OneDimensionalStoreBufferTwo
OneDimensionalStoreBufferOne
CreateColoursUsingRGBData
EndColourDefinition
Seed(&4F30)
Phase(&39)
NoiseToBeFiltered(&F652)
TwoDimensionalClear
LinearField(&15C0,&5)
OneDimensionalStoreBufferOne
For(&5)
Ripples(&FFFF,&C000,Random(&FFFF,&0),Random(&CFFF,&0),Maximise)
Next
TwoDimensionalEqualization
HorizontalShear(&0,Overwrite)
GenerateTwoDimensionalDust(&7000,&0,Overwrite)
Dithering(&300)
MakeSprite
Checksum(&4BDF)
End