%! % 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 { % -> mark mark } bind def /EndMode { % mark ... -> -- .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= { pop pop (dmp_site.ps) findlibfile { closefile run } if } ifelse %%%%% refer database %%%%% /.UsedMode .ModeDataBase length dict def /.ExpandUserParams { % -> ... /.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 { % -> -- .DmprtParams 3 1 roll put } bind def /.SetLocalParam { .LocalParams 3 1 roll put } bind def /.GetDmprtParam { % -> .DmprtParams exch get } bind def /.GetUserParam { % -> .UserParams 3 -1 roll 2 copy known {get exch pop}{pop pop} ifelse } bind def /.SetUserParam { % -> -- .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 %%%%%%%%%%%%%%%%%%%%%%%%%%%