home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / printer / laser / txfonts.prg < prev    next >
Encoding:
Text File  |  1991-07-21  |  8.7 KB  |  210 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXFONTS.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. txafs36a()           && Set font to AFS 3.4 point
  15. txcolprint(01, 10, .F., "Font AFS 3.4 point 27.28 cpi")
  16.  
  17. txcour10br()         && Set font to Courier 10 point Bold
  18. txcolprint(03, 10, .F., "Font Courier 10 point Bold 12 cpi")
  19.  
  20. txcour10ir()         && Set font to Courier 10 point Italic
  21. txcolprint(05, 10, .F., "Font Courier 10 point Italic 12 cpi")
  22.  
  23. txcour10r()          && Set font to Courier 10 point
  24. txcolprint(07, 10, .F., "Font Courier 10 point 12 cpi")
  25.  
  26. txcour12br()         && Set font to Courier 12 point Bold
  27. txcolprint(09, 10, .F., "Font Courier 12 point Bold 10 cpi")
  28.  
  29. txcour12ir()         && Set font to Courier 12 point Italic
  30. txcolprint(11, 10, .F., "Font Courier 12 point Italic 10 cpi")
  31.  
  32. txcour12r()          && Set font to Courier 12 point
  33. txcolprint(13, 10, .F., "Font Courier 12 point 10 cpi")
  34.  
  35. txcour12br()         && Set font to Courier 12 point Bold
  36. txcolprint(15, 10, .F., "Font Courier 12 point Bold 10 cpi")
  37.  
  38. txcour12ir()         && Set font to Courier 12 point Italic
  39. txcolprint(17, 10, .F., "Font Courier 12 point Italic 10 cpi")
  40.  
  41. txcour12r()          && Set font to Courier 12 point
  42. txcolprint(19, 10, .F., "Font Courier 12 point 10 cpi")
  43.  
  44. txhl10br()           && Set font to Helvetica 10 point Bold
  45. txcolprint(21, 10, .F., "Font Helvetica 10 point Bold")
  46.  
  47. txhl10ir()           && Set font to Helvetica 10 point Italic
  48. txcolprint(23, 10, .F., "Font Helvetica 10 point Italic")
  49.  
  50. txhl10r()            && Set font to Helvetica 10 point
  51. txcolprint(25, 10, .F., "Font Helvetica 10 point")
  52.  
  53. txhl12br()           && Set font to Helvetica 12 point Bold
  54. txcolprint(27, 10, .F., "Font Helvetica 12 point Bold")
  55.  
  56. txhl12ir()           && Set font to Helvetica 12 point Italic
  57. txcolprint(29, 10, .F., "Font Helvetica 12 point Italic")
  58.  
  59. txhl12r()            && Set font to Helvetica 12 point
  60. txcolprint(31, 10, .F., "Font Helvetica 12 point")
  61.  
  62. txhl12br()           && Set font to Helvetica 12 point Bold
  63. txcolprint(33, 10, .F., "Font Helvetica 12 point Bold")
  64.  
  65. txhl12ir()           && Set font to Helvetica 12 point Italic
  66. txcolprint(35, 10, .F., "Font Helvetica 12 point Italic")
  67.  
  68. txhl12r()            && Set font to Helvetica 12 point
  69. txcolprint(37, 10, .F., "Font Helvetica 12 point")
  70.  
  71. txhl12sba()          && Set font to Helvetica 12 point SemiBold
  72. txcolprint(39, 10, .F., "Font Helvetica 12 point SemiBold")
  73.  
  74. txhl14sba()          && Set font to Helvetica 14 point SemiBold
  75. txcolprint(41, 10, .F., "Font Helvetica 14 point SemiBold")
  76.  
  77. txhl6r()             && Set font to Helvetica 6 point
  78. txcolprint(43, 10, .F., "Font Helvetica 6 point")
  79.  
  80. txhl8sba()           && Set font to Helvetica 8 point SemiBold
  81. txcolprint(45, 10, .F., "Font Helvetica 8 point SemiBold")
  82.  
  83. txlg12br()           && Set font to Letter Gothic 12 point Bold Roman-8
  84. txcolprint(47, 10, .F., "Font Letter Gothic 12 point Bold 10 cpi")
  85.  
  86. txlg12br()           && Set font to Letter Gothic 12 point Italic Roman-8
  87. txcolprint(49, 10, .F., "Font Letter Gothic 12 point Italic 10 cpi")
  88.  
  89. txlg12r()            && Set font to Letter Gothic 12 point Roman-8
  90. txcolprint(51, 10, .F., "Font Letter Gothic 12 point 10 cpi")
  91.  
  92. txlg14a()            && Set font to Letter Gothic 14 point Ascii
  93. txcolprint(53, 10, .F., "Font Letter Gothic 14 point 10 cpi")
  94.  
  95. txlg14lg()           && Set font to Letter Gothic 14 point Legal
  96. txcolprint(55, 10, .F., "Font Letter Gothic 14 point Legal 10 cpi")
  97.  
  98. txlg96r()            && Set font to Letter Gothic 9.6 point Roman-8
  99. txcolprint(57, 10, .F., "Font Letter Gothic 9.6 point Legal 16.67 cpi")
  100.  
  101. txcour12r()          && Set font to Courier 12 point
  102.  
  103. txcolbox(59, 01, 79, 03, 1, 5)
  104. _line = txbold("***** If you do not have font available, the HP LaserJet will print *****")
  105. txcolprint(59, 01, .F., _line)
  106. _line = txbold("***** the font whose characteristics most closely match the font    *****")
  107. txcolprint(60, 01, .F., _line)
  108. _line = txbold("***** you selected.                                                 *****")
  109. txcolprint(61, 01, .F., _line)
  110. txpsource(0)         && Print current page
  111.  
  112. txlnprt85()          && Set font to Line Printer 8.5 point 16.67 cpi
  113. txcolprint(01, 10, .F., "Font Line Print 8.5 point 16.67 cpi")
  114.  
  115. txpe10blg()          && Set font to Prestige Elite 10 point Bold Legal
  116. txcolprint(03, 10, .F., "Font Prestige Elite 10 point Legal 12 cpi")
  117.  
  118. txpe10br()           && Set font to Prestige Elite 10 point Bold Roman-8
  119. txcolprint(05, 10, .F., "Font Prestige Elite 10 point Roman-8 12 cpi")
  120.  
  121. txpe10ilg()          && Set font to Prestige Elite 10 point Italic Legal
  122. txcolprint(07, 10, .F., "Font Prestige Elite 10 point Italic Legal 12 cpi")
  123.  
  124. txpe10ir()           && Set font to Prestige Elite 10 point Italic Roman-8
  125. txcolprint(09, 10, .F., "Font Prestige Elite 10 point Italic Roman-8 12 cpi")
  126.  
  127. txpe10lg()           && Set font to Prestige Elite 10 point Legal
  128. txcolprint(11, 10, .F., "Font Prestige Elite 10 point Legal 12 cpi")
  129.  
  130. txpe10ma()           && Set font to Prestige Elite 10 point Math
  131. txcolprint(13, 10, .F., "Font Prestige Elite 10 point Math 12 cpi")
  132.  
  133. txpe10r()            && Set font to Prestige Elite 10 point Roman-8
  134. txcolprint(15, 10, .F., "Font Prestige Elite 10 point Roman-8 12 cpi")
  135.  
  136. txpe7lg()            && Set font to Prestige Elite 7 point Legal
  137. txcolprint(17, 10, .F., "Font Prestige Elite 7 point Legal 16.67 cpi")
  138.  
  139. txpe7ma()            && Set font to Prestige Elite 7 point Math
  140. txcolprint(19, 10, .F., "Font Prestige Elite 7 point Math 16.67 cpi")
  141.  
  142. txpe7r()             && Set font to Prestige Elite 7 point Roman-8
  143. txcolprint(21, 10, .F., "Font Prestige Elite 7 point Roman-8 16.67 cpi")
  144.  
  145. txprs14ba()          && Set font to Presentations 14 point Bold Ascii
  146. txcolprint(23, 10, .F., "Font Presentations 14 point Bold Ascii 10.00 cpi")
  147.  
  148. txprs14blg()         && Set font to Presentations 14 point Bold Legal
  149. txcolprint(25, 10, .F., "Font Presentations 14 point Bold Legal 10.00 cpi")
  150.  
  151. txprs16ba()          && Set font to Presentations 16 point Bold Ascii
  152. txcolprint(27, 10, .F., "Font Presentations 16 point Bold Ascii 8.11 cpi")
  153.  
  154. txprs16blg()         && Set font to Presentations 16 point Bold Legal
  155. txcolprint(29, 10, .F., "Font Presentations 16 point Bold Legal 8.11 cpi")
  156.  
  157. txprs18ba()          && Set font to Presentations 18 point Bold Ascii
  158. txcolprint(31, 10, .F., "Font Presentations 18 point Bold Ascii 8.11 cpi")
  159.  
  160. txprs18blg()         && Set font to Presentations 18 point Bold Legal
  161. txcolprint(33, 10, .F., "Font Presentations 18 point Bold Legal 8.11 cpi")
  162.  
  163. txtax12bld()         && Set font to Tax 12 point Line Draw
  164. txcolprint(35, 10, .F., "Font Tax 12 point Bold Line Draw 10 cpi")
  165.  
  166. txtr10br()           && Set font to Times Roman 10 point Bold Roman-8
  167. txcolprint(37, 10, .F., "Font Times Roman 10 point Roman-8")
  168.  
  169. txtr10ir()           && Set font to Times Roman 10 point Italic Roman-8
  170. txcolprint(39, 10, .F., "Font Times Roman 10 point Italic Roman-8")
  171.  
  172. txtr10ma()           && Set font to Times Roman 10 point Math
  173. txcolprint(41, 10, .F., "Font Times Roman 10 point Math")
  174.  
  175. txtr10r()            && Set font to Times Roman 10 point Roman-8
  176. txcolprint(43, 10, .F., "Font Times Roman 10 point Roman-8")
  177.  
  178. txtr12br()           && Set font to Times Roman 12 point Bold Roman-8
  179. txcolprint(45, 10, .F., "Font Times Roman 12 point Roman-8 12")
  180.  
  181. txtr12ir()           && Set font to Times Roman 12 point Italic Roman-8
  182. txcolprint(47, 10, .F., "Font Times Roman 12 point Italic Roman-8")
  183.  
  184. txtr12r()            && Set font to Times Roman 12 point Roman-8
  185. txcolprint(49, 10, .F., "Font Times Roman 12 point Roman-8")
  186.  
  187. txtr14br()           && Set font to Times Roman 14 point Bold Roman-8
  188. txcolprint(51, 10, .F., "Font Times Roman 14 point Roman-8 12")
  189.  
  190. txtr8ma()            && Set font to Times Roman 8 point Math
  191. txcolprint(53, 10, .F., "Font Times Roman 8 point Math")
  192.  
  193. txtr8r()             && Set font to Times Roman 8 point Roman-8
  194. txcolprint(55, 10, .F., "Font Times Roman 8 point Roman-8")
  195.  
  196.  
  197. txcour12r()          && Set font to Courier 12 point
  198.  
  199. txcolbox(59, 01, 79, 03, 1, 5)
  200. _line = txbold("***** If you do not have font available, the HP LaserJet will print *****")
  201. txcolprint(59, 01, .F., _line)
  202. _line = txbold("***** the font whose characteristics most closely match the font    *****")
  203. txcolprint(60, 01, .F., _line)
  204. _line = txbold("***** you selected.                                                 *****")
  205. txcolprint(61, 01, .F., _line)
  206.  
  207. txclear()
  208.  
  209. *: EOF: TXFONTS.PRG
  210.