home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilst / texturgdn / Textures / Filtering / Process2 < prev    next >
Text File  |  1996-09-22  |  1KB  |  39 lines
  1. StartColourDefinition
  2.   Seed(&4EAF)
  3.   Dithering(&2000)
  4.   LinearField(&D7,&30D2)
  5.   OneDimensionalStoreBufferTwo
  6.   LinearField(&A9FC,&FDDB)
  7.   OneDimensionalStoreBufferOne
  8.   LinearField(&87D1,&FC84)
  9.   CreateColoursUsingHSVData
  10. EndColourDefinition
  11.  
  12. Seed(&B)
  13. Phase(&0)
  14. NoiseToBeFiltered(&C937)
  15. CreateOneDimensionalFilter(QuickNoise(&F781,&113))
  16. OneDimensionalTransform
  17. OneDimensionalEqualization
  18. OneDimensionalStoreBufferOne
  19. Seed(&B)
  20. CreateOneDimensionalFilter(QuickNoise(&F7D5,&1FB))
  21. SmoothOneDimensionalTransform
  22. OneDimensionalContrast(&143)
  23. HorizontalWaveWarp(Overwrite)
  24. Seed(&B)
  25. Phase(&99)
  26. CreateOneDimensionalFilter(QuickNoise(&F395,&11F))
  27. SmoothOneDimensionalTransform
  28. OneDimensionalContrast(&DC)
  29. HorizontalWaveWarp(SimpleAddition)
  30. LinearField(&A7DC,&0)
  31. For(&3)
  32.   Ripples(&CE27,&54AE,Random(&DE75,&0),Random(&C6FD,&0),FloorSubtraction)
  33. Next
  34. TwoDimensionalProcess(&A000,&A000,&9FFF,&9FFF,TwoDimensionalPoint(Combine(Multiplication,X,X),Eor(X,Y)),Overwrite)
  35. Dithering(&41F1)
  36. MakeSprite
  37. Checksum(&7BAB)
  38. End
  39.