c73823892aa5384025c64a22b5da8e4332d38efd
braney
  Wed Sep 30 14:53:48 2020 -0700
get the postscript driver to allow font specification.   Use the correct
names for fonts.

diff --git src/lib/psGfx.c src/lib/psGfx.c
index 7201444..333d54a 100644
--- src/lib/psGfx.c
+++ src/lib/psGfx.c
@@ -185,30 +185,41 @@
 /* Draw a 4 sided filled figure that has line x1/y1 to x2/y2 at
  * it's top, a horizontal line at bottom at it's bottom,  and
  * vertical lines from the bottom to y1 on the left and bottom to
  * y2 on the right. */
 {
 FILE *f = ps->f;
 fprintf(f, "newpath\n");
 psMoveTo(ps, x1, y1);
 psLineTo(ps, x2, y2);
 psLineTo(ps, x2, bottom);
 psLineTo(ps, x1, bottom);
 fprintf(f, "closepath\n");
 fprintf(f, "fill\n");
 }
 
+void psSetFont(struct psGfx *ps, char *fontName)
+{
+FILE *f = ps->f;
+fprintf(f, "/%s findfont ", fontName);
+
+/* Note the 1.2 and the 1.0 below seem to get it to 
+ * position about where the stuff developed for pixel
+ * based systems expects it.  It is all a kludge though! */
+fprintf(f, "%f scalefont setfont\n", -(1/0.8)*ps->fontHeight*ps->yScale*1.5);
+}
+
 void psTimesFont(struct psGfx *ps, double size)
 /* Set font to times of a certain size. */
 {
 FILE *f = ps->f;
 fprintf(f, "/Helvetica findfont ");
 
 /* Note the 1.2 and the 1.0 below seem to get it to 
  * position about where the stuff developed for pixel
  * based systems expects it.  It is all a kludge though! */
 fprintf(f, "%f scalefont setfont\n", -size*ps->yScale*1.2);
 ps->fontHeight = size*0.8;
 }
 
 void psTextOutEscaped(struct psGfx *ps, char *text)
 /* Output post-script-escaped text.