home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / t / texturegnd / Textures / FFT_1D / RandRipp2 < prev    next >
Encoding:
Text File  |  1996-11-11  |  1004 b   |  37 lines
  1. StartColourDefinition
  2.   Dithering(&0)
  3.   LinearField(&0,&0)
  4.   LinearSegment(&FFFF,&E000,&0,&FFFF,SimpleAddition)
  5.   LinearSegment(&DFFF,&C000,&FFFF,&0,SimpleAddition)
  6.   LinearSegment(&BFFF,&A000,&0,&FFFF,SimpleAddition)
  7.   LinearSegment(&9FFF,&8000,&FFFF,&0,SimpleAddition)
  8.   LinearSegment(&7FFF,&6000,&0,&FFFF,SimpleAddition)
  9.   LinearSegment(&5FFF,&4000,&FFFF,&0,SimpleAddition)
  10.   LinearSegment(&3FFF,&2000,&0,&FFFF,SimpleAddition)
  11.   LinearSegment(&1FFF,&0,&FFFF,&0,SimpleAddition)
  12.   OneDimensionalStoreBufferTwo
  13.   OneDimensionalStoreBufferOne
  14.   CreateColours(RGB)
  15. EndColourDefinition
  16.  
  17. Seed(&B11)
  18. Phase(&2C)
  19. TwoDimensionalClear
  20. LinearField(&1FFF,&0)
  21. OneDimensionalStoreBufferOne
  22. For(&5)
  23.   AddToPercentage(&F)
  24.   Ripples(&FFFF,&6000,Random(&FFFF,&0),Random(&FFFF,&0),CeilingAddition)
  25. Next
  26. TwoDimensionalEqualization
  27. HorizontalShear(&1,Overwrite)
  28. Dithering(&300)
  29. MakeSprite
  30. Checksum(&230A)
  31. End
  32.  
  33. |
  34. | For fertility.
  35. |
  36. CreateTwoDimensionalFilter(Or(ShiftedFractalNoise(&FD5D,&14B,Noise(&C75,&108C),&AA9),&14CE))
  37.