home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume13 / lj2ps / part11 < prev    next >
Encoding:
Text File  |  1990-07-02  |  18.9 KB  |  524 lines
  1. Newsgroups: comp.sources.misc
  2. subject: v13i096: lj2ps (11 of 12), a LaserJet to PostScript Translator
  3. From: lishka@uwslh.slh.wisc.edu (Chris Lishka (relaxing in the Mad-City) )
  4. Sender: allbery@uunet.UU.NET (Brandon S. Allbery - comp.sources.misc)
  5.  
  6. Posting-number: Volume 13, Issue 96
  7. Submitted-by: lishka@uwslh.slh.wisc.edu (Chris Lishka (relaxing in the Mad-City) )
  8. Archive-name: lj2ps/part11
  9.  
  10. ---- Cut Here and unpack ----
  11. #!/bin/sh
  12. # This is part 11 of a multipart archive
  13. if touch 2>&1 | fgrep '[-amc]' > /dev/null
  14.  then TOUCH=touch
  15.  else TOUCH=true
  16. fi
  17. # ============= ljfonts.c ==============
  18. if test X"$1" != X"-c" -a -f 'ljfonts.c'; then
  19.     echo "File already exists: skipping 'ljfonts.c'"
  20. else
  21. echo "x - extracting ljfonts.c (Text)"
  22. sed 's/^X//' << 'SHAR_EOF' > ljfonts.c &&
  23. X/* Project:        lj2ps
  24. X** File:        ljfonts.c
  25. X**
  26. X** Author:        Christopher Lishka
  27. X** Organization:    Wisconsin State Laboratory of Hygiene
  28. X**            Data Processing Dept.
  29. X**
  30. X** Copyright (C) 1990 by Christopher Lishka.
  31. X**
  32. X** This program is free software; you can redistribute it and/or modify
  33. X** it under the terms of the GNU General Public License as published by
  34. X** the Free Software Foundation; either version 1, or (at your option)
  35. X** any later version.
  36. X**
  37. X** This program is distributed in the hope that it will be useful,
  38. X** but WITHOUT ANY WARRANTY; without even the implied warranty of
  39. X** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  40. X** GNU General Public License for more details.
  41. X**
  42. X** You should have received a copy of the GNU General Public License
  43. X** along with this program; if not, write to the Free Software
  44. X** Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  45. X*/
  46. X
  47. Xstatic char * ModuleID = "Module ljfonts: v1.0, production";
  48. X
  49. X  /* Include files
  50. X  */
  51. X#include <strings.h>
  52. X#include "ljfonts.h"
  53. X#include "lj.h"
  54. X
  55. X  /* External definitions
  56. X  */
  57. X
  58. X  /* Global variables
  59. X  */
  60. X
  61. X  /* Global function list
  62. X  */
  63. Xextern void  lj_match_font();    /* Get a font (closest match) */
  64. Xextern int   lj_find_font();    /* Find font based on the name */
  65. X
  66. X  /* Local constants
  67. X  */
  68. X#define MAX_BUFFER  2048
  69. X  /* LJ_FONT_ERROR is used to determine if real number attributes (e.g. pitch)
  70. X  ** are the same.  0.1 is currently used because otherwise 16.6 does not match
  71. X  ** with 16.66.  I have no idea how the LaserJet resolves this problem. - C.L.
  72. X  */
  73. X#define LJ_FONT_ERROR 0.1 
  74. X  /* Font attribute priority values */
  75. X#define FAP_ORIENTATION   1024    /* Orientation: landscape/portrait */
  76. X#define FAP_SYM_SET        512    /* Symbol set */
  77. X#define FAP_SPACING        256    /* Spacing: proportional/fixed */
  78. X#define FAP_PITCH          128    /* Pitch (in chars per inch) */
  79. X#define FAP_HEIGHT          64    /* Font height (in points) */
  80. X#define FAP_STYLE           32    /* Style: normal/italic */
  81. X#define FAP_STROKE          16    /* Stroke: -3(light) to 0(normal) to 3(bold) */
  82. X#define FAP_TYPEFACE         8    /* Typeface */
  83. X#define FAP_SOURCE_SOFT      4    /* Source: downloadable "soft" font */
  84. X#define FAP_SOURCE_CART      2    /* Source: cartridge font */
  85. X#define FAP_SOURCE_INT       1    /* Source: internal font */
  86. X
  87. X  /* Local structures and types
  88. X  */
  89. Xtypedef struct {
  90. X    /* Identifier fields */
  91. X  int     source;        /* Font source: where the font is located */
  92. X  int     number;        /* Font number */
  93. X     /* Scaling fields */
  94. X  int     scale;        /* True if scaling should be performed */
  95. X  double  scale_x;        /* % to scale in x direction */
  96. X  double  scale_y;        /* % to scale in y direction */
  97. X    /* LaserJet font ID fields */
  98. X  int     symbol_set;        /* The symbol set of the font */
  99. X  int     spacing;        /* Proportional/fixed */
  100. X  double  pitch;        /* Pitch of fixed or space character */
  101. X  double  point_size;        /* Height of the character */
  102. X  int     style;        /* Upright/italic */
  103. X  int     weight;        /* Stroke weight: -3 to +3 */
  104. X  int     typeface;        /* Which typeface to use */
  105. X  char   *ps_name;        /* The postscript font used for emulation */
  106. X} font_node;
  107. X
  108. X  /* Local variables
  109. X  */
  110. X  /* The table of LaserJet fonts, and the LaserWriter equivalents.
  111. X  **
  112. X  ** Note: the fonts must be listed in priority order, from most important
  113. X  ** to least important.
  114. X  **
  115. X  ** Note: the pitch value for proportional fonts is the width of the space
  116. X  ** character.
  117. X  */
  118. X/*DBX: static */ font_node lj_fonts[] = {
  119. X
  120. X    /*
  121. X    ** Left slot: HP F Font Cartridge
  122. X    */
  123. X 
  124. X    /* L00 (TMS-10): Times-Roman 8U prop. 10pt. upright normal */
  125. X  { LJ_FS_LEFT, 0,        0, 1.20, 1.00, /* Note: scaling is OFF */
  126. X    LJ_SS_8U, LJ_SP_PROPORTIONAL, 17.7, 10.0, LJ_ST_UPRIGHT, 0, LJ_TF_TIMES,
  127. X    "Times-Roman" },
  128. X
  129. X    /* L01 (TMS-10): Times-Roman 0U prop. 10pt. upright normal */
  130. X  { LJ_FS_LEFT, 1,        0, 1.20, 1.00, /* Note: scaling is OFF */
  131. X    LJ_SS_0U, LJ_SP_PROPORTIONAL, 17.7, 10.0, LJ_ST_UPRIGHT, 0, LJ_TF_TIMES,
  132. X    "Times-Roman" },
  133. X
  134. X    /* L02 (TMS-B-10): Times-Roman 0U prop. 10pt. upright bold */
  135. X  { LJ_FS_LEFT, 2,        0, 1.20, 1.00, /* Note: scaling is OFF */
  136. X    LJ_SS_0U, LJ_SP_PROPORTIONAL, 17.7, 10.0, LJ_ST_UPRIGHT, 3, LJ_TF_TIMES,
  137. X    "Times-Bold" },
  138. X
  139. X    /* L03 (TMS-B-10): Times-Roman 8U prop. 10pt. upright bold */
  140. X  { LJ_FS_LEFT, 3,        0, 1.20, 1.00, /* Note: scaling is OFF */
  141. X    LJ_SS_8U, LJ_SP_PROPORTIONAL, 17.7, 10.0, LJ_ST_UPRIGHT, 3, LJ_TF_TIMES,
  142. X    "Times-Bold" },
  143. X
  144. X    /* L04 (TMS-I-10): Times-Roman 0U prop. 10pt. italic normal */
  145. X  { LJ_FS_LEFT, 4,        0, 1.20, 1.00, /* Note: scaling is OFF */
  146. X    LJ_SS_0U, LJ_SP_PROPORTIONAL, 17.7, 10.0, LJ_ST_ITALIC, 0, LJ_TF_TIMES,
  147. X    "Times-Italic" },
  148. X
  149. X    /* L05 (TMS-I-10): Times-Roman 8U prop. 10pt. italic normal */
  150. X  { LJ_FS_LEFT, 5,        0, 1.20, 1.00, /* Note: scaling is OFF */
  151. X    LJ_SS_8U, LJ_SP_PROPORTIONAL, 17.7, 10.0, LJ_ST_ITALIC, 0, LJ_TF_TIMES,
  152. X    "Times-Italic" },
  153. X
  154. X    /* L06 (HELV-B-14.4): Helvetica 0U prop. 14.4pt. upright bold */
  155. X  { LJ_FS_LEFT, 6,        0, 0.00, 0.00, /* Note: scaling is OFF */
  156. X    LJ_SS_0U, LJ_SP_PROPORTIONAL, 15.0, 14.4, LJ_ST_UPRIGHT, 3, LJ_TF_HELV,
  157. X    "Helvetica-Bold" },
  158. X
  159. X    /* L07 (HELV-B-14.4): Helvetica 8U prop. 14.4pt. upright bold */
  160. X  { LJ_FS_LEFT, 7,        0, 0.00, 0.00, /* Note: scaling is OFF */
  161. X    LJ_SS_8U, LJ_SP_PROPORTIONAL, 15.0, 14.4, LJ_ST_UPRIGHT, 3, LJ_TF_HELV,
  162. X    "Helvetica-Bold" },
  163. X
  164. X    /* L08 (TMS-8): Times-Roman 0U prop. 8pt. upright normal */
  165. X  { LJ_FS_LEFT, 8,        0, 1.20, 1.00, /* Note: scaling is OFF */
  166. X    LJ_SS_0U, LJ_SP_PROPORTIONAL, 27.4,  8.0, LJ_ST_UPRIGHT, 0, LJ_TF_TIMES,
  167. X    "Times-Roman" },
  168. X
  169. X    /* L09 (TMS-8): Times-Roman 8U prop. 8pt. upright normal */
  170. X  { LJ_FS_LEFT, 9,        0, 1.20, 1.00, /* Note: scaling is OFF */
  171. X    LJ_SS_8U, LJ_SP_PROPORTIONAL, 27.4,  8.0, LJ_ST_UPRIGHT, 0, LJ_TF_TIMES,
  172. X    "Times-Roman" },
  173. X
  174. X    /* L10 (LP-8.5): Line-Printer 0U 16.6pitch 8.5pt upright normal */
  175. X  { LJ_FS_LEFT, 10,       1, 0.845, 1.00, /* Scaling *****ON***** */
  176. X    LJ_SS_0N, LJ_SP_FIXED,        16.67,  8.5, LJ_ST_UPRIGHT, 0, LJ_TF_LP,
  177. X    "Courier" },
  178. X
  179. X    /* L11 (LP-8.5): Line-Printer 8U 16.6pitch 8.5pt upright normal */
  180. X  { LJ_FS_LEFT, 11,       1, 0.845, 1.00, /* Scaling *****ON***** */
  181. X    LJ_SS_8U, LJ_SP_FIXED,        16.67,  8.5, LJ_ST_UPRIGHT, 0, LJ_TF_LP,
  182. X    "Courier" },
  183. X
  184. X    /*
  185. X    ** Right slot: HP G Font Cartridge
  186. X    */
  187. X
  188. X    /* R00 (PRES-10): Prestige 0U 12pitch 10pt. upright normal */
  189. X  { LJ_FS_RIGHT, 0,       0, 0.00, 0.00, /* Note: scaling is OFF */
  190. X    LJ_SS_0U, LJ_SP_FIXED,        12.0, 10.0, LJ_ST_UPRIGHT, 0, LJ_TF_PRES,
  191. X    "Courier" },
  192. X
  193. X    /* R01 (PRES-10): Prestige 1U 12pitch 10pt. upright normal */
  194. X  { LJ_FS_RIGHT, 1,       0, 0.00, 0.00, /* Note: scaling is OFF */
  195. X    LJ_SS_1U, LJ_SP_FIXED,        12.0, 10.0, LJ_ST_UPRIGHT, 0, LJ_TF_PRES,
  196. X    "Courier" },
  197. X
  198. X    /* R02 (PRES-B-10): Prestige 1U 12pitch 10pt. upright bold */
  199. X  { LJ_FS_RIGHT, 2,       0, 0.00, 0.00, /* Note: scaling is OFF */
  200. X    LJ_SS_1U, LJ_SP_FIXED,        12.0, 10.0, LJ_ST_UPRIGHT, 3, LJ_TF_PRES,
  201. X    "Courier-Bold" },
  202. X
  203. X    /* R03 (PRES-B-10): Prestige 0U 12pitch 10pt. upright bold */
  204. X  { LJ_FS_RIGHT, 3,       0, 0.00, 0.00, /* Note: scaling is OFF */
  205. X    LJ_SS_0U, LJ_SP_FIXED,        12.0, 10.0, LJ_ST_UPRIGHT, 3, LJ_TF_PRES,
  206. X    "Courier-Bold" },
  207. X
  208. X    /* R04 (PRES-I-10): Prestige 1U 12pitch 10pt. italic normal */
  209. X  { LJ_FS_RIGHT, 4,       0, 0.00, 0.00, /* Note: scaling is OFF */
  210. X    LJ_SS_1U, LJ_SP_FIXED,        12.0, 10.0, LJ_ST_ITALIC, 0, LJ_TF_PRES,
  211. X    "Courier-Oblique" },
  212. X
  213. X    /* R05 (PRES-I-10): Prestige 0U 12pitch 10pt. italic normal */
  214. X  { LJ_FS_RIGHT, 5,       0, 0.00, 0.00, /* Note: scaling is OFF */
  215. X    LJ_SS_0U, LJ_SP_FIXED,        12.0, 10.0, LJ_ST_ITALIC, 0, LJ_TF_PRES,
  216. X    "Courier-Oblique" },
  217. X
  218. X    /* R06 (PRES-7): Prestige 1U 16.6pitch 7pt. upright normal */
  219. X  { LJ_FS_RIGHT, 6,       1, 1.03, 1.00, /* Note: scaling is OFF */
  220. X    LJ_SS_1U, LJ_SP_FIXED,        16.67,  7.0, LJ_ST_UPRIGHT, 0, LJ_TF_PRES,
  221. X    "Courier" },
  222. X
  223. X    /* R07 (PRES-7): Prestige 0U 16.6pitch 7pt. upright normal */
  224. X  { LJ_FS_RIGHT, 7,       1, 1.03, 1.00, /* Note: scaling is OFF */
  225. X    LJ_SS_0U, LJ_SP_FIXED,        16.67,  7.0, LJ_ST_UPRIGHT, 0, LJ_TF_PRES,
  226. X    "Courier" },
  227. X
  228. X    /* R08: Line Draw is NOT AVAILABLE */
  229. X/*  "DRAW-12",         "Line-Draw              12    point     12    pitch",*/
  230. X/*  Line draw is not supported! */
  231. X
  232. X    /*
  233. X    ** LaserJet II Internal Fonts
  234. X    */
  235. X
  236. X    /* I00 (COUR-12): Courier 8U 10pitch 12pt. upright normal */
  237. X  { LJ_FS_INTERNAL, 0,    0, 0.00, 0.00, /* Note: scaling is OFF */
  238. X    LJ_SS_8U, LJ_SP_FIXED,        10.0, 12.0, LJ_ST_UPRIGHT, 0, LJ_TF_COUR,
  239. X    "Courier" },
  240. X
  241. X    /* I01 (COUR-12): Courier 10U 10pitch 12pt. upright normal */
  242. X  { LJ_FS_INTERNAL, 1,    0, 0.00, 0.00, /* Note: scaling is OFF */
  243. X    LJ_SS_10U, LJ_SP_FIXED,        10.0, 12.0, LJ_ST_UPRIGHT, 0, LJ_TF_COUR,
  244. X    "Courier" },
  245. X
  246. X    /* I02 (COUR-12): Courier 11U 10pitch 12pt. upright normal */
  247. X  { LJ_FS_INTERNAL, 2,    0, 0.00, 0.00, /* Note: scaling is OFF */
  248. X    LJ_SS_11U, LJ_SP_FIXED,        10.0, 12.0, LJ_ST_UPRIGHT, 0, LJ_TF_COUR,
  249. X    "Courier" },
  250. X
  251. X    /* I03 (COUR-12): Courier 0N 10pitch 12pt. upright normal */
  252. X  { LJ_FS_INTERNAL, 3,    0, 0.00, 0.00, /* Note: scaling is OFF */
  253. X    LJ_SS_0N, LJ_SP_FIXED,        10.0, 12.0, LJ_ST_UPRIGHT, 0, LJ_TF_COUR,
  254. X    "Courier" },
  255. X
  256. X    /* I04 (COUR-B-12): Courier 8U 10pitch 12pt. upright bold */
  257. X  { LJ_FS_INTERNAL, 4,    0, 0.00, 0.00, /* Note: scaling is OFF */
  258. X    LJ_SS_8U, LJ_SP_FIXED,        10.0, 12.0, LJ_ST_UPRIGHT, 3, LJ_TF_COUR,
  259. X    "Courier-Bold" },
  260. X
  261. X    /* I05 (COUR-B-12): Courier 10U 10pitch 12pt. upright bold */
  262. X  { LJ_FS_INTERNAL, 5,    0, 0.00, 0.00, /* Note: scaling is OFF */
  263. X    LJ_SS_10U, LJ_SP_FIXED,        10.0, 12.0, LJ_ST_UPRIGHT, 3, LJ_TF_COUR,
  264. X    "Courier-Bold" },
  265. X
  266. X    /* I06 (COUR-B-12): Courier 11U 10pitch 12pt. upright bold */
  267. X  { LJ_FS_INTERNAL, 6,    0, 0.00, 0.00, /* Note: scaling is OFF */
  268. X    LJ_SS_11U, LJ_SP_FIXED,        10.0, 12.0, LJ_ST_UPRIGHT, 3, LJ_TF_COUR,
  269. X    "Courier-Bold" },
  270. X
  271. X    /* I07 (COUR-B-12): Courier 0N 10pitch 12pt. upright bold */
  272. X  { LJ_FS_INTERNAL, 7,    0, 0.00, 0.00, /* Note: scaling is OFF */
  273. X    LJ_SS_0N, LJ_SP_FIXED,        10.0, 12.0, LJ_ST_UPRIGHT, 3, LJ_TF_COUR,
  274. X    "Courier-Bold" },
  275. X
  276. X    /* I08 (LP-8.5): Line-Printer 8U 16.6pitch 8.5pt. upright normal */
  277. X  { LJ_FS_INTERNAL, 8,    1, 0.845, 1.00, /* Scaling *****ON***** */
  278. X    LJ_SS_8U, LJ_SP_FIXED,        16.67,  8.5, LJ_ST_UPRIGHT, 0, LJ_TF_LP,
  279. X    "Courier" },
  280. X
  281. X    /* I09 (LP-8.5): Line-Printer 10U 16.6pitch 8.5pt. upright normal */
  282. X  { LJ_FS_INTERNAL, 9,    1, 0.845, 1.00, /* Scaling *****ON***** */
  283. X    LJ_SS_10U, LJ_SP_FIXED,        16.67,  8.5, LJ_ST_UPRIGHT, 0, LJ_TF_LP,
  284. X    "Courier" },
  285. X
  286. X    /* Last entry must be nulled out! */
  287. X  { 0, 0,                 0, 0.00, 0.00,
  288. X    0,         0,                    0.0,  0.0, 0,             0, 0,
  289. X    "" }
  290. X};
  291. X
  292. X  /* Local macro definitions
  293. X  */
  294. X
  295. X  /* Local function list
  296. X  */
  297. X
  298. X  /* Function bodies
  299. X  */
  300. X
  301. X  /* lj_get_font() returns in the argument font the closest match to the
  302. X  ** requested font.  The match *never* fails.
  303. X  **
  304. X  ** "Closest match" is defined as the first font in the
  305. X  ** list for which the attributes match.  The attributes are in the
  306. X  ** following priority order:
  307. X  **
  308. X  **        (1) Orientation (always correct because PS has arbitrary rotation)
  309. X  **        (2) Symbol set  (once again, ignored here!)
  310. X  **        (3) Spacing
  311. X  **        (4) Pitch       (ignored if the font is proportional)
  312. X  **        (5) Height
  313. X  **        (6) Style
  314. X  **        (7) Stroke weight
  315. X  **        (8) Typeface
  316. X  **        (9) Soft font        (ignored)
  317. X  **       (10) Cartridge font   (ignored)
  318. X  **       (11) Internal font    (ignored)
  319. X  **
  320. X  ** Priority schemes based on the source of the font (i.e. soft fonts,
  321. X  ** cartridge fonts, or internal fonts) are ignored.  These can be
  322. X  ** duplicated through careful ordering of the list.
  323. X  */
  324. Xvoid
  325. Xlj_match_font(font)
  326. X     ljfont *font;
  327. X{
  328. X  int    match_font;        /* Highest matched font so far */
  329. X  int    match_value;        /* Highest matched value so far */
  330. X  int    curr_value;        /* The current font being tested */
  331. X  int    curr_font;        /* The match value for the current font */
  332. X  double tmp_double;        /* Temporary value */
  333. X
  334. X  curr_font   = 0;
  335. X  match_font  = curr_font;
  336. X  match_value = 0;
  337. X  do{
  338. X    curr_value = 0;
  339. X
  340. X      /* Match the attributes */
  341. X      /* Orientation: *always* matches, because PS allows arbitrary rotation */
  342. X    curr_value += FAP_ORIENTATION;
  343. X      /* Symbol set */
  344. X    if( font->symbol_set == lj_fonts[curr_font].symbol_set ){
  345. X      curr_value += FAP_SYM_SET;
  346. X    }
  347. X      /* Spacing: match to two decimal places */
  348. X    if( font->spacing == lj_fonts[curr_font].spacing ){
  349. X      curr_value += FAP_SPACING;
  350. X    }
  351. X      /* Pitch: ignore if proportional spacing */
  352. X    if( font->spacing == LJ_SP_FIXED ){
  353. X      tmp_double = font->pitch - lj_fonts[curr_font].pitch;
  354. X      if( (-(LJ_FONT_ERROR) <= tmp_double) && (tmp_double <= LJ_FONT_ERROR) ){
  355. X    curr_value += FAP_PITCH;
  356. X      }
  357. X    }
  358. X      /* Height */
  359. X    tmp_double = font->point_size - lj_fonts[curr_font].point_size;
  360. X    if(   (-(LJ_FONT_ERROR) <= tmp_double) && (tmp_double <= LJ_FONT_ERROR) ){
  361. X      curr_value += FAP_HEIGHT;
  362. X    }
  363. X      /* Style: exact match needed */
  364. X    if( font->style == lj_fonts[curr_font].style ){
  365. X      curr_value += FAP_STYLE;
  366. X    }
  367. X      /* Stroke weight: exact match needed */
  368. X    if( font->weight == lj_fonts[curr_font].weight ){
  369. X      curr_value += FAP_STROKE;
  370. X    }
  371. X      /* Typeface: exact match needed */
  372. X    if( font->typeface == lj_fonts[curr_font].typeface ){
  373. X      curr_value += FAP_TYPEFACE;
  374. X    }
  375. X      /* Source soft font: ignored */
  376. X      /* Source cartridge font: ignored */
  377. X      /* Source internal font: ignored */
  378. X
  379. X      /* Check to see if we currently have a better match */
  380. X    if( curr_value > match_value ){
  381. X      match_value = curr_value;
  382. X      match_font  = curr_font;
  383. X    }
  384. X
  385. X    curr_font++;
  386. X  } while( (lj_fonts[curr_font].ps_name[0] != '\0') );
  387. X
  388. X    /* There had *better* be a matched font in match_font by this point.
  389. X    ** If none of the attributes matched, match_font should at least hold
  390. X    ** the default.
  391. X    */
  392. X
  393. X    /* OK. Now copy over *everything* */
  394. X  font->scale      = lj_fonts[match_font].scale;
  395. X  font->scale_x    = lj_fonts[match_font].scale_x;
  396. X  font->scale_y    = lj_fonts[match_font].scale_y;
  397. X  font->symbol_set = lj_fonts[match_font].symbol_set;
  398. X  font->spacing    = lj_fonts[match_font].spacing;
  399. X  if( font->spacing == LJ_SP_FIXED ){
  400. X    font->pitch      = lj_fonts[match_font].pitch;
  401. X  }
  402. X  font->point_size = lj_fonts[match_font].point_size;
  403. X  font->style      = lj_fonts[match_font].style;
  404. X  font->weight     = lj_fonts[match_font].weight;
  405. X  font->typeface   = lj_fonts[match_font].typeface;
  406. X  (void) strcpy(font->ps_name, lj_fonts[match_font].ps_name);
  407. X  font->width      = 1/(lj_fonts[match_font].pitch);
  408. X
  409. X} /* lj_match_font() */
  410. X
  411. X
  412. X
  413. X  /* lj_find_font() finds a font based on the name.  A 0 is returned
  414. X  ** if the search is successful, 1 otherwise.
  415. X  */
  416. Xint
  417. Xlj_find_font(source, number, font)
  418. X     int source, number;  ljfont *font;
  419. X{
  420. X  int found;
  421. X  int counter;
  422. X
  423. X  found = 0;
  424. X  for( counter = 0;
  425. X       !found && !(lj_fonts[counter].source == 0);
  426. X       counter++ ){
  427. X    if(   (source == lj_fonts[counter].source)
  428. X       && (number == lj_fonts[counter].number) ){
  429. X      found = 1;
  430. X      font->scale      = lj_fonts[counter].scale;
  431. X      font->scale_x    = lj_fonts[counter].scale_x;
  432. X      font->scale_y    = lj_fonts[counter].scale_y;
  433. X      font->symbol_set = lj_fonts[counter].symbol_set;
  434. X      font->spacing    = lj_fonts[counter].spacing;
  435. X      if( font->spacing == LJ_SP_FIXED ){
  436. X    font->pitch    = lj_fonts[counter].pitch;
  437. X      }
  438. X      font->point_size = lj_fonts[counter].point_size;
  439. X      font->style      = lj_fonts[counter].style;
  440. X      font->weight     = lj_fonts[counter].weight;
  441. X      font->typeface   = lj_fonts[counter].typeface;
  442. X      (void) strcpy(font->ps_name, lj_fonts[counter].ps_name);
  443. X      font->width      = 1/(lj_fonts[counter].pitch);
  444. X    } /* if */
  445. X  } /* for */
  446. X
  447. X  return( !found );
  448. X} /* lj_find_font() */
  449. SHAR_EOF
  450. $TOUCH -am 0630160790 ljfonts.c &&
  451. chmod 0644 ljfonts.c ||
  452. echo "restore of ljfonts.c failed"
  453. set `wc -c ljfonts.c`;Wc_c=$1
  454. if test "$Wc_c" != "16148"; then
  455.     echo original size 16148, current size $Wc_c
  456. fi
  457. fi
  458. # ============= ljfonts.h ==============
  459. if test X"$1" != X"-c" -a -f 'ljfonts.h'; then
  460.     echo "File already exists: skipping 'ljfonts.h'"
  461. else
  462. echo "x - extracting ljfonts.h (Text)"
  463. sed 's/^X//' << 'SHAR_EOF' > ljfonts.h &&
  464. X/*
  465. X** Project:        lj2ps
  466. X** File:        ljfonts.h
  467. X**
  468. X** Author:        Christopher Lishka
  469. X** Organization:    Wisconsin State Laboratory of Hygiene
  470. X**            Data Processing Dept.
  471. X**
  472. X** Copyright (C) 1990 by Christopher Lishka.
  473. X**
  474. X** This program is free software; you can redistribute it and/or modify
  475. X** it under the terms of the GNU General Public License as published by
  476. X** the Free Software Foundation; either version 1, or (at your option)
  477. X** any later version.
  478. X**
  479. X** This program is distributed in the hope that it will be useful,
  480. X** but WITHOUT ANY WARRANTY; without even the implied warranty of
  481. X** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  482. X** GNU General Public License for more details.
  483. X**
  484. X** You should have received a copy of the GNU General Public License
  485. X** along with this program; if not, write to the Free Software
  486. X** Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  487. X*/
  488. X
  489. X#ifndef LJFONTS_H
  490. X#define LJFONTS_H
  491. X
  492. X#include "lj.h"
  493. X
  494. X  /* Global constants
  495. X  */
  496. X
  497. X  /* Global structure and type definitions
  498. X  */
  499. X
  500. X  /* Global variables
  501. X  */
  502. X
  503. X  /* Global macro definitions
  504. X  */
  505. X
  506. X  /* Global functions
  507. X  */
  508. Xextern void  lj_match_font();    /* Get closest match for a laserjet font */
  509. Xextern int   lj_find_font();    /* Find font based on name */
  510. X
  511. X#endif
  512. SHAR_EOF
  513. $TOUCH -am 0630160790 ljfonts.h &&
  514. chmod 0644 ljfonts.h ||
  515. echo "restore of ljfonts.h failed"
  516. set `wc -c ljfonts.h`;Wc_c=$1
  517. if test "$Wc_c" != "1258"; then
  518.     echo original size 1258, current size $Wc_c
  519. fi
  520. fi
  521. echo "End of part 11, continue with part 12"
  522. exit 0
  523.  
  524.