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

Comparing ray/src/common/font.c (file contents):
Revision 2.1 by greg, Sat Jun 6 07:38:40 1992 UTC vs.
Revision 2.21 by greg, Fri Nov 19 21:56:48 2021 UTC

# Line 1 | Line 1
1 – /* Copyright (c) 1992 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   * Polygonal font handling routines
6   */
7  
8 < #include "standard.h"
8 > #include "copyright.h"
9  
10 + #include <stdlib.h>
11 +
12 + #include "paths.h"
13 + #include "rtio.h"
14 + #include "rterror.h"
15   #include "font.h"
16  
17   #define galloc(nv)      (GLYPH *)malloc(sizeof(GLYPH)+2*sizeof(GORD)*(nv))
18  
19  
20 < extern char  *libpath;                  /* list of library directories */
20 > int     retainfonts = 0;                /* retain loaded fonts? */
21  
22   static FONT     *fontlist = NULL;       /* list of loaded fonts */
23  
24  
25   FONT *
26 < getfont(fname)                          /* return font fname */
27 < char  *fname;
26 > getfont(                        /* return font fname */
27 >        char  *fname
28 > )
29   {
27 –        char  buf[16];
30          FILE  *fp;
31 <        char  *pathname, *err;
32 <        int  gn, ngv;
33 <        register int  gv;
34 <        register GLYPH  *g;
31 >        char  *pathname, *err = NULL;
32 >        unsigned  wsum, hsum, ngly;
33 >        int  gn, ngv, gv;
34 >        GLYPH   *g;
35          GORD  *gp;
36 <        register FONT  *f;
36 >        FONT  *f;
37  
38          for (f = fontlist; f != NULL; f = f->next)
39 <                if (!strcmp(f->name, fname))
39 >                if (!strcmp(f->name, fname)) {
40 >                        f->nref++;
41                          return(f);
42 +                }
43                                                  /* load the font file */
44 <        if ((pathname = getpath(fname, libpath, R_OK)) == NULL) {
44 >        if ((pathname = getpath(fname, getrlibpath(), R_OK)) == NULL) {
45                  sprintf(errmsg, "cannot find font file \"%s\"", fname);
46 <                error(USER, errmsg);
46 >                error(SYSTEM, errmsg);
47          }
48          f = (FONT *)calloc(1, sizeof(FONT));
49          if (f == NULL)
50                  goto memerr;
51          f->name = savestr(fname);
52 +        f->nref = 1;
53          if ((fp = fopen(pathname, "r")) == NULL) {
54                  sprintf(errmsg, "cannot open font file \"%s\"",
55                                  pathname);
56                  error(SYSTEM, errmsg);
57          }
58 <        while (fgetword(buf,sizeof(buf),fp) != NULL) {  /* get each glyph */
59 <                if (!isint(buf))
58 >        wsum = hsum = ngly = 0;                 /* get each glyph */
59 >        while ((ngv = fgetval(fp, 'i', (char *)&gn)) != EOF) {
60 >                if (ngv == 0)
61                          goto nonint;
62 <                gn = atoi(buf);
57 <                if (gn < 0 || gn > 255) {
62 >                if (gn < 1 || gn > 255) {
63                          err = "illegal";
64                          goto fonterr;
65                  }
# Line 62 | Line 67 | char  *fname;
67                          err = "duplicate";
68                          goto fonterr;
69                  }
70 <                if (fgetword(buf,sizeof(buf),fp) == NULL || !isint(buf) ||
71 <                                (ngv = atoi(buf)) < 0 || ngv > 32000) {
70 >                if (fgetval(fp, 'i', (char *)&ngv) <= 0 ||
71 >                                ngv < 0 || ngv > 32000) {
72                          err = "bad # vertices for";
73                          goto fonterr;
74                  }
# Line 71 | Line 76 | char  *fname;
76                  if (g == NULL)
77                          goto memerr;
78                  g->nverts = ngv;
79 <                g->start = g->width = 128;
79 >                g->left = g->right = g->top = g->bottom = 128;
80                  ngv *= 2;
81                  gp = gvlist(g);
82                  while (ngv--) {
83 <                        if (fgetword(buf,sizeof(buf),fp) == NULL ||
84 <                                        !isint(buf) ||
80 <                                        (gv = atoi(buf)) < 0 || gv > 255) {
83 >                        if (fgetval(fp, 'i', (char *)&gv) <= 0 ||
84 >                                        gv < 0 || gv > 255) {
85                                  err = "bad vertex for";
86                                  goto fonterr;
87                          }
88                          *gp++ = gv;
89 <                        if (ngv & 1)            /* follow x limits */
90 <                                if (gv < g->start)
91 <                                        g->start = gv;
92 <                                else if (gv > g->width)
93 <                                        g->width = gv;
89 >                        if (ngv & 1) {          /* follow x limits */
90 >                                if (gv < g->left)
91 >                                        g->left = gv;
92 >                                else if (gv > g->right)
93 >                                        g->right = gv;
94 >                        } else {                /* follow y limits */
95 >                                if (gv < g->bottom)
96 >                                        g->bottom = gv;
97 >                                else if (gv > g->top)
98 >                                        g->top = gv;
99 >                        }
100                  }
101 <                g->width -= g->start;
101 >                if (g->right - g->left && g->top - g->bottom) {
102 >                        ngly++;
103 >                        wsum += g->right - g->left;
104 >                        hsum += g->top - g->bottom;
105 >                }
106                  f->fg[gn] = g;
107          }
108          fclose(fp);
109 +        if (ngly) {
110 +                f->mwidth = wsum / ngly;
111 +                f->mheight = hsum / ngly;
112 +        }
113          f->next = fontlist;
114          return(fontlist = f);
115   nonint:
# Line 103 | Line 121 | fonterr:
121          error(USER, errmsg);
122   memerr:
123          error(SYSTEM, "out of memory in fontglyph");
124 +        return NULL; /* pro forma return */
125 + }
126 +
127 +
128 + void
129 + freefont(                       /* release a font (free all if NULL) */
130 +        FONT *fnt
131 + )
132 + {
133 +        FONT  head;
134 +        FONT  *fl, *f;
135 +        int  i;
136 +                                        /* check reference count */
137 +        if (fnt != NULL && ((fnt->nref-- > 1) | retainfonts))
138 +                return;
139 +        head.next = fontlist;
140 +        fl = &head;
141 +        while ((f = fl->next) != NULL)
142 +                if ((fnt == NULL) | (fnt == f)) {
143 +                        fl->next = f->next;
144 +                        for (i = 0; i < 256; i++)
145 +                                if (f->fg[i] != NULL)
146 +                                        free((void *)f->fg[i]);
147 +                        freestr(f->name);
148 +                        free((void *)f);
149 +                } else
150 +                        fl = f;
151 +        fontlist = head.next;
152 + }
153 +
154 +
155 + int
156 + uniftext(                       /* uniformly space text line */
157 +        short   *sp,            /* returned character spacing */
158 +        char  *tp,              /* text line */
159 +        FONT  *f                /* font */
160 + )
161 + {
162 +        int  linelen;
163 +
164 +        linelen = *sp++ = 0;
165 +        while (*tp)
166 +                if (f->fg[*tp++&0xff] == NULL)
167 +                        *sp++ = 0;
168 +                else
169 +                        linelen += *sp++ = 255;
170 +        return(linelen);
171 + }
172 +
173 +
174 + int
175 + squeeztext(             /* squeeze text line */
176 +        short  *sp,                     /* returned character spacing */
177 +        char  *tp,                      /* text line */
178 +        FONT  *f,                       /* font */
179 +        int  cis                        /* intercharacter spacing */
180 + )
181 + {
182 +        int  linelen;
183 +        GLYPH   *gp;
184 +
185 +        linelen = 0;
186 +        gp = NULL;
187 +        while (*tp && (gp = f->fg[*tp++&0xff]) == NULL)
188 +                *sp++ = 0;
189 +        cis /= 2;
190 +        *sp = cis;
191 +        while (gp != NULL) {
192 +                if (gp->nverts) {               /* regular character */
193 +                        linelen += *sp++ += cis - gp->left;
194 +                        *sp = gp->right + cis;
195 +                } else {                        /* space */
196 +                        linelen += *sp++;
197 +                        *sp = f->mwidth;
198 +                }
199 +                gp = NULL;
200 +                while (*tp && (gp = f->fg[*tp++&0xff]) == NULL) {
201 +                        linelen += *sp++;
202 +                        *sp = 0;
203 +                }
204 +        }
205 +        linelen += *sp += cis;
206 +        return(linelen);
207 + }
208 +
209 +
210 + int
211 + proptext(               /* space line proportionally */
212 +        short  *sp,                     /* returned character spacing */
213 +        char  *tp,                      /* text line */
214 +        FONT  *f,                       /* font */
215 +        int  cis,                       /* target intercharacter spacing */
216 +        int  nsi                        /* minimum number of spaces for indent */
217 + )
218 + {
219 +        char  *end, *tab = NULL;
220 +        GLYPH  *gp;
221 +        short  *nsp;
222 +        int  alen, len, width;
223 +                                        /* start by squeezing it */
224 +        squeeztext(sp, tp, f, cis);
225 +                                        /* now, realign spacing */
226 +        width = *sp++;
227 +        while (*tp) {
228 +                len = alen = 0;
229 +                nsp = sp;
230 +                for (end = tp; *end; end = tab) {
231 +                        tab = end + 1;
232 +                        alen += *nsp++;
233 +                        if (f->fg[*end&0xff]) {
234 +                                while ((gp = f->fg[*tab&0xff]) != NULL &&
235 +                                                gp->nverts == 0) { /* tab in */
236 +                                        alen += *nsp++;
237 +                                        tab++;
238 +                                }
239 +                                len += tab - end;
240 +                        }
241 +                        if (nsi && tab - end > nsi)
242 +                                break;
243 +                }
244 +                len *= f->mwidth + cis;         /* compute target length */
245 +                width += len;
246 +                len -= alen;                    /* necessary adjustment */
247 +                while (sp < nsp) {
248 +                        alen = len/(nsp-sp);
249 +                        *sp++ += alen;
250 +                        len -= alen;
251 +                }
252 +                tp = tab;
253 +        }
254 +        return(width);
255   }

Diff Legend

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