home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilst / texturgdn / Textures / WWW / !Button next >
Encoding:
Text File  |  1996-09-22  |  2.4 KB  |  57 lines
  1. StartColourDefinition
  2.   Seed(&E03)
  3.   Phase(&2D)
  4.   Dithering(&1800)
  5.   LinearField(&D7,&30D2)
  6.   OneDimensionalStoreBufferTwo
  7.   LinearField(&A9FC,&FDDB)
  8.   OneDimensionalStoreBufferOne
  9.   LinearField(&87D1,&FC84)
  10.   CreateColoursUsingHSVData
  11. EndColourDefinition
  12.  
  13. Seed(&E84F)
  14. Phase(&3C)
  15. CreateTwoDimensionalFilter(FractalNoise(FractalNoise(&B13E,&12),FractalNoise(FractalNoise(&EACD,&8),&16)))
  16. TwoDimensionalTransform
  17. TwoDimensionalEqualization
  18. SetVariable(&0,&23FF)
  19. SetVariable(&1,&1000)
  20. SetVariable(&2,&8000)
  21. SetVariable(&3,&7FFF)
  22. TwoDimensionalProcess(Variable(&2),Variable(&2),Combine(SimpleAddition,Variable(&2),Variable(&0)),Variable(&3),Combine(CeilingAddition,TwoDimensionalPoint(X,Y),SignedMultiply(SignedIsLessThan(X,Y),Variable(&2))),Overwrite)
  23. TwoDimensionalProcess(Combine(SimpleAddition,Variable(&2),Variable(&0)),Combine(SimpleSubtraction,Variable(&3),Variable(&0)),Variable(&3),Variable(&3),Combine(CeilingAddition,TwoDimensionalPoint(X,Y),SignedMultiply(SignedIsLessThan(X,Y),Variable(&2))),Overwrite)
  24. TwoDimensionalProcess(Variable(&2),Variable(&2),Variable(&3),Combine(SimpleAddition,Variable(&2),Variable(&0)),Combine(FloorSubtraction,TwoDimensionalPoint(X,Y),SignedMultiply(SignedIsGreaterThan(X,Y),Variable(&2))),Overwrite)
  25. TwoDimensionalProcess(Combine(SimpleSubtraction,Variable(&3),Variable(&0)),Combine(SimpleAddition,Variable(&2),Variable(&0)),Variable(&3),Variable(&3),Combine(FloorSubtraction,TwoDimensionalPoint(X,Y),SignedMultiply(SignedIsGreaterThan(X,Y),Variable(&2))),Overwrite)
  26. Dithering(&1000)
  27. MakeSprite
  28.  
  29. StartColourDefinition
  30.   Dithering(&0)
  31.   LinearField(&C000,&FFFF)
  32.   OneDimensionalStoreBufferTwo
  33.   OneDimensionalStoreBufferOne
  34.   CreateColoursUsingRGBData
  35. EndColourDefinition
  36.  
  37. Seed(&E29)
  38. Phase(&29)
  39. NoiseToBeFiltered(&DE78)
  40. TwoDimensionalClear
  41. CreateOneDimensionalFilter(Noise(Noise(&CBA8,&354),&444))
  42. SmoothOneDimensionalTransform
  43. OneDimensionalEqualization
  44. SetVariable(&1,&1000)
  45. Rectangle(&6000,&1,&1,&AF3,&227D,Overwrite)
  46. Rectangle(&6000,&1,&1,&1CE9,&8C7,Overwrite)
  47. Rectangle(&FFFF,&FC00,&FA00,&C00,&D00,Overwrite)
  48. TwoDimensionalTransform
  49. TwoDimensionalEqualization
  50. Rectangle(&1,&0,&0,&FFFF,&FFFF,CeilingAddition)
  51. Rectangle(&FFFF,Combine(SimpleAddition,Variable(&2),Variable(&1)),Combine(SimpleAddition,Variable(&2),Variable(&1)),Combine(SimpleSubtraction,Variable(&3),Variable(&1)),Combine(SimpleSubtraction,Variable(&3),Variable(&1)),Zeroise)
  52. Dithering(&200)
  53. AddToSprite
  54. Checksum(&3EC0)
  55. End
  56.  
  57.