--- ray/src/rt/text.c	1991/08/05 09:32:12	1.7
+++ ray/src/rt/text.c	1998/08/10 18:37:06	2.18
@@ -1,19 +1,19 @@
-/* Copyright (c) 1991 Regents of the University of California */
+/* Copyright (c) 1998 Silicon Graphics, Inc. */
 
 #ifndef lint
-static char SCCSid[] = "$SunId$ LBL";
+static char SCCSid[] = "$SunId$ SGI";
 #endif
 
 /*
  *  text.c - functions for text patterns and mixtures.
- *
- *     11/12/86
  */
 
 #include  "ray.h"
 
 #include  "otypes.h"
 
+#include  "font.h"
+
 /*
  *	A text pattern is specified as the text (a file or line),
  *  the upper left anchor point, the right motion vector, the down
@@ -23,68 +23,74 @@ static char SCCSid[] = "$SunId$ LBL";
  *	modifier brighttext id
  *	2 fontfile textfile
  *	0
- *	11
+ *	11+
  *		Ax Ay Az
  *		Rx Ry Rz
  *		Dx Dy Dz
  *		foreground background
+ *		[spacing]
  *
  *  For a single line, we use:
  *
  *	modifier brighttext id
  *	N+2 fontfile . This is a line with N words...
  *	0
- *	11
+ *	11+
  *		Ax Ay Az
  *		Rx Ry Rz
  *		Dx Dy Dz
  *		foreground background
+ *		[spacing]
  *
  *  Colortext is identical, except colors are given rather than
- *  brightnesses.  Mixtext has foreground and background modifiers:
+ *  brightnesses.
  *
+ *  Mixtext has foreground and background modifiers:
+ *
  *	modifier mixtext id
  *	4+ foremod backmod fontfile text..
  *	0
- *	9
+ *	9+
  *		Ax Ay Az
  *		Rx Ry Rz
  *		Dx Dy Dz
+ *		[spacing]
  */
 
 #define  fndx(m)	((m)->otype==MIX_TEXT ? 2 : 0)
 #define  tndx(m)	((m)->otype==MIX_TEXT ? 3 : 1)
+#define  sndx(m)	((m)->otype==PAT_BTEXT ? 11 : \
+				(m)->otype==PAT_CTEXT ? 15 : 9)
 
-extern char  *libpath;			/* library search path */
+typedef struct tline {
+	struct tline  *next;		/* pointer to next line */
+	short  *spc;			/* character spacing */
+	int  width;			/* total line width */
+					/* followed by the string */
+}  TLINE;
 
-typedef unsigned char  GLYPH;
+#define  TLSTR(l)	((char *)((l)+1))
 
-typedef struct font {
-	GLYPH  *fg[256];		/* font glyphs */
-	char  *name;			/* font file name */
-	struct font  *next;		/* next font in list */
-}  FONT;
-
 typedef struct {
-	char  **t;			/* text array */
 	FVECT  right, down;		/* right and down unit vectors */
 	FONT  *f;			/* our font */
+	TLINE  tl;			/* line list */
 }  TEXT;
 
+extern char  *getlibpath();
+
 extern char  *fgetword();
 
 TEXT  *gettext();
 
-FONT  *getfont();
+TLINE  *tlalloc();
 
-static FONT  *fontlist = NULL;		/* our font list */
 
-
-text(m, r)
+do_text(m, r)
 register OBJREC  *m;
 RAY  *r;
 {
-	double  v[3];
+	FVECT  v;
 	int  foreground;
 				/* get transformed position */
 	if (r->rox != NULL)
@@ -99,11 +105,15 @@ RAY  *r;
 		char  *modname = m->oargs.sarg[foreground ? 0 : 1];
 		if (!strcmp(modname, VOIDID))
 			omod = OVOID;
-		else if ((omod = modifier(modname)) == OVOID) {
+		else if ((omod = lastmod(objndx(m), modname)) == OVOID) {
 			sprintf(errmsg, "undefined modifier \"%s\"", modname);
 			objerror(m, USER, errmsg);
 		}
-		raytexture(r, omod);
+		if (rayshade(r, omod)) {
+			if (m->omod != OVOID)
+				objerror(m, USER, "inappropriate modifier");
+			return(1);
+		}
 	} else if (m->otype == PAT_BTEXT) {
 		if (foreground)
 			scalecolor(r->pcol, m->oargs.farg[9]);
@@ -121,47 +131,66 @@ RAY  *r;
 					m->oargs.farg[14]);
 		multcolor(r->pcol, cval);
 	}
