Subversion Repositories Scribus

Rev

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