head	1.1;
access;
symbols;
locks; strict;
comment	@# @;


1.1
date	2008.07.02.12.04.54;	author wkpark;	state Exp;
branches;
next	;


desc
@@


1.1
log
@update and add missing files
@
text
@#!/usr/bin/perl
use Font::TTF::Font;

if ($] > 5.007) {
   require Encode;
   Encode::_utf8_off($_);
}

$f = Font::TTF::Font->open($ARGV[0]) || die "Can't open $ARGV[0]";
$f->{'name'}->read;

$f->{'name'}{'strings'}[6][1][3]{0x17}=$f->{'name'}{'strings'}[6][3][1]{1033};
$f->{'name'}{'strings'}[6][3][1]{1042}=$f->{'name'}{'strings'}[6][3][1]{1033};
$f->{'name'}{'strings'}[3][1][3]{0x17}=$f->{'name'}{'strings'}[3][1][0]{0};

$f->out($ARGV[1]);
@
