psutils/showchar.sh

   1 #!/bin/sh
   2 # showchar: show character with information
   3 # usage:
   4 #       showchar Font-Name Char-Name | lpr -Pprinter
   5
   6 if [ $# != 2 ]; then
   7         echo "Usage: `basename $0` Font-Name Char-Name" >&2
   8         exit 1
   9 fi
  10
  11 cat <<EOF
  12 %!
  13 % Get character metrics and bounding box for $1
  14 /ns 30 string def
  15 /fname /$1 def
  16 /cname /$2 def
  17 /fn fname findfont 1000 scalefont def
  18 /thin 0.7 def
  19 /reduction 2.0 def
  20
  21 /sn { ns cvs show } def
  22 /sc { (\()show exch sn (,)show sn (\))show } def
  23
  24 /Times-Roman findfont 10 scalefont setfont
  25
  26 72 242 translate % one inch in, 3 1/2 inch up
  27 newpath 0 0 moveto
  28 gsave   % print character name
  29    0 468 rmoveto
  30    ($2 from font $1 displayed on `date` by `basename $0` 1.00 (C) AJCD 1991)
  31    show
  32 grestore
  33
  34 gsave
  35    thin setlinewidth  % cross hairs
  36    -9 0 rmoveto 18 0 rlineto
  37    -9 -9 rmoveto 0 18 rlineto
  38    stroke  % position info
  39    -9 -9 moveto ((0,0)) stringwidth pop neg 0 rmoveto
  40    ((0,0)) show
  41 grestore
  42
  43 % create encoding with a single character at all positions
  44 /MyEncoding 256 array def
  45
  46 0 1 255 { % fill out with notdefs
  47    MyEncoding exch cname put
  48 } for
  49
  50 fn dup length dict begin
  51   {1 index /FID ne {def} {pop pop} ifelse} forall
  52   /Encoding MyEncoding def
  53   currentdict
  54 end /newfont exch definefont
  55 /fn exch def
  56 /en MyEncoding def
  57
  58 gsave  % draw character (enlarged)
  59   .75 setgray
  60   fn 1 reduction div scalefont setfont
  61   (\000) show
  62 grestore
  63
  64 % show character info
  65 fn /Metrics known {
  66    dup fn /Metrics get exch get
  67    dup type /arraytype eq {
  68       dup length 2 eq
  69       {1 get 0} {dup 2 get exch 3 get} ifelse
  70    } {
  71       round 0
  72    } ifelse
  73 } {
  74    gsave
  75       fn setfont (\000) stringwidth round exch round exch
  76    grestore
  77 } ifelse
  78 gsave   % show width
  79    thin setlinewidth
  80    2 copy
  81    reduction div exch reduction div exch rlineto
  82    gsave
  83       1 1 rmoveto sc
  84    grestore
  85    -4 -3 rlineto 0 6 rmoveto 4 -3 rlineto
  86    stroke
  87 grestore
  88
  89 gsave
  90    gsave  % get bounding box
  91       fn setfont
  92       (\000) true charpath flattenpath pathbbox
  93    grestore
  94    thin setlinewidth
  95    3 index reduction div  % put coords on top of stack
  96    3 index reduction div
  97    3 index reduction div
  98    3 index reduction div
  99    3 index 3 index moveto
 100    gsave  % llx lly
 101       0 -9 rmoveto 7 index 7 index sc
 102    grestore
 103    1 index 3 index lineto
 104    gsave  % urx lly
 105       0 -9 rmoveto 5 index 7 index sc
 106    grestore
 107    1 index 1 index lineto
 108    gsave  % urx ury
 109       0 9 rmoveto 5 index 5 index sc
 110    grestore
 111    3 index 1 index lineto
 112    gsave  % llx ury
 113       0 9 rmoveto 7 index 5 index sc
 114    grestore
 115    closepath stroke
 116 grestore
 117 showpage
 118 EOF