simple.hdr - enscript - GNU Enscript
 (HTM) git clone git://thinkerwim.org/enscript.git
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
       simple.hdr (1403B)
       ---
            1 % 
            2 % Default simple header.
            3 % Copyright (c) 1995 Markku Rossi.
            4 % Author: Markku Rossi <mtr@iki.fi>
            5 %
            6 
            7 %
            8 % This file is part of GNU Enscript.
            9 % 
           10 % Enscript is free software: you can redistribute it and/or modify
           11 % it under the terms of the GNU General Public License as published by
           12 % the Free Software Foundation, either version 3 of the License, or
           13 % (at your option) any later version.
           14 %
           15 % Enscript is distributed in the hope that it will be useful,
           16 % but WITHOUT ANY WARRANTY; without even the implied warranty of
           17 % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
           18 % GNU General Public License for more details.
           19 %
           20 % You should have received a copy of the GNU General Public License
           21 % along with Enscript.  If not, see <http://www.gnu.org/licenses/>.
           22 %
           23 
           24 % -- code follows this line --
           25 %Format: fmodstr        $D{%a %b %d %H:%M:%S %Y}
           26 %Format: pagenumstr        $V$%
           27 
           28 /do_header {        % print default simple header
           29   gsave
           30     d_header_x d_header_y HFpt_h 3 div add translate
           31 
           32     HF setfont
           33     user_header_p {
           34       5 0 moveto user_header_left_str show
           35 
           36       d_header_w user_header_center_str stringwidth pop sub 2 div
           37       0 moveto user_header_center_str show
           38 
           39       d_header_w user_header_right_str stringwidth pop sub 5 sub
           40       0 moveto user_header_right_str show
           41     } {
           42       5 0 moveto fname show
           43       45 0 rmoveto fmodstr show
           44       45 0 rmoveto pagenumstr show
           45     } ifelse
           46 
           47   grestore
           48 } def