Subversion Repositories Scribus

Rev

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