home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilst / texturgdn / Textures / WWW / TinyStarz < prev    next >
Encoding:
Text File  |  1996-09-22  |  905 b   |  29 lines
  1. StartColourDefinition
  2.   Dithering(&0)
  3.   LinearField(&FFFF,&A400)
  4.   OneDimensionalStoreBufferTwo
  5.   OneDimensionalStoreBufferOne
  6.   CreateColoursUsingRGBData
  7. EndColourDefinition
  8.  
  9. Seed(&162)
  10. Phase(&35)
  11. NoiseToBeFiltered(&D9C5)
  12. TwoDimensionalClear
  13. SetVariable(&0,Combine(Multiplication,LogicalShiftRight(Size,&4),LogicalShiftRight(Size,&4)))
  14. SetVariable(&1,LogicalShiftLeft(Divide(&1800,Size),&8))
  15. For(Variable(&0))
  16.   LinearField(&FFFF,&2000)
  17.   OneDimensionalStoreBufferOne
  18.   OneDimensionalStoreBufferTwo
  19.   CreateOneDimensionalFilter(QuickNoise(&C785,&800))
  20.   SmoothOneDimensionalTransform
  21.   OneDimensionalEqualization
  22.   Radials(&FFFF,Variable(&1),Random(&FFFF,&0),Random(&FFFF,&0),Overwrite,Maximise)
  23. Next
  24. TwoDimensionalEqualization
  25. If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&4000) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&2000) Else Dithering(&0) 
  26. MakeSprite
  27. Checksum(&AED1)
  28. End
  29.