Subversion Repositories Scribus

Rev

Rev 86 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
3 paul 1
/***************************************************************************
2
                          pdflib.cpp  -  description
3
                             -------------------
4
    begin                : Sat Jan 19 2002
5
    copyright            : (C) 2002 by Franz Schmid
6
    email                : Franz.Schmid@altmuehlnet.de
7
 ***************************************************************************/
8
 
9
/***************************************************************************
10
 *                                                                         *
11
 *   This program is free software; you can redistribute it and/or modify  *
12
 *   it under the terms of the GNU General Public License as published by  *
13
 *   the Free Software Foundation; either version 2 of the License, or     *
14
 *   (at your option) any later version.                                   *
15
 *                                                                         *
16
 ***************************************************************************/
17
 
18
#include "pdflib.h"
26 Franz 19
#include "pdflib.moc"
3 paul 20
#include "config.h"
21
#include <qregexp.h>
22
#include <qdatetime.h>
23
#include <qfileinfo.h>
24
#include <qtextstream.h>
25
#include <cstdlib>
26
#include <cmath>
27
#include "rc4.h"
28
 
19 Franz 29
extern QString Path2Relative(QString Path);
3 paul 30
extern bool GlyIndex(QMap<uint, PDFlib::GlNamInd> *GListInd, QString Dat);
31
extern QByteArray ComputeMD5Sum(QByteArray *in);
32
extern QImage LoadPict(QString fn);
33
extern bool loadText(QString nam, QString *Buffer);
34
extern void Level2Layer(ScribusDoc *doc, struct Layer *ll, int Level);
35
extern QString CompressStr(QString *in);
36
extern QString ImageToTxt(QImage *im);
37
extern QString ImageToCMYK(QImage *im);
38
extern QString MaskToTxt(QImage *im, bool PDF = true);
39
extern char *toHex( uchar u );
40
extern QString String2Hex(QString *in, bool lang = true);
80 Franz 41
extern double Cwidth(ScribusDoc *doc, QString name, QString ch, int Siz, QString ch2 = " ");
95 Franz 42
extern FPoint GetMaxClipF(FPointArray Clip);
3 paul 43
#ifdef HAVE_CMS
44
extern bool CMSuse;
45
#endif
46
#ifdef HAVE_TIFF
47
        #include <tiffio.h>
48
#endif
49
extern ProfilesL InputProfiles;
50
 
26 Franz 51
extern "C" bool Run(ScribusApp *plug, QString fn, QString nam, int Components, int frPa, int toPa, QMap<int,QPixmap> thumbs);
3 paul 52
 
26 Franz 53
bool Run(ScribusApp *plug, QString fn, QString nam, int Components, int frPa, int toPa, QMap<int,QPixmap> thumbs)
3 paul 54
{
26 Franz 55
        QPixmap pm;
56
        QString pfad = PREL;
57
        pfad += "/lib/scribus/profiles/";
58
        bool ret = false;
3 paul 59
        PDFlib *dia = new PDFlib();
26 Franz 60
        if (dia->PDF_Begin_Doc(fn, plug->doc, plug->view, &plug->doc->PDF_Optionen, plug->Prefs.AvailFonts, plug->doc->UsedFonts, plug->BookPal->BView))
61
                {
62
                for (uint ap = 0; ap < plug->view->MasterPages.count(); ++ap)
63
                        {
64
                        if (plug->view->MasterPages.at(ap)->Items.count() != 0)
65
                                dia->PDF_TemplatePage(plug->view->MasterPages.at(ap));
66
                        }
67
                for (int a = frPa; a < toPa; ++a)
68
                        {
69
                        if (plug->doc->PDF_Optionen.Thumbnails)
70
                                pm = thumbs[a];
71
                        dia->PDF_Begin_Page(plug->view->Pages.at(a), pm);
72
                        dia->PDF_ProcessPage(plug->view->Pages.at(a), a);
73
                        dia->PDF_End_Page();
74
                        }
75
                if (plug->doc->PDF_Optionen.Version == 12)
76
                        dia->PDF_End_Doc(pfad+plug->PrinterProfiles[plug->doc->PDF_Optionen.PrintProf], nam, Components);
77
                else
78
                        dia->PDF_End_Doc();
79
                ret = true;
80
                }
81
        delete dia;
82
        return ret;
3 paul 83
}
25 Franz 84
 
3 paul 85
PDFlib::PDFlib()
86
{
87
        OwnerKey = QByteArray(32);
88
        UserKey = QByteArray(32);
89
        FileID = QByteArray(16);
90
        EncryKey = QByteArray(5);
91
        Encrypt = 0;
92
        KeyLen = 5;
93
        Dokument = 0;
94
        Catalog.Outlines = 2;
95
        Catalog.PageTree = 3;
96
        Catalog.Dest = 4;
97
        PageTree.Count = 0;
98
        PageTree.Kids.clear();
99
        Outlines.First = 0;
100
        Outlines.Last = 0;
101
        Outlines.Count = 0;
102
        XRef.clear();
103
        NamedDest.clear();
104
        NDnam = "LI";
105
        NDnum = 0;
106
        ObjCounter = 7;
107
        Seite.ObjNum = 0;
108
        Seite.Thumb = 0;
109
        Seite.XObjects.clear();
110
        Seite.FObjects.clear();
111
        Seite.AObjects.clear();
112
        Seite.FormObjects.clear();
113
        CalcFields.clear();
114
        Shadings.clear();
115
        Transpar.clear();
116
        ICCProfiles.clear();
117
        ResNam = "RE";
118
        ResCount = 0;
119
#ifdef HAVE_LIBZ
120
        CompAvail = true;
121
#else
122
        CompAvail = false;
123
#endif
124
        KeyGen = QByteArray(32);
125
        KeyGen[0] = 0x28;
126
        KeyGen[1] = 0xbf;
127
        KeyGen[2] = 0x4e;
128
        KeyGen[3] = 0x5e;
129
        KeyGen[4] = 0x4e;
130
        KeyGen[5] = 0x75;
131
        KeyGen[6] = 0x8a;
132
        KeyGen[7] = 0x41;
133
        KeyGen[8] = 0x64;
134
        KeyGen[9] = 0x00;
135
        KeyGen[10] = 0x4e;
136
        KeyGen[11] = 0x56;
137
        KeyGen[12] = 0xff;
138
        KeyGen[13] = 0xfa;
139
        KeyGen[14] = 0x01;
140
        KeyGen[15] = 0x08;
141
        KeyGen[16] = 0x2e;
142
        KeyGen[17] = 0x2e;
143
        KeyGen[18] = 0x00;
144
        KeyGen[19] = 0xb6;
145
        KeyGen[20] = 0xd0;
146
        KeyGen[21] = 0x68;
147
        KeyGen[22] = 0x3e;
148
        KeyGen[23] = 0x80;
149
        KeyGen[24] = 0x2f;
150
        KeyGen[25] = 0x0c;
151
        KeyGen[26] = 0xa9;
152
        KeyGen[27] = 0xfe;
153
        KeyGen[28] = 0x64;
154
        KeyGen[29] = 0x53;
155
        KeyGen[30] = 0x69;
156
        KeyGen[31] = 0x7a;
157
}
158
 
159
 
80 Franz 160
QString PDFlib::FToStr(double c)
3 paul 161
{
162
        QString cc;
163
        return cc.setNum(c);
164
}
165
 
166
QString PDFlib::IToStr(int c)
167
{
168
        QString cc;
169
        return cc.setNum(c);
170
}
171
 
172
void PDFlib::PutDoc(QString in)
173
{
174
        QTextStream t(&Spool);
175
        t.writeRawBytes(in, in.length());
176
        Dokument += in.length();
177
}
178
 
179
void PDFlib::PutPage(QString in)
180
{
181
        Inhalt += in;
182
}
183
 
184
void PDFlib::StartObj(int nr)
185
{
186
        XRef.append(Dokument);
187
        PutDoc(IToStr(nr)+ " 0 obj\n");
188
}
189
 
190
QString PDFlib::PDFEncode(QString in)
191
{
192
        QString tmp = "";
193
        QString cc;
194
        for (uint d = 0; d < in.length(); ++d)
195
                {
196
                cc = in.at(d);
197
                if ((cc == "(") || (cc == ")") || (cc == "\\"))
198
                        tmp += "\\";
199
                tmp += cc;
200
                }
201
        return tmp;
202
}
203
 
204
QString PDFlib::EncStream(QString *in, int ObjNum)
205
{
95 Franz 206
  if (in->length() < 1)
207
    return "";
208
  rc4_context_t rc4;
3 paul 209
        QString tmp = "";
210
        int dlen = 0;
211
        if (Options->Encrypt)
212
                {
213
                tmp = *in;
214
                QByteArray us(tmp.length());
215
                QByteArray ou(tmp.length());
216
                for (uint a = 0; a < tmp.length(); ++a)
95 Franz 217
                        us[a] = uchar(QChar(tmp.at(a)));                            
3 paul 218
                QByteArray data(10);
219
                if (KeyLen > 5)
220
                        data.resize(21);
221
                for (int cd = 0; cd < KeyLen; ++cd)
222
                        {
223
                data[cd] = EncryKey[cd];
224
                        dlen++;
225
                        }
226
        data[dlen++] = ObjNum;
227
        data[dlen++] = ObjNum >> 8;
228
        data[dlen++] = ObjNum >> 16;
229
        data[dlen++] = 0;
230
        data[dlen++] = 0;
231
                QByteArray step1(16);
232
                step1 = ComputeMD5Sum(&data);
95 Franz 233
        rc4_init(&rc4, reinterpret_cast<uchar*>(step1.data()), QMIN(KeyLen+5, 16));
234
    rc4_encrypt(&rc4, reinterpret_cast<uchar*>(us.data()), reinterpret_cast<uchar*>(ou.data()), tmp.length());
3 paul 235
                QString uk = "";
236
                for (uint cl = 0; cl < tmp.length(); ++cl)
237
                        uk += ou[cl];
238
                tmp = uk;
239
                }
240
        else
241
                tmp = *in;
242
        return tmp;
243
}
244
 
245
QString PDFlib::EncString(QString in, int ObjNum)
246
{
95 Franz 247
  if (in.length() < 3)
248
    return "<>";
249
  rc4_context_t rc4;
3 paul 250
        QString tmp;
251
        int dlen = 0;
252
        if (Options->Encrypt)
253
                {
254
                tmp = in.mid(1, in.length()-2);
255
                QByteArray us(tmp.length());
256
                QByteArray ou(tmp.length());
257
                for (uint a = 0; a < tmp.length(); ++a)
95 Franz 258
                        us[a] = static_cast<uchar>(QChar(tmp.at(a)));
3 paul 259
                QByteArray data(10);
260
                if (KeyLen > 5)
95 Franz 261
                        data.resize(21);          
3 paul 262
                for (int cd = 0; cd < KeyLen; ++cd)
263
                        {
264
                data[cd] = EncryKey[cd];
265
                        dlen++;
266
                        }
267
        data[dlen++] = ObjNum;
268
        data[dlen++] = ObjNum >> 8;
269
        data[dlen++] = ObjNum >> 16;
270
        data[dlen++] = 0;
271
        data[dlen++] = 0;
272
                QByteArray step1(16);
273
                step1 = ComputeMD5Sum(&data);
80 Franz 274
        rc4_init(&rc4, reinterpret_cast<uchar*>(step1.data()), QMIN(KeyLen+5, 16));
275
    rc4_encrypt(&rc4, reinterpret_cast<uchar*>(us.data()), reinterpret_cast<uchar*>(ou.data()), tmp.length());
3 paul 276
                QString uk = "";
277
                for (uint cl = 0; cl < tmp.length(); ++cl)
278
                        uk += ou[cl];
279
                tmp = "<"+String2Hex(&uk, false)+">";
280
                }
281
        else
282
                tmp = in;
283
        return tmp;
284
}
285
 
