ꦫꦣꦺꦤ꧀ꦄꦤ꧀ꦠꦱꦺꦤ

PATH: usr / share / ghostscript / lib

%!
%    Copyright (C) 1989, 1992, 1993 Aladdin Enterprises.  All rights reserved.
%
% This file is part of Ghostscript.
%
% Ghostscript is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
% to anyone for the consequences of using it or for whether it serves any
% particular purpose or works at all, unless he says so in writing.  Refer
% to the Ghostscript General Public License for full details.
%
% Everyone is granted permission to copy, modify and redistribute
% Ghostscript, but only under the conditions described in the Ghostscript
% General Public License.  A copy of this license is supposed to have been
% given to you along with Ghostscript so you can know your rights and
% responsibilities.  It should be in a file named COPYING.  Among other
% things, the copyright notice and this notice must be preserved on all
% copies.

% dmp_init.ps
%   Initialization file for `dmprt' device driver.
%
%   Written initial version by...         ASAYAMA Kazunori  1993 Nov.
%   Modified for Ghostscript 4.03 by ...  ASAYAMA Kazunori  1997 May.

%%%%%                        check version                         %%%%%

201 % version of this initialization file.

/dmprt finddevice { /DmprtParams gsgetdeviceprop /Version get }
  stopped { pop pop 0 } if
2 copy ne {
  (\ndmprt: driver version\() print
  dup 0 eq {pop (unknown) print }{==only}ifelse
  (\) does not match dmp_init.ps version\() print
  ==only (\).\n) print
  flush 1 .quit
} { pop pop } ifelse

%%%%%                            BODY                              %%%%%

40 dict begin         % .WorkDict .UserParams
                      % .DmprtDevice
                      % .GetDmprtParam .SetDmprtParam
                      % .DmprtParams .Xdpi .Ydpi .Xdot .Ydot
                      %
                      % in cm mm pt bp dot
                      % BeginMode EndMode
                      % .ModeDataBase .CurrentMode
                      % BeginConfig EndConfig
                      % BeginPrinterProps EndPrinterProps

/.WorkDict currentdict def
/.ModeDataBase 10 dict def
/.dicttomark {
  counttomark 2 idiv dup dict begin { def } repeat pop currentdict end
} bind def

%%%%%                utilities for user customization.             %%%%%

/in { } bind def
/cm { 2.54 div } bind def
/mm { 25.4 div } bind def
/pt { 72.27 div } bind def
/bp { 72.0 div } bind def
/dot { [ exch truncate cvi ] } bind def

% the database of user customizations. (not implemented yet.)
/BeginMode { % <name> -> <name> mark
  mark
} bind def
/EndMode { % <name> mark <item1> <value1> ... <itemN> <valueN> -> --
  .dicttomark .ModeDataBase
  dup dup maxlength exch length eq {
    % Expand capacity of database dictionaly.
    dup maxlength 10 add dict copy dup /.ModeDataBase exch def
  } if
  3 1 roll put
} bind def

% these procedures are undocumented in the user's manual.
% these are used in order to specify the propaties directly.
/BeginPrinterProps { [ } bind def
/EndPrinterProps { ] /printer exch } bind def

%%%%%                run the user customization file.              %%%%%

/BeginConfig mark def
/EndConfig { .dicttomark /.UserParams exch def } bind def
systemdict /DMPCONFIG 2 copy known
{ get run }    % -sDMPCONFIG=<filename>
{ pop pop (dmp_site.ps) findlibfile { closefile run } if } ifelse

%%%%%                        refer database                        %%%%%

/.UsedMode .ModeDataBase length dict def
/.ExpandUserParams { % <dict> -> <param1> <value1> ... <paramN> <valueN>
  /.InheritMode null def
  { 1 index /inherit eq {
      exch pop dup .UsedMode exch known { % check recursive reference.
        /.ExpandUserParams /rangecheck signalerror
      } if
      /.InheritMode exch def
    } if } forall
  .InheritMode type /nametype eq {
    .UsedMode .InheritMode true put
    .ModeDataBase .InheritMode get .ExpandUserParams
  } if
} bind def

systemdict /DMPMODE 2 copy known
  {get .ModeDataBase exch get} {pop pop .UserParams} ifelse
mark exch .ExpandUserParams .dicttomark /.UserParams exch def

%%%%%                Local variables and procedures.               %%%%%
/.DmprtDevice /dmprt finddevice def
/.SetDmprtParam {   % <key> <value> -> --
  .DmprtParams 3 1 roll put
} bind def
/.SetLocalParam { .LocalParams 3 1 roll put } bind def
/.GetDmprtParam {   % <key> -> <value>
  .DmprtParams exch get
} bind def
/.GetUserParam {       % <key> <default-value> -> <value>
  .UserParams 3 -1 roll 2 copy known {get exch pop}{pop pop} ifelse
} bind def
/.SetUserParam { % <prop-name> <key> <default-value> -> --
  .GetUserParam .SetDmprtParam
} bind def

%%%%%                     dviprt proparties                        %%%%%

mark
.UserParams /printer 2 copy known {
  get dup type /dicttype ne { mark /FileName 3 -1 roll .dicttomark } if
}
{ pop pop % Default printer is `ESC/P 24 pins'.
    mark
    /Name          (ESC/P 24 pins)
    /Transpose     true
    /Reverse       false
    /NonMoving     false
    /Encoding      (Null)
    /HDpi           180
    /VDpi           180
    /Pins          24
    /MinimalUnit   1
    /MaximalUnit   180
    /Constant      1
    /BitImageMode  (\007\0333\030\033?Z\047)
    /NormalMode    (\004\015\014\0332)
    /SendBitImage  (\002\033Z\002\001\200)
    /SkipSpaces    (\002\033\\\002\001\200)
    /LineFeed      (\002\015\012)
    /FormFeed      (\002\015\014)
    /AfterBitImage ()
    /BitRowHeader  ()
    .dicttomark
} ifelse
/DviprtParams exch .DmprtDevice putdeviceprops

