dejavu-fonts/scripts/lgc.pe

   1 #!/usr/bin/env fontforge
   2
   3 # script to strip non-LGC glyphs out of the fonts
   4
   5 i = 1
   6 while ( i < $argc )
   7   Open($argv[i], 1)
   8
   9   Select(0u0530, 0u1cff)
  10   SelectMore(0u2c00, 0u2c5f)
  11   SelectMore(0u2cff, 0ua6ff)
  12   SelectMore(0ua800, 0udfff)
  13   SelectMore(0uf900, 0ufaff)
  14   SelectMore(0ufb07, 0ufe1f)
  15   SelectMore(0ufe30, 0uffef)
  16 #  SelectMore(0u10000, 0ueffff)
  17   Clear()
  18
  19   Save($argv[i])
  20   i++
  21 endloop