gnu-free-fonts/remove-kana-glyphs

40 lines
908 B
Plaintext

#!/usr/bin/fontforge -lang=ff
#
# Removes the Kana glyphs from a font
hex = Array(16)
hex[0]="0"; hex[1]="1"; hex[2]="2"; hex[3]="3"
hex[4]="4"; hex[5]="5"; hex[6]="6"; hex[7]="7"
hex[8]="8"; hex[9]="9"; hex[10]="a"; hex[11]="b"
hex[12]="c"; hex[13]="d"; hex[14]="e"; hex[15]="f"
if ($argc > 1)
i = 1;
while ( i < $argc )
Open($argv[i])
row = 0
while (row <= 15)
column = 0;
while (column <= 15)
charname = "uni30" + hex[row] + hex [column]
if (InFont(charname))
Select(charname)
Print ("Clearing ", charname)
Clear()
endif
column++
endloop
row++
endloop
file = $fontname + ".sfd"
Print("Saving ",file)
Save(file)
Close()
i++
endloop
else
Print("Usage: $0 font.sfd [font.sfd ...]")
endif