font/dev-ps/generate/make-zapfdr

   1 #!/bin/sh
   2 #@ make-zapfdr -- script for creating the file zapfdr.ps
   3 #@ Synopsis:
   4 #@    $ make-zapfdr < ZapfDingbats.afm > zapfdr.ps
   5 #
   6 # Copyright (c) 2014 - 2017 Steffen (Daode) Nurpmeso <steffen@sdaoden.eu>.
   7 #
   8 # Copyright (C) 2006
   9 # Free Software Foundation, Inc.
  10 #      Written by Werner Lemberg <wl@gnu.org>
  11 #
  12 # This is free software; you can redistribute it and/or modify it under
  13 # the terms of the GNU General Public License as published by the Free
  14 # Software Foundation; either version 2, or (at your option) any later
  15 # version.
  16 #
  17 # This is distributed in the hope that it will be useful, but WITHOUT ANY
  18 # WARRANTY; without even the implied warranty of MERCHANTABILITY or
  19 # FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  20 # for more details.
  21 #
  22 # You should have received a copy of the GNU General Public License along
  23 # with groff; see the file COPYING.  If not, write to the Free Software
  24 # Foundation, 51 Franklin St - Fifth Floor, Boston, MA 02110-1301, USA.
  25
  26 # Write preamble.
  27 cat <<END
  28 %!PS-Adobe-3.0 Resource-Font
  29 %%DocumentNeededResources: Font ZapfDingbats
  30 %%EndComments
  31 %%IncludeResource: Font ZapfDingbats
  32
  33 /ZapfDingbats findfont [-1 0 0 1 0 0] makefont
  34
  35 dup length 1 add dict begin
  36 {
  37         exch dup dup /FID ne exch /UniqueID ne and {
  38                 exch def
  39         } {
  40                 pop pop
  41         } ifelse
  42 } forall
  43
  44 /FontName /ZapfDingbats-Reverse def
  45 END
  46
  47 # Emit reverse metrics.
  48 sed '
  49   /^StartCharMetrics/ {
  50     s|StartCharMetrics \([0-9]*\)|/Metrics \1 dict dup begin|
  51     H
  52     d
  53   }
  54
  55   /^C / {
  56     s|^.*$|&@|
  57     s|^.* N \([^ ]*\) ;.*$|&/\1 [|
  58     s|^.* B [0-9-]* [0-9-]* \([0-9]*\) [0-9-]* ;.*$|&-\1 |
  59     s|^.* B [0-9-]* [0-9-]* -\([0-9]*\) [0-9-]* ;.*$|&\1 |
  60     s|^.* WX \([0-9]*\) ;.*$|&-\1] def|
  61     s|^.* WX -\([0-9]*\) ;.*$|&\1] def|
  62     s|^.*@|     |
  63     H
  64     d
  65   }
  66
  67   $ {
  68     g
  69     p
  70   }
  71
  72   d
  73 '
  74
  75 # Write postamble.
  76 cat <<END
  77
  78 end def
  79
  80 /ZapfDingbats-Reverse currentdict end definefont pop
  81 END
  82
  83 # s-sh-mode