PageRenderTime 20ms CodeModel.GetById 12ms app.highlight 4ms RepoModel.GetById 1ms app.codeStats 0ms

/share/examples/printing/make-ps-header

https://bitbucket.org/freebsd/freebsd-head/
Shell | 79 lines | 53 code | 8 blank | 18 comment | 1 complexity | 85aded538d08916addb2c6f44b3530e9 MD5 | raw file
 1#!/bin/sh
 2#
 3#  make-ps-header - make a PostScript header page on stdout
 4#  Installed in /usr/local/libexec/make-ps-header
 5#
 6
 7#
 8#  These are PostScript units (72 to the inch).  Modify for A4 or
 9#  whatever size paper you are using:
10#
11page_width=612
12page_height=792
13border=72
14
15#
16#  Check arguments
17#
18if [ $# -ne 3 ]; then
19    echo "Usage: `basename $0` <user> <host> <job>" 1>&2
20    exit 1
21fi
22
23#
24#  Save these, mostly for readability in the PostScript, below.
25#
26user=$1
27host=$2
28job=$3
29date=`date`
30
31#
32#  Send the PostScript code to stdout.
33#
34exec cat <<EOF
35%!PS
36
37%
38%  Make sure we do not interfere with user's job that will follow
39%
40save
41
42%
43%  Make a thick, unpleasant border around the edge of the paper.
44%
45$border $border moveto
46$page_width $border 2 mul sub 0 rlineto
470 $page_height $border 2 mul sub rlineto
48currentscreen 3 -1 roll pop 100 3 1 roll setscreen
49$border 2 mul $page_width sub 0 rlineto closepath
500.8 setgray 10 setlinewidth stroke 0 setgray
51
52%
53%  Display user's login name, nice and large and prominent
54%
55/Helvetica-Bold findfont 64 scalefont setfont
56$page_width ($user) stringwidth pop sub 2 div $page_height 200 sub moveto
57($user) show
58
59%
60%  Now show the boring particulars
61%
62/Helvetica findfont 14 scalefont setfont
63/y 200 def
64[ (Job:) (Host:) (Date:) ] {
65	200 y moveto show /y y 18 sub def
66} forall
67
68/Helvetica-Bold findfont 14 scalefont setfont
69/y 200 def
70[ ($job) ($host) ($date) ] {
71	270 y moveto show /y y 18 sub def
72} forall
73
74%
75%  That is it
76%
77restore
78showpage
79EOF