home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilst / texturgdn / Textures / 3D / AsSilk < prev    next >
Encoding:
Text File  |  1996-09-22  |  1.4 KB  |  47 lines
  1. |
  2. | Black and white stripes
  3. |
  4.  
  5. StartColourDefinition
  6.   Dithering(&0)
  7.   LinearFieldSegment(&0,&FFFF,&0,&1FFF,Overwrite)
  8.   LinearFieldSegment(&FFFF,&0,&2000,&3FFF,Overwrite)
  9.   LinearFieldSegment(&0,&FFFF,&4000,&5FFF,Overwrite)
  10.   LinearFieldSegment(&FFFF,&0,&6000,&7FFF,Overwrite)
  11.   LinearFieldSegment(&0,&FFFF,&8000,&9FFF,Overwrite)
  12.   LinearFieldSegment(&FFFF,&0,&A000,&BFFF,Overwrite)
  13.   LinearFieldSegment(&0,&FFFF,&C000,&DFFF,Overwrite)
  14.   LinearFieldSegment(&FFFF,&0,&E000,&FFFF,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.   CreateOneDimensionalFilter(FractalNoise(&FFFF,&27))
  30.   SmoothOneDimensionalTransform
  31.   HorizontalDistortion(Overwrite)
  32.   CreateOneDimensionalFilter(FractalNoise(&FFFF,&26))
  33.   SmoothOneDimensionalTransform
  34.   VerticalDistortion(Overwrite)
  35. Next
  36. TwoDimensionalEqualization
  37. |
  38. StopMutating
  39. | Use "QuickTwoDimensionalPoint" in the following line to see its aliasing effects...
  40. DefineSolidBlock(TwoDimensionalPoint(Combine(UnboundedAddition,Y,Z),X))
  41. Sculpture(ScaledSignedMultiply(SignedCos(X),Absolute(SignedCos(LogicalShiftRight(Y,&1)))),SignedCos(LogicalShiftRight(Y,&1)),ScaledSignedMultiply(SignedSin(X),Absolute(SignedCos(LogicalShiftRight(Y,&1)))))
  42. Dithering(&0)
  43. MakeSprite
  44. Checksum(&E5CD)
  45. End
  46.  
  47.