Subversion Repositories Scribus

Rev

Rev 6302 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5979 avox 1
/*
2
For general Scribus (>=1.3.2) copyright and licensing information please refer
3
to the COPYING file provided with the program. Following this notice may exist
4
a copyright and/or license notice that predates the release of Scribus 1.3.2
5
for which a new license (GPL+exception) is in place.
6
*/
7
#include <qpainter.h>
8
#include <qcolor.h>
9
#include <qwmatrix.h>
10
#include <qpixmap.h>
11
#include <qstringlist.h>
12
#include <qmap.h>
13
#include <qregexp.h>
14
 
15
#include "scribusdoc.h"
16
#include "scfonts.h"
17
#include "style.h"
18
#include "scfontmetrics.h"
19
#include "scpainter.h"
20
#include "fpoint.h"
21
#include "fpointarray.h"
22
#include "page.h"
23
#include "util.h"
24
 
25
// this code contains a set of font related functions
26
// that don't really fit within ScFonts.
27
 
28
static FPoint firstP;
29
static bool FirstM;
30
static QMap<FT_ULong, QString> adobeGlyphNames;
31
static const char* table[] = {
32
//#include "glyphnames.txt.q"
33
                                        NULL};
34
 
35
// private functions
36
static void readAdobeGlyphNames();
37
static QString adobeGlyphName(FT_ULong charcode);
38
static int traceMoveto( FT_Vector *to, FPointArray *composite );
39
static int traceLineto( FT_Vector *to, FPointArray *composite );
40
static int traceQuadraticBezier( FT_Vector *control, FT_Vector *to, FPointArray *composite );
41
static int traceCubicBezier( FT_Vector *p, FT_Vector *q, FT_Vector *to, FPointArray *composite );
42
 
43
FT_Outline_Funcs OutlineMethods =
44
    {
45
        (FT_Outline_MoveTo_Func) traceMoveto,
46
        (FT_Outline_LineTo_Func) traceLineto,
47
        (FT_Outline_ConicTo_Func) traceQuadraticBezier,
48
        (FT_Outline_CubicTo_Func) traceCubicBezier,
49
        0,
50
 
51
    };
52
 
53
 
54
const double FTSCALE = 64.0;
55
 
56
 
