home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / t / texturegnd / Textures / FFT_1D / ManyRipple < prev    next >
Encoding:
Text File  |  1996-11-11  |  1.2 KB  |  45 lines
  1. StartColourDefinition
  2.   Dithering(&0)
  3.   LinearField(&0,&FFFF)
  4.   OneDimensionalStoreBufferTwo
  5.   OneDimensionalStoreBufferOne
  6.   CreateColours(RGB)
  7. EndColourDefinition
  8.  
  9. Seed(&4E5E)
  10. Phase(&2A)
  11. TwoDimensionalClear
  12. LinearField(&2148,&2)
  13. OneDimensionalStoreBufferOne
  14. For(&1)
  15.   AddToPercentage(&B)
  16.   CreateOneDimensionalFilter(QuickNoise(&FF12,&7FD))
  17.   SmoothOneDimensionalTransform
  18.   OneDimensionalMaskBufferOne(ScaledMultiplication)
  19.   Ripples(&F81E,&BD06,Random(&FFFF,&0),Random(&FFFF,&0),Maximise)
  20.   |
  21.   AddToPercentage(&B)
  22.   CreateOneDimensionalFilter(QuickNoise(&39DC,&8AC))
  23.   SmoothOneDimensionalTransform
  24.   OneDimensionalMaskBufferOne(ScaledMultiplication)
  25.   Ripples(&E5AE,&A7C5,Random(&FFFF,&0),Random(&FFFF,&0),Maximise)
  26.   |
  27.   AddToPercentage(&B)
  28.   CreateOneDimensionalFilter(QuickNoise(&D017,&A5D))
  29.   SmoothOneDimensionalTransform
  30.   OneDimensionalMaskBufferOne(ScaledMultiplication)
  31.   Ripples(&FB2E,&73BE,Random(&FFFF,&0),Random(&FFFF,&0),Maximise)
  32.   |
  33.   AddToPercentage(&B)
  34.   CreateOneDimensionalFilter(QuickNoise(&DE8D,&D6A))
  35.   SmoothOneDimensionalTransform
  36.   OneDimensionalMaskBufferOne(ScaledMultiplication)
  37.   Ripples(&FC31,&3FCD,Random(&FFFF,&0),Random(&FFFF,&0),Maximise)
  38. Next
  39. TwoDimensionalEqualization
  40. Dithering(&1E27)
  41. MakeSprite
  42. Checksum(&8415)
  43. End
  44.  
  45.