diff options
Diffstat (limited to 'Master/texmf-dist/source/fonts/japanese-otf/script/mktfm.pl')
-rwxr-xr-x | Master/texmf-dist/source/fonts/japanese-otf/script/mktfm.pl | 164 |
1 files changed, 0 insertions, 164 deletions
diff --git a/Master/texmf-dist/source/fonts/japanese-otf/script/mktfm.pl b/Master/texmf-dist/source/fonts/japanese-otf/script/mktfm.pl deleted file mode 100755 index ae0b82a2c11..00000000000 --- a/Master/texmf-dist/source/fonts/japanese-otf/script/mktfm.pl +++ /dev/null @@ -1,164 +0,0 @@ -#!/usr/bin/perl -$multi=3; -@tex_tfm_h=(0x00, 0x0B, 0x00, 0x01, 0x00, 0x2B, 0x00, 0x12, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x02, 0x00, 0x02, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0xA0, 0x00, 0x00, 0x0E, 0x54, 0x45, 0x58, 0x20, 0x4B, 0x41, 0x4E, 0x4A, 0x49, 0x20, 0x54, 0x45, 0x58, 0x54, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x4F, 0x54, 0x46, 0x20, 0x4B, 0x41, 0x4E, 0x4A, 0x49, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0E, 0x14, 0x7B, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0xEB, 0x85, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x99, 0x9A, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x03, 0x33, 0x33, 0x00, 0x02, 0x00, 0x00); -@tex_tfm_v=(0x00, 0x09, 0x00, 0x01, 0x00, 0x2B, 0x00, 0x12, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x02, 0x00, 0x02, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0xA0, 0x00, 0x00, 0x0E, 0x54, 0x45, 0x58, 0x20, 0x4B, 0x41, 0x4E, 0x4A, 0x49, 0x20, 0x54, 0x45, 0x58, 0x54, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x4F, 0x54, 0x46, 0x20, 0x4B, 0x41, 0x4E, 0x4A, 0x49, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x99, 0x9A, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, 0x03, 0x33, 0x33, 0x00, 0x02, 0x00, 0x00); -@dvips_tfm_h=(0x00, 0x0B, 0x00, 0x01, 0x00, 0x1B, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x02, 0x00, 0x02, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0xA0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x0E, 0x14, 0x7B, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0xEB, 0x85, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00); -@dvips_tfm_v=(0x00, 0x09, 0x00, 0x01, 0x00, 0x1B, 0x00, 0x02, 0x00, 0x00, 0x00, 0x00, 0x00, 0x02, 0x00, 0x02, 0x00, 0x02, 0x00, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x09, 0x00, 0x00, 0x00, 0x00, 0x00, 0xA0, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x01, 0x11, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x08, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x10, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00); - -opendir(TFM, "tfm") || mkdir("tfm",0755) || die "cannot mkdir tfm"; -&make_utf_tfm; -&make_cid_tfm; -&make_multi_utf_tfm; -&make_utf_allinone_tfm; -&make_multi_cid_tfm; - -sub make_utf_tfm { - for ($k=0; $k<=6; $k++){#face - if ($k==0) {$face="mr";}elsif ($k==1){$face="gr";}elsif ($k==2){$face="mb";} - elsif ($k==3){$face="gb";}elsif ($k==4){$face="mgr";}elsif ($k==5){$face="ml";} - elsif ($k==6){$face="ge";} - for ($l=0; $l<=0; $l++){#language - if ($l==0) {$lang="j";} elsif ($l==1) {$lang="k";} - elsif ($l==2) {$lang="c";} elsif ($l==3){$lang="t";} - for ($i=0; $i<=1; $i++){#direction - if ($i==0) {$dir="h";}elsif ($i==1){$dir="v";} - $varfilename="otf-u$lang$face-$dir"; - open(DVIPSTFM,">tfm/$varfilename.tfm") || die "Can't make \'tfm/$varfilename.tfm\'!\n"; - if ($i==0) { - foreach $binary(@dvips_tfm_h) {$_ = pack("C", $binary);print DVIPSTFM "$_";} - }elsif ($i==1){ - foreach $binary(@dvips_tfm_v) {$_ = pack("C", $binary);print DVIPSTFM "$_";} - } - close(DVIPSTFM); - for ($first_hex=0x0; $first_hex <= 0xf; $first_hex++){ - $filename="utf$lang$face".sprintf("%x",$first_hex)."-$dir"; - open(TEXTFM,">tfm/$filename.tfm") || die "Can't make \'tfm/$filename.tfm\'!\n"; - if ($i==0) { - foreach $binary(@tex_tfm_h) {$_ = pack("C", $binary);print TEXTFM "$_";} - }elsif ($i==1){ - foreach $binary(@tex_tfm_v) {$_ = pack("C", $binary);print TEXTFM "$_";} - } - close(TEXTFM); - } - } - } - } -} - -sub make_cid_tfm { - for ($k=0; $k<=6; $k++){#face - if ($k==0) {$face="mr";}elsif ($k==1){$face="gr";}elsif ($k==2){$face="mb";} - elsif ($k==3){$face="gb";}elsif ($k==4){$face="mgr";}elsif ($k==5){$face="ml";} - elsif ($k==6){$face="ge";} - for ($l=0; $l<=0; $l++){#language - if ($l==0) {$lang="j";} elsif ($l==1) {$lang="k";} - elsif ($l==2) {$lang="c";} elsif ($l==3){$lang="t";} - for ($i=0; $i<=1; $i++){#direction - if ($i==0) {$dir="h";}elsif ($i==1){$dir="v";} - $varfilename="otf-cj$face-$dir"; - open(DVIPSTFM,">tfm/$varfilename.tfm") || die "Can't make \'tfm/$varfilename.tfm\'!\n"; - binmode(DVIPSTFM); - if ($i==0) { - foreach $binary(@dvips_tfm_h) {$_ = pack("C", $binary);print DVIPSTFM "$_";} - }elsif ($i==1){ - foreach $binary(@dvips_tfm_v) {$_ = pack("C", $binary);print DVIPSTFM "$_";} - } - close(DVIPSTFM); - for ($first_hex=0x0; $first_hex <= 0x5; $first_hex++){ - $filename="cidj$face".sprintf("%x",$first_hex)."-$dir"; - open(TEXTFM,">tfm/$filename.tfm") || die "Can't make \'tfm/$filename.tfm\'!\n"; - binmode(TEXTFM); - if ($i==0) { - foreach $binary(@tex_tfm_h) {$_ = pack("C", $binary);print TEXTFM "$_";} - }elsif ($i==1){ - foreach $binary(@tex_tfm_v) {$_ = pack("C", $binary);print TEXTFM "$_";} - } - close(TEXTFM); - } - } - } - } -} - -sub make_multi_utf_tfm { - for ($k=0; $k<=1; $k++){#face - if ($k==0) {$face="mr";}elsif ($k==1){$face="gr";} - for ($l=1; $l<=$multi; $l++){#language - if ($l==0) {$lang="j";} elsif ($l==1) {$lang="k";} - elsif ($l==2) {$lang="c";} elsif ($l==3){$lang="t";} - for ($i=0; $i<=1; $i++){#direction - if ($i==0) {$dir="h";}elsif ($i==1){$dir="v";} - $varfilename="otf-u$lang$face-$dir"; - open(DVIPSTFM,">tfm/$varfilename.tfm") || die "Can't make \'tfm/$varfilename.tfm\'!\n"; - binmode(DVIPSTFM); - if ($i==0) { - foreach $binary(@dvips_tfm_h) {$_ = pack("C", $binary);print DVIPSTFM "$_";} - }elsif ($i==1){ - foreach $binary(@dvips_tfm_v) {$_ = pack("C", $binary);print DVIPSTFM "$_";} - } - close(DVIPSTFM); - for ($first_hex=0x0; $first_hex <= 0xf; $first_hex++){ - $filename="utf$lang$face".sprintf("%x",$first_hex)."-$dir"; - open(TEXTFM,">tfm/$filename.tfm") || die "Can't make \'tfm/$filename.tfm\'!\n"; - binmode(TEXTFM); - if ($i==0) { - foreach $binary(@tex_tfm_h) {$_ = pack("C", $binary);print TEXTFM "$_";} - }elsif ($i==1){ - foreach $binary(@tex_tfm_v) {$_ = pack("C", $binary);print TEXTFM "$_";} - } - close(TEXTFM); - } - } - } - } -} -sub make_multi_cid_tfm { - for ($k=0; $k<=1; $k++){#face - if ($k==0) {$face="mr";}elsif ($k==1){$face="gr";} - for ($l=1; $l<=$multi; $l++){#language - if ($l==1) {$lang="k";$max_hex=4;} elsif ($l==2) {$lang="c";$max_hex=7;} elsif ($l==3){$lang="t";$max_hex=4;} - for ($i=0; $i<=1; $i++){#direction - if ($i==0) {$dir="h";}elsif ($i==1){$dir="v";} - $varfilename="otf-c$lang$face-$dir"; - open(DVIPSTFM,">tfm/$varfilename.tfm") || die "Can't make \'tfm/$varfilename.tfm\'!\n"; - binmode(DVIPSTFM); - if ($i==0) { - foreach $binary(@dvips_tfm_h) {$_ = pack("C", $binary);print DVIPSTFM "$_";} - }elsif ($i==1){ - foreach $binary(@dvips_tfm_v) {$_ = pack("C", $binary);print DVIPSTFM "$_";} - } - close(DVIPSTFM); - for ($first_hex=0x0; $first_hex <= $max_hex; $first_hex++){ - $filename="cid$lang$face".sprintf("%x",$first_hex)."-$dir"; - open(TEXTFM,">tfm/$filename.tfm") || die "Can't make \'tfm/$filename.tfm\'!\n"; - binmode(TEXTFM); - if ($i==0) { - foreach $binary(@tex_tfm_h) {$_ = pack("C", $binary);print TEXTFM "$_";} - }elsif ($i==1){ - foreach $binary(@tex_tfm_v) {$_ = pack("C", $binary);print TEXTFM "$_";} - } - close(TEXTFM); - } - } - } - } -} -sub make_utf_allinone_tfm { - for ($k=0; $k<=1; $k++){#face - if ($k==0) {$face="mr";}elsif ($k==1){$face="gr";} - for ($i=0; $i<=1; $i++){#direction - if ($i==0) {$dir="h";}elsif ($i==1){$dir="v";} - for ($first_hex=0x0; $first_hex <= 0xf; $first_hex++){ - $filename="utf$face".sprintf("%x",$first_hex)."-$dir"; - open(TEXTFM,">tfm/$filename.tfm") || die "Can't make \'tfm/$filename.tfm\'!\n"; - if ($i==0) { - foreach $binary(@tex_tfm_h) {$_ = pack("C", $binary);print TEXTFM "$_";} - }elsif ($i==1){ - foreach $binary(@tex_tfm_v) {$_ = pack("C", $binary);print TEXTFM "$_";} - } - close(TEXTFM); - } - } - } -} - |