57
int setBestEncoding(FT_Face face)
58
{
59
        FT_ULong  charcode;
60
        FT_UInt   gindex;
61
        bool foundEncoding = false;
62
        int countUniCode = 0;
63
        int chmapUniCode = -1;
64
        int chmapCustom = -1;
65
        int retVal = 0;
66
        //FT_CharMap defaultEncoding = face->charmap;
67
//      int defaultchmap=face->charmap ? FT_Get_Charmap_Index(face->charmap) : 0;
68
// Since the above function is only available in FreeType 2.1.10 its replaced by
69
// the following line, assuming that the default charmap has the index 0
70
        int defaultchmap = 0;
71
        for(int u = 0; u < face->num_charmaps; u++)
72
        {
73
                if (face->charmaps[u]->encoding == FT_ENCODING_UNICODE )
74
                {
75
                        FT_Set_Charmap(face, face->charmaps[u]);
76
                        chmapUniCode = u;
77
                        gindex = 0;
78
                        charcode = FT_Get_First_Char( face, &gindex );
79
                        while ( gindex != 0 )
80
                        {
81
                                countUniCode++;
82
                                charcode = FT_Get_Next_Char( face, charcode, &gindex );
83
                        }
84
                }
85
                if (face->charmaps[u]->encoding == FT_ENCODING_ADOBE_CUSTOM)
86
                {
87
                        chmapCustom = u;
88
                        foundEncoding = true;
89
                        retVal = 1;
90
                        break;
91
                }
92
                else if (face->charmaps[u]->encoding == FT_ENCODING_MS_SYMBOL)
93
                {
94
                        chmapCustom = u;
95
                        foundEncoding = true;
96
                        retVal = 2;
97
                        break;
98
                }
99
        }
100
        int mapToSet=defaultchmap;
101
        if (chmapUniCode>0 && countUniCode >= face->num_glyphs-1)
102
        {
103
                mapToSet=chmapUniCode;
104
                //FT_Set_Charmap(face, face->charmaps[chmapUniCode]);
105
                retVal = 0;
106
        }
107
        else
108
        if (foundEncoding)
109
        {
110
                mapToSet=chmapCustom;
111
                //FT_Set_Charmap(face, face->charmaps[chmapCustom]);
112
        }
113
        else
114
        {
115
                mapToSet=defaultchmap;
116
                //FT_Set_Charmap(face, defaultEncoding);
117
                retVal = 0;
118
        }
119
 
120
        //Fixes #2199, missing glyphs from 1.2.1->1.2.2
121
        //If the currently wanted character map is not already Unicode...
122
        //if (FT_Get_Charmap_Index(face->charmap)!=chmapUniCode)
123
        if (mapToSet!=chmapUniCode)
124
        {
125
                //Change map so we can count the chars in it
126
                FT_Set_Charmap(face, face->charmaps[mapToSet]);
127
                //Count the characters in the current map
128
                gindex = 0;
129
                int countCurrMap=0;
130
                charcode = FT_Get_First_Char( face, &gindex );
131
                while ( gindex != 0 )
132
                {
133
                        countCurrMap++;
134
                        charcode = FT_Get_Next_Char( face, charcode, &gindex );
135
                }
136
                //If the last Unicode map we found before has more characters,
137
                //then set it to be the current map.
138
                if (countUniCode>countCurrMap)
139
                {
140
                        mapToSet=chmapUniCode;
141
                        //FT_Set_Charmap(face, face->charmaps[chmapUniCode]);
142
                        retVal = 0;
143
                }
144
        }
145
//      if (face->charmap == NULL || mapToSet!=FT_Get_Charmap_Index(face->charmap))
146
                FT_Set_Charmap(face, face->charmaps[mapToSet]);
147
        return retVal;
148
}
149
 
150
FPointArray traceGlyph(FT_Face face, FT_UInt glyphIndex, int chs, double *x, double *y, bool *err)
151
{
152
        bool error = false;
153
        //AV: not threadsave, but tracechar is only used in ReadMetrics() and fontSample()
154
        static FPointArray pts;
155
        FPointArray pts2;
156
        pts.resize(0);
157
        pts2.resize(0);
158
        firstP = FPoint(0,0);
159
        FirstM = true;
160
        error = FT_Set_Char_Size( face, 0, chs*6400, 72, 72 );
161
        if (error)
162
        {
163
                *err = error;
164
                return pts2;
165
        }
166
        if (glyphIndex == 0)
167
        {
168
                *err = true;
169
                return pts2;
170
        }
171
        double uniEM = static_cast<double>(face->units_per_EM);
172
        error = FT_Load_Glyph( face, glyphIndex, FT_LOAD_NO_HINTING | FT_LOAD_NO_BITMAP );
173
        if (error)
174
        {
175
                *err = error;
176
                return pts2;
177
        }
178
        error = FT_Outline_Decompose(&face->glyph->outline, &OutlineMethods, reinterpret_cast<void*>(&pts));
179
        if (error)
180
        {
181
                *err = error;
182
                return pts2;
183
        }
184
        *x = face->glyph->metrics.horiBearingX / 6400.0;
185
        *y = face->glyph->metrics.horiBearingY / 6400.0;
186
        QWMatrix ma;
187
        ma.scale(0.01, -0.01);
188
        pts.map(ma);
189
        pts.translate(0, chs);
190
        pts2.putPoints(0, pts.size()-2, pts, 0);
191
 
192
        return pts2;
193
}
194
 
195
 
196
FPointArray traceChar(FT_Face face, uint chr, int chs, double *x, double *y, bool *err)
197
{
198
        bool error = false;
199
        FT_UInt glyphIndex;
200
        error = FT_Set_Char_Size( face, 0, chs*64, 72, 72 );
201
        if (error)
202
        {
203
                *err = error;
204
                return FPointArray();
205
        }
206
        glyphIndex = FT_Get_Char_Index(face, chr);
6222 fschmid 207
        return traceGlyph(face, glyphIndex, chs, x, y, err);
5979 avox 208
}
209
 
