dejavu-fonts/narrowmerge.pe

   1 #!/usr/bin/env fontforge
   2 # $Id$
   3
   4 # script file for FontForge for font narrowing after merge
   5 # usage: fontforge -script narrowmerge.pe scale sfd glyph_codes*
   6 #   created file has suffix .narrow
   7
   8 # DejaVu Condensed have scale 90
   9
  10 if ($version < "20050209")
  11   Error("Your version of FontForge transforms glyphs w/o content");
  12 endif
  13 if ($argc < 3)
  14   Error("usage: scale sfd glyph_codes...")
  15 endif
  16 scale = Strtol($argv[1])
  17 file = $argv[2]
  18 if ($argc < 4)
  19   Print("Nothing to do for ", file)
  20   Quit(0)
  21 endif
  22 Open(file, 1)
  23 i = 3
  24 while (i < $argc)
  25   SelectMore(Strtol($argv[i]))
  26   i++
  27 endloop
  28 Scale(scale, 100)
  29 Save(file + ".narrow")