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