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

Diff Legend

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