--- ray/src/px/psign.c	1992/07/08 13:58:10	2.11
+++ ray/src/px/psign.c	1993/06/04 17:02:48	2.15
@@ -16,19 +16,14 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #include  "font.h"
 
-#ifndef  SSS
-#define  SSS			3	/* super-sample size */
-#endif
+#include  "paths.h"
 
-#define  MAXLINE		512	/* longest allowable line */
-
-#ifndef  DEFPATH
-#define  DEFPATH		":/usr/local/lib/ray"
+#ifndef	 SSS
+#define	 SSS			3	/* super-sample size */
 #endif
-#ifndef  ULIBVAR
-#define  ULIBVAR		"RAYPATH"
-#endif
 
+#define	 MAXLINE		512	/* longest allowable line */
+
 char  *fontfile = "helvet.fnt";		/* our font file */
 
 COLOR  bgcolor = WHTCOLOR;		/* background color */
@@ -37,19 +32,19 @@ COLOR  fgcolor = BLKCOLOR;		/* foreground color */
 int  direct = 'r';			/* direction (right, up, left, down) */
 
 int  cheight = 32*SSS;			/* character height */
-double  aspect = 1.67;			/* height/width character aspect */
-double  spacing = 0.0;			/* character spacing */
+double	aspect = 1.67;			/* height/width character aspect */
+double	spacing = 0.0;			/* character spacing */
 int  cwidth;				/* computed character width */
 
 unsigned char  *ourbitmap;		/* our output bitmap */
 int  xsiz, ysiz;			/* bitmap dimensions */
 int  xdim;				/* size of horizontal scan (bytes) */
 
-#define  bitop(x,y,op)		(ourbitmap[(y)*xdim+((x)>>3)] op (1<<((x)&7)))
-#define  tstbit(x,y)		bitop(x,y,&)
-#define  setbit(x,y)		bitop(x,y,|=)
-#define  clrbit(x,y)		bitop(x,y,&=~)
-#define  tglbit(x,y)		bitop(x,y,^=)
+#define	 bitop(x,y,op)		(ourbitmap[(y)*xdim+((x)>>3)] op (1<<((x)&7)))
+#define	 tstbit(x,y)		bitop(x,y,&)
+#define	 setbit(x,y)		bitop(x,y,|=)
+#define	 clrbit(x,y)		bitop(x,y,&=~)
+#define	 tglbit(x,y)		bitop(x,y,^=)
 
 FONT  *ourfont;				/* our font */
 
@@ -65,15 +60,15 @@ LINE  *ourtext;				/* our text */
 int  nlines, maxline;			/* text dimensions */
 int  maxwidth;				/* maximum line width (dvi) */
 
-extern char  *getenv();
 
-
 main(argc, argv)
 int  argc;
 char  *argv[];
 {
 	int  an;
-
+#ifdef MSDOS
+	setmode(fileno(stdout), O_BINARY);
+#endif
 	for (an = 1; an < argc && argv[an][0] == '-'; an++)
 		switch (argv[an][1]) {
 		case 'c':			/* color */
@@ -157,7 +152,7 @@ unkopt:
 
 makemap()			/* create the bit map */
 {
-	double  pictaspect;
+	double	pictaspect;
 	
 	if (direct == 'r' || direct == 'l') {
 		if (xsiz <= 0) {
@@ -173,14 +168,14 @@ makemap()			/* create the bit map */
 			else
 				xsiz = ysiz/pictaspect + 0.5;
 			cheight = ysiz/nlines;
-			cwidth = cheight/aspect + 0.5;
+			cwidth = cheight/aspect;
 		} else {
 			if (ysiz <= 0)
 				ysiz = cheight*nlines;
 			pictaspect = (double)ysiz/xsiz;
 			aspect = pictaspect*maxwidth/(256*nlines);
 			cheight = ysiz/nlines;
-			cwidth = cheight/aspect + 0.5;
+			cwidth = cheight/aspect;
 		}
 	} else {			/* reverse orientation */
 		if (ysiz <= 0) {
@@ -196,14 +191,14 @@ makemap()			/* create the bit map */
 			else
 				xsiz = ysiz/pictaspect + 0.5;
 			cheight = xsiz/nlines;
-			cwidth = cheight/aspect + 0.5;
+			cwidth = cheight/aspect;
 		} else {
 			if (xsiz <= 0)
 				xsiz = cheight*nlines;
 			pictaspect = (double)ysiz/xsiz;
 			aspect = maxwidth/(256*nlines*pictaspect);
 			cheight = xsiz/nlines;
-			cwidth = cheight/aspect + 0.5;
+			cwidth = cheight/aspect;
 		}
 	}
 	if (xsiz % SSS)
@@ -221,7 +216,6 @@ makemap()			/* create the bit map */
 gettext(fp)			/* get text from a file */
 FILE  *fp;
 {
-	char  *fgets();
 	char  buf[MAXLINE];
 	register LINE  *curl;
 	int  len;
@@ -244,10 +238,10 @@ FILE  *fp;
 		curl->s[len] = '\0';
 		if (spacing < -1./256.)
 			len = squeeztext(curl->sp, curl->s, ourfont,
-					(int)(spacing*-256.0));
+					(int)(spacing*-256.));
 		else if (spacing > 1./256.)
 			len = proptext(curl->sp, curl->s, ourfont,
-					(int)(spacing*256.0), 3);
+					(int)(spacing*256.), 3);
 		else
 			len = uniftext(curl->sp, curl->s, ourfont);
 		if (len > maxwidth)
@@ -285,12 +279,12 @@ char  *av[];
 	ourtext->sp = (short *)malloc(sizeof(short)*(maxline+1));
 	if (ourtext->sp == NULL)
 		goto memerr;
-	if (spacing < 0.0)
+	if (spacing < -1./256.)
 		maxwidth = squeeztext(ourtext->sp, ourtext->s, ourfont,
-				(int)(spacing*-256.0));
-	else if (spacing > 0.0)
+				(int)(spacing*-256.));
+	else if (spacing > 1./256.)
 		maxwidth = proptext(ourtext->sp, ourtext->s, ourfont,
-				(int)(spacing*256.0), 3);
+				(int)(spacing*256.), 3);
 	else
 		maxwidth = uniftext(ourtext->sp, ourtext->s, ourfont);
 	nlines = 1;
@@ -408,7 +402,7 @@ FILE  *fp;
 {
 	COLR  pixval[SSS*SSS+1];	/* possible pixel values */
 	COLOR  ctmp0, ctmp1;
-	double  d;
+	double	d;
 	COLR  *scanout;
 	int  x, y;
 	register int  i, j;