286
QString PDFlib::FitKey(QString pass)
287
{
288
        QString pw = pass;
289
        if (pw.length() < 32)
290
                {
291
                uint l = pw.length();
292
                for (uint a = 0; a < 32 - l; ++a)
293
                        pw.append(KeyGen[a]);
294
                }
295
        else
296
                pw = pw.left(32);
297
        return pw;
298
}
299
 
300
void PDFlib::CalcOwnerKey(QString Owner, QString User)
301
{
302
        rc4_context_t   rc4;
303
        QString pw = User;
304
        QString pw2;
305
        pw2 = Owner;
306
        if (pw2 == "")
307
                pw2 = User;
308
        pw = FitKey(pw);
309
        pw2 = FitKey(pw2);
310
        QByteArray step1(16);
311
        step1 = ComputeMD5(pw2);
312
        if (KeyLen > 5)
313
                {
314
                for (int kl = 0; kl < 50; ++kl)
315
                        step1 = ComputeMD5Sum(&step1);
316
                }
317
        QByteArray us(32);
318
        QByteArray enk(16);
319
        if (KeyLen > 5)
320
                {
321
                for (uint a2 = 0; a2 < 32; ++a2)
95 Franz 322
                        OwnerKey[a2] = static_cast<uchar>(QChar(pw.at(a2)));
3 paul 323
                for (int rl = 0; rl < 20; rl++)
324
                        {
325
                for (int j = 0; j < 16; j ++)
326
                enk[j] = step1[j] ^ rl;
80 Franz 327
                        rc4_init(&rc4, reinterpret_cast<uchar*>(enk.data()), 16);
328
                rc4_encrypt(&rc4, reinterpret_cast<uchar*>(OwnerKey.data()), reinterpret_cast<uchar*>(OwnerKey.data()), 32);
3 paul 329
                        }
330
                }
331
        else
332
                {
333
                for (uint a = 0; a < 32; ++a)
95 Franz 334
                        us[a] = static_cast<uchar>(QChar(pw.at(a)));
80 Franz 335
                rc4_init(&rc4, reinterpret_cast<uchar*>(step1.data()), 5);
336
        rc4_encrypt(&rc4, reinterpret_cast<uchar*>(us.data()), reinterpret_cast<uchar*>(OwnerKey.data()), 32);
3 paul 337
                }
338
}
339
 
340
void PDFlib::CalcUserKey(QString User, int Permission)
341
{
342
        rc4_context_t   rc4;
343
        QString pw = User;
344
        pw = FitKey(pw);
345
        QByteArray step1(16);
346
        QByteArray perm(4);
347
        uint perm_value = (uint)Permission;
348
        perm[0] = perm_value;
349
        perm[1] = perm_value >> 8;
350
        perm[2] = perm_value >> 16;
351
        perm[3] = perm_value >> 24;
352
        for (uint a = 0; a < 32; ++a)
353
                pw += OwnerKey[a];
354
        for (uint a1 = 0; a1 < 4; ++a1)
355
                pw += perm[a1];
356
        for (uint a3 = 0; a3 < 16; ++a3)
357
                pw += FileID[a3];
358
        step1 = ComputeMD5(pw);
359
        if (KeyLen > 5)
360
                {
361
                for (int kl = 0; kl < 50; ++kl)
362
                        step1 = ComputeMD5Sum(&step1);
363
                EncryKey.resize(16);
364
                }
365
        for (int a2 = 0; a2 < KeyLen; ++a2)
366
                EncryKey[a2] = step1[a2];
367
        if (KeyLen > 5)
368
                {
369
                QString pr2 = "";
370
                for (int kl3 = 0; kl3 < 32; ++kl3)
371
                        pr2 += KeyGen[kl3];
372
                for (uint a4 = 0; a4 < 16; ++a4)
373
                        pr2 += FileID[a4];
374
                step1 = ComputeMD5(pr2);
375
                QByteArray enk(16);
376
                for (uint a3 = 0; a3 < 16; ++a3)
377
                        UserKey[a3] = step1[a3];
378
                for (int rl = 0; rl < 20; rl++)
379
                        {
380
                for (int j = 0; j < 16; j ++)
381
                enk[j] = EncryKey[j] ^ rl;
80 Franz 382
                        rc4_init(&rc4, reinterpret_cast<uchar*>(enk.data()), 16);
383
                rc4_encrypt(&rc4, reinterpret_cast<uchar*>(UserKey.data()), reinterpret_cast<uchar*>(UserKey.data()), 16);
3 paul 384
                        }
385
                }
386
        else
387
                {
80 Franz 388
                rc4_init(&rc4, reinterpret_cast<uchar*>(step1.data()), 5);
389
        rc4_encrypt(&rc4, reinterpret_cast<uchar*>(KeyGen.data()), reinterpret_cast<uchar*>(UserKey.data()), 32);
3 paul 390
                }
391
}
392
 
393
QByteArray PDFlib::ComputeMD5(QString in)
394
{
395
        QByteArray TBytes(in.length());
396
        for (uint a = 0; a < in.length(); ++a)
95 Franz 397
                TBytes[a] = static_cast<uchar>(QChar(in.at(a)));
3 paul 398
        return ComputeMD5Sum(&TBytes);
399
}
400
 
