dejavu-fonts/scripts/italicize.pe

   1 # $Id$
   2
   3 # script file for FontForge for font italicization
   4 # usage: fontforge -script italicize.pe angle *.sfd
   5 #   created files have suffix .oblique
   6
   7 if ($argc < 2)
   8   Error("usage: angle sfds...")
   9 endif
  10 angle = Strtol($argv[1])
  11 i = 2
  12 while (i < $argc)
  13   Open($argv[i], 1)
  14   SelectAll()
  15   Skew(angle)
  16   SetItalicAngle(-angle)
  17   # Panose changes are valid only for DejaVu fonts (I guess)
  18   SetPanose(5, 3)
  19   SetPanose(7, 11)
  20   new_fontname = $fontname
  21   j = Strstr(new_fontname, "-Roman")
  22   if (j > -1)
  23     new_fontname = Strsub(new_fontname, 0, j)
  24   endif
  25   if (Strstr(new_fontname, "-") > -1)
  26     new_fontname = new_fontname + "Oblique"
  27   else
  28     new_fontname = new_fontname + "-Oblique"
  29   endif
  30   new_fullname = $fullname + " Oblique"
  31   SetFontNames(new_fontname, "", new_fullname)
  32   SetTTFName(1033, 3, new_fullname)
  33   Save($argv[i] + ".oblique")
  34   i++
  35 endloop