home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 5
/
DATAFILE_PDCD5.iso
/
utilities
/
t
/
texturegnd
/
Textures
/
3D
/
AsSilk
< prev
next >
Wrap
Text File
|
1996-10-24
|
1KB
|
48 lines
|
| Black and white stripes
|
StartColourDefinition
Dithering(Zero)
LinearSegment(&FFFF,&E000,&0,&FFFF,Overwrite)
LinearSegment(&DFFF,&C000,&FFFF,&0,Overwrite)
LinearSegment(&BFFF,&A000,&0,&FFFF,Overwrite)
LinearSegment(&9FFF,&8000,&FFFF,&0,Overwrite)
LinearSegment(&7FFF,&6000,&0,&FFFF,Overwrite)
LinearSegment(&5FFF,&4000,&FFFF,&0,Overwrite)
LinearSegment(&3FFF,&2000,&0,&FFFF,Overwrite)
LinearSegment(&1FFF,&0,&FFFF,&0,Overwrite)
OneDimensionalStoreBufferTwo
OneDimensionalStoreBufferOne
CreateColoursUsingRGBData
EndColourDefinition
|
| Black and white stripey
|
Seed(&84)
Phase(&2E)
NoiseToBeFiltered(&FFFF)
CreateTwoDimensionalFilter(QuickNoise(&D405,&68))
TwoDimensionalTransform
For(&C)
AddToPercentage(&7)
CreateOneDimensionalFilter(FractalNoise(&FFFF,&27))
SmoothOneDimensionalTransform
HorizontalDistortion(Overwrite)
CreateOneDimensionalFilter(FractalNoise(&FFFF,&26))
SmoothOneDimensionalTransform
VerticalDistortion(Overwrite)
Next
TwoDimensionalEqualization
|
StopMutating
| Use "QuickTwoDimensionalPoint" in the following line to see its aliasing effects...
DefineSolidBlock(TwoDimensionalPoint(Add(Y,Z),X))
Sculpture(ScaledSignedMultiply(SignedCos(X),Absolute(SignedCos(LogicalShiftRight(Y,&1)))),SignedCos(LogicalShiftRight(Y,&1)),ScaledSignedMultiply(SignedSin(X),Absolute(SignedCos(LogicalShiftRight(Y,&1)))))
Dithering(Zero)
MakeSprite
Checksum(&583A)
End