+	return(0);
 }
 
 
+TLINE *
+tlalloc(s)			/* allocate and assign text line */
+char  *s;
+{
+	extern char  *strcpy();
+	register int  siz;
+	register TLINE  *tl;
+
+	siz = strlen(s) + 1;
+	if ((tl=(TLINE *)malloc(sizeof(TLINE)+siz)) == NULL ||
+			(tl->spc=(short *)malloc(siz*sizeof(short))) == NULL)
+		error(SYSTEM, "out of memory in tlalloc");
+	tl->next = NULL;
+	strcpy(TLSTR(tl), s);
+	return(tl);
+}
+
+
 TEXT *
 gettext(tm)			/* get text structure for material */
 register OBJREC  *tm;
 {
 #define  R	(tm->oargs.farg+3)
 #define  D	(tm->oargs.farg+6)
-	extern char  *strcpy(), *fgets();
+	extern char  *strcpy();
 	FVECT  DxR;
 	double  d;
 	FILE  *fp;
 	char  linbuf[512];
-	register TEXT  *t;
+	TEXT  *t;
 	register int  i;
+	register TLINE  *tlp;
 	register char  *s;
 
 	if ((t = (TEXT *)tm->os) != NULL)
 		return(t);
 						/* check arguments */
-	if (tm->oargs.nsargs - tndx(tm) < 1 ||
-			tm->oargs.nfargs != (tm->otype == PAT_BTEXT ? 11 :
-					tm->otype == PAT_CTEXT ? 15 : 9))
+	if (tm->oargs.nsargs - tndx(tm) < 1 || tm->oargs.nfargs < sndx(tm))
 		objerror(tm, USER, "bad # arguments");
 	if ((t = (TEXT *)malloc(sizeof(TEXT))) == NULL)
-		goto memerr;
+		error(SYSTEM, "out of memory in gettext");
 						/* compute vectors */
 	fcross(DxR, D, R);
 	fcross(t->right, DxR, D);
-	d = DOT(D,D) / DOT(t->right,t->right);
+	d = DOT(t->right,t->right);
+	if (d <= FTINY*FTINY)
+		objerror(tm, USER, "illegal motion vector");
+	d = DOT(D,D)/d;
 	for (i = 0; i < 3; i++)
 		t->right[i] *= d;
 	fcross(t->down, R, DxR);
-	d = DOT(R,R) / DOT(t->down,t->down);
+	d = DOT(R,R)/DOT(t->down,t->down);
 	for (i = 0; i < 3; i++)
 		t->down[i] *= d;
 						/* get text */
-	t->t = (char **)malloc(2*sizeof(char **));
-	if (t->t == NULL)
-		goto memerr;
+	tlp = &t->tl;
 	if (tm->oargs.nsargs - tndx(tm) > 1) {	/* single line */
 		s = linbuf;
 		for (i = tndx(tm)+1; i < tm->oargs.nsargs; i++) {
@@ -170,40 +199,49 @@ register OBJREC  *tm;
 			*s++ = ' ';
 		}
 		*--s = '\0';
-		t->t[0] = savqstr(linbuf);
-		t->t[1] = NULL;
+		tlp->next = tlalloc(linbuf);
+		tlp = tlp->next;
 	} else {				/* text file */
 		if ((s = getpath(tm->oargs.sarg[tndx(tm)],
-				libpath, R_OK)) == NULL) {
+				getlibpath(), R_OK)) == NULL) {
 			sprintf(errmsg, "cannot find text file \"%s\"",
 					tm->oargs.sarg[tndx(tm)]);
 			error(USER, errmsg);
 		}
 		if ((fp = fopen(s, "r")) == NULL) {
-			sprintf(errmsg, "cannot open text file \"%s\"",
-					s);
+			sprintf(errmsg, "cannot open text file \"%s\"", s);
 			error(SYSTEM, errmsg);
 		}
-		for (i=0; fgets(linbuf,sizeof(linbuf),fp)!=NULL; i++) {
+		while (fgets(linbuf, sizeof(linbuf), fp) != NULL) {
 			s = linbuf + strlen(linbuf) - 1;
 			if (*s == '\n')
 				*s = '\0';
-			t->t=(char **)realloc((char *)t->t,
-					(i+2)*sizeof(char **));
-			if (t->t == NULL)
-				goto memerr;
-			t->t[i] = savqstr(linbuf);
+			tlp->next = tlalloc(linbuf);
+			tlp = tlp->next;
 		}
-		t->t[i] = NULL;
 		fclose(fp);
 	}
