/*
    The following SAS program may be used to create three drivers
    (DJTPS24D, DJTPS36D and DJTPS36E) which will support 24 and 36
    inch roll feed paper when using the PostScript emulation mode on
    the HP DesignJet 650C color printer.

    It is assumed that the new driver entries will be stored in
    the SASHELP.DEVICES catalog. If you do not have update access
    to this catalog, create the driver entries in your own catalog,
    GDEVICE0.DEVICES. You may do this by uncommenting the LIBNAME
    statement and changing the two uppercase occurances of SASHELP to
    GDEVICE0 in the program.

    Since the PostScript option on the plotter doesn't support software
    or inked area settings, the paper size and orientation must be
    manually selected on the front panel of the plotter as follows
    when using the following drivers:

      DJTPS24D ==> Set PAPER SIZE to ARCH D and ROTATE to 0

        FRONT PANEL SETTINGS:

          Page Format -> Size -> Arch -> Arch D
                      -> Rotate -> 0

        This driver produces a 22 x 34 inch graph with 1 inch
        margins on 24 x 36 inch paper.

      DJTPS36D ==> Set PAPER SIZE to ARCH D and ROTATE to 90

        FRONT PANEL SETTINGS:

          Page Format -> Size -> Arch -> Arch D
                      -> Rotate -> 90

        This driver produces a 34 x 22 inch graph with 1 inch
        margins on 36 x 24 inch paper.

      DJTPS36E ==> Set PAPER SIZE to ARCH E and ROTATE to 0

        FRONT PANEL SETTINGS:

          Page Format -> Size -> Arch -> Arch E
                      -> Rotate -> 0

        This driver produces a 34 x 46 inch graph with 1 inch
        margins on 36 x 48 inch paper.

 */

