Subversion Repositories Scribus

Rev

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