401
bool PDFlib::PDF_Begin_Doc(QString fn, ScribusDoc *docu, ScribusView *vie, PDFOpt *opts, SCFonts &AllFonts, QMap<QString,QFont> DocFonts, BookMView* vi)
402
{
95 Franz 403
  Spool.setName(fn);
404
        if (!Spool.open(IO_WriteOnly))
405
                return false;
406
  QString tmp;
3 paul 407
        QString ok = "";
408
        QString uk = "";
409
        QFileInfo fd;
68 Franz 410
        QString fext;
3 paul 411
        int a;
412
        doc = docu;
413
        view = vie;
414
        Bvie = vi;
415
        Options = opts;
416
        UsedFontsP.clear();
80 Franz 417
        ObjCounter = Options->Articles ? 9 : 8;
95 Franz 418
  PutDoc(Options->Version <= 13 ? "%PDF-1.3\n" : "%PDF-1.4\n");
419
  if (Options->Version == 12)
3 paul 420
                ObjCounter++;
421
        PutDoc("%"+QString(QChar(199))+QString(QChar(236))+QString(QChar(143))+QString(QChar(162))+"\n");
422
        StartObj(1);
423
        PutDoc("<<\n/Type /Catalog\n/Outlines 3 0 R\n/Pages 4 0 R\n/Dests 5 0 R\n/AcroForm 6 0 R\n/Names 7 0 R\n");
424
        if (Options->Articles)
425
                PutDoc("/Threads 8 0 R\n");
426
        if (Options->Version == 12)
427
                PutDoc("/OutputIntents [ "+IToStr(ObjCounter-1)+" 0 R ]\n");
428
        PutDoc("/ViewerPreferences << /PageDirection ");
80 Franz 429
        PutDoc( Options->Binding == 0 ? "/L2R" : "/R2L");
3 paul 430
        PutDoc(" >>\n>>\nendobj\n");
431
        QString IDg = Datum;
432
        IDg += Options->Datei;
433
        IDg += "Scribus "+QString(VERSION);
68 Franz 434
        IDg += "Libpdf for Scribus "+QString(VERSION);
3 paul 435
        IDg += doc->DocTitel;
436
        IDg += doc->DocAutor;
437
        IDg += "/False";
438
        FileID = ComputeMD5(IDg);
439
        if (Options->Encrypt)
440
                {
80 Franz 441
                KeyLen = Options->Version == 14 ? 16 : 5;
3 paul 442
                CalcOwnerKey(Options->PassOwner, Options->PassUser);
443
                CalcUserKey(Options->PassUser, Options->Permissions);
444
                for (uint cl2 = 0; cl2 < 32; ++cl2)
445
                        ok += OwnerKey[cl2];
446
                if (KeyLen > 5)
447
                        {
448
                        for (uint cl3 = 0; cl3 < 16; ++cl3)
449
                                uk += UserKey[cl3];
450
                        for (uint cl3r = 0; cl3r < 16; ++cl3r)
451
                                uk += KeyGen[cl3r];
452
                        }
453
                else
454
                        {
455
                        for (uint cl = 0; cl < 32; ++cl)
456
                                uk += UserKey[cl];
457
                        }
458
                }
459
        QDate d = QDate::currentDate();
460
        Datum = "D:";
461
        tmp.sprintf("%4d", d.year());
462
        tmp.replace(QRegExp(" "), "0");
463
        Datum += tmp;
464
        tmp.sprintf("%2d", d.month());
465
        tmp.replace(QRegExp(" "), "0");
466
        Datum += tmp;
467
        tmp.sprintf("%2d", d.day());
468
        tmp.replace(QRegExp(" "), "0");
469
        Datum += tmp;
470
        QTime t = QTime::currentTime();
471
        tmp = t.toString();
472
        tmp.replace(QRegExp(":"), "");
473
        Datum += tmp;
474
        StartObj(2);
475
        PutDoc("<<\n/Creator "+EncString("(Scribus "+QString(VERSION)+")",2)+"\n");
68 Franz 476
        PutDoc("/Producer "+EncString("(Libpdf for Scribus "+QString(VERSION)+")",2)+"\n");
3 paul 477
        PutDoc("/Title "+EncString("("+doc->DocTitel+")",2)+"\n");
478
        PutDoc("/Author "+EncString("("+doc->DocAutor+")",2)+"\n");
68 Franz 479
        PutDoc("/Keywords "+EncString("("+doc->DocKeyWords+")",2)+"\n");
3 paul 480
        PutDoc("/CreationDate "+EncString("("+Datum+")",2)+"\n");
481
        PutDoc("/ModDate "+EncString("("+Datum+")",2)+"\n");
482
        if (Options->Version == 12)
483
                PutDoc("/GTS_PDFXVersion (PDF/X-3:2002)\n");
484
        PutDoc("/Trapped /False\n>>\nendobj\n");
95 Franz 485
  for (int t = 0; t < 5; ++t)
486
          XRef.append(Dokument);
3 paul 487
        if (Options->Articles)
488
                XRef.append(Dokument);
489
        if (Options->Version == 12)
490
                XRef.append(Dokument);
491
        if (Options->Encrypt)
492
                {
493
                StartObj(ObjCounter);
494
                Encrypt = ObjCounter;
495
                ObjCounter++;
496
                PutDoc("<<\n/Filter /Standard\n");
80 Franz 497
                PutDoc( KeyLen > 5 ? "/R 3\n/V 2\n/Length 128\n" : "/R 2\n/V 1\n");
3 paul 498
                PutDoc("/O <"+String2Hex(&ok)+">\n");
499
                PutDoc("/U <"+String2Hex(&uk)+">\n");
500
                PutDoc("/P "+IToStr(Options->Permissions)+"\n>>\nendobj\n");
501
                }
502
        RealFonts = DocFonts;
503
        QMap<QString,QFont> ReallyUsed;
504
        ReallyUsed.clear();
68 Franz 505
        FPointArray gly;
506
        Page* pg;
507
        PageItem* pgit;
508
        QString chx;
509
        for (uint c = 0; c < view->MasterPages.count(); ++c)
3 paul 510
                {
68 Franz 511
                pg = view->MasterPages.at(c);
512
                for (uint d = 0; d < pg->Items.count(); ++d)
3 paul 513
                        {
68 Franz 514
                        pgit = pg->Items.at(d);
515
                        if ((pgit->PType == 4) || (pgit->PType == 8))
3 paul 516
                                {
68 Franz 517
                                for (uint e = 0; e < pgit->Ptext.count(); ++e)
3 paul 518
                                        {
68 Franz 519
                                        ReallyUsed.insert(pgit->Ptext.at(e)->cfont, DocFonts[pgit->Ptext.at(e)->cfont]);
520
                                        uint chr = pgit->Ptext.at(e)->ch[0].unicode();
521
                                        if ((chr == 13) || (chr == 32))
522
                                                continue;
523
                                        if (pgit->Ptext.at(e)->cstyle & 64)
524
                                                {
525
                                                chx = pgit->Ptext.at(e)->ch;
526
                                                if (chx.upper() != pgit->Ptext.at(e)->ch)
527
                                                        chx = chx.upper();
528
                                                chr = chx[0].unicode();
529
                                                }
530
                                        if (AllFonts[pgit->Ptext.at(e)->cfont]->CharWidth.contains(chr))
531
                                                {
532
                                                gly = AllFonts[pgit->Ptext.at(e)->cfont]->GlyphArray[chr].Outlines.copy();
533
                                                AllFonts[pgit->Ptext.at(e)->cfont]->RealGlyphs.insert(chr, gly);
534
                                                }
3 paul 535
                                        }
536
                                }
537
                        }
538
                }
539
        for (uint c=0; c<view->Pages.count(); ++c)
540
                {
68 Franz 541
                pg = view->Pages.at(c);
542
                for (uint d = 0; d < pg->Items.count(); ++d)
3 paul 543
                        {
68 Franz 544
                        pgit = pg->Items.at(d);
545
                        if ((pgit->PType == 4) || (pgit->PType == 8))
3 paul 546
                                {
68 Franz 547
                                for (uint e = 0; e < pgit->Ptext.count(); ++e)
3 paul 548
                                        {
68 Franz 549
                                        ReallyUsed.insert(pgit->Ptext.at(e)->cfont, DocFonts[pgit->Ptext.at(e)->cfont]);
550
                                        uint chr = pgit->Ptext.at(e)->ch[0].unicode();
551
                                        if ((chr == 13) || (chr == 32))
552
                                                continue;
553
                                        if (pgit->Ptext.at(e)->cstyle & 64)
554
                                                {
555
                                                chx = pgit->Ptext.at(e)->ch;
556
                                                if (chx.upper() != pgit->Ptext.at(e)->ch)
557
                                                        chx = chx.upper();
558
                                                chr = chx[0].unicode();
559
                                                }
560
                                        if (AllFonts[pgit->Ptext.at(e)->cfont]->CharWidth.contains(chr))
561
                                                {
562
                                                gly = AllFonts[pgit->Ptext.at(e)->cfont]->GlyphArray[chr].Outlines.copy();
563
                                                AllFonts[pgit->Ptext.at(e)->cfont]->RealGlyphs.insert(chr, gly);
564
                                                }
3 paul 565
                                        }
566
                                }
567
                        }
568
                }
569
        QMap<QString,QFont>::Iterator it;
570
        a = 0;
571
        for (it = ReallyUsed.begin(); it != ReallyUsed.end(); ++it)
572
                {
573
                fd = QFileInfo(AllFonts[it.key()]->Datei);
68 Franz 574
                fext = fd.extension(false).lower();
575
                if ((AllFonts[it.key()]->isOTF) || (AllFonts[it.key()]->Subset))
3 paul 576
                        {
68 Franz 577
                        QString fon = "";
578
                        QMap<uint,FPointArray>::Iterator ig;
579
                        for (ig = AllFonts[it.key()]->RealGlyphs.begin(); ig != AllFonts[it.key()]->RealGlyphs.end(); ++ig)
3 paul 580
                                {
68 Franz 581
                                FPoint np, np1, np2;
582
                                bool nPath = true;
583
                                if (ig.data().size() > 3)
584
                                        {
74 Franz 585
                                        FPointArray gly = ig.data().copy();
586
                                        QWMatrix mat;
587
                                        mat.scale(0.1, 0.1);
588
                                        gly.map(mat);
589
                                        for (uint poi = 0; poi < gly.size()-3; poi += 4)
68 Franz 590
                                                {
74 Franz 591
                                                if (gly.point(poi).x() > 900000)
68 Franz 592
                                                        {
593
                                                        fon += "h\n";
594
                                                        nPath = true;
595
                                                        continue;
596
                                                        }
597
                                                if (nPath)
598
                                                        {
74 Franz 599
                                                        np = gly.point(poi);
68 Franz 600
                                                        fon += FToStr(np.x())+" "+FToStr(-np.y())+" m\n";
601
                                                        nPath = false;
602
                                                        }
74 Franz 603
                                                np = gly.point(poi+1);
604
                                                np1 = gly.point(poi+3);
605
                                                np2 = gly.point(poi+2);
68 Franz 606
                                                fon += FToStr(np.x()) + " " + FToStr(-np.y()) + " " + FToStr(np1.x()) + " " + FToStr(-np1.y()) + " " + FToStr(np2.x()) + " " + FToStr(-np2.y()) + " c\n";
607
                                                }
608
                                        fon += "h f*\n";
609
                                        StartObj(ObjCounter);
610
                                        ObjCounter++;
74 Franz 611
                                        np = doc->ActPage->GetMinClipF(gly);
95 Franz 612
                                        np1 = GetMaxClipF(gly);
68 Franz 613
                                        PutDoc("<<\n/Type /XObject\n/Subtype /Form\n/FormType 1\n");
614
                                        PutDoc("/BBox [ "+FToStr(np.x())+" "+FToStr(-np.y())+" "+FToStr(np1.x())+" "+FToStr(-np1.y())+" ]\n");
615
                                        PutDoc("/Resources << /ProcSet [/PDF /Text /ImageB /ImageC /ImageI]\n");
616
                                        PutDoc(">>\n");
617
                                        if ((Options->Compress) && (CompAvail))
618
                                                fon = CompressStr(&fon);
619
                                        PutDoc("/Length "+IToStr(fon.length()+1));
620
                                        if ((Options->Compress) && (CompAvail))
621
                                                PutDoc("\n/Filter /FlateDecode");
622
                                        PutDoc(" >>\nstream\n"+EncStream(&fon, ObjCounter-1)+"\nendstream\nendobj\n");
623
                                        Seite.XObjects[AllFonts[it.key()]->RealName()+IToStr(ig.key())] = ObjCounter-1;
624
                                        fon = "";
625
                                        }
626
                                }
627
                        AllFonts[it.key()]->RealGlyphs.clear();
628
                        }
629
                else
630
                        {
631
                        UsedFontsP.insert(it.key(), "/Fo"+IToStr(a));
632
                        if ((fext == "pfb") && (Options->EmbedList.contains(it.key())))
633
                                {
3 paul 634
                                QString fon = "";
635
                                StartObj(ObjCounter);
636
                                QFile f(AllFonts[it.key()]->Datei);
637
                                QByteArray bb(f.size());
638
                                if (f.open(IO_ReadOnly))
639
                                        {
640
                                        f.readBlock(bb.data(), f.size());
641
                                        f.close();
642
                                        }
643
                                uint posi;
644
                                for (posi = 6; posi < bb.size(); ++posi)
645
                                        {
80 Franz 646
                                        if ((bb[posi] == static_cast<char>(0x80)) && (static_cast<int>(bb[posi+1]) == 2))
3 paul 647
                                                break;
648
                                        fon += bb[posi];
649
                                        }
650
                                int len1 = fon.length();
651
                                uint ulen;
652
                                ulen = bb[posi+2] & 0xff;
653
                                ulen |= (bb[posi+3] << 8) & 0xff00;
654
                                ulen |= (bb[posi+4] << 16) & 0xff0000;
655
                                ulen |= (bb[posi+5] << 24) & 0xff000000;
656
                                if (ulen > bb.size())
657
                                        ulen = bb.size()-7;
658
                                posi += 6;
659
                                for (uint j = 0; j < ulen; ++j)
660
                                        {
661
                                        fon += bb[posi];
662
                                        posi++;
663
                                        }
664
                                posi += 6;
665
                                int len2 = fon.length()-len1;
666
                                for (uint j = posi; j < bb.size(); ++j)
667
                                        {
80 Franz 668
                                        if ((bb[j] == static_cast<char>(0x80)) && (static_cast<int>(bb[j+1]) == 3))
3 paul 669
                                                break;
80 Franz 670
                                        if (bb[j] == '\r')
671
                                                fon += "\n";
3 paul 672
                                        else
673
                                                fon += bb[j];
674
                                        }
675
                                int len3 = fon.length()-len2-len1;
676
                                if ((Options->Compress) && (CompAvail))
677
                                        fon = CompressStr(&fon);
678
                                PutDoc("<<\n/Length "+IToStr(fon.length()+1)+"\n");
679
                                PutDoc("/Length1 "+IToStr(len1)+"\n");
680
                                PutDoc("/Length2 "+IToStr(len2)+"\n");
681
                                PutDoc("/Length3 "+IToStr(len3)+"\n");
682
                                if ((Options->Compress) && (CompAvail))
683
                                        PutDoc("/Filter /FlateDecode\n");
684
                                PutDoc(">>\nstream\n"+EncStream(&fon,ObjCounter)+"\nendstream\nendobj\n");
685
                                ObjCounter++;
686
                                }
68 Franz 687
                        if ((fext == "pfa") && (Options->EmbedList.contains(it.key())))
3 paul 688
                                {
689
                                QString fon = "";
690
                                QString fon2 = "";
691
                                QString tm = "";
692
                                uint value;
693
                                bool ok = true;
694
                                StartObj(ObjCounter);
695
                                loadText(AllFonts[it.key()]->Datei, &fon);
696
                                int len1 = fon.find("eexec")+5;
697
                                fon2 = fon.left(len1)+"\n";
698
                                int len2 = fon.find("0000000000000000000000000");
699
                                if (len2 == -1)
700
                                        len2 = fon.length()+1;
701
                                int count = 0;
702
                                for (int xx = len1; xx < len2-1; ++xx)
703
                                        {
704
                                        tm = fon.at(xx);
80 Franz 705
                                        if ((tm == QChar(13)) || (tm == QChar(10)))
3 paul 706
                                                continue;
707
                                        xx++;
708
                                        count++;
709
                                        tm += fon.at(xx);
710
                                        value = tm.toUInt(&ok, 16);
711
                                        fon2 += QChar(value);
712
                                        }
713
                                fon2 += fon.mid(len2);
714
                                if ((Options->Compress) && (CompAvail))
715
                                        fon2 = CompressStr(&fon2);
716
                                PutDoc("<<\n/Length "+IToStr(fon2.length()+1)+"\n");
717
                                PutDoc("/Length1 "+IToStr(len1+1)+"\n");
718
                                PutDoc("/Length2 "+IToStr(count)+"\n");
80 Franz 719
                                PutDoc(static_cast<int>(fon.length()-len2) == -1 ? QString("/Length3 0\n") :
720
                                       "/Length3 "+IToStr(fon.length()-len2)+"\n");
3 paul 721
                                if ((Options->Compress) && (CompAvail))
722
                                        PutDoc("/Filter /FlateDecode\n");
723
                                PutDoc(">>\nstream\n"+EncStream(&fon2, ObjCounter)+"\nendstream\nendobj\n");
724
                                ObjCounter++;
725
                                }
68 Franz 726
                        if (((fext == "ttf") || (fext == "otf")) && (Options->EmbedList.contains(it.key())))
3 paul 727
                                {
728
                                QString fon = "";
729
                                StartObj(ObjCounter);
730
                                QFile f(AllFonts[it.key()]->Datei);
731
                                QByteArray bb(f.size());
732
                                if (f.open(IO_ReadOnly))
733
                                        {
734
                                        f.readBlock(bb.data(), f.size());
735
                                        f.close();
736
                                        }
737
                                uint posi;
738
                                for (posi = 0; posi < bb.size(); ++posi)
739
                                        {
740
                                        fon += bb[posi];
741
                                        }
742
                                int len = fon.length();
743
                                if ((Options->Compress) && (CompAvail))
744
                                        fon = CompressStr(&fon);
745
                                PutDoc("<<\n/Length "+IToStr(fon.length()+1)+"\n");
746
                                PutDoc("/Length1 "+IToStr(len)+"\n");
747
                                if ((Options->Compress) && (CompAvail))
748
                                        PutDoc("/Filter /FlateDecode\n");
749
                                PutDoc(">>\nstream\n"+EncStream(&fon, ObjCounter)+"\nendstream\nendobj\n");
750
                                ObjCounter++;
751
                                }
752
                        StartObj(ObjCounter);
753
                        PutDoc("<<\n/Type /FontDescriptor\n");
754
                        PutDoc("/FontName /"+AllFonts[it.key()]->RealName()+"\n");
755
                        PutDoc("/FontBBox [ "+AllFonts[it.key()]->FontBBox+" ]\n");
756
                        PutDoc("/Flags ");
757
                        QFontInfo fo = QFontInfo(it.data());
758
                        int pfl = 0;
759
                        if (AllFonts[it.key()]->IsFixedPitch)
760
                                pfl = pfl ^ 1;
761
                        if (fo.italic())
762
                                pfl = pfl ^ 64;
68 Franz 763
//                      pfl = pfl ^ 4;
764
                        pfl = pfl ^ 32;
3 paul 765
                        PutDoc(IToStr(pfl)+"\n");
766
                        PutDoc("/Ascent "+AllFonts[it.key()]->Ascent+"\n");
767
                        PutDoc("/Descent "+AllFonts[it.key()]->Descender+"\n");
768
                        PutDoc("/CapHeight "+AllFonts[it.key()]->CapHeight+"\n");
769
                        PutDoc("/ItalicAngle "+AllFonts[it.key()]->ItalicAngle+"\n");
770
                        PutDoc("/StemV "+AllFonts[it.key()]->StdVW+"\n");
68 Franz 771
                        if (((fext == "ttf") || (fext == "otf")) && (Options->EmbedList.contains(it.key())))
3 paul 772
                                PutDoc("/FontFile2 "+IToStr(ObjCounter-1)+" 0 R\n");
68 Franz 773
                        if ((fext == "pfb") && (Options->EmbedList.contains(it.key())))
3 paul 774
                                PutDoc("/FontFile "+IToStr(ObjCounter-1)+" 0 R\n");
68 Franz 775
                        if ((fext == "pfa") && (Options->EmbedList.contains(it.key())))
3 paul 776
                                PutDoc("/FontFile "+IToStr(ObjCounter-1)+" 0 R\n");
777
                        PutDoc(">>\nendobj\n");
778
                        ObjCounter++;
68 Franz 779
                        GListeInd gl;
780
                        GlyIndex(&gl, AllFonts[it.key()]->Datei);
781
                        GlyphsIdxOfFont.insert(it.key(), gl);
782
                        uint FontDes = ObjCounter - 1;
783
                        GListeInd::Iterator itg;
784
                        itg = gl.begin();
785
                        GListeInd::Iterator itg2;
786
                        itg2 = gl.begin();
787
                        uint Fcc = gl.count() / 224;
788
                        if ((gl.count() % 224) != 0)
789
                                Fcc += 1;
790
                        for (uint Fc = 0; Fc < Fcc; ++Fc)
3 paul 791
                                {
68 Franz 792
                                StartObj(ObjCounter);
793
                                int chCount = 31;
794
                                PutDoc("[ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ");
795
                                for (int ww = 31; ww < 256; ++ww)
3 paul 796
                                        {
68 Franz 797
                                        PutDoc(IToStr(static_cast<int>(AllFonts[it.key()]->CharWidth[itg.key()]*1000))+" ");
798
                                        if (itg == gl.end())
799
                                                break;
800
                                        ++itg;
801
                                        chCount++;
3 paul 802
                                        }
68 Franz 803
                                PutDoc("]\nendobj\n");
804
                                ObjCounter++;
805
                                StartObj(ObjCounter);
806
                                ObjCounter++;
807
                                PutDoc("<< /Type /Encoding\n/Differences [ 32\n");
808
                                int crc = 0;
809
                                for (int ww2 = 32; ww2 < 256; ++ww2)
810
                                        {
811
                                        PutDoc(itg2.data().Name+" ");
812
                                        if (itg2 == gl.end())
813
                                                break;
814
                                        ++itg2;
815
                                        crc++;
816
                                        if (crc > 8)
817
                                                {
818
                                                PutDoc("\n");
819
                                                crc = 0;
820
                                                }
821
                                        }
822
                                PutDoc("]\n>>\nendobj\n");
823
                                StartObj(ObjCounter);
824
                                PutDoc("<<\n/Type /Font\n/Subtype ");
80 Franz 825
                                PutDoc(((fext == "ttf") || (fext == "otf")) ? "/TrueType\n" : "/Type1\n");
68 Franz 826
                                PutDoc("/Name /Fo"+IToStr(a)+"S"+IToStr(Fc)+"\n");
827
                                PutDoc("/BaseFont /"+AllFonts[it.key()]->RealName()+"\n");
828
                                PutDoc("/FirstChar 0\n");
829
                                PutDoc("/LastChar "+IToStr(chCount-1)+"\n");
830
                                PutDoc("/Widths "+IToStr(ObjCounter-2)+" 0 R\n");
831
                                PutDoc("/Encoding "+IToStr(ObjCounter-1)+" 0 R\n");
832
                                PutDoc("/FontDescriptor "+IToStr(FontDes)+" 0 R\n");
833
                                PutDoc(">>\nendobj\n");
834
                                Seite.FObjects["Fo"+IToStr(a)+"S"+IToStr(Fc)] = ObjCounter;
835
                                ObjCounter++;
3 paul 836
                                }
837
                        }
838
                a++;
839
                }
840
#ifdef HAVE_CMS
841
        if ((CMSuse) && (Options->UseProfiles))
842
                {
843
                StartObj(ObjCounter);
844
                ObjCounter++;
845
                QString dataP;
846
                struct ICCD dataD;
847
                loadText(InputProfiles[Options->SolidProf], &dataP);
848
                PutDoc("<<\n");
849
                if ((Options->Compress) && (CompAvail))
850
                        {
851
                        PutDoc("/Filter /FlateDecode\n");
852
                        dataP = CompressStr(&dataP);
853
                        }
854
                PutDoc("/Length "+IToStr(dataP.length()+1)+"\n");
855
                PutDoc("/N "+IToStr(Options->SComp)+"\n");
856
                PutDoc(">>\nstream\n"+EncStream(&dataP, ObjCounter-1)+"\nendstream\nendobj\n");
857
                StartObj(ObjCounter);
858
                dataD.ResName = ResNam+IToStr(ResCount);
859
                dataD.ICCArray = "[ /ICCBased "+IToStr(ObjCounter-1)+" 0 R ]";
860
                dataD.ResNum = ObjCounter;
861
                ICCProfiles[Options->SolidProf] = dataD;
862
                PutDoc("[ /ICCBased "+IToStr(ObjCounter-1)+" 0 R ]\n");
863
                PutDoc("endobj\n");
864
                ResCount++;
865
                ObjCounter++;
866
                }
867
#endif
868
        return true;
869
}
870
 
