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.10 by greg, Wed Oct 23 13:43:49 1991 UTC vs.
Revision 2.5 by greg, Fri Jun 19 14:20:22 1992 UTC

# Line 14 | Line 14 | static char SCCSid[] = "$SunId$ LBL";
14  
15   #include  "otypes.h"
16  
17 + #include  "font.h"
18 +
19   /*
20   *      A text pattern is specified as the text (a file or line),
21   *  the upper left anchor point, the right motion vector, the down
# Line 23 | Line 25 | static char SCCSid[] = "$SunId$ LBL";
25   *      modifier brighttext id
26   *      2 fontfile textfile
27   *      0
28 < *      11
28 > *      11+
29   *              Ax Ay Az
30   *              Rx Ry Rz
31   *              Dx Dy Dz
32   *              foreground background
33 + *              [spacing]
34   *
35   *  For a single line, we use:
36   *
37   *      modifier brighttext id
38   *      N+2 fontfile . This is a line with N words...
39   *      0
40 < *      11
40 > *      11+
41   *              Ax Ay Az
42   *              Rx Ry Rz
43   *              Dx Dy Dz
44   *              foreground background
45 + *              [spacing]
46   *
47   *  Colortext is identical, except colors are given rather than
48   *  brightnesses.  Mixtext has foreground and background modifiers:
# Line 46 | Line 50 | static char SCCSid[] = "$SunId$ LBL";
50   *      modifier mixtext id
51   *      4+ foremod backmod fontfile text..
52   *      0
53 < *      9
53 > *      9+
54   *              Ax Ay Az
55   *              Rx Ry Rz
56   *              Dx Dy Dz
57 + *              [spacing]
58   */
59  
60   #define  fndx(m)        ((m)->otype==MIX_TEXT ? 2 : 0)
61   #define  tndx(m)        ((m)->otype==MIX_TEXT ? 3 : 1)
62 + #define  sndx(m)        ((m)->otype==PAT_BTEXT ? 11 : \
63 +                                (m)->otype==PAT_CTEXT ? 15 : 9)
64  
58 – extern char  *libpath;                  /* library search path */
59 –
60 – typedef unsigned char  GLYPH;
61 –
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 –
65   typedef struct tline {
66          struct tline  *next;            /* pointer to next line */
67 +        short  *spc;                    /* character spacing */
68 +        int  width;                     /* total line width */
69                                          /* followed by the string */
70   }  TLINE;
71  
# Line 78 | Line 77 | typedef struct {
77          TLINE  tl;                      /* line list */
78   }  TEXT;
79  
80 + extern char  *libpath;
81 +
82   extern char  *fgetword();
83  
84   TEXT  *gettext();
85  
86   TLINE  *tlalloc();
87  
87 – FONT  *getfont();
88  
89 – static FONT  *fontlist = NULL;          /* our font list */
90 –
91 –
89   text(m, r)
90   register OBJREC  *m;
91   RAY  *r;
# Line 138 | Line 135 | tlalloc(s)                     /* allocate and assign text line */
135   char  *s;
136   {
137          extern char  *strcpy();
138 +        register int  siz;
139          register TLINE  *tl;
140  
141 <        tl = (TLINE *)malloc(sizeof(TLINE)+1+strlen(s));
142 <        if (tl == NULL)
141 >        siz = strlen(s) + 1;
142 >        if ((tl=(TLINE *)malloc(sizeof(TLINE)+siz)) == NULL ||
143 >                        (tl->spc=(short *)malloc(siz*sizeof(short))) == NULL)
144                  error(SYSTEM, "out of memory in tlalloc");
145 +        tl->spc = NULL;
146          tl->next = NULL;
147          strcpy(TLSTR(tl), s);
148          return(tl);
# Line 168 | Line 168 | register OBJREC  *tm;
168          if ((t = (TEXT *)tm->os) != NULL)
169                  return(t);
170                                                  /* check arguments */
171 <        if (tm->oargs.nsargs - tndx(tm) < 1 ||
172 <                        tm->oargs.nfargs != (tm->otype == PAT_BTEXT ? 11 :
173 <                                        tm->otype == PAT_CTEXT ? 15 : 9))
171 >        if (tm->oargs.nsargs - tndx(tm) < 1 || tm->oargs.nfargs < sndx(tm))
172                  objerror(tm, USER, "bad # arguments");
173          if ((t = (TEXT *)malloc(sizeof(TEXT))) == NULL)
174 <                error(SYSTEM, "out of memory in gettext");
174 >                goto memerr;
175                                                  /* compute vectors */
176          fcross(DxR, D, R);
177          fcross(t->right, DxR, D);
# Line 204 | Line 202 | register OBJREC  *tm;
202                          error(USER, errmsg);
203                  }
204                  if ((fp = fopen(s, "r")) == NULL) {
205 <                        sprintf(errmsg, "cannot open text file \"%s\"",
208 <                                        s);
205 >                        sprintf(errmsg, "cannot open text file \"%s\"", s);
206                          error(SYSTEM, errmsg);
207                  }
208                  while (fgets(linbuf, sizeof(linbuf), fp) != NULL) {
# Line 220 | Line 217 | register OBJREC  *tm;
217          tlp->next = NULL;
218                                                  /* get the font */
219          t->f = getfont(tm->oargs.sarg[fndx(tm)]);
220 +                                                /* compute character spacing */
221 +        i = sndx(tm);
222 +        d = i < tm->oargs.nfargs ? tm->oargs.farg[i] : 0.0;
223 +        i = d * 256.0;
224 +        for (tlp = t->tl.next; tlp != NULL; tlp = tlp->next) {
225 +                if ((tlp->spc = (short *)malloc(
226 +                                (strlen(TLSTR(tlp))+1)*sizeof(short))) == NULL)
227 +                        goto memerr;
228 +                if (i < 0)
229 +                        tlp->width = squeeztext(tlp->spc, TLSTR(tlp), t->f, -i);
230 +                else if (i > 0)
231 +                        tlp->width = proptext(tlp->spc, TLSTR(tlp), t->f, i, 3);
232 +                else
233 +                        tlp->width = uniftext(tlp->spc, TLSTR(tlp), t->f);
234 +        }
235                                                  /* we're done */
236          tm->os = (char *)t;
237          return(t);
238 + memerr:
239 +        error(SYSTEM, "out of memory in gettext");
240   #undef  R
241   #undef  D
242   }
# Line 237 | Line 251 | OBJREC  *m;
251          tp = (TEXT *)m->os;
252          if (tp == NULL)
253                  return;
254 <        for (tlp = tp->tl.next; tlp != NULL; tlp = tlp->next);
254 >        for (tlp = tp->tl.next; tlp != NULL; tlp = tlp->next) {
255 >                free((char *)tlp->spc);
256                  free((char *)tlp);
257 +        }
258          free((char *)tp);
259          m->os = NULL;
260   }
# Line 252 | Line 268 | OBJREC  *m;
268          register TLINE  *tlp;
269          FVECT  v;
270          double  y, x;
271 <        int  col;
256 <        register int  lno;
271 >        register int  i, h;
272                                  /* first, compute position in text */
273          tp = gettext(m);
274          v[0] = p[0] - m->oargs.farg[0];
275          v[1] = p[1] - m->oargs.farg[1];
276          v[2] = p[2] - m->oargs.farg[2];
277 <        col = x = DOT(v, tp->right);
278 <        lno = y = DOT(v, tp->down);
277 >        h = x = DOT(v, tp->right)*256.;
278 >        i = y = DOT(v, tp->down);
279          if (x < 0.0 || y < 0.0)
280                  return(0);
281 <        x -= (double)col;
282 <        y = (lno+1) - y;
283 <                                /* get the font character */
281 >        x -= (double)h;
282 >        y = ((i+1) - y)*256.;
283 >                                /* find the line position */
284          for (tlp = tp->tl.next; tlp != NULL; tlp = tlp->next)
285 <                if (--lno < 0)
285 >                if (--i < 0)
286                          break;
287 <        if (tlp == NULL || col >= strlen(TLSTR(tlp)))
287 >        if (tlp == NULL || h >= tlp->width)
288                  return(0);
289 <        return(inglyph(x, y, tp->f->fg[TLSTR(tlp)[col]]));
289 >        for (i = 0; (h -= tlp->spc[i]) >= 0; i++)
290 >                if (h < 256 && inglyph(h+x, y,
291 >                                tp->f->fg[TLSTR(tlp)[i]&0xff]))
292 >                        return(1);
293 >        return(0);
294   }
295  
296  
278 – FONT *
279 – getfont(fname)                          /* return font fname */
280 – char  *fname;
281 – {
282 –        char  buf[16];
283 –        FILE  *fp;
284 –        char  *pathname, *err;
285 –        int  gn, ngv, gv;
286 –        register GLYPH  *g;
287 –        register FONT  *f;
288 –
289 –        for (f = fontlist; f != NULL; f = f->next)
290 –                if (!strcmp(f->name, fname))
291 –                        return(f);
292 –                                                /* load the font file */
293 –        if ((pathname = getpath(fname, libpath, R_OK)) == NULL) {
294 –                sprintf(errmsg, "cannot find font file \"%s\"", fname);
295 –                error(USER, errmsg);
296 –        }
297 –        f = (FONT *)calloc(1, sizeof(FONT));
298 –        if (f == NULL)
299 –                goto memerr;
300 –        f->name = savestr(fname);
301 –        if ((fp = fopen(pathname, "r")) == NULL) {
302 –                sprintf(errmsg, "cannot open font file \"%s\"",
303 –                                pathname);
304 –                error(SYSTEM, errmsg);
305 –        }
306 –        while (fgetword(buf,sizeof(buf),fp) != NULL) {  /* get each glyph */
307 –                if (!isint(buf))
308 –                        goto nonint;
309 –                gn = atoi(buf);
310 –                if (gn < 0 || gn > 255) {
311 –                        err = "illegal";
312 –                        goto fonterr;
313 –                }
314 –                if (f->fg[gn] != NULL) {
315 –                        err = "duplicate";
316 –                        goto fonterr;
317 –                }
318 –                if (fgetword(buf,sizeof(buf),fp) == NULL || !isint(buf) ||
319 –                                (ngv = atoi(buf)) < 0 || ngv > 255) {
320 –                        err = "bad # vertices for";
321 –                        goto fonterr;
322 –                }
323 –                g = (GLYPH *)malloc((2*ngv+1)*sizeof(GLYPH));
324 –                if (g == NULL)
325 –                        goto memerr;
326 –                f->fg[gn] = g;
327 –                *g++ = ngv;
328 –                ngv *= 2;
329 –                while (ngv--) {
330 –                        if (fgetword(buf,sizeof(buf),fp) == NULL ||
331 –                                        !isint(buf) ||
332 –                                        (gv = atoi(buf)) < 0 || gv > 255) {
333 –                                err = "bad vertex for";
334 –                                goto fonterr;
335 –                        }
336 –                        *g++ = gv;
337 –                }
338 –        }
339 –        fclose(fp);
340 –        f->next = fontlist;
341 –        return(fontlist = f);
342 – nonint:
343 –        sprintf(errmsg, "non-integer in font file \"%s\"", pathname);
344 –        error(USER, errmsg);
345 – fonterr:
346 –        sprintf(errmsg, "%s character (%d) in font file \"%s\"",
347 –                        err, gn, pathname);
348 –        error(USER, errmsg);
349 – memerr:
350 –        error(SYSTEM, "out of memory in fontglyph");
351 – }
352 –
353 –
297   inglyph(x, y, gl)               /* (x,y) within font glyph gl? */
298 < double  x, y;
299 < GLYPH  *gl;
298 > double  x, y;           /* real coordinates in range [0,256) */
299 > register GLYPH  *gl;
300   {
301          int  n, ncross;
302          int  xlb, ylb;
303 <        register GLYPH  *p0, *p1;
303 >        int  tv;
304 >        register GORD  *p0, *p1;
305  
306          if (gl == NULL)
307                  return(0);
308 <        x *= 256.0;                     /* get glyph coordinates */
309 <        y *= 256.0;
310 <        xlb = x + 0.5;
311 <        ylb = y + 0.5;
312 <        n = *gl++;                      /* get # of vertices */
313 <        p0 = gl + 2*(n-1);              /* connect last to first */
314 <        p1 = gl;
308 >        xlb = x;
309 >        ylb = y;
310 >        if (gl->left > xlb || gl->right <= xlb ||       /* check extent */
311 >                        gl->bottom > ylb || gl->top <= ylb)
312 >                return(0);
313 >        xlb = xlb<<1 | 1;               /* add 1/2 to test points... */
314 >        ylb = ylb<<1 | 1;               /* ...so no equal comparisons */
315 >        n = gl->nverts;                 /* get # of vertices */
316 >        p0 = gvlist(gl) + 2*(n-1);      /* connect last to first */
317 >        p1 = gvlist(gl);
318          ncross = 0;
319                                          /* positive x axis cross test */
320          while (n--) {
321 <                if ((p0[1] > ylb) ^ (p1[1] > ylb))
322 <                        if (p0[0] > xlb && p1[0] > xlb)
321 >                if ((p0[1]<<1 > ylb) ^ (p1[1]<<1 > ylb)) {
322 >                        tv = p0[0]<<1 > xlb | (p1[0]<<1 > xlb) << 1;
323 >                        if (tv == 03)
324                                  ncross++;
325 <                        else if (p0[0] > xlb || p1[0] > xlb)
325 >                        else if (tv)
326                                  ncross += (p1[1] > p0[1]) ^
327                                                  ((p0[1]-y)*(p1[0]-x) >
328                                                  (p0[0]-x)*(p1[1]-y));
329 +                }
330                  p0 = p1;
331                  p1 += 2;
332          }

Diff Legend

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