home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 4
/
DATAFILE_PDCD4.iso
/
utilities
/
utilst
/
texturgdn
/
Textures
/
FFT_1D
/
LineDent
< prev
next >
Wrap
Text File
|
1996-09-22
|
2KB
|
56 lines
StartColourDefinition
Dithering(&0)
LinearField(&0,&2)
LinearFieldSegment(&0,&D0DA,&0,&284F,SimpleAddition)
LinearFieldSegment(&E1C3,&2,&BC4,&57B7,SimpleAddition)
LinearFieldSegment(&0,&A1B3,&25DD,&3DA2,SimpleAddition)
LinearFieldSegment(&E971,&0,&8E62,&3189,SimpleAddition)
LinearFieldSegment(&2,&81AB,&2FEB,&644B,SimpleAddition)
LinearFieldSegment(&E617,&0,&E95E,&894B,SimpleAddition)
LinearFieldSegment(&0,&D2EE,&67EE,&7C3F,SimpleAddition)
LinearFieldSegment(&DA4C,&2,&4A52,&B7AE,SimpleAddition)
OneDimensionalStoreBufferTwo
LinearField(&0,&2)
LinearFieldSegment(&2,&A6D2,&4,&E4B,SimpleAddition)
LinearFieldSegment(&C7ED,&2,&126E,&2C52,SimpleAddition)
LinearFieldSegment(&4,&4E89,&18F0,&7D65,SimpleAddition)
LinearFieldSegment(&B184,&2,&EE32,&A691,SimpleAddition)
LinearFieldSegment(&2,&ED09,&C11C,&F5D3,SimpleAddition)
LinearFieldSegment(&E187,&2,&43C4,&DC80,SimpleAddition)
LinearFieldSegment(&0,&E346,&2D47,&AE24,SimpleAddition)
LinearFieldSegment(&704F,&2,&345B,&B2CD,SimpleAddition)
OneDimensionalStoreBufferOne
LinearField(&2,&0)
LinearFieldSegment(&0,&D072,&2,&1FB4,SimpleAddition)
LinearFieldSegment(&7422,&2,&3749,&3B02,SimpleAddition)
LinearFieldSegment(&2,&8197,&4288,&9DD3,SimpleAddition)
LinearFieldSegment(&F045,&2,&8734,&45AF,SimpleAddition)
LinearFieldSegment(&2,&FD09,&4701,&F2BB,SimpleAddition)
LinearFieldSegment(&FA38,&2,&6FD8,&DA69,SimpleAddition)
LinearFieldSegment(&0,&FC14,&E78B,&FBB5,SimpleAddition)
LinearFieldSegment(&C1FF,&0,&4A60,&8BBE,SimpleAddition)
CreateColoursUsingHSVData
EndColourDefinition
Seed(&B)
Phase(&2C)
CreateOneDimensionalFilter(QuickNoise(&8116,&215))
OneDimensionalTransform
HorizontalWaves(Overwrite)
VerticalShear(&2,Overwrite)
CreateOneDimensionalFilter(QuickNoise(&AC24,&76))
OneDimensionalTransform
HorizontalWaves(SimpleAddition)
VerticalShear(&FFFF,Overwrite)
TwoDimensionalEqualization
LinearField(&EFFF,&6000)
OneDimensionalStoreBufferOne
For(&8)
Ripples(&FFFF,&2000,Random(&FFFF,&0),Random(&FFFF,&0),Maximise)
Next
Dithering(&2000)
MakeSprite
Checksum(&5590)
End