home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / t / texturegnd / Textures / WWW / TinyStarz < prev    next >
Encoding:
Text File  |  1996-10-24  |  833 b   |  32 lines
  1. StartColourDefinition
  2.   Dithering(Zero)
  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,Multiply(LogicalShiftRight(Size,&4),LogicalShiftRight(Size,&4)))
  14. SetVariable(&1,LogicalShiftLeft(Divide(&1800,Size),&8))
  15. Percentage(Subtract(&64,Variable(&0)))
  16. For(Variable(&0))
  17.   AddToPercentage(&1)
  18.   LinearField(&FFFF,&2000)
  19.   OneDimensionalStoreBufferOne
  20.   OneDimensionalStoreBufferTwo
  21.   CreateOneDimensionalFilter(QuickNoise(&C785,&800))
  22.   SmoothOneDimensionalTransform
  23.   OneDimensionalEqualization
  24.   Radials(&FFFF,Variable(&1),Random(&FFFF,&0),Random(&FFFF,&0),Overwrite,Maximise)
  25. Next
  26. TwoDimensionalEqualization
  27. ScaledDithering(&4000)
  28. MakeSprite
  29. Checksum(&AF7F)
  30. End
  31.  
  32.