210
 
5989 jghali 211
QPixmap FontSample(const ScFace& fnt, int s, QString ts, QColor back, bool force)
5979 avox 212
{
213
        FT_Face face;
214
        FT_Library library;
215
        double x, y, ymax;
216
        bool error;
217
        int  pen_x;
218
        FPoint gp;
219
        error = FT_Init_FreeType( &library );
5989 jghali 220
        error = FT_New_Face( library, QFile::encodeName(fnt.fontFilePath()), fnt.faceIndex(), &face );
5979 avox 221
        int encode = setBestEncoding(face);
222
        double uniEM = static_cast<double>(face->units_per_EM);
7883 fschmid 223
 
224
        double m_descent = face->descender / uniEM;
225
        double m_height = face->height / uniEM;
226
        if (m_height == 0)
227
                m_height = (face->bbox.yMax - face->bbox.yMin) / uniEM;
228
 
229
        int h = qRound(m_height * s) + 1;
230
        double a = m_descent * s + 1;
5979 avox 231
        int w = qRound((face->bbox.xMax - face->bbox.xMin) / uniEM) * s * (ts.length()+1);
232
        if (w < 1)
233
                w = s * (ts.length()+1);
234
        if (h < 1)
235
                h = s;
236
        QPixmap pm(w, h);
237
        pm.fill();
238
        pen_x = 0;
239
        ymax = 0.0;
240
        ScPainter *p = new ScPainter(&pm, pm.width(), pm.height());
241
        p->setFillMode(1);
242
        p->setLineWidth(0.0);
243
        p->setBrush(back);
244
        p->drawRect(0.0, 0.0, static_cast<double>(w), static_cast<double>(h));
245
        p->setBrush(Qt::black);
246
        FPointArray gly;
247
        uint dv;
248
        dv = ts[0].unicode();
249
        error = false;
250
        gly = traceChar(face, dv, s, &x, &y, &error);
251
        if (((encode != 0) || (error)) && (!force))
252
        {
253
                error = false;
254
                FT_ULong  charcode;
255
                FT_UInt gindex;
256
                gindex = 0;
257
                charcode = FT_Get_First_Char(face, &gindex );
258
                for (uint n = 0; n < ts.length(); ++n)
259
                {
260
                        gly = traceChar(face, charcode, s, &x, &y, &error);
261
                        if (error)
262
                                break;
263
                        if (gly.size() > 3)
264
                        {
6222 fschmid 265
                                gly.translate(static_cast<double>(pen_x) / 6400.0, a);
5979 avox 266
                                gp = getMaxClipF(&gly);
267
                                ymax = QMAX(ymax, gp.y());
268
                                p->setupPolygon(&gly);
269
                                p->fillPath();
270
                        }
271
                        pen_x += face->glyph->advance.x;
272
                        charcode = FT_Get_Next_Char(face, charcode, &gindex );
273
                        if (gindex == 0)
274
                                break;
275
                }
276
        }
277
        else
278
        {
279
                for (uint n = 0; n < ts.length(); ++n)
280
                {
281
                        dv = ts[n].unicode();
282
                        error = false;
283
                        gly = traceChar(face, dv, s, &x, &y, &error);
284
                        if (gly.size() > 3)
285
                        {
6222 fschmid 286
                                gly.translate(static_cast<double>(pen_x) / 6400.0, a);
5979 avox 287
                                gp = getMaxClipF(&gly);
288
                                ymax = QMAX(ymax, gp.y());
289
                                p->setupPolygon(&gly);
290
                                p->fillPath();
291
                        }
292
                        pen_x += face->glyph->advance.x;
293
                }
294
        }
295
        p->end();
296
        pm.resize(QMIN(qRound(gp.x()), w), QMIN(qRound(ymax), h));
297
        delete p;
298
        FT_Done_FreeType( library );
299
        return pm;
300
}
301
 
