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.6 by greg, Mon Jul 22 13:02:27 1991 UTC vs.
Revision 2.5 by greg, Fri Jun 19 14:20:22 1992 UTC

# Line 1 | Line 1
1 < /* Copyright (c) 1990 Regents of the University of California */
1 > /* Copyright (c) 1991 Regents of the University of California */
2  
3   #ifndef lint
4   static char SCCSid[] = "$SunId$ LBL";
# 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  
65 < extern char  *libpath;                  /* library search path */
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  
72 < typedef unsigned char  GLYPH;
72 > #define  TLSTR(l)       ((char *)((l)+1))
73  
74 < typedef struct font {
75 <        GLYPH  *fg[256];                /* font glyphs */
76 <        char  *name;                    /* font file name */
77 <        struct font  *next;             /* next font in list */
78 < }  FONT;
74 > typedef struct {
75 >        FVECT  right, down;             /* right and down unit vectors */
76 >        FONT  *f;                       /* our font */
77 >        TLINE  tl;                      /* line list */
78 > }  TEXT;
79  
80 + extern char  *libpath;
81 +
82   extern char  *fgetword();
83  
84 < extern GLYPH  *getglyph();
84 > TEXT  *gettext();
85  
86 < extern FONT  *getfont();
86 > TLINE  *tlalloc();
87  
74 – static FONT  *fontlist = NULL;          /* our font list */
88  
76 –
89   text(m, r)
90   register OBJREC  *m;
91   RAY  *r;
92   {
93 <        double  v[3], y, x;
82 <        int  col, lno;
93 >        FVECT  v;
94          int  foreground;
95 <        GLYPH  *g;
85 <        register double  *ap;
86 <
87 <        if (m->oargs.nsargs - tndx(m) < 1 ||
88 <                        m->oargs.nfargs != (m->otype == PAT_BTEXT ? 11 :
89 <                                        m->otype == PAT_CTEXT ? 15 : 9))
90 <                objerror(m, USER, "bad # arguments");
91 <
92 <                                /* first, discover position in text */
93 <        ap = m->oargs.farg;
95 >                                /* get transformed position */
96          if (r->rox != NULL)
97                  multp3(v, r->rop, r->rox->b.xfm);
98          else
99                  VCOPY(v, r->rop);
100 <        v[0] -= ap[0];
101 <        v[1] -= ap[1];
100 <        v[2] -= ap[2];
101 <        col = x = DOT(v, ap+3) / DOT(ap+3, ap+3);
102 <        lno = y = DOT(v, ap+6) / DOT(ap+6, ap+6);
103 <        x -= col;
104 <        y = (lno+1) - y;
105 <                                /* get the font character, check it */
106 <        if ((g = getglyph(m, lno, col)) == NULL)
107 <                foreground = 0;
108 <        else
109 <                foreground = inglyph(x, y, g);
100 >                                /* check if we are within a text glyph */
101 >        foreground = intext(v, m);
102                                  /* modify */
103          if (m->otype == MIX_TEXT) {
104                  OBJECT  omod;
# Line 117 | Line 109 | RAY  *r;
109                          sprintf(errmsg, "undefined modifier \"%s\"", modname);
110                          objerror(m, USER, errmsg);
111                  }
112 <                raymixture(r, omod, OVOID, 1.0);
112 >                raytexture(r, omod);
113          } else if (m->otype == PAT_BTEXT) {
114                  if (foreground)
115 <                        scalecolor(r->pcol, ap[9]);
115 >                        scalecolor(r->pcol, m->oargs.farg[9]);
116                  else
117 <                        scalecolor(r->pcol, ap[10]);
117 >                        scalecolor(r->pcol, m->oargs.farg[10]);
118          } else { /* PAT_CTEXT */
119                  COLOR  cval;
120                  if (foreground)
121 <                        setcolor(cval, ap[9], ap[10], ap[11]);
121 >                        setcolor(cval, m->oargs.farg[9],
122 >                                        m->oargs.farg[10],
123 >                                        m->oargs.farg[11]);
124                  else
125 <                        setcolor(cval, ap[12], ap[13], ap[14]);
125 >                        setcolor(cval, m->oargs.farg[12],
126 >                                        m->oargs.farg[13],
127 >                                        m->oargs.farg[14]);
128                  multcolor(r->pcol, cval);
129          }
130   }
131  
132  
133 < GLYPH *
134 < getglyph(tm, lno, col)          /* get a glyph from a text description */
133 > TLINE *
134 > 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 >        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);
149 > }
150 >
151 >
152 > TEXT *
153 > gettext(tm)                     /* get text structure for material */
154   register OBJREC  *tm;
140 – int  lno;
141 – int  col;
155   {
156 + #define  R      (tm->oargs.farg+3)
157 + #define  D      (tm->oargs.farg+6)
158          extern char  *strcpy(), *fgets();
159 +        FVECT  DxR;
160 +        double  d;
161          FILE  *fp;
162          char  linbuf[512];
163 +        TEXT  *t;
164          register int  i;
165 <        register char  **txt;
165 >        register TLINE  *tlp;
166          register char  *s;
167  
168 <        if (lno < 0 || col < 0)
169 <                return(NULL);
170 <        if (tm->os == NULL) {
171 <                txt = (char **)malloc(2*sizeof(char **));
172 <                if (txt == NULL)
173 <                        goto memerr;
174 <                if (tm->oargs.nsargs - tndx(tm) > 1) {  /* single line */
175 <                        s = linbuf;
176 <                        for (i = tndx(tm)+1; i < tm->oargs.nsargs; i++) {
177 <                                strcpy(s, tm->oargs.sarg[i]);
178 <                                s += strlen(s);
179 <                                *s++ = ' ';
180 <                        }
181 <                        *--s = '\0';
182 <                        txt[0] = savqstr(linbuf);
183 <                        txt[1] = NULL;
184 <                } else {                                /* text file */
185 <                        if ((s = getpath(tm->oargs.sarg[tndx(tm)],
186 <                                        libpath, R_OK)) == NULL) {
187 <                                sprintf(errmsg, "cannot find text file \"%s\"",
188 <                                                tm->oargs.sarg[tndx(tm)]);
189 <                                error(USER, errmsg);
190 <                        }
191 <                        if ((fp = fopen(s, "r")) == NULL) {
192 <                                sprintf(errmsg, "cannot open text file \"%s\"",
175 <                                                s);
176 <                                error(SYSTEM, errmsg);
177 <                        }
178 <                        for (i=0; fgets(linbuf,sizeof(linbuf),fp)!=NULL; i++) {
179 <                                s = linbuf + strlen(linbuf) - 1;
180 <                                if (*s == '\n')
181 <                                        *s = '\0';
182 <                                txt=(char **)realloc(txt,(i+2)*sizeof(char **));
183 <                                if (txt == NULL)
184 <                                        goto memerr;
185 <                                txt[i] = savqstr(linbuf);
186 <                        }
187 <                        txt[i] = NULL;
188 <                        fclose(fp);
168 >        if ((t = (TEXT *)tm->os) != NULL)
169 >                return(t);
170 >                                                /* check arguments */
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 >                goto memerr;
175 >                                                /* compute vectors */
176 >        fcross(DxR, D, R);
177 >        fcross(t->right, DxR, D);
178 >        d = DOT(D,D)/DOT(t->right,t->right);
179 >        for (i = 0; i < 3; i++)
180 >                t->right[i] *= d;
181 >        fcross(t->down, R, DxR);
182 >        d = DOT(R,R)/DOT(t->down,t->down);
183 >        for (i = 0; i < 3; i++)
184 >                t->down[i] *= d;
185 >                                                /* get text */
186 >        tlp = &t->tl;
187 >        if (tm->oargs.nsargs - tndx(tm) > 1) {  /* single line */
188 >                s = linbuf;
189 >                for (i = tndx(tm)+1; i < tm->oargs.nsargs; i++) {
190 >                        strcpy(s, tm->oargs.sarg[i]);
191 >                        s += strlen(s);
192 >                        *s++ = ' ';
193                  }
194 <                tm->os = (char *)txt;
194 >                *--s = '\0';
195 >                tlp->next = tlalloc(linbuf);
196 >                tlp = tlp->next;
197 >        } else {                                /* text file */
198 >                if ((s = getpath(tm->oargs.sarg[tndx(tm)],
199 >                                libpath, R_OK)) == NULL) {
200 >                        sprintf(errmsg, "cannot find text file \"%s\"",
201 >                                        tm->oargs.sarg[tndx(tm)]);
202 >                        error(USER, errmsg);
203 >                }
204 >                if ((fp = fopen(s, "r")) == NULL) {
205 >                        sprintf(errmsg, "cannot open text file \"%s\"", s);
206 >                        error(SYSTEM, errmsg);
207 >                }
208 >                while (fgets(linbuf, sizeof(linbuf), fp) != NULL) {
209 >                        s = linbuf + strlen(linbuf) - 1;
210 >                        if (*s == '\n')
211 >                                *s = '\0';
212 >                        tlp->next = tlalloc(linbuf);
213 >                        tlp = tlp->next;
214 >                }
215 >                fclose(fp);
216          }
217 <        txt = (char **)tm->os;
218 <        for (i = 0; i < lno; i++)
219 <                if (txt[i] == NULL)
220 <                        break;
221 <        if ((s = txt[i]) == NULL || col >= strlen(s))
222 <                return(NULL);
223 <        else
224 <                return(getfont(tm->oargs.sarg[fndx(tm)])->fg[s[col]]);
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 getglyph");
239 >        error(SYSTEM, "out of memory in gettext");
240 > #undef  R
241 > #undef  D
242   }
243  
244  
245 < FONT *
246 < getfont(fname)                          /* return font fname */
207 < char  *fname;
245 > freetext(m)                     /* free text structures associated with m */
246 > OBJREC  *m;
247   {
248 <        char  buf[16];
249 <        FILE  *fp;
211 <        char  *pathname, *err;
212 <        int  gn, ngv, gv;
213 <        register GLYPH  *g;
214 <        register FONT  *f;
248 >        register TEXT  *tp;
249 >        register TLINE  *tlp;
250  
251 <        for (f = fontlist; f != NULL; f = f->next)
252 <                if (!strcmp(f->name, fname))
253 <                        return(f);
254 <                                                /* load the font file */
255 <        if ((pathname = getpath(fname, libpath, R_OK)) == NULL) {
256 <                sprintf(errmsg, "cannot find font file \"%s\"", fname);
222 <                error(USER, errmsg);
251 >        tp = (TEXT *)m->os;
252 >        if (tp == NULL)
253 >                return;
254 >        for (tlp = tp->tl.next; tlp != NULL; tlp = tlp->next) {
255 >                free((char *)tlp->spc);
256 >                free((char *)tlp);
257          }
258 <        f = (FONT *)calloc(1, sizeof(FONT));
259 <        if (f == NULL)
226 <                goto memerr;
227 <        f->name = savestr(fname);
228 <        if ((fp = fopen(pathname, "r")) == NULL) {
229 <                sprintf(errmsg, "cannot open font file \"%s\"",
230 <                                pathname);
231 <                error(SYSTEM, errmsg);
232 <        }
233 <        while (fgetword(buf,sizeof(buf),fp) != NULL) {  /* get each glyph */
234 <                if (!isint(buf))
235 <                        goto nonint;
236 <                gn = atoi(buf);
237 <                if (gn < 0 || gn > 255) {
238 <                        err = "illegal";
239 <                        goto fonterr;
240 <                }
241 <                if (f->fg[gn] != NULL) {
242 <                        err = "duplicate";
243 <                        goto fonterr;
244 <                }
245 <                if (fgetword(buf,sizeof(buf),fp) == NULL || !isint(buf) ||
246 <                                (ngv = atoi(buf)) < 0 || ngv > 255) {
247 <                        err = "bad # vertices for";
248 <                        goto fonterr;
249 <                }
250 <                g = (GLYPH *)malloc((2*ngv+1)*sizeof(GLYPH));
251 <                if (g == NULL)
252 <                        goto memerr;
253 <                f->fg[gn] = g;
254 <                *g++ = ngv;
255 <                ngv *= 2;
256 <                while (ngv--) {
257 <                        if (fgetword(buf,sizeof(buf),fp) == NULL ||
258 <                                        !isint(buf) ||
259 <                                        (gv = atoi(buf)) < 0 || gv > 255) {
260 <                                err = "bad vertex for";
261 <                                goto fonterr;
262 <                        }
263 <                        *g++ = gv;
264 <                }
265 <        }
266 <        fclose(fp);
267 <        f->next = fontlist;
268 <        return(fontlist = f);
269 < nonint:
270 <        sprintf(errmsg, "non-integer in font file \"%s\"", pathname);
271 <        error(USER, errmsg);
272 < fonterr:
273 <        sprintf(errmsg, "%s character (%d) in font file \"%s\"",
274 <                        err, gn, pathname);
275 <        error(USER, errmsg);
276 < memerr:
277 <        error(SYSTEM, "out of memory in fontglyph");
258 >        free((char *)tp);
259 >        m->os = NULL;
260   }
261  
262  
263 + intext(p, m)                    /* check to see if p is in text glyph */
264 + FVECT  p;
265 + OBJREC  *m;
266 + {
267 +        register TEXT  *tp;
268 +        register TLINE  *tlp;
269 +        FVECT  v;
270 +        double  y, x;
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 +        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)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 (--i < 0)
286 +                        break;
287 +        if (tlp == NULL || h >= tlp->width)
288 +                return(0);
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 +
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 (x < 0.0 || y < 0.0)
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