home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilst / texturgdn / Textures / Dust / RandRDust2 < prev   
Encoding:
Text File  |  1996-09-22  |  980 b   |  33 lines
  1. StartColourDefinition
  2.   Dithering(&0)
  3.   LinearField(&0,&4)
  4.   LinearFieldSegment(&2,&D5EC,&0,&18F2,SimpleAddition)
  5.   LinearFieldSegment(&CB00,&0,&27E6,&4754,SimpleAddition)
  6.   LinearFieldSegment(&0,&DE7C,&3482,&5005,SimpleAddition)
  7.   LinearFieldSegment(&EA75,&2,&4F69,&A564,SimpleAddition)
  8.   LinearFieldSegment(&4,&F754,&63D8,&9FF6,SimpleAddition)
  9.   LinearFieldSegment(&D240,&0,&868A,&AEEB,SimpleAddition)
  10.   LinearFieldSegment(&0,&E70F,&CE59,&F977,SimpleAddition)
  11.   LinearFieldSegment(&FAB2,&2,&E538,&AEB6,SimpleAddition)
  12.   OneDimensionalStoreBufferTwo
  13.   OneDimensionalStoreBufferOne
  14.   CreateColoursUsingRGBData
  15. EndColourDefinition
  16.  
  17. Seed(&4F30)
  18. Phase(&39)
  19. NoiseToBeFiltered(&F652)
  20. TwoDimensionalClear
  21. LinearField(&15C0,&5)
  22. OneDimensionalStoreBufferOne
  23. For(&5)
  24.   Ripples(&FFFF,&C000,Random(&FFFF,&0),Random(&CFFF,&0),Maximise)
  25. Next
  26. TwoDimensionalEqualization
  27. HorizontalShear(&0,Overwrite)
  28. GenerateTwoDimensionalDust(&7000,&0,Overwrite)
  29. Dithering(&300)
  30. MakeSprite
  31. Checksum(&4BDF)
  32. End
  33.