home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / gs-2.6.1.4-src.lha / src / amiga / ghostscript-2.6.1 / gdevdjet.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-01-28  |  15.5 KB  |  471 lines
  1. /* Copyright (C) 1989, 1992, 1993 Aladdin Enterprises.  All rights reserved.
  2.  
  3. This file is part of Ghostscript.
  4.  
  5. Ghostscript is distributed in the hope that it will be useful, but
  6. WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7. to anyone for the consequences of using it or for whether it serves any
  8. particular purpose or works at all, unless he says so in writing.  Refer
  9. to the Ghostscript General Public License for full details.
  10.  
  11. Everyone is granted permission to copy, modify and redistribute
  12. Ghostscript, but only under the conditions described in the Ghostscript
  13. General Public License.  A copy of this license is supposed to have been
  14. given to you along with Ghostscript so you can know your rights and
  15. responsibilities.  It should be in a file named COPYING.  Among other
  16. things, the copyright notice and this notice must be preserved on all
  17. copies.  */
  18.  
  19. /* gdevdjet.c */
  20. /* HP LaserJet/DeskJet driver for Ghostscript */
  21. #include "gdevprn.h"
  22. #include "gdevpcl.h"
  23.  
  24. /*
  25.  * Thanks to Jim Mayer (mayer@wrc.xerox.com),
  26.  * Jan-Mark Wams (jms@cs.vu.nl), Frans van Hoesel (hoesel@rugr86.rug.nl),
  27.  * and George Cameron (g.cameron@biomed.abdn.ac.uk) for improvements.
  28.  */
  29.  
  30. /*
  31.  * You may select a default resolution of 75, 100, 150, 300, or
  32.  * (LJ4 only) 600 DPI in the makefile, or an actual resolution on
  33.  * the gs command line.
  34.  *
  35.  * If the preprocessor symbol A4 is defined, the default paper size is
  36.  * the European A4 size; otherwise it is the U.S. letter size (8.5"x11").
  37.  *
  38.  * You may find the following test page useful in determining the exact
  39.  * margin settings on your printer.  It prints four big arrows which
  40.  * point exactly to the for corners of an A4 sized paper. Of course the
  41.  * arrows cannot appear in full on the paper, and they are truncated by
  42.  * the margins. The margins measured on the testpage must match those
  43.  * in gdevdjet.c.  So the testpage indicates two facts: 1) the page is
  44.  * not printed in the right position 2) the page is truncated too much
  45.  * because the margins are wrong. Setting wrong margins in gdevdjet.c
  46.  * will also move the page, so both facts should be matched with the
  47.  * real world.
  48.  
  49. %!
  50.     newpath 
  51.     0 0 moveto 144 72 lineto 72 144 lineto
  52.     closepath fill stroke 0 0 moveto 144 144 lineto stroke
  53.  
  54.     595.27 841.88 moveto 451.27 769.88 lineto 523.27 697.88 lineto
  55.     closepath fill stroke 595.27 841.88 moveto 451.27 697.88 lineto stroke
  56.  
  57.     0 841.88 moveto 144 769.88 lineto 72 697.88 lineto
  58.     closepath fill stroke 0 841.88 moveto 144 697.88 lineto stroke
  59.  
  60.     595.27 0 moveto 451.27 72 lineto 523.27 144 lineto
  61.     closepath fill stroke 595.27 0 moveto 451.27 144 lineto stroke
  62.  
  63.     /Helvetica findfont
  64.     14 scalefont setfont
  65.     100 600 moveto
  66.     (This is an A4 testpage. The arrows should point exactly to the) show
  67.     100 580 moveto
  68.     (corners and the margins should match those given in gdev*.c) show
  69.     showpage
  70.  
  71.  */
  72.  
  73. /* Define the default, maximum resolutions. */
  74. #ifdef X_DPI
  75. #  define X_DPI2 X_DPI
  76. #else
  77. #  define X_DPI 300
  78. #  define X_DPI2 600
  79. #endif
  80. #ifdef Y_DPI
  81. #  define Y_DPI2 Y_DPI
  82. #else
  83. #  define Y_DPI 300
  84. #  define Y_DPI2 600
  85. #endif
  86.  
  87. /*
  88.  * For all DeskJet Printers:
  89.  *
  90.  *  Maximum printing width               = 2400 dots = 8"
  91.  *  Maximum recommended printing height  = 3100 dots = 10 1/3"
  92.  *
  93.  * All Deskjets have 1/2" unprintable bottom margin.
  94.  * The recommendation comes from the HP Software Developer's Guide for
  95.  * the DeskJet 500, DeskJet PLUS, and DeskJet printers, version C.01.00
  96.  * of 12/1/90.
  97.  *
  98.  * Note that the margins defined just below here apply only to the DeskJet;
  99.  * the paper size, width and height apply to the LaserJet as well.
  100.  */
  101.  
  102. /* Margins are left, bottom, right, top. */
  103. /* from Frans van Hoesel hoesel@rugr86.rug.nl. */
  104. /* A4 has a left margin of 1/8 inch and at a printing width of
  105.  * 8 inch this give a right margin of 0.143. The 0.09 top margin is
  106.  * not the actual margin - which is 0.07 - but compensates for the
  107.  * inexact paperlength which is set to 117 10ths 
  108.  * Somebody should check for letter sized paper. I left it at 0.07
  109.  */
  110. #define DESKJET_MARGINS_LETTER  0.25, 0.50, 0.25, 0.07
  111. #define DESKJET_MARGINS_A4      0.125, 0.5, 0.143, 0.09
  112. /* Similar margins for the LaserJet, */
  113. /* from Eddy Andrews eeandrew@pyr.swan.ac.uk. */
  114. #define LASERJET_MARGINS_A4    0.25, 0.20, 0.25, 0.00
  115. #define LASERJET_MARGINS_LETTER    0.35, 0.20, 0.35, 0.00
  116.  
  117. /* The number of blank lines that make it worthwhile to reposition */
  118. /* the cursor. */
  119. #define MIN_SKIP_LINES 7
  120.  
  121. /* We round up the LINE_SIZE to a multiple of a ulong for faster scanning. */
  122. #define W sizeof(word)
  123.  
  124. /* Printer types */
  125. #define LJ    0
  126. #define LJplus    1
  127. #define LJ2p    2
  128. #define LJ3    3
  129. #define DJ    4
  130. #define DJ500    5
  131. #define LJ4    6
  132.  
  133. /*
  134.  * The notion that there is such a thing as a "PCL printer" is a fiction:
  135.  * no two "PCL" printers, even at the same PCL level, have compatible
  136.  * command sets.  The command strings below were established by hearsay
  137.  * and by trial and error.  (The H-P documentation isn't fully accurate
  138.  * either; for example, it doesn't reveal that the DeskJet printers
  139.  * implement anything beyond PCL 3.)
  140.  */
  141.  
  142. /* Printer capabilities */
  143. typedef enum {
  144.     mode_0,        /* PCL 3, use <ESC>*p+<n>Y for vertical spacing */
  145.     mode_2,        /* PCL 4, use <ESC>*b<n>Y for vertical spacing */
  146.     mode_2p,    /* PCL 4 but no vertical spacing */
  147.     mode_3        /* PCL 5, use <ESC>*b<n>Y and clear seed row */
  148.             /* (includes mode 2) */
  149. } compression_modes;
  150.  
  151. /* The device descriptors */
  152. private dev_proc_open_device(hpjet_open);
  153. private dev_proc_print_page(djet_print_page);
  154. private dev_proc_print_page(djet500_print_page);
  155. private dev_proc_print_page(ljet_print_page);
  156. private dev_proc_print_page(ljetplus_print_page);
  157. private dev_proc_print_page(ljet2p_print_page);
  158. private dev_proc_print_page(ljet3_print_page);
  159. private dev_proc_print_page(ljet4_print_page);
  160.  
  161. gx_device_procs prn_hp_procs =
  162.   prn_matrix_procs(hpjet_open, gdev_pcl_get_initial_matrix,
  163.     gdev_prn_output_page, gdev_prn_close);
  164.  
  165. gx_device_printer far_data gs_deskjet_device =
  166.   prn_device(prn_hp_procs, "deskjet",
  167.     DEFAULT_WIDTH_10THS, DEFAULT_HEIGHT_10THS,
  168.     X_DPI, Y_DPI,
  169.     0, 0, 0, 0,        /* margins filled in by hpjet_open */
  170.     1, djet_print_page);
  171.  
  172. gx_device_printer far_data gs_djet500_device =
  173.   prn_device(prn_hp_procs, "djet500",
  174.     DEFAULT_WIDTH_10THS, DEFAULT_HEIGHT_10THS,
  175.     X_DPI, Y_DPI,
  176.     0, 0, 0, 0,        /* margins filled in by hpjet_open */
  177.     1, djet500_print_page);
  178.  
  179. gx_device_printer far_data gs_laserjet_device =
  180.   prn_device(prn_hp_procs, "laserjet",
  181.     DEFAULT_WIDTH_10THS, DEFAULT_HEIGHT_10THS,
  182.     X_DPI, Y_DPI,
  183.     0.05, 0.25, 0.55, 0.25,        /* margins */
  184.     1, ljet_print_page);
  185.  
  186. gx_device_printer far_data gs_ljetplus_device =
  187.   prn_device(prn_hp_procs, "ljetplus",
  188.     DEFAULT_WIDTH_10THS, DEFAULT_HEIGHT_10THS,
  189.     X_DPI, Y_DPI,
  190.     0.05, 0.25, 0.55, 0.25,        /* margins */
  191.     1, ljetplus_print_page);
  192.  
  193. gx_device_printer far_data gs_ljet2p_device =
  194.   prn_device(prn_hp_procs, "ljet2p",
  195.     DEFAULT_WIDTH_10THS, DEFAULT_HEIGHT_10THS,
  196.     X_DPI, Y_DPI,
  197.     0.20, 0.25, 0.25, 0.25,        /* margins */
  198.     1, ljet2p_print_page);
  199.  
  200. gx_device_printer far_data gs_ljet3_device =
  201.   prn_device(prn_hp_procs, "ljet3",
  202.     DEFAULT_WIDTH_10THS, DEFAULT_HEIGHT_10THS,
  203.     X_DPI, Y_DPI,
  204.     0.20, 0.25, 0.25, 0.25,        /* margins */
  205.     1, ljet3_print_page);
  206.  
  207. gx_device_printer far_data gs_ljet4_device =
  208.   prn_device(prn_hp_procs, "ljet4",
  209.     DEFAULT_WIDTH_10THS, DEFAULT_HEIGHT_10THS,
  210.     X_DPI2, Y_DPI2,
  211.     0.25, 0.0, 0.25, 0.25,        /* margins */
  212.     1, ljet4_print_page);
  213.  
  214. /* Forward references */
  215. private int hpjet_print_page(P6(gx_device_printer *, FILE *, int, int, compression_modes, const char *));
  216.  
  217. /* Open the printer, adjusting the margins if necessary. */
  218. private int
  219. hpjet_open(gx_device *pdev)
  220. {    /* Change the margins if necessary. */
  221.     const float _ds *m;
  222. #define ppdev ((gx_device_printer *)pdev)
  223.     if ( ppdev->print_page == djet_print_page ||
  224.          ppdev->print_page == djet500_print_page
  225.        )
  226. #undef ppdev
  227.     {    static const float m_a4[4] = { DESKJET_MARGINS_A4 };
  228.         static const float m_letter[4] = { DESKJET_MARGINS_LETTER };
  229.         m = (gdev_pcl_paper_size(pdev) == PAPER_SIZE_A4 ? m_a4 :
  230.             m_letter);
  231.     }
  232.     else    /* LaserJet */
  233.     {    static const float m_a4[4] = { LASERJET_MARGINS_A4 };
  234.         static const float m_letter[4] = { LASERJET_MARGINS_LETTER };
  235.         m = (gdev_pcl_paper_size(pdev) == PAPER_SIZE_A4 ? m_a4 :
  236.             m_letter);
  237.     }
  238.     pdev->l_margin = m[0];
  239.     pdev->b_margin = m[1];
  240.     pdev->r_margin = m[2];
  241.     pdev->t_margin = m[3];
  242.     return gdev_prn_open(pdev);
  243. }
  244.  
  245. /* ------ Internal routines ------ */
  246.  
  247. /* The DeskJet can compress (mode 2) */
  248. private int
  249. djet_print_page(gx_device_printer *pdev, FILE *prn_stream)
  250. {    return hpjet_print_page(pdev, prn_stream, DJ, 300, mode_2,
  251.         "\033&k1W\033*p0x0Y\033*b2M");
  252. }
  253. /* The DeskJet500 can compress (modes 2&3) */
  254. private int
  255. djet500_print_page(gx_device_printer *pdev, FILE *prn_stream)
  256. {    return hpjet_print_page(pdev, prn_stream, DJ500, 300, mode_3,
  257.         "\033&k1W\033*p0x0Y");
  258. }
  259. /* The LaserJet series II can't compress */
  260. private int
  261. ljet_print_page(gx_device_printer *pdev, FILE *prn_stream)
  262. {    return hpjet_print_page(pdev, prn_stream, LJ, 300, mode_0,
  263.         "\033*p0x0Y\033*b0M");
  264. }
  265. /* The LaserJet Plus can't compress */
  266. private int
  267. ljetplus_print_page(gx_device_printer *pdev, FILE *prn_stream)
  268. {    return hpjet_print_page(pdev, prn_stream, LJplus, 300, mode_0,
  269.         "\033*p0x0Y\033*b0M");
  270. }
  271. /* LaserJet series IIp & IId compress (mode 2) */
  272. /* but don't support *p+ or *b vertical spacing. */
  273. private int
  274. ljet2p_print_page(gx_device_printer *pdev, FILE *prn_stream)
  275. {    return hpjet_print_page(pdev, prn_stream, LJ2p, 300, mode_2p,
  276.         "\033*r0F\033*p0x75Y\033*b2M");
  277. }
  278. /* All LaserJet series IIIs (III,IIId,IIIp,IIIsi) compress (modes 2&3) */
  279. private int
  280. ljet3_print_page(gx_device_printer *pdev, FILE *prn_stream)
  281. {    return hpjet_print_page(pdev, prn_stream, LJ3, 300, mode_3,
  282.         "\033*r0F\033*p0x75Y");
  283. }
  284. /* LaserJet 4 series compresses, and it needs a special sequence to */
  285. /* allow it to specify coordinates at 600 dpi. */
  286. private int
  287. ljet4_print_page(gx_device_printer *pdev, FILE *prn_stream)
  288. {    int dots_per_inch = (int)pdev->y_pixels_per_inch;
  289.     char real_init[50];
  290.     sprintf(real_init, "\033*r0F\033*p0x75Y\033&u%dD", dots_per_inch);
  291.     return hpjet_print_page(pdev, prn_stream, LJ4, dots_per_inch, mode_3,
  292.         real_init);
  293. }
  294.  
  295. /* Send the page to the printer.  For speed, compress each scan line, */
  296. /* since computer-to-printer communication time is often a bottleneck. */
  297. private int
  298. hpjet_print_page(gx_device_printer *pdev, FILE *prn_stream, int ptype,
  299.   int dots_per_inch, compression_modes cmodes, const char *init_string)
  300. {    int line_size = gdev_mem_bytes_per_scan_line((gx_device *)pdev);
  301.     int line_size_words = (line_size + W - 1) / W;
  302.     uint storage_size_words = line_size_words * 8; /* data, out_row, out_row_alt, prev_row */
  303.     word *storage = (ulong *)gs_malloc(storage_size_words, W,
  304.                        "hpjet_print_page");
  305.     word
  306.       *data_words,
  307.       *out_row_words,
  308.       *out_row_alt_words,
  309.       *prev_row_words;
  310. #define data ((char *)data_words)
  311. #define out_row ((char *)out_row_words)
  312. #define out_row_alt ((char *)out_row_alt_words)
  313. #define prev_row ((char *)prev_row_words)
  314.     char *out_data;
  315.     int x_dpi = pdev->x_pixels_per_inch;
  316.     int y_dots_per_pixel = dots_per_inch / pdev->y_pixels_per_inch;
  317.     int out_count;
  318.     int compression = -1;
  319.     static const char *from2to3 = "\033*b3M";
  320.     static const char *from3to2 = "\033*b2M";
  321.     int penalty_from2to3 = strlen(from2to3);
  322.     int penalty_from3to2 = strlen(from3to2);
  323.     int paper_size = gdev_pcl_paper_size((gx_device *)pdev);
  324.  
  325.     if ( storage == 0 )    /* can't allocate working area */
  326.         return_error(gs_error_VMerror);
  327.     data_words = storage;
  328.     out_row_words = data_words + (line_size_words * 2);
  329.     out_row_alt_words = out_row_words + (line_size_words * 2);
  330.     prev_row_words = out_row_alt_words + (line_size_words * 2);
  331.     /* Clear temp storage */
  332.     memset(data, 0, storage_size_words * W);
  333.  
  334.     /* Initialize printer. */
  335.     fputs("\033E", prn_stream);        /* reset printer */
  336.     fputs("\033*rB", prn_stream);        /* end raster graphics */
  337.     fprintf(prn_stream, "\033*t%dR", x_dpi);    /* set resolution */
  338.     /* If the printer supports it, set the paper size */
  339.     /* based on the actual requested size. */
  340.     if ( !(ptype == LJ || ptype == LJplus ) )
  341.     {    fprintf(prn_stream, "\033&l%dA", paper_size);
  342.     }
  343.     fputs("\033&l0o0e0L", prn_stream);
  344.     fputs(init_string, prn_stream);
  345.  
  346.     /* Send each scan line in turn */
  347.        {    int lnum;
  348.         int num_blank_lines = 0;
  349.         word rmask = ~(word)0 << (-pdev->width & (W * 8 - 1));
  350.  
  351.         /* Transfer raster graphics. */
  352.         for ( lnum = 0; lnum < pdev->height; lnum++ )
  353.            {    register word *end_data = data_words + line_size_words;
  354.             gdev_prn_copy_scan_lines(pdev, lnum,
  355.                          (byte *)data, line_size);
  356.                /* Mask off 1-bits beyond the line width. */
  357.             end_data[-1] &= rmask;
  358.             /* Remove trailing 0s. */
  359.             while ( end_data > data_words && end_data[-1] == 0 )
  360.               end_data--;
  361.             if ( end_data == data_words )
  362.                {    /* Blank line */
  363.                 num_blank_lines++;
  364.                 continue;
  365.                }
  366.  
  367.             /* We've reached a non-blank line. */
  368.             /* Put out a spacing command if necessary. */
  369.             if ( num_blank_lines == lnum )
  370.             {    /* We're at the top of a page. */
  371.                 if ( cmodes == mode_2p )
  372.                 {    /* Start raster graphics. */
  373.                     fputs("\033*r1A", prn_stream);
  374.                     for ( ; num_blank_lines; num_blank_lines-- )
  375.                         fputs("\033*bW", prn_stream);
  376.                 }
  377.                 else
  378.                 {    if ( num_blank_lines > 0 )
  379.                       fprintf(prn_stream, "\033*p+%dY",
  380.                         num_blank_lines * y_dots_per_pixel);
  381.                     /* Start raster graphics. */
  382.                     fputs("\033*r1A", prn_stream);
  383.                 }
  384.             }
  385.             /* Skip blank lines if any */
  386.             else if ( num_blank_lines != 0 )
  387.             {  if ( num_blank_lines < MIN_SKIP_LINES || cmodes == mode_2p )
  388.                {    /* Moving down from current position */
  389.                 /* causes head motion on the DeskJet, so */
  390.                 /* if the number of lines is small, */
  391.                 /* we're better off printing blanks. */
  392.                 if ( cmodes == mode_3 )
  393.                 {    /* Must clear the seed row. */
  394.                     fputs("\033*bY", prn_stream);
  395.                 }
  396.                 for ( ; num_blank_lines; num_blank_lines-- )
  397.                     fputs("\033*bW", prn_stream);
  398.                }
  399.                else if ( cmodes == mode_0 )    /* PCL 3 */
  400.                {    fprintf(prn_stream, "\033*p+%dY",
  401.                         num_blank_lines * y_dots_per_pixel);
  402.                }
  403.                else
  404.                {       fprintf(prn_stream, "\033*b%dY",
  405.                        num_blank_lines);
  406.                }
  407.                /* Clear the seed row (only matters for */
  408.                /* mode 3 compression). */
  409.                memset(prev_row, 0, line_size);
  410.             }
  411.             num_blank_lines = 0;
  412.  
  413.             /* Choose the best compression mode */
  414.             /* for this particular line. */
  415.             switch (cmodes)
  416.               {
  417.               case mode_3:
  418.                {    /* Compression modes 2 and 3 are both */
  419.                 /* available.  Try both and see which one */
  420.                 /* produces the least output data. */
  421.                 int count3 = gdev_pcl_mode3compress(line_size, data,
  422.                                prev_row, out_row);
  423.                 int count2 = gdev_pcl_mode2compress(data_words, end_data,
  424.                                out_row_alt);
  425.                 int penalty3 =
  426.                   (compression == 3 ? 0 : penalty_from2to3);
  427.                 int penalty2 =
  428.                   (compression == 2 ? 0 : penalty_from3to2);
  429.                 if ( count3 + penalty3 < count2 + penalty2)
  430.                    {    if ( compression != 3 )
  431.                         fputs(from2to3, prn_stream);
  432.                     compression = 3;
  433.                     out_data = out_row;
  434.                     out_count = count3;
  435.                    }
  436.                 else
  437.                    {    if ( compression != 2 )
  438.                         fputs(from3to2, prn_stream);
  439.                     compression = 2;
  440.                     out_data = out_row_alt;
  441.                     out_count = count2;
  442.                    }
  443.                 break;
  444.                }
  445.               case mode_2:
  446.               case mode_2p:
  447.                 out_data = out_row;
  448.                    out_count = gdev_pcl_mode2compress(data_words, end_data,
  449.                               out_row);
  450.                 break;
  451.               default:
  452.                 out_data = data;
  453.                 out_count = (char *)end_data - data;
  454.               }
  455.  
  456.             /* Transfer the data */
  457.             fprintf(prn_stream, "\033*b%dW", out_count);
  458.             fwrite(out_data, sizeof(char), out_count,
  459.                    prn_stream);
  460.            }
  461.     }
  462.  
  463.     /* end raster graphics and eject page */
  464.     fputs("\033*rB\f", prn_stream);
  465.  
  466.     /* free temporary storage */
  467.     gs_free((char *)storage, storage_size_words, W, "hpjet_print_page");
  468.  
  469.     return 0;
  470. }
  471.