dejavu-fonts/narrow.pe

   1 #!/usr/bin/env fontforge
   2 # $Id$
   3
   4 # script file for FontForge for font narrowing
   5 # usage: fontforge -script narrow.pe scale *.sfd
   6 #   created files have 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 < 2)
  14   Error("usage: scale sfds...")
  15 endif
  16 scale = Strtol($argv[1])
  17 i = 2
  18 while (i < $argc)
  19   Open($argv[i], 1)
  20   SelectAll()
  21   Scale(scale, 100, 0, 0)
  22   # Panose changes are valid only for DejaVu fonts (I guess)
  23   SetPanose(3, 6)
  24   new_fontname = $fontname
  25   j = Strstr(new_fontname, "-Roman")
  26   if (j > -1)
  27     new_fontname = Strsub(new_fontname, 0, j)
  28   endif
  29   j = Strstr(new_fontname, "-")
  30   if (j > -1)
  31     new_fontname = Strsub(new_fontname, 0, j) + "Condensed" + Strsub(new_fontname, j)
  32   else
  33     new_fontname = new_fontname + "Condensed"
  34   endif
  35   new_fullname = $fullname
  36   j = Strstr(new_fullname, "Bold")
  37   if (j == -1)
  38     j = Strstr(new_fullname, "Oblique")
  39   endif
  40   if (j > -1)
  41     new_fullname = Strsub(new_fullname, 0, j) + "Condensed " + Strsub(new_fullname, j)
  42   else
  43     new_fullname = new_fullname + " Condensed"
  44   endif
  45   new_familyname = $familyname + " Condensed"
  46   SetFontNames(new_fontname, new_familyname, new_fullname)
  47   SetTTFName(1033, 3, new_fullname)
  48   Save($argv[i] + ".narrow")
  49   i++
  50 endloop