Subversion Repositories Scribus

Rev

Rev 25 | Rev 27 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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