home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / t / texturegnd / Textures / FFT_1D / BrickWork < prev    next >
Encoding:
Text File  |  1996-11-11  |  1.1 KB  |  48 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.   CreateColours(HSV)
  11. EndColourDefinition
  12.  
  13. |
  14. | Simulated brickwork
  15. |
  16. Seed(&F1F5)
  17. Phase(&3C)
  18. NoiseToBeFiltered(&7E48)
  19. Percentage(&0)
  20. CreateOneDimensionalFilter(QuickNoise(&BFC0,&17A))
  21. OneDimensionalTransform
  22. OneDimensionalEqualization
  23. OneDimensionalStoreBufferOne
  24. AddToPercentage(&A)
  25. CreateOneDimensionalFilter(Noise(&F059,&16D))
  26. SmoothOneDimensionalTransform
  27. OneDimensionalContrast(&850)
  28. OneDimensionalShift(&1B8F,SimpleSubtraction)
  29. HorizontalWaveWarp(Overwrite)
  30. HorizontalShear(&1,SimpleAddition)
  31. HorizontalWaveWarp(SimpleAddition)
  32. SetVariable(&1,&0)
  33. SetVariable(&0,&0)
  34. For(&7)
  35.   For(&3)
  36.     AddToPercentage(&2)
  37.     Rectangle(&3BBB,Variable(&0),Variable(&1),Add(Variable(&0),&3800),Combine(UnboundedAddition,Variable(&1),&1800),Minimise)
  38.     SetVariable(&0,Add(Variable(&0),&4000))
  39.   Next
  40.   SetVariable(&0,Add(Variable(&0),&2000))
  41.   SetVariable(&1,Add(Variable(&1),&2000))
  42. Next
  43. Dithering(&2800)
  44. MakeSprite
  45. Checksum(&85B0)
  46. End
  47.  
  48.