Subversion Repositories Scribus

Rev

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