home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilst / texturgdn / Textures / WWW / SandyFY < prev    next >
Encoding:
Text File  |  1996-09-22  |  1.4 KB  |  43 lines
  1. StartColourDefinition
  2.   Dithering(&1)
  3.   LinearField(&EA47,&B17D)
  4.   OneDimensionalStoreBufferTwo
  5.   LinearField(&F664,&A38B)
  6.   OneDimensionalStoreBufferOne
  7.   LinearField(&A23E,&CF6F)
  8.   CreateColoursUsingRGBData
  9. EndColourDefinition
  10.  
  11. |
  12. | Turbulence demonstartion
  13. |
  14. Seed(&8C22)
  15. Phase(&2F)
  16. NoiseToBeFiltered(&FEEB)
  17. CreateOneDimensionalFilter(QuickNoise(&DD14,&1E07))
  18. OneDimensionalTransform
  19. HorizontalWaves(Overwrite)
  20. VerticalShear(&2,Overwrite)
  21. CreateOneDimensionalFilter(QuickNoise(&D91E,&4C9))
  22. OneDimensionalTransform
  23. HorizontalWaves(SimpleAddition)
  24. For(&C)
  25.   CreateOneDimensionalFilter(FractalNoise(&FC69,&72))
  26.   SmoothOneDimensionalTransform
  27.   HorizontalDistortion(Overwrite)
  28.   CreateOneDimensionalFilter(FractalNoise(&F329,&6A))
  29.   SmoothOneDimensionalTransform
  30.   VerticalDistortion(Overwrite)
  31. Next
  32. TwoDimensionalEqualization
  33. If IsLessThanOrEqualTo(LogBitsPerPixel,&2) Then Dithering(&4482) Else If IsEqualTo(LogBitsPerPixel,&3) Then Dithering(&1F68) Else Dithering(&0) 
  34. | Due to the following "resize" code the sprite still tessellates seamlessly despite its resize.
  35. TwoDimensionalProcess(&0,&0,&0,&0,TwoDimensionalPoint(PartlyScaledMultiply(&413A,LogicalShiftRight(X,&5)),PartlyScaledMultiply(&416D,LogicalShiftRight(Y,&5))),Overwrite)
  36. TwoDimensionalShift(&8FAE,&659E,Overwrite)
  37. MakeSprite
  38. TruncateSpriteHorizontally(&0,&CCCC)
  39. TruncateSpriteVertically(&0,&CCCC)
  40. Checksum(&768B)
  41. End
  42.  
  43.