getdeviceprops .dicttomark /.DmprtParams exch def
.DmprtParams /DviprtParams get /.DviprtParams exch def
.DmprtParams /DmprtParams get /.LocalParams exch def

% calcurate resolutions and define operators converting
% from user-coordination to device-coordination(count by dots).
/resolution [ .DviprtParams dup /HDpi get exch /VDpi get ]
  .GetUserParam {} forall /.Ydpi exch def /.Xdpi exch def
/.Xdot { dup type /arraytype eq { 0 get } { .Xdpi mul truncate cvi } ifelse
} bind def
/.Ydot { dup type /arraytype eq { 0 get } { .Ydpi mul truncate cvi } ifelse
} bind def

%%%%%           Standard Ghostscript device propaties.             %%%%%

/HWSize  % default is A4.
  /defaultsize [8.3 11.7] .GetUserParam
  [ exch dup 0 get .Xdot exch 1 get .Ydot ] .SetDmprtParam

%%%%%                   dmprt device propaties.                    %%%%%

/MaxSize
  /maxsize [0.0 0.0] .GetUserParam [ exch dup 0 get .Xdot exch 1 get .Ydot ]
  .SetLocalParam
/Margins /margin [0.0 0.0 0.0 0.0] .GetUserParam
  [ exch dup 0 get .Xdot exch dup 1 get .Ydot
    exch dup 2 get .Xdot exch     3 get .Ydot ] .SetLocalParam
/Verbose QUIET {false}
  {/verbose false .GetUserParam} ifelse .SetLocalParam
/Debug /debug false .GetUserParam .SetLocalParam

%%%%%                   Page device propaties.                     %%%%%
%%%%%         See PostScript Reference Manual 2nd edition.         %%%%%

/HWResolution [ .Xdpi .Ydpi ] .SetDmprtParam
/Offsets
  /offset [0.0 0.0] .GetUserParam [ exch dup 0 get .Xdot exch 1 get .Ydot ]
  .SetLocalParam

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

mark .DmprtParams {} forall .DmprtDevice putdeviceprops pop

end
%%%%%%%%%%%%%%%%%%%%%%%%%%%%   End of file   %%%%%%%%%%%%%%%%%%%%%%%%%%%

