Const correctness, pointer cast correctness, removed extraneous ';'.
[wine.git] / dlls / wineps / type1.c
blobefeab090e2848a27b78aa0ae1b90038977f322e7
1 /*
2 * PostScript driver Type1 font functions
4 * Copyright 2002 Huw D M Davies for CodeWeavers
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 #include "config.h"
22 #include "wine/port.h"
24 #include <string.h>
25 #include <stdlib.h>
26 #include <stdarg.h>
27 #include <stdio.h>
28 #include <assert.h>
30 #include "windef.h"
31 #include "winbase.h"
32 #include "winerror.h"
33 #include "wingdi.h"
34 #include "winspool.h"
36 #include "psdrv.h"
37 #include "wine/debug.h"
39 WINE_DEFAULT_DEBUG_CHANNEL(psdrv);
41 struct tagTYPE1 {
42 DWORD glyph_sent_size;
43 BOOL *glyph_sent;
44 DWORD emsize;
47 #define GLYPH_SENT_INC 128
49 /* Type 1 font commands */
50 enum t1_cmds {
51 rlineto = 5,
52 rrcurveto = 8,
53 closepath = 9,
54 hsbw = 13,
55 endchar = 14,
56 rmoveto = 21
60 TYPE1 *T1_download_header(PSDRV_PDEVICE *physDev, char *ps_name, RECT *bbox, UINT emsize)
62 char *buf;
63 TYPE1 *t1;
65 char dict[] = /* name, emsquare, fontbbox */
66 "25 dict begin\n"
67 " /FontName /%s def\n"
68 " /Encoding 256 array 0 1 255{1 index exch /.notdef put} for def\n"
69 " /PaintType 0 def\n"
70 " /FontMatrix [1 %d div 0 0 1 %d div 0 0] def\n"
71 " /FontBBox [%d %d %d %d] def\n"
72 " /FontType 1 def\n"
73 " /Private 7 dict begin\n"
74 " /RD {string currentfile exch readhexstring pop} def\n"
75 " /ND {def} def\n"
76 " /NP {put} def\n"
77 " /MinFeature {16 16} def\n"
78 " /BlueValues [] def\n"
79 " /password 5839 def\n"
80 " /lenIV -1 def\n"
81 " currentdict end def\n"
82 " currentdict dup /Private get begin\n"
83 " /CharStrings 256 dict begin\n"
84 " /.notdef 4 RD 8b8b0d0e ND\n"
85 " currentdict end put\n"
86 " end\n"
87 "currentdict end dup /FontName get exch definefont pop\n";
89 t1 = HeapAlloc(GetProcessHeap(), 0, sizeof(*t1));
90 t1->emsize = emsize;
92 t1->glyph_sent_size = GLYPH_SENT_INC;
93 t1->glyph_sent = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
94 t1->glyph_sent_size *
95 sizeof(*(t1->glyph_sent)));
97 buf = HeapAlloc(GetProcessHeap(), 0, sizeof(dict) + strlen(ps_name) +
98 100);
100 sprintf(buf, dict, ps_name, t1->emsize, t1->emsize,
101 bbox->left, bbox->bottom, bbox->right, bbox->top);
103 PSDRV_WriteSpool(physDev, buf, strlen(buf));
105 HeapFree(GetProcessHeap(), 0, buf);
106 return t1;
110 typedef struct {
111 BYTE *str;
112 int len, max_len;
113 } STR;
115 static STR *str_init(int sz)
117 STR *str = HeapAlloc(GetProcessHeap(), 0, sizeof(*str));
118 str->max_len = sz;
119 str->str = HeapAlloc(GetProcessHeap(), 0, str->max_len);
120 str->len = 0;
121 return str;
124 static void str_free(STR *str)
126 HeapFree(GetProcessHeap(), 0, str->str);
127 HeapFree(GetProcessHeap(), 0, str);
130 static void str_add_byte(STR *str, BYTE b)
132 if(str->len == str->max_len) {
133 str->max_len *= 2;
134 str->str = HeapReAlloc(GetProcessHeap(), 0, str->str, str->max_len);
136 str->str[str->len++] = b;
139 static void str_add_num(STR *str, int num)
141 if(num <= 107 && num >= -107)
142 str_add_byte(str, num + 139);
143 else if(num >= 108 && num <= 1131) {
144 str_add_byte(str, ((num - 108) >> 8) + 247);
145 str_add_byte(str, (num - 108) & 0xff);
146 } else if(num <= -108 && num >= -1131) {
147 num = -num;
148 str_add_byte(str, ((num - 108) >> 8) + 251);
149 str_add_byte(str, (num - 108) & 0xff);
150 } else {
151 str_add_byte(str, 0xff);
152 str_add_byte(str, (num >> 24) & 0xff);
153 str_add_byte(str, (num >> 16) & 0xff);
154 str_add_byte(str, (num >> 8) & 0xff);
155 str_add_byte(str, (num & 0xff));
159 static void str_add_point(STR *str, POINTFX *pt, POINT *curpos)
161 POINT newpos;
162 newpos.x = pt->x.value + ((pt->x.fract >> 15) & 0x1);
163 newpos.y = pt->y.value + ((pt->y.fract >> 15) & 0x1);
165 str_add_num(str, newpos.x - curpos->x);
166 str_add_num(str, newpos.y - curpos->y);
167 *curpos = newpos;
170 static void str_add_cmd(STR *str, enum t1_cmds cmd)
172 str_add_byte(str, (BYTE)cmd);
175 static int str_get_bytes(STR *str, BYTE **b)
177 *b = str->str;
178 return str->len;
181 BOOL T1_download_glyph(PSDRV_PDEVICE *physDev, DOWNLOAD *pdl, DWORD index,
182 char *glyph_name)
184 DWORD len, i;
185 char *buf;
186 TYPE1 *t1;
187 STR *charstring;
188 BYTE *bytes;
189 HFONT old_font, unscaled_font;
190 GLYPHMETRICS gm;
191 char *glyph_buf;
192 POINT curpos;
193 TTPOLYGONHEADER *pph;
194 TTPOLYCURVE *ppc;
195 LOGFONTW lf;
196 RECT rc;
198 char glyph_def_begin[] =
199 "/%s findfont dup\n"
200 "/Private get begin\n"
201 "/CharStrings get begin\n"
202 "/%s %d RD\n";
203 char glyph_def_end[] =
204 "ND\n"
205 "end end\n";
207 TRACE("%ld %s\n", index, glyph_name);
208 assert(pdl->type == Type1);
209 t1 = pdl->typeinfo.Type1;
211 if(index < t1->glyph_sent_size) {
212 if(t1->glyph_sent[index])
213 return TRUE;
214 } else {
215 t1->glyph_sent_size = (index / GLYPH_SENT_INC + 1) * GLYPH_SENT_INC;
216 t1->glyph_sent = HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
217 t1->glyph_sent,
218 t1->glyph_sent_size * sizeof(*(t1->glyph_sent)));
221 GetObjectW(GetCurrentObject(physDev->hdc, OBJ_FONT), sizeof(lf), &lf);
222 rc.left = rc.right = rc.bottom = 0;
223 rc.top = t1->emsize;
224 DPtoLP(physDev->hdc, (POINT*)&rc, 2);
225 lf.lfHeight = -abs(rc.top - rc.bottom);
226 lf.lfOrientation = lf.lfEscapement = 0;
227 unscaled_font = CreateFontIndirectW(&lf);
228 old_font = SelectObject(physDev->hdc, unscaled_font);
229 len = GetGlyphOutlineW(physDev->hdc, index, GGO_GLYPH_INDEX | GGO_BEZIER,
230 &gm, 0, NULL, NULL);
231 if(len == GDI_ERROR) return FALSE;
232 glyph_buf = HeapAlloc(GetProcessHeap(), 0, len);
233 GetGlyphOutlineW(physDev->hdc, index, GGO_GLYPH_INDEX | GGO_BEZIER,
234 &gm, len, glyph_buf, NULL);
236 SelectObject(physDev->hdc, old_font);
237 DeleteObject(unscaled_font);
239 charstring = str_init(100);
241 curpos.x = gm.gmptGlyphOrigin.x;
242 curpos.y = 0;
244 str_add_num(charstring, curpos.x);
245 str_add_num(charstring, gm.gmCellIncX);
246 str_add_cmd(charstring, hsbw);
248 pph = (TTPOLYGONHEADER*)glyph_buf;
249 while((char*)pph < glyph_buf + len) {
250 TRACE("contour len %ld\n", pph->cb);
251 ppc = (TTPOLYCURVE*)((char*)pph + sizeof(*pph));
253 str_add_point(charstring, &pph->pfxStart, &curpos);
254 str_add_cmd(charstring, rmoveto);
256 while((char*)ppc < (char*)pph + pph->cb) {
257 TRACE("line type %d cpfx = %d\n", ppc->wType, ppc->cpfx);
258 switch(ppc->wType) {
259 case TT_PRIM_LINE:
260 for(i = 0; i < ppc->cpfx; i++) {
261 str_add_point(charstring, ppc->apfx + i, &curpos);
262 str_add_cmd(charstring, rlineto);
264 break;
265 case TT_PRIM_CSPLINE:
266 for(i = 0; i < ppc->cpfx/3; i++) {
267 str_add_point(charstring, ppc->apfx + 3 * i, &curpos);
268 str_add_point(charstring, ppc->apfx + 3 * i + 1, &curpos);
269 str_add_point(charstring, ppc->apfx + 3 * i + 2, &curpos);
270 str_add_cmd(charstring, rrcurveto);
272 break;
273 default:
274 ERR("curve type = %d\n", ppc->wType);
275 return FALSE;
277 ppc = (TTPOLYCURVE*)((char*)ppc + sizeof(*ppc) +
278 (ppc->cpfx - 1) * sizeof(POINTFX));
280 str_add_cmd(charstring, closepath);
281 pph = (TTPOLYGONHEADER*)((char*)pph + pph->cb);
283 str_add_cmd(charstring, endchar);
285 buf = HeapAlloc(GetProcessHeap(), 0, sizeof(glyph_def_begin) +
286 strlen(pdl->ps_name) + strlen(glyph_name) + 100);
288 sprintf(buf, "%%%%glyph %04lx\n", index);
289 PSDRV_WriteSpool(physDev, buf, strlen(buf));
291 len = str_get_bytes(charstring, &bytes);
292 sprintf(buf, glyph_def_begin, pdl->ps_name, glyph_name, len);
293 PSDRV_WriteSpool(physDev, buf, strlen(buf));
294 PSDRV_WriteBytes(physDev, bytes, len);
295 sprintf(buf, glyph_def_end);
296 PSDRV_WriteSpool(physDev, buf, strlen(buf));
297 str_free(charstring);
299 t1->glyph_sent[index] = TRUE;
300 HeapFree(GetProcessHeap(), 0, glyph_buf);
301 HeapFree(GetProcessHeap(), 0, buf);
302 return TRUE;
305 void T1_free(TYPE1 *t1)
307 HeapFree(GetProcessHeap(), 0, t1->glyph_sent);
308 HeapFree(GetProcessHeap(), 0, t1);
309 return;