Merge from vendor branch TCPDUMP:
[dragonfly.git] / share / examples / BSD_daemon / poster.sh
1 #!/bin/sh
2 # ----------------------------------------------------------------------------
3 # "THE BEER-WARE LICENSE" (Revision 42):
4 # <phk@FreeBSD.ORG> wrote this file.  As long as you retain this notice you
5 # can do whatever you want with this stuff. If we meet some day, and you think
6 # this stuff is worth it, you can buy me a beer in return.   Poul-Henning Kamp
7 # ----------------------------------------------------------------------------
8 #
9 # $FreeBSD: src/share/examples/BSD_daemon/poster.sh,v 1.1.2.1 2001/03/04 09:19:24 phk Exp $
10 # $DragonFly: src/share/examples/BSD_daemon/Attic/poster.sh,v 1.2 2003/06/17 04:36:57 dillon Exp $
11 #
12
13 echo '%!'
14 echo '/beastie {'
15 cat beastie.eps
16 echo '} def'
17 cat FreeBSD.pfa
18
19 echo '
20
21 /mm {25.4 div 72 mul} def
22 /FreeBSD findfont 120 scalefont setfont
23 /center 210 mm 2 div def
24 /top 297 mm def
25 /cshow { dup stringwidth pop 2 div neg 0 rmoveto show } def
26
27 % "FreeBSD" across the top.
28 % 691 is "top - height of caps - (left - X("F"))"
29 center 691 moveto
30 (FreeBSD) cshow
31
32 % Put beastie in the center
33 /sc 1.25 def
34 center 125 moveto 
35 384 sc mul 2 div neg 0 rmoveto
36 gsave currentpoint translate sc sc scale beastie grestore
37
38 % A box for the bottom text
39 gsave
40 10 10 moveto
41 210 mm 20 sub 0 rlineto
42 0 70 rlineto
43 210 mm 20 sub neg 0 rlineto
44 closepath
45 .7 .7 .9 setrgbcolor
46 fill
47 grestore
48
49 % Bottom text
50 center 70 moveto 
51 /NRBWelshGillianBold findfont 50 scalefont setfont
52
53 center 30 moveto 
54 (http://www.FreeBSD.org) cshow
55
56 % Do not forget Kirks copyright string.
57 10 10 moveto 
58 /Times-Roman findfont 8 scalefont setfont
59 (BSD Daemon ) show
60 /Symbol findfont 8 scalefont setfont
61 (\343 ) show
62 /Times-Roman findfont 8 scalefont setfont
63 (Copyright 1988 by Marshall Kirk McKusick.  All Rights Reserved.) show
64
65 showpage
66 '