Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : TEXLASER.ZIP
Filename : TXSHADE.PRG

*:*********************************************************************
*:
*: Program: TXSHADE.PRG
*:
*: System: Texas Associated Software Laser Library
*: Author: Jose E. Lopez, Jr.
*: Copyright (c) 1991, Texas Associated Software - Red Oak, TX
*: Last modified: 06/06/91 10:08
*:
*: Called by: TEXLSDMO.PRG
*:
*: Calls: TXINIT() (function in ?)
*: : TXRESET() (function in ?)
*: : TXCOLBOX() (function in ?)
*: : TXCOLPRINT() (function in ?)
*: : TXPSOURCE() (function in ?)
*: : TXCLEAR() (function in ?)
*:
*: Documented 06/07/91 at 12:48 SNAP! version 4.02d
*:*********************************************************************

txinit()
txreset()

txcolbox(01, 20, 10, 07, 1, 2)
txcolprint(09, 22, .F., "1-5 %")
txcolbox(01, 50, 10, 07, 1, 10)
txcolprint(09, 50, .F., "5-10 %")

txcolbox(15, 20, 10, 07, 1, 20)
txcolprint(23, 20, .F., "11-20 %")
txcolbox(15, 50, 10, 07, 1, 30)
txcolprint(23, 50, .F., "21-30 %")

txcolbox(29, 20, 10, 07, 1, 30)
txcolprint(37, 20, .F., "21-30 %")
txcolbox(29, 50, 10, 07, 1, 40)
txcolprint(37, 50, .F., "31-40 %")

txcolbox(43, 20, 10, 07, 1, 50)
txcolprint(52, 20, .F., "41-50 %")
txcolbox(43, 50, 10, 07, 1, 60)
txcolprint(52, 50, .F., "51-60 %")

txcolprint(58, 25, .T., "Gray Shading Levels Page 1")
txpsource(0) && force print and page eject

txcolbox(01, 20, 10, 07, 1, 70)
txcolprint(09, 20, .F., "61-70 %")
txcolbox(01, 50, 10, 07, 1, 75)
txcolprint(09, 50, .F., "71-75 %")

txcolbox(15, 20, 10, 07, 1, 80)
txcolprint(23, 20, .F., "76-80 %")
txcolbox(15, 50, 10, 07, 1, 85)
txcolprint(23, 50, .F., "81-85 %")

txcolbox(29, 20, 10, 07, 1, 90)
txcolprint(37, 20, .F., "86-90 %")
txcolbox(29, 50, 10, 07, 1, 95)
txcolprint(37, 50, .F., "91-95 %")

txcolbox(43, 20, 10, 07, 1, 100)
txcolprint(52, 20, .F., "100 %")

txcolprint(58, 25, .T., "Gray Shading Levels Page 2")

txclear()


*: EOF: TXSHADE.PRG