Implemented CPSignHash and CPVerifySignature.
[wine] / dlls / wineps / text.c
1 /*
2  *      PostScript driver text functions
3  *
4  *      Copyright 1998  Huw D M Davies
5  *
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.
10  *
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.
15  *
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
19  */
20 #include <string.h>
21 #include <stdarg.h>
22 #include <stdlib.h>
23 #include <math.h>
24
25 #include "windef.h"
26 #include "winbase.h"
27 #include "wingdi.h"
28 #include "psdrv.h"
29 #include "winspool.h"
30 #include "wine/debug.h"
31
32 WINE_DEFAULT_DEBUG_CHANNEL(psdrv);
33
34 static BOOL PSDRV_Text(PSDRV_PDEVICE *physDev, INT x, INT y, UINT flags,
35                        LPCWSTR str, UINT count,
36                        BOOL bDrawBackground, const INT *lpDx);
37
38 /***********************************************************************
39  *           PSDRV_ExtTextOut
40  */
41 BOOL PSDRV_ExtTextOut( PSDRV_PDEVICE *physDev, INT x, INT y, UINT flags,
42                        const RECT *lprect, LPCWSTR str, UINT count,
43                        const INT *lpDx, INT breakExtra )
44 {
45     BOOL bResult = TRUE;
46     BOOL bClipped = FALSE;
47     BOOL bOpaque = FALSE;
48     RECT rect;
49
50     TRACE("(x=%d, y=%d, flags=0x%08x, str=%s, count=%d, lpDx=%p)\n", x, y,
51           flags, debugstr_wn(str, count), count, lpDx);
52
53     /* write font if not already written */
54     PSDRV_SetFont(physDev);
55
56     PSDRV_SetClip(physDev);
57
58     /* set clipping and/or draw background */
59     if ((flags & (ETO_CLIPPED | ETO_OPAQUE)) && (lprect != NULL))
60     {
61         rect = *lprect;
62         LPtoDP( physDev->hdc, (POINT *)&rect, 2 );
63         PSDRV_WriteGSave(physDev);
64         PSDRV_WriteRectangle(physDev, rect.left, rect.top, rect.right - rect.left,
65                              rect.bottom - rect.top);
66
67         if (flags & ETO_OPAQUE)
68         {
69             bOpaque = TRUE;
70             PSDRV_WriteGSave(physDev);
71             PSDRV_WriteSetColor(physDev, &physDev->bkColor);
72             PSDRV_WriteFill(physDev);
73             PSDRV_WriteGRestore(physDev);
74         }
75
76         if (flags & ETO_CLIPPED)
77         {
78             bClipped = TRUE;
79             PSDRV_WriteClip(physDev);
80         }
81
82         bResult = PSDRV_Text(physDev, x, y, flags, str, count, !(bClipped && bOpaque), lpDx);
83         PSDRV_WriteGRestore(physDev);
84     }
85     else
86     {
87         bResult = PSDRV_Text(physDev, x, y, flags, str, count, TRUE, lpDx);
88     }
89
90     PSDRV_ResetClip(physDev);
91     return bResult;
92 }
93
94 /***********************************************************************
95  *           PSDRV_Text
96  */
97 static BOOL PSDRV_Text(PSDRV_PDEVICE *physDev, INT x, INT y, UINT flags, LPCWSTR str,
98                        UINT count, BOOL bDrawBackground, const INT *lpDx)
99 {
100     SIZE sz;
101     TEXTMETRICW tm;
102     POINT pt;
103     INT ascent, descent;
104     WORD *glyphs = NULL;
105     UINT align = GetTextAlign( physDev->hdc );
106     INT char_extra;
107     INT *deltas = NULL;
108     double cosEsc, sinEsc;
109     LOGFONTW lf;
110
111     if (!count)
112         return TRUE;
113
114     GetObjectW(GetCurrentObject(physDev->hdc, OBJ_FONT), sizeof(lf), &lf);
115     if(lf.lfEscapement != 0) {
116         cosEsc = cos(lf.lfEscapement * M_PI / 1800);
117         sinEsc = sin(lf.lfEscapement * M_PI / 1800);
118     } else {
119         cosEsc = 1;
120         sinEsc = 0;
121     }
122
123     if(physDev->font.fontloc == Download) {
124         if(flags & ETO_GLYPH_INDEX)
125             glyphs = (LPWORD)str;
126         else {
127             glyphs = HeapAlloc(GetProcessHeap(), 0, count * sizeof(WORD));
128             GetGlyphIndicesW(physDev->hdc, str, count, glyphs, 0);
129         }
130     }
131
132     pt.x = x;
133     pt.y = y;
134     if(align & TA_UPDATECP) GetCurrentPositionEx( physDev->hdc, &pt );
135     LPtoDP(physDev->hdc, &pt, 1);
136     x = pt.x;
137     y = pt.y;
138
139     if(physDev->font.fontloc == Download)
140         GetTextExtentPointI(physDev->hdc, glyphs, count, &sz);
141     else
142         GetTextExtentPoint32W(physDev->hdc, str, count, &sz);
143
144     if((char_extra = GetTextCharacterExtra(physDev->hdc)) != 0) {
145         UINT i;
146         SIZE tmpsz;
147
148         deltas = HeapAlloc(GetProcessHeap(), 0, count * sizeof(INT));
149         for(i = 0; i < count; i++) {
150             if(lpDx)
151                 deltas[i] = lpDx[i] + char_extra;
152             else {
153                 if(physDev->font.fontloc == Download)
154                     GetTextExtentPointI(physDev->hdc, glyphs + i, 1, &tmpsz);
155                 else
156                     GetTextExtentPoint32W(physDev->hdc, str + i, 1, &tmpsz);
157                 deltas[i] = tmpsz.cx;
158             }
159         }
160     } else if(lpDx)
161         deltas = (INT*)lpDx;
162
163     if(deltas) {
164         SIZE tmpsz;
165         UINT i;
166         /* Get the width of the last char and add on all the offsets */
167         if(physDev->font.fontloc == Download)
168             GetTextExtentPointI(physDev->hdc, glyphs + count - 1, 1, &tmpsz);
169         else
170             GetTextExtentPoint32W(physDev->hdc, str + count - 1, 1, &tmpsz);
171         for(i = 0; i < count-1; i++)
172             tmpsz.cx += deltas[i];
173         sz.cx = tmpsz.cx; /* sz.cy remains untouched */
174     }
175
176     sz.cx = PSDRV_XWStoDS(physDev, sz.cx);
177     sz.cy = PSDRV_YWStoDS(physDev, sz.cy);
178
179     GetTextMetricsW(physDev->hdc, &tm);
180     ascent = abs(PSDRV_YWStoDS(physDev, tm.tmAscent));
181     descent = abs(PSDRV_YWStoDS(physDev, tm.tmDescent));
182
183     TRACE("textAlign = %x\n", align);
184     switch(align & (TA_LEFT | TA_CENTER | TA_RIGHT) ) {
185     case TA_LEFT:
186         if(align & TA_UPDATECP)
187         {
188             POINT pt;
189             pt.x = x + sz.cx * cosEsc;
190             pt.y = y - sz.cx * sinEsc;
191             DPtoLP( physDev->hdc, &pt, 1 );
192             MoveToEx( physDev->hdc, pt.x, pt.y, NULL );
193         }
194         break;
195
196     case TA_CENTER:
197         x -= sz.cx * cosEsc / 2;
198         y += sz.cx * sinEsc / 2;
199         break;
200
201     case TA_RIGHT:
202         x -= sz.cx * cosEsc;
203         y += sz.cx * sinEsc;
204         if(align & TA_UPDATECP)
205         {
206             POINT pt;
207             pt.x = x;
208             pt.y = y;
209             DPtoLP( physDev->hdc, &pt, 1 );
210             MoveToEx( physDev->hdc, pt.x, pt.y, NULL );
211         }
212         break;
213     }
214
215     switch(align & (TA_TOP | TA_BASELINE | TA_BOTTOM) ) {
216     case TA_TOP:
217         y += ascent * cosEsc;
218         x += ascent * sinEsc;
219         break;
220
221     case TA_BASELINE:
222         break;
223
224     case TA_BOTTOM:
225         y -= descent * cosEsc;
226         x -= descent * sinEsc;
227         break;
228     }
229
230     if ((GetBkMode( physDev->hdc ) != TRANSPARENT) && bDrawBackground)
231     {
232         PSDRV_WriteGSave(physDev);
233         PSDRV_WriteNewPath(physDev);
234         PSDRV_WriteRectangle(physDev, x, y - ascent, sz.cx,
235                              ascent + descent);
236         PSDRV_WriteSetColor(physDev, &physDev->bkColor);
237         PSDRV_WriteFill(physDev);
238         PSDRV_WriteGRestore(physDev);
239     }
240
241     PSDRV_WriteMoveTo(physDev, x, y);
242
243     if(!deltas) {
244         if(physDev->font.fontloc == Download)
245             PSDRV_WriteDownloadGlyphShow(physDev, glyphs, count);
246         else
247             PSDRV_WriteBuiltinGlyphShow(physDev, str, count);
248     }
249     else {
250         UINT i;
251         float dx = 0.0, dy = 0.0;
252         float cos_theta = cos(physDev->font.escapement * M_PI / 1800.0);
253         float sin_theta = sin(physDev->font.escapement * M_PI / 1800.0);
254         for(i = 0; i < count-1; i++) {
255             TRACE("lpDx[%d] = %d\n", i, deltas[i]);
256             if(physDev->font.fontloc == Download)
257                 PSDRV_WriteDownloadGlyphShow(physDev, glyphs + i, 1);
258             else
259                 PSDRV_WriteBuiltinGlyphShow(physDev, str + i, 1);
260             dx += deltas[i] * cos_theta;
261             dy -= deltas[i] * sin_theta;
262             PSDRV_WriteMoveTo(physDev, x + PSDRV_XWStoDS(physDev, dx),
263                               y + PSDRV_YWStoDS(physDev, dy));
264         }
265         if(physDev->font.fontloc == Download)
266             PSDRV_WriteDownloadGlyphShow(physDev, glyphs + i, 1);
267         else
268             PSDRV_WriteBuiltinGlyphShow(physDev, str + i, 1);
269         if(deltas != lpDx)
270             HeapFree(GetProcessHeap(), 0, deltas);
271     }
272
273     /*
274      * Underline and strikeout attributes.
275      */
276     if ((tm.tmUnderlined) || (tm.tmStruckOut)) {
277
278         /* Get the thickness and the position for the underline attribute */
279         /* We'll use the same thickness for the strikeout attribute       */
280
281         INT escapement =  physDev->font.escapement;
282
283         /* Do the underline */
284
285         if (tm.tmUnderlined) {
286             PSDRV_WriteNewPath(physDev); /* will be closed by WriteRectangle */
287             if (escapement != 0)  /* rotated text */
288             {
289                 PSDRV_WriteGSave(physDev);  /* save the graphics state */
290                 PSDRV_WriteMoveTo(physDev, x, y); /* move to the start */
291
292                 /* temporarily rotate the coord system */
293                 PSDRV_WriteRotate(physDev, -escapement/10);
294
295                 /* draw the underline relative to the starting point */
296                 PSDRV_WriteRRectangle(physDev, 0, -physDev->font.underlinePosition,
297                                       sz.cx, physDev->font.underlineThickness);
298             }
299             else
300                 PSDRV_WriteRectangle(physDev, x, y - physDev->font.underlinePosition,
301                                      sz.cx, physDev->font.underlineThickness);
302
303             PSDRV_WriteFill(physDev);
304
305             if (escapement != 0)  /* rotated text */
306                 PSDRV_WriteGRestore(physDev);  /* restore the graphics state */
307         }
308
309         /* Do the strikeout */
310
311         if (tm.tmStruckOut) {
312             PSDRV_WriteNewPath(physDev); /* will be closed by WriteRectangle */
313             if (escapement != 0)  /* rotated text */
314             {
315                 PSDRV_WriteGSave(physDev);  /* save the graphics state */
316                 PSDRV_WriteMoveTo(physDev, x, y); /* move to the start */
317
318                 /* temporarily rotate the coord system */
319                 PSDRV_WriteRotate(physDev, -escapement/10);
320
321                 /* draw the line relative to the starting point */
322                 PSDRV_WriteRRectangle(physDev, 0, -physDev->font.strikeoutPosition,
323                                       sz.cx, physDev->font.strikeoutThickness);
324             }
325             else
326                 PSDRV_WriteRectangle(physDev, x, y - physDev->font.strikeoutPosition,
327                                      sz.cx, physDev->font.strikeoutThickness);
328
329             PSDRV_WriteFill(physDev);
330
331             if (escapement != 0)  /* rotated text */
332                 PSDRV_WriteGRestore(physDev);  /* restore the graphics state */
333         }
334     }
335
336     if(glyphs && glyphs != str) HeapFree(GetProcessHeap(), 0, glyphs);
337     return TRUE;
338 }