871
void PDFlib::PDF_TemplatePage(Page* pag)
872
{
873
        QString tmp;
25 Franz 874
        ActPageP = pag;
3 paul 875
        Inhalt = "";
876
        Seite.AObjects.clear();
877
        PDF_ProcessPage(pag, pag->PageNr);
878
        StartObj(ObjCounter);
879
        ObjCounter++;
880
        PutDoc("<<\n/Type /XObject\n/Subtype /Form\n/FormType 1\n");
881
        PutDoc("/BBox [ 0 0 "+FToStr(doc->PageB)+" "+FToStr(doc->PageH)+" ]\n");
882
        PutDoc("/Resources << /ProcSet [/PDF /Text /ImageB /ImageC /ImageI]\n");
883
        if (Seite.XObjects.count() != 0)
884
                {
885
                PutDoc("/XObject <<\n");
886
                QMap<QString,int>::Iterator it;
887
                for (it = Seite.XObjects.begin(); it != Seite.XObjects.end(); ++it)
888
                        PutDoc("/"+it.key()+" "+IToStr(it.data())+" 0 R\n");
889
                PutDoc(">>\n");
890
                }
891
        if (Seite.FObjects.count() != 0)
892
                {
893
                PutDoc("/Font << \n");
894
                QMap<QString,int>::Iterator it2;
895
                for (it2 = Seite.FObjects.begin(); it2 != Seite.FObjects.end(); ++it2)
896
                        PutDoc("/"+it2.key()+" "+IToStr(it2.data())+" 0 R\n");
897
                PutDoc(">>\n");
898
                }
899
        if (Shadings.count() != 0)
900
                {
901
                PutDoc("/Shading << \n");
902
                QMap<QString,int>::Iterator it3;
903
                for (it3 = Shadings.begin(); it3 != Shadings.end(); ++it3)
904
                        PutDoc("/"+it3.key()+" "+IToStr(it3.data())+" 0 R\n");
905
                PutDoc(">>\n");
906
                }
907
        if (Transpar.count() != 0)
908
                {
909
                PutDoc("/ExtGState << \n");
910
                QMap<QString,int>::Iterator it3t;
911
                for (it3t = Transpar.begin(); it3t != Transpar.end(); ++it3t)
912
                        PutDoc("/"+it3t.key()+" "+IToStr(it3t.data())+" 0 R\n");
913
                PutDoc(">>\n");
914
                }
915
        if (ICCProfiles.count() != 0)
916
                {
917
                PutDoc("/ColorSpace << \n");
918
                QMap<QString,ICCD>::Iterator it3c;
919
                for (it3c = ICCProfiles.begin(); it3c != ICCProfiles.end(); ++it3c)
920
                        PutDoc("/"+it3c.data().ResName+" "+IToStr(it3c.data().ResNum)+" 0 R\n");
921
                PutDoc(">>\n");
922
                }
923
        PutDoc(">>\n");
924
        if ((Options->Compress) && (CompAvail))
925
                Inhalt = CompressStr(&Inhalt);
926
        PutDoc("/Length "+IToStr(Inhalt.length()+1));
927
        if ((Options->Compress) && (CompAvail))
928
                PutDoc("\n/Filter /FlateDecode");
929
        PutDoc(" >>\nstream\n"+EncStream(&Inhalt, ObjCounter-1)+"\nendstream\nendobj\n");
930
        QString name = pag->PageNam.simplifyWhiteSpace().replace( QRegExp("\\s"), "" );
931
        Seite.XObjects[name] = ObjCounter-1;
932
}
933
 