[-] rollconv.ps [edit]
[-] acctest.ps [edit]
[-] bjc610b7.upp [edit]
[-] viewps2a.ps [edit]
[-] ras3.upp [edit]
[-] stc1520h.upp [edit]
[-] stc800p.upp [edit]
[-] PM820p.upp [edit]
[-] st640ih.upp [edit]
[-] stc_l.upp [edit]
[-] bj8gc12f.upp [edit]
[-] bj8oh06n.upp [edit]
[-] viewmiff.ps [edit]
[-] docie.ps [edit]
[-] viewgif.ps [edit]
[-] gs_wl2_e.ps [edit]
[-] printafm.ps [edit]
[-] Stp720p.upp [edit]
[-] st640plg.upp [edit]
[-] sipixa6.upp [edit]
[-] lines.ps [edit]
[-] caption.ps [edit]
[-] bjc610a0.upp [edit]
[-] cbjc600.ppd [edit]
[-] pphs.ps [edit]
[-] bjc6000a1.upp [edit]
[-] dnj750m.upp [edit]
[-] cdj690ec.upp [edit]
[-] viewpbm.ps [edit]
[-] Stp720pl.upp [edit]
[-] cdj550.upp [edit]
[-] Stc670p.upp [edit]
[+] ..
[-] gs_il2_e.ps [edit]
[-] ras24.upp [edit]
[-] gs_t.xpm [edit]
[-] bjc610b6.upp [edit]
[-] stocht.ps [edit]
[-] viewpcx.ps [edit]
[-] gs_l_m.xbm [edit]
[-] gs_s.xbm [edit]
[-] image-qa.ps [edit]
[-] landscap.ps [edit]
[-] dmp_site.ps [edit]
[-] bjc610a4.upp [edit]
[-] necp2x.upp [edit]
[-] align.ps [edit]
[-] ps2epsi.ps [edit]
[-] gslp.ps [edit]
[-] stc740ih.upp [edit]
[-] bj8.rpd [edit]
[-] gs_ce_e.ps [edit]
[-] st640ihg.upp [edit]
[-] ghostpdf.ppd [edit]
[-] stc600ih.upp [edit]
[-] Stc680pl.upp [edit]
[-] stc.upp [edit]
[-] stcany_h.upp [edit]
[-] gs_t_m.xbm [edit]
[-] stcinfo.ps [edit]
[-] gs_wl5_e.ps [edit]
[-] stc500ph.upp [edit]
[-] gs_wl1_e.ps [edit]
[-] stc300bl.upp [edit]
[-] gs_l.xpm [edit]
[-] ras32.upp [edit]
[-] winmaps.ps [edit]
[-] stc500p.upp [edit]
[-] bjc6000b1.upp [edit]
[-] mkcidfm.ps [edit]
[-] pdf2dsc.ps [edit]
[-] bjc610b8.upp [edit]
[-] pf2afm.ps [edit]
[-] s400b1.upp [edit]
[-] traceimg.ps [edit]
[-] traceop.ps [edit]
[-] Stc760pl.upp [edit]
[-] stc300bm.upp [edit]
[-] st640pg.upp [edit]
[-] stc600p.upp [edit]
[-] st640p.upp [edit]
[-] Stc777p.upp [edit]
[-] uninfo.ps [edit]
[-] ps2ai.ps [edit]
[-] gs_l.xbm [edit]
[-] bjc610a2.upp [edit]
[-] gs_t.xbm [edit]
[-] bj8hg12f.upp [edit]
[-] Stp870pl.upp [edit]
[-] prfont.ps [edit]
[-] bj8pa06n.upp [edit]
[-] gs_lgo_e.ps [edit]
[-] gs_ksb_e.ps [edit]
[-] stc800pl.upp [edit]
[-] gs_kanji.ps [edit]
[-] font2pcl.ps [edit]
[-] Stc740p.upp [edit]
[-] stc200_h.upp [edit]
[-] bjc610a8.upp [edit]
[-] viewjpeg.ps [edit]
[-] pfbtopfa.ps [edit]
[-] bjc610b2.upp [edit]
[-] necp2x6.upp [edit]
[-] gs_s.xpm [edit]
[-] jispaper.ps [edit]
[-] ppath.ps [edit]
[-] ras4.upp [edit]
[-] bjc610a1.upp [edit]
[-] Stc777pl.upp [edit]
[-] Stc760p.upp [edit]
[-] stc300.upp [edit]
[-] stcany.upp [edit]
[-] gs_s_m.xbm [edit]
[-] stc_h.upp [edit]
[-] ras8m.upp [edit]
[-] bjc610a6.upp [edit]
[-] gs_m_m.xbm [edit]
[-] gs_m.xpm [edit]
[-] stc600pl.upp [edit]
[-] stc2s_h.upp [edit]
[-] bjc610a7.upp [edit]
[-] PM820pl.upp [edit]
[-] cid2code.ps [edit]
[-] bjc610a5.upp [edit]
[-] stc640p.upp [edit]
[-] ht_ccsto.ps [edit]
[-] cdj690.upp [edit]
[-] st640pl.upp [edit]
[-] PDFX_def.ps [edit]
[-] bjc610a3.upp [edit]
[-] zeroline.ps [edit]
[-] dmp_init.ps [edit]
[-] Stc680p.upp [edit]
[-] PM760p.upp [edit]
[-] bjc610b3.upp [edit]
[-] PM760pl.upp [edit]
[-] sharp.upp [edit]
[-] stc2_h.upp [edit]
[-] bj8ts06n.upp [edit]
[-] stc800ih.upp [edit]
[-] bjc610b4.upp [edit]
[-] dnj750c.upp [edit]
[-] bj8pp12f.upp [edit]
[-] stc2.upp [edit]
[-] s400a1.upp [edit]
[-] bjc610b1.upp [edit]
[-] viewcmyk.ps [edit]
[-] PDFA_def.ps [edit]
[-] cbjc800.ppd [edit]
[-] ras1.upp [edit]
[-] gs_lgx_e.ps [edit]
[-] Stp870p.upp [edit]
[-] escp_24.src [edit]
[-] stcolor.ps [edit]
[-] Stc740pl.upp [edit]
[-] gs_m.xbm [edit]
[-] Stc670pl.upp [edit]
[-] gsnup.ps [edit]