home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilst / texturgdn / Textures / WWW / SandyFYS < prev    next >
Encoding:
Text File  |  1996-09-22  |  1.4 KB  |  43 lines
  1. StartColourDefinition
  2.   Dithering(&0)
  3.   LinearField(&F4E7,&C8C3)
  4.   OneDimensionalStoreBufferTwo
  5.   LinearField(&F800,&B892)
  6.   OneDimensionalStoreBufferOne
  7.   LinearField(&D800,&E8D9)
  8.   CreateColoursUsingRGBData
  9. EndColourDefinition
  10.  
  11. |
  12. | Turbulence demonstartion
  13. |
  14. Seed(&8C22)
  15. Phase(&2D)
  16. NoiseToBeFiltered(&D6F8)
  17. CreateOneDimensionalFilter(QuickNoise(&FF62,&1893))
  18. OneDimensionalTransform
  19. HorizontalWaves(Overwrite)
  20. VerticalShear(&1,Overwrite)
  21. CreateOneDimensionalFilter(QuickNoise(&F2DE,&4D3))
  22. OneDimensionalTransform
  23. HorizontalWaves(SimpleAddition)
  24. For(&C)
  25.   CreateOneDimensionalFilter(FractalNoise(&F47E,&66))
  26.   SmoothOneDimensionalTransform
  27.   HorizontalDistortion(Overwrite)
  28.   CreateOneDimensionalFilter(FractalNoise(&F337,&5A))
  29.   SmoothOneDimensionalTransform
  30.   VerticalDistortion(Overwrite)
  31. Next
  32. TwoDimensionalEqualization
  33. If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&3E2D) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&2471) Else Dithering(&1) 
  34. | Due to the following "resize" code the sprite still tessellates seamlessly despite its resize.
  35. TwoDimensionalProcess(&0,&0,&0,&0,TwoDimensionalPoint(PartlyScaledMultiply(&5000,LogicalShiftRight(X,&6)),PartlyScaledMultiply(&5000,LogicalShiftRight(Y,&6))),Overwrite)
  36. TwoDimensionalShift(&8000,&8000,Overwrite)
  37. MakeSprite
  38. TruncateSpriteHorizontally(&0,&CCCC)
  39. TruncateSpriteVertically(&0,&CCCC)
  40. Checksum(&226)
  41. End
  42.  
  43.