sys/src/cmd/aux/antiword/postscript.c

   1 /*
   2  * postscript.c
   3  * Copyright (C) 1999-2005 A.J. van Os; Released under GNU GPL
   4  *
   5  * Description:
   6  * Functions to deal with the PostScript format
   7  *
   8  *================================================================
   9  * The function vImagePrologue is based on:
  10  * jpeg2ps - convert JPEG compressed images to PostScript Level 2
  11  * Copyright (C) 1994-99 Thomas Merz (tm@muc.de)
  12  *================================================================
  13  * The credit should go to him, but all the bugs are mine.
  14  */
  15
  16 #include <stdlib.h>
  17 #include <errno.h>
  18 #include <time.h>
  19 #include <string.h>
  20 #include "version.h"
  21 #include "antiword.h"
  22
  23 /* The character set */
  24 static encoding_type    eEncoding = encoding_neutral;
  25 /* The image level */
  26 static image_level_enum eImageLevel = level_default;
  27 /* The output must use landscape orientation */
  28 static BOOL             bUseLandscape = FALSE;
  29 /* The height and width of a PostScript page (in DrawUnits) */
  30 static long             lPageHeight = LONG_MAX;
  31 static long             lPageWidth = LONG_MAX;
  32 /* The height of the footer on the current page (in DrawUnits) */
  33 static long             lFooterHeight = 0;
  34 /* Inside a footer (to prevent an infinite loop when the footer is too big) */
  35 static BOOL             bInFtrSpace = FALSE;
  36 /* Current time for a PS header */
  37 static const char       *szCreationDate = NULL;
  38 /* Current creator for a PS header */
  39 static const char       *szCreator = NULL;
  40 /* Current font information */
  41 static drawfile_fontref tFontRefCurr = (drawfile_fontref)-1;
  42 static USHORT           usFontSizeCurr = 0;
  43 static int              iFontColorCurr = -1;
  44 /* Current vertical position information */
  45 static long             lYtopCurr = -1;
  46 /* PostScript page counter */
  47 static int              iPageCount = 0;
  48 /* Image counter */
  49 static int              iImageCount = 0;
  50 /* Section index */
  51 static int              iSectionIndex = 0;
  52 /* Are we on the first page of the section? */
  53 static BOOL             bFirstInSection = TRUE;
  54
  55 static void             vMoveTo(diagram_type *, long);
  56
  57 static const char *iso_8859_1_data[] = {
  58 "/newcodes      % ISO-8859-1 character encodings",
  59 "[",
  60 "140/ellipsis 141/trademark 142/perthousand 143/bullet",
  61 "144/quoteleft 145/quoteright 146/guilsinglleft 147/guilsinglright",
  62 "148/quotedblleft 149/quotedblright 150/quotedblbase 151/endash 152/emdash",
  63 "153/minus 154/OE 155/oe 156/dagger 157/daggerdbl 158/fi 159/fl",
  64 "160/space 161/exclamdown 162/cent 163/sterling 164/currency",
  65 "165/yen 166/brokenbar 167/section 168/dieresis 169/copyright",
  66 "170/ordfeminine 171/guillemotleft 172/logicalnot 173/hyphen 174/registered",
  67 "175/macron 176/degree 177/plusminus 178/twosuperior 179/threesuperior",
  68 "180/acute 181/mu 182/paragraph 183/periodcentered 184/cedilla",
  69 "185/onesuperior 186/ordmasculine 187/guillemotright 188/onequarter",
  70 "189/onehalf 190/threequarters 191/questiondown 192/Agrave 193/Aacute",
  71 "194/Acircumflex 195/Atilde 196/Adieresis 197/Aring 198/AE 199/Ccedilla",
  72 "200/Egrave 201/Eacute 202/Ecircumflex 203/Edieresis 204/Igrave 205/Iacute",
  73 "206/Icircumflex 207/Idieresis 208/Eth 209/Ntilde 210/Ograve 211/Oacute",
  74 "212/Ocircumflex 213/Otilde 214/Odieresis 215/multiply 216/Oslash",
  75 "217/Ugrave 218/Uacute 219/Ucircumflex 220/Udieresis 221/Yacute 222/Thorn",
  76 "223/germandbls 224/agrave 225/aacute 226/acircumflex 227/atilde",
  77 "228/adieresis 229/aring 230/ae 231/ccedilla 232/egrave 233/eacute",
  78 "234/ecircumflex 235/edieresis 236/igrave 237/iacute 238/icircumflex",
  79 "239/idieresis 240/eth 241/ntilde 242/ograve 243/oacute 244/ocircumflex",
  80 "245/otilde 246/odieresis 247/divide 248/oslash 249/ugrave 250/uacute",
  81 "251/ucircumflex 252/udieresis 253/yacute 254/thorn 255/ydieresis",
  82 "] bind def",
  83 "",
  84 "/reencdict 12 dict def",
  85 "",
  86 };
  87
  88 static const char *iso_8859_2_data[] = {
  89 "/newcodes      % ISO-8859-2 character encodings",
  90 "[",
  91 "160/space 161/Aogonek 162/breve 163/Lslash 164/currency 165/Lcaron",
  92 "166/Sacute 167/section 168/dieresis 169/Scaron 170/Scommaaccent",
  93 "171/Tcaron 172/Zacute 173/hyphen 174/Zcaron 175/Zdotaccent 176/degree",
  94 "177/aogonek 178/ogonek 179/lslash 180/acute 181/lcaron 182/sacute",
  95 "183/caron 184/cedilla 185/scaron 186/scommaaccent 187/tcaron",
  96 "188/zacute 189/hungarumlaut 190/zcaron 191/zdotaccent 192/Racute",
  97 "193/Aacute 194/Acircumflex 195/Abreve 196/Adieresis 197/Lacute",
  98 "198/Cacute 199/Ccedilla 200/Ccaron 201/Eacute 202/Eogonek",
  99 "203/Edieresis 204/Ecaron 205/Iacute 206/Icircumflex 207/Dcaron",
 100 "208/Dcroat 209/Nacute 210/Ncaron 211/Oacute 212/Ocircumflex",
 101 "213/Ohungarumlaut 214/Odieresis 215/multiply 216/Rcaron 217/Uring",
 102 "218/Uacute 219/Uhungarumlaut 220/Udieresis 221/Yacute 222/Tcommaaccent",
 103 "223/germandbls 224/racute 225/aacute 226/acircumflex 227/abreve",
 104 "228/adieresis 229/lacute 230/cacute 231/ccedilla 232/ccaron 233/eacute",
 105 "234/eogonek 235/edieresis 236/ecaron 237/iacute 238/icircumflex",
 106 "239/dcaron 240/dcroat 241/nacute 242/ncaron 243/oacute 244/ocircumflex",
 107 "245/ohungarumlaut 246/odieresis 247/divide 248/rcaron 249/uring",
 108 "250/uacute 251/uhungarumlaut 252/udieresis 253/yacute 254/tcommaaccent",
 109 "255/dotaccent",
 110 "] bind def",
 111 "",
 112 "/reencdict 12 dict def",
 113 "",
 114 };
 115
 116 static const char *iso_8859_5_data[] = {
 117 "/newcodes      % ISO-8859-5 character encodings",
 118 "[",
 119 "160/space     161/afii10023 162/afii10051 163/afii10052 164/afii10053",
 120 "165/afii10054 166/afii10055 167/afii10056 168/afii10057 169/afii10058",
 121 "170/afii10059 171/afii10060 172/afii10061 173/hyphen    174/afii10062",
 122 "175/afii10145 176/afii10017 177/afii10018 178/afii10019 179/afii10020",
 123 "180/afii10021 181/afii10022 182/afii10024 183/afii10025 184/afii10026",
 124 "185/afii10027 186/afii10028 187/afii10029 188/afii10030 189/afii10031",
 125 "190/afii10032 191/afii10033 192/afii10034 193/afii10035 194/afii10036",
 126 "195/afii10037 196/afii10038 197/afii10039 198/afii10040 199/afii10041",
 127 "200/afii10042 201/afii10043 202/afii10044 203/afii10045 204/afii10046",
 128 "205/afii10047 206/afii10048 207/afii10049 208/afii10065 209/afii10066",
 129 "210/afii10067 211/afii10068 212/afii10069 213/afii10070 214/afii10072",
 130 "215/afii10073 216/afii10074 217/afii10075 218/afii10076 219/afii10077",
 131 "220/afii10078 221/afii10079 222/afii10080 223/afii10081 224/afii10082",
 132 "225/afii10083 226/afii10084 227/afii10085 228/afii10086 229/afii10087",
 133 "230/afii10088 231/afii10089 232/afii10090 233/afii10091 234/afii10092",
 134 "235/afii10093 236/afii10094 237/afii10095 238/afii10096 239/afii10097",
 135 "240/afii61352 241/afii10071 242/afii10099 243/afii10100 244/afii10101",
 136 "245/afii10102 246/afii10103 247/afii10104 248/afii10105 249/afii10106",
 137 "250/afii10107 251/afii10108 252/afii10109 253/section   254/afii10110",
 138 "255/afii10193",
 139 "] bind def",
 140 "",
 141 "/reencdict 12 dict def",
 142 "",
 143 };
 144
 145 static const char *iso_8859_x_func[] = {
 146 "% change fonts using ISO-8859-x characters",
 147 "/ChgFnt                % size psname natname => font",
 148 "{",
 149 "       dup FontDirectory exch known            % is re-encoded name known?",
 150 "       { exch pop }                            % yes, get rid of long name",
 151 "       { dup 3 1 roll ReEncode } ifelse        % no, re-encode it",
 152 "       findfont exch scalefont setfont",
 153 "} bind def",
 154 "",
 155 "/ReEncode",
 156 "{",
 157 "reencdict begin",
 158 "       /newname exch def",
 159 "       /basename exch def",
 160 "       /basedict basename findfont def",
 161 "       /newfont basedict maxlength dict def",
 162 "       basedict",
 163 "       { exch dup /FID ne",
 164 "               { dup /Encoding eq",
 165 "                       { exch dup length array copy newfont 3 1 roll put }",
 166 "                       { exch newfont 3 1 roll put } ifelse",
 167 "               }",
 168 "               { pop pop } ifelse",
 169 "       } forall",
 170 "       newfont /FontName newname put",
 171 "       newcodes aload pop newcodes length 2 idiv",
 172 "       { newfont /Encoding get 3 1 roll put } repeat",
 173 "       newname newfont definefont pop",
 174 "end",
 175 "} bind def",
 176 "",
 177 };
 178
 179 static const char *misc_func[] = {
 180 "% draw a line and show the string",
 181 "/LineShow      % string linewidth movement",
 182 "{",
 183 "       gsave",
 184 "               0 exch rmoveto",
 185 "               setlinewidth",
 186 "               dup",
 187 "               stringwidth pop",
 188 "               0 rlineto stroke",
 189 "       grestore",
 190 "       show",
 191 "} bind def",
 192 "",
 193 "% begin an EPS file (level 2 and up)",
 194 "/BeginEPSF",
 195 "{",
 196 "       /b4_Inc_state save def",
 197 "       /dict_count countdictstack def",
 198 "       /op_count count 1 sub def",
 199 "       userdict begin",
 200 "               /showpage { } def",
 201 "               0 setgray 0 setlinecap",
 202 "               1 setlinewidth 0 setlinejoin",
 203 "               10 setmiterlimit [ ] 0 setdash newpath",
 204 "               false setstrokeadjust false setoverprint",
 205 "} bind def",
 206 "",
 207 "% end an EPS file",
 208 "/EndEPSF {",
 209 "       count op_count sub { pop } repeat",
 210 "       countdictstack dict_count sub { end } repeat",
 211 "       b4_Inc_state restore",
 212 "} bind def",
 213 "",
 214 };
 215
 216
 217 /*
 218  * vAddPageSetup - add the page setup
 219  */
 220 static void
 221 vAddPageSetup(FILE *pOutFile)
 222 {
 223         if (bUseLandscape) {
 224                 fprintf(pOutFile, "%%%%BeginPageSetup\n");
 225                 fprintf(pOutFile, "90 rotate\n");
 226                 fprintf(pOutFile, "0.00 %.2f translate\n",
 227                                         -dDrawUnits2Points(lPageHeight));
 228                 fprintf(pOutFile, "%%%%EndPageSetup\n");
 229         }
 230 } /* end of vAddPageSetup */
 231
 232 /*
 233  * vAddHdrFtr - add a header or footer
 234  */
 235 static void
 236 vAddHdrFtr(diagram_type *pDiag, const hdrftr_block_type *pHdrFtrInfo)
 237 {
 238         output_type     *pStart, *pPrev, *pNext;
 239
 240         fail(pDiag == NULL);
 241         fail(pHdrFtrInfo == NULL);
 242
 243         vStartOfParagraphPS(pDiag, 0);
 244         pStart = pHdrFtrInfo->pText;
 245         while (pStart != NULL) {
 246                 pNext = pStart;
 247                 while (pNext != NULL &&
 248                        (pNext->tNextFree != 1 ||
 249                         (pNext->szStorage[0] != PAR_END &&
 250                          pNext->szStorage[0] != HARD_RETURN))) {
 251                         pNext = pNext->pNext;
 252                 }
 253                 if (pNext == NULL) {
 254                         if (bOutputContainsText(pStart)) {
 255                                 vAlign2Window(pDiag, pStart,
 256                                         lChar2MilliPoints(DEFAULT_SCREEN_WIDTH),
 257                                         ALIGNMENT_LEFT);
 258                         } else {
 259                                 vMove2NextLinePS(pDiag, pStart->usFontSize);
 260                         }
 261                         break;
 262                 }
 263                 fail(pNext->tNextFree != 1);
 264                 fail(pNext->szStorage[0] != PAR_END &&
 265                         pNext->szStorage[0] != HARD_RETURN);
 266
 267                 if (pStart != pNext) {
 268                         /* There is something to print */
 269                         pPrev = pNext->pPrev;
 270                         fail(pPrev->pNext != pNext);
 271                         /* Cut the chain */
 272                         pPrev->pNext = NULL;
 273                         if (bOutputContainsText(pStart)) {
 274                                 /* Print it */
 275                                 vAlign2Window(pDiag, pStart,
 276                                         lChar2MilliPoints(DEFAULT_SCREEN_WIDTH),
 277                                         ALIGNMENT_LEFT);
 278                         } else {
 279                                 /* Just an empty line */
 280                                 vMove2NextLinePS(pDiag, pStart->usFontSize);
 281                         }
 282                         /* Repair the chain */
 283                         pPrev->pNext = pNext;
 284                 }
 285                 if (pNext->szStorage[0] == PAR_END) {
 286                         vEndOfParagraphPS(pDiag, pNext->usFontSize,
 287                                         (long)pNext->usFontSize * 200);
 288                 }
 289                 pStart = pNext->pNext;
 290         }
 291 } /* end of vAddHdrFtr */
 292
 293 /*
 294  * vAddHeader - add a page header
 295  */
 296 static void
 297 vAddHeader(diagram_type *pDiag)
 298 {
 299         const hdrftr_block_type *pHdrInfo;
 300         const hdrftr_block_type *pFtrInfo;
 301
 302         fail(pDiag == NULL);
 303
 304         NO_DBG_MSG("vAddHeader");
 305
 306         pHdrInfo = pGetHdrFtrInfo(iSectionIndex, TRUE,
 307                                         odd(iPageCount), bFirstInSection);
 308         pFtrInfo = pGetHdrFtrInfo(iSectionIndex, FALSE,
 309                                         odd(iPageCount), bFirstInSection);
 310         /* Set the height of the footer of this page */
 311         lFooterHeight = pFtrInfo == NULL ? 0 : pFtrInfo->lHeight;
 312         fail(lFooterHeight < 0);
 313
 314         if (pHdrInfo == NULL ||
 315             pHdrInfo->pText == NULL ||
 316             pHdrInfo->lHeight <= 0) {
 317                 fail(pHdrInfo != NULL && pHdrInfo->lHeight < 0);
 318                 fail(pHdrInfo != NULL &&
 319                         pHdrInfo->pText != NULL &&
 320                         pHdrInfo->lHeight == 0);
 321                 return;
 322         }
 323
 324         vAddHdrFtr(pDiag, pHdrInfo);
 325
 326         DBG_DEC_C(pHdrInfo->lHeight !=
 327                 lPageHeight - PS_TOP_MARGIN - pDiag->lYtop,
 328                 pHdrInfo->lHeight);
 329         DBG_DEC_C(pHdrInfo->lHeight !=
 330                 lPageHeight - PS_TOP_MARGIN - pDiag->lYtop,
 331                 lPageHeight - PS_TOP_MARGIN - pDiag->lYtop);
 332
 333 #if 0 /* defined(DEBUG) */
 334         fprintf(pDiag->pOutFile,
 335         "(HEADER: FileOffset 0x%04lx-0x%04lx; Height %ld-%ld) show\n",
 336                 ulCharPos2FileOffset(pHdrInfo->ulCharPosStart),
 337                 ulCharPos2FileOffset(pHdrInfo->ulCharPosNext),
 338                 pHdrInfo->lHeight,
 339                 lPageHeight - PS_TOP_MARGIN - pDiag->lYtop);
 340 #endif
 341 } /* end of vAddHeader */
 342
 343 /*
 344  * vAddFooter - add a page footer
 345  */
 346 static void
 347 vAddFooter(diagram_type *pDiag)
 348 {
 349         const hdrftr_block_type *pFtrInfo;
 350
 351         fail(pDiag == NULL);
 352
 353         NO_DBG_MSG("vAddFooter");
 354         pFtrInfo = pGetHdrFtrInfo(iSectionIndex, FALSE,
 355                                         odd(iPageCount), bFirstInSection);
 356         bFirstInSection = FALSE;
 357         if (pFtrInfo == NULL ||
 358             pFtrInfo->pText == NULL ||
 359             pFtrInfo->lHeight <= 0) {
 360                 fail(pFtrInfo != NULL && pFtrInfo->lHeight < 0);
 361                 fail(pFtrInfo != NULL &&
 362                         pFtrInfo->pText != NULL &&
 363                         pFtrInfo->lHeight == 0);
 364                 return;
 365         }
 366
 367         bInFtrSpace = TRUE;
 368
 369         DBG_DEC_C(pFtrInfo->lHeight != lFooterHeight, pFtrInfo->lHeight);
 370         DBG_DEC_C(pFtrInfo->lHeight != lFooterHeight, lFooterHeight);
 371         DBG_DEC_C(pDiag->lYtop < lFooterHeight + PS_BOTTOM_MARGIN,
 372                         pDiag->lYtop);
 373         DBG_DEC_C(pDiag->lYtop < lFooterHeight + PS_BOTTOM_MARGIN,
 374                         lFooterHeight + PS_BOTTOM_MARGIN);
 375
 376         if (pDiag->lYtop > lFooterHeight + PS_BOTTOM_MARGIN) {
 377                 /* Move down to the start of the footer */
 378                 pDiag->lYtop = lFooterHeight + PS_BOTTOM_MARGIN;
 379                 vMoveTo(pDiag, 0);
 380         } else if (pDiag->lYtop < lFooterHeight + PS_BOTTOM_MARGIN / 2) {
 381                 DBG_FIXME();
 382                 /*
 383                  * Move up to the start of the footer, to prevent moving
 384                  * of the bottom edge of the paper
 385                  */
 386                 pDiag->lYtop = lFooterHeight + PS_BOTTOM_MARGIN;
 387                 vMoveTo(pDiag, 0);
 388         }
 389
 390         DBG_FLT_C(pDiag->lYtop < lFooterHeight + PS_BOTTOM_MARGIN,
 391         dDrawUnits2Points(lFooterHeight + PS_BOTTOM_MARGIN - pDiag->lYtop));
 392
 393 #if 0 /* defined(DEBUG) */
 394         fprintf(pDiag->pOutFile,
 395         "(FOOTER: FileOffset 0x%04lx-0x%04lx; Bottom %ld-%ld) show\n",
 396                 ulCharPos2FileOffset(pFtrInfo->ulCharPosStart),
 397                 ulCharPos2FileOffset(pFtrInfo->ulCharPosNext),
 398                 pDiag->lYtop,
 399                 pFtrInfo->lHeight + PS_BOTTOM_MARGIN);
 400 #endif
 401         vAddHdrFtr(pDiag, pFtrInfo);
 402         bInFtrSpace = FALSE;
 403 } /* end of vAddFooter */
 404
 405 /*
 406  * vMove2NextPage - move to the start of the next page
 407  */
 408 static void
 409 vMove2NextPage(diagram_type *pDiag, BOOL bNewSection)
 410 {
 411         fail(pDiag == NULL);
 412
 413         vAddFooter(pDiag);
 414         fprintf(pDiag->pOutFile, "showpage\n");
 415         iPageCount++;
 416         fprintf(pDiag->pOutFile, "%%%%Page: %d %d\n", iPageCount, iPageCount);
 417         if (bNewSection) {
 418                 iSectionIndex++;
 419                 bFirstInSection = TRUE;
 420         }
 421         vAddPageSetup(pDiag->pOutFile);
 422         pDiag->lYtop = lPageHeight - PS_TOP_MARGIN;
 423         lYtopCurr = -1;
 424         vAddHeader(pDiag);
 425 } /* end of vMove2NextPage */
 426
 427 /*
 428  * vMoveTo - move to the specified X,Y coordinates
 429  *
 430  * Move the current position of the specified diagram to its X,Y coordinates,
 431  * start on a new page if needed
 432  */
 433 static void
 434 vMoveTo(diagram_type *pDiag, long lLastVerticalMovement)
 435 {
 436         fail(pDiag == NULL);
 437         fail(pDiag->pOutFile == NULL);
 438
 439         if (pDiag->lYtop <= lFooterHeight + PS_BOTTOM_MARGIN && !bInFtrSpace) {
 440                 vMove2NextPage(pDiag, FALSE);
 441                 /* Repeat the last vertical movement on the new page */
 442                 pDiag->lYtop -= lLastVerticalMovement;
 443         }
 444
 445         fail(pDiag->lYtop < lFooterHeight + PS_BOTTOM_MARGIN && !bInFtrSpace);
 446         DBG_DEC_C(pDiag->lYtop < PS_BOTTOM_MARGIN, pDiag->lYtop);
 447         fail(pDiag->lYtop < PS_BOTTOM_MARGIN / 3);
 448
 449         if (pDiag->lYtop != lYtopCurr) {
 450                 fprintf(pDiag->pOutFile, "%.2f %.2f moveto\n",
 451                         dDrawUnits2Points(pDiag->lXleft + PS_LEFT_MARGIN),
 452                         dDrawUnits2Points(pDiag->lYtop));
 453                 lYtopCurr = pDiag->lYtop;
 454         }
 455 } /* end of vMoveTo */
 456
 457 /*
 458  * vProloguePS - set options and perform the PostScript initialization
 459  */
 460 void
 461 vProloguePS(diagram_type *pDiag,
 462         const char *szTask, const char *szFilename,
 463         const options_type *pOptions)
 464 {
 465         FILE    *pOutFile;
 466         const char      *szTmp;
 467         time_t  tTime;
 468
 469         fail(pDiag == NULL);
 470         fail(pDiag->pOutFile == NULL);
 471         fail(szTask == NULL || szTask[0] == '\0');
 472         fail(pOptions == NULL);
 473
 474         pOutFile = pDiag->pOutFile;
 475
 476         bUseLandscape = pOptions->bUseLandscape;
 477         eEncoding = pOptions->eEncoding;
 478         eImageLevel = pOptions->eImageLevel;
 479
 480         if (pOptions->iPageHeight == INT_MAX) {
 481                 lPageHeight = LONG_MAX;
 482         } else {
 483                 lPageHeight = lPoints2DrawUnits(pOptions->iPageHeight);
 484         }
 485         DBG_DEC(lPageHeight);
 486         if (pOptions->iPageWidth == INT_MAX) {
 487                 lPageWidth = LONG_MAX;
 488         } else {
 489                 lPageWidth = lPoints2DrawUnits(pOptions->iPageWidth);
 490         }
 491         DBG_DEC(lPageWidth);
 492         lFooterHeight = 0;
 493         bInFtrSpace = FALSE;
 494
 495         tFontRefCurr = (drawfile_fontref)-1;
 496         usFontSizeCurr = 0;
 497         iFontColorCurr = -1;
 498         lYtopCurr = -1;
 499         iPageCount = 0;
 500         iImageCount = 0;
 501         iSectionIndex = 0;
 502         bFirstInSection = TRUE;
 503         pDiag->lXleft = 0;
 504         pDiag->lYtop = lPageHeight - PS_TOP_MARGIN;
 505
 506         szCreator = szTask;
 507
 508         fprintf(pOutFile, "%%!PS-Adobe-2.0\n");
 509         fprintf(pOutFile, "%%%%Title: %s\n", szBasename(szFilename));
 510         fprintf(pOutFile, "%%%%Creator: %s %s\n", szCreator, VERSIONSTRING);
 511         szTmp = getenv("LOGNAME");
 512         if (szTmp == NULL || szTmp[0] == '\0') {
 513                 szTmp = getenv("USER");
 514                 if (szTmp == NULL || szTmp[0] == '\0') {
 515                         szTmp = "unknown";
 516                 }
 517         }
 518         fprintf(pOutFile, "%%%%For: %.50s\n", szTmp);
 519         errno = 0;
 520         tTime = time(NULL);
 521         if (tTime == (time_t)-1 && errno != 0) {
 522                 szCreationDate = NULL;
 523         } else {
 524                 szCreationDate = ctime(&tTime);
 525         }
 526         if (szCreationDate == NULL || szCreationDate[0] == '\0') {
 527                 szCreationDate = "unknown\n";
 528         }
 529         fprintf(pOutFile, "%%%%CreationDate: %s", szCreationDate);
 530         if (bUseLandscape) {
 531                 fprintf(pOutFile, "%%%%Orientation: Landscape\n");
 532                 fprintf(pOutFile, "%%%%BoundingBox: 0 0 %.0f %.0f\n",
 533                                 dDrawUnits2Points(lPageHeight),
 534                                 dDrawUnits2Points(lPageWidth));
 535         } else {
 536                 fprintf(pOutFile, "%%%%Orientation: Portrait\n");
 537                 fprintf(pOutFile, "%%%%BoundingBox: 0 0 %.0f %.0f\n",
 538                                 dDrawUnits2Points(lPageWidth),
 539                                 dDrawUnits2Points(lPageHeight));
 540         }
 541 } /* end of vProloguePS */
 542
 543 /*
 544  * vEpiloguePS - clean up after everything is done
 545  */
 546 void
 547 vEpiloguePS(diagram_type *pDiag)
 548 {
 549         fail(pDiag == NULL);
 550         fail(pDiag->pOutFile == NULL);
 551
 552         if (pDiag->lYtop < lPageHeight - PS_TOP_MARGIN) {
 553                 vAddFooter(pDiag);
 554                 fprintf(pDiag->pOutFile, "showpage\n");
 555         }
 556         fprintf(pDiag->pOutFile, "%%%%Trailer\n");
 557         fprintf(pDiag->pOutFile, "%%%%Pages: %d\n", iPageCount);
 558         fprintf(pDiag->pOutFile, "%%%%EOF\n");
 559         szCreationDate = NULL;
 560         szCreator = NULL;
 561 } /* end of vEpiloguePS */
 562
 563 /*
 564  * vPrintPalette - print a postscript palette
 565  */
 566 static void
 567 vPrintPalette(FILE *pOutFile, const imagedata_type *pImg)
 568 {
 569         int     iIndex;
 570
 571         fail(pOutFile == NULL);
 572         fail(pImg == NULL);
 573         fail(pImg->iColorsUsed < 2);
 574         fail(pImg->iColorsUsed > 256);
 575
 576         fprintf(pOutFile, "[ /Indexed\n");
 577         fprintf(pOutFile, "\t/Device%s %d\n",
 578                 pImg->bColorImage ? "RGB" : "Gray", pImg->iColorsUsed - 1);
 579         fprintf(pOutFile, "<");
 580         for (iIndex = 0; iIndex < pImg->iColorsUsed; iIndex++) {
 581                 fprintf(pOutFile, "%02x",
 582                                 (unsigned int)pImg->aucPalette[iIndex][0]);
 583                 if (pImg->bColorImage) {
 584                         fprintf(pOutFile, "%02x%02x",
 585                                 (unsigned int)pImg->aucPalette[iIndex][1],
 586                                 (unsigned int)pImg->aucPalette[iIndex][2]);
 587                 }
 588                 if (iIndex % 8 == 7) {
 589                         fprintf(pOutFile, "\n");
 590                 } else {
 591                         fprintf(pOutFile, " ");
 592                 }
 593         }
 594         fprintf(pOutFile, ">\n");
 595         fprintf(pOutFile, "] setcolorspace\n");
 596 } /* end of vPrintPalette */
 597
 598 /*
 599  * vImageProloguePS - perform the Encapsulated PostScript initialization
 600  */
 601 void
 602 vImageProloguePS(diagram_type *pDiag, const imagedata_type *pImg)
 603 {
 604         FILE    *pOutFile;
 605
 606         fail(pDiag == NULL);
 607         fail(pDiag->pOutFile == NULL);
 608         fail(pImg == NULL);
 609
 610         if (pImg->iVerSizeScaled <= 0 || pImg->iHorSizeScaled <= 0) {
 611                 return;
 612         }
 613
 614         fail(szCreationDate == NULL);
 615         fail(szCreator == NULL);
 616         fail(eImageLevel == level_no_images);
 617
 618         iImageCount++;
 619
 620         DBG_DEC_C(pDiag->lXleft != 0, pDiag->lXleft);
 621
 622         pDiag->lYtop -= lPoints2DrawUnits(pImg->iVerSizeScaled);
 623         vMoveTo(pDiag, lPoints2DrawUnits(pImg->iVerSizeScaled));
 624
 625         pOutFile = pDiag->pOutFile;
 626
 627         fprintf(pOutFile, "BeginEPSF\n");
 628         fprintf(pOutFile, "%%%%BeginDocument: image%03d.eps\n", iImageCount);
 629         fprintf(pOutFile, "%%!PS-Adobe-2.0 EPSF-2.0\n");
 630         fprintf(pOutFile, "%%%%Creator: %s %s\n", szCreator, VERSIONSTRING);
 631         fprintf(pOutFile, "%%%%Title: Image %03d\n", iImageCount);
 632         fprintf(pOutFile, "%%%%CreationDate: %s", szCreationDate);
 633         fprintf(pOutFile, "%%%%BoundingBox: 0 0 %d %d\n",
 634                                 pImg->iHorSizeScaled, pImg->iVerSizeScaled);
 635         fprintf(pOutFile, "%%%%DocumentData: Clean7Bit\n");
 636         fprintf(pOutFile, "%%%%LanguageLevel: 2\n");
 637         fprintf(pOutFile, "%%%%EndComments\n");
 638         fprintf(pOutFile, "%%%%BeginProlog\n");
 639         fprintf(pOutFile, "%%%%EndProlog\n");
 640         fprintf(pOutFile, "%%%%Page: 1 1\n");
 641
 642         fprintf(pOutFile, "save\n");
 643
 644         switch (pImg->eImageType) {
 645         case imagetype_is_jpeg:
 646                 fprintf(pOutFile, "/Data1 currentfile ");
 647                 fprintf(pOutFile, "/ASCII85Decode filter def\n");
 648                 fprintf(pOutFile, "/Data Data1 << ");
 649                 fprintf(pOutFile, ">> /DCTDecode filter def\n");
 650                 switch (pImg->iComponents) {
 651                 case 1:
 652                         fprintf(pOutFile, "/DeviceGray setcolorspace\n");
 653                         break;
 654                 case 3:
 655                         fprintf(pOutFile, "/DeviceRGB setcolorspace\n");
 656                         break;
 657                 case 4:
 658                         fprintf(pOutFile, "/DeviceCMYK setcolorspace\n");
 659                         break;
 660                 default:
 661                         DBG_DEC(pImg->iComponents);
 662                         break;
 663                 }
 664                 break;
 665         case imagetype_is_png:
 666                 if (eImageLevel == level_gs_special) {
 667                         fprintf(pOutFile,
 668                         "/Data2 currentfile /ASCII85Decode filter def\n");
 669                         fprintf(pOutFile,
 670                         "/Data1 Data2 << >> /FlateDecode filter def\n");
 671                         fprintf(pOutFile, "/Data Data1 <<\n");
 672                         fprintf(pOutFile, "\t/Colors %d\n", pImg->iComponents);
 673                         fprintf(pOutFile, "\t/BitsPerComponent %u\n",
 674                                                 pImg->uiBitsPerComponent);
 675                         fprintf(pOutFile, "\t/Columns %d\n", pImg->iWidth);
 676                         fprintf(pOutFile,
 677                                 ">> /PNGPredictorDecode filter def\n");
 678                 } else {
 679                         fprintf(pOutFile,
 680                         "/Data1 currentfile /ASCII85Decode filter def\n");
 681                         fprintf(pOutFile,
 682                         "/Data Data1 << >> /FlateDecode filter def\n");
 683                 }
 684                 if (pImg->iComponents == 3 || pImg->iComponents == 4) {
 685                         fprintf(pOutFile, "/DeviceRGB setcolorspace\n");
 686                 } else if (pImg->iColorsUsed > 0) {
 687                         vPrintPalette(pOutFile, pImg);
 688                 } else {
 689                         fprintf(pOutFile, "/DeviceGray setcolorspace\n");
 690                 }
 691                 break;
 692         case imagetype_is_dib:
 693                 fprintf(pOutFile, "/Data currentfile ");
 694                 fprintf(pOutFile, "/ASCII85Decode filter def\n");
 695                 if (pImg->uiBitsPerComponent <= 8) {
 696                         vPrintPalette(pOutFile, pImg);
 697                 } else {
 698                         fprintf(pOutFile, "/DeviceRGB setcolorspace\n");
 699                 }
 700                 break;
 701         default:
 702                 fprintf(pOutFile, "/Data currentfile ");
 703                 fprintf(pOutFile, "/ASCIIHexDecode filter def\n");
 704                 fprintf(pOutFile, "/Device%s setcolorspace\n",
 705                         pImg->bColorImage ? "RGB" : "Gray");
 706                 break;
 707         }
 708
 709         /* Translate to lower left corner of image */
 710         fprintf(pOutFile, "%.2f %.2f translate\n",
 711                         dDrawUnits2Points(pDiag->lXleft + PS_LEFT_MARGIN),
 712                         dDrawUnits2Points(pDiag->lYtop));
 713
 714         fprintf(pOutFile, "%d %d scale\n",
 715                                 pImg->iHorSizeScaled, pImg->iVerSizeScaled);
 716
 717         fprintf(pOutFile, "{ <<\n");
 718         fprintf(pOutFile, "\t/ImageType 1\n");
 719         fprintf(pOutFile, "\t/Width %d\n", pImg->iWidth);
 720         fprintf(pOutFile, "\t/Height %d\n", pImg->iHeight);
 721         if (pImg->eImageType == imagetype_is_dib) {
 722                 /* Scanning from left to right and bottom to top */
 723                 fprintf(pOutFile, "\t/ImageMatrix [ %d 0 0 %d 0 0 ]\n",
 724                         pImg->iWidth, pImg->iHeight);
 725         } else {
 726                 /* Scanning from left to right and top to bottom */
 727                 fprintf(pOutFile, "\t/ImageMatrix [ %d 0 0 %d 0 %d ]\n",
 728                         pImg->iWidth, -pImg->iHeight, pImg->iHeight);
 729         }
 730         fprintf(pOutFile, "\t/DataSource Data\n");
 731
 732         switch (pImg->eImageType) {
 733         case imagetype_is_jpeg:
 734                 fprintf(pOutFile, "\t/BitsPerComponent 8\n");
 735                 switch (pImg->iComponents) {
 736                 case 1:
 737                         fprintf(pOutFile, "\t/Decode [0 1]\n");
 738                         break;
 739                 case 3:
 740                         fprintf(pOutFile, "\t/Decode [0 1 0 1 0 1]\n");
 741                         break;
 742                 case 4:
 743                         if (pImg->bAdobe) {
 744                                 /*
 745                                  * Adobe-conforming CMYK file
 746                                  * applying workaround for color inversion
 747                                  */
 748                                 fprintf(pOutFile,
 749                                         "\t/Decode [1 0 1 0 1 0 1 0]\n");
 750                         } else {
 751                                 fprintf(pOutFile,
 752                                         "\t/Decode [0 1 0 1 0 1 0 1]\n");
 753                         }
 754                         break;
 755                 default:
 756                         DBG_DEC(pImg->iComponents);
 757                         break;
 758                 }
 759                 break;
 760         case imagetype_is_png:
 761                 if (pImg->iComponents == 3) {
 762                         fprintf(pOutFile, "\t/BitsPerComponent 8\n");
 763                         fprintf(pOutFile, "\t/Decode [0 1 0 1 0 1]\n");
 764                 } else if (pImg->iColorsUsed > 0) {
 765                         fail(pImg->uiBitsPerComponent > 8);
 766                         fprintf(pOutFile, "\t/BitsPerComponent %u\n",
 767                                         pImg->uiBitsPerComponent);
 768                         fprintf(pOutFile, "\t/Decode [0 %d]\n",
 769                                         (1 << pImg->uiBitsPerComponent) - 1);
 770                 } else {
 771                         fprintf(pOutFile, "\t/BitsPerComponent 8\n");
 772                         fprintf(pOutFile, "\t/Decode [0 1]\n");
 773                 }
 774                 break;
 775         case imagetype_is_dib:
 776                 fprintf(pOutFile, "\t/BitsPerComponent 8\n");
 777                 if (pImg->uiBitsPerComponent <= 8) {
 778                         fprintf(pOutFile, "\t/Decode [0 255]\n");
 779                 } else {
 780                         fprintf(pOutFile, "\t/Decode [0 1 0 1 0 1]\n");
 781                 }
 782                 break;
 783         default:
 784                 fprintf(pOutFile, "\t/BitsPerComponent 8\n");
 785                 if (pImg->bColorImage) {
 786                         fprintf(pOutFile, "\t/Decode [0 1 0 1 0 1]\n");
 787                 } else {
 788                         fprintf(pOutFile, "\t/Decode [0 1]\n");
 789                 }
 790                 break;
 791         }
 792
 793         fprintf(pOutFile, "  >> image\n");
 794         fprintf(pOutFile, "  Data closefile\n");
 795         fprintf(pOutFile, "  showpage\n");
 796         fprintf(pOutFile, "  restore\n");
 797         fprintf(pOutFile, "} exec\n");
 798 } /* end of vImageProloguePS */
 799
 800 /*
 801  * vImageEpiloguePS - clean up after Encapsulated PostScript
 802  */
 803 void
 804 vImageEpiloguePS(diagram_type *pDiag)
 805 {
 806         FILE    *pOutFile;
 807
 808         fail(pDiag == NULL);
 809         fail(pDiag->pOutFile == NULL);
 810
 811         pOutFile = pDiag->pOutFile;
 812
 813         fprintf(pOutFile, "%%%%EOF\n");
 814         fprintf(pOutFile, "%%%%EndDocument\n");
 815         fprintf(pOutFile, "EndEPSF\n");
 816
 817         pDiag->lXleft = 0;
 818 } /* end of vImageEpiloguePS */
 819
 820 /*
 821  * bAddDummyImagePS - add a dummy image
 822  *
 823  * return TRUE when successful, otherwise FALSE
 824  */
 825 BOOL
 826 bAddDummyImagePS(diagram_type *pDiag, const imagedata_type *pImg)
 827 {
 828         FILE    *pOutFile;
 829
 830         fail(pDiag == NULL);
 831         fail(pDiag->pOutFile == NULL);
 832         fail(pImg == NULL);
 833
 834         if (pImg->iVerSizeScaled <= 0 || pImg->iHorSizeScaled <= 0) {
 835                 return FALSE;
 836         }
 837
 838         iImageCount++;
 839
 840         DBG_DEC_C(pDiag->lXleft != 0, pDiag->lXleft);
 841
 842         pDiag->lYtop -= lPoints2DrawUnits(pImg->iVerSizeScaled);
 843         vMoveTo(pDiag, lPoints2DrawUnits(pImg->iVerSizeScaled));
 844
 845         pOutFile = pDiag->pOutFile;
 846
 847         fprintf(pOutFile, "gsave %% Image %03d\n", iImageCount);
 848         fprintf(pOutFile, "\tnewpath\n");
 849         fprintf(pOutFile, "\t%.2f %.2f moveto\n",
 850                         dDrawUnits2Points(pDiag->lXleft + PS_LEFT_MARGIN),
 851                         dDrawUnits2Points(pDiag->lYtop));
 852         fprintf(pOutFile, "\t1.0 setlinewidth\n");
 853         fprintf(pOutFile, "\t0.3 setgray\n");
 854         fprintf(pOutFile, "\t0 %d rlineto\n", pImg->iVerSizeScaled);
 855         fprintf(pOutFile, "\t%d 0 rlineto\n", pImg->iHorSizeScaled);
 856         fprintf(pOutFile, "\t0 %d rlineto\n", -pImg->iVerSizeScaled);
 857         fprintf(pOutFile, "\tclosepath\n");
 858         fprintf(pOutFile, "\tstroke\n");
 859         fprintf(pOutFile, "grestore\n");
 860
 861         pDiag->lXleft = 0;
 862
 863         return TRUE;
 864 } /* end of bAddDummyImagePS */
 865
 866 /*
 867  * vAddFontsPS - add the list of fonts and complete the prologue
 868  */
 869 void
 870 vAddFontsPS(diagram_type *pDiag)
 871 {
 872         FILE    *pOutFile;
 873         const font_table_type *pTmp, *pTmp2;
 874         size_t  tIndex;
 875         int     iLineLen, iOurFontnameLen;
 876         BOOL    bFound;
 877
 878         fail(pDiag == NULL);
 879         fail(pDiag->pOutFile == NULL);
 880
 881         pOutFile = pDiag->pOutFile;
 882         iLineLen = fprintf(pOutFile, "%%%%DocumentFonts:");
 883
 884         if (tGetFontTableLength() == 0) {
 885                 iLineLen += fprintf(pOutFile, " Courier");
 886         } else {
 887                 pTmp = NULL;
 888                 while ((pTmp = pGetNextFontTableRecord(pTmp)) != NULL) {
 889                         /* Print the document fonts */
 890                         bFound = FALSE;
 891                         pTmp2 = NULL;
 892                         while ((pTmp2 = pGetNextFontTableRecord(pTmp2))
 893                                         != NULL && pTmp2 < pTmp) {
 894                                 bFound = STREQ(pTmp2->szOurFontname,
 895                                                 pTmp->szOurFontname);
 896                                 if (bFound) {
 897                                         break;
 898                                 }
 899                         }
 900                         iOurFontnameLen = (int)strlen(pTmp->szOurFontname);
 901                         if (bFound || iOurFontnameLen <= 0) {
 902                                 continue;
 903                         }
 904                         if (iLineLen + iOurFontnameLen > 76) {
 905                                 fprintf(pOutFile, "\n%%%%+");
 906                                 iLineLen = 3;
 907                         }
 908                         iLineLen += fprintf(pOutFile,
 909                                         " %s", pTmp->szOurFontname);
 910                 }
 911         }
 912         fprintf(pOutFile, "\n");
 913         fprintf(pOutFile, "%%%%Pages: (atend)\n");
 914         fprintf(pOutFile, "%%%%EndComments\n");
 915         fprintf(pOutFile, "%%%%BeginProlog\n");
 916
 917         switch (eEncoding) {
 918         case encoding_latin_1:
 919                 for (tIndex = 0;
 920                      tIndex < elementsof(iso_8859_1_data);
 921                      tIndex++) {
 922                         fprintf(pOutFile, "%s\n", iso_8859_1_data[tIndex]);
 923                 }
 924                 fprintf(pOutFile, "\n");
 925                 for (tIndex = 0;
 926                      tIndex < elementsof(iso_8859_x_func);
 927                      tIndex++) {
 928                         fprintf(pOutFile, "%s\n", iso_8859_x_func[tIndex]);
 929                 }
 930                 break;
 931         case encoding_latin_2:
 932                 for (tIndex = 0;
 933                      tIndex < elementsof(iso_8859_2_data);
 934                      tIndex++) {
 935                         fprintf(pOutFile, "%s\n", iso_8859_2_data[tIndex]);
 936                 }
 937                 fprintf(pOutFile, "\n");
 938                 for (tIndex = 0;
 939                      tIndex < elementsof(iso_8859_x_func);
 940                      tIndex++) {
 941                         fprintf(pOutFile, "%s\n", iso_8859_x_func[tIndex]);
 942                 }
 943                 break;
 944         case encoding_cyrillic:
 945                 for (tIndex = 0;
 946                      tIndex < elementsof(iso_8859_5_data);
 947                      tIndex++) {
 948                         fprintf(pOutFile, "%s\n", iso_8859_5_data[tIndex]);
 949                 }
 950                 fprintf(pOutFile, "\n");
 951                 for (tIndex = 0;
 952                      tIndex < elementsof(iso_8859_x_func);
 953                      tIndex++) {
 954                         fprintf(pOutFile, "%s\n", iso_8859_x_func[tIndex]);
 955                 }
 956                 break;
 957         case encoding_utf_8:
 958                 werr(1,
 959                 "The combination PostScript and UTF-8 is not supported");
 960                 break;
 961         default:
 962                 DBG_DEC(eEncoding);
 963                 break;
 964         }
 965
 966         /* The rest of the functions */
 967         for (tIndex = 0; tIndex < elementsof(misc_func); tIndex++) {
 968                 fprintf(pOutFile, "%s\n", misc_func[tIndex]);
 969         }
 970         fprintf(pOutFile, "%%%%EndProlog\n");
 971         iPageCount = 1;
 972         fprintf(pDiag->pOutFile, "%%%%Page: %d %d\n", iPageCount, iPageCount);
 973         vAddPageSetup(pDiag->pOutFile);
 974         vAddHeader(pDiag);
 975 } /* end of vAddFontsPS */
 976
 977 /*
 978  * vPrintPS - print a PostScript string
 979  */
 980 static void
 981 vPrintPS(FILE *pFile, const char *szString, size_t tStringLength,
 982                 USHORT usFontstyle)
 983 {
 984         double          dSuperscriptMove, dSubscriptMove;
 985         const UCHAR     *ucBytes;
 986         size_t          tCount;
 987
 988         fail(szString == NULL);
 989
 990         if (szString == NULL || szString[0] == '\0' || tStringLength == 0) {
 991                 return;
 992         }
 993         DBG_DEC_C(usFontSizeCurr < MIN_FONT_SIZE, usFontSizeCurr);
 994
 995         dSuperscriptMove = 0.0;
 996         dSubscriptMove = 0.0;
 997
 998         /* Up for superscript */
 999         if (bIsSuperscript(usFontstyle) && usFontSizeCurr != 0) {
1000                 dSuperscriptMove = (double)((usFontSizeCurr + 1) / 2) * 0.375;
1001                 fprintf(pFile, "0 %.2f rmoveto\n", dSuperscriptMove);
1002         }
1003
1004         /* Down for subscript */
1005         if (bIsSubscript(usFontstyle) && usFontSizeCurr != 0) {
1006                 dSubscriptMove = (double)usFontSizeCurr * 0.125;
1007                 fprintf(pFile, "0 %.2f rmoveto\n", -dSubscriptMove);
1008         }
1009
1010         /* Generate and print the PostScript output */
1011         ucBytes = (UCHAR *)szString;
1012         (void)putc('(', pFile);
1013         for (tCount = 0; tCount < tStringLength ; tCount++) {
1014                 switch (ucBytes[tCount]) {
1015                 case '(':
1016                 case ')':
1017                 case '\\':
1018                         (void)putc('\\', pFile);
1019                         (void)putc(szString[tCount], pFile);
1020                         break;
1021                 default:
1022                         if (ucBytes[tCount] < 0x20 ||
1023                             (ucBytes[tCount] >= 0x7f &&
1024                              ucBytes[tCount] < 0x8c)) {
1025                                 DBG_HEX(ucBytes[tCount]);
1026                                 (void)putc(' ', pFile);
1027                         } else if (ucBytes[tCount] >= 0x80) {
1028                                 fprintf(pFile, "\\%03o", (UINT)ucBytes[tCount]);
1029                         } else {
1030                                 (void)putc(szString[tCount], pFile);
1031                         }
1032                         break;
1033                 }
1034         }
1035         fprintf(pFile, ") ");
1036         if ((bIsStrike(usFontstyle) || bIsMarkDel(usFontstyle)) &&
1037                         usFontSizeCurr != 0) {
1038                 fprintf(pFile, "%.2f %.2f LineShow\n",
1039                         (double)usFontSizeCurr * 0.02,
1040                         (double)usFontSizeCurr * 0.12);
1041         } else if (bIsUnderline(usFontstyle) && usFontSizeCurr != 0) {
1042                 fprintf(pFile, "%.2f %.2f LineShow\n",
1043                         (double)usFontSizeCurr * 0.02,
1044                         (double)usFontSizeCurr * -0.06);
1045         } else {
1046                 fprintf(pFile, "show\n");
1047         }
1048
1049         /* Undo the superscript move */
1050         if (bIsSuperscript(usFontstyle) && usFontSizeCurr != 0) {
1051                 fprintf(pFile, "0 %.2f rmoveto\n", -dSuperscriptMove);
1052         }
1053
1054         /* Undo the subscript move */
1055         if (bIsSubscript(usFontstyle) && usFontSizeCurr != 0) {
1056                 fprintf(pFile, "0 %.2f rmoveto\n", dSubscriptMove);
1057         }
1058 } /* end of vPrintPS */
1059
1060 /*
1061  * vSetColor - move to the specified color
1062  */
1063 static void
1064 vSetColor(FILE *pFile, UCHAR ucFontColor)
1065 {
1066         ULONG   ulTmp, ulRed, ulGreen, ulBlue;
1067
1068         ulTmp = ulColor2Color(ucFontColor);
1069         ulRed   = (ulTmp & 0x0000ff00) >> 8;
1070         ulGreen = (ulTmp & 0x00ff0000) >> 16;
1071         ulBlue  = (ulTmp & 0xff000000) >> 24;
1072         fprintf(pFile, "%.3f %.3f %.3f setrgbcolor\n",
1073                                 ulRed / 255.0, ulGreen / 255.0, ulBlue / 255.0);
1074 } /* end of vSetColor */
1075
1076 /*
1077  * vMove2NextLinePS - move to the next line
1078  */
1079 void
1080 vMove2NextLinePS(diagram_type *pDiag, USHORT usFontSize)
1081 {
1082         fail(pDiag == NULL);
1083         fail(usFontSize < MIN_FONT_SIZE || usFontSize > MAX_FONT_SIZE);
1084
1085         pDiag->lYtop -= lComputeLeading(usFontSize);
1086 } /* end of vMove2NextLinePS */
1087
1088 /*
1089  * vSubstringPS - print a sub string
1090  */
1091 void
1092 vSubstringPS(diagram_type *pDiag,
1093         char *szString, size_t tStringLength, long lStringWidth,
1094         UCHAR ucFontColor, USHORT usFontstyle, drawfile_fontref tFontRef,
1095         USHORT usFontSize, USHORT usMaxFontSize)
1096 {
1097         const char      *szOurFontname;
1098
1099         fail(pDiag == NULL || szString == NULL);
1100         fail(pDiag->pOutFile == NULL);
1101         fail(pDiag->lXleft < 0);
1102         fail(tStringLength != strlen(szString));
1103         fail(usFontSize < MIN_FONT_SIZE || usFontSize > MAX_FONT_SIZE);
1104         fail(usMaxFontSize < MIN_FONT_SIZE || usMaxFontSize > MAX_FONT_SIZE);
1105         fail(usFontSize > usMaxFontSize);
1106
1107         if (szString[0] == '\0' || tStringLength == 0) {
1108                 return;
1109         }
1110
1111         if (tFontRef != tFontRefCurr || usFontSize != usFontSizeCurr) {
1112                 szOurFontname = szGetFontname(tFontRef);
1113                 fail(szOurFontname == NULL);
1114                 fprintf(pDiag->pOutFile,
1115                         "%.1f /%s /%s-ISO-8859-x ChgFnt\n",
1116                         (double)usFontSize / 2.0,
1117                         szOurFontname, szOurFontname);
1118                 tFontRefCurr = tFontRef;
1119                 usFontSizeCurr = usFontSize;
1120         }
1121         if ((int)ucFontColor != iFontColorCurr) {
1122                 vSetColor(pDiag->pOutFile, ucFontColor);
1123                 iFontColorCurr = (int)ucFontColor;
1124         }
1125         vMoveTo(pDiag, lComputeLeading(usMaxFontSize));
1126         vPrintPS(pDiag->pOutFile, szString, tStringLength, usFontstyle);
1127         pDiag->lXleft += lStringWidth;
1128 } /* end of vSubstringPS */
1129
1130 /*
1131  * Create an start of paragraph by moving the y-top mark
1132  */
1133 void
1134 vStartOfParagraphPS(diagram_type *pDiag, long lBeforeIndentation)
1135 {
1136         fail(pDiag == NULL);
1137         fail(lBeforeIndentation < 0);
1138
1139         pDiag->lXleft = 0;
1140         pDiag->lYtop -= lMilliPoints2DrawUnits(lBeforeIndentation);
1141 } /* end of vStartOfParagraphPS */
1142
1143 /*
1144  * Create an end of paragraph by moving the y-top mark
1145  */
1146 void
1147 vEndOfParagraphPS(diagram_type *pDiag,
1148         USHORT usFontSize, long lAfterIndentation)
1149 {
1150         fail(pDiag == NULL);
1151         fail(pDiag->pOutFile == NULL);
1152         fail(usFontSize < MIN_FONT_SIZE || usFontSize > MAX_FONT_SIZE);
1153         fail(lAfterIndentation < 0);
1154
1155         if (pDiag->lXleft > 0) {
1156                 /* To the start of the line */
1157                 vMove2NextLinePS(pDiag, usFontSize);
1158         }
1159
1160         pDiag->lXleft = 0;
1161         pDiag->lYtop -= lMilliPoints2DrawUnits(lAfterIndentation);
1162 } /* end of vEndOfParagraphPS */
1163
1164 /*
1165  * Create an end of page
1166  */
1167 void
1168 vEndOfPagePS(diagram_type *pDiag, BOOL bNewSection)
1169 {
1170         vMove2NextPage(pDiag, bNewSection);
1171 } /* end of vEndOfPagePS */