home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilst / texturgdn / Textures / FFT_1D / RandRipp < prev    next >
Encoding:
Text File  |  1996-09-22  |  701 b   |  32 lines
  1. StartColourDefinition
  2.   Seed(&A13B)
  3.   Dithering(&0)
  4.   DitheringOne(&0)
  5.   DitheringTwo(&2000)
  6.   NoiseToBeFiltered(&C215)
  7.   LinearField(&30E,&9894)
  8.   OneDimensionalStoreBufferTwo
  9.   LinearField(&EC7F,&CC9F)
  10.   OneDimensionalStoreBufferOne
  11.   LinearField(&EEA5,&811A)
  12.   CreateColoursUsingHSVData
  13. EndColourDefinition
  14.  
  15. Seed(&B11)
  16. Phase(&2C)
  17. TwoDimensionalClear
  18. LinearField(&FFFF,&0)
  19. OneDimensionalStoreBufferOne
  20. CreateOneDimensionalFilter(QuickNoise(&F52D,&50B3))
  21. SmoothOneDimensionalTransform
  22. OneDimensionalMaskBufferOne(ScaledMultiplication)
  23. For(&20)
  24.   Ripples(&FFFF,&4000,Random(&FFFF,&0),Random(&CFFF,&0),UnboundedAddition)
  25. Next
  26. TwoDimensionalEqualization
  27. Dithering(&2000)
  28. MakeSprite
  29. Checksum(&C368)
  30. End
  31.  
  32.