Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:12.2
gnu-free-fonts
remove-kana-glyphs
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File remove-kana-glyphs of Package gnu-free-fonts
#!/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
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor