1 /*
2 *******************************************************************************
3 *
4 * © 2016 and later: Unicode, Inc. and others.
5 * License & terms of use: http://www.unicode.org/copyright.html
6 *
7 *******************************************************************************
8 *******************************************************************************
9 *
10 * Copyright (C) 1999-2008, International Business Machines
11 * Corporation and others. All Rights Reserved.
12 *
13 *******************************************************************************
14 * file name: GDIFontInstance.cpp
15 *
16 * created on: 08/09/2000
17 * created by: Eric R. Mader
18 */
19
20 #include <windows.h>
21
22 #include "layout/LETypes.h"
23 #include "layout/LESwaps.h"
24 #include "layout/LEFontInstance.h"
25
26 #include "GDIFontInstance.h"
27 #include "sfnt.h"
28 #include "cmaps.h"
29
GDISurface(HDC theHDC)30 GDISurface::GDISurface(HDC theHDC)
31 : fHdc(theHDC), fCurrentFont(NULL)
32 {
33 // nothing else to do
34 }
35
~GDISurface()36 GDISurface::~GDISurface()
37 {
38 // nothing to do
39 }
40
setHDC(HDC theHDC)41 void GDISurface::setHDC(HDC theHDC)
42 {
43 fHdc = theHDC;
44 fCurrentFont = NULL;
45 }
46
setFont(const GDIFontInstance * font)47 void GDISurface::setFont(const GDIFontInstance *font)
48 {
49 #if 0
50 if (fCurrentFont != font) {
51 fCurrentFont = font;
52 SelectObject(fHdc, font->getFont());
53 }
54 #else
55 SelectObject(fHdc, font->getFont());
56 #endif
57 }
58
drawGlyphs(const LEFontInstance * font,const LEGlyphID * glyphs,le_int32 count,const float * positions,le_int32 x,le_int32 y,le_int32 width,le_int32 height)59 void GDISurface::drawGlyphs(const LEFontInstance *font, const LEGlyphID *glyphs, le_int32 count, const float *positions,
60 le_int32 x, le_int32 y, le_int32 width, le_int32 height)
61 {
62 TTGlyphID *ttGlyphs = LE_NEW_ARRAY(TTGlyphID, count);
63 le_int32 *dx = LE_NEW_ARRAY(le_int32, count);
64 float *ps = LE_NEW_ARRAY(float, count * 2 + 2);
65 le_int32 out = 0;
66 RECT clip;
67
68 clip.top = 0;
69 clip.left = 0;
70 clip.bottom = height;
71 clip.right = width;
72
73 for (le_int32 g = 0; g < count; g += 1) {
74 TTGlyphID ttGlyph = (TTGlyphID) LE_GET_GLYPH(glyphs[g]);
75
76 if (ttGlyph < 0xFFFE) {
77 ttGlyphs[out] = ttGlyph;
78 dx[out] = (le_int32) (positions[g * 2 + 2] - positions[g * 2]);
79 ps[out * 2] = positions[g * 2];
80 ps[out * 2 + 1] = positions[g * 2 + 1];
81 out += 1;
82 }
83 }
84
85 le_int32 dyStart, dyEnd;
86
87 setFont((GDIFontInstance *) font);
88
89 dyStart = dyEnd = 0;
90
91 while (dyEnd < out) {
92 float yOffset = ps[dyStart * 2 + 1];
93 float xOffset = ps[dyStart * 2];
94
95 while (dyEnd < out && yOffset == ps[dyEnd * 2 + 1]) {
96 dyEnd += 1;
97 }
98
99 ExtTextOut(fHdc, x + (le_int32) xOffset, y + (le_int32) yOffset - font->getAscent(), ETO_CLIPPED | ETO_GLYPH_INDEX, &clip,
100 (LPCWSTR) &ttGlyphs[dyStart], dyEnd - dyStart, (INT *) &dx[dyStart]);
101
102 dyStart = dyEnd;
103 }
104
105 LE_DELETE_ARRAY(ps);
106 LE_DELETE_ARRAY(dx);
107 LE_DELETE_ARRAY(ttGlyphs);
108 }
109
GDIFontInstance(GDISurface * surface,TCHAR * faceName,le_int16 pointSize,LEErrorCode & status)110 GDIFontInstance::GDIFontInstance(GDISurface *surface, TCHAR *faceName, le_int16 pointSize, LEErrorCode &status)
111 : FontTableCache(), fSurface(surface), fFont(NULL),
112 fPointSize(pointSize), fUnitsPerEM(0), fAscent(0), fDescent(0), fLeading(0),
113 fDeviceScaleX(1), fDeviceScaleY(1), fMapper(NULL)
114 {
115 LOGFONT lf;
116 FLOAT dpiX, dpiY;
117 POINT pt;
118 OUTLINETEXTMETRIC otm;
119 HDC hdc = surface->getHDC();
120
121 if (LE_FAILURE(status)) {
122 return;
123 }
124
125 SaveDC(hdc);
126
127 SetGraphicsMode(hdc, GM_ADVANCED);
128 ModifyWorldTransform(hdc, NULL, MWT_IDENTITY);
129 SetViewportOrgEx(hdc, 0, 0, NULL);
130 SetWindowOrgEx(hdc, 0, 0, NULL);
131
132 dpiX = (FLOAT) GetDeviceCaps(hdc, LOGPIXELSX);
133 dpiY = (FLOAT) GetDeviceCaps(hdc, LOGPIXELSY);
134
135 #if 1
136 pt.x = (int) (pointSize * dpiX / 72);
137 pt.y = (int) (pointSize * dpiY / 72);
138
139 DPtoLP(hdc, &pt, 1);
140 #else
141 pt.x = pt.y = pointSize;
142 #endif
143
144 lf.lfHeight = - pt.y;
145 lf.lfWidth = 0;
146 lf.lfEscapement = 0;
147 lf.lfOrientation = 0;
148 lf.lfWeight = 0;
149 lf.lfItalic = 0;
150 lf.lfUnderline = 0;
151 lf.lfStrikeOut = 0;
152 lf.lfCharSet = DEFAULT_CHARSET;
153 lf.lfOutPrecision = 0;
154 lf.lfClipPrecision = 0;
155 lf.lfQuality = 0;
156 lf.lfPitchAndFamily = 0;
157
158 lstrcpy(lf.lfFaceName, faceName);
159
160 fFont = CreateFontIndirect(&lf);
161
162 if (fFont == NULL) {
163 status = LE_FONT_FILE_NOT_FOUND_ERROR;
164 return;
165 }
166
167 SelectObject(hdc, fFont);
168
169 UINT ret = GetOutlineTextMetrics(hdc, sizeof otm, &otm);
170
171 if (ret == 0) {
172 status = LE_MISSING_FONT_TABLE_ERROR;
173 goto restore;
174 }
175
176 fUnitsPerEM = otm.otmEMSquare;
177 fAscent = otm.otmTextMetrics.tmAscent;
178 fDescent = otm.otmTextMetrics.tmDescent;
179 fLeading = otm.otmTextMetrics.tmExternalLeading;
180
181 status = initMapper();
182
183 if (LE_FAILURE(status)) {
184 goto restore;
185 }
186
187 #if 0
188 status = initFontTableCache();
189 #endif
190
191 restore:
192 RestoreDC(hdc, -1);
193 }
194
GDIFontInstance(GDISurface * surface,const char * faceName,le_int16 pointSize,LEErrorCode & status)195 GDIFontInstance::GDIFontInstance(GDISurface *surface, const char *faceName, le_int16 pointSize, LEErrorCode &status)
196 : FontTableCache(), fSurface(surface), fFont(NULL),
197 fPointSize(pointSize), fUnitsPerEM(0), fAscent(0), fDescent(0), fLeading(0),
198 fDeviceScaleX(1), fDeviceScaleY(1), fMapper(NULL)
199 {
200 LOGFONTA lf;
201 FLOAT dpiX, dpiY;
202 POINT pt;
203 OUTLINETEXTMETRIC otm;
204 HDC hdc = surface->getHDC();
205
206 if (LE_FAILURE(status)) {
207 return;
208 }
209
210 SaveDC(hdc);
211
212 SetGraphicsMode(hdc, GM_ADVANCED);
213 ModifyWorldTransform(hdc, NULL, MWT_IDENTITY);
214 SetViewportOrgEx(hdc, 0, 0, NULL);
215 SetWindowOrgEx(hdc, 0, 0, NULL);
216
217 dpiX = (FLOAT) GetDeviceCaps(hdc, LOGPIXELSX);
218 dpiY = (FLOAT) GetDeviceCaps(hdc, LOGPIXELSY);
219
220 fDeviceScaleX = dpiX / 72;
221 fDeviceScaleY = dpiY / 72;
222
223 #if 1
224 pt.x = (int) (pointSize * fDeviceScaleX);
225 pt.y = (int) (pointSize * fDeviceScaleY);
226
227 DPtoLP(hdc, &pt, 1);
228 #else
229 pt.x = pt.y = pointSize;
230 #endif
231
232 lf.lfHeight = - pt.y;
233 lf.lfWidth = 0;
234 lf.lfEscapement = 0;
235 lf.lfOrientation = 0;
236 lf.lfWeight = 0;
237 lf.lfItalic = 0;
238 lf.lfUnderline = 0;
239 lf.lfStrikeOut = 0;
240 lf.lfCharSet = DEFAULT_CHARSET;
241 lf.lfOutPrecision = 0;
242 lf.lfClipPrecision = 0;
243 lf.lfQuality = 0;
244 lf.lfPitchAndFamily = 0;
245
246 strcpy(lf.lfFaceName, faceName);
247
248 fFont = CreateFontIndirectA(&lf);
249
250 if (fFont == NULL) {
251 status = LE_FONT_FILE_NOT_FOUND_ERROR;
252 return;
253 }
254
255 SelectObject(hdc, fFont);
256
257 UINT ret = GetOutlineTextMetrics(hdc, sizeof otm, &otm);
258
259 if (ret != 0) {
260 fUnitsPerEM = otm.otmEMSquare;
261 fAscent = otm.otmTextMetrics.tmAscent;
262 fDescent = otm.otmTextMetrics.tmDescent;
263 fLeading = otm.otmTextMetrics.tmExternalLeading;
264 } else {
265 const HEADTable *headTable = NULL;
266 const HHEATable *hheaTable = NULL;
267
268 // read unitsPerEm from 'head' table
269 headTable = (const HEADTable *) readFontTable(LE_HEAD_TABLE_TAG);
270
271 if (headTable == NULL) {
272 status = LE_MISSING_FONT_TABLE_ERROR;
273 goto restore;
274 }
275
276 fUnitsPerEM = SWAPW(headTable->unitsPerEm);
277 freeFontTable((const void *)headTable);
278
279 hheaTable = (HHEATable *) readFontTable(LE_HHEA_TABLE_TAG);
280
281 if (hheaTable == NULL) {
282 status = LE_MISSING_FONT_TABLE_ERROR;
283 goto restore;
284 }
285
286 fAscent = (le_int32) yUnitsToPoints((float) SWAPW(hheaTable->ascent));
287 fDescent = (le_int32) yUnitsToPoints((float) SWAPW(hheaTable->descent));
288 fLeading = (le_int32) yUnitsToPoints((float) SWAPW(hheaTable->lineGap));
289
290 freeFontTable((const void *) hheaTable);
291 }
292
293 status = initMapper();
294
295 if (LE_FAILURE(status)) {
296 goto restore;
297 }
298
299 #if 0
300 status = initFontTableCache();
301 #endif
302
303 restore:
304 RestoreDC(hdc, -1);
305 }
306
~GDIFontInstance()307 GDIFontInstance::~GDIFontInstance()
308 {
309 #if 0
310 flushFontTableCache();
311 delete[] fTableCache;
312 #endif
313
314 if (fFont != NULL) {
315 // FIXME: call RemoveObject first?
316 DeleteObject(fFont);
317 }
318
319 delete fMapper;
320 fMapper = NULL;
321 }
322
initMapper()323 LEErrorCode GDIFontInstance::initMapper()
324 {
325 LETag cmapTag = LE_CMAP_TABLE_TAG;
326 const CMAPTable *cmap = (const CMAPTable *) readFontTable(cmapTag);
327
328 if (cmap == NULL) {
329 return LE_MISSING_FONT_TABLE_ERROR;
330 }
331
332 fMapper = CMAPMapper::createUnicodeMapper(cmap);
333
334 if (fMapper == NULL) {
335 return LE_MISSING_FONT_TABLE_ERROR;
336 }
337
338 return LE_NO_ERROR;
339 }
340
getFontTable(LETag tableTag) const341 const void *GDIFontInstance::getFontTable(LETag tableTag) const
342 {
343 return FontTableCache::find(tableTag);
344 }
345
readFontTable(LETag tableTag) const346 const void *GDIFontInstance::readFontTable(LETag tableTag) const
347 {
348 fSurface->setFont(this);
349
350 HDC hdc = fSurface->getHDC();
351 DWORD stag = SWAPL(tableTag);
352 DWORD len = GetFontData(hdc, stag, 0, NULL, 0);
353 void *result = NULL;
354
355 if (len != GDI_ERROR) {
356 result = LE_NEW_ARRAY(char, len);
357 GetFontData(hdc, stag, 0, result, len);
358 }
359
360 return result;
361 }
362
getGlyphAdvance(LEGlyphID glyph,LEPoint & advance) const363 void GDIFontInstance::getGlyphAdvance(LEGlyphID glyph, LEPoint &advance) const
364 {
365 advance.fX = 0;
366 advance.fY = 0;
367
368 if (glyph == 0xFFFE || glyph == 0xFFFF) {
369 return;
370 }
371
372
373 GLYPHMETRICS metrics;
374 DWORD result;
375 MAT2 identity = {{0, 1}, {0, 0}, {0, 0}, {0, 1}};
376 HDC hdc = fSurface->getHDC();
377
378 fSurface->setFont(this);
379
380 result = GetGlyphOutline(hdc, glyph, GGO_GLYPH_INDEX | GGO_METRICS, &metrics, 0, NULL, &identity);
381
382 if (result == GDI_ERROR) {
383 return;
384 }
385
386 advance.fX = metrics.gmCellIncX;
387 return;
388 }
389
getGlyphPoint(LEGlyphID glyph,le_int32 pointNumber,LEPoint & point) const390 le_bool GDIFontInstance::getGlyphPoint(LEGlyphID glyph, le_int32 pointNumber, LEPoint &point) const
391 {
392 #if 0
393 hsFixedPoint2 pt;
394 le_bool result;
395
396 result = fFontInstance->getGlyphPoint(glyph, pointNumber, pt);
397
398 if (result) {
399 point.fX = xUnitsToPoints(pt.fX);
400 point.fY = yUnitsToPoints(pt.fY);
401 }
402
403 return result;
404 #else
405 return FALSE;
406 #endif
407 }
408
409