home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / t / texturegnd / Textures / 3D / AsSilk < prev    next >
Text File  |  1996-10-24  |  1KB  |  48 lines
  1. |
  2. | Black and white stripes
  3. |
  4.  
  5. StartColourDefinition
  6.   Dithering(Zero)
  7.   LinearSegment(&FFFF,&E000,&0,&FFFF,Overwrite)
  8.   LinearSegment(&DFFF,&C000,&FFFF,&0,Overwrite)
  9.   LinearSegment(&BFFF,&A000,&0,&FFFF,Overwrite)
  10.   LinearSegment(&9FFF,&8000,&FFFF,&0,Overwrite)
  11.   LinearSegment(&7FFF,&6000,&0,&FFFF,Overwrite)
  12.   LinearSegment(&5FFF,&4000,&FFFF,&0,Overwrite)
  13.   LinearSegment(&3FFF,&2000,&0,&FFFF,Overwrite)
  14.   LinearSegment(&1FFF,&0,&FFFF,&0,Overwrite)
  15.   OneDimensionalStoreBufferTwo
  16.   OneDimensionalStoreBufferOne
  17.   CreateColoursUsingRGBData
  18. EndColourDefinition
  19.  
  20. |
  21. | Black and white stripey
  22. |
  23. Seed(&84)
  24. Phase(&2E)
  25. NoiseToBeFiltered(&FFFF)
  26. CreateTwoDimensionalFilter(QuickNoise(&D405,&68))
  27. TwoDimensionalTransform
  28. For(&C)
  29.   AddToPercentage(&7)
  30.   CreateOneDimensionalFilter(FractalNoise(&FFFF,&27))
  31.   SmoothOneDimensionalTransform
  32.   HorizontalDistortion(Overwrite)
  33.   CreateOneDimensionalFilter(FractalNoise(&FFFF,&26))
  34.   SmoothOneDimensionalTransform
  35.   VerticalDistortion(Overwrite)
  36. Next
  37. TwoDimensionalEqualization
  38. |
  39. StopMutating
  40. | Use "QuickTwoDimensionalPoint" in the following line to see its aliasing effects...
  41. DefineSolidBlock(TwoDimensionalPoint(Add(Y,Z),X))
  42. Sculpture(ScaledSignedMultiply(SignedCos(X),Absolute(SignedCos(LogicalShiftRight(Y,&1)))),SignedCos(LogicalShiftRight(Y,&1)),ScaledSignedMultiply(SignedSin(X),Absolute(SignedCos(LogicalShiftRight(Y,&1)))))
  43. Dithering(Zero)
  44. MakeSprite
  45. Checksum(&583A)
  46. End
  47.  
  48.