home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / t / texturegnd / Textures / FFT_2D / ~B+WTurb < prev    next >
Encoding:
Text File  |  1996-10-24  |  1.1 KB  |  41 lines
  1. StartColourDefinition
  2.   Seed(&84)
  3.   Phase(&33)
  4.   Dithering(&0)
  5.   LinearField(&0,&0)
  6.   LinearSegment(&FFFF,&E000,&0,&FFFF,SimpleAddition)
  7.   LinearSegment(&DFFF,&C000,&FFFF,&0,SimpleAddition)
  8.   LinearSegment(&BFFF,&A000,&0,&FFFF,SimpleAddition)
  9.   LinearSegment(&9FFF,&8000,&FFFF,&0,SimpleAddition)
  10.   LinearSegment(&7FFF,&6000,&0,&FFFF,SimpleAddition)
  11.   LinearSegment(&5FFF,&4000,&FFFF,&0,SimpleAddition)
  12.   LinearSegment(&3FFF,&2000,&0,&FFFF,SimpleAddition)
  13.   LinearSegment(&1FFF,&0,&FFFF,&0,SimpleAddition)
  14.   OneDimensionalStoreBufferTwo
  15.   OneDimensionalStoreBufferOne
  16.   CreateColoursUsingRGBData
  17. EndColourDefinition
  18.  
  19. Seed(&EFC3)
  20. Phase(&31)
  21. NoiseToBeFiltered(&E579)
  22. Percentage(&0)
  23. CreateTwoDimensionalFilter(QuickNoise(&F6A8,&99))
  24. TwoDimensionalTransform
  25. For(&2)
  26.   AddToPercentage(&F)
  27.   CreateOneDimensionalFilter(FractalNoise(&E342,&D))
  28.   SmoothOneDimensionalTransform
  29.   HorizontalDistortion(Overwrite)
  30.   AddToPercentage(&F)
  31.   CreateOneDimensionalFilter(FractalNoise(&BE60,&C))
  32.   SmoothOneDimensionalTransform
  33.   VerticalDistortion(Overwrite)
  34. Next
  35. TwoDimensionalEqualization
  36. Dithering(&600)
  37. MakeSprite
  38. Checksum(&CD46)
  39. End
  40.  
  41.