home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilst / texturgdn / Textures / FFT_1D / BrickWork < prev    next >
Text File  |  1996-09-22  |  1KB  |  45 lines
  1. StartColourDefinition
  2.   Dithering(&300)
  3.   DitheringOne(&600)
  4.   DitheringTwo(&600)
  5.   LinearField(&1,&3F3A)
  6.   OneDimensionalStoreBufferTwo
  7.   LinearField(&F09A,&954E)
  8.   OneDimensionalStoreBufferOne
  9.   LinearField(&F63E,&A202)
  10.   CreateColoursUsingHSVData
  11. EndColourDefinition
  12.  
  13. |
  14. | Simulated brickwork
  15. |
  16. Seed(&F1F5)
  17. Phase(&3C)
  18. NoiseToBeFiltered(&7E48)
  19. CreateOneDimensionalFilter(QuickNoise(&BFC0,&17A))
  20. OneDimensionalTransform
  21. OneDimensionalEqualization
  22. OneDimensionalStoreBufferOne
  23. CreateOneDimensionalFilter(Noise(&F059,&16D))
  24. SmoothOneDimensionalTransform
  25. OneDimensionalContrast(&850)
  26. OneDimensionalShift(&1B8F,SimpleSubtraction)
  27. HorizontalWaveWarp(Overwrite)
  28. HorizontalShear(&1,SimpleAddition)
  29. HorizontalWaveWarp(SimpleAddition)
  30. SetVariable(&1,&0)
  31. SetVariable(&0,&0)
  32. For(&7)
  33.   For(&3)
  34.     Rectangle(&3BBB,Variable(&0),Variable(&1),Combine(UnboundedAddition,Variable(&0),&3800),Combine(UnboundedAddition,Variable(&1),&1800),Minimise)
  35.     SetVariable(&0,Combine(UnboundedAddition,Variable(&0),&4000))
  36.   Next
  37.   SetVariable(&0,Combine(UnboundedAddition,Variable(&0),&2000))
  38.   SetVariable(&1,Combine(UnboundedAddition,Variable(&1),&2000))
  39. Next
  40. Dithering(&2800)
  41. MakeSprite
  42. Checksum(&C6B8)
  43. End
  44.  
  45.