302
/** Same as FontSample() with \n strings support added.
303
09/26/2004 petr vanek
304
 
305
QPixmap fontSamples(ScFace * fnt, int s, QString ts, QColor back)
306
{
307
        QStringList lines = QStringList::split("\n", ts);
308
        QPixmap ret(640, 480);
309
        QPixmap sample;
310
        QPainter *painter = new QPainter(&ret);
311
        int y = 0;
312
        int x = 0;
313
        ret.fill(back);
314
        for ( QStringList::Iterator it = lines.begin(); it != lines.end(); ++it )
315
        {
316
                sample = FontSample(fnt, s, *it, back);
317
                if (!sample.isNull())
318
                        painter->drawPixmap(0, y, sample, 0, 0);
319
                y = y + sample.height();
320
                if (x < sample.width())
321
                        x = sample.width();
322
        } // for
323
        delete(painter);
324
        QPixmap final(x, y);
325
        if ((x != 0) && (y != 0))
326
        {
327
                QPainter *fpainter = new QPainter(&final);
328
                fpainter->drawPixmap(0, 0, ret, 0, 0, x, y);
329
                delete(fpainter);
330
        }
331
        return final;
332
}
333
*/
334
 
6163 avox 335
bool GlyNames(FT_Face face, QMap<uint, std::pair<QChar, QString> >& GList)
5979 avox 336
{
337
        bool error;
338
        char buf[50];
339
        FT_ULong  charcode;
340
        FT_UInt gindex;
341
        setBestEncoding(face);
342
        gindex = 0;
343
        charcode = FT_Get_First_Char(face, &gindex );
344
        const bool hasPSNames = FT_HAS_GLYPH_NAMES(face);
345
        if (adobeGlyphNames.empty())
346
                readAdobeGlyphNames();
347
        while (gindex != 0)
348
        {
349
                bool notfound = true;
350
                if (hasPSNames)
351
                        notfound = FT_Get_Glyph_Name(face, gindex, &buf, 50);
352
 
353
                // just in case FT gives empty string or ".notdef"
354
                // no valid glyphname except ".notdef" starts with '.'          
355
                if (notfound || buf[0] == '\0' || buf[0] == '.')
6163 avox 356
                        GList.insert(gindex, std::make_pair(QChar(static_cast<uint>(charcode)),adobeGlyphName(charcode)));
5979 avox 357
                else
6163 avox 358
                        GList.insert(gindex, std::make_pair(QChar(static_cast<uint>(charcode)),QString(reinterpret_cast<char*>(buf))));
5979 avox 359
 
360
                charcode = FT_Get_Next_Char(face, charcode, &gindex );
361
        }
362
        return true;
363
}
6213 fschmid 364
 
5979 avox 365
 
366
static int traceMoveto( FT_Vector *to, FPointArray *composite )
367
{
368
        double tox = ( to->x / FTSCALE );
369
        double toy = ( to->y / FTSCALE );
370
        if (!FirstM)
371
        {
372
                composite->addPoint(firstP);
373
                composite->addPoint(firstP);
374
                composite->setMarker();
375
        }
376
        else
377
                FirstM = false;
378
        composite->addPoint(tox, toy);
379
        composite->addPoint(tox, toy);
380
        firstP.setXY(tox, toy);
381
        return 0;
382
}
383
 
384
static int traceLineto( FT_Vector *to, FPointArray *composite )
385
{
386
        double tox = ( to->x / FTSCALE );
387
        double toy = ( to->y / FTSCALE );
388
        if ( !composite->hasLastQuadPoint(tox, toy, tox, toy, tox, toy, tox, toy))
389
                composite->addQuadPoint(tox, toy, tox, toy, tox, toy, tox, toy);
390
        return 0;
391
}
392
 
