From aa8f86756305a2231bfe0dcde7ea63ec7f246c94 Mon Sep 17 00:00:00 2001 From: Koichi KAMICHI Date: Thu, 30 Mar 2006 07:40:24 +0000 Subject: [PATCH] Divided into separated .pl file. Changed to use JavaScript glyph engine. Added index.html for web user interface. --- makettf/index.html | 45 ++++++++++++++ makettf/makeglyph.js | 54 ++++++++++++++++ makettf/makettf.cgi | 138 +++++++++++++++-------------------------- makettf/makettf.pl | 166 ++++++++++++++++++++++++++++++++++++++++++++++++++ 4 files changed, 314 insertions(+), 89 deletions(-) create mode 100644 makettf/index.html create mode 100644 makettf/makeglyph.js create mode 100755 makettf/makettf.pl diff --git a/makettf/index.html b/makettf/index.html new file mode 100644 index 0000000..8cd89c0 --- /dev/null +++ b/makettf/index.html @@ -0,0 +1,45 @@ + + + + + +TTF(TrueType)ãã©ã³ãçæ (è©¦ä½) + + +

TTF(TrueType)ãã©ã³ãçæ

+ +

(ä¾)
30A8
U+30A8
u30a8
u-00020000
ä¸
[å£±]

+æ³¨æ
+TrueTypeãã©ã³ããçæããã½ããã¦ã§ã¢fontforge ã®å¶ç´ã«ãããä»¥ä¸ã®æ¡ä»¶ãæºãããªãå ´åã«ã¯çæãããã©ã³ããWord2002ã§å©ç¨ã§ãã¾ããã +

fonts.jp

