home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 4
/
DATAFILE_PDCD4.iso
/
utilities
/
utilst
/
texturgdn
/
Textures
/
WWW
/
SandyFY
< prev
next >
Wrap
Text File
|
1996-09-22
|
1KB
|
43 lines
StartColourDefinition
Dithering(&1)
LinearField(&EA47,&B17D)
OneDimensionalStoreBufferTwo
LinearField(&F664,&A38B)
OneDimensionalStoreBufferOne
LinearField(&A23E,&CF6F)
CreateColoursUsingRGBData
EndColourDefinition
|
| Turbulence demonstartion
|
Seed(&8C22)
Phase(&2F)
NoiseToBeFiltered(&FEEB)
CreateOneDimensionalFilter(QuickNoise(&DD14,&1E07))
OneDimensionalTransform
HorizontalWaves(Overwrite)
VerticalShear(&2,Overwrite)
CreateOneDimensionalFilter(QuickNoise(&D91E,&4C9))
OneDimensionalTransform
HorizontalWaves(SimpleAddition)
For(&C)
CreateOneDimensionalFilter(FractalNoise(&FC69,&72))
SmoothOneDimensionalTransform
HorizontalDistortion(Overwrite)
CreateOneDimensionalFilter(FractalNoise(&F329,&6A))
SmoothOneDimensionalTransform
VerticalDistortion(Overwrite)
Next
TwoDimensionalEqualization
If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&4482) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&1F68) Else Dithering(&0)
| Due to the following "resize" code the sprite still tessellates seamlessly despite its resize.
TwoDimensionalProcess(&0,&0,&0,&0,TwoDimensionalPoint(PartlyScaledMultiply(&413A,LogicalShiftRight(X,&5)),PartlyScaledMultiply(&416D,LogicalShiftRight(Y,&5))),Overwrite)
TwoDimensionalShift(&8FAE,&659E,Overwrite)
MakeSprite
TruncateSpriteHorizontally(&0,&CCCC)
TruncateSpriteVertically(&0,&CCCC)
Checksum(&768B)
End