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