home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 5
/
DATAFILE_PDCD5.iso
/
utilities
/
t
/
texturegnd
/
Textures
/
3D
/
Whirlpool
< prev
next >
Wrap
Text File
|
1996-10-20
|
1KB
|
48 lines
StartColourDefinition
Dithering(&0)
LinearField(&FFFF,&0)
OneDimensionalStoreBufferTwo
OneDimensionalStoreBufferOne
CreateColoursUsingRGBData
EndColourDefinition
Seed(&699D)
Phase(&20)
NoiseToBeFiltered(&8855)
CreateOneDimensionalFilter(QuickNoise(&C1F8,&C5))
OneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(FractalNoise(&D37D,&36))
SmoothOneDimensionalTransform
OneDimensionalContrast(&333)
HorizontalWaveWarp(Overwrite)
VerticalShear(&0,Overwrite)
HorizontalShear(&FFFF,Overwrite)
CreateOneDimensionalFilter(Noise(&94AF,&16C))
SmoothOneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(Noise(&6A34,&F0))
SmoothOneDimensionalTransform
OneDimensionalContrast(&1EC)
VerticalWaveWarp(SimpleAddition)
HorizontalShear(&FFFE,Overwrite)
CreateOneDimensionalFilter(Noise(&A50D,&EC))
SmoothOneDimensionalTransform
OneDimensionalEqualization
OneDimensionalStoreBufferOne
CreateOneDimensionalFilter(Noise(&D394,&157))
SmoothOneDimensionalTransform
OneDimensionalContrast(&248)
HorizontalWaveWarp(SimpleAddition)
HorizontalShear(&3,Overwrite)
|
StopMutating
DefineSolidBlock(TwoDimensionalPoint(Add(Y,Z),X))
Sculpture(ScaledMultiply(Cos(X),Cos(Y)),Sin(Y),Combine(ScaledMultiplication,Sin(X),Cos(Y)))
Dithering(&2000)
MakeSprite
Checksum(&E1E)
End