+ + + + diff --git a/makettf/makeglyph.js b/makettf/makeglyph.js new file mode 100644 index 0000000..26e4fe2 --- /dev/null +++ b/makettf/makeglyph.js @@ -0,0 +1,54 @@ +// arguments ... 0:target_char_name 1:related_parts 2:shotai 3:weight +// shotai ... mincho or gothic +// weight ... 1 3 5 7 + +load("engine/polygon.js"); +load("engine/polygons.js"); +load("engine/buhin.js"); +load("engine/kage.js"); +load("engine/kagecd.js"); +load("engine/kagedf.js"); + +kage = new Kage(); + +if(arguments[2] == "gothic"){ + kage.kShotai = kage.kGothic; +} else { + kage.kShotai = kage.kMincho; +} + +if(arguments[3] == 1){ + kage.kMinWidthY = 1; + kage.kMinWidthT = 4; + kage.kWidth = 3; + kage.kKakato = 4; +} else if(arguments[3] == 5){ + kage.kMinWidthY = 3; + kage.kMinWidthT = 8; + kage.kWidth = 7; + kage.kKakato = 2; +} else if(arguments[3] == 7){ + kage.kMinWidthY = 4; + kage.kMinWidthT = 10; + kage.kWidth = 9; + kage.kKakato = 1; +} else { + kage.kMinWidthY = 2; + kage.kMinWidthT = 6; + kage.kWidth = 5; + kage.kKakato = 3; +} + +polygons = new Polygons(); + +target = (unescape(arguments[0])); +buhin = (unescape(arguments[1])).replace(/\r\n|\n/g, "\r").replace(/\+|\t/g, " "); + +temp = buhin.split("\r"); +for(i = 0; i < temp.length; i++){ + temp2 = temp[i].split(" "); + kage.kBuhin.push(temp2[0], temp2[1]); +} + +kage.makeGlyph(polygons, target); +print(polygons.generateSVG()); diff --git a/makettf/makettf.cgi b/makettf/makettf.cgi index 9354620..a8fef42 100755 --- a/makettf/makettf.cgi +++ b/makettf/makettf.cgi @@ -1,67 +1,40 @@ #!/usr/bin/perl use utf8; +binmode STDOUT, ":utf8"; + use CGI; +$form = new CGI; $FONTFORGE = "/usr/local/bin/fontforge"; $PERL = "/usr/bin/perl"; -$ECHO = "/bin/echo"; $RM = "/bin/rm"; -$TEMP = "/tmp/tempKAGE"; -$KAGESCRIPT = "/home/kamichi/perl"; -$FMT = "svg"; $LICENSE = 'Created by KAGE system. (http://fonts.jp/)'; +$TEMP="temp"; -$form = new CGI; +$RANDOM = sprintf("%05X", rand() * 0x100000); +$TEMPDIR = "/tmp/makettf_$RANDOM"; +mkdir($TEMPDIR); -$fontname_en = $form->param('fontname-en'); -$fontname_en =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g; -$fontname_ja = $form->param('fontname-ja'); -$fontname_ja =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g; -utf8::decode($fontname_ja); -if($fontname_en eq ""){ - $fontname_en = "Untitled"; -} -if($fontname_ja eq ""){ - $fontname_ja = $fontname_en; -} - -#open FH, "<", "parts.txt"; -#$temp = ""; -#%parts = (); -#foreach(){ -# $temp .= $_; -# @temp = split(/ \t|\r\n|\r|\n/, $_); -# $parts{$temp[0]} = $temp[1]; -#} -#close FH; -@temp2 = split(/\r\n|\r|\n/, $partsdata); -$temp = ""; -%parts = (); -foreach(@temp2){ - $temp .= $_; - @temp = split(/ |\t|\r\n|\r|\n/, $_); - $parts{$temp[0]} = $temp[1]; -} -open FH, ">", "$TEMP.parts.txt"; -$temp =~ s/ /\t/g; -print FH $temp; -close FH; - -#open FH, "<", "map.txt"; -#%map = (); -#foreach(){ -# @temp = split(/\t|\r\n|\r|\n/, $_); -# $map{$temp[0]} = $temp[1]; -#} -#close FH; -@temp2 = split(/\r\n|\r|\n/, $mappingtable); -%map = (); -foreach(@temp2){ - @temp = split(/ |\t|\r\n|\r|\n/, $_); - $map{$temp[0]} = $temp[1]; -} +&makehead(); +&makefoot(); +&makeparts(); +$dummy = `$PERL makettf.pl $TEMPDIR $TEMP mincho 3`; +&sendfont(); -$script =<<"EOT"; +sub makehead{ + $fontname_en = $form->param('fontname-en'); + $fontname_en =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g; + $fontname_ja = $form->param('fontname-ja'); + $fontname_ja =~ s/[\;\&\#\"\'\%\\\$\:\!\=\~\^\`]//g; + utf8::decode($fontname_ja); + if($fontname_en eq ""){ + $fontname_en = "Untitled"; + } + if($fontname_ja eq ""){ + $fontname_ja = $fontname_en; + } + open FH, ">:utf8", "$TEMPDIR/head.txt"; + print FH <<"EOT"; New() Reencode("UnicodeFull") SetTTFName(0x409,0,"$LICENSE") @@ -70,53 +43,40 @@ SetTTFName(0x409,4,"$fontname_en") SetTTFName(0x411,1,"$fontname_ja") SetTTFName(0x411,4,"$fontname_ja") EOT - -foreach(sort(keys %map)){ - $temp = $parts{$map{$_}}; - $dummy = `cd $KAGESCRIPT; $ECHO '$temp' | $PERL $KAGESCRIPT/kagepre.pl $TEMP.parts.txt | $PERL $KAGESCRIPT/kage$FMT.pl > $TEMP.$_.$FMT`; - &addglyph($_); + close FH; } -&makefont; -sub addglyph{ - $script .=<<"EOT"; -Select(0u$_[0]) -Clear() -Import("$TEMP.$_[0].$FMT") -#Import("$TEMP.$_[0].$FMT",0,2) -RemoveOverlap() -Simplify() -SetWidth(1000) -SetVWidth(1000) -Move(0, 50) -RoundToInt() -AutoHint() -EOT +sub makefoot{ + open FH, ">:utf8", "$TEMPDIR/foot.txt"; + close FH; } -sub makefont{ - $script .= "Generate(\"$TEMP.ttf\", \"\", 0)\n"; - $script .= "Quit()\n"; - open FH, ">:utf8", "$TEMP.scr"; - print FH $script; +sub makeparts{ + my $temp = $form->param('partsdata'); + utf8::decode($temp); + open FH, ">:utf8", "$TEMPDIR/parts.txt"; + print FH $temp; close FH; - - $dummy = `export LANG=utf-8; $FONTFORGE -script $TEMP.scr 2>/dev/null`; - +} + +sub sendfont{ my $fdata = ""; my $fsize = 0; my @bdata; - open FH, "<$TEMP.ttf"; - $fsize = -s FH; - read FH, $fdata, $fsize; - close FH; print <<"EOT"; Content-type: application/octet-stream Content-Disposition: attachment; filename = $fontname_en.ttf -$fdata EOT - - $dummy = `$RM $TEMP*`; + open FH, "<:utf8", "$TEMPDIR/$TEMP.ttf"; + while(1){ + $readed = read FH, $fdata, 1024; + utf8::decode($fdata); + print $fdata; + if($readed <= 0){ + last; + } + } + close FH; + $dummy = `$RM -r $TEMPDIR`; } - diff --git a/makettf/makettf.pl b/makettf/makettf.pl new file mode 100755 index 0000000..d8e5f00 --- /dev/null +++ b/makettf/makettf.pl @@ -0,0 +1,166 @@ +#!/usr/bin/perl +use utf8; +use CGI; +binmode STDOUT, ":utf8"; + +if(scalar(@ARGV) != 4){ + print "Usage: makettf.pl WorkingDirectory WorkingName Shotai Weight\n"; + print "Shotai: mincho or gothic\n"; + print "Weight: 1 3 5 7\n"; + exit; +} + +$FONTFORGE = "/usr/local/bin/fontforge"; +$PERL = "/usr/bin/perl"; +$WORKDIR=$ARGV[0]; +$WORKNAME=$ARGV[1]; +$SHOTAI=$ARGV[2]; +$WEIGHT=$ARGV[3]; + +unlink "$WORKDIR/$WORKNAME.log"; +unlink "$WORKDIR/$WORKNAME.scr"; +unlink "$WORKDIR/$WORKNAME.ttf"; +mkdir "$WORKDIR/build"; + +sub addglyph{ + my $buffer =<<"EOT"; +Print(0u$_[0]) +Select(0u$_[0]) +Clear() +Import("$WORKDIR/build/$_[0].svg") +Scale(500) +Move(400, -400) +RemoveOverlap() +Simplify() +SetWidth(1000) +Move(0, 50) +RoundToInt() +AutoHint() +EOT + open FH, ">>:utf8", "$WORKDIR/$WORKNAME.scr"; + print FH $buffer; + close FH; +} + +sub makefont{ + my $buffer = "Generate(\"$WORKDIR/$WORKNAME.ttf\", \"\", 0)\n"; + $buffer .= "Quit()\n"; + open FH, ">>:utf8", "$WORKDIR/$WORKNAME.scr"; + print FH $buffer; + close FH; + + $buffer = `export LANG=utf-8; $FONTFORGE -script $WORKDIR/$WORKNAME.scr > $WORKDIR/$WORKNAME.log 2>&1`; + #open FH, ">>:utf8", "$WORKDIR/$WORKNAME.log"; + #print FH $buffer; + #close FH; +} + +sub addsubset{ + $subset{$_[0]} = $buhin{$_[0]}; + if($buhin{$_[0]} =~ m/(^|\$)99:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:[^:]*:(.+?)(\$|$)/){ + if(!exists($subset{$2})){ + &addsubset($2); + } + } +} + +# initialize +if(-e "$WORKDIR/head.txt"){ + open FH, "<:utf8", "$WORKDIR/head.txt"; + open FH2, ">>:utf8", "$WORKDIR/$WORKNAME.scr"; + while(!eof FH){ + my $buffer = ; + print FH2 $buffer; + } + close FH; + close FH2; +} +else{ + open FH, ">>:utf8", "$WORKDIR/$WORKNAME.log"; + print FH "No header file.\n"; + close FH; + exit; +} + +# parse buhin +%buhin = (); +if(-e "$WORKDIR/parts.txt"){ + open FH, "<:utf8", "$WORKDIR/parts.txt"; + my $buffer = ""; + while(){ + $buffer .= $_; + } + close FH; + $temp = $buffer; +} +else{ + open FH, ">>:utf8", "$WORKDIR/$WORKNAME.log"; + print FH "No parts file.\n"; + close FH; + exit; +} +@temp = split(/\r\n|\r|\n/, $temp); +foreach(@temp){ + @temp2 = split(/ |\t/, $_); + $buhin{$temp2[0]} = $temp2[1]; +} + +# parse target codepoint +%target = (); +foreach(sort(keys %buhin)){ + if($_ =~ m/^\[([^\]])\]$/){ + $target = sprintf("%X", unpack('U', $1)); + } elsif(length($_) == 1){ + $target = sprintf("%X", unpack('U', $_)); + } elsif($_ =~ m/^[Uu]{0,1}[\+\-]{0,1}([0-9A-Fa-f]{1,8})$/){ + $target = $1; + } else { + next; + } + $target =~ s/^0+//g; # delete zero for the beginning + $name = $_; + $target{$target} = $name; +} + +# make glyph for each target +foreach(sort(keys(%target))){ + $code = $_; + $target = $target{$_}; + %subset = (); + &addsubset($target); + $partsdata = ""; + foreach(keys(%subset)){ + $partsdata .= $_." ".$subset{$_}."\n"; + } + utf8::encode($target); + $target =~ s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge; + $target =~ s/\s/+/g; + utf8::encode($partsdata); + $partsdata =~ s/([^0-9A-Za-z_ ])/'%'.unpack('H2',$1)/ge; + $partsdata =~ s/\s/+/g; + $svg = `/usr/bin/js makeglyph.js $target $partsdata $SHOTAI $WEIGHT`; + open FH, ">$WORKDIR/build/$code.svg"; + print FH $svg; + close FH; + &addglyph($code); +} + +# scripts footer +if(-e "$WORKDIR/foot.txt"){ + open FH, "<:utf8", "$WORKDIR/foot.txt"; + open FH2, ">>:utf8", "$WORKDIR/$WORKNAME.scr"; + while(!eof FH){ + my $buffer = ; + print FH2 $buffer; + } + close FH; + close FH2; +} +else{ + open FH, ">>:utf8", "$WORKDIR/$WORKNAME.log"; + print FH "No footer file.\n"; + close FH; + exit; +} + +&makefont; -- 1.7.10.4

TTF(TrueType)ãã©ã³ãçæ

TTF(TrueType)ãã©ã³ãçæ