home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / printer / laser / txshade.prg < prev   
Encoding:
Text File  |  1991-07-22  |  1.6 KB  |  61 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXSHADE.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit()
  12. txreset()
  13.  
  14. txcolbox(01, 20, 10, 07, 1,  2)
  15. txcolprint(09, 22, .F., "1-5 %")
  16. txcolbox(01, 50, 10, 07, 1,  10)
  17. txcolprint(09, 50, .F., "5-10 %")
  18.  
  19. txcolbox(15, 20, 10, 07, 1,  20)
  20. txcolprint(23, 20, .F., "11-20 %")
  21. txcolbox(15, 50, 10, 07, 1,  30)
  22. txcolprint(23, 50, .F., "21-30 %")
  23.  
  24. txcolbox(29, 20, 10, 07, 1,  30)
  25. txcolprint(37, 20, .F., "21-30 %")
  26. txcolbox(29, 50, 10, 07, 1,  40)
  27. txcolprint(37, 50, .F., "31-40 %")
  28.  
  29. txcolbox(43, 20, 10, 07, 1,  50)
  30. txcolprint(52, 20, .F., "41-50 %")
  31. txcolbox(43, 50, 10, 07, 1,  60)
  32. txcolprint(52, 50, .F., "51-60 %")
  33.  
  34. txcolprint(58, 25, .T., "Gray Shading Levels Page 1")
  35.  
  36. txpsource(0)                     && force print and page eject
  37.  
  38. txcolbox(01, 20, 10, 07, 1,  70)
  39. txcolprint(09, 20, .F., "61-70 %")
  40. txcolbox(01, 50, 10, 07, 1,  75)
  41. txcolprint(09, 50, .F., "71-75 %")
  42.  
  43. txcolbox(15, 20, 10, 07, 1,  80)
  44. txcolprint(23, 20, .F., "76-80 %")
  45. txcolbox(15, 50, 10, 07, 1,  85)
  46. txcolprint(23, 50, .F., "81-85 %")
  47.  
  48. txcolbox(29, 20, 10, 07, 1,  90)
  49. txcolprint(37, 20, .F., "86-90 %")
  50. txcolbox(29, 50, 10, 07, 1,  95)
  51. txcolprint(37, 50, .F., "91-95 %")
  52.  
  53. txcolbox(43, 20, 10, 07, 1, 100)
  54. txcolprint(52, 20, .F., "100 %")
  55.  
  56. txcolprint(58, 25, .T., "Gray Shading Levels Page 2")
  57.  
  58. txclear()
  59.  
  60. *: EOF: TXSHADE.PRG
  61.