+	tlp->next = NULL;
 						/* get the font */
 	t->f = getfont(tm->oargs.sarg[fndx(tm)]);
+						/* compute character spacing */
+	i = sndx(tm);
+	d = i < tm->oargs.nfargs ? tm->oargs.farg[i] : 0.0;
+	i = d * 255.0;
+	t->tl.width = 0;
+	for (tlp = t->tl.next; tlp != NULL; tlp = tlp->next) {
+		if (i < 0)
+			tlp->width = squeeztext(tlp->spc, TLSTR(tlp), t->f, -i);
+		else if (i > 0)
+			tlp->width = proptext(tlp->spc, TLSTR(tlp), t->f, i, 3);
+		else
+			tlp->width = uniftext(tlp->spc, TLSTR(tlp), t->f);
+		if (tlp->width > t->tl.width)
+			t->tl.width = tlp->width;
+	}
 						/* we're done */
 	tm->os = (char *)t;
 	return(t);
-memerr:
-	error(SYSTEM, "out of memory in gettext");
 #undef  R
 #undef  D
 }
@@ -213,14 +251,16 @@ freetext(m)			/* free text structures associated with 
 OBJREC  *m;
 {
 	register TEXT  *tp;
-	register int  i;
+	register TLINE  *tlp;
 
 	tp = (TEXT *)m->os;
 	if (tp == NULL)
 		return;
-	for (i = 0; tp->t[i] != NULL; i++)
-		freeqstr(tp->t[i]);
-	free((char *)tp->t);
+	while ((tlp = tp->tl.next) != NULL) {
+		tp->tl.next = tlp->next;
+		free((char *)tlp->spc);
+		free((char *)tlp);
+	}
 	free((char *)tp);
 	m->os = NULL;
 }
@@ -228,136 +268,77 @@ OBJREC  *m;
 
 intext(p, m)			/* check to see if p is in text glyph */
 FVECT  p;
-register OBJREC  *m;
+OBJREC  *m;
 {
 	register TEXT  *tp;
-	register int  i;
-	double  v[3], y, x;
-	int  col, lno;
+	register TLINE  *tlp;
+	FVECT  v;
+	double  y, x;
+	register int  i, h;
 				/* first, compute position in text */
+	tp = gettext(m);
 	v[0] = p[0] - m->oargs.farg[0];
 	v[1] = p[1] - m->oargs.farg[1];
 	v[2] = p[2] - m->oargs.farg[2];
-	col = x = DOT(v, tp->right);
-	lno = y = DOT(v, tp->down);
+	x = DOT(v, tp->right);
+	i = sndx(m);
+	if (i < m->oargs.nfargs)
+		x *= tp->f->mwidth + 255.*fabs(m->oargs.farg[i]);
+	else
+		x *= 255.;
+	h = x;
+	i = y = DOT(v, tp->down);
 	if (x < 0.0 || y < 0.0)
 		return(0);
-	x -= (double)col;
-	y = (lno+1) - y;
-				/* get the font character */
-	tp = gettext(m);
-	for (i = 0; i < lno; i++)
-		if (tp->t[i] == NULL)
-			return(0);
-	if (col >= strlen(tp->t[i]))
+	x -= (double)h;
+	y = ((i+1) - y)*255.;
+				/* find the line position */
+	for (tlp = tp->tl.next; tlp != NULL; tlp = tlp->next)
+		if (--i < 0)
+			break;
+	if (tlp == NULL || h >= tlp->width)
 		return(0);
-	return(inglyph(x, y, tp->f->fg[tp->t[i][col]]));
+	for (i = 0; (h -= tlp->spc[i]) >= 0; i++)
+		if (h < 255 && inglyph(h+x, y,
+				tp->f->fg[TLSTR(tlp)[i]&0xff]))
+			return(1);
+	return(0);
 }
 
 
