File remove-kana-glyphs of Package freefont

#!/usr/bin/fontforge
#
# 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