home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / t / texturegnd / Textures / FFT_1D / RandRipp3 < prev    next >
Encoding:
Text File  |  1996-11-11  |  842 b   |  39 lines
  1. StartColourDefinition
  2.   StopAnimating
  3.   Seed(&B)
  4.   Phase(&2C)
  5.   Dithering(&6000)
  6.   DitheringOne(&6000)
  7.   DitheringTwo(&6000)
  8.   NoiseToBeFiltered(&FFFF)
  9.   CreateOneDimensionalFilter(Noise(&7938,&83))
  10.   OneDimensionalTransform
  11.   OneDimensionalEqualization
  12.   OneDimensionalStoreBufferTwo
  13.   LinearField(&FCE3,&FFFF)
  14.   OneDimensionalStoreBufferOne
  15.   LinearField(&8748,&F560)
  16.   CreateColours(HSV)
  17. StartAnimating
  18. EndColourDefinition
  19.  
  20. Seed(&B11)
  21. Phase(&2C)
  22. TwoDimensionalClear
  23. LinearField(&FFFF,&0)
  24. OneDimensionalStoreBufferOne
  25. CreateOneDimensionalFilter(QuickNoise(&F52D,&7B3))
  26. SmoothOneDimensionalTransform
  27. OneDimensionalMaskBufferOne(ScaledMultiplication)
  28. SetVariable(&0,&0)
  29. For(&10)
  30. AddToPercentage(&5)
  31. Ripples(&FFFF,&4000,Random(&FFFF,&0),Random(&FFFF,&0),Maximise)
  32. Next
  33. TwoDimensionalEqualization
  34. Dithering(&80)
  35. MakeSprite
  36. Checksum(&28BB)
  37. End
  38.  
  39.