diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/CJK/utils/subfonts/vertical.pe')
-rw-r--r-- | Master/texmf-dist/source/latex/CJK/utils/subfonts/vertical.pe | 83 |
1 files changed, 0 insertions, 83 deletions
diff --git a/Master/texmf-dist/source/latex/CJK/utils/subfonts/vertical.pe b/Master/texmf-dist/source/latex/CJK/utils/subfonts/vertical.pe deleted file mode 100644 index df8e0bf1dcf..00000000000 --- a/Master/texmf-dist/source/latex/CJK/utils/subfonts/vertical.pe +++ /dev/null @@ -1,83 +0,0 @@ -# Generate a font which contains vertical glyph representations. -# The font is created in the current directory. -# -# $1: The master font (e.g., `bsmi00lp.ttf'). -# $2: The name of the vertical font (e.g., `bsmilpv'). - -# Copyright (C) 1994-2006 Werner Lemberg <wl@gnu.org> -# -# This program is free software; you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 2 of the License, or -# (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program in doc/COPYING; if not, write to the Free -# Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, -# MA 02110-1301 USA - -if ($argc != 3) - Print("usage: [fontforge -script] ", $0, " master-font vertical-fontname"); - Quit(1); -endif; - -Print("Loading ", $1, "..."); -Open($1); - -fontname = $2; -fullname = $fullname + " vertical"; -copyright = $copyright \ - + Chr(10) + Chr(10) \ - + "Vertical glyph representations version 2005-07-01."; -SetFontNames(fontname, "", fullname, "", copyright, ""); - -SelectByATT("Substitution", "vert", "", 1); -ApplySubstitution("*", "*", "vert"); -SelectInvert(); -DetachAndRemoveGlyphs(); - -Print("Ensure third order curves..."); -SetFontOrder(3); - -Print("Scaling to PostScript units..."); -ScaleToEm(900, 100); - -num_chars = CharCnt(); -count = 0; -delta = 100; - -while (count + delta < num_chars) - Print(count, "/", num_chars - 1, ":"); - Select(count, count + delta); - - Print(" Add extrema..."); - AddExtrema(); - - Print(" Simplifying outlines..."); - Simplify(0, 2); - - count += delta; -endloop; - -Print(count, "/", num_chars - 1, ":"); -Select(count, num_chars - 1); - -Print(" Add extrema..."); -AddExtrema(); - -Print(" Simplifying outlines..."); -Simplify(0, 2); - -Reencode("original"); - -# generate AFM and TFM files, no PS hints, and rounded PS coordinates -Print("Generating font..."); -Generate($2 + ".pfb", "", \ - 0x1 | 0x100 | 0x10000 | 0x80000 | 0x200000); - -Quit(0); |