home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / customise / texturgdn / Textures / WWW / !Button next >
Encoding:
Text File  |  1996-08-26  |  2.1 KB  |  54 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. TwoDimensionalProcess(&8000,&8000,Combine(SimpleAddition,&8000,Variable(&0)),&7FFF,Combine(CeilingAddition,TwoDimensionalPoint(X,Y),SignedMultiply(SignedIsLessThan(X,Y),&8000)),Overwrite)
  20. TwoDimensionalProcess(Combine(SimpleAddition,&8000,Variable(&0)),Combine(SimpleSubtraction,&7FFF,Variable(&0)),&7FFF,&7FFF,Combine(CeilingAddition,TwoDimensionalPoint(X,Y),SignedMultiply(SignedIsLessThan(X,Y),&8000)),Overwrite)
  21. TwoDimensionalProcess(&8000,&8000,&7FFF,Combine(SimpleAddition,&8000,Variable(&0)),Combine(FloorSubtraction,TwoDimensionalPoint(X,Y),SignedMultiply(SignedIsGreaterThan(X,Y),&8000)),Overwrite)
  22. TwoDimensionalProcess(Combine(SimpleSubtraction,&7FFF,Variable(&0)),Combine(SimpleAddition,&8000,Variable(&0)),&7FFF,&7FFF,Combine(FloorSubtraction,TwoDimensionalPoint(X,Y),SignedMultiply(SignedIsGreaterThan(X,Y),&8000)),Overwrite)
  23. Dithering(&1000)
  24. MakeSprite
  25.  
  26. StartColourDefinition
  27.   Dithering(&0)
  28.   LinearField(&C000,&FFFF)
  29.   OneDimensionalStoreBufferTwo
  30.   OneDimensionalStoreBufferOne
  31.   CreateColoursUsingRGBData
  32. EndColourDefinition
  33.  
  34. Seed(&E29)
  35. Phase(&29)
  36. NoiseToBeFiltered(&DE78)
  37. TwoDimensionalClear
  38. CreateOneDimensionalFilter(Noise(Noise(&CBA8,&354),&444))
  39. SmoothOneDimensionalTransform
  40. OneDimensionalEqualization
  41. SetVariable(&1,&1000)
  42. Rectangle(&6000,&1,&1,&AF3,&227D,Overwrite)
  43. Rectangle(&6000,&1,&1,&1CE9,&8C7,Overwrite)
  44. Rectangle(&FFFF,&FC00,&FA00,&C00,&D00,Overwrite)
  45. TwoDimensionalTransform
  46. TwoDimensionalEqualization
  47. Rectangle(&1,&0,&0,&FFFF,&FFFF,CeilingAddition)
  48. Rectangle(&FFFF,Combine(SimpleAddition,&8000,Variable(&1)),Combine(SimpleAddition,&8000,Variable(&1)),Combine(SimpleSubtraction,&7FFF,Variable(&1)),Combine(SimpleSubtraction,&7FFF,Variable(&1)),Zeroise)
  49. Dithering(&200)
  50. AddToSprite
  51. Checksum(&3245)
  52. End
  53.  
  54.