Subversion Repositories Scribus

Rev

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