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