934
void PDFlib::PDF_Begin_Page(Page* pag, QPixmap pm)
935
{
936
        QString tmp;
25 Franz 937
        ActPageP = pag;
3 paul 938
        Inhalt = "";
939
        Seite.AObjects.clear();
940
        if (Options->Thumbnails)
941
                {
942
                QImage img = pm.convertToImage();
943
                QString im = ImageToTxt(&img);
944
                if ((Options->Compress) && (CompAvail))
945
                        im = CompressStr(&im);
946
                StartObj(ObjCounter);
947
                PutDoc("<<\n/Width "+IToStr(img.width())+"\n");
948
                PutDoc("/Height "+IToStr(img.height())+"\n");
949
                PutDoc("/ColorSpace /DeviceRGB\n/BitsPerComponent 8\n");
950
                PutDoc("/Length "+IToStr(im.length()+1)+"\n");
951
                if ((Options->Compress) && (CompAvail))
952
                        PutDoc("/Filter /FlateDecode\n");
953
                PutDoc(">>\nstream\n"+EncStream(&im, ObjCounter)+"\nendstream\nendobj\n");
954
                Seite.Thumb = ObjCounter;
955
                ObjCounter++;
956
                }
957
}
958
 
959
void PDFlib::PDF_End_Page()
960
{
25 Franz 961
        uint PgNr = ActPageP->PageNr;
3 paul 962
        Seite.ObjNum = ObjCounter;
963
        WritePDFStream(&Inhalt);
964
        StartObj(ObjCounter);
965
        PutDoc("<<\n/Type /Page\n/Parent 4 0 R\n");
966
        PutDoc("/MediaBox [0 0 "+FToStr(doc->PageB)+" "+FToStr(doc->PageH)+"]\n");
967
        PutDoc("/TrimBox ["+FToStr(Options->BleedLeft)+" "+FToStr(Options->BleedBottom)+" "+FToStr(doc->PageB-Options->BleedRight)+" "+FToStr(doc->PageH-Options->BleedTop)+"]\n");
968
        PutDoc("/Contents "+IToStr(Seite.ObjNum)+" 0 R\n");
969
        if (Options->Thumbnails)
970
                PutDoc("/Thumb "+IToStr(Seite.Thumb)+" 0 R\n");
971
        if (Seite.AObjects.count() != 0)
972
                {
973
                PutDoc("/Annots [ ");
974
                for (uint b = 0; b < Seite.AObjects.count(); ++b)
975
                        PutDoc(IToStr(Seite.AObjects[b])+" 0 R ");
976
                PutDoc("]\n");
977
                }
978
        if (Options->PresentMode)
979
                {
980
                PutDoc("/Dur "+IToStr(Options->PresentVals[PgNr].AnzeigeLen)+"\n");
981
                if (Options->PresentVals[PgNr].Effekt != 0)
982
                        {
983
                        PutDoc("/Trans << /Type /Trans\n");
984
                        PutDoc("/D "+IToStr(Options->PresentVals[PgNr].EffektLen)+"\n");
985
                        switch (Options->PresentVals[PgNr].Effekt)
986
                                {
987
                                case 1:
988
                                        PutDoc("/S /Blinds\n");
80 Franz 989
                                        PutDoc(Options->PresentVals[PgNr].Dm == 0 ? "/Dm /H\n" : "/Dm /V\n");
3 paul 990
                                        break;
991
                                case 2:
992
                                        PutDoc("/S /Box\n");
80 Franz 993
                                        PutDoc(Options->PresentVals[PgNr].M == 0 ? "/M /I\n" : "/M /O\n");
3 paul 994
                                        break;
995
                                case 3:
996
                                        PutDoc("/S /Dissolve\n");
997
                                        break;
998
                                case 4:
999
                                        PutDoc("/S /Glitter\n");
1000
                                        PutDoc("/Di "+IToStr(Options->PresentVals[PgNr].Di)+"\n");
1001
                                        break;
1002
                                case 5:
1003
                                        PutDoc("/S /Split\n");
80 Franz 1004
                                        PutDoc(Options->PresentVals[PgNr].Dm == 0 ? "/Dm /H\n" : "/Dm /V\n");
1005
                                        PutDoc(Options->PresentVals[PgNr].M == 0 ? "/M /I\n" : "/M /O\n");
3 paul 1006
                                        break;
1007
                                case 6:
1008
                                        PutDoc("/S /Wipe\n");
1009
                                        PutDoc("/Di "+IToStr(Options->PresentVals[PgNr].Di)+"\n");
1010
                                        break;
1011
                                }
1012
                        PutDoc(">>\n");
1013
                        }
1014
                }
1015
        PutDoc(">>\nendobj\n");
1016
        PageTree.Count++;
1017
        PageTree.Kids.append(ObjCounter);
1018
        ObjCounter++;
1019
}
1020
 
