ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/rt/text.c
(Generate patch)

Comparing ray/src/rt/text.c (file contents):
Revision 1.7 by greg, Mon Aug 5 09:32:12 1991 UTC vs.
Revision 2.30 by greg, Tue Dec 3 19:36:58 2024 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1991 Regents of the University of California */
2 –
1   #ifndef lint
2 < static char SCCSid[] = "$SunId$ LBL";
2 > static const char       RCSid[] = "$Id$";
3   #endif
6 –
4   /*
5   *  text.c - functions for text patterns and mixtures.
9 – *
10 – *     11/12/86
6   */
7  
8 < #include  "ray.h"
8 > #include "copyright.h"
9  
10 + #include  "ray.h"
11 + #include  "paths.h"
12   #include  "otypes.h"
13 + #include  "rtotypes.h"
14 + #include  "font.h"
15  
16   /*
17   *      A text pattern is specified as the text (a file or line),
# Line 23 | Line 22 | static char SCCSid[] = "$SunId$ LBL";
22   *      modifier brighttext id
23   *      2 fontfile textfile
24   *      0
25 < *      11
25 > *      11+
26   *              Ax Ay Az
27   *              Rx Ry Rz
28   *              Dx Dy Dz
29   *              foreground background
30 + *              [spacing]
31   *
32   *  For a single line, we use:
33   *
34   *      modifier brighttext id
35   *      N+2 fontfile . This is a line with N words...
36   *      0
37 < *      11
37 > *      11+
38   *              Ax Ay Az
39   *              Rx Ry Rz
40   *              Dx Dy Dz
41   *              foreground background
42 + *              [spacing]
43   *
44   *  Colortext is identical, except colors are given rather than
45 < *  brightnesses.  Mixtext has foreground and background modifiers:
45 > *  brightnesses.
46   *
47 + *  Mixtext has foreground and background modifiers:
48 + *
49   *      modifier mixtext id
50   *      4+ foremod backmod fontfile text..
51   *      0
52 < *      9
52 > *      9+
53   *              Ax Ay Az
54   *              Rx Ry Rz
55   *              Dx Dy Dz
56 + *              [spacing]
57   */
58  
59   #define  fndx(m)        ((m)->otype==MIX_TEXT ? 2 : 0)
60   #define  tndx(m)        ((m)->otype==MIX_TEXT ? 3 : 1)
61 + #define  sndx(m)        ((m)->otype==PAT_BTEXT ? 11 : \
62 +                                (m)->otype==PAT_CTEXT ? 15 : 9)
63  
64 < extern char  *libpath;                  /* library search path */
64 > typedef struct tline {
65 >        struct tline  *next;            /* pointer to next line */
66 >        short  *spc;                    /* character spacing */
67 >        int  width;                     /* total line width */
68 >                                        /* followed by the string */
69 > }  TLINE;
70  
71 < typedef unsigned char  GLYPH;
71 > #define  TLSTR(l)       ((char *)((l)+1))
72  
62 – typedef struct font {
63 –        GLYPH  *fg[256];                /* font glyphs */
64 –        char  *name;                    /* font file name */
65 –        struct font  *next;             /* next font in list */
66 – }  FONT;
67 –
73   typedef struct {
69 –        char  **t;                      /* text array */
74          FVECT  right, down;             /* right and down unit vectors */
75          FONT  *f;                       /* our font */
76 +        TLINE  tl;                      /* line list */
77   }  TEXT;
78  
79 < extern char  *fgetword();
79 > static TLINE * tlalloc(char *s);
80 > static TEXT * gettext(OBJREC *tm);
81 > static int intext(FVECT p, OBJREC *m);
82 > static int inglyph(double x, double y, GLYPH *gl);
83  
76 – TEXT  *gettext();
84  
85 < FONT  *getfont();
86 <
87 < static FONT  *fontlist = NULL;          /* our font list */
88 <
89 <
83 < text(m, r)
84 < register OBJREC  *m;
85 < RAY  *r;
85 > int
86 > do_text(
87 >        OBJREC  *m,
88 >        RAY  *r
89 > )
90   {
91 <        double  v[3];
91 >        FVECT  v;
92          int  foreground;
93                                  /* get transformed position */
94          if (r->rox != NULL)
# Line 99 | Line 103 | RAY  *r;
103                  char  *modname = m->oargs.sarg[foreground ? 0 : 1];
104                  if (!strcmp(modname, VOIDID))
105                          omod = OVOID;
106 <                else if ((omod = modifier(modname)) == OVOID) {
106 >                else if ((omod = lastmod(objndx(m), modname)) == OVOID) {
107                          sprintf(errmsg, "undefined modifier \"%s\"", modname);
108                          objerror(m, USER, errmsg);
109                  }
110 <                raytexture(r, omod);
110 >                if (rayshade(r, omod)) {
111 >                        if (m->omod != OVOID)
112 >                                objerror(m, USER, "inappropriate modifier");
113 >                        return(1);
114 >                }
115          } else if (m->otype == PAT_BTEXT) {
116 <                if (foreground)
117 <                        scalecolor(r->pcol, m->oargs.farg[9]);
118 <                else
119 <                        scalecolor(r->pcol, m->oargs.farg[10]);
116 >                if (foreground) {
117 >                        scalescolor(r->pcol, m->oargs.farg[9]);
118 >                } else {
119 >                        scalescolor(r->pcol, m->oargs.farg[10]);
120 >                }
121          } else { /* PAT_CTEXT */
122 <                COLOR  cval;
122 >                SCOLOR  scval;
123                  if (foreground)
124 <                        setcolor(cval, m->oargs.farg[9],
124 >                        setscolor(scval, m->oargs.farg[9],
125                                          m->oargs.farg[10],
126                                          m->oargs.farg[11]);
127                  else
128 <                        setcolor(cval, m->oargs.farg[12],
128 >                        setscolor(scval, m->oargs.farg[12],
129                                          m->oargs.farg[13],
130                                          m->oargs.farg[14]);
131 <                multcolor(r->pcol, cval);
131 >                smultscolor(r->pcol, scval);
132          }
133 +        return(0);
134   }
135  
136  
137 < TEXT *
138 < gettext(tm)                     /* get text structure for material */
139 < register OBJREC  *tm;
137 > static TLINE *
138 > tlalloc(                        /* allocate and assign text line */
139 >        char  *s
140 > )
141   {
142 +        int  siz;
143 +        TLINE  *tl;
144 +
145 +        siz = strlen(s) + 1;
146 +        if ((tl=(TLINE *)malloc(sizeof(TLINE)+siz)) == NULL ||
147 +                        (tl->spc=(short *)malloc(siz*sizeof(short))) == NULL)
148 +                error(SYSTEM, "out of memory in tlalloc");
149 +        tl->next = NULL;
150 +        strcpy(TLSTR(tl), s);
151 +        return(tl);
152 + }
153 +
154 +
155 + static TEXT *
156 + gettext(                        /* get text structure for material */
157 +        OBJREC  *tm
158 + )
159 + {
160   #define  R      (tm->oargs.farg+3)
161   #define  D      (tm->oargs.farg+6)
133 –        extern char  *strcpy(), *fgets();
162          FVECT  DxR;
163          double  d;
164          FILE  *fp;
165          char  linbuf[512];
166 <        register TEXT  *t;
167 <        register int  i;
168 <        register char  *s;
166 >        TEXT  *t;
167 >        int  i;
168 >        TLINE  *tlp;
169 >        char  *s;
170  
171          if ((t = (TEXT *)tm->os) != NULL)
172                  return(t);
173                                                  /* check arguments */
174 <        if (tm->oargs.nsargs - tndx(tm) < 1 ||
146 <                        tm->oargs.nfargs != (tm->otype == PAT_BTEXT ? 11 :
147 <                                        tm->otype == PAT_CTEXT ? 15 : 9))
174 >        if (tm->oargs.nsargs - tndx(tm) < 1 || tm->oargs.nfargs < sndx(tm))
175                  objerror(tm, USER, "bad # arguments");
176          if ((t = (TEXT *)malloc(sizeof(TEXT))) == NULL)
177 <                goto memerr;
177 >                error(SYSTEM, "out of memory in gettext");
178                                                  /* compute vectors */
179          fcross(DxR, D, R);
180          fcross(t->right, DxR, D);
181 <        d = DOT(D,D) / DOT(t->right,t->right);
181 >        d = DOT(t->right,t->right);
182 >        if (d <= FTINY*FTINY*FTINY*FTINY)
183 >                objerror(tm, USER, "illegal motion vector");
184 >        d = DOT(D,D)/d;
185          for (i = 0; i < 3; i++)
186                  t->right[i] *= d;
187          fcross(t->down, R, DxR);
188 <        d = DOT(R,R) / DOT(t->down,t->down);
188 >        d = DOT(R,R)/DOT(t->down,t->down);
189          for (i = 0; i < 3; i++)
190                  t->down[i] *= d;
191                                                  /* get text */
192 <        t->t = (char **)malloc(2*sizeof(char **));
163 <        if (t->t == NULL)
164 <                goto memerr;
192 >        tlp = &t->tl;
193          if (tm->oargs.nsargs - tndx(tm) > 1) {  /* single line */
194                  s = linbuf;
195                  for (i = tndx(tm)+1; i < tm->oargs.nsargs; i++) {
# Line 170 | Line 198 | register OBJREC  *tm;
198                          *s++ = ' ';
199                  }
200                  *--s = '\0';
201 <                t->t[0] = savqstr(linbuf);
202 <                t->t[1] = NULL;
201 >                tlp->next = tlalloc(linbuf);
202 >                tlp = tlp->next;
203          } else {                                /* text file */
204                  if ((s = getpath(tm->oargs.sarg[tndx(tm)],
205 <                                libpath, R_OK)) == NULL) {
205 >                                getrlibpath(), R_OK)) == NULL) {
206                          sprintf(errmsg, "cannot find text file \"%s\"",
207                                          tm->oargs.sarg[tndx(tm)]);
208 <                        error(USER, errmsg);
208 >                        error(SYSTEM, errmsg);
209                  }
210                  if ((fp = fopen(s, "r")) == NULL) {
211 <                        sprintf(errmsg, "cannot open text file \"%s\"",
184 <                                        s);
211 >                        sprintf(errmsg, "cannot open text file \"%s\"", s);
212                          error(SYSTEM, errmsg);
213                  }
214 <                for (i=0; fgets(linbuf,sizeof(linbuf),fp)!=NULL; i++) {
214 >                while (fgets(linbuf, sizeof(linbuf), fp) != NULL) {
215                          s = linbuf + strlen(linbuf) - 1;
216                          if (*s == '\n')
217                                  *s = '\0';
218 <                        t->t=(char **)realloc((char *)t->t,
219 <                                        (i+2)*sizeof(char **));
193 <                        if (t->t == NULL)
194 <                                goto memerr;
195 <                        t->t[i] = savqstr(linbuf);
218 >                        tlp->next = tlalloc(linbuf);
219 >                        tlp = tlp->next;
220                  }
197 –                t->t[i] = NULL;
221                  fclose(fp);
222          }
223 +        tlp->next = NULL;
224                                                  /* get the font */
225          t->f = getfont(tm->oargs.sarg[fndx(tm)]);
226 +        if (!t->f)
227 +                objerror(tm, USER, "font load error");
228 +                                                /* compute character spacing */
229 +        i = sndx(tm);
230 +        d = i < tm->oargs.nfargs ? tm->oargs.farg[i] : 0.0;
231 +        i = d * 255.0;
232 +        t->tl.width = 0;
233 +        for (tlp = t->tl.next; tlp != NULL; tlp = tlp->next) {
234 +                if (i < 0)
235 +                        tlp->width = squeeztext(tlp->spc, TLSTR(tlp), t->f, -i);
236 +                else if (i > 0)
237 +                        tlp->width = proptext(tlp->spc, TLSTR(tlp), t->f, i, 3);
238 +                else
239 +                        tlp->width = uniftext(tlp->spc, TLSTR(tlp), t->f);
240 +                if (tlp->width > t->tl.width)
241 +                        t->tl.width = tlp->width;
242 +        }
243                                                  /* we're done */
244          tm->os = (char *)t;
245          return(t);
205 – memerr:
206 –        error(SYSTEM, "out of memory in gettext");
246   #undef  R
247   #undef  D
248   }
249  
250  
251 < freetext(m)                     /* free text structures associated with m */
252 < OBJREC  *m;
251 > void
252 > freetext(                       /* free text structures associated with m */
253 >        OBJREC  *m
254 > )
255   {
256 <        register TEXT  *tp;
257 <        register int  i;
256 >        TEXT  *tp;
257 >        TLINE  *tlp;
258  
259          tp = (TEXT *)m->os;
260          if (tp == NULL)
261                  return;
262 <        for (i = 0; tp->t[i] != NULL; i++)
263 <                freeqstr(tp->t[i]);
264 <        free((char *)tp->t);
265 <        free((char *)tp);
262 >        while ((tlp = tp->tl.next) != NULL) {
263 >                tp->tl.next = tlp->next;
264 >                free((void *)tlp->spc);
265 >                free((void *)tlp);
266 >        }
267 >        freefont(tp->f);        /* release font reference */
268 >        free((void *)tp);
269          m->os = NULL;
270   }
271  
272  
273 < intext(p, m)                    /* check to see if p is in text glyph */
274 < FVECT  p;
275 < register OBJREC  *m;
273 > static int
274 > intext(                 /* check to see if p is in text glyph */
275 >        FVECT  p,
276 >        OBJREC  *m
277 > )
278   {
279 <        register TEXT  *tp;
280 <        register int  i;
281 <        double  v[3], y, x;
282 <        int  col, lno;
279 >        TEXT  *tp;
280 >        TLINE  *tlp;
281 >        FVECT  v;
282 >        double  y, x;
283 >        int  i, h;
284                                  /* first, compute position in text */
285 +        tp = gettext(m);
286          v[0] = p[0] - m->oargs.farg[0];
287          v[1] = p[1] - m->oargs.farg[1];
288          v[2] = p[2] - m->oargs.farg[2];
289 <        col = x = DOT(v, tp->right);
290 <        lno = y = DOT(v, tp->down);
291 <        if (x < 0.0 || y < 0.0)
289 >        x = DOT(v, tp->right);
290 >        i = sndx(m);
291 >        if (i < m->oargs.nfargs)
292 >                x *= tp->f->mwidth + 255.*fabs(m->oargs.farg[i]);
293 >        else
294 >                x *= 255.;
295 >        h = x;
296 >        i = y = DOT(v, tp->down);
297 >        if ((x < 0.0) | (y < 0.0))
298                  return(0);
299 <        x -= (double)col;
300 <        y = (lno+1) - y;
301 <                                /* get the font character */
302 <        tp = gettext(m);
303 <        for (i = 0; i < lno; i++)
304 <                if (tp->t[i] == NULL)
305 <                        return(0);
252 <        if (col >= strlen(tp->t[i]))
299 >        x -= (double)h;
300 >        y = ((i+1) - y)*255.;
301 >                                /* find the line position */
302 >        for (tlp = tp->tl.next; tlp != NULL; tlp = tlp->next)
303 >                if (--i < 0)
304 >                        break;
305 >        if (tlp == NULL || h >= tlp->width)
306                  return(0);
307 <        return(inglyph(x, y, tp->f->fg[tp->t[i][col]]));
307 >        for (i = 0; (h -= tlp->spc[i]) >= 0; i++)
308 >                if (h < 255 && inglyph(h+x, y,
309 >                                tp->f->fg[TLSTR(tlp)[i]&0xff]))
310 >                        return(1);
311 >        return(0);
312   }
313  
314  
315 < FONT *
316 < getfont(fname)                          /* return font fname */
317 < char  *fname;
315 > static int
316 > inglyph(                /* (x,y) within font glyph gl? */
317 >        double  x,              /* real coordinates in range [0,255) */
318 >        double  y,
319 >        GLYPH  *gl
320 > )
321   {
262 –        char  buf[16];
263 –        FILE  *fp;
264 –        char  *pathname, *err;
265 –        int  gn, ngv, gv;
266 –        register GLYPH  *g;
267 –        register FONT  *f;
268 –
269 –        for (f = fontlist; f != NULL; f = f->next)
270 –                if (!strcmp(f->name, fname))
271 –                        return(f);
272 –                                                /* load the font file */
273 –        if ((pathname = getpath(fname, libpath, R_OK)) == NULL) {
274 –                sprintf(errmsg, "cannot find font file \"%s\"", fname);
275 –                error(USER, errmsg);
276 –        }
277 –        f = (FONT *)calloc(1, sizeof(FONT));
278 –        if (f == NULL)
279 –                goto memerr;
280 –        f->name = savestr(fname);
281 –        if ((fp = fopen(pathname, "r")) == NULL) {
282 –                sprintf(errmsg, "cannot open font file \"%s\"",
283 –                                pathname);
284 –                error(SYSTEM, errmsg);
285 –        }
286 –        while (fgetword(buf,sizeof(buf),fp) != NULL) {  /* get each glyph */
287 –                if (!isint(buf))
288 –                        goto nonint;
289 –                gn = atoi(buf);
290 –                if (gn < 0 || gn > 255) {
291 –                        err = "illegal";
292 –                        goto fonterr;
293 –                }
294 –                if (f->fg[gn] != NULL) {
295 –                        err = "duplicate";
296 –                        goto fonterr;
297 –                }
298 –                if (fgetword(buf,sizeof(buf),fp) == NULL || !isint(buf) ||
299 –                                (ngv = atoi(buf)) < 0 || ngv > 255) {
300 –                        err = "bad # vertices for";
301 –                        goto fonterr;
302 –                }
303 –                g = (GLYPH *)malloc((2*ngv+1)*sizeof(GLYPH));
304 –                if (g == NULL)
305 –                        goto memerr;
306 –                f->fg[gn] = g;
307 –                *g++ = ngv;
308 –                ngv *= 2;
309 –                while (ngv--) {
310 –                        if (fgetword(buf,sizeof(buf),fp) == NULL ||
311 –                                        !isint(buf) ||
312 –                                        (gv = atoi(buf)) < 0 || gv > 255) {
313 –                                err = "bad vertex for";
314 –                                goto fonterr;
315 –                        }
316 –                        *g++ = gv;
317 –                }
318 –        }
319 –        fclose(fp);
320 –        f->next = fontlist;
321 –        return(fontlist = f);
322 – nonint:
323 –        sprintf(errmsg, "non-integer in font file \"%s\"", pathname);
324 –        error(USER, errmsg);
325 – fonterr:
326 –        sprintf(errmsg, "%s character (%d) in font file \"%s\"",
327 –                        err, gn, pathname);
328 –        error(USER, errmsg);
329 – memerr:
330 –        error(SYSTEM, "out of memory in fontglyph");
331 – }
332 –
333 –
334 – inglyph(x, y, gl)               /* (x,y) within font glyph gl? */
335 – double  x, y;
336 – GLYPH  *gl;
337 – {
322          int  n, ncross;
323          int  xlb, ylb;
324 <        register GLYPH  *p0, *p1;
324 >        int  tv;
325 >        GORD  *p0, *p1;
326  
327          if (gl == NULL)
328                  return(0);
329 <        x *= 256.0;                     /* get glyph coordinates */
330 <        y *= 256.0;
331 <        xlb = x + 0.5;
332 <        ylb = y + 0.5;
333 <        n = *gl++;                      /* get # of vertices */
334 <        p0 = gl + 2*(n-1);              /* connect last to first */
335 <        p1 = gl;
329 >        xlb = x;
330 >        ylb = y;
331 >        if ((gl->left > xlb) | (gl->right <= xlb) |     /* check extent */
332 >                        (gl->bottom > ylb) | (gl->top <= ylb))
333 >                return(0);
334 >        xlb = xlb<<1 | 1;               /* add 1/2 to test points... */
335 >        ylb = ylb<<1 | 1;               /* ...so no equal comparisons */
336 >        n = gl->nverts;                 /* get # of vertices */
337 >        p0 = gvlist(gl) + 2*(n-1);      /* connect last to first */
338 >        p1 = gvlist(gl);
339          ncross = 0;
340                                          /* positive x axis cross test */
341          while (n--) {
342 <                if ((p0[1] > ylb) ^ (p1[1] > ylb))
343 <                        if (p0[0] > xlb && p1[0] > xlb)
342 >                if ((p0[1]<<1 > ylb) ^ (p1[1]<<1 > ylb)) {
343 >                        tv = (p0[0]<<1 > xlb) | ((p1[0]<<1 > xlb) << 1);
344 >                        if (tv == 03)
345                                  ncross++;
346 <                        else if (p0[0] > xlb || p1[0] > xlb)
346 >                        else if (tv)
347                                  ncross += (p1[1] > p0[1]) ^
348                                                  ((p0[1]-y)*(p1[0]-x) >
349                                                  (p0[0]-x)*(p1[1]-y));
350 +                }
351                  p0 = p1;
352                  p1 += 2;
353          }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines