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.3 by greg, Tue Jun 16 13:24:23 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 55 | Line 57 | static char SCCSid[] = "$SunId$ LBL";
57   #define  fndx(m)        ((m)->otype==MIX_TEXT ? 2 : 0)
58   #define  tndx(m)        ((m)->otype==MIX_TEXT ? 3 : 1)
59  
60 < extern char  *libpath;                  /* library search path */
60 > typedef struct tline {
61 >        struct tline  *next;            /* pointer to next line */
62 >                                        /* followed by the string */
63 > }  TLINE;
64  
65 < typedef unsigned char  GLYPH;
65 > #define  TLSTR(l)       ((char *)((l)+1))
66  
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 –
67   typedef struct {
69 –        char  **t;                      /* text array */
68          FVECT  right, down;             /* right and down unit vectors */
69          FONT  *f;                       /* our font */
70 +        TLINE  tl;                      /* line list */
71   }  TEXT;
72  
73 + extern char  *libpath;
74 +
75   extern char  *fgetword();
76  
77   TEXT  *gettext();
78  
79 < FONT  *getfont();
79 > TLINE  *tlalloc();
80  
80 – static FONT  *fontlist = NULL;          /* our font list */
81  
82 –
82   text(m, r)
83   register OBJREC  *m;
84   RAY  *r;
85   {
86 <        double  v[3];
86 >        FVECT  v;
87          int  foreground;
88                                  /* get transformed position */
89          if (r->rox != NULL)
# Line 124 | Line 123 | RAY  *r;
123   }
124  
125  
126 + TLINE *
127 + tlalloc(s)                      /* allocate and assign text line */
128 + char  *s;
129 + {
130 +        extern char  *strcpy();
131 +        register TLINE  *tl;
132 +
133 +        tl = (TLINE *)malloc(sizeof(TLINE)+1+strlen(s));
134 +        if (tl == NULL)
135 +                error(SYSTEM, "out of memory in tlalloc");
136 +        tl->next = NULL;
137 +        strcpy(TLSTR(tl), s);
138 +        return(tl);
139 + }
140 +
141 +
142   TEXT *
143   gettext(tm)                     /* get text structure for material */
144   register OBJREC  *tm;
# Line 135 | Line 150 | register OBJREC  *tm;
150          double  d;
151          FILE  *fp;
152          char  linbuf[512];
153 <        register TEXT  *t;
153 >        TEXT  *t;
154          register int  i;
155 +        register TLINE  *tlp;
156          register char  *s;
157  
158          if ((t = (TEXT *)tm->os) != NULL)
# Line 147 | Line 163 | register OBJREC  *tm;
163                                          tm->otype == PAT_CTEXT ? 15 : 9))
164                  objerror(tm, USER, "bad # arguments");
165          if ((t = (TEXT *)malloc(sizeof(TEXT))) == NULL)
166 <                goto memerr;
166 >                error(SYSTEM, "out of memory in gettext");
167                                                  /* compute vectors */
168          fcross(DxR, D, R);
169          fcross(t->right, DxR, D);
170 <        d = DOT(D,D) / DOT(t->right,t->right);
170 >        d = DOT(D,D)/DOT(t->right,t->right);
171          for (i = 0; i < 3; i++)
172                  t->right[i] *= d;
173          fcross(t->down, R, DxR);
174 <        d = DOT(R,R) / DOT(t->down,t->down);
174 >        d = DOT(R,R)/DOT(t->down,t->down);
175          for (i = 0; i < 3; i++)
176                  t->down[i] *= d;
177                                                  /* get text */
178 <        t->t = (char **)malloc(2*sizeof(char **));
163 <        if (t->t == NULL)
164 <                goto memerr;
178 >        tlp = &t->tl;
179          if (tm->oargs.nsargs - tndx(tm) > 1) {  /* single line */
180                  s = linbuf;
181                  for (i = tndx(tm)+1; i < tm->oargs.nsargs; i++) {
# Line 170 | Line 184 | register OBJREC  *tm;
184                          *s++ = ' ';
185                  }
186                  *--s = '\0';
187 <                t->t[0] = savqstr(linbuf);
188 <                t->t[1] = NULL;
187 >                tlp->next = tlalloc(linbuf);
188 >                tlp = tlp->next;
189          } else {                                /* text file */
190                  if ((s = getpath(tm->oargs.sarg[tndx(tm)],
191                                  libpath, R_OK)) == NULL) {
# Line 184 | Line 198 | register OBJREC  *tm;
198                                          s);
199                          error(SYSTEM, errmsg);
200                  }
201 <                for (i=0; fgets(linbuf,sizeof(linbuf),fp)!=NULL; i++) {
201 >                while (fgets(linbuf, sizeof(linbuf), fp) != NULL) {
202                          s = linbuf + strlen(linbuf) - 1;
203                          if (*s == '\n')
204                                  *s = '\0';
205 <                        t->t=(char **)realloc((char *)t->t,
206 <                                        (i+2)*sizeof(char **));
193 <                        if (t->t == NULL)
194 <                                goto memerr;
195 <                        t->t[i] = savqstr(linbuf);
205 >                        tlp->next = tlalloc(linbuf);
206 >                        tlp = tlp->next;
207                  }
197 –                t->t[i] = NULL;
208                  fclose(fp);
209          }
210 +        tlp->next = NULL;
211                                                  /* get the font */
212          t->f = getfont(tm->oargs.sarg[fndx(tm)]);
213                                                  /* we're done */
214          tm->os = (char *)t;
215          return(t);
205 – memerr:
206 –        error(SYSTEM, "out of memory in gettext");
216   #undef  R
217   #undef  D
218   }
# Line 213 | Line 222 | freetext(m)                    /* free text structures associated with
222   OBJREC  *m;
223   {
224          register TEXT  *tp;
225 <        register int  i;
225 >        register TLINE  *tlp;
226  
227          tp = (TEXT *)m->os;
228          if (tp == NULL)
229                  return;
230 <        for (i = 0; tp->t[i] != NULL; i++)
231 <                freeqstr(tp->t[i]);
223 <        free((char *)tp->t);
230 >        for (tlp = tp->tl.next; tlp != NULL; tlp = tlp->next);
231 >                free((char *)tlp);
232          free((char *)tp);
233          m->os = NULL;
234   }
# Line 228 | Line 236 | OBJREC  *m;
236  
237   intext(p, m)                    /* check to see if p is in text glyph */
238   FVECT  p;
239 < register OBJREC  *m;
239 > OBJREC  *m;
240   {
241          register TEXT  *tp;
242 <        register int  i;
243 <        double  v[3], y, x;
244 <        int  col, lno;
242 >        register TLINE  *tlp;
243 >        FVECT  v;
244 >        double  y, x;
245 >        int  col;
246 >        register int  lno;
247                                  /* first, compute position in text */
248 +        tp = gettext(m);
249          v[0] = p[0] - m->oargs.farg[0];
250          v[1] = p[1] - m->oargs.farg[1];
251          v[2] = p[2] - m->oargs.farg[2];
# Line 245 | Line 256 | register OBJREC  *m;
256          x -= (double)col;
257          y = (lno+1) - y;
258                                  /* get the font character */
259 <        tp = gettext(m);
260 <        for (i = 0; i < lno; i++)
261 <                if (tp->t[i] == NULL)
262 <                        return(0);
252 <        if (col >= strlen(tp->t[i]))
259 >        for (tlp = tp->tl.next; tlp != NULL; tlp = tlp->next)
260 >                if (--lno < 0)
261 >                        break;
262 >        if (tlp == NULL || col >= strlen(TLSTR(tlp)))
263                  return(0);
264 <        return(inglyph(x, y, tp->f->fg[tp->t[i][col]]));
264 >        return(inglyph(x, y, tp->f->fg[TLSTR(tlp)[col]&0xff]));
265   }
266  
267  
258 – FONT *
259 – getfont(fname)                          /* return font fname */
260 – char  *fname;
261 – {
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 –
268   inglyph(x, y, gl)               /* (x,y) within font glyph gl? */
269   double  x, y;
270 < GLYPH  *gl;
270 > register GLYPH  *gl;
271   {
272          int  n, ncross;
273          int  xlb, ylb;
274 <        register GLYPH  *p0, *p1;
274 >        register GORD  *p0, *p1;
275  
276          if (gl == NULL)
277                  return(0);
# Line 345 | Line 279 | GLYPH  *gl;
279          y *= 256.0;
280          xlb = x + 0.5;
281          ylb = y + 0.5;
282 <        n = *gl++;                      /* get # of vertices */
283 <        p0 = gl + 2*(n-1);              /* connect last to first */
284 <        p1 = gl;
282 >        if (gl->left > xlb || gl->right <= xlb ||
283 >                        gl->bottom > ylb || gl->top <= ylb)
284 >                return(0);      /* outside extent */
285 >        n = gl->nverts;                 /* get # of vertices */
286 >        p0 = gvlist(gl) + 2*(n-1);      /* connect last to first */
287 >        p1 = gvlist(gl);
288          ncross = 0;
289                                          /* positive x axis cross test */
290          while (n--) {

Diff Legend

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