From 75ce6de4c6c372d9588bc5dfedd76e08f067000d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 14 May 2016 16:13:26 +0000 Subject: missed commit git-svn-id: svn://tug.org/texlive/trunk@41116 c570f23f-e606-0410-a88d-b1316a301751 --- .../source/fonts/uptex-fonts/makepl.perl | 123 +++++++++++++++++++++ 1 file changed, 123 insertions(+) create mode 100644 Master/texmf-dist/source/fonts/uptex-fonts/makepl.perl (limited to 'Master/texmf-dist/source/fonts') diff --git a/Master/texmf-dist/source/fonts/uptex-fonts/makepl.perl b/Master/texmf-dist/source/fonts/uptex-fonts/makepl.perl new file mode 100644 index 00000000000..cc06e7a5db9 --- /dev/null +++ b/Master/texmf-dist/source/fonts/uptex-fonts/makepl.perl @@ -0,0 +1,123 @@ +#!/usr/bin/perl -n -s + +use utf8; + +$hankana=$hk; # option -hk + +if (/CHARWD|FONTAT|MOVERIGHT|QUAD|GLUE/) { + s/0\.96221\d/1.000000/g; # + s/0\.72166\d/0.750000/g; # + s/0\.48110\d/0.500000/g; # + s/0\.24055\d/0.250000/g; # +} elsif (/CHAR(HT|DP)|XHEIGHT|\(STRETCH|EXTRASPACE|EXTRASTRE|EXTRASHRINK/) { + s/0\.09164\d/0.100000/; # 0.100000 STRETCH + s/0\.91644\d/1.000000/; # 1.000000 XHEIGHT + s/0\.22910\d/0.250000/; # 0.250000 EXTRASPACE + s/0\.18328\d/0.200000/; # 0.200000 EXTRASTRETCH + s/0\.11455\d/0.125000/; # 0.125000 EXTRASHRINK + s/0\.77758\d/0.880000/; # 0.880000 CHARHT + s/0\.13885\d/0.120000/; # 0.120000 CHARDP + s/0\.45822\d/0.500000/; # 0.500000 CHARHT, CHARDP (vertical) +} elsif (/FAMILY/) { + s/ JIS / UPJIS /; +} elsif (/CHARSINTYPE\s+\S+\s+(\d+)/) { + $charsintype=$1; +} elsif (/LABEL\s+\S+\s+(\d+)/) { + $label=$1; +} elsif (/TYPE\s+\S+\s+(\d+)/) { + $type=$1; +} + +if ($charsintype==1 && /\)/) { + print <