393
static int traceQuadraticBezier( FT_Vector *control, FT_Vector *to, FPointArray *composite )
394
{
395
        double x1 = ( control->x / FTSCALE );
396
        double y1 = ( control->y / FTSCALE );
397
        double x2 = ( to->x / FTSCALE );
398
        double y2 = ( to->y / FTSCALE );
399
        if ( !composite->hasLastQuadPoint(x2, y2, x1, y1, x2, y2, x2, y2))
400
                composite->addQuadPoint(x2, y2, x1, y1, x2, y2, x2, y2);
401
        return 0;
402
}
403
 
404
static int traceCubicBezier( FT_Vector *p, FT_Vector *q, FT_Vector *to, FPointArray *composite )
405
{
406
        double x1 = ( p->x / FTSCALE );
407
        double y1 = ( p->y / FTSCALE );
408
        double x2 = ( q->x / FTSCALE );
409
        double y2 = ( q->y / FTSCALE );
410
        double x3 = ( to->x / FTSCALE );
411
        double y3 = ( to->y / FTSCALE );
412
        if ( !composite->hasLastQuadPoint(x3, y3, x2, y2, x3, y3, x3, y3) )
413
        {
414
                composite->setPoint(composite->size()-1, FPoint(x1, y1));
415
                composite->addQuadPoint(x3, y3, x2, y2, x3, y3, x3, y3);
416
        }
417
        return 0;
418
}
419
 
420
/// init the Adobe Glyph List
421
void readAdobeGlyphNames() {
422
        adobeGlyphNames.clear();
423
        QRegExp pattern("(\\w*);([0-9A-Fa-f]{4})");
424
        for (uint i=0; table[i]; ++i) {
425
                if (pattern.search(table[i]) >= 0) {
426
                        FT_ULong unicode = pattern.cap(2).toULong(0, 16);
427
                        qDebug("%s", QString("reading glyph name %1 fo unicode %2(%3)").arg(pattern.cap(1)).arg(unicode).arg(pattern.cap(2)).ascii());
428
                        adobeGlyphNames.insert(unicode, pattern.cap(1));
429
                }
430
        }
431
}
432
 
433
 
434
/// if in AGL, use that name, else use "uni1234" or "u12345"
435
QString adobeGlyphName(FT_ULong charcode) {
436
        static const char HEX[] = "0123456789ABCDEF";
437
        QString result;
438
        if (adobeGlyphNames.contains(charcode))
439
                return adobeGlyphNames[charcode];
440
        else if (charcode < 0x10000) {
441
                result = QString("uni") + HEX[charcode>>12 & 0xF]
442
                                        + HEX[charcode>> 8 & 0xF]
443
                                        + HEX[charcode>> 4 & 0xF]
444
                                        + HEX[charcode     & 0xF];
445
        }
446
        else  {
447
                result = QString("u");
448
                for (int i= 28; i >= 0; i-=4) {
449
                        if (charcode & (0xF << i))
450
                                result += HEX[charcode >> i & 0xF];
451
                }
452
        }
453
        return result;
454
}
455
 
