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 '