-FONT *
-getfont(fname)				/* return font fname */
-char  *fname;
-{
-	char  buf[16];
-	FILE  *fp;
-	char  *pathname, *err;
-	int  gn, ngv, gv;
-	register GLYPH  *g;
-	register FONT  *f;
-
-	for (f = fontlist; f != NULL; f = f->next)
-		if (!strcmp(f->name, fname))
-			return(f);
-						/* load the font file */
-	if ((pathname = getpath(fname, libpath, R_OK)) == NULL) {
-		sprintf(errmsg, "cannot find font file \"%s\"", fname);
-		error(USER, errmsg);
-	}
-	f = (FONT *)calloc(1, sizeof(FONT));
-	if (f == NULL)
-		goto memerr;
-	f->name = savestr(fname);
-	if ((fp = fopen(pathname, "r")) == NULL) {
-		sprintf(errmsg, "cannot open font file \"%s\"",
-				pathname);
-		error(SYSTEM, errmsg);
-	}
-	while (fgetword(buf,sizeof(buf),fp) != NULL) {	/* get each glyph */
-		if (!isint(buf))
-			goto nonint;
-		gn = atoi(buf);
-		if (gn < 0 || gn > 255) {
-			err = "illegal";
-			goto fonterr;
-		}
-		if (f->fg[gn] != NULL) {
-			err = "duplicate";
-			goto fonterr;
-		}
-		if (fgetword(buf,sizeof(buf),fp) == NULL || !isint(buf) ||
-				(ngv = atoi(buf)) < 0 || ngv > 255) {
-			err = "bad # vertices for";
-			goto fonterr;
-		}
-		g = (GLYPH *)malloc((2*ngv+1)*sizeof(GLYPH));
-		if (g == NULL)
-			goto memerr;
-		f->fg[gn] = g;
-		*g++ = ngv;
-		ngv *= 2;
-		while (ngv--) {
-			if (fgetword(buf,sizeof(buf),fp) == NULL ||
-					!isint(buf) ||
-					(gv = atoi(buf)) < 0 || gv > 255) {
-				err = "bad vertex for";
-				goto fonterr;
-			}
-			*g++ = gv;
-		}
-	}
-	fclose(fp);
-	f->next = fontlist;
-	return(fontlist = f);
-nonint:
-	sprintf(errmsg, "non-integer in font file \"%s\"", pathname);
-	error(USER, errmsg);
-fonterr:
-	sprintf(errmsg, "%s character (%d) in font file \"%s\"",
-			err, gn, pathname);
-	error(USER, errmsg);
-memerr:
-	error(SYSTEM, "out of memory in fontglyph");
-}
-
-
 inglyph(x, y, gl)		/* (x,y) within font glyph gl? */
-double  x, y;
-GLYPH  *gl;
+double  x, y;		/* real coordinates in range [0,255) */
+register GLYPH  *gl;
 {
 	int  n, ncross;
 	int  xlb, ylb;
-	register GLYPH  *p0, *p1;
+	int  tv;
+	register GORD  *p0, *p1;
 
 	if (gl == NULL)
 		return(0);
-	x *= 256.0;			/* get glyph coordinates */
-	y *= 256.0;
-	xlb = x + 0.5;
-	ylb = y + 0.5;
-	n = *gl++;			/* get # of vertices */
-	p0 = gl + 2*(n-1);		/* connect last to first */
-	p1 = gl;
+	xlb = x;
+	ylb = y;
+	if (gl->left > xlb || gl->right <= xlb ||	/* check extent */
+			gl->bottom > ylb || gl->top <= ylb)
+		return(0);
+	xlb = xlb<<1 | 1;		/* add 1/2 to test points... */
+	ylb = ylb<<1 | 1;		/* ...so no equal comparisons */
+	n = gl->nverts;			/* get # of vertices */
+	p0 = gvlist(gl) + 2*(n-1);	/* connect last to first */
+	p1 = gvlist(gl);
 	ncross = 0;
 					/* positive x axis cross test */
 	while (n--) {
-		if ((p0[1] > ylb) ^ (p1[1] > ylb))
-			if (p0[0] > xlb && p1[0] > xlb)
+		if ((p0[1]<<1 > ylb) ^ (p1[1]<<1 > ylb)) {
+			tv = p0[0]<<1 > xlb | (p1[0]<<1 > xlb) << 1;
+			if (tv == 03)
 				ncross++;
-			else if (p0[0] > xlb || p1[0] > xlb)
+			else if (tv)
 				ncross += (p1[1] > p0[1]) ^
 						((p0[1]-y)*(p1[0]-x) >
 						(p0[0]-x)*(p1[1]-y));
+		}
 		p0 = p1;
 		p1 += 2;
 	}