456
/*
457
double Cwidth(ScribusDoc *, ScFace* scFace, QString ch, int Size, QString ch2)
458
{
459
        double width;
460
        FT_Vector  delta;
461
        FT_Face      face;
462
        uint c1 = ch.at(0).unicode();
463
        uint c2 = ch2.at(0).unicode();
464
        double size10=Size/10.0;
465
        if (scFace->canRender(ch[0]))
466
        {
467
                width = scFace->charWidth(ch[0])*size10;
468
                face = scFace->ftFace();
469
                /\****
470
                        Ok, this looks like a regression between Freetype 2.1.9 -> 2.1.10.
471
                        Ignoring the value of FT_HAS_KERNING for now -- AV
472
                 ****\/
473
                if (true || FT_HAS_KERNING(face) )
474
                {
475
                        uint cl = FT_Get_Char_Index(face, c1);
476
                        uint cr = FT_Get_Char_Index(face, c2);
477
                        FT_Error error = FT_Get_Kerning(face, cl, cr, FT_KERNING_UNSCALED, &delta);
478
                        if (error) {
479
                                qDebug(QString("Error %2 when accessing kerning pair for font %1").arg(scFace->scName()).arg(error));
480
                        }
481
                        else {
482
                                double uniEM = static_cast<double>(face->units_per_EM);
483
                                width += delta.x / uniEM * size10;
484
                        }
485
                }
486
                else {
487
                        qDebug(QString("Font %1 has no kerning pairs (according to Freetype)").arg(scFace->scName()));
488
                }
489
                return width;
490
        }
491
        else
492
                return size10;
493
}
494
 
495
double RealCWidth(ScribusDoc *, ScFace* scFace, QString ch, int Size)
496
{
497
        double w, ww;
498
        uint c1 = ch.at(0).unicode();
499
        FT_Face      face;
500
        if (scFace->canRender(ch.at(0)))
501
        {
502
                face = scFace->ftFace();
503
                uint cl = FT_Get_Char_Index(face, c1);
504
                int error = FT_Load_Glyph(face, cl, FT_LOAD_NO_SCALE | FT_LOAD_NO_BITMAP );
505
                if (!error) {
506
                        double uniEM = static_cast<double>(face->units_per_EM);
507
                        w = (face->glyph->metrics.width + fabs((double)face->glyph->metrics.horiBearingX)) / uniEM * (Size / 10.0);
508
                        ww = face->glyph->metrics.horiAdvance / uniEM * (Size / 10.0);
509
                        return QMAX(ww, w);
510
                }
511
                else
512
                        sDebug(QString("internal error: missing glyph: %1 (char %2) error=%3").arg(c1).arg(ch).arg(error));
513
 
514
        }
515
        return static_cast<double>(Size / 10.0);
516
}
517
 
518
double RealCHeight(ScribusDoc *, ScFace* scFace, QString ch, int Size)
519
{
520
        double w;
521
        uint c1 = ch.at(0).unicode();
522
        FT_Face      face;
523
        if (scFace->canRender(ch.at(0)))
524
        {
525
                face = scFace->ftFace();
526
                uint cl = FT_Get_Char_Index(face, c1);
527
                int error = FT_Load_Glyph(face, cl, FT_LOAD_NO_SCALE | FT_LOAD_NO_BITMAP );
528
                if (!error) {
529
                        double uniEM = static_cast<double>(face->units_per_EM);
530
                        w = face->glyph->metrics.height / uniEM * (Size / 10.0);
531
                }
532
                else {
533
                        sDebug(QString("internal error: missing glyph: %1 (char %2) error=%3").arg(c1).arg(ch).arg(error));
534
                        w = Size / 10.0;
535
                }
536
                return w;
537
        }
538
        else
539
                return static_cast<double>(Size / 10.0);
540
}
541
 
542
double RealCAscent(ScribusDoc *, ScFace* scFace, QString ch, int Size)
543
{
544
        double w;
545
        uint c1 = ch.at(0).unicode();
546
        FT_Face      face;
547
        if (scFace->canRender(ch.at(0)))
548
        {
549
                face = scFace->ftFace();
550
                uint cl = FT_Get_Char_Index(face, c1);
551
                int error = FT_Load_Glyph(face, cl, FT_LOAD_NO_SCALE | FT_LOAD_NO_BITMAP );
552
                if (! error) {
553
                        double uniEM = static_cast<double>(face->units_per_EM);
554
                        w = face->glyph->metrics.horiBearingY / uniEM * (Size / 10.0);
555
                }
556
                else {
557
                        sDebug(QString("internal error: missing glyph: %1 (char %2) error=%3").arg(c1).arg(ch).arg(error));
558
                        w = Size / 10.0;
559
                }
560
                return w;
561
        }
562
        else
563
                return static_cast<double>(Size / 10.0);
564
}
565
 
566
double RealFHeight(ScribusDoc *, ScFace* scFace, int Size)
567
{
568
        FT_Face face = scFace->ftFace();
569
        double uniEM = static_cast<double>(face->units_per_EM);
570
        return face->height / uniEM * (Size / 10.0);
571
}
6125 cbradney 572
*/