*libname gdevice0 'your.sas.library';
proc gdevice c=SASHELP.devices nofs;
  copy pscolor    from    = sashelp.devices newname = DJTPS36D;
  modify DJTPS36D des     = 'DesignJet 650C-PS-36"roll-ArchD-Rotate90'
                  xpixels = 14400
                  ypixels = 21600
                  xmax    = 24.0
                  ymax    = 36.0
                  hsize   = 22.0
                  vsize   = 34.0
                  horigin = 1.0
                  vorigin = 1.0
                  prows   = 67
                  pcols   = 68
                  charrec = (1, 71, 75, '/Courier',                     'Y',
                             2, 71, 75, '/Courier-Oblique',             'Y',
                             3, 71, 75, '/Courier-Bold',                'Y',
                             4, 71, 75, '/Courier-BoldOblique',         'Y',
                             5, 71, 75, '/Times-Roman',                 'Y',
                             6, 71, 75, '/Times-Italic',                'Y',
                             7, 71, 75, '/Times-Bold',                  'Y',
                             8, 71, 75, '/Times-BoldItalic',            'Y',
                             9, 71, 75, '/Helvetica',                   'Y',
                            10, 71, 75, '/Helvetica-Oblique',           'Y',
                            11, 71, 75, '/Helvetica-Bold',              'Y',
                            12, 71, 75, '/Helvetica-BoldOblique',       'Y',
                            13, 71, 75, '/Symbol',                      'Y',
                            14, 71, 75, '/AvantGarde-Book',             'Y',
                            15, 71, 75, '/AvantGarde-Demi',             'Y',
                            16, 71, 75, '/AvantGarde-BookOblique',      'Y',
                            17, 71, 75, '/AvantGarde-DemiOblique',      'Y',
                            18, 71, 75, '/Palatino-Roman',              'Y',
                            19, 71, 75, '/Palatino-Bold',               'Y',
                            20, 71, 75, '/Palatino-Italic',             'Y',
                            21, 71, 75, '/Palatino-BoldItalic',         'Y',
                            22, 71, 75, '/NewCenturySchlbk-Roman',      'Y',
                            23, 71, 75, '/NewCenturySchlbk-Bold',       'Y',
                            24, 71, 75, '/NewCenturySchlbk-Italic',     'Y',
                            25, 71, 75, '/NewCenturySchlbk-BoldItalic', 'Y',
                            26, 71, 75, '/Helvetica-Narrow',            'Y',
                            27, 71, 75, '/Helvetica-Narrow-Bold',       'Y',
                            28, 71, 75, '/Helvetica-Narrow-Oblique',    'Y',
                            29, 71, 75, '/Helvetica-Narrow-BoldOblique','Y',
                            30, 71, 75, '/ZapfChancery-MediumItalic',   'Y',
                            31, 71, 75, '/ZapfDingbats',                'Y',
                            32, 71, 75, '/Bookman-Light',               'Y',
                            33, 71, 75, '/Bookman-Demi',                'Y',
                            34, 71, 75, '/Bookman-LightItalic',         'Y',
                            35, 71, 75, '/Bookman-DemiItalic',          'Y')
                  ;
  copy pscolor    from    = sashelp.devices newname = DJTPS36E;
  modify DJTPS36E des     = 'DesignJet 650C-PS-36"roll-ArchE-Rotate0'
                  xpixels = 21600
                  ypixels = 28800
                  xmax    = 36.0
                  ymax    = 48.0
                  hsize   = 34.0
                  vsize   = 45.8
                  horigin = 1.0
                  vorigin = 1.0
                  prows   = 67
                  pcols   = 70
                  charrec = (1, 71, 75, '/Courier',                     'Y',
                             2, 71, 75, '/Courier-Oblique',             'Y',
                             3, 71, 75, '/Courier-Bold',                'Y',
                             4, 71, 75, '/Courier-BoldOblique',         'Y',
                             5, 71, 75, '/Times-Roman',                 'Y',
                             6, 71, 75, '/Times-Italic',                'Y',
                             7, 71, 75, '/Times-Bold',                  'Y',
                             8, 71, 75, '/Times-BoldItalic',            'Y',
                             9, 71, 75, '/Helvetica',                   'Y',
                            10, 71, 75, '/Helvetica-Oblique',           'Y',
                            11, 71, 75, '/Helvetica-Bold',              'Y',
                            12, 71, 75, '/Helvetica-BoldOblique',       'Y',
                            13, 71, 75, '/Symbol',                      'Y',
                            14, 71, 75, '/AvantGarde-Book',             'Y',
                            15, 71, 75, '/AvantGarde-Demi',             'Y',
                            16, 71, 75, '/AvantGarde-BookOblique',      'Y',
                            17, 71, 75, '/AvantGarde-DemiOblique',      'Y',
                            18, 71, 75, '/Palatino-Roman',              'Y',
                            19, 71, 75, '/Palatino-Bold',               'Y',
                            20, 71, 75, '/Palatino-Italic',             'Y',
                            21, 71, 75, '/Palatino-BoldItalic',         'Y',
                            22, 71, 75, '/NewCenturySchlbk-Roman',      'Y',
                            23, 71, 75, '/NewCenturySchlbk-Bold',       'Y',
                            24, 71, 75, '/NewCenturySchlbk-Italic',     'Y',
                            25, 71, 75, '/NewCenturySchlbk-BoldItalic', 'Y',
                            26, 71, 75, '/Helvetica-Narrow',            'Y',
                            27, 71, 75, '/Helvetica-Narrow-Bold',       'Y',
                            28, 71, 75, '/Helvetica-Narrow-Oblique',    'Y',
                            29, 71, 75, '/Helvetica-Narrow-BoldOblique','Y',
                            30, 71, 75, '/ZapfChancery-MediumItalic',   'Y',
                            31, 71, 75, '/ZapfDingbats',                'Y',
                            32, 71, 75, '/Bookman-Light',               'Y',
                            33, 71, 75, '/Bookman-Demi',                'Y',
                            34, 71, 75, '/Bookman-LightItalic',         'Y',
                            35, 71, 75, '/Bookman-DemiItalic',          'Y')
                  ;

  copy DJTPS36D   from    = SASHELP.devices newname = DJTPS24D;
  modify DJTPS24D des     = 'DesignJet 650C-PS-24"roll-ArchD-Rotate0'
                  ;
run;
quit;