Subversion Repositories Scribus

Rev

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