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   Select(Strtol($argv[i]))
  26   ref_count = GlyphInfo("RefCount")
  27   if (ref_count == 0)
  28     Scale(scale, 100, 0, 0)
  29   else
  30     Print(GlyphInfo("Name"), " contains references: not scaled")
  31   endif
  32   i++
  33 endloop
  34 Save(file + ".narrow")