1021
void PDFlib::PDF_ProcessPage(Page* pag, uint PNr)
1022
{
1023
        QString tmp;
25 Franz 1024
        ActPageP = pag;
3 paul 1025
        PageItem* ite;
1026
        int Lnr = 0;
1027
        struct Layer ll;
1028
        ll.Drucken = false;
1029
        ll.LNr = 0;
1030
        QString name = "/"+pag->MPageNam.simplifyWhiteSpace().replace( QRegExp("\\s"), "" );
1031
        if (pag->MPageNam != "")
1032
                {
1033
                Page* mPage = view->MasterPages.at(view->MasterNames[view->Pages.at(PNr)->MPageNam]);
1034
                if (mPage->Items.count() != 0)
1035
                        {
1036
                        PutPage("1 0 0 1 0 0 cm\n");
1037
                        PutPage(name+" Do\n");
1038
                        for (uint lam = 0; lam < doc->Layers.count(); ++lam)
1039
                                {
1040
                                Level2Layer(doc, &ll, Lnr);
1041
                                Lnr++;
1042
                                if (ll.Drucken)
1043
                                        {
1044
                                        for (uint am = 0; am < mPage->Items.count(); ++am)
1045
                                                {
1046
                                                ite = mPage->Items.at(am);
1047
                                                if ((ite->LayerNr != ll.LNr) || (!ite->isPrintable))
1048
                                                        continue;
1049
                                                if (ite->PType == 4)
1050
                                                        {
1051
                                                        PutPage("q\n");
68 Franz 1052
                                                        if (((ite->Transparency != 0) || (ite->TranspStroke != 0)) && (Options->Version == 14))
3 paul 1053
                                                                PDF_Transparenz(ite);
1054
                                                        if (Options->UseRGB)
1055
                                                                {
1056
                                                                if (ite->Pcolor != "None")
1057
                                                                        PutPage(SetFarbe(ite->Pcolor, ite->Shade)+" rg\n");
1058
                                                                if (ite->Pcolor2 != "None")
1059
                                                                        PutPage(SetFarbe(ite->Pcolor2, ite->Shade2)+" RG\n");
1060
                                                                }
1061
                                                        else
1062
                                                                {
1063
#ifdef HAVE_CMS
1064
                                                                if ((CMSuse) && (Options->UseProfiles))
1065
                                                                        {
1066
                                                                        switch (Options->Intent)
1067
                                                                                {
1068
                                                                                case 0:
1069
                                                                                        PutPage("/Perceptual");
1070
                                                                                        break;
1071
                                                                                case 1:
1072
                                                                                        PutPage("/RelativeColorimetric");
1073
                                                                                        break;
1074
                                                                                case 2:
1075
                                                                                        PutPage("/Saturation");
1076
                                                                                        break;
1077
                                                                                case 3:
1078
                                                                                        PutPage("/AbsoluteColorimetric");
1079
                                                                                        break;
1080
                                                                                        }
1081
                                                                        PutPage(" ri\n");
1082
                                                                        PutPage("/"+ICCProfiles[Options->SolidProf].ResName+" cs\n");
1083
                                                                        PutPage("/"+ICCProfiles[Options->SolidProf].ResName+" CS\n");
1084
                                                                        if (ite->Pcolor != "None")
1085
                                                                                PutPage(SetFarbe(ite->Pcolor, ite->Shade)+" scn\n");
1086
                                                                        if (ite->Pcolor2 != "None")
1087
                                                                                PutPage(SetFarbe(ite->Pcolor2, ite->Shade2)+" SCN\n");
1088
                                                                        }
1089
                                                                else
1090
                                                                        {
1091
#endif
1092
                                                                if (ite->Pcolor != "None")
1093
                                                                        PutPage(SetFarbe(ite->Pcolor, ite->Shade)+" k\n");
1094
                                                                if (ite->Pcolor2 != "None")
1095
                                                                        PutPage(SetFarbe(ite->Pcolor2, ite->Shade2)+" K\n");
1096
                                                                }
1097
#ifdef HAVE_CMS
1098
                                                                }
1099
#endif
1100
                                                        PutPage("1 0 0 1 "+FToStr(ite->Xpos)+" "+FToStr(doc->PageH - ite->Ypos)+" cm\n");
1101
                                                        if (ite->Rot != 0)
1102
                                                                {
80 Franz 1103
                                                                double sr = sin(-ite->Rot* 3.1415927 / 180.0);
1104
                                                                double cr = cos(-ite->Rot* 3.1415927 / 180.0);
3 paul 1105
                                                                if ((cr * cr) < 0.001)
1106
                                                                        cr = 0;
1107
                                                                if ((sr * sr) < 0.001)
1108
                                                                        sr = 0;
1109
                                                                PutPage(FToStr(cr)+" "+FToStr(sr)+" "+FToStr(-sr)+" "+FToStr(cr)+" 0 0 cm\n");
1110
                                                                }
1111
                                                        if ((ite->Pcolor != "None") || (ite->GrType != 0))
1112
                                                                {
1113
                                                                if (ite->GrType != 0)
1114
                                                                        PDF_Gradient(ite);
1115
                                                                else
1116
                                                                        {
1117
                                                                        PutPage(SetClipPath(ite));
80 Franz 1118
                                                                        PutPage(ite->Segments.count() != 0 ? "h\nf*\n" : "h\nf\n");
3 paul 1119
                                                                        }
1120
                                                                }
1121
                                                        if ((ite->flippedH % 2) != 0)
1122
                                                                PutPage("-1 0 0 1 "+FToStr(ite->Width)+" 0 cm\n");
1123
                                                        if ((ite->flippedV % 2) != 0)
1124
                                                                PutPage("1 0 0 -1 0 "+FToStr(-ite->Height)+" cm\n");
1125
                                                        PutPage(setTextSt(ite, PNr));
1126
                                                        PutPage("Q\n");
1127
                                                        }
1128
                                                }
1129
                                        }
1130
                                }
1131
                        }
1132
                }
1133
        ll.Drucken = false;
1134
        ll.LNr = 0;
1135
        Lnr = 0;
1136
        for (uint la = 0; la < doc->Layers.count(); ++la)
1137
                {
1138
                Level2Layer(doc, &ll, Lnr);
1139
                if (ll.Drucken)
1140
                        {
25 Franz 1141
                        for (uint a = 0; a < ActPageP->Items.count(); ++a)
3 paul 1142
                                {
25 Franz 1143
                                ite = ActPageP->Items.at(a);
3 paul 1144
                                if (ite->LayerNr != ll.LNr)
1145
                                        continue;
1146
                                PutPage("q\n");
68 Franz 1147
                                if (((ite->Transparency != 0) || (ite->TranspStroke != 0)) && (Options->Version == 14))
3 paul 1148
                                        PDF_Transparenz(ite);
1149
                                if ((ite->isBookmark) && (Options->Bookmarks))
1150
                                        PDF_Bookmark(ite->BMnr, doc->PageH - ite->Ypos);
95 Franz 1151
                                if (!ite->isPrintable || ((ite->PType == 4) && (pag->PageNam != "")))
3 paul 1152
                                        {
1153
                                        PutPage("Q\n");
1154
                                        continue;
1155
                                        }
1156
                                if (Options->UseRGB)
1157
                                        {
1158
                                        if (ite->Pcolor != "None")
1159
                                                PutPage(SetFarbe(ite->Pcolor, ite->Shade)+" rg\n");
1160
                                        if (ite->Pcolor2 != "None")
1161
                                                PutPage(SetFarbe(ite->Pcolor2, ite->Shade2)+" RG\n");
1162
                                                }
1163
                                else
1164
                                        {
1165
#ifdef HAVE_CMS
1166
                                        if ((CMSuse) && (Options->UseProfiles))
1167
                                                {
1168
                                                switch (Options->Intent)
1169
                                                        {
1170
                                                        case 0:
1171
                                                                PutPage("/Perceptual");
1172
                                                                break;
1173
                                                        case 1:
1174
                                                                PutPage("/RelativeColorimetric");
1175
                                                                break;
1176
                                                        case 2:
1177
                                                                PutPage("/Saturation");
1178
                                                                break;
1179
                                                        case 3:
1180
                                                                PutPage("/AbsoluteColorimetric");
1181
                                                                break;
1182
                                                        }
1183
                                                PutPage(" ri\n");
1184
                                                PutPage("/"+ICCProfiles[Options->SolidProf].ResName+" cs\n");
1185
                                                PutPage("/"+ICCProfiles[Options->SolidProf].ResName+" CS\n");
1186
                                                if (ite->Pcolor != "None")
1187
                                                        PutPage(SetFarbe(ite->Pcolor, ite->Shade)+" scn\n");
1188
                                                if (ite->Pcolor2 != "None")
1189
                                                        PutPage(SetFarbe(ite->Pcolor2, ite->Shade2)+" SCN\n");
1190
                                                }
1191
                                        else
1192
                                        {
1193
#endif
1194
                                        if (ite->Pcolor != "None")
1195
                                                PutPage(SetFarbe(ite->Pcolor, ite->Shade)+" k\n");
1196
                                        if (ite->Pcolor2 != "None")
1197
                                                PutPage(SetFarbe(ite->Pcolor2, ite->Shade2)+" K\n");
1198
                                        }
1199
#ifdef HAVE_CMS
1200
                                        }
1201
#endif
1202
                                Inhalt += FToStr(ite->Pwidth)+" w\n";
1203
                                QString Dt = FToStr(QMAX(ite->Pwidth, 1));
1204
                                QString Da = FToStr(QMAX(3*ite->Pwidth, 1));
1205
                                switch (ite->PLineArt)
1206
                                        {
1207
                                        case Qt::SolidLine:
1208
                                                PutPage("[] 0 d\n");
1209
                                                break;
1210
                                        case Qt::DashLine:
1211
                                                PutPage("["+Da+" "+Dt+"] 0 d\n");
1212
                                                break;
1213
                                        case Qt::DotLine:
1214
                                                PutPage("["+Dt+"] 0 d\n");
1215
                                                break;
1216
                                        case Qt::DashDotLine:
1217
                                                PutPage("["+Da+" "+Dt+" "+Dt+" "+Dt+"] 0 d\n");
1218
                                                break;
1219
                                        case Qt::DashDotDotLine:
1220
                                                PutPage("["+Da+" "+Dt+" "+Dt+" "+Dt+" "+Dt+" "+Dt+"] 0 d\n");
1221
                                                break;
1222
                                        default:
1223
                                                PutPage("[] 0 d\n");
1224
                                                break;
1225
                                        }
1226
                                switch (ite->PLineEnd)
1227
                                        {
1228
                                        case Qt::FlatCap:
1229
                                                PutPage("0 J\n");
1230
                                                break;
1231
                                        case Qt::SquareCap:
1232
                                                PutPage("2 J\n");
1233
                                                break;
1234
                                        case Qt::RoundCap:
1235
                                                PutPage("1 J\n");
1236
                                                break;
1237
                                        default:
1238
                                                PutPage("0 J\n");
1239
                                                break;
1240
                                        }
1241
                                switch (ite->PLineJoin)
1242
                                        {
1243
                                        case Qt::MiterJoin:
1244
                                                PutPage("0 j\n");
1245
                                                break;
1246
                                        case Qt::BevelJoin:
1247
                                                PutPage("2 j\n");
1248
                                                break;
1249
                                        case Qt::RoundJoin:
1250
                                                PutPage("1 j\n");
1251
                                                break;
1252
                                        default:
1253
                                                PutPage("0 j\n");
1254
                                                break;
1255
                                        }
1256
                                PutPage("1 0 0 1 "+FToStr(ite->Xpos)+" "+FToStr(doc->PageH - ite->Ypos)+" cm\n");
1257
                                if (ite->Rot != 0)
1258
                                        {
80 Franz 1259
                                        double sr = sin(-ite->Rot* 3.1415927 / 180.0);
1260
                                        double cr = cos(-ite->Rot* 3.1415927 / 180.0);
3 paul 1261
                                        if ((cr * cr) < 0.001)
1262
                                                cr = 0;
1263
                                        if ((sr * sr) < 0.001)
1264
                                                sr = 0;
1265
                                        PutPage(FToStr(cr)+" "+FToStr(sr)+" "+FToStr(-sr)+" "+FToStr(cr)+" 0 0 cm\n");
1266
                                        }
1267
                                switch (ite->PType)
1268
                                        {
1269
                                        case 2:
31 Franz 1270
                                                if ((ite->Pcolor != "None") || (ite->GrType != 0))
3 paul 1271
                                                        {
1272
                                                        PutPage(SetClipPath(ite));
31 Franz 1273
                                                        if (ite->GrType != 0)
1274
                                                                PDF_Gradient(ite);
3 paul 1275
                                                        else
80 Franz 1276
                                                                PutPage(ite->Segments.count() != 0 ? "h\nf*\n" : "h\nf\n");
3 paul 1277
                                                        }
27 Franz 1278
                                                PutPage("q\n");
3 paul 1279
                                                PutPage(SetClipPath(ite));
80 Franz 1280
                                                PutPage(ite->Segments.count() != 0 ? "h\nW*\nn\n" : "h\nW\nn\n");
3 paul 1281
                                                if ((ite->flippedH % 2) != 0)
1282
                                                        PutPage("-1 0 0 1 "+FToStr(ite->Width)+" 0 cm\n");
1283
                                                if ((ite->flippedV % 2) != 0)
1284
                                                        PutPage("1 0 0 -1 0 "+FToStr(-ite->Height)+" cm\n");
1285
                                                if ((ite->PicAvail) && (ite->Pfile != ""))
20 Franz 1286
                                                        PDF_Image(ite->InvPict, ite->Pfile, ite->LocalScX, ite->LocalScY, ite->LocalX, -ite->LocalY, false, ite->IProfile, ite->UseEmbedded, ite->IRender);
9 Franz 1287
                                                PutPage("Q\n");
27 Franz 1288
                                                if ((ite->Pcolor2 != "None") || (ite->NamedLStyle != ""))
9 Franz 1289
                                                        {
27 Franz 1290
                                                        if (ite->NamedLStyle == "")
1291
                                                                {
1292
                                                                PutPage(SetClipPath(ite));
1293
                                                                PutPage("h\nS\n");
1294
                                                                }
1295
                                                        else
1296
                                                                {
1297
                                                                multiLine ml = doc->MLineStyles[ite->NamedLStyle];
31 Franz 1298
                                                                for (int it = ml.size()-1; it > -1; it--)
27 Franz 1299
                                                                        {
1300
                                                                        PutPage(setStrokeMulti(&ml[it]));
1301
                                                                        PutPage(SetClipPath(ite));
1302
                                                                        PutPage("h\nS\n");
1303
                                                                        }
1304
                                                                }
9 Franz 1305
                                                        }
3 paul 1306
                                                break;
1307
                                        case 4:
1308
                                                if ((ite->isAnnotation) && (Options->Version != 12))
1309
                                                        {
1310
                                                        PDF_Annotation(ite, PNr);
1311
                                                        break;
1312
                                                        }
1313
                                                if ((ite->Pcolor != "None") || (ite->GrType != 0))
1314
                                                        {
1315
                                                        PutPage(SetClipPath(ite));
1316
                                                        if (ite->GrType != 0)
1317
                                                                PDF_Gradient(ite);
1318
                                                        else
80 Franz 1319
                                                                PutPage(ite->Segments.count() != 0 ? "h\nf*\n" : "h\nf\n");
3 paul 1320
                                                        }
84 Franz 1321
                                                PutPage("q\n");
3 paul 1322
                                                if ((ite->flippedH % 2) != 0)
1323
                                                        PutPage("-1 0 0 1 "+FToStr(ite->Width)+" 0 cm\n");
1324
                                                if ((ite->flippedV % 2) != 0)
1325
                                                        PutPage("1 0 0 -1 0 "+FToStr(-ite->Height)+" cm\n");
1326
                                                PutPage(setTextSt(ite, PNr));
84 Franz 1327
                                                PutPage("Q\n");
1328
                                                if ((ite->Pcolor2 != "None") || (ite->NamedLStyle != ""))
1329
                                                        {
1330
                                                        if (ite->NamedLStyle == "")
1331
                                                                {
1332
                                                                PutPage(SetClipPath(ite));
1333
                                                                PutPage("h\nS\n");
1334
                                                                }
1335
                                                        else
1336
                                                                {
1337
                                                                multiLine ml = doc->MLineStyles[ite->NamedLStyle];
1338
                                                                for (int it = ml.size()-1; it > -1; it--)
1339
                                                                        {
1340
                                                                        PutPage(setStrokeMulti(&ml[it]));
1341
                                                                        PutPage(SetClipPath(ite));
1342
                                                                        PutPage("h\nS\n");
1343
                                                                        }
1344
                                                                }
1345
                                                        }
3 paul 1346
                                                break;
1347
                                        case 5:
27 Franz 1348
                                                if (ite->NamedLStyle == "")
1349
                                                        {
1350
                                                        PutPage("0 0 m\n");
1351
                                                        PutPage(FToStr(ite->Width)+" "+FToStr(-ite->Height)+" l\n");
1352
                                                        PutPage("S\n");
1353
                                                        }
1354
                                                else
1355
                                                        {
1356
                                                        multiLine ml = doc->MLineStyles[ite->NamedLStyle];
31 Franz 1357
                                                        for (int it = ml.size()-1; it > -1; it--)
27 Franz 1358
                                                                {
1359
                                                                PutPage(setStrokeMulti(&ml[it]));
1360
                                                                PutPage("0 0 m\n");
1361
                                                                PutPage(FToStr(ite->Width)+" "+FToStr(-ite->Height)+" l\n");
1362
                                                                PutPage("S\n");
1363
                                                                }
1364
                                                        }
3 paul 1365
                                                break;
1366
                                        case 1:
1367
                                        case 3:
1368
                                        case 6:
1369
                                                if (ite->GrType != 0)
1370
                                                        PDF_Gradient(ite);
1371
                                                else
1372
                                                        {
1373
                                                        if (ite->Pcolor != "None")
1374
                                                                {
1375
                                                                PutPage(SetClipPath(ite));
80 Franz 1376
                                                                PutPage(ite->Segments.count() != 0 ? "h\nf*\n" : "h\nf\n");
3 paul 1377
                                                                }
1378
                                                        }
27 Franz 1379
                                                if ((ite->Pcolor2 != "None") || (ite->NamedLStyle != ""))
3 paul 1380
                                                        {
27 Franz 1381
                                                        if (ite->NamedLStyle == "")
1382
                                                                {
1383
                                                                PutPage(SetClipPath(ite));
1384
                                                                PutPage("h\nS\n");
1385
                                                                }
1386
                                                        else
1387
                                                                {
1388
                                                                multiLine ml = doc->MLineStyles[ite->NamedLStyle];
31 Franz 1389
                                                                for (int it = ml.size()-1; it > -1; it--)
27 Franz 1390
                                                                        {
1391
                                                                        PutPage(setStrokeMulti(&ml[it]));
1392
                                                                        PutPage(SetClipPath(ite));
1393
                                                                        PutPage("h\nS\n");
1394
                                                                        }
1395
                                                                }
3 paul 1396
                                                        }
1397
                                                break;
1398
                                        case 7:
27 Franz 1399
                                                if ((ite->Pcolor2 != "None") || (ite->NamedLStyle != ""))
1400
                                                        {
1401
                                                        if (ite->NamedLStyle == "")
1402
                                                                {
1403
                                                                PutPage(SetClipPath(ite));
1404
                                                                PutPage("S\n");
1405
                                                                }
1406
                                                        else
1407
                                                                {
1408
                                                                multiLine ml = doc->MLineStyles[ite->NamedLStyle];
31 Franz 1409
                                                                for (int it = ml.size()-1; it > -1; it--)
27 Franz 1410
                                                                        {
1411
                                                                        PutPage(setStrokeMulti(&ml[it]));
1412
                                                                        PutPage(SetClipPath(ite));
1413
                                                                        PutPage("S\n");
1414
                                                                        }
1415
                                                                }
1416
                                                        }
3 paul 1417
                                                break;
1418
                                        case 8:
1419
                                                if (ite->PoShow)
1420
                                                        {
1421
                                                        if (ite->PoLine.size() > 3)
1422
                                                                {
1423
                                                                PutPage("q\n");
27 Franz 1424
                                                                if ((ite->Pcolor2 != "None") || (ite->NamedLStyle != ""))
1425
                                                                        {
1426
                                                                        if (ite->NamedLStyle == "")
1427
                                                                                {
1428
                                                                                PutPage(SetClipPath(ite));
1429
                                                                                PutPage("S\n");
1430
                                                                                }
1431
                                                                        else
1432
                                                                                {
1433
                                                                                multiLine ml = doc->MLineStyles[ite->NamedLStyle];
31 Franz 1434
                                                                                for (int it = ml.size()-1; it > -1; it--)
27 Franz 1435
                                                                                        {
1436
                                                                                        PutPage(setStrokeMulti(&ml[it]));
1437
                                                                                        PutPage(SetClipPath(ite));
1438
                                                                                        PutPage("S\n");
1439
                                                                                        }
1440
                                                                                }
1441
                                                                        }
1442
                                                                PutPage("Q\n");
3 paul 1443
                                                                }
1444
                                                        }
1445
                                                PutPage(setTextSt(ite, PNr));
1446
                                                break;
1447
                                        }
1448
                                PutPage("Q\n");
1449
                                }
1450
                        }
1451
                Lnr++;
1452
                }
1453
}
1454
 
