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 2.4 by greg, Fri Jun 19 13:07:48 1992 UTC vs.
Revision 2.28 by greg, Fri Nov 19 22:51:31 2021 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 <
13 > #include  "rtotypes.h"
14   #include  "font.h"
15  
16   /*
# Line 45 | Line 42 | static char SCCSid[] = "$SunId$ LBL";
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
# Line 77 | Line 76 | typedef struct {
76          TLINE  tl;                      /* line list */
77   }  TEXT;
78  
79 < extern char  *libpath;
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  
82 – extern char  *fgetword();
84  
85 < TEXT  *gettext();
86 <
87 < TLINE  *tlalloc();
88 <
89 <
89 < text(m, r)
90 < register OBJREC  *m;
91 < RAY  *r;
85 > int
86 > do_text(
87 >        OBJREC  *m,
88 >        RAY  *r
89 > )
90   {
91          FVECT  v;
92          int  foreground;
# Line 105 | 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]);
# Line 127 | Line 129 | RAY  *r;
129                                          m->oargs.farg[14]);
130                  multcolor(r->pcol, cval);
131          }
132 +        return(0);
133   }
134  
135  
136 < TLINE *
137 < tlalloc(s)                      /* allocate and assign text line */
138 < char  *s;
136 > static TLINE *
137 > tlalloc(                        /* allocate and assign text line */
138 >        char  *s
139 > )
140   {
141 <        extern char  *strcpy();
142 <        register int  siz;
139 <        register TLINE  *tl;
141 >        int  siz;
142 >        TLINE  *tl;
143  
144          siz = strlen(s) + 1;
145          if ((tl=(TLINE *)malloc(sizeof(TLINE)+siz)) == NULL ||
146                          (tl->spc=(short *)malloc(siz*sizeof(short))) == NULL)
147                  error(SYSTEM, "out of memory in tlalloc");
145 –        tl->spc = NULL;
148          tl->next = NULL;
149          strcpy(TLSTR(tl), s);
150          return(tl);
151   }
152  
153  
154 < TEXT *
155 < gettext(tm)                     /* get text structure for material */
156 < register OBJREC  *tm;
154 > static TEXT *
155 > gettext(                        /* get text structure for material */
156 >        OBJREC  *tm
157 > )
158   {
159   #define  R      (tm->oargs.farg+3)
160   #define  D      (tm->oargs.farg+6)
158 –        extern char  *strcpy(), *fgets();
161          FVECT  DxR;
162          double  d;
163          FILE  *fp;
164          char  linbuf[512];
165          TEXT  *t;
166 <        register int  i;
167 <        register TLINE  *tlp;
168 <        register char  *s;
166 >        int  i;
167 >        TLINE  *tlp;
168 >        char  *s;
169  
170          if ((t = (TEXT *)tm->os) != NULL)
171                  return(t);
# Line 171 | Line 173 | register OBJREC  *tm;
173          if (tm->oargs.nsargs - tndx(tm) < 1 || tm->oargs.nfargs < sndx(tm))
174                  objerror(tm, USER, "bad # arguments");
175          if ((t = (TEXT *)malloc(sizeof(TEXT))) == NULL)
176 <                goto memerr;
176 >                error(SYSTEM, "out of memory in gettext");
177                                                  /* compute vectors */
178          fcross(DxR, D, R);
179          fcross(t->right, DxR, D);
180 <        d = DOT(D,D)/DOT(t->right,t->right);
180 >        d = DOT(t->right,t->right);
181 >        if (d <= FTINY*FTINY*FTINY*FTINY)
182 >                objerror(tm, USER, "illegal motion vector");
183 >        d = DOT(D,D)/d;
184          for (i = 0; i < 3; i++)
185                  t->right[i] *= d;
186          fcross(t->down, R, DxR);
# Line 196 | Line 201 | register OBJREC  *tm;
201                  tlp = tlp->next;
202          } else {                                /* text file */
203                  if ((s = getpath(tm->oargs.sarg[tndx(tm)],
204 <                                libpath, R_OK)) == NULL) {
204 >                                getrlibpath(), R_OK)) == NULL) {
205                          sprintf(errmsg, "cannot find text file \"%s\"",
206                                          tm->oargs.sarg[tndx(tm)]);
207 <                        error(USER, errmsg);
207 >                        error(SYSTEM, errmsg);
208                  }
209                  if ((fp = fopen(s, "r")) == NULL) {
210                          sprintf(errmsg, "cannot open text file \"%s\"", s);
# Line 217 | Line 222 | register OBJREC  *tm;
222          tlp->next = NULL;
223                                                  /* get the font */
224          t->f = getfont(tm->oargs.sarg[fndx(tm)]);
225 +        if (!t->f)
226 +                objerror(tm, USER, "font load error");
227                                                  /* compute character spacing */
228          i = sndx(tm);
229          d = i < tm->oargs.nfargs ? tm->oargs.farg[i] : 0.0;
230 <        i = d * 256.0;
230 >        i = d * 255.0;
231 >        t->tl.width = 0;
232          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;
233                  if (i < 0)
234                          tlp->width = squeeztext(tlp->spc, TLSTR(tlp), t->f, -i);
235                  else if (i > 0)
236                          tlp->width = proptext(tlp->spc, TLSTR(tlp), t->f, i, 3);
237                  else
238                          tlp->width = uniftext(tlp->spc, TLSTR(tlp), t->f);
239 +                if (tlp->width > t->tl.width)
240 +                        t->tl.width = tlp->width;
241          }
242                                                  /* we're done */
243          tm->os = (char *)t;
244          return(t);
238 – memerr:
239 –        error(SYSTEM, "out of memory in gettext");
245   #undef  R
246   #undef  D
247   }
248  
249  
250 < freetext(m)                     /* free text structures associated with m */
251 < OBJREC  *m;
250 > void
251 > freetext(                       /* free text structures associated with m */
252 >        OBJREC  *m
253 > )
254   {
255 <        register TEXT  *tp;
256 <        register TLINE  *tlp;
255 >        TEXT  *tp;
256 >        TLINE  *tlp;
257  
258          tp = (TEXT *)m->os;
259          if (tp == NULL)
260                  return;
261 <        for (tlp = tp->tl.next; tlp != NULL; tlp = tlp->next) {
262 <                free((char *)tlp->spc);
263 <                free((char *)tlp);
261 >        while ((tlp = tp->tl.next) != NULL) {
262 >                tp->tl.next = tlp->next;
263 >                free((void *)tlp->spc);
264 >                free((void *)tlp);
265          }
266 <        free((char *)tp);
266 >        freefont(tp->f);        /* release font reference */
267 >        free((void *)tp);
268          m->os = NULL;
269   }
270  
271  
272 < intext(p, m)                    /* check to see if p is in text glyph */
273 < FVECT  p;
274 < OBJREC  *m;
272 > static int
273 > intext(                 /* check to see if p is in text glyph */
274 >        FVECT  p,
275 >        OBJREC  *m
276 > )
277   {
278 <        register TEXT  *tp;
279 <        register TLINE  *tlp;
278 >        TEXT  *tp;
279 >        TLINE  *tlp;
280          FVECT  v;
281          double  y, x;
282 <        register int  i, h;
282 >        int  i, h;
283                                  /* first, compute position in text */
284          tp = gettext(m);
285          v[0] = p[0] - m->oargs.farg[0];
286          v[1] = p[1] - m->oargs.farg[1];
287          v[2] = p[2] - m->oargs.farg[2];
288 <        h = x = DOT(v, tp->right)*256.;
288 >        x = DOT(v, tp->right);
289 >        i = sndx(m);
290 >        if (i < m->oargs.nfargs)
291 >                x *= tp->f->mwidth + 255.*fabs(m->oargs.farg[i]);
292 >        else
293 >                x *= 255.;
294 >        h = x;
295          i = y = DOT(v, tp->down);
296          if (x < 0.0 || y < 0.0)
297                  return(0);
298          x -= (double)h;
299 <        y = ((i+1) - y)*256.;
299 >        y = ((i+1) - y)*255.;
300                                  /* find the line position */
301          for (tlp = tp->tl.next; tlp != NULL; tlp = tlp->next)
302                  if (--i < 0)
# Line 287 | Line 304 | OBJREC  *m;
304          if (tlp == NULL || h >= tlp->width)
305                  return(0);
306          for (i = 0; (h -= tlp->spc[i]) >= 0; i++)
307 <                if (h < 256 && inglyph(h+x, y,
307 >                if (h < 255 && inglyph(h+x, y,
308                                  tp->f->fg[TLSTR(tlp)[i]&0xff]))
309                          return(1);
310          return(0);
311   }
312  
313  
314 < inglyph(x, y, gl)               /* (x,y) within font glyph gl? */
315 < double  x, y;
316 < register GLYPH  *gl;
314 > static int
315 > inglyph(                /* (x,y) within font glyph gl? */
316 >        double  x,              /* real coordinates in range [0,255) */
317 >        double  y,
318 >        GLYPH  *gl
319 > )
320   {
321          int  n, ncross;
322 <        int  xtc, ytc;
323 <        register GORD  *p0, *p1;
322 >        int  xlb, ylb;
323 >        int  tv;
324 >        GORD  *p0, *p1;
325  
326          if (gl == NULL)
327                  return(0);
328 <        xtc = x + 0.5;                  /* compute test coordinates */
329 <        ytc = y + 0.5;
330 <        if (gl->left > xtc || gl->right < xtc ||
331 <                        gl->bottom > ytc || gl->top < ytc)
332 <                return(0);      /* outside extent */
328 >        xlb = x;
329 >        ylb = y;
330 >        if (gl->left > xlb || gl->right <= xlb ||       /* check extent */
331 >                        gl->bottom > ylb || gl->top <= ylb)
332 >                return(0);
333 >        xlb = xlb<<1 | 1;               /* add 1/2 to test points... */
334 >        ylb = ylb<<1 | 1;               /* ...so no equal comparisons */
335          n = gl->nverts;                 /* get # of vertices */
336          p0 = gvlist(gl) + 2*(n-1);      /* connect last to first */
337          p1 = gvlist(gl);
338          ncross = 0;
339                                          /* positive x axis cross test */
340          while (n--) {
341 <                if ((p0[1] > ytc) ^ (p1[1] > ytc))
342 <                        if (p0[0] > xtc && p1[0] > xtc)
341 >                if ((p0[1]<<1 > ylb) ^ (p1[1]<<1 > ylb)) {
342 >                        tv = (p0[0]<<1 > xlb) | ((p1[0]<<1 > xlb) << 1);
343 >                        if (tv == 03)
344                                  ncross++;
345 <                        else if (p0[0] > xtc || p1[0] > xtc)
345 >                        else if (tv)
346                                  ncross += (p1[1] > p0[1]) ^
347                                                  ((p0[1]-y)*(p1[0]-x) >
348                                                  (p0[0]-x)*(p1[1]-y));
349 +                }
350                  p0 = p1;
351                  p1 += 2;
352          }

Diff Legend

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