home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilst / texturgdn / Textures / FFT_1D / RandRipp2 < prev    next >
Text File  |  1996-09-22  |  915b  |  32 lines
  1. StartColourDefinition
  2.   Dithering(&0)
  3.   LinearField(&0,&0)
  4.   LinearFieldSegment(&0,&FFFF,&0,&1FFF,SimpleAddition)
  5.   LinearFieldSegment(&FFFF,&0,&2000,&3FFF,SimpleAddition)
  6.   LinearFieldSegment(&0,&FFFF,&4000,&5FFF,SimpleAddition)
  7.   LinearFieldSegment(&FFFF,&0,&6000,&7FFF,SimpleAddition)
  8.   LinearFieldSegment(&0,&FFFF,&8000,&9FFF,SimpleAddition)
  9.   LinearFieldSegment(&FFFF,&0,&A000,&BFFF,SimpleAddition)
  10.   LinearFieldSegment(&0,&FFFF,&C000,&DFFF,SimpleAddition)
  11.   LinearFieldSegment(&FFFF,&0,&E000,&FFFF,SimpleAddition)
  12.   OneDimensionalStoreBufferTwo
  13.   OneDimensionalStoreBufferOne
  14.   CreateColoursUsingRGBData
  15. EndColourDefinition
  16.  
  17. Seed(&B11)
  18. Phase(&2C)
  19. TwoDimensionalClear
  20. LinearField(&1FFF,&0)
  21. OneDimensionalStoreBufferOne
  22. For(&5)
  23.   Ripples(&FFFF,&6000,Random(&FFFF,&0),Random(&FFFF,&0),CeilingAddition)
  24. Next
  25. TwoDimensionalEqualization
  26. HorizontalShear(&1,Overwrite)
  27. Dithering(&300)
  28. MakeSprite
  29. Checksum(&4E43)
  30. End
  31.  
  32.