27 Franz 1455
QString PDFlib::setStrokeMulti(struct singleLine *sl)
1456
{
1457
        QString tmp = "";
1458
        if (Options->UseRGB)
1459
                tmp += SetFarbe(sl->Color, sl->Shade)+" RG\n";
1460
        else
1461
                {
1462
#ifdef HAVE_CMS
1463
                if ((CMSuse) && (Options->UseProfiles))
1464
                        {
1465
                        switch (Options->Intent)
1466
                                {
1467
                                case 0:
1468
                                        tmp += "/Perceptual";
1469
                                        break;
1470
                                case 1:
1471
                                        tmp += "/RelativeColorimetric";
1472
                                        break;
1473
                                case 2:
1474
                                        tmp += "/Saturation";
1475
                                        break;
1476
                                case 3:
1477
                                        tmp += "/AbsoluteColorimetric";
1478
                                        break;
1479
                                }
1480
                        tmp += " ri\n";
1481
                        tmp += "/"+ICCProfiles[Options->SolidProf].ResName+" CS\n";
1482
                        tmp += SetFarbe(sl->Color, sl->Shade)+" SCN\n";
1483
                        }
1484
                else
1485
                        {
1486
#endif
1487
                        tmp += SetFarbe(sl->Color, sl->Shade)+" K\n";
1488
                        }
1489
#ifdef HAVE_CMS
1490
                        }
1491
#endif
1492
        tmp += FToStr(sl->Width)+" w\n";
1493
        QString Dt = FToStr(QMAX(sl->Width, 1));
1494
        QString Da = FToStr(QMAX(3*sl->Width, 1));
1495
        switch (static_cast<PenStyle>(sl->Dash))
1496
                {
1497
                case Qt::SolidLine:
1498
                        tmp += "[] 0 d\n";
1499
                        break;
1500
                case Qt::DashLine:
1501
                        tmp += "["+Da+" "+Dt+"] 0 d\n";
1502
                        break;
1503
                case Qt::DotLine:
1504
                        tmp += "["+Dt+"] 0 d\n";
1505
                        break;
1506
                case Qt::DashDotLine:
1507
                        tmp += "["+Da+" "+Dt+" "+Dt+" "+Dt+"] 0 d\n";
1508
                        break;
1509
                case Qt::DashDotDotLine:
1510
                        tmp += "["+Da+" "+Dt+" "+Dt+" "+Dt+" "+Dt+" "+Dt+"] 0 d\n";
1511
                        break;
1512
                default:
1513
                        tmp += "[] 0 d\n";
1514
                        break;
1515
                }
1516
        switch (static_cast<PenCapStyle>(sl->LineEnd))
1517
                {
1518
                case Qt::FlatCap:
1519
                        tmp += "0 J\n";
1520
                        break;
1521
                case Qt::SquareCap:
1522
                        tmp += "2 J\n";
1523
                        break;
1524
                case Qt::RoundCap:
1525
                        tmp += "1 J\n";
1526
                        break;
1527
                default:
1528
                        tmp += "0 J\n";
1529
                        break;
1530
                }
1531
        switch (static_cast<PenJoinStyle>(sl->LineJoin))
1532
                {
1533
                case Qt::MiterJoin:
1534
                        tmp += "0 j\n";
1535
                        break;
1536
                case Qt::BevelJoin:
1537
                        tmp += "2 j\n";
1538
                        break;
1539
                case Qt::RoundJoin:
1540
                        tmp += "1 j\n";
1541
                        break;
1542
                default:
1543
                        tmp += "0 j\n";
1544
                        break;
1545
                }
1546
        return tmp;
1547
}
1548
 
3 paul 1549
QString PDFlib::setTextSt(PageItem *ite, uint PNr)
1550
{
1551
        struct Pti *hl;
1552
        QString tmp = "";
1553
        QString tmp2 = "";
68 Franz 1554
        QString FillColor = "";
1555
        QString StrokeColor = "";
3 paul 1556
        if (ite->PType == 4)
68 Franz 1557
                tmp += "BT\n";
3 paul 1558
        for (uint d = 0; d < ite->MaxChars; ++d)
1559
                {
1560
                hl = ite->Ptext.at(d);
1561
                if ((hl->ch == QChar(13)) || (hl->ch == QChar(10)))
1562
                        continue;
1563
                if (ite->PType == 8)
1564
                        {
1565
                        tmp += "q\n";
1566
                        tmp += "1 0 0 1 "+FToStr(hl->PtransX)+" "+FToStr(-hl->PtransY)+" cm\n";
80 Franz 1567
                        double sr = sin(-hl->PRot* 3.1415927 / 180.0);
1568
                        double cr = cos(-hl->PRot* 3.1415927 / 180.0);
3 paul 1569
                        if ((cr * cr) < 0.001)
1570
                                cr = 0;
1571
                        if ((sr * sr) < 0.001)
1572
                                sr = 0;
1573
                        tmp += FToStr(cr)+" "+FToStr(sr)+" "+FToStr(-sr)+" "+FToStr(cr)+" 0 0 cm\n";
68 Franz 1574
                        tmp += "BT\n";
3 paul 1575
                        }
1576
                else
1577
                        {
1578
                        if (hl->yp == 0)
1579
                                break;
1580
                        }
1581
                int     tsz = hl->csize;
1582
                QString chx = hl->ch;
55 Franz 1583
                if (hl->ch == QChar(29))
1584
                        chx = " ";
3 paul 1585
                if (hl->ch == QChar(30))
1586
                        {
1587
                        uint zae = 0;
1588
                        while (ite->Ptext.at(d+zae)->ch == QChar(30))
1589
                                {
1590
                                zae++;
1591
                                if (d+zae == ite->MaxChars)
1592
                                        break;
1593
                                }
1594
                        QString out="%1";
1595
                        chx = out.arg(PNr+doc->FirstPnum, zae).right(zae).left(1);
1596
                        }
1597
                uint cc = chx[0].unicode();
1598
                uint idx = 0;
1599
                if (GlyphsIdxOfFont[hl->cfont].contains(cc))
1600
                        idx = GlyphsIdxOfFont[hl->cfont][cc].Code;
1601
                uint idx1 = (idx >> 8) & 0xFF;
1602
                if (hl->cstyle & 64)
1603
                        {
1604
                        if (chx.upper() != chx)
1605
                                {
1606
                                tsz = hl->csize * doc->VKapit / 100;
1607
                                chx = chx.upper();
1608
                                }
1609
                        }
1610
                if (hl->cstyle & 1)
1611
                        tsz = hl->csize * doc->VHochSc / 100;
1612
                if (hl->cstyle & 2)
1613
                        tsz = hl->csize * doc->VHochSc / 100;
68 Franz 1614
                if (hl->cstroke != "None")
3 paul 1615
                        {
68 Franz 1616
                        StrokeColor = "";
3 paul 1617
                        if (Options->UseRGB)
68 Franz 1618
                                StrokeColor += SetFarbe(hl->cstroke, hl->cshade2)+" RG\n";
1619
                        else
3 paul 1620
                                {
68 Franz 1621
#ifdef HAVE_CMS
1622
                                if ((CMSuse) && (Options->UseProfiles))
3 paul 1623
                                        {
68 Franz 1624
                                        StrokeColor += "/"+ICCProfiles[Options->SolidProf].ResName+" CS\n";
1625
                                        StrokeColor += SetFarbe(hl->cstroke, hl->cshade2)+" SCN\n";
3 paul 1626
                                        }
68 Franz 1627
                                else
1628
#endif
1629
                                StrokeColor += SetFarbe(hl->cstroke, hl->cshade2)+" K\n";
3 paul 1630
                                }
68 Franz 1631
                        }
1632
                if (hl->ccolor != "None")
1633
                        {
1634
                        FillColor = "";
1635
                        if (Options->UseRGB)
1636
                                FillColor += SetFarbe(hl->ccolor, hl->cshade)+" rg\n";
3 paul 1637
                        else
1638
                                {
1639
#ifdef HAVE_CMS
1640
                                if ((CMSuse) && (Options->UseProfiles))
1641
                                        {
68 Franz 1642
                                        FillColor += "/"+ICCProfiles[Options->SolidProf].ResName+" cs\n";
1643
                                        FillColor += SetFarbe(hl->ccolor, hl->cshade)+" scn\n";
1644
                                        }
1645
                                else
1646
#endif
1647
                                FillColor += SetFarbe(hl->ccolor, hl->cshade)+" k\n";
1648
                                }
1649
                        }
1650
                if (((*doc->AllFonts)[hl->cfont]->isOTF) || ((*doc->AllFonts)[hl->cfont]->Subset))
1651
                        {
1652
                        uint chr = chx[0].unicode();
1653
                        if (((*doc->AllFonts)[hl->cfont]->CharWidth.contains(chr)) && (chr != 32))
1654
                                {
1655
                                if ((hl->cstroke != "None") && (hl->cstyle & 4))
1656
                                        {
1657
                                        tmp2 += FToStr((*doc->AllFonts)[hl->cfont]->strokeWidth * tsz / 20.0)+" w\n[] 0 d\n0 J\n0 j\n";
1658
                                        tmp2 += StrokeColor;
1659
                                        }
1660
                                if (hl->ccolor != "None")
1661
                                        tmp2 += FillColor;
1662
                                tmp2 += "q\n";
1663
                                if (ite->PType == 8)
1664
                                        {
1665
                                        tmp2 += "1 0 0 1 "+FToStr(hl->PtransX)+" "+FToStr(-hl->PtransY)+" cm\n";
80 Franz 1666
                                        double sr = sin(-hl->PRot* 3.1415927 / 180.0);
1667
                                        double cr = cos(-hl->PRot* 3.1415927 / 180.0);
68 Franz 1668
                                        if ((cr * cr) < 0.001)
1669
                                                cr = 0;
1670
                                        if ((sr * sr) < 0.001)
1671
                                                sr = 0;
1672
                                        tmp2 += FToStr(cr)+" "+FToStr(sr)+" "+FToStr(-sr)+" "+FToStr(cr)+" 0 0 cm\n";
1673
                                        }
1674
                                if (ite->Reverse)
1675
                                        {
80 Franz 1676
                                        double wid = Cwidth(doc, hl->cfont, chx, hl->csize) * (hl->cscale / 100.0);
68 Franz 1677
                                        tmp2 += "1 0 0 1 "+FToStr(hl->xp)+" "+FToStr((hl->yp - tsz) * -1)+" cm\n";
1678
                                        tmp2 += "-1 0 0 1 0 0 cm\n";
1679
                                        tmp2 += "1 0 0 1 "+FToStr(-wid)+" 0 cm\n";
74 Franz 1680
                                        tmp2 += FToStr(tsz)+" 0 0 "+FToStr(tsz)+" 0 0 cm\n";
68 Franz 1681
                                        }
1682
                                else
74 Franz 1683
                                        tmp2 += FToStr(tsz)+" 0 0 "+FToStr(tsz)+" "+FToStr(hl->xp)+" "+FToStr((hl->yp - tsz) * -1)+" cm\n";
68 Franz 1684
                                tmp2 += FToStr(hl->cscale / 100.0)+" 0 0 1 0 0 cm\n";
1685
                                tmp2 += "/"+(*doc->AllFonts)[hl->cfont]->RealName()+IToStr(chr)+" Do\n";
1686
                                if (hl->cstyle & 4)
1687
                                        {
1688
                                        FPointArray gly = (*doc->AllFonts)[hl->cfont]->GlyphArray[chr].Outlines.copy();
74 Franz 1689
                                        QWMatrix mat;
1690
                                        mat.scale(0.1, 0.1);
1691
                                        gly.map(mat);
68 Franz 1692
                                        bool nPath = true;
1693
                                        FPoint np;
1694
                                        if (gly.size() > 3)
3 paul 1695
                                                {
68 Franz 1696
                                                for (uint poi=0; poi<gly.size()-3; poi += 4)
1697
                                                        {
1698
                                                        if (gly.point(poi).x() > 900000)
1699
                                                                {
1700
                                                                tmp2 += "h\n";
1701
                                                                nPath = true;
1702
                                                                continue;
1703
                                                                }
1704
                                                        if (nPath)
1705
                                                                {
1706
                                                                np = gly.point(poi);
1707
                                                                tmp2 += FToStr(np.x())+" "+FToStr(-np.y())+" m\n";
1708
                                                                nPath = false;
1709
                                                                }
1710
                                                        np = gly.point(poi+1);
1711
                                                        tmp2 += FToStr(np.x())+" "+FToStr(-np.y())+" ";
1712
                                                        np = gly.point(poi+3);
1713
                                                        tmp2 += FToStr(np.x())+" "+FToStr(-np.y())+" ";
1714
                                                        np = gly.point(poi+2);
1715
                                                        tmp2 += FToStr(np.x())+" "+FToStr(-np.y())+" c\n";
1716
                                                        }
3 paul 1717
                                                }
68 Franz 1718
                                        tmp2 += "s\n";
3 paul 1719
                                        }
75 Franz 1720
                                if ((hl->cstyle & 128) && ((ite->Ptext.at(QMIN(d+1, ite->Ptext.count()-1))->yp != hl->yp) && (ite->Ptext.at(QMIN(d+1, ite->Ptext.count()-1))->ch != QChar(13)) ||  ((ite->NextBox != 0) && (d == ite->Ptext.count()-1))))
1721
                                        {
1722
                                        int chs = hl->csize;
80 Franz 1723
                                        double wtr = Cwidth(doc, hl->cfont, chx, chs);
75 Franz 1724
                                        tmp2 += "1 0 0 1 "+FToStr(wtr / tsz)+" 0 cm\n";
1725
                                        chx = "-";
1726
                                        chr = chx[0].unicode();
1727
                                        FPointArray gly = (*doc->AllFonts)[hl->cfont]->GlyphArray[chr].Outlines.copy();
1728
                                        QWMatrix mat;
1729
                                        mat.scale(0.1, 0.1);
1730
                                        gly.map(mat);
1731
                                        bool nPath = true;
1732
                                        FPoint np;
1733
                                        if (gly.size() > 3)
1734
                                                {
1735
                                                for (uint poi=0; poi<gly.size()-3; poi += 4)
1736
                                                        {
1737
                                                        if (gly.point(poi).x() > 900000)
1738
                                                                {
1739
                                                                tmp2 += "h\n";
1740
                                                                nPath = true;
1741
                                                                continue;
1742
                                                                }
1743
                                                        if (nPath)
1744
                                                                {
1745
                                                                np = gly.point(poi);
1746
                                                                tmp2 += FToStr(np.x())+" "+FToStr(-np.y())+" m\n";
1747
                                                                nPath = false;
1748
                                                                }
1749
                                                        np = gly.point(poi+1);
1750
                                                        tmp2 += FToStr(np.x())+" "+FToStr(-np.y())+" ";
1751
                                                        np = gly.point(poi+3);
1752
                                                        tmp2 += FToStr(np.x())+" "+FToStr(-np.y())+" ";
1753
                                                        np = gly.point(poi+2);
1754
                                                        tmp2 += FToStr(np.x())+" "+FToStr(-np.y())+" c\n";
1755
                                                        }
1756
                                                }
1757
                                        tmp2 += "f*\n";
1758
                                        }
68 Franz 1759
                                tmp2 += "Q\n";
1760
                                }
1761
                        }
1762
                else
1763
                        {
1764
                        cc = chx[0].unicode();
1765
                        idx = 0;
1766
                        if (GlyphsIdxOfFont[hl->cfont].contains(cc))
1767
                                idx = GlyphsIdxOfFont[hl->cfont][cc].Code;
1768
                        idx1 = (idx >> 8) & 0xFF;
1769
                        tmp += UsedFontsP[hl->cfont]+"S"+IToStr(idx1)+" "+IToStr(tsz)+" Tf\n";
1770
                        if (hl->cstroke != "None")
1771
                                {
1772
                                tmp += StrokeColor;
1773
                                if ((hl->cstyle & 8) || (hl->cstyle & 16))
1774
                                        tmp2 += StrokeColor;
1775
                                }
1776
                        if (hl->ccolor != "None")
1777
                                {
1778
                                tmp += FillColor;
1779
                                if ((hl->cstyle & 8) || (hl->cstyle & 16))
1780
                                        tmp2 += FillColor;
1781
                                }
1782
                        if (hl->cstyle & 4)
1783
                                {
1784
                                if (hl->ccolor != "None")
1785
                                        tmp += FToStr((*doc->AllFonts)[hl->cfont]->strokeWidth * tsz / 2.0)+" w 2 Tr\n";
3 paul 1786
                                else
68 Franz 1787
                                        tmp += FToStr((*doc->AllFonts)[hl->cfont]->strokeWidth * tsz / 2.0)+" w 1 Tr\n";
1788
                                }
1789
                        else
1790
                                tmp += "0 Tr\n";
1791
                        if (ite->Reverse)
3 paul 1792
                                {
68 Franz 1793
                                int chs = hl->csize;
80 Franz 1794
                                double wtr;
68 Franz 1795
                                if (d < ite->MaxChars-1)
3 paul 1796
                                        {
68 Franz 1797
                                        QString ctx = ite->Ptext.at(d+1)->ch;
1798
                                        if (ctx == QChar(29))
1799
                                                ctx = " ";
1800
                                        wtr = Cwidth(doc, hl->cfont, chx, chs, ctx) * (hl->cscale / 100.0);
3 paul 1801
                                        }
68 Franz 1802
                                else
1803
                                        wtr = Cwidth(doc, hl->cfont, chx, chs) * (hl->cscale / 100.0);
1804
                                tmp += "-1 0 0 1 "+FToStr(hl->xp+wtr)+" "+FToStr(-hl->yp)+" Tm\n";
3 paul 1805
                                }
68 Franz 1806
                        else
1807
                                tmp += "1 0 0 1 "+FToStr(hl->xp)+" "+FToStr(-hl->yp)+" Tm\n";
1808
                        tmp += IToStr(hl->cscale) + " Tz\n";
1809
                        uchar idx2 = idx & 0xFF;
1810
                        tmp += "<"+QString(toHex(idx2))+"> Tj\n";
1811
                        if ((hl->cstyle & 128) && ((ite->Ptext.at(QMIN(d+1, ite->Ptext.count()-1))->yp != hl->yp) && (ite->Ptext.at(QMIN(d+1, ite->Ptext.count()-1))->ch != QChar(13)) ||  ((ite->NextBox != 0) && (d == ite->Ptext.count()-1))))
1812
                                {
1813
                                int chs = hl->csize;
80 Franz 1814
                                double wtr = Cwidth(doc, hl->cfont, chx, chs);
68 Franz 1815
                                tmp += "1 0 0 1 "+FToStr(hl->xp+wtr)+" "+FToStr(-hl->yp)+" Tm\n";
1816
                                chx = "-";
1817
                                cc = chx[0].unicode();
1818
                                idx = 0;
1819
                                if (GlyphsIdxOfFont[hl->cfont].contains(cc))
1820
                                        idx = GlyphsIdxOfFont[hl->cfont][cc].Code;
1821
                                idx2 = idx & 0xFF;
1822
                                tmp += "<"+QString(toHex(idx2))+"> Tj\n";
3 paul 1823
                                }
1824
                        }
68 Franz 1825
                if ((hl->cstyle & 8) && (chx != QChar(13)))
3 paul 1826
                        {
68 Franz 1827
                        uint chr = chx[0].unicode();
1828
                        if ((*doc->AllFonts)[hl->cfont]->CharWidth.contains(chr))
55 Franz 1829
                                {
80 Franz 1830
                                double csi = tsz / 10.0;
1831
                                double wid = Cwidth(doc, hl->cfont, chx, hl->csize) * (hl->cscale / 100.0);
68 Franz 1832
                                QPixmap pgPix(tsz, static_cast<int>(wid));
1833
                                ScPainter *painter = new ScPainter(&pgPix, tsz, static_cast<int>(wid));
1834
                                FPointArray gly = (*doc->AllFonts)[hl->cfont]->GlyphArray[chr].Outlines.copy();
80 Franz 1835
                                double st = (*doc->AllFonts)[hl->cfont]->underline_pos * tsz;
1836
                                double Uwid = QMAX((*doc->AllFonts)[hl->cfont]->strokeWidth * tsz, 1);
68 Franz 1837
                                painter->setLineWidth(Uwid);
1838
                                if (gly.size() < 4)
1839
                                        {
1840
                                        gly.resize(0);
1841
                                        gly.addPoint(FPoint(0,0));
1842
                                        gly.addPoint(FPoint(0,0));
1843
                                        gly.addPoint(FPoint(1,0));
1844
                                        gly.addPoint(FPoint(1,0));
1845
                                        }
1846
                                QWMatrix chma;
1847