summaryrefslogtreecommitdiff
path: root/fonts/gothic
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/gothic
Initial commit
Diffstat (limited to 'fonts/gothic')
-rw-r--r--fonts/gothic/blacklettert1/COPYING318
-rw-r--r--fonts/gothic/blacklettert1/INSTALL29
-rw-r--r--fonts/gothic/blacklettert1/Makefile66
-rw-r--r--fonts/gothic/blacklettert1/README21
-rw-r--r--fonts/gothic/blacklettert1/blacklettert1.dtx6280
-rw-r--r--fonts/gothic/blacklettert1/blacklettert1.ins98
-rw-r--r--fonts/gothic/blacklettert1/cmbsy10.pl767
-rw-r--r--fonts/gothic/blacklettert1/cmbx10.pl980
-rw-r--r--fonts/gothic/blacklettert1/cmmi10.pl1133
-rw-r--r--fonts/gothic/blacklettert1/cmmib10.pl1132
-rw-r--r--fonts/gothic/blacklettert1/cmr10.pl980
-rw-r--r--fonts/gothic/blacklettert1/cmr7.pl980
-rw-r--r--fonts/gothic/blacklettert1/cmsy10.pl769
-rw-r--r--fonts/gothic/blacklettert1/cmu10.pl963
-rw-r--r--fonts/gothic/blacklettert1/ecbx1000.pl3853
-rw-r--r--fonts/gothic/blacklettert1/ecrm0700.pl3853
-rw-r--r--fonts/gothic/blacklettert1/ecrm1000.pl3853
-rw-r--r--fonts/gothic/blacklettert1/t1yfrak.fd30
-rw-r--r--fonts/gothic/blacklettert1/tfrak.tfmbin0 -> 7288 bytes
-rw-r--r--fonts/gothic/blacklettert1/tfrak.vfbin0 -> 3456 bytes
-rw-r--r--fonts/gothic/blacklettert1/tfrakls.tfmbin0 -> 1892 bytes
-rw-r--r--fonts/gothic/blacklettert1/tfrakls.vfbin0 -> 4756 bytes
-rw-r--r--fonts/gothic/blacklettert1/tgoth.tfmbin0 -> 5944 bytes
-rw-r--r--fonts/gothic/blacklettert1/tgoth.vfbin0 -> 5300 bytes
-rw-r--r--fonts/gothic/blacklettert1/tswab.tfmbin0 -> 6196 bytes
-rw-r--r--fonts/gothic/blacklettert1/tswab.vfbin0 -> 2956 bytes
-rw-r--r--fonts/gothic/blacklettert1/yfrak.pl652
-rw-r--r--fonts/gothic/blacklettert1/ygoth.pl723
-rw-r--r--fonts/gothic/blacklettert1/yswab.pl719
-rw-r--r--fonts/gothic/cmfrak/00readme_fraktur.msg23
-rw-r--r--fonts/gothic/cmfrak/cmfrabase.mf231
-rw-r--r--fonts/gothic/cmfrak/cmfrak.mf8
-rw-r--r--fonts/gothic/cmfrak/cmfraklow.mf785
-rw-r--r--fonts/gothic/cmfrak/cmfrakmis.mf769
-rw-r--r--fonts/gothic/cmfrak/cmfraknum.mf194
-rw-r--r--fonts/gothic/cmfrak/cmfrakoth.mf551
-rw-r--r--fonts/gothic/cmfrak/cmfrakupp.mf1749
-rw-r--r--fonts/gothic/cmfrak/dcfrak.mf8
-rw-r--r--fonts/gothic/cmfrak/xxfrak.mf168
-rw-r--r--fonts/gothic/corkpaper.tex570
-rw-r--r--fonts/gothic/oldlatin/README22
-rw-r--r--fonts/gothic/oldlatin/olb10.mf80
-rw-r--r--fonts/gothic/oldlatin/olbx10.mf80
-rw-r--r--fonts/gothic/oldlatin/olbx12.mf80
-rw-r--r--fonts/gothic/oldlatin/olbx5.mf80
-rw-r--r--fonts/gothic/oldlatin/olbx6.mf80
-rw-r--r--fonts/gothic/oldlatin/olbx7.mf80
-rw-r--r--fonts/gothic/oldlatin/olbx8.mf80
-rw-r--r--fonts/gothic/oldlatin/olbx9.mf80
-rw-r--r--fonts/gothic/oldlatin/olbxsl10.mf80
-rw-r--r--fonts/gothic/oldlatin/oldlatin.pdfbin0 -> 51234 bytes
-rw-r--r--fonts/gothic/oldlatin/oldlatin.tex252
-rw-r--r--fonts/gothic/oldlatin/oldunh10.mf80
-rw-r--r--fonts/gothic/oldlatin/olff10.mf80
-rw-r--r--fonts/gothic/oldlatin/olfib8.mf80
-rw-r--r--fonts/gothic/oldlatin/olr10.mf80
-rw-r--r--fonts/gothic/oldlatin/olr10s.mf80
-rw-r--r--fonts/gothic/oldlatin/olr12.mf80
-rw-r--r--fonts/gothic/oldlatin/olr17.mf80
-rw-r--r--fonts/gothic/oldlatin/olr5.mf80
-rw-r--r--fonts/gothic/oldlatin/olr6.mf80
-rw-r--r--fonts/gothic/oldlatin/olr7.mf80
-rw-r--r--fonts/gothic/oldlatin/olr8.mf80
-rw-r--r--fonts/gothic/oldlatin/olr9.mf80
-rw-r--r--fonts/gothic/oldlatin/olsl10.mf80
-rw-r--r--fonts/gothic/oldlatin/olsl12.mf80
-rw-r--r--fonts/gothic/oldlatin/olsl8.mf80
-rw-r--r--fonts/gothic/oldlatin/olsl9.mf80
-rw-r--r--fonts/gothic/oldlatin/olsltt10.mf80
-rw-r--r--fonts/gothic/oldlatin/olss10.mf80
-rw-r--r--fonts/gothic/oldlatin/olss12.mf80
-rw-r--r--fonts/gothic/oldlatin/olss17.mf80
-rw-r--r--fonts/gothic/oldlatin/olss8.mf80
-rw-r--r--fonts/gothic/oldlatin/olss9.mf80
-rw-r--r--fonts/gothic/oldlatin/olssbx10.mf80
-rw-r--r--fonts/gothic/oldlatin/olssdc10.mf80
-rw-r--r--fonts/gothic/oldlatin/olssi10.mf80
-rw-r--r--fonts/gothic/oldlatin/olssi12.mf80
-rw-r--r--fonts/gothic/oldlatin/olssi17.mf80
-rw-r--r--fonts/gothic/oldlatin/olssi8.mf80
-rw-r--r--fonts/gothic/oldlatin/olssi9.mf80
-rw-r--r--fonts/gothic/oldlatin/olssq8.mf80
-rw-r--r--fonts/gothic/oldlatin/olssqi8.mf80
-rw-r--r--fonts/gothic/oldlatin/oltt10.mf80
-rw-r--r--fonts/gothic/oldlatin/oltt12.mf80
-rw-r--r--fonts/gothic/oldlatin/oltt8.mf80
-rw-r--r--fonts/gothic/oldlatin/oltt9.mf80
-rw-r--r--fonts/gothic/oldlatin/olvtt10.mf80
-rw-r--r--fonts/gothic/oldlatin/oroman.mf75
-rw-r--r--fonts/gothic/oldlatin/oromanl.mf843
-rw-r--r--fonts/gothic/oldlatin/oromlig.mf168
-rw-r--r--fonts/gothic/oldlatin/oromligs.mf773
-rw-r--r--fonts/gothic/oldlatin/test_alphabet.tex5
-rw-r--r--fonts/gothic/oldlatin/test_ol_all.pdfbin0 -> 238639 bytes
-rw-r--r--fonts/gothic/oldlatin/test_ol_all.tex59
-rw-r--r--fonts/gothic/oldlatin/test_ol_bf.pdfbin0 -> 130621 bytes
-rw-r--r--fonts/gothic/oldlatin/test_ol_bf.tex36
-rw-r--r--fonts/gothic/oldlatin/test_ol_rm.pdfbin0 -> 155683 bytes
-rw-r--r--fonts/gothic/oldlatin/test_ol_rm.tex42
-rw-r--r--fonts/gothic/oldlatin/test_ol_sl.pdfbin0 -> 78663 bytes
-rw-r--r--fonts/gothic/oldlatin/test_ol_sl.tex24
-rw-r--r--fonts/gothic/oldlatin/test_ol_ss.pdfbin0 -> 201601 bytes
-rw-r--r--fonts/gothic/oldlatin/test_ol_ss.tex51
-rw-r--r--fonts/gothic/oldlatin/test_ol_tt.pdfbin0 -> 56599 bytes
-rw-r--r--fonts/gothic/oldlatin/test_ol_tt.tex24
l---------fonts/gothic/ps/yfonts1
-rw-r--r--fonts/gothic/sueterlin/README15
-rw-r--r--fonts/gothic/sueterlin/mfall.bat12
-rw-r--r--fonts/gothic/sueterlin/schwell.mf100
-rw-r--r--fonts/gothic/sueterlin/su-lig.mf232
-rw-r--r--fonts/gothic/sueterlin/su-low.mf796
-rw-r--r--fonts/gothic/sueterlin/su-spec.mf555
-rw-r--r--fonts/gothic/sueterlin/su-upp.mf849
-rw-r--r--fonts/gothic/sueterlin/suet.pdfbin0 -> 131462 bytes
-rw-r--r--fonts/gothic/sueterlin/suet.tex90
-rw-r--r--fonts/gothic/sueterlin/suet14.mf97
-rw-r--r--fonts/gothic/yfrak/yfrabase.mf73
-rw-r--r--fonts/gothic/yfrak/yfrak.mf137
-rw-r--r--fonts/gothic/yfrak/yfrak.tfmbin0 -> 1416 bytes
-rw-r--r--fonts/gothic/yfrak/yfraklow.mf593
-rw-r--r--fonts/gothic/yfrak/yfrakmis.mf574
-rw-r--r--fonts/gothic/yfrak/yfraknum.mf194
-rw-r--r--fonts/gothic/yfrak/yfrakoth.mf528
-rw-r--r--fonts/gothic/yfrak/yfrakupp.mf1342
-rw-r--r--fonts/gothic/yfrak/ysmfrak.mf137
-rw-r--r--fonts/gothic/yfrak/ysmfrak.tfmbin0 -> 1416 bytes
-rw-r--r--fonts/gothic/ygoth/ygotbase.mf79
-rw-r--r--fonts/gothic/ygoth/ygoth.mf134
-rw-r--r--fonts/gothic/ygoth/ygoth.tfmbin0 -> 1236 bytes
-rw-r--r--fonts/gothic/ygoth/ygothgen.mf452
-rw-r--r--fonts/gothic/ygoth/ygothlig.mf1578
-rw-r--r--fonts/gothic/ygoth/ygothlow.mf768
-rw-r--r--fonts/gothic/ygoth/ygothmis.mf177
-rw-r--r--fonts/gothic/ygoth/ygothnum.mf229
-rw-r--r--fonts/gothic/ygoth/ygothupp.mf2399
-rw-r--r--fonts/gothic/yinit-otf/README.md15
-rw-r--r--fonts/gothic/yinit-otf/Yinit.otfbin0 -> 698840 bytes
-rw-r--r--fonts/gothic/yinit/README43
-rw-r--r--fonts/gothic/yinit/yinit.mf112
-rw-r--r--fonts/gothic/yinit/yinit.pdfbin0 -> 97972 bytes
-rw-r--r--fonts/gothic/yinit/yinitA.mf139
-rw-r--r--fonts/gothic/yinit/yinitB.mf135
-rw-r--r--fonts/gothic/yinit/yinitC.mf122
-rw-r--r--fonts/gothic/yinit/yinitD.mf121
-rw-r--r--fonts/gothic/yinit/yinitE.mf100
-rw-r--r--fonts/gothic/yinit/yinitF.mf109
-rw-r--r--fonts/gothic/yinit/yinitG.mf89
-rw-r--r--fonts/gothic/yinit/yinitH.mf123
-rw-r--r--fonts/gothic/yinit/yinitJ.mf122
-rw-r--r--fonts/gothic/yinit/yinitK.mf125
-rw-r--r--fonts/gothic/yinit/yinitL.mf107
-rw-r--r--fonts/gothic/yinit/yinitM.mf123
-rw-r--r--fonts/gothic/yinit/yinitN.mf109
-rw-r--r--fonts/gothic/yinit/yinitO.mf86
-rw-r--r--fonts/gothic/yinit/yinitP.mf100
-rw-r--r--fonts/gothic/yinit/yinitQ.mf106
-rw-r--r--fonts/gothic/yinit/yinitR.mf120
-rw-r--r--fonts/gothic/yinit/yinitS.mf117
-rw-r--r--fonts/gothic/yinit/yinitT.mf113
-rw-r--r--fonts/gothic/yinit/yinitU.mf120
-rw-r--r--fonts/gothic/yinit/yinitV.mf96
-rw-r--r--fonts/gothic/yinit/yinitW.mf138
-rw-r--r--fonts/gothic/yinit/yinitX.mf126
-rw-r--r--fonts/gothic/yinit/yinitY.mf110
-rw-r--r--fonts/gothic/yinit/yinitZ.mf114
-rw-r--r--fonts/gothic/yinit/yintbase.mf229
-rw-r--r--fonts/gothic/yswab/yswab.mf138
-rw-r--r--fonts/gothic/yswab/yswab.tfmbin0 -> 1376 bytes
-rw-r--r--fonts/gothic/yswab/yswabase.mf103
-rw-r--r--fonts/gothic/yswab/yswablow.mf700
-rw-r--r--fonts/gothic/yswab/yswabmis.mf1300
-rw-r--r--fonts/gothic/yswab/yswabnum.mf288
-rw-r--r--fonts/gothic/yswab/yswabupp.mf1179
173 files changed, 58347 insertions, 0 deletions
diff --git a/fonts/gothic/blacklettert1/COPYING b/fonts/gothic/blacklettert1/COPYING
new file mode 100644
index 0000000000..5b05fe8689
--- /dev/null
+++ b/fonts/gothic/blacklettert1/COPYING
@@ -0,0 +1,318 @@
+
+The LaTeX Project Public License
+=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+LPPL Version 1.2 1999-09-03
+
+Copyright 1999 LaTeX3 Project
+ Everyone is allowed to distribute verbatim copies of this
+ license document, but modification of it is not allowed.
+
+
+PREAMBLE
+========
+
+The LaTeX Project Public License (LPPL) is the license under which the
+base LaTeX distribution is distributed.
+
+You may use this license for any program that you have written and wish
+to distribute. This license may be particularly suitable if your
+program is TeX-related (such as a LaTeX package), but you may use it
+even if your program is unrelated to TeX. The section `WHETHER AND HOW
+TO DISTRIBUTE PROGRAMS UNDER THIS LICENSE', below, gives instructions,
+examples, and recommendations for authors who are considering
+distributing their programs under this license.
+
+In this license document, `The Program' refers to any program
+distributed under this license.
+
+This license gives conditions under which The Program may be distributed
+and conditions under which modified versions of The Program may be
+distributed. Individual files of The Program may bear supplementary
+and/or superseding conditions on modification of themselves and on the
+distribution of modified versions of themselves, but *no* file of The
+Program may bear supplementary or superseding conditions on the
+distribution of an unmodified copy of the file. A distributor wishing
+to distribute a complete, unmodified copy of The Program therefore
+needs to check the conditions only in this license and nowhere else.
+
+Activities other than distribution and/or modification of The Program
+are not covered by this license; they are outside its scope. In
+particular, the act of running The Program is not restricted.
+
+We, the LaTeX3 Project, believe that the conditions below give you
+the freedom to make and distribute modified versions of The Program
+that conform with whatever technical specifications you wish while
+maintaining the availability, integrity, and reliability of
+The Program. If you do not see how to achieve your goal while
+meeting these conditions, then read the document `cfgguide.tex'
+in the base LaTeX distribution for suggestions.
+
+
+CONDITIONS ON DISTRIBUTION AND MODIFICATION
+===========================================
+
+You may distribute a complete, unmodified copy of The Program.
+Distribution of only part of The Program is not allowed.
+
+You may not modify in any way a file of The Program that bears a legal
+notice forbidding modification of that file.
+
+You may distribute a modified file of The Program if, and only if, the
+following eight conditions are met:
+
+ 1. You must meet any additional conditions borne by the file on the
+ distribution of a modified version of the file as described below
+ in the subsection `Additional Conditions on Individual Files of
+ The Program'.
+
+ 2. If the file is a LaTeX software file, then you must meet any
+ applicable additional conditions on the distribution of a modified
+ version of the file that are described below in the subsection
+ `Additional Conditions on LaTeX Software Files'.
+
+ 3. You must not distribute the modified file with the filename of the
+ original file.
+
+ 4. In the modified file, you must acknowledge the authorship and
+ name of the original file, and the name (if any) of the program
+ which contains it.
+
+ 5. You must change any identification string in the file to indicate
+ clearly that the modified file is not part of The Program.
+
+ 6. You must change any addresses in the modified file for the
+ reporting of errors in the file or in The Program generally to
+ ensure that reports for files no longer maintained by the original
+ maintainers will be directed to the maintainers of the modified
+ files.
+
+ 7. You must distribute the modified file under a license that forbids
+ distribution both of the modified file and of any files derived
+ from the modified file with the filename of the original file.
+
+ 8. You must do either (A) or (B):
+
+ (A) distribute a copy of The Program (that is, a complete,
+ unmodified copy of The Program) together with the modified
+ file; if your distribution of the modified file is made by
+ offering access to copy the modified file from a designated
+ place, then offering equivalent access to copy The Program
+ from the same place meets this condition, even though third
+ parties are not compelled to copy The Program along with the
+ modified file;
+
+ (B) provide to those who receive the modified file information
+ that is sufficient for them to obtain a copy of The Program;
+ for example, you may provide a Uniform Resource Locator (URL)
+ for a site that you expect will provide them with a copy of
+ The Program free of charge (either the version from which
+ your modification is derived, or perhaps a later version).
+
+Note that in the above, `distribution' of a file means making the
+file available to others by any means. This includes, for instance,
+installing the file on any machine in such a way that the file is
+accessible by users other than yourself. `Modification' of a file
+means any procedure that produces a derivative file under any
+applicable law -- that is, a file containing the original file or
+a significant portion of it, either verbatim or with modifications
+and/or translated into another language.
+
+Changing the name of a file (other than as necessitated by the file
+conventions of the target file systems) is considered to be a
+modification of the file.
+
+The distribution conditions in this license do not have to be
+applied to files that have been modified in accordance with the
+above conditions. Note, however, that Condition 7. does apply to
+any such modified file.
+
+The conditions above are not intended to prohibit, and hence do not
+apply to, the updating, by any method, of a file so that it becomes
+identical to the latest version of that file of The Program.
+
+
+
+A Recommendation on Modification Without Distribution
+-----------------------------------------------------
+
+It is wise never to modify a file of The Program, even for your own
+personal use, without also meeting the above eight conditions for
+distributing the modified file. While you might intend that such
+modified files will never be distributed, often this will happen by
+accident -- you may forget that you have modified the file; or it may
+not occur to you when allowing others to access the modified file
+that you are thus distributing it and violating the conditions of
+this license. It is usually in your best interest to keep your copy
+of The Program identical with the public one. Many programs provide
+ways to control the behavior of that program without altering its
+licensed files.
+
+
+Additional Conditions on Individual Files of The Program
+--------------------------------------------------------
+
+An individual file of The Program may bear additional conditions that
+supplement and/or supersede the conditions in this license if, and only
+if, such additional conditions exclusively concern modification of the
+file or distribution of a modified version of the file. The conditions
+on individual files of The Program therefore may differ only with
+respect to the kind and extent of modification of those files that
+is allowed, and with respect to the distribution of modified versions
+of those files.
+
+
+Additional Conditions on LaTeX Software Files
+---------------------------------------------
+
+If a file of The Program is intended to be used with LaTeX (that is,
+if it is a LaTeX software file), then the following additional
+conditions, which supplement and/or supersede the conditions
+above, apply to the file according to its filename extension:
+
+ - You may not modify any file with filename extension `.ins' since
+ these are installation files containing the legal notices that are
+ placed in the files they generate.
+
+ - You may distribute modified versions of files with filename
+ extension `.fd' (LaTeX font definition files) under the standard
+ conditions of the LPPL as described above. You may also distribute
+ such modified LaTeX font definition files with their original names
+ provided that:
+ (1) the only changes to the original files either enable use of
+ available fonts or prevent attempts to access unavailable fonts;
+ (2) you also distribute the original, unmodified files (TeX input
+ paths can be used to control which set of LaTeX font definition
+ files is actually used by TeX).
+
+ - You may distribute modified versions of files with filename
+ extension `.cfg' (configuration files) with their original names.
+ The Program may (and usually will) specify the range of commands
+ that are allowed in a particular configuration file.
+
+Because of portability and exchangeability issues in LaTeX software,
+The LaTeX3 Project deprecates the distribution of modified versions of
+components of LaTeX or of generally available contributed code for them,
+but such distribution can meet the conditions of this license.
+
+
+NO WARRANTY
+===========
+
+There is no warranty for The Program. Except when otherwise stated in
+writing, The Copyright Holder provides The Program `as is', without
+warranty of any kind, either expressed or implied, including, but not
+limited to, the implied warranties of merchantability and fitness for
+a particular purpose. The entire risk as to the quality and performance
+of The Program is with you. Should The Program prove defective, you
+assume the cost of all necessary servicing, repair, or correction.
+
+In no event unless agreed to in writing will The Copyright Holder, or
+any author named in the files of The Program, or any other party who may
+distribute and/or modify The Program as permitted above, be liable to
+you for damages, including any general, special, incidental or
+consequential damages arising out of any use of The Program or out of
+inability to use The Program (including, but not limited to, loss of
+data, data being rendered inaccurate, or losses sustained by anyone as
+a result of any failure of The Program to operate with any other
+programs), even if The Copyright Holder or said author or said other
+party has been advised of the possibility of such damages.
+
+
+WHETHER AND HOW TO DISTRIBUTE PROGRAMS UNDER THIS LICENSE
+=========================================================
+
+This section contains important instructions, examples, and
+recommendations for authors who are considering distributing their
+programs under this license. These authors are addressed as `you' in
+this section.
+
+
+Choosing This License or Another License
+----------------------------------------
+
+If for any part of your program you want or need to use *distribution*
+conditions that differ from those in this license, then do not refer to
+this license anywhere in your program but instead distribute your
+program under a different license. You may use the text of this license
+as a model for your own license, but your license should not refer to
+the LPPL or otherwise give the impression that your program is
+distributed under the LPPL.
+
+The document `modguide.tex' in the base LaTeX distribution explains
+the motivation behind the conditions of this license. It explains,
+for example, why distributing LaTeX under the GNU General Public
+License (GPL) was considered inappropriate. Even if your program is
+unrelated to LaTeX, the discussion in `modguide.tex' may still be
+relevant, and authors intending to distribute their programs under any
+license are encouraged to read it.
+
+
+How to Use This License
+-----------------------
+
+To use this license, place in each of the files of your program both
+an explicit copyright notice including your name and the year and also
+a statement that the distribution and/or modification of the file is
+constrained by the conditions in this license.
+
+Here is an example of such a notice and statement:
+
+ %% pig.dtx
+ %% Copyright 2001 M. Y. Name
+ %
+ % This program may be distributed and/or modified under the
+ % conditions of the LaTeX Project Public License, either version 1.2
+ % of this license or (at your option) any later version.
+ % The latest version of this license is in
+ % http://www.latex-project.org/lppl.txt
+ % and version 1.2 or later is part of all distributions of LaTeX
+ % version 1999/12/01 or later.
+ %
+ % This program consists of the files pig.dtx and pig.ins
+
+Given such a notice and statement in a file, the conditions given in
+this license document would apply, with `The Program' referring to the
+two files `pig.dtx' and `pig.ins', and `The Copyright Holder' referring
+to the person `M. Y. Name'.
+
+
+Important Recommendations
+-------------------------
+
+ Defining What Constitutes The Program
+
+ The LPPL requires that distributions of The Program contain all the
+ files of The Program. It is therefore important that you provide a
+ way for the licensee to determine which files constitute The Program.
+ This could, for example, be achieved by explicitly listing all the
+ files of The Program near the copyright notice of each file or by
+ using a line like
+
+ % This program consists of all files listed in manifest.txt.
+
+ in that place. In the absence of an unequivocal list it might be
+ impossible for the licensee to determine what is considered by you
+ to comprise The Program.
+
+ Noting Exceptional Files
+
+ If The Program contains any files bearing additional conditions on
+ modification, or on distribution of modified versions, of those
+ files (other than those listed in `Additional Conditions on LaTeX
+ Software Files'), then it is recommended that The Program contain a
+ prominent file that defines the exceptional conditions, and either
+ lists the exceptional files or defines one or more categories of
+ exceptional files.
+
+ Files containing the text of a license (such as this file) are
+ often examples of files bearing more restrictive conditions on
+ modification. LaTeX configuration files (with filename extension
+ `.cfg') are examples of files bearing less restrictive conditions
+ on the distribution of a modified version of the file. The
+ additional conditions on LaTeX software given above are examples
+ of declaring a category of files bearing exceptional additional
+ conditions.
+
+
+
diff --git a/fonts/gothic/blacklettert1/INSTALL b/fonts/gothic/blacklettert1/INSTALL
new file mode 100644
index 0000000000..5b252a5dc0
--- /dev/null
+++ b/fonts/gothic/blacklettert1/INSTALL
@@ -0,0 +1,29 @@
+ blacklettert1 package
+
+ 2003/02/17
+
+INSTALLATION
+
+Copy the *.vf, *.tfm, and *.fd files of the blacklettert1 distribution where
+your TeX system can find them (if you don't know where, put them where files of
+the same type are already located).
+
+Alternatively use the Makefile. Call
+
+ make TEXMFDIR=/usr/local/texmf install
+
+to install blacklettert1 in a TDS compliant system. It may be necessary to be
+root for that. TEXMFDIR denotes your TEXMF root directory of course. To
+install it locally, you may write
+
+ make TEXMFDIR=/home/yourlogin/texmf install
+
+
+Then update your TeX filename database. This may be done with "texhash" or
+"initexmf --update-fndb" depending on your TeX implementation.
+
+
+For usage information, run the file blacklettert1.dtx through LaTeX or run
+"make doc".
+
+Tell me (torsten.bronger@gmx.de) if you have trouble with the installation.
diff --git a/fonts/gothic/blacklettert1/Makefile b/fonts/gothic/blacklettert1/Makefile
new file mode 100644
index 0000000000..979bc9709e
--- /dev/null
+++ b/fonts/gothic/blacklettert1/Makefile
@@ -0,0 +1,66 @@
+# ======================================================================
+# Makefile -- Part of the blacklettert1 package
+# Copyright 2002 Torsten Bronger <torsten.bronger@gmx.de>
+#
+# This program may be distributed and/or modified under the
+# conditions of the LaTeX Project Public License, either version 1.2
+# of this license or (at your option) any later version.
+# The latest version of this license is in
+# http://www.latex-project.org/lppl.txt
+# and version 1.2 or later is part of all distributions of LaTeX
+# version 1999/12/01 or later.
+# ======================================================================
+
+# directory for TeX inputs. TDS assumed!
+TEXMFDIR= /usr/local/teTeX/share/texmf
+
+# The standard file permissions for installed
+# non-executables
+PERMS= a+r,u+w
+
+# No changes should be necessary below this line
+# -----------------------------------------------------
+
+%.vf %.tfm : %.vpl
+ vptovf $< $(basename $<).vf $(basename $<).tfm
+
+%.pdf : %.dtx
+ pdflatex $<
+ pdflatex $<
+
+all : t1yfrak.fd
+
+doc : blacklettert1.pdf
+
+virtualfonts : tfrak.vf tfrakls.vf tswab.vf tgoth.vf
+
+t1yfrak.fd : blacklettert1.dtx
+ tex blacklettert1.ins
+ - rm yfrak.mtx yswab.mtx ygoth.mtx
+ tex yutoyt1
+ make virtualfonts
+
+install : all
+ install -d $(TEXMFDIR)/fonts/vf/public/gothic
+ install -d $(TEXMFDIR)/fonts/tfm/public/gothic
+ install -d $(TEXMFDIR)/tex/latex/blacklettert1
+ install --mode=$(PERMS) tfrak.vf tfrakls.vf tswab.vf \
+ tgoth.vf $(TEXMFDIR)/fonts/vf/public/gothic
+ install --mode=$(PERMS) tfrak.tfm tfrakls.tfm tswab.tfm \
+ tgoth.tfm $(TEXMFDIR)/fonts/tfm/public/gothic
+ install --mode=$(PERMS) t1yfrak.fd $(TEXMFDIR)/tex/latex/blacklettert1
+
+distri : all
+ cd blacklettert1/
+ cd ..
+ - rm blacklettert1/*
+ cp README INSTALL COPYING Makefile blacklettert1.dtx blacklettert1.ins \
+ blacklettert1/
+ cp cmbsy10.pl cmmi10.pl cmr10.pl cmsy10.pl ecbx1000.pl \
+ ecrm1000.pl cmbx10.pl cmmib10.pl cmr7.pl \
+ ecrm0700.pl blacklettert1/
+ cp yfrak.pl yswab.pl ygoth.pl cmu10.pl blacklettert1/
+ cp tfrak.vf tfrakls.vf tswab.vf tgoth.vf blacklettert1/
+ cp tfrak.tfm tfrakls.tfm tswab.tfm tgoth.tfm blacklettert1/
+ cp t1yfrak.fd blacklettert1/
+ tar -czf blacklettert1.tar.gz blacklettert1/*
diff --git a/fonts/gothic/blacklettert1/README b/fonts/gothic/blacklettert1/README
new file mode 100644
index 0000000000..f0b7e36d96
--- /dev/null
+++ b/fonts/gothic/blacklettert1/README
@@ -0,0 +1,21 @@
+ blacklettert1 package
+
+ 2003/02/17
+
+This packages provides TeX virtual fonts for T1 variants of
+Haralambous' typefaces yfrak, yswab and ygoth.
+
+You get a detailed description if you run the file blacklettert1.dtx
+through LaTeX or if you run "make doc".
+
+ This program may be distributed and/or modified under the
+ conditions of the LaTeX Project Public License, either version 1.2
+ of this license or (at your option) any later version.
+ The latest version of this license is in
+ http://www.latex-project.org/lppl.txt
+ and version 1.2 or later is part of all distributions of LaTeX
+ version 1999/12/01 or later.
+
+The author can be contacted at torsten.bronger@gmx.de
+
+--- Copyright 2003 Torsten Bronger. All rights reserved ---
diff --git a/fonts/gothic/blacklettert1/blacklettert1.dtx b/fonts/gothic/blacklettert1/blacklettert1.dtx
new file mode 100644
index 0000000000..3b75fc3558
--- /dev/null
+++ b/fonts/gothic/blacklettert1/blacklettert1.dtx
@@ -0,0 +1,6280 @@
+% \iffalse meta-comment
+% $Id: blacklettert1.dtx,v 1.3 2002/05/30 18:16:53 torsten Exp torsten $
+%
+% blacklettert1.dtx -- Blackletter Typefaces in T1 Encoding
+% Copyright 2003 Torsten Bronger <torsten.bronger@gmx.de>
+%
+% This program may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.2
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.2 or later is part of all distributions of LaTeX
+% version 1999/12/01 or later.
+%
+% \fi
+%
+% \CheckSum{5465}
+% \CharacterTable
+% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+% Digits \0\1\2\3\4\5\6\7\8\9
+% Exclamation \! Double quote \" Hash (number) \#
+% Dollar \$ Percent \% Ampersand \&
+% Acute accent \' Left paren \( Right paren \)
+% Asterisk \* Plus \+ Comma \,
+% Minus \- Point \. Solidus \/
+% Colon \: Semicolon \; Less than \<
+% Equals \= Greater than \> Question mark \?
+% Commercial at \@ Left bracket \[ Backslash \\
+% Right bracket \] Circumflex \^ Underscore \_
+% Grave accent \` Left brace \{ Vertical bar \|
+% Right brace \} Tilde \~}
+%
+%
+% \def\fileversion{v1.1}
+% \def\filedate{2003/02/17}
+%
+% \title{Blackletter Typefaces in T1 Encoding\thanks{This file
+% has version number \fileversion, last
+% revised \filedate.}}
+% \author{Torsten Bronger\\
+% \url{bronger@physik.rwth-aachen.de}}
+%
+% \maketitle
+%
+% \begin{abstract}
+% This package |blacklettert1| provides virtual fonts for T1-like variants of the
+% blackletter typefaces published in 1990 by Yannis Haralambous, namely yfrak,
+% yswab and ygoth. Their original encoding is unspecified. Additionally, this
+% package embeds these fonts nicely into \LaTeXe's font selection scheme. The
+% structure of this package allows for further blackletter typefaces from other
+% sources to be made usable for \LaTeX\ in a similar way, too.
+% \end{abstract}
+%
+% \tableofcontents
+%
+% \section*{The documentation driver file}
+%
+% The next bit of code contains the documentation driver file for
+% \TeX, i.\,e., the file that will produce the documentation you are
+% currently reading. It will be extracted from this file by the
+% \texttt{docstrip} program. Since it is the first code in the file
+% one can alternatively process this file directly with \LaTeXe{} to
+% obtain the documentation.
+%
+% \begin{macrocode}
+%<*driver>
+\documentclass{ltxdoc}
+
+% \end{macrocode}
+% If you comment out the next line, you get a \emph{full} description
+% of this package.
+% \begin{macrocode}
+\OnlyDescription
+
+% \end{macrocode}
+% Not clean at all, but it works.
+% \begin{macrocode}
+\newlabel{codingscheme}{{??}{??}}
+
+\setcounter{StandardModuleDepth}{1}
+
+\usepackage{url}
+\providecommand*{\url}[1]{\texttt{\mbox{#1}}}
+
+\usepackage{mathptmx}
+
+\begin{document}
+ \DocInput{blacklettert1.dtx}
+ \PrintChanges
+ \PrintIndex
+\end{document}
+%</driver>
+% \end{macrocode}
+%
+% \section{Introduction}
+%
+% In 1990, Yannis Haralambous published a set of three blackletter typefaces.
+% (Very often, though inaccurately, such typefaces are also called ``Gothic''
+% or ``old German'' typefaces.)
+%
+% These three fonts are yfrak (Fraktur), yswab (Schwabacher) and ygoth
+% (Textur), and Haralambous made them freely available. They were created
+% using Metafont. Unfortunately, although all three fonts are very nicely
+% drawn and well endowed with ligatures and special symbols, they are produced
+% in a very awkward encoding, making it very inconvenient to use them.
+% Therefore in 1994 Thierry Bouche wrote dcfrak, a Metafont font that by and
+% large was a T1 (Cork) encoded re-implementation of Haralambous' yfrak.
+% Bouche added blacker accents.
+%
+% His work has three flaws: It only covers yfrak, it is a new font (virtual
+% fonts are prefered if possible) and it doesn't make use of \TeX's boundary
+% character feature that was especially designed having blackletter typefaces and
+% old Latin scripts in mind.
+%
+%
+% \section{This package}
+%
+% \dots~provides virtual fonts and a (nearly) T1 encoded Fraktur family that
+% can be used very easily with \LaTeX. In fact, if you switch to the font by
+% saying
+%\begin{verbatim}
+%\fontfamily{yfrak}\selectfont
+%\end{verbatim}
+% (no special package is needed, but T1 must be the current encoding) all you
+% still have to do is to break up certain ligatures with \verb|\/| commands.
+% You could even use the same \LaTeX\ source text for both Fraktur and, say,
+% Times output.
+%
+% This approach has several advantages:
+% \begin{itemize}
+% \item Virtual fonts are easy to install and elegantly make use of already
+% installed fonts,
+% \item you don't have to get adjusted to the quite strange input format
+% Haralambous suggested, actually the impact on the source text is (not zero,
+% but) relatively small,
+% \item makes it possible to return to Latin typefaces without further changes,
+% \item makes proper hyphenation in whatever language possible,
+% \item makes spell checkers that can cope with \LaTeX\ work also for Fraktur
+% texts,
+% \item allows for letterspaced version and
+% \item embeds yfrak, yswab and ygoth nicely in the font selection scheme of
+% \LaTeX.
+% \end{itemize}
+%
+% Additionally, it solves some design flaws of the original fonts:
+% \begin{itemize}
+% \item ygoth is slightly letterspaced.
+% \item The letters i, l and fi of ygoth are now correctly positioned within
+% their boxes.
+% \item Many too big and too small letter boxes are adjusted.
+% \item Missing dieresis accent added to ygoth and yfrak.
+% \item Inter-word space is reduced.
+% \end{itemize}
+%
+% I have to admit one disadvantage of this virtual font approach: Some DVI
+% viewers still can't handle them properly. In this case, please complain to
+% the DVI driver author. At least dvips has no problem.
+%
+% \medskip The package bases on a modified version of the T1 encoding, but
+% only unusual slots got a new contents. This T1 variant can be used for
+% other blackletter typefaces, too. See the full documentation of this package for
+% further details.
+%
+% \section{Installation}
+%
+% You can use the already compiled \mbox{|vf|-,} |tfm|- and |fd|-files. Just
+% copy them in directories where \LaTeX\ and your DVI driver can find them.
+% (Typically where other files with the same respective extension already
+% exist.)
+%
+% Alternatively you can use the Makefile and give the commands
+%\begin{verbatim}
+%make
+%make install
+%\end{verbatim}
+% (At least the latter as root.) This will create fresh versions of the
+% virtual fonts and install them. Please have a look at the Makefile, whether
+% all paths are set as you need them. If you want to compile the fonts, please
+% notice that you need special PL files for yfrak, yswab, ygoth and cmu10.
+% The problem is that they must have set a certain \texttt{CODINGSCHEME}. See
+% page~\pageref{codingscheme} (this page is unknown if you have set
+% \mbox{\texttt{\char'134OnlyDescription}}) for further details.
+%
+% Maybe it's necessary to run a program like te\TeX's |texhash| -- or
+% something equivalent of your \TeX\ implementation -- after the installation
+% process.
+%
+% \section{Using the fonts}
+%
+% \emph{Warning}: The original fonts (|.mf| or |.pfb|) must be available for
+% your DVI driver before this package can be used! They are not part of this
+% package.
+%
+% \subsection{Switching to Fraktur}
+%
+% This package doesn't contain a |sty| file that you can include with a
+% |\usepackage| command. If you switch to yfrak in the T1 encoding with
+% something like
+%\begin{verbatim}
+%\fontfamily{yfrak}\selectfont
+%\end{verbatim}
+% you get Fraktur. The |\emph| version will be a neatly letterspaced Fraktur,
+% |\textsl| is Schwabacher. In the preamble you can say
+%\begin{verbatim}
+%\renewcommand{\emph}[1]{\textsl{#1}}
+%\end{verbatim}
+% and Schwabacher will be the default |\emph| markup, if you prefer that.
+% Bold face is Textur, so that Textur will be used for the headings (standard
+% \LaTeX\ behaviour) which is common use.
+%
+%You can make the Fraktur font selection global for the whole document by
+% saying
+%\begin{verbatim}
+%\renewcommand{\rmdefault}{yfrak}
+%\end{verbatim}
+% in the preamble.
+%
+% \subsection{Typographic difficulties}
+%
+% A very important point is breaking up ligatures with |\/| or -- in German
+% texts -- with \verb!"|!. Blackletter typefaces have many of them, but at subword
+% boundaries you have to split them up. The German word ``aus\/tragen'' is
+% written in the source as ``\verb!aus"|tragen!'', because ``aus'' is a
+% prefix.
+%
+% Blackletter typefaces have two lower case ``s'': A \emph{round} one, the one we
+% know, and a \emph{long} one, similar of an ``f''. In German, the latter has
+% survived as the left part in the ligature ``\ss''. One must choose the
+% correct form for every occurrence. As a rule of thumb, the round form at
+% the end of the word, the long form everywhere else. \TeX\ will do that
+% automatically. However, sometimes a round ``s'' is necessary within a word,
+% at the end of a subword boundary.
+%
+% From \TeX's point of view, the letter of ``s'' within or at the beginning of
+% words is a ligature, too. A typical German case is ``aussetzen'' that must
+% be input ``\verb!aus"|setzen!''. Sometimes you will have to input a |\/| as
+% in |kafkaes\/k|. But there are also English examples: |news\/letter| --
+% although Knuth insists on the ligature.~\texttt{\mbox{;-)}}
+%
+%
+%
+% \section{Remarks}
+%
+% The author of this package would like to encourage people to use Fraktur,
+% for small bits of their texts, for special moods or just for aesthetical
+% considerations. Technically speaking, I try to lower the threshold for
+% using these typefaces by making the access a lot easier. They are of course
+% not for everyday texts.
+%
+% But it's really a pity that many people think that such blackletter typefaces are
+% old use, or connect them with German nationalism, especially the Nazi
+% era. The first is not strictly true (at least not for German speaking
+% regions), the latter is very unfair. Only few people know that the Nazis
+% themselves forbade them in 1941, because they were ``Jewish letters'' -- the
+% ban being as silly as the given reason.
+%
+% One should consider blackletter typefaces another degree of freedom in the font
+% space. They are not only to revive old texts; in fact, many font foundries
+% produce -- albeit only a few -- new Fraktur variants.
+%
+% \medskip To non-German authors: Although Fraktur and Schwabacher have been
+% used almost entirely for German texts, there is really no reason to limit it
+% to that. Their parents and sisters, Gothic, Textura, Rotunda, Bastarda
+% etc.\ have been heavily used for Latin, Italian, French and English.
+% European and American designers have created beautiful Fraktur alphabets.
+% A.~Kapr wrote, ``Schwabacher and Fraktur are just branches of the Latin
+% script tree, tended by many nations.''
+%
+%
+% \section{Related work}
+%
+% The |fraktur| package by Matthias Muehlich (FixMe:~Link!)\ is another
+% approach to bring blackletter typefaces to \LaTeX. The main differences are:
+% \begin{itemize}
+% \item He provides virtual font solutions for many commercial fonts (but
+% not for Haralambous' typefaces).
+% \item He uses another encoding (FixMe:~Name?)\ which is quite much different
+% from T1. It covers some additional letters and ligatures.
+% \end{itemize}
+% If you want to have a ready-to-run solution for those typefaces (some of
+% which are free for private use), this package will be helpful for you.
+%
+% \bigskip Walter Schmidt's |yfonts| package provides a more direct access to
+% Haralambous' fonts, including the initials font |yinitas|. This is especially
+% useful if you want to typeset old texts, with all ligatures and Gutenberg
+% feeling.
+%
+% \StopEventually{}
+%
+%
+% \section{The \texttt{fontinst} input file}
+%
+% This file (|yutoyt1.tex|) is the driver file for the T1 representation
+% of Yannis Haralambous' blackletter typefaces. It it called by
+%\begin{verbatim}
+%tex yutoyt1
+%\end{verbatim}
+% \begin{macrocode}
+%<*yutoyt1tex>
+\input fontinst.sty
+
+\def\requiredversion{1.801}
+\ifx\fontinstversion\requiredversion\else\errmessage{fontinst 1.801 needed.}\fi
+
+% \end{macrocode}
+% The first step is quite unusual: I have to define some new encodings,
+% because Haralambous invented three different encodings for his three fonts,
+% and, of course, also incompatible with all other encodings on this planet.
+%
+% \emph{Warning:}\label{codingscheme} That's the reason why you can't use this
+% package with the \emph{original} TFM files. You must use the PL files
+% supplied with this package, because the PL files must contain the correct
+% name for their encoding. Although that's the only line that's been
+% modified, it's crucial.
+% \begin{macrocode}
+\declareencoding{YH GOTISCH}{ygoth}
+\declareencoding{YH SCHWABACHER}{yswab}
+\declareencoding{YH FRAKTUR}{yfrak}
+% \end{macrocode}
+% The same is true for |cmu10.pl|: It has a slightly different encoding
+% (it contains a sterling sign instead of a dollar), but it doesn't say so
+% in the tfm file header. By the way, the |ot1i| encoding is part of the
+% standard \texttt{fontinst} distribution.
+% \begin{macrocode}
+\declareencoding{TEX ITALIC TEXT}{ot1i}
+\installfonts
+% \end{macrocode}
+% I didn't rename the family name because I don't know of another T1 version
+% of yfrak. I think it's not a lie when I claim that it's still yfrak, but
+% in another encoding.
+%
+% I need another hyphen character because otherwise a long ``s'' may become
+% round immediately before a hyphen.
+% \begin{macrocode}
+\installfamily{T1}{yfrak}{\hyphenchar\font=127}
+
+% \end{macrocode}
+% First, the normal version. The tfm file will be called |tfrak.tfm|.
+% \begin{macrocode}
+\installfont{tfrak}{yfrak,kernoff,yswab scaled 700,setglyph,%
+ cmr10,cmmi10,cmsy10,%
+ unsetacc,cmr7 scaled 700,ecrm1000,%
+ unsetcm,ecrm0700 scaled 700,kernon,%
+ unsetdia,yfrak,kernoff,unsetste,cmu10,kernon,%
+ fcleanup,blackletter}{T1frak}
+ {T1}{yfrak}{m}{n}{}
+% \end{macrocode}
+% Secondly, the letterspaced version. By and large, it's a copy from above.
+% Notice that I annihilate almost all kerning, in fact, only one pair
+% survives! The latterspaced version is mapped to the italic variant. This
+% should transform legacy document automatically, and it helps to
+% ``re-antiqua'' Fraktur texts easily.
+% \begin{macrocode}
+\installfont{tfrakls}{kernoff,yfrak,yswab scaled 700,setglyph,%
+ cmr10,cmmi10,cmsy10,%
+ unsetacc,cmr7 scaled 700,ecrm1000,%
+ unsetcm,ecrm0700 scaled 700,%
+ unsetdia,yfrak,unsetste,cmu10,%
+ fcleanup,kernon,lettersp,kernoff,blackletter}{T1frak}
+ {T1}{yfrak}{m}{it}{}
+% \end{macrocode}
+% The |\textsl| version is |tswab|, the T1 variant of |yswab|. It is
+% much simpler, largely because it doesn't need smaller accents.
+% \begin{macrocode}
+\installfont{tswab}{yswab,setglyph,kernoff,cmbx10,cmmib10,cmbsy10,%
+ unsetcm,ecbx1000,kernon,%
+ unsetdia,yswab,scleanup,blackletter}{T1frak}
+ {T1}{yfrak}{m}{sl}{}
+% \end{macrocode}
+% Very closely related to the |tswab| solution is |tgoth|, which is mapped to
+% the bold version of yfrak in the T1 encoding. The only differences are in
+% |gcleanup.mtx|.
+% \begin{macrocode}
+\installfont{tgoth}{ygoth,setglyph,kernoff,cmbx10,cmmib10,cmbsy10,%
+ unsetcm,ecbx1000,kernon,%
+ unsetdia,ygoth,gcleanup,blackletter}{T1frak}
+ {T1}{yfrak}{b}{n}{}
+\endinstallfonts
+
+\bye
+%</yutoyt1tex>
+% \end{macrocode}
+%
+%
+% \section{The \texttt{yfrak} text encoding vector}
+%
+% Here I describe the original encoding of the yfrak font by Yannis
+% Haralambous. This file is read when |yfrak.pl| is converted into
+% |yfrak.mtx| in order to be digested by \texttt{fontinst}.
+%
+% FixMe: Probably this file could easily be simplified very
+% much, especially the metric setting may be superfluous. But I don't know.
+% \begin{macrocode}
+%<*yfraketx>
+\relax
+
+\documentclass[twocolumn]{article}
+\usepackage{fontdoc}
+
+\title{The \texttt{yfrak} text encoding vector}
+\author{Torsten Bronger}
+\date{10 April 2002 \\
+Version 1.0}
+
+\begin{document}
+\maketitle
+
+\section{Introduction}
+
+This document describes the encoding of yfrak (fraktur).
+
+\encoding
+
+\needsfontinstversion{1.801}
+
+
+\comment{\section{Default values}}
+
+\setcommand\lc#1#2{#2}
+\setcommand\uc#1#2{#1}
+\setcommand\lclig#1#2{#2}
+\setcommand\uclig#1#2{#1}
+\setcommand\digit#1{#1}
+\setcommand\tty{n}
+\setcommand\currency{dollar}
+
+\setstr{codingscheme}{UNSPECIFIED}
+
+\setint{italicslant}{0}
+
+\ifisglyph{x}\then
+ \setint{xheight}{\height{x}}
+\else
+ \setint{xheight}{500}
+\fi
+
+\ifisglyph{space}\then
+ \setint{interword}{\width{space}}
+\else\ifisglyph{i}\then
+ \setint{interword}{\width{i}}
+\else
+ \setint{interword}{333}
+\fi\fi
+
+
+\comment{\section{Default font dimensions}}
+
+\setint{fontdimen(1)}{\int{italicslant}} % italic slant
+\setint{fontdimen(2)}{\int{interword}} % interword space
+\ifisint{monowidth}\then
+ \setint{fontdimen(3)}{0} % interword stretch
+ \setint{fontdimen(4)}{0} % interword shrink
+\else
+ \setint{fontdimen(3)}{\scale{\int{interword}}{600}}% interword stretch
+ \setint{fontdimen(4)}{\scale{\int{interword}}{240}}% interword shrink
+\fi
+\setint{fontdimen(5)}{\int{xheight}} % x-height
+\setint{fontdimen(6)}{1000} % quad
+\ifisint{monowidth}\then
+ \setint{fontdimen(7)}{\int{interword}} % extra space after .
+\else
+ \setint{fontdimen(7)}{\scale{\int{interword}}{240}}% extra space after .
+\fi
+
+\setint{boundarychar}{32}
+
+\comment{\section{The encoding}}
+
+\nextslot{"10}
+
+\setslot{dotlessi}
+ \comment{A dotless i like `\i'}
+\endsetslot
+
+\setslot{dotlessj}
+ \comment{A dotless j like `\j'}
+\endsetslot
+
+\setslot{grave}
+ \comment{The grave accent `\`a'.}
+\endsetslot
+
+\setslot{acute}
+ \comment{The acute accent `\'a'.}
+\endsetslot
+
+\setslot{caron}
+ \comment{The caron or h\'a\v cek accent `\v a'.}
+\endsetslot
+
+\setslot{breve}
+ \comment{The breve accent `\u a'.}
+\endsetslot
+
+\setslot{macron}
+ \comment{The macron accent `\=a'.}
+\endsetslot
+
+\setslot{ringfitted}
+ \comment{The ring accent `\aa', fitted to be the same width as an
+ upper case `A'.}
+\endsetslot
+
+\setslot{cedilla}
+ \comment{The cedilla accent `\c a'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{\lc{SS}{germandbls}}
+ \comment{The letter `\ss'.}
+\endsetslot
+
+\nextslot{"21}
+
+\setslot{exclam}
+ \comment{The exclamation mark `!'.}
+\endsetslot
+
+\setslot{quotedblleft}
+ \comment{The English opening quote mark `\,\textquotedblleft\,'.}
+\endsetslot
+
+\setslot{numbersign}
+ \comment{The hash sign `\#'.}
+\endsetslot
+
+\setslot{varJ}
+ \comment{Variant of the letter `{J}'.}
+\endsetslot
+
+\setslot{percent}
+ \comment{The percent sign `\%'.}
+\endsetslot
+
+\setslot{ampersand}
+ \comment{The ampersand sign `\&'.}
+\endsetslot
+
+\setslot{quoteright}
+ \ligature{LIG}{quoteright}{quotedblright}
+ \comment{The English closing quotation mark `\,'\,'.}
+\endsetslot
+
+\setslot{parenleft}
+ \comment{The opening parenthesis `('.}
+\endsetslot
+
+\setslot{parenright}
+ \comment{The closing parenthesis `)'.}
+\endsetslot
+
+\setslot{asterisk}
+ \comment{The raised asterisk `*'.}
+\endsetslot
+
+\setslot{plus}
+ \comment{The addition sign `+'.}
+\endsetslot
+
+\setslot{comma}
+ \comment{The comma `,'.}
+\endsetslot
+
+\setslot{hyphen}
+ \ligature{LIG}{hyphen}{rangedash}
+ \comment{The hyphen `-'.}
+\endsetslot
+
+\setslot{period}
+ \comment{The full point `.'.}
+\endsetslot
+
+\setslot{slash}
+ \comment{The forward oblique `/'.}
+\endsetslot
+
+\setslot{\digit{zero}}
+ \comment{The number zero `0'. This (and all the other numerals) may be
+ old style or ranging digits.}
+\endsetslot
+
+\setslot{\digit{one}}
+ \comment{The number one `1'.}
+\endsetslot
+
+\setslot{\digit{two}}
+ \comment{The number two `2'.}
+\endsetslot
+
+\setslot{\digit{three}}
+ \comment{The number three `3'.}
+\endsetslot
+
+\setslot{\digit{four}}
+ \comment{The number four `4'.}
+\endsetslot
+
+\setslot{\digit{five}}
+ \comment{The number five `5'.}
+\endsetslot
+
+\setslot{\digit{six}}
+ \comment{The number six `6'.}
+\endsetslot
+
+\setslot{\digit{seven}}
+ \comment{The number seven `7'.}
+\endsetslot
+
+\setslot{\digit{eight}}
+ \comment{The number eight `8'.}
+\endsetslot
+
+\setslot{\digit{nine}}
+ \comment{The number nine `9'.}
+\endsetslot
+
+\setslot{colon}
+ \comment{The colon punctuation mark `:'.}
+\endsetslot
+
+\setslot{semicolon}
+ \comment{The semi-colon punctuation mark `;'.}
+\endsetslot
+
+\setslot{section}
+ \comment{The section sign `{\S}'.}
+\endsetslot
+
+\setslot{equal}
+ \comment{The equals sign `='.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{question}
+ \comment{The question mark `?'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{\uc{A}{a}}
+ \comment{The letter `{A}'.}
+\endsetslot
+
+\setslot{\uc{B}{b}}
+ \comment{The letter `{B}'.}
+\endsetslot
+
+\setslot{\uc{C}{c}}
+ \comment{The letter `{C}'.}
+\endsetslot
+
+\setslot{\uc{D}{d}}
+ \comment{The letter `{D}'.}
+\endsetslot
+
+\setslot{\uc{E}{e}}
+ \comment{The letter `{E}'.}
+\endsetslot
+
+\setslot{\uc{F}{f}}
+ \comment{The letter `{F}'.}
+\endsetslot
+
+\setslot{\uc{G}{g}}
+ \comment{The letter `{G}'.}
+\endsetslot
+
+\setslot{\uc{H}{h}}
+ \comment{The letter `{H}'.}
+\endsetslot
+
+\setslot{\uc{I}{i}}
+ \comment{The letter `{I}'.}
+\endsetslot
+
+\setslot{\uc{J}{j}}
+ \comment{The letter `{J}'.}
+\endsetslot
+
+\setslot{\uc{K}{k}}
+ \comment{The letter `{K}'.}
+\endsetslot
+
+\setslot{\uc{L}{l}}
+ \comment{The letter `{L}'.}
+\endsetslot
+
+\setslot{\uc{M}{m}}
+ \comment{The letter `{M}'.}
+\endsetslot
+
+\setslot{\uc{N}{n}}
+ \comment{The letter `{N}'.}
+\endsetslot
+
+\setslot{\uc{O}{o}}
+ \comment{The letter `{O}'.}
+\endsetslot
+
+\setslot{\uc{P}{p}}
+ \comment{The letter `{P}'.}
+\endsetslot
+
+\setslot{\uc{Q}{q}}
+ \comment{The letter `{Q}'.}
+\endsetslot
+
+\setslot{\uc{R}{r}}
+ \comment{The letter `{R}'.}
+\endsetslot
+
+\setslot{\uc{S}{s}}
+ \comment{The letter `{S}'.}
+\endsetslot
+
+\setslot{\uc{T}{t}}
+ \comment{The letter `{T}'.}
+\endsetslot
+
+\setslot{\uc{U}{u}}
+ \comment{The letter `{U}'.}
+\endsetslot
+
+\setslot{\uc{V}{v}}
+ \comment{The letter `{V}'.}
+\endsetslot
+
+\setslot{\uc{W}{w}}
+ \comment{The letter `{W}'.}
+\endsetslot
+
+\setslot{\uc{X}{x}}
+ \comment{The letter `{X}'.}
+\endsetslot
+
+\setslot{\uc{Y}{y}}
+ \comment{The letter `{Y}'.}
+\endsetslot
+
+\setslot{\uc{Z}{z}}
+ \comment{The letter `{Z}'.}
+\endsetslot
+
+\setslot{bracketleft}
+ \comment{The opening square bracket `['.}
+\endsetslot
+
+\setslot{quotedblbase}
+ \comment{A German double quote mark `,\kern-0.1em,' similar to two commas,
+ but with tighter letterspacing and different sidebearings.}
+\endsetslot
+
+\setslot{bracketright}
+ \comment{The closing square bracket `]'.}
+\endsetslot
+
+\setslot{circumflex}
+ \comment{The circumflex accent `\^ a'.}
+\endsetslot
+
+\setslot{dotaccent}
+ \comment{The dot accent `\.a'.}
+\endsetslot
+
+\setslot{quoteleft}
+ \ligature{LIG}{quoteleft}{quotedblleft}
+ \comment{The English opening single quotation mark `\,`\,'.}
+\endsetslot
+
+\setslot{\lc{A}{a}}
+ \comment{The letter `{a}'.}
+\endsetslot
+
+\setslot{\lc{B}{b}}
+ \comment{The letter `{b}'.}
+\endsetslot
+
+\setslot{\lc{C}{c}}
+ \comment{The letter `{c}'.}
+\endsetslot
+
+\setslot{\lc{D}{d}}
+ \comment{The letter `{d}'.}
+\endsetslot
+
+\setslot{\lc{E}{e}}
+ \comment{The letter `{e}'.}
+\endsetslot
+
+\setslot{\lc{F}{f}}
+ \ligature{LIG}{\lc{I}{i}}{\lclig{FI}{fi}}
+ \ligature{LIG}{\lc{F}{f}}{\lclig{FF}{ff}}
+ \ligature{LIG}{\lc{L}{l}}{\lclig{FL}{fl}}
+ \comment{The letter `{f}'.}
+\endsetslot
+
+\setslot{\lc{G}{g}}
+ \comment{The letter `{g}'.}
+\endsetslot
+
+\setslot{\lc{H}{h}}
+ \comment{The letter `{h}'.}
+\endsetslot
+
+\setslot{\lc{I}{i}}
+ \comment{The letter `{i}'.}
+\endsetslot
+
+\setslot{\lc{J}{j}}
+ \comment{The letter `{j}'.}
+\endsetslot
+
+\setslot{\lc{K}{k}}
+ \comment{The letter `{k}'.}
+\endsetslot
+
+\setslot{\lc{L}{l}}
+ \comment{The letter `{l}'.}
+\endsetslot
+
+\setslot{\lc{M}{m}}
+ \comment{The letter `{m}'.}
+\endsetslot
+
+\setslot{\lc{N}{n}}
+ \comment{The letter `{n}'.}
+\endsetslot
+
+\setslot{\lc{O}{o}}
+ \comment{The letter `{o}'.}
+\endsetslot
+
+\setslot{\lc{P}{p}}
+ \comment{The letter `{p}'.}
+\endsetslot
+
+\setslot{\lc{Q}{q}}
+ \comment{The letter `{q}'.}
+\endsetslot
+
+\setslot{\lc{R}{r}}
+ \comment{The letter `{r}'.}
+\endsetslot
+
+\setslot{\lc{S}{s}}
+ \comment{The letter `{s}'.}
+\endsetslot
+
+\setslot{\lc{T}{t}}
+ \comment{The letter `{t}'.}
+\endsetslot
+
+\setslot{\lc{U}{u}}
+ \comment{The letter `{u}'.}
+\endsetslot
+
+\setslot{\lc{V}{v}}
+ \comment{The letter `{v}'.}
+\endsetslot
+
+\setslot{\lc{W}{w}}
+ \comment{The letter `{w}'.}
+\endsetslot
+
+\setslot{\lc{X}{x}}
+ \comment{The letter `{x}'.}
+\endsetslot
+
+\setslot{\lc{Y}{y}}
+ \comment{The letter `{y}'.}
+\endsetslot
+
+\setslot{\lc{Z}{z}}
+ \comment{The letter `{z}'.}
+\endsetslot
+
+\setslot{rangedash}
+ \ligature{LIG}{hyphen}{punctdash}
+ \comment{The number range dash `1--9'. In a monowidth font, this
+ might be set as `{\tt 1{-}9}'.}
+\endsetslot
+
+\setslot{punctdash}
+ \comment{The punctuation dash `Oh---boy.' In a monowidth font, this
+ might be set as `{\tt Oh{-}{-}boy.}'}
+\endsetslot
+
+\setslot{hungarumlaut}
+ \comment{The long Hungarian umlaut `\H a'.}
+\endsetslot
+
+\setslot{tilde}
+ \comment{The tilde accent `\~a'.}
+\endsetslot
+
+\comment{\section{Non-standard ligatures}}
+
+\nextslot{"81}
+
+\setslot{ss}
+ \comment{The `ss' ligature.}
+\endsetslot
+
+\setslot{st}
+ \comment{The `st' ligature.}
+\endsetslot
+
+\setslot{sf}
+ \comment{The `sf' ligature.}
+\endsetslot
+
+\setslot{ff}
+ \comment{The `ff' ligature.}
+\endsetslot
+
+\setslot{ch}
+ \comment{The `ch' ligature.}
+\endsetslot
+
+\setslot{ck}
+ \comment{The `ck' ligature.}
+\endsetslot
+
+\skipslots{2}
+
+\setslot{asmalle}
+ \comment{The letter `a' with little e at top.}
+\endsetslot
+
+\setslot{adieresis}
+ \comment{the letter `\"a'}
+\endsetslot
+
+\setslot{tz}
+ \comment{The `tz' ligature.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{sround}
+ \comment{The letter round `s'.}
+\endsetslot
+
+\skipslots{2}
+
+\setslot{esmalle}
+ \comment{The letter `e' with little e at top.}
+\endsetslot
+
+\setslot{edieresis}
+ \comment{the letter `\"e'}
+\endsetslot
+
+\nextslot{"99}
+
+\setslot{osmalle}
+ \comment{The letter `o' with little e at top.}
+\endsetslot
+
+\setslot{odieresis}
+ \comment{the letter `\"o'}
+\endsetslot
+
+\skipslots{3}
+
+\setslot{usmalle}
+ \comment{The letter `u' with little e at top.}
+\endsetslot
+
+\setslot{udieresis}
+ \comment{the letter `\"u'}
+\endsetslot
+
+\nextslot{"A4}
+
+\setslot{varsection}
+ \comment{Variant of section sign `\S'.}
+\endsetslot
+
+\nextslot{"C9}
+
+\setslot{etc}
+ \comment{The abbreviation sign `etc'.}
+\endsetslot
+
+
+\endencoding
+\end{document}
+%</yfraketx>
+% \end{macrocode}
+%
+%
+% \section{The \texttt{yswab} text encoding vector}
+%
+% Here I describe the original encoding of the yswab font by Yannis
+% Haralambous. This file is read when |yswab.pl| is converted into
+% |yswab.mtx| in order to be digested by \texttt{fontinst}.
+%
+% FixMe: Probably this file could easily be simplified very
+% much, especially the metric setting may be superfluous. But I don't know.
+% \begin{macrocode}
+%<*yswabetx>
+\relax
+
+\documentclass[twocolumn]{article}
+\usepackage{fontdoc}
+
+\title{The \texttt{yswab} text encoding vector}
+\author{Torsten Bronger}
+\date{10 April 2002 \\
+Version 1.0}
+
+\begin{document}
+\maketitle
+
+\section{Introduction}
+
+This document describes the encoding of yswab (schwabacher).
+
+\encoding
+
+\needsfontinstversion{1.801}
+
+
+\comment{\section{Default values}}
+
+\setcommand\lc#1#2{#2}
+\setcommand\uc#1#2{#1}
+\setcommand\lclig#1#2{#2}
+\setcommand\uclig#1#2{#1}
+\setcommand\digit#1{#1}
+\setcommand\tty{n}
+\setcommand\currency{dollar}
+
+\setstr{codingscheme}{UNSPECIFIED}
+
+\setint{italicslant}{0}
+
+\ifisglyph{x}\then
+ \setint{xheight}{\height{x}}
+\else
+ \setint{xheight}{500}
+\fi
+
+\ifisglyph{space}\then
+ \setint{interword}{\width{space}}
+\else\ifisglyph{i}\then
+ \setint{interword}{\width{i}}
+\else
+ \setint{interword}{333}
+\fi\fi
+
+
+\comment{\section{Default font dimensions}}
+
+\setint{fontdimen(1)}{\int{italicslant}} % italic slant
+\setint{fontdimen(2)}{\int{interword}} % interword space
+\ifisint{monowidth}\then
+ \setint{fontdimen(3)}{0} % interword stretch
+ \setint{fontdimen(4)}{0} % interword shrink
+\else
+ \setint{fontdimen(3)}{\scale{\int{interword}}{600}}% interword stretch
+ \setint{fontdimen(4)}{\scale{\int{interword}}{240}}% interword shrink
+\fi
+\setint{fontdimen(5)}{\int{xheight}} % x-height
+\setint{fontdimen(6)}{1000} % quad
+\ifisint{monowidth}\then
+ \setint{fontdimen(7)}{\int{interword}} % extra space after .
+\else
+ \setint{fontdimen(7)}{\scale{\int{interword}}{240}}% extra space after .
+\fi
+
+\comment{\section{The encoding}}
+
+\nextslot{"10}
+
+\setslot{dotlessi}
+ \comment{A dotless i like `\i'}
+\endsetslot
+
+\setslot{dotlessj}
+ \comment{A dotless j like `\j'}
+\endsetslot
+
+\setslot{grave}
+ \comment{The grave accent `\`a'.}
+\endsetslot
+
+\setslot{acute}
+ \comment{The acute accent `\'a'.}
+\endsetslot
+
+\setslot{caron}
+ \comment{The caron or h\'a\v cek accent `\v a'.}
+\endsetslot
+
+\setslot{breve}
+ \comment{The breve accent `\u a'.}
+\endsetslot
+
+\setslot{macron}
+ \comment{The macron accent `\=a'.}
+\endsetslot
+
+\setslot{ringfitted}
+ \comment{The ring accent `\aa', fitted to be the same width as an
+ upper case `A'.}
+\endsetslot
+
+\setslot{cedilla}
+ \comment{The cedilla accent `\c a'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{\lc{SS}{germandbls}}
+ \comment{The letter `\ss'.}
+\endsetslot
+
+\nextslot{"21}
+
+\setslot{exclam}
+ \comment{The exclamation mark `!'.}
+\endsetslot
+
+\setslot{quotedblleft}
+ \comment{The English opening quote mark `\,\textquotedblleft\,'.}
+\endsetslot
+
+\setslot{numbersign}
+ \comment{The hash sign `\#'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{percent}
+ \comment{The percent sign `\%'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{quoteright}
+ \ligature{LIG}{quoteright}{quotedblright}
+ \comment{The English closing quotation mark `\,'\,'.}
+\endsetslot
+
+\setslot{parenleft}
+ \comment{The opening parenthesis `('.}
+\endsetslot
+
+\setslot{parenright}
+ \comment{The closing parenthesis `)'.}
+\endsetslot
+
+\setslot{asterisk}
+ \comment{The raised asterisk `*'.}
+\endsetslot
+
+\setslot{plus}
+ \comment{The addition sign `+'.}
+\endsetslot
+
+\setslot{comma}
+ \comment{The comma `,'.}
+\endsetslot
+
+\setslot{hyphen}
+ \ligature{LIG}{hyphen}{rangedash}
+ \comment{The hyphen `-'.}
+\endsetslot
+
+\setslot{period}
+ \comment{The full point `.'.}
+\endsetslot
+
+\setslot{slash}
+ \comment{The forward oblique `/'.}
+\endsetslot
+
+\setslot{\digit{zero}}
+ \comment{The number zero `0'. This (and all the other numerals) may be
+ old style or ranging digits.}
+\endsetslot
+
+\setslot{\digit{one}}
+ \comment{The number one `1'.}
+\endsetslot
+
+\setslot{\digit{two}}
+ \comment{The number two `2'.}
+\endsetslot
+
+\setslot{\digit{three}}
+ \comment{The number three `3'.}
+\endsetslot
+
+\setslot{\digit{four}}
+ \comment{The number four `4'.}
+\endsetslot
+
+\setslot{\digit{five}}
+ \comment{The number five `5'.}
+\endsetslot
+
+\setslot{\digit{six}}
+ \comment{The number six `6'.}
+\endsetslot
+
+\setslot{\digit{seven}}
+ \comment{The number seven `7'.}
+\endsetslot
+
+\setslot{\digit{eight}}
+ \comment{The number eight `8'.}
+\endsetslot
+
+\setslot{\digit{nine}}
+ \comment{The number nine `9'.}
+\endsetslot
+
+\setslot{colon}
+ \comment{The colon punctuation mark `:'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{section}
+ \comment{The section sign `{\S}'.}
+\endsetslot
+
+\setslot{equal}
+ \comment{The equals sign `='.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{question}
+ \comment{The question mark `?'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{\uc{A}{a}}
+ \comment{The letter `{A}'.}
+\endsetslot
+
+\setslot{\uc{B}{b}}
+ \comment{The letter `{B}'.}
+\endsetslot
+
+\setslot{\uc{C}{c}}
+ \comment{The letter `{C}'.}
+\endsetslot
+
+\setslot{\uc{D}{d}}
+ \comment{The letter `{D}'.}
+\endsetslot
+
+\setslot{\uc{E}{e}}
+ \comment{The letter `{E}'.}
+\endsetslot
+
+\setslot{\uc{F}{f}}
+ \comment{The letter `{F}'.}
+\endsetslot
+
+\setslot{\uc{G}{g}}
+ \comment{The letter `{G}'.}
+\endsetslot
+
+\setslot{\uc{H}{h}}
+ \comment{The letter `{H}'.}
+\endsetslot
+
+\setslot{\uc{I}{i}}
+ \comment{The letter `{I}'.}
+\endsetslot
+
+\setslot{\uc{J}{j}}
+ \comment{The letter `{J}'.}
+\endsetslot
+
+\setslot{\uc{K}{k}}
+ \comment{The letter `{K}'.}
+\endsetslot
+
+\setslot{\uc{L}{l}}
+ \comment{The letter `{L}'.}
+\endsetslot
+
+\setslot{\uc{M}{m}}
+ \comment{The letter `{M}'.}
+\endsetslot
+
+\setslot{\uc{N}{n}}
+ \comment{The letter `{N}'.}
+\endsetslot
+
+\setslot{\uc{O}{o}}
+ \comment{The letter `{O}'.}
+\endsetslot
+
+\setslot{\uc{P}{p}}
+ \comment{The letter `{P}'.}
+\endsetslot
+
+\setslot{\uc{Q}{q}}
+ \comment{The letter `{Q}'.}
+\endsetslot
+
+\setslot{\uc{R}{r}}
+ \comment{The letter `{R}'.}
+\endsetslot
+
+\setslot{\uc{S}{s}}
+ \comment{The letter `{S}'.}
+\endsetslot
+
+\setslot{\uc{T}{t}}
+ \comment{The letter `{T}'.}
+\endsetslot
+
+\setslot{\uc{U}{u}}
+ \comment{The letter `{U}'.}
+\endsetslot
+
+\setslot{\uc{V}{v}}
+ \comment{The letter `{V}'.}
+\endsetslot
+
+\setslot{\uc{W}{w}}
+ \comment{The letter `{W}'.}
+\endsetslot
+
+\setslot{\uc{X}{x}}
+ \comment{The letter `{X}'.}
+\endsetslot
+
+\setslot{\uc{Y}{y}}
+ \comment{The letter `{Y}'.}
+\endsetslot
+
+\setslot{\uc{Z}{z}}
+ \comment{The letter `{Z}'.}
+\endsetslot
+
+\setslot{bracketleft}
+ \comment{The opening square bracket `['.}
+\endsetslot
+
+\setslot{quotedblbase}
+ \comment{A German double quote mark `,\kern-0.1em,' similar to two commas,
+ but with tighter letterspacing and different sidebearings.}
+\endsetslot
+
+\setslot{bracketright}
+ \comment{The closing square bracket `]'.}
+\endsetslot
+
+\setslot{circumflex}
+ \comment{The circumflex accent `\^ a'.}
+\endsetslot
+
+\setslot{dotaccent}
+ \comment{The dot accent `\.a'.}
+\endsetslot
+
+\setslot{quoteleft}
+ \ligature{LIG}{quoteleft}{quotedblleft}
+ \comment{The English opening single quotation mark `\,`\,'.}
+\endsetslot
+
+\setslot{\lc{A}{a}}
+ \comment{The letter `{a}'.}
+\endsetslot
+
+\setslot{\lc{B}{b}}
+ \comment{The letter `{b}'.}
+\endsetslot
+
+\setslot{\lc{C}{c}}
+ \comment{The letter `{c}'.}
+\endsetslot
+
+\setslot{\lc{D}{d}}
+ \comment{The letter `{d}'.}
+\endsetslot
+
+\setslot{\lc{E}{e}}
+ \comment{The letter `{e}'.}
+\endsetslot
+
+\setslot{\lc{F}{f}}
+ \ligature{LIG}{\lc{I}{i}}{\lclig{FI}{fi}}
+ \ligature{LIG}{\lc{F}{f}}{\lclig{FF}{ff}}
+ \ligature{LIG}{\lc{L}{l}}{\lclig{FL}{fl}}
+ \comment{The letter `{f}'.}
+\endsetslot
+
+\setslot{\lc{G}{g}}
+ \comment{The letter `{g}'.}
+\endsetslot
+
+\setslot{\lc{H}{h}}
+ \comment{The letter `{h}'.}
+\endsetslot
+
+\setslot{\lc{I}{i}}
+ \comment{The letter `{i}'.}
+\endsetslot
+
+\setslot{\lc{J}{j}}
+ \comment{The letter `{j}'.}
+\endsetslot
+
+\setslot{\lc{K}{k}}
+ \comment{The letter `{k}'.}
+\endsetslot
+
+\setslot{\lc{L}{l}}
+ \comment{The letter `{l}'.}
+\endsetslot
+
+\setslot{\lc{M}{m}}
+ \comment{The letter `{m}'.}
+\endsetslot
+
+\setslot{\lc{N}{n}}
+ \comment{The letter `{n}'.}
+\endsetslot
+
+\setslot{\lc{O}{o}}
+ \comment{The letter `{o}'.}
+\endsetslot
+
+\setslot{\lc{P}{p}}
+ \comment{The letter `{p}'.}
+\endsetslot
+
+\setslot{\lc{Q}{q}}
+ \comment{The letter `{q}'.}
+\endsetslot
+
+\setslot{\lc{R}{r}}
+ \comment{The letter `{r}'.}
+\endsetslot
+
+\setslot{\lc{S}{s}}
+ \comment{The letter `{s}'.}
+\endsetslot
+
+\setslot{\lc{T}{t}}
+ \comment{The letter `{t}'.}
+\endsetslot
+
+\setslot{\lc{U}{u}}
+ \comment{The letter `{u}'.}
+\endsetslot
+
+\setslot{\lc{V}{v}}
+ \comment{The letter `{v}'.}
+\endsetslot
+
+\setslot{\lc{W}{w}}
+ \comment{The letter `{w}'.}
+\endsetslot
+
+\setslot{\lc{X}{x}}
+ \comment{The letter `{x}'.}
+\endsetslot
+
+\setslot{\lc{Y}{y}}
+ \comment{The letter `{y}'.}
+\endsetslot
+
+\setslot{\lc{Z}{z}}
+ \comment{The letter `{z}'.}
+\endsetslot
+
+\setslot{rangedash}
+ \ligature{LIG}{hyphen}{punctdash}
+ \comment{The number range dash `1--9'. In a monowidth font, this
+ might be set as `{\tt 1{-}9}'.}
+\endsetslot
+
+\setslot{punctdash}
+ \comment{The punctuation dash `Oh---boy.' In a monowidth font, this
+ might be set as `{\tt Oh{-}{-}boy.}'}
+\endsetslot
+
+\setslot{dieresis}
+ \comment{The umlaut or dieresis accent `\"{}'.}
+\endsetslot
+
+\setslot{tilde}
+ \comment{The tilde accent `\~a'.}
+\endsetslot
+
+\comment{\section{Non-standard ligatures}}
+
+\nextslot{"81}
+
+\setslot{ss}
+ \comment{The `ss' ligature.}
+\endsetslot
+
+\setslot{st}
+ \comment{The `st' ligature.}
+\endsetslot
+
+\setslot{sf}
+ \comment{The `sf' ligature.}
+\endsetslot
+
+\setslot{ff}
+ \comment{The `ff' ligature.}
+\endsetslot
+
+\setslot{ch}
+ \comment{The `ch' ligature.}
+\endsetslot
+
+\setslot{ck}
+ \comment{The `ck' ligature.}
+\endsetslot
+
+\skipslots{2}
+
+\setslot{asmalle}
+ \comment{The letter `a' with little e at top.}
+\endsetslot
+
+\setslot{adieresis}
+ \comment{the letter `\"a'}
+\endsetslot
+
+\skipslots{2}
+
+\setslot{sround}
+ \comment{The letter round `s'.}
+\endsetslot
+
+\skipslots{2}
+
+\setslot{esmalle}
+ \comment{The letter `e' with little e at top.}
+\endsetslot
+
+\setslot{edieresis}
+ \comment{the letter `\"e'}
+\endsetslot
+
+\nextslot{"99}
+
+\setslot{osmalle}
+ \comment{The letter `o' with little e at top.}
+\endsetslot
+
+\setslot{odieresis}
+ \comment{the letter `\"o'}
+\endsetslot
+
+\skipslots{3}
+
+\setslot{usmalle}
+ \comment{The letter `u' with little e at top.}
+\endsetslot
+
+\setslot{udieresis}
+ \comment{the letter `\"u'}
+\endsetslot
+
+\nextslot{"A4}
+
+\setslot{varsection}
+ \comment{Variant of section sign `\S'.}
+\endsetslot
+
+\skipslots{2}
+
+\setslot{\lc{varSS}{vargermandbls}}
+ \comment{A variant of the letter `\ss'.}
+\endsetslot
+
+
+\endencoding
+\end{document}
+%</yswabetx>
+% \end{macrocode}
+%
+%
+% \section{The \texttt{ygoth} text encoding vector}
+%
+% Here I describe the original encoding of the ygoth font by Yannis
+% Haralambous. This file is read when |ygoth.pl| is converted into
+% |ygoth.mtx| in order to be digested by \texttt{fontinst}.
+%
+% FixMe: Probably this file could easily be simplified very
+% much, especially the metric setting may be superfluous. But I don't know.
+% \begin{macrocode}
+%<*ygothetx>
+\relax
+
+\documentclass[twocolumn]{article}
+\usepackage{fontdoc}
+
+\title{The \texttt{ygoth} text encoding vector}
+\author{Torsten Bronger}
+\date{10 April 2002 \\
+Version 1.0}
+
+\begin{document}
+\maketitle
+
+\section{Introduction}
+
+This document describes the encoding of ygoth (textur).
+
+\encoding
+
+\needsfontinstversion{1.801}
+
+
+\comment{\section{Default values}}
+
+\setcommand\lc#1#2{#2}
+\setcommand\uc#1#2{#1}
+\setcommand\lclig#1#2{#2}
+\setcommand\uclig#1#2{#1}
+\setcommand\digit#1{#1}
+\setcommand\tty{n}
+\setcommand\currency{dollar}
+
+\setstr{codingscheme}{UNSPECIFIED}
+
+\setint{italicslant}{0}
+
+\ifisglyph{x}\then
+ \setint{xheight}{\height{x}}
+\else
+ \setint{xheight}{500}
+\fi
+
+\ifisglyph{space}\then
+ \setint{interword}{\width{space}}
+\else\ifisglyph{i}\then
+ \setint{interword}{\width{i}}
+\else
+ \setint{interword}{333}
+\fi\fi
+
+
+\comment{\section{Default font dimensions}}
+
+\setint{fontdimen(1)}{\int{italicslant}} % italic slant
+\setint{fontdimen(2)}{\int{interword}} % interword space
+\ifisint{monowidth}\then
+ \setint{fontdimen(3)}{0} % interword stretch
+ \setint{fontdimen(4)}{0} % interword shrink
+\else
+ \setint{fontdimen(3)}{\scale{\int{interword}}{600}}% interword stretch
+ \setint{fontdimen(4)}{\scale{\int{interword}}{240}}% interword shrink
+\fi
+\setint{fontdimen(5)}{\int{xheight}} % x-height
+\setint{fontdimen(6)}{1000} % quad
+\ifisint{monowidth}\then
+ \setint{fontdimen(7)}{\int{interword}} % extra space after .
+\else
+ \setint{fontdimen(7)}{\scale{\int{interword}}{240}}% extra space after .
+\fi
+
+\comment{\section{The encoding}}
+
+\nextslot{0}
+
+\setslot{ba}
+ \comment{the ligature `ba'}
+\endsetslot
+
+\setslot{be}
+ \comment{the ligature `be'}
+\endsetslot
+
+\setslot{bo}
+ \comment{the ligature `bo'}
+\endsetslot
+
+\setslot{ch}
+ \comment{the ligature `ch'}
+\endsetslot
+
+\setslot{ck}
+ \comment{the ligature `ck'}
+\endsetslot
+
+\setslot{ct}
+ \comment{the ligature `ct'}
+\endsetslot
+
+\setslot{da}
+ \comment{the ligature `da'}
+\endsetslot
+
+\setslot{de}
+ \comment{the ligature `de'}
+\endsetslot
+
+\setslot{do}
+ \comment{the ligature `do'}
+\endsetslot
+
+\setslot{ha}
+ \comment{the ligature `ha'}
+\endsetslot
+
+\setslot{he}
+ \comment{the ligature `he'}
+\endsetslot
+
+\setslot{ff}
+ \comment{the ligature `ff'}
+\endsetslot
+
+\setslot{fi}
+ \comment{the ligature `fi'}
+\endsetslot
+
+\setslot{fl}
+ \comment{the ligature `fl'}
+\endsetslot
+
+\setslot{ffi}
+ \comment{the ligature `ffi'}
+\endsetslot
+
+\setslot{ffl}
+ \comment{the ligature `ffl'}
+\endsetslot
+
+\setslot{dotlessi}
+ \comment{A dotless i like `\i'}
+\endsetslot
+
+\setslot{dotlessj}
+ \comment{A dotless j like `\j'}
+\endsetslot
+
+\setslot{ho}
+ \comment{the ligature `ho'}
+\endsetslot
+
+\setslot{pa}
+ \comment{the ligature `pa'}
+\endsetslot
+
+\setslot{pe}
+ \comment{the ligature `pe'}
+\endsetslot
+
+\setslot{po}
+ \comment{the ligature `po'}
+\endsetslot
+
+\setslot{ij}
+ \comment{the ligature `ij'}
+\endsetslot
+
+\setslot{qz}
+ \comment{the ligature `qz'}
+\endsetslot
+
+\setslot{va}
+ \comment{the ligature `va'}
+\endsetslot
+
+\setslot{\lc{SS}{germandbls}}
+ \comment{The letter `\ss'.}
+\endsetslot
+
+\setslot{\lc{AE}{ae}}
+ \comment{The letter `\ae'. This is a single letter, and should not be
+ faked with `ae'.}
+\endsetslot
+
+\setslot{\lc{OE}{oe}}
+ \comment{The letter `\oe'. This is a single letter, and should not be
+ faked with `oe'.}
+\endsetslot
+
+\setslot{\lc{Oslash}{oslash}}
+ \comment{The letter `\o'.}
+\endsetslot
+
+\setslot{ll}
+ \comment{the ligature `ll'}
+\endsetslot
+
+\setslot{ve}
+ \comment{the ligature `ve'}
+\endsetslot
+
+\setslot{vu}
+ \comment{the ligature `vu'}
+\endsetslot
+
+\nextslot{"21}
+
+\setslot{exclam}
+ \comment{The exclamation mark `!'.}
+\endsetslot
+
+\setslot{quotedblright}
+ \comment{An English double closing quote mark `\,''\,'.}
+\endsetslot
+
+\setslot{pp}
+ \comment{the ligature `pp'}
+\endsetslot
+
+\setslot{qq}
+ \comment{the ligature `qq'}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{ss}
+ \comment{the ligature `ss'}
+\endsetslot
+
+\setslot{quoteright}
+ \ligature{LIG}{quoteright}{quotedblright}
+ \comment{The English closing quotation mark `\,'\,'.}
+\endsetslot
+
+\setslot{parenleft}
+ \comment{The opening parenthesis `('.}
+\endsetslot
+
+\setslot{parenright}
+ \comment{The closing parenthesis `)'.}
+\endsetslot
+
+\setslot{ssvar}
+ \comment{the ligature `ss' (variant)}
+\endsetslot
+
+\setslot{ssi}
+ \comment{the ligature `ssi'}
+\endsetslot
+
+\setslot{comma}
+ \comment{The comma `,'.}
+\endsetslot
+
+\setslot{hyphen}
+ \ligature{LIG}{hyphen}{rangedash}
+ \comment{The hyphen `-'.}
+\endsetslot
+
+\setslot{period}
+ \comment{The full point `.'.}
+\endsetslot
+
+\setslot{ssivar}
+ \comment{the ligature `ssi' (variant)}
+\endsetslot
+
+\setslot{\digit{zero}}
+ \comment{The number zero `0'. This (and all the other numerals) may be
+ old style or ranging digits.}
+\endsetslot
+
+\setslot{\digit{one}}
+ \comment{The number one `1'.}
+\endsetslot
+
+\setslot{\digit{two}}
+ \comment{The number two `2'.}
+\endsetslot
+
+\setslot{\digit{three}}
+ \comment{The number three `3'.}
+\endsetslot
+
+\setslot{\digit{four}}
+ \comment{The number four `4'.}
+\endsetslot
+
+\setslot{\digit{five}}
+ \comment{The number five `5'.}
+\endsetslot
+
+\setslot{\digit{six}}
+ \comment{The number six `6'.}
+\endsetslot
+
+\setslot{\digit{seven}}
+ \comment{The number seven `7'.}
+\endsetslot
+
+\setslot{\digit{eight}}
+ \comment{The number eight `8'.}
+\endsetslot
+
+\setslot{\digit{nine}}
+ \comment{The number nine `9'.}
+\endsetslot
+
+\setslot{colon}
+ \comment{The colon punctuation mark `:'.}
+\endsetslot
+
+\setslot{semicolon}
+ \comment{The semi-colon punctuation mark `;'.}
+\endsetslot
+
+\setslot{st}
+ \comment{the ligature `st'}
+\endsetslot
+
+\setslot{stvar}
+ \comment{the ligature `st' (variant)}
+\endsetslot
+
+\setslot{tz}
+ \comment{the ligature `tz'}
+\endsetslot
+
+\setslot{question}
+ \comment{The question mark `?'.}
+\endsetslot
+
+\skipslots{1}
+
+\setslot{\uc{A}{a}}
+ \comment{The letter `{A}'.}
+\endsetslot
+
+\setslot{\uc{B}{b}}
+ \comment{The letter `{B}'.}
+\endsetslot
+
+\setslot{\uc{C}{c}}
+ \comment{The letter `{C}'.}
+\endsetslot
+
+\setslot{\uc{D}{d}}
+ \comment{The letter `{D}'.}
+\endsetslot
+
+\setslot{\uc{E}{e}}
+ \comment{The letter `{E}'.}
+\endsetslot
+
+\setslot{\uc{F}{f}}
+ \comment{The letter `{F}'.}
+\endsetslot
+
+\setslot{\uc{G}{g}}
+ \comment{The letter `{G}'.}
+\endsetslot
+
+\setslot{\uc{H}{h}}
+ \comment{The letter `{H}'.}
+\endsetslot
+
+\setslot{\uc{I}{i}}
+ \comment{The letter `{I}'.}
+\endsetslot
+
+\setslot{\uc{J}{j}}
+ \comment{The letter `{J}'.}
+\endsetslot
+
+\setslot{\uc{K}{k}}
+ \comment{The letter `{K}'.}
+\endsetslot
+
+\setslot{\uc{L}{l}}
+ \comment{The letter `{L}'.}
+\endsetslot
+
+\setslot{\uc{M}{m}}
+ \comment{The letter `{M}'.}
+\endsetslot
+
+\setslot{\uc{N}{n}}
+ \comment{The letter `{N}'.}
+\endsetslot
+
+\setslot{\uc{O}{o}}
+ \comment{The letter `{O}'.}
+\endsetslot
+
+\setslot{\uc{P}{p}}
+ \comment{The letter `{P}'.}
+\endsetslot
+
+\setslot{\uc{Q}{q}}
+ \comment{The letter `{Q}'.}
+\endsetslot
+
+\setslot{\uc{R}{r}}
+ \comment{The letter `{R}'.}
+\endsetslot
+
+\setslot{\uc{S}{s}}
+ \comment{The letter `{S}'.}
+\endsetslot
+
+\setslot{\uc{T}{t}}
+ \comment{The letter `{T}'.}
+\endsetslot
+
+\setslot{\uc{U}{u}}
+ \comment{The letter `{U}'.}
+\endsetslot
+
+\setslot{\uc{V}{v}}
+ \comment{The letter `{V}'.}
+\endsetslot
+
+\setslot{\uc{W}{w}}
+ \comment{The letter `{W}'.}
+\endsetslot
+
+\setslot{\uc{X}{x}}
+ \comment{The letter `{X}'.}
+\endsetslot
+
+\setslot{\uc{Y}{y}}
+ \comment{The letter `{Y}'.}
+\endsetslot
+
+\setslot{\uc{Z}{z}}
+ \comment{The letter `{Z}'.}
+\endsetslot
+
+\setslot{adieresis}
+ \comment{the letter `\"a'}
+\endsetslot
+
+\setslot{edieresis}
+ \comment{the letter `\"e'}
+\endsetslot
+
+\setslot{odieresis}
+ \comment{the letter `\"o'}
+\endsetslot
+
+\setslot{udieresis}
+ \comment{the letter `\"u'}
+\endsetslot
+
+\setslot{quotedblleft}
+ \comment{The English opening quote mark `\,\textquotedblleft\,'.}
+\endsetslot
+
+\setslot{sround}
+ \comment{The letter round `s'.}
+\endsetslot
+
+\setslot{\lc{A}{a}}
+ \comment{The letter `{a}'.}
+\endsetslot
+
+\setslot{\lc{B}{b}}
+ \comment{The letter `{b}'.}
+\endsetslot
+
+\setslot{\lc{C}{c}}
+ \comment{The letter `{c}'.}
+\endsetslot
+
+\setslot{\lc{D}{d}}
+ \comment{The letter `{d}'.}
+\endsetslot
+
+\setslot{\lc{E}{e}}
+ \comment{The letter `{e}'.}
+\endsetslot
+
+\setslot{\lc{F}{f}}
+ \ligature{LIG}{\lc{I}{i}}{\lclig{FI}{fi}}
+ \ligature{LIG}{\lc{F}{f}}{\lclig{FF}{ff}}
+ \ligature{LIG}{\lc{L}{l}}{\lclig{FL}{fl}}
+ \comment{The letter `{f}'.}
+\endsetslot
+
+\setslot{\lc{G}{g}}
+ \comment{The letter `{g}'.}
+\endsetslot
+
+\setslot{\lc{H}{h}}
+ \comment{The letter `{h}'.}
+\endsetslot
+
+\setslot{\lc{I}{i}}
+ \comment{The letter `{i}'.}
+\endsetslot
+
+\setslot{\lc{J}{j}}
+ \comment{The letter `{j}'.}
+\endsetslot
+
+\setslot{\lc{K}{k}}
+ \comment{The letter `{k}'.}
+\endsetslot
+
+\setslot{\lc{L}{l}}
+ \comment{The letter `{l}'.}
+\endsetslot
+
+\setslot{\lc{M}{m}}
+ \comment{The letter `{m}'.}
+\endsetslot
+
+\setslot{\lc{N}{n}}
+ \comment{The letter `{n}'.}
+\endsetslot
+
+\setslot{\lc{O}{o}}
+ \comment{The letter `{o}'.}
+\endsetslot
+
+\setslot{\lc{P}{p}}
+ \comment{The letter `{p}'.}
+\endsetslot
+
+\setslot{\lc{Q}{q}}
+ \comment{The letter `{q}'.}
+\endsetslot
+
+\setslot{\lc{R}{r}}
+ \comment{The letter `{r}'.}
+\endsetslot
+
+\setslot{\lc{S}{s}}
+ \comment{The letter `{s}'.}
+\endsetslot
+
+\setslot{\lc{T}{t}}
+ \comment{The letter `{t}'.}
+\endsetslot
+
+\setslot{\lc{U}{u}}
+ \comment{The letter `{u}'.}
+\endsetslot
+
+\setslot{\lc{V}{v}}
+ \comment{The letter `{v}'.}
+\endsetslot
+
+\setslot{\lc{W}{w}}
+ \comment{The letter `{w}'.}
+\endsetslot
+
+\setslot{\lc{X}{x}}
+ \comment{The letter `{x}'.}
+\endsetslot
+
+\setslot{\lc{Y}{y}}
+ \comment{The letter `{y}'.}
+\endsetslot
+
+\setslot{\lc{Z}{z}}
+ \comment{The letter `{z}'.}
+\endsetslot
+
+\setslot{rangedash}
+ \ligature{LIG}{hyphen}{punctdash}
+ \comment{The number range dash `1--9'. In a monowidth font, this
+ might be set as `{\tt 1{-}9}'.}
+\endsetslot
+
+\setslot{punctdash}
+ \comment{The punctuation dash `Oh---boy.' In a monowidth font, this
+ might be set as `{\tt Oh{-}{-}boy.}'}
+\endsetslot
+
+\endencoding
+\end{document}
+%</ygothetx>
+% \end{macrocode}
+%
+%
+% \section{First cleaning up}
+%
+% In this file (|setglyph.mtx|), we do two things: First, we move some
+% ligatures from the poriginal encoding to the correct position in my
+% pseudo-T1, ans secondly we unset some glyphs that shouldn't be used from
+% the Haralambous font.
+%
+% \begin{macrocode}
+%<*setglyphmtx>
+\relax
+
+\metrics
+
+% \end{macrocode}
+%
+% \subsection{Moving the ligatures}
+%
+% E.\,g., the ``ck'' ligature must end up in the T1 slot called
+% ``ffl ligature''. Here I do so. Of cause, only if the respective ligature
+% is available at all.
+% \begin{macrocode}
+\setcommand\setglyphmaybe#1#2{%
+\unsetglyph{#1}
+\ifisglyph{#2}\then
+\setglyph{#1}
+ \glyph{#2}{1000}
+\endsetglyph
+\fi
+}
+
+\setglyphmaybe{dotlessj}{si}
+\setglyphmaybe{ffi}{ch}
+\setglyphmaybe{ffl}{ck}
+\setglyphmaybe{backslash}{ft}
+\setglyphmaybe{asciicircum}{ss}
+\setglyphmaybe{underscore}{st}
+\setglyphmaybe{bar}{tz}
+
+% \end{macrocode}
+%
+% \subsection{Taking accents from CM}
+%
+% All ligatures are taken from CM, only the Hungarian umlaut comes from EC
+% (see below). The Haralambous fonts don't contain all of them anyway.
+% \begin{macrocode}
+\unsetglyph{circumflex}
+\unsetglyph{breve}
+\unsetglyph{ring}
+\unsetglyph{macron}
+\unsetglyph{caron}
+\unsetglyph{tilde}
+\unsetglyph{quotedblleft}
+\unsetglyph{quotedblright}
+\unsetglyph{quotedblbase}
+\unsetglyph{tilde}
+\unsetglyph{slash}
+
+
+\endmetrics
+%</setglyphmtx>
+% \end{macrocode}
+%
+%
+% \section{Making the accents smaller}
+%
+% This part will eventually come to the file |unsetacc.mtx|. I want to take
+% the accents not from the original computer modern or their T1 variant, but
+% from the seven point version, at least for the Fraktur font. These smaller
+% accents look nicer in my opinion, because the dainty Fraktur letters can't
+% cope with usual ten point accents.
+% \begin{macrocode}
+%<*unsetaccmtx>
+\relax
+
+\metrics
+
+% \end{macrocode}
+% The following three lines save the old height of the tilde character in a
+% variable called |oldtildeheight| in order to be able to shift the smaller
+% accents upwards to the correct height later. Probably this was superfluous,
+% because I have to tweak the heights anyway.
+% \begin{macrocode}
+\setint{oldtildeheight}{\height{tilde}}
+\def\temp{\int{oldtildeheight}}
+\xdef\oldtildeheight{\the\temp}
+
+\unsetglyph{grave}
+\unsetglyph{acute}
+\unsetglyph{circumflex}
+\unsetglyph{tilde}
+\unsetglyph{ring}
+\unsetglyph{caron}
+\unsetglyph{breve}
+\unsetglyph{dotaccent}
+
+\endmetrics
+%</unsetaccmtx>
+% \end{macrocode}
+%
+%
+% \section{The Hungarian umlaut}
+%
+% This wanders eventually to the file |unsetcm.mtx| and does not more than
+% just unsetting the Hungarian umlaut accent. The reason for that is that
+% this symbol looks much nicer in the EC fonts, especially because the normal
+% dieresis accent looks wuite similar to the CM version of the Hungarian
+% umlaut, which is potentially dangerous. (Hungarian uses both.)
+% \begin{macrocode}
+%<*unsetcmmtx>
+\relax
+
+\metrics
+
+\unsetglyph{hungarumlaut}
+
+\endmetrics
+%</unsetcmmtx>
+% \end{macrocode}
+%
+%
+% \section{Unsetting the diacritics}
+%
+% In this section (eventually the file |unsetdia.mtx|), I make all
+% pathologial latter, i.\,e.\ all letters with diacritic signs, undefined.
+% After that, I can set some critical characters manually in the ``cleanup''
+% files (see below), ar I can let them be constrcuted in |blackletter.mtx|.
+% \begin{macrocode}
+%<*unsetdiamtx>
+\relax
+
+\metrics
+
+\unsetglyph{hyphenchar}
+
+\unsetglyph{Abreve}
+\unsetglyph{Aogonek}
+\unsetglyph{Cacute}
+\unsetglyph{Ccaron}
+\unsetglyph{Dcaron}
+\unsetglyph{Ecaron}
+\unsetglyph{Eogonek}
+\unsetglyph{Gbreve}
+\unsetglyph{Lacute}
+\unsetglyph{Lcaron}
+\unsetglyph{Lslash}
+\unsetglyph{Nacute}
+\unsetglyph{Ncaron}
+\unsetglyph{Ng}
+\unsetglyph{Ohungarumlaut}
+\unsetglyph{Racute}
+\unsetglyph{Rcaron}
+\unsetglyph{Sacute}
+\unsetglyph{Scaron}
+\unsetglyph{Scedilla}
+\unsetglyph{Tcaron}
+\unsetglyph{Tcedilla}
+\unsetglyph{Uhungarumlaut}
+\unsetglyph{Uring}
+\unsetglyph{Ydieresis}
+\unsetglyph{Zacute}
+\unsetglyph{Zcaron}
+\unsetglyph{Zdotaccent}
+\unsetglyph{IJ}
+\unsetglyph{Idotaccent}
+\unsetglyph{dbar}
+
+\unsetglyph{abreve}
+\unsetglyph{aogonek}
+\unsetglyph{cacute}
+\unsetglyph{ccaron}
+\unsetglyph{dcaron}
+\unsetglyph{ecaron}
+\unsetglyph{eogonek}
+\unsetglyph{gbreve}
+\unsetglyph{lacute}
+\unsetglyph{lcaron}
+\unsetglyph{lslash}
+\unsetglyph{nacute}
+\unsetglyph{ncaron}
+\unsetglyph{ng}
+\unsetglyph{ohungarumlaut}
+\unsetglyph{racute}
+\unsetglyph{rcaron}
+\unsetglyph{sacute}
+\unsetglyph{scaron}
+\unsetglyph{scedilla}
+\unsetglyph{tcaron}
+\unsetglyph{tcedilla}
+\unsetglyph{uhungarumlaut}
+\unsetglyph{uring}
+\unsetglyph{ydieresis}
+\unsetglyph{zacute}
+\unsetglyph{zcaron}
+\unsetglyph{zdotaccent}
+\unsetglyph{ij}
+
+\unsetglyph{Agrave}
+\unsetglyph{Aacute}
+\unsetglyph{Acircumflex}
+\unsetglyph{Atilde}
+\unsetglyph{Adieresis}
+\unsetglyph{Aring}
+\unsetglyph{AE}
+\unsetglyph{Ccedilla}
+\unsetglyph{Egrave}
+\unsetglyph{Eacute}
+\unsetglyph{Ecircumflex}
+\unsetglyph{Edieresis}
+\unsetglyph{Igrave}
+\unsetglyph{Iacute}
+\unsetglyph{Icircumflex}
+\unsetglyph{Idieresis}
+\unsetglyph{Eth}
+\unsetglyph{Ntilde}
+\unsetglyph{Ograve}
+\unsetglyph{Oacute}
+\unsetglyph{Ocircumflex}
+\unsetglyph{Otilde}
+\unsetglyph{Odieresis}
+\unsetglyph{OE}
+\unsetglyph{Oslash}
+\unsetglyph{Ugrave}
+\unsetglyph{Uacute}
+\unsetglyph{Ucircumflex}
+\unsetglyph{Udieresis}
+\unsetglyph{Yacute}
+\unsetglyph{Thorn}
+\unsetglyph{SS}
+\unsetglyph{agrave}
+\unsetglyph{aacute}
+\unsetglyph{acircumflex}
+\unsetglyph{atilde}
+\unsetglyph{adieresis}
+\unsetglyph{aring}
+\unsetglyph{ae}
+\unsetglyph{ccedilla}
+\unsetglyph{egrave}
+\unsetglyph{eacute}
+\unsetglyph{ecircumflex}
+\unsetglyph{edieresis}
+\unsetglyph{igrave}
+\unsetglyph{iacute}
+\unsetglyph{icircumflex}
+\unsetglyph{idieresis}
+\unsetglyph{eth}
+\unsetglyph{ntilde}
+\unsetglyph{ograve}
+\unsetglyph{oacute}
+\unsetglyph{ocircumflex}
+\unsetglyph{otilde}
+\unsetglyph{odieresis}
+\unsetglyph{oe}
+\unsetglyph{oslash}
+\unsetglyph{ugrave}
+\unsetglyph{uacute}
+\unsetglyph{ucircumflex}
+\unsetglyph{udieresis}
+\unsetglyph{yacute}
+\unsetglyph{thorn}
+\unsetglyph{germandbls}
+
+\endmetrics
+%</unsetdiamtx>
+% \end{macrocode}
+%
+%
+% \section{Getting the sterling symbol}
+%
+% This part will eventually come to the file |unsetste.mtx|. It's quite
+% annoying that this is necessary, but I haven't found a better solution.
+% Since I don't want to take the sterling symbol from the EC fonts, I have
+% to unset it here. Not more.
+% \begin{macrocode}
+%<*unsetstemtx>
+\relax
+
+\metrics
+
+\unsetglyph{sterling}
+
+\endmetrics
+%</unsetstemtx>
+% \end{macrocode}
+%
+%
+% \section{Final touches to yfrak}
+%
+% \begin{macrocode}
+%<*fcleanupmtx>
+\relax
+
+\metrics
+
+% \end{macrocode}
+%
+% \subsection{Accent positioning}
+%
+% A top accent is set by placing the center of the accent at the given
+% position along the width of the letter, raised up by the difference
+% between the height of the letter and the xheight.
+% \begin{macrocode}
+\setcommand\topaccent#1#2#3{
+ \push
+ \moveup{\max{0}{\sub{\height{#1}}{\int{xheight}}}}
+ \movert{\add{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ {\scale{\sub{\height{#1}}{\int{xheight}}}{\int{italicslant}}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% A bottom accent is set by placing the center of the accent at the given
+% position along the width of the letter.
+% \begin{macrocode}
+\setcommand\botaccent#1#2#3{
+ \push
+ \movert{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% The following values are for the |#3| paramter in the above macros.
+% \begin{macrocode}
+\setcommand\Askew{550}
+\setcommand\Uskew{470}
+
+% \end{macrocode}
+% |\adjustheight| is meant for characters with a too small height, which is
+% true for all German umlauts, for example.
+% \begin{macrocode}
+\setcommand\adjustheight#1{%
+\resetglyph{#1}
+ \glyph{#1}{1000}
+ \resetheight{\height{k}}
+\endsetglyph
+}
+
+\adjustheight{adieresis}
+\adjustheight{edieresis}
+\adjustheight{odieresis}
+\adjustheight{udieresis}
+\adjustheight{i}
+\adjustheight{j}
+
+% \end{macrocode}
+%
+% \subsection{Setting up the accents}
+%
+% Here I copy the save value of the height of the tilde accent to
+% |pushvalue|.
+% \begin{macrocode}
+\setint{pushvalue}{\sub{\oldtildeheight}{\height{tilde}}}
+
+% \end{macrocode}
+% This routine moves the accent up. The accent is smaller than ten points
+% (seven points), and this routine tries to ensure that it still has the
+% correct height. It doesn't do this perfectly, therefor I need the special
+% tweak parameter |#2|, which is usually negative.
+% \begin{macrocode}
+\setcommand\pushaccent#1#2{
+ \resetglyph{#1}
+ \moveup{\add{\int{pushvalue}}{#2}}
+ \glyph{#1}{1000}
+ \endsetglyph
+}
+
+% \end{macrocode}
+% Here now the concrete accents.
+% \begin{macrocode}
+\pushaccent{grave}{-20}
+\pushaccent{acute}{-20}
+\pushaccent{circumflex}{-40}
+\pushaccent{tilde}{-70}
+\pushaccent{hungarumlaut}{-20}
+% \end{macrocode}
+% I handle the dieresis separately because it comes from yswab, and not from
+% CM.
+% \begin{macrocode}
+\resetglyph{dieresis}
+ \moveup{160}
+ \glyph{dieresis}{1000}
+\endsetglyph
+\pushaccent{ring}{-50}
+\pushaccent{caron}{-50}
+\pushaccent{breve}{-20}
+\pushaccent{dotaccent}{-30}
+
+% \end{macrocode}
+% I want to have the original ring accent from yfrak. It's quite nice.
+% \begin{macrocode}
+\resetglyph{ring}
+ \glyph{ringfitted}{1000}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Correcting false characters boxes}
+%
+% The depth and height of the ``ch'' and ``ck'' ligature are wrong. Here I
+% correct that.
+% \begin{macrocode}
+\resetglyph{ffi}
+ \glyph{ffi}{1000}
+ \resetheight{\height{h}}
+ \resetdepth{\depth{h}}
+\endsetglyph
+
+\resetglyph{ffl}
+ \glyph{ffl}{1000}
+ \resetheight{\height{k}}
+\endsetglyph
+
+\resetint{interword}{250}
+
+% \end{macrocode}
+% Similar correction for comma, period and semicolon.
+% \begin{macrocode}
+\resetglyph{comma}
+ \glyph{comma}{1000}
+ \resetheight{\height{quotesinglbase}}
+ \resetdepth{\depth{quotesinglbase}}
+\endsetglyph
+
+\resetglyph{period}
+ \glyph{period}{1000}
+ \resetheight{\height{quotesinglbase}}
+\endsetglyph
+
+\resetglyph{semicolon}
+ \glyph{semicolon}{1000}
+ \resetdepth{\depth{comma}}
+\endsetglyph
+
+% \end{macrocode}
+% The following ligatures are not available in yfrak and must be faked in
+% |blackletter.mtx|.
+% \begin{macrocode}
+\unsetglyph{dotlessj}
+\unsetglyph{fi}
+\unsetglyph{fl}
+\unsetglyph{backslash}
+
+% \end{macrocode}
+%
+% \subsection{Setting up the quotes}
+%
+% What follows, are hopeless tricks to get nice double and single quotes. I
+% move the glyphes arbitrarily around, in order to get nice spacing to
+% following or preceding letters and to avaiod EC characters here.
+% \begin{macrocode}
+\resetglyph{quotedblleft}
+ \movert{-100}
+ \glyph{quotedblleft}{1000}
+ \resetwidth{\add{\width{quotedblbase}}{70}}
+\endsetglyph
+
+\resetglyph{quotedblright}
+ \movert{20}
+ \glyph{quotedblright}{1000}
+ \resetwidth{\add{\width{quotedblbase}}{20}}
+\endsetglyph
+
+\resetglyph{quotesinglbase}
+ \moveup{\sub{\height{quotedblbase}}{\height{quoteright}}}
+ \glyph{quoteright}{1000}
+ \samesize{quotesinglbase}
+\endsetglyph
+
+\resetglyph{quotedblbase}
+ \moveup{\sub{\height{quotedblbase}}{\height{quotedblright}}}
+ \movert{-60}
+ \glyph{quotedblright}{1000}
+ \resetheight{\height{quotedblbase}}
+ \resetdepth{\depth{quotedblbase}}
+ \resetwidth{\add{\width{quotedblbase}}{40}}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Faking the glyphs}
+%
+% Now I try to fake or improve the letters for the latin T1 version of yfrak.
+% Most of this should be easy to understand.
+% \begin{macrocode}
+\resetglyph{A}
+ \glyph{A}{1000}
+ \resetheight{\sub{\height{A}}{50}}
+\endsetglyph
+
+\setglyph{Abreve}
+ \topaccent{A}{breve}{\Askew}
+\endsetglyph
+
+\setglyph{Aogonek}
+ \botaccent{A}{ogonek}{610}
+\endsetglyph
+
+\setglyph{Eogonek}
+ \botaccent{E}{ogonek}{590}
+\endsetglyph
+
+\setglyph{Lcaron}
+ \glyph{L}{1000}
+ \movert{-100}
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{Lslash}
+ \glyph{lslashslash}{1000}
+ \movert{-270}
+ \glyph{L}{1000}
+\endsetglyph
+
+\setglyph{Ng}
+ \glyph{S}{1000}
+\endsetglyph
+
+\setglyph{Uhungarumlaut}
+ \topaccent{U}{hungarumlaut}{\Uskew}
+\endsetglyph
+
+\setglyph{Uring}
+ \topaccent{U}{ring}{\Uskew}
+\endsetglyph
+
+\setglyph{dbar}
+ \push
+ \movert{-160}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{470}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{d}{1000}
+ \samesize{d}
+\endsetglyph
+
+\setglyph{lslash}
+ \glyph{lslashslash}{1000}
+ \movert{-210}
+ \glyph{l}{1000}
+\endsetglyph
+
+\setglyph{ng}
+ \glyph{sround}{1000}
+\endsetglyph
+
+\setglyph{sacute}
+ \topaccent{sround}{acute}{500}
+\endsetglyph
+
+\setglyph{scaron}
+ \topaccent{sround}{caron}{500}
+\endsetglyph
+
+\setglyph{scedilla}
+ \botaccent{sround}{cedilla}{500}
+\endsetglyph
+
+\setglyph{Agrave}
+ \topaccent{A}{grave}{\Askew}
+\endsetglyph
+
+\setglyph{Aacute}
+ \topaccent{A}{acute}{\Askew}
+\endsetglyph
+
+\setglyph{Acircumflex}
+ \topaccent{A}{circumflex}{\Askew}
+\endsetglyph
+
+\setglyph{Atilde}
+ \topaccent{A}{tilde}{\Askew}
+\endsetglyph
+
+\setglyph{Adieresis}
+ \topaccent{A}{dieresis}{\Askew}
+\endsetglyph
+
+\setglyph{Aring}
+ \topaccent{A}{ring}{\Askew}
+\endsetglyph
+
+\resetglyph{AE}
+ \glyph{A}{1000}
+ \movert{-120}
+ \glyph{E}{1000}
+\endsetglyph
+
+\setglyph{Eth}
+ \push
+ \movert{100}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{300}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{D}{1000}
+ \resetdepth{\depth{D}}
+\endsetglyph
+
+\resetglyph{OE}
+ \glyph{O}{1000}
+ \movert{-100}
+ \glyph{E}{1000}
+\endsetglyph
+
+\resetglyph{Oslash}
+ \push
+ \moveup{130}
+ \movert{170}
+ \glyph{slash}{800}
+ \pop
+ \glyph{O}{1000}
+\endsetglyph
+
+\setglyph{Ugrave}
+ \topaccent{U}{grave}{\Uskew}
+\endsetglyph
+
+\setglyph{Uacute}
+ \topaccent{U}{acute}{\Uskew}
+\endsetglyph
+
+\setglyph{Ucircumflex}
+ \topaccent{U}{circumflex}{\Uskew}
+\endsetglyph
+
+\setglyph{Udieresis}
+ \topaccent{U}{dieresis}{\Uskew}
+\endsetglyph
+
+\setglyph{Thorn}
+ \glyph{T}{1000}
+ \movert{-100}
+ \glyph{h}{1000}
+\endsetglyph
+
+\resetglyph{ae}
+ \glyph{a}{1000}
+ \movert{-150}
+ \glyph{e}{1000}
+\endsetglyph
+
+\setglyph{eth}
+ \push
+ \movert{-100}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{700}}
+ {\height{macron}}}
+ \glyph{lslashslash}{1000}
+ \pop
+ \glyph{d}{1000}
+\endsetglyph
+
+\resetglyph{oslash}
+ \push
+ \moveup{120}
+ \movert{50}
+ \glyph{slash}{500}
+ \pop
+ \glyph{o}{1000}
+\endsetglyph
+
+\resetglyph{oe}
+ \glyph{o}{1000}
+ \movert{-100}
+ \glyph{e}{1000}
+\endsetglyph
+
+\setglyph{thorn}
+ \glyph{t}{1000}
+ \movert{-80}
+ \glyph{h}{1000}
+\endsetglyph
+
+\endmetrics
+%</fcleanupmtx>
+% \end{macrocode}
+%
+%
+% \section{Final touches to yswab}
+%
+% \begin{macrocode}
+%<*scleanupmtx>
+\relax
+
+\metrics
+
+% \end{macrocode}
+%
+% \subsection{Accent positioning}
+%
+% A top accent is set by placing the center of the accent at the given
+% position along the width of the letter, raised up by the difference
+% between the height of the letter and the xheight.
+% \begin{macrocode}
+\setcommand\topaccent#1#2#3{
+ \push
+ \moveup{\max{0}{\sub{\height{#1}}{\int{xheight}}}}
+ \movert{\add{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ {\scale{\sub{\height{#1}}{\int{xheight}}}{\int{italicslant}}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% A bottom accent is set by placing the center of the accent at the given
+% position along the width of the letter.
+% \begin{macrocode}
+\setcommand\botaccent#1#2#3{
+ \push
+ \movert{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% The following value is for the |#3| paramter in the above macros.
+% \begin{macrocode}
+\setcommand\Askew{580}
+
+% \end{macrocode}
+% |\adjustheight| is meant for characters with a too small height, which is
+% true for all German umlauts, for example.
+% \begin{macrocode}
+\setcommand\adjustheight#1{%
+\resetglyph{#1}
+ \glyph{#1}{1000}
+ \resetheight{\height{k}}
+\endsetglyph
+}
+
+\adjustheight{adieresis}
+\adjustheight{edieresis}
+\adjustheight{odieresis}
+\adjustheight{udieresis}
+
+% \end{macrocode}
+%
+% \subsection{Setting up the accents}
+%
+% Here I make all accents a little bit smaller to fit with ygoth.
+% Additionally I push them upwards, which is accent dependent.
+% \begin{macrocode}
+\resetglyph{tilde}
+ \moveup{-40}
+ \glyph{tilde}{1000}
+\endsetglyph
+
+\resetglyph{dieresis}
+ \moveup{-40}
+ \glyph{dieresis}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% I want to have the original ring accent from yfrak. It's quite nice.
+% \begin{macrocode}
+\resetglyph{ring}
+ \moveup{-30}
+ \glyph{ringfitted}{1000}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Setting up the quotes}
+%
+% What follows, are hopeless tricks to get nice double and single quotes. I
+% move the glyphes arbitrarily around, in order to get nice spacing to
+% following or preceding letters and to avaiod EC characters here.
+% \begin{macrocode}
+\resetglyph{quotedblleft}
+ \movert{-90}
+ \glyph{quotedblleft}{1000}
+ \resetwidth{\sub{\width{quotedblleft}}{100}}
+\endsetglyph
+
+\resetglyph{quotedblright}
+ \movert{20}
+ \glyph{quotedblright}{1000}
+ \resetwidth{\sub{\width{quotedblright}}{120}}
+\endsetglyph
+
+\resetglyph{quotesinglbase}
+ \moveup{\sub{\height{quotedblbase}}{\height{quoteright}}}
+ \glyph{quoteright}{1000}
+ \samesize{quotesinglbase}
+\endsetglyph
+
+\resetglyph{quotedblbase}
+ \moveup{\sub{\height{quotedblbase}}{\height{quotedblright}}}
+ \movert{-45}
+ \glyph{quotedblright}{1000}
+ \movert{70}
+ \resetheight{\height{quotedblbase}}
+ \resetdepth{\depth{quotedblbase}}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Correcting character boxes}
+%
+% I don't know why, but the original character boxes of Haralambous for
+% yswab are sometimes wrong.
+% \begin{macrocode}
+\resetglyph{ffi}
+ \glyph{ffi}{1000}
+ \resetheight{\height{h}}
+ \resetdepth{\depth{h}}
+\endsetglyph
+
+\resetglyph{ffl}
+ \glyph{ffl}{1000}
+ \resetheight{\height{k}}
+\endsetglyph
+
+\resetglyph{comma}
+ \glyph{comma}{1000}
+ \resetheight{\height{quotesinglbase}}
+ \resetdepth{\depth{quotesinglbase}}
+\endsetglyph
+
+\resetglyph{period}
+ \glyph{period}{1000}
+ \resetheight{\height{quotesinglbase}}
+\endsetglyph
+
+\resetglyph{m}
+ \glyph{m}{1000}
+ \resetheight{\height{u}}
+\endsetglyph
+
+\resetglyph{n}
+ \glyph{n}{1000}
+ \resetheight{\height{u}}
+\endsetglyph
+
+\resetint{interword}{250}
+
+% \end{macrocode}
+%
+% \subsection{Faking the glyphs}
+%
+% The following glyphs should be constructed in |blackletter.mtx|.
+% \begin{macrocode}
+\unsetglyph{dotlessj}
+\unsetglyph{fi}
+\unsetglyph{fl}
+\unsetglyph{backslash}
+\unsetglyph{bar}
+
+% \end{macrocode}
+% Now I try to fake or improve the letters for the latin T1 version of ygoth.
+% Most of this should be easy to understand.
+% \begin{macrocode}
+\setglyph{Abreve}
+ \topaccent{A}{breve}{\Askew}
+\endsetglyph
+
+\setglyph{Lcaron}
+ \glyph{L}{1000}
+ \movert{-200}
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{Lslash}
+ \glyph{lslashslash}{1000}
+ \movert{-270}
+ \glyph{L}{1000}
+\endsetglyph
+
+\setglyph{Ng}
+ \glyph{S}{1000}
+\endsetglyph
+
+\setglyph{dbar}
+ \push
+ \movert{-160}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{470}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{d}{1000}
+ \samesize{d}
+\endsetglyph
+
+\setglyph{lslash}
+ \glyph{lslashslash}{1000}
+ \movert{-240}
+ \glyph{l}{1000}
+\endsetglyph
+
+\setglyph{ng}
+ \glyph{sround}{1000}
+\endsetglyph
+
+\setglyph{sacute}
+ \topaccent{sround}{acute}{500}
+\endsetglyph
+
+\setglyph{scaron}
+ \topaccent{sround}{caron}{500}
+\endsetglyph
+
+\setglyph{scedilla}
+ \botaccent{sround}{cedilla}{500}
+\endsetglyph
+
+\setglyph{Agrave}
+ \topaccent{A}{grave}{\Askew}
+\endsetglyph
+
+\setglyph{Aacute}
+ \topaccent{A}{acute}{\Askew}
+\endsetglyph
+
+\setglyph{Acircumflex}
+ \topaccent{A}{circumflex}{\Askew}
+\endsetglyph
+
+\setglyph{Atilde}
+ \topaccent{A}{tilde}{\Askew}
+\endsetglyph
+
+\setglyph{Adieresis}
+ \topaccent{A}{dieresis}{\Askew}
+\endsetglyph
+
+\setglyph{Aring}
+ \topaccent{A}{ring}{\Askew}
+\endsetglyph
+
+\setglyph{AE}
+ \glyph{A}{1000}
+ \movert{-100}
+ \glyph{E}{1000}
+\endsetglyph
+
+\setglyph{Eth}
+ \push
+ \movert{100}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{300}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{D}{1000}
+ \resetdepth{\depth{D}}
+\endsetglyph
+
+\setglyph{OE}
+ \glyph{O}{1000}
+ \movert{-100}
+ \glyph{E}{1000}
+\endsetglyph
+
+\setglyph{Oslash}
+ \push
+ \moveup{130}
+ \movert{170}
+ \glyph{slash}{800}
+ \pop
+ \glyph{O}{1000}
+\endsetglyph
+
+\setglyph{Thorn}
+ \glyph{T}{1000}
+ \movert{-100}
+ \glyph{h}{1000}
+\endsetglyph
+
+\setglyph{ae}
+ \glyph{a}{1000}
+ \movert{-150}
+ \glyph{e}{1000}
+\endsetglyph
+
+\setglyph{eth}
+ \push
+ \movert{-30}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{650}}
+ {\height{macron}}}
+ \glyph{lslashslash}{1000}
+ \pop
+ \glyph{d}{1000}
+\endsetglyph
+
+\setglyph{oslash}
+ \push
+ \moveup{120}
+ \movert{70}
+ \glyph{slash}{500}
+ \pop
+ \glyph{o}{1000}
+\endsetglyph
+
+\setglyph{oe}
+ \glyph{o}{1000}
+ \movert{-100}
+ \glyph{e}{1000}
+\endsetglyph
+
+\setglyph{thorn}
+ \glyph{t}{1000}
+ \movert{-80}
+ \glyph{h}{1000}
+\endsetglyph
+
+\endmetrics
+%</scleanupmtx>
+% \end{macrocode}
+%
+%
+% \section{Final touches to ygoth}
+%
+% \begin{macrocode}
+%<*gcleanupmtx>
+\relax
+
+\metrics
+
+% \end{macrocode}
+%
+% \subsection{Accent positioning}
+%
+% A top accent is set by placing the center of the accent at the given
+% position along the width of the letter, raised up by the difference
+% between the height of the letter and the xheight.
+% \begin{macrocode}
+\setcommand\topaccent#1#2#3{
+ \push
+ \moveup{\max{0}{\sub{\height{#1}}{\int{xheight}}}}
+ \movert{\add{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ {\scale{\sub{\height{#1}}{\int{xheight}}}{\int{italicslant}}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% A bottom accent is set by placing the center of the accent at the given
+% position along the width of the letter.
+% \begin{macrocode}
+\setcommand\botaccent#1#2#3{
+ \push
+ \movert{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% The following values are for the |#3| paramter in the above macros.
+% \begin{macrocode}
+\setcommand\Askew{700}
+\setcommand\Uskew{600}
+
+% \end{macrocode}
+% |\adjustheight| is meant for characters with a too small height, which is
+% true for all German umlauts, for example.
+% \begin{macrocode}
+\setcommand\adjustheight#1{%
+\resetglyph{#1}
+ \glyph{#1}{1000}
+ \resetheight{\height{k}}
+\endsetglyph
+}
+
+\adjustheight{adieresis}
+\adjustheight{edieresis}
+\adjustheight{odieresis}
+\adjustheight{udieresis}
+
+% \end{macrocode}
+%
+% \subsection{Setting up the accents}
+%
+% Here I make all accents a little bit smaller to fit with ygoth.
+% Additionally I push them upwards, which is accent dependent.
+% \begin{macrocode}
+\setcommand\SmallerAccent#1#2{
+\resetglyph{#1}
+ \moveup{\add{100}{#2}}
+ \movert{\div{\width{#1}}{10}}
+ \glyph{#1}{800}
+ \samesize{#1}
+\endsetglyph
+}
+
+\SmallerAccent{grave}{20}
+\SmallerAccent{acute}{20}
+\SmallerAccent{circumflex}{20}
+\SmallerAccent{tilde}{0}
+\SmallerAccent{hungarumlaut}{20}
+\SmallerAccent{ring}{30}
+\SmallerAccent{ringfitted}{20}
+\SmallerAccent{caron}{20}
+\SmallerAccent{breve}{20}
+
+% \end{macrocode}
+% I construct the dieresis of two mere periods. Don't say anything.
+% \begin{macrocode}
+\resetglyph{dieresis}
+ \moveup{560}
+ \movert{80}
+ \glyph{period}{1000}
+ \movert{-140}
+ \glyph{period}{1000}
+ \samesize{dieresis}
+\endsetglyph
+
+% \end{macrocode}
+% Similar trick for the dot accent.
+% \begin{macrocode}
+\resetglyph{dotaccent}
+ \moveup{560}
+ \movert{10}
+ \glyph{period}{1000}
+ \samesize{dotaccent}
+\endsetglyph
+
+\resetglyph{ring}
+ \moveup{-30}
+ \glyph{ringfitted}{1000}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Setting up the quotes}
+%
+% What follows, are hopeless tricks to get nice double and single quotes. I
+% move the glyphes arbitrarily around, in order to get nice spacing to
+% following or preceding letters and to avaiod EC characters here.
+% \begin{macrocode}
+\resetglyph{quotesinglbase}
+ \moveup{\sub{\height{quotedblbase}}{\height{quoteright}}}
+ \glyph{quoteright}{1000}
+ \samesize{quotesinglbase}
+\endsetglyph
+
+\resetglyph{quotedblleft}
+ \movert{-90}
+ \glyph{quotedblleft}{1000}
+ \resetwidth{\sub{\width{quotedblleft}}{100}}
+\endsetglyph
+
+\resetglyph{quotedblright}
+ \movert{20}
+ \glyph{quotedblright}{1000}
+ \resetwidth{\sub{\width{quotedblright}}{120}}
+\endsetglyph
+
+\resetglyph{quotedblbase}
+ \moveup{\sub{\height{quotedblbase}}{\height{quotedblright}}}
+ \movert{-80}
+ \glyph{quotedblright}{1000}
+ \resetheight{\height{quotedblbase}}
+ \resetdepth{\depth{quotedblbase}}
+ \resetwidth{\add{\width{quotedblbase}}{30}}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Correcting character boxes}
+%
+% I don't know why, but the original character boxes of Haralambous for
+% ygoth are sometimes wrong. Here I shift the ``i'' a little bit to the
+% left and the ``l'' a little bit to the right. Similar changes to other
+% characters.
+% \begin{macrocode}
+\resetglyph{dotlessi}
+ \movert{-30}
+ \glyph{dotlessi}{1000}
+ \resetwidth{\width{dotlessi}}
+ \resetheight{\height{u}}
+\endsetglyph
+
+\resetglyph{fi}
+ \glyph{fi}{1000}
+ \movert{40}
+\endsetglyph
+
+\resetglyph{ffi}
+ \glyph{ffi}{1000}
+ \movert{20}
+ \resetdepth{\depth{h}}
+\endsetglyph
+
+\resetglyph{ffl}
+ \glyph{ffl}{1000}
+ \movert{20}
+\endsetglyph
+
+\resetglyph{comma}
+ \glyph{comma}{1000}
+ \resetheight{\height{quotesinglbase}}
+\endsetglyph
+
+\resetglyph{period}
+ \glyph{period}{1000}
+ \resetheight{\height{quotesinglbase}}
+\endsetglyph
+
+\resetglyph{A}
+ \glyph{A}{1000}
+ \resetheight{\sub{\height{A}}{50}}
+\endsetglyph
+
+\resetglyph{i}
+ \movert{-30}
+ \glyph{i}{1000}
+ \samesize{i}
+\endsetglyph
+
+\resetglyph{j}
+ \movert{-30}
+ \glyph{j}{1000}
+ \movert{30}
+\endsetglyph
+
+\resetglyph{l}
+ \movert{30}
+ \glyph{l}{1000}
+ \samesize{l}
+\endsetglyph
+
+\resetint{interword}{250}
+
+% \end{macrocode}
+%
+% \subsection{Kerning}
+%
+% ``F'' and ``V'' need some kerning.
+%
+% \begin{macrocode}
+\setkern{F}{a}{-140}
+\setkern{F}{e}{-110}
+\setkern{F}{o}{-140}
+\setkern{F}{u}{-110}
+
+\setkern{V}{a}{-140}
+\setkern{V}{e}{-110}
+\setkern{V}{o}{-140}
+\setkern{V}{u}{-110}
+
+
+% \end{macrocode}
+%
+% \subsection{Faking the glyphs}
+%
+% The following glyphs should be constructed in |blackletter.mtx|.
+% \begin{macrocode}
+\unsetglyph{dotlessj}
+\unsetglyph{backslash}
+
+% \end{macrocode}
+% Now I try to fake or improve the letters for the latin T1 version of ygoth.
+% Most of this should be easy to understand.
+% \begin{macrocode}
+\setglyph{Abreve}
+ \topaccent{A}{breve}{\Askew}
+\endsetglyph
+
+\setglyph{Eogonek}
+ \botaccent{E}{ogonek}{600}
+\endsetglyph
+
+\setglyph{Lacute}
+ \topaccent{L}{acute}{700}
+\endsetglyph
+
+\setglyph{Lcaron}
+ \glyph{L}{1000}
+ \movert{-30}
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{Lslash}
+ \moveup{-200}
+ \glyph{lslashslash}{1800}
+ \moveup{200}
+ \movert{-640}
+ \glyph{L}{1000}
+ \samesize{L}
+\endsetglyph
+
+\setglyph{Ng}
+ \glyph{S}{1000}
+\endsetglyph
+
+\setglyph{Uhungarumlaut}
+ \topaccent{U}{hungarumlaut}{\Uskew}
+\endsetglyph
+
+\setglyph{Uring}
+ \topaccent{U}{ring}{\Uskew}
+\endsetglyph
+
+\setglyph{dbar}
+ \push
+ \movert{-100}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{390}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{d}{1000}
+ \samesize{d}
+\endsetglyph
+
+\setglyph{lcaron}
+ \glyph{l}{1000}
+ \movert{-50}
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{lslash}
+ \glyph{lslashslash}{1000}
+ \movert{-220}
+ \glyph{l}{1000}
+\endsetglyph
+
+\setglyph{ng}
+ \glyph{sround}{1000}
+\endsetglyph
+
+\setglyph{sacute}
+ \topaccent{sround}{acute}{500}
+\endsetglyph
+
+\setglyph{scaron}
+ \topaccent{sround}{caron}{500}
+\endsetglyph
+
+\setglyph{scedilla}
+ \botaccent{sround}{cedilla}{500}
+\endsetglyph
+
+\setglyph{Agrave}
+ \topaccent{A}{grave}{\Askew}
+\endsetglyph
+
+\setglyph{Aacute}
+ \topaccent{A}{acute}{\Askew}
+\endsetglyph
+
+\setglyph{Acircumflex}
+ \topaccent{A}{circumflex}{\Askew}
+\endsetglyph
+
+\setglyph{Atilde}
+ \topaccent{A}{tilde}{\Askew}
+\endsetglyph
+
+\setglyph{Adieresis}
+ \topaccent{A}{dieresis}{\Askew}
+\endsetglyph
+
+\setglyph{Aring}
+ \topaccent{A}{ring}{\Askew}
+\endsetglyph
+
+\setglyph{AE}
+ \glyph{A}{1000}
+ \movert{-190}
+ \glyph{E}{1000}
+\endsetglyph
+
+\setglyph{Eth}
+ \push
+ \movert{-80}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{380}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{D}{1000}
+ \resetdepth{\depth{D}}
+\endsetglyph
+
+\setglyph{OE}
+ \glyph{O}{1000}
+ \movert{-100}
+ \glyph{E}{1000}
+\endsetglyph
+
+\setglyph{Oslash}
+ \push
+ \moveup{130}
+ \movert{190}
+ \glyph{slash}{800}
+ \pop
+ \glyph{O}{1000}
+\endsetglyph
+
+\setglyph{Ugrave}
+ \topaccent{U}{grave}{\Uskew}
+\endsetglyph
+
+\setglyph{Uacute}
+ \topaccent{U}{acute}{\Uskew}
+\endsetglyph
+
+\setglyph{Ucircumflex}
+ \topaccent{U}{circumflex}{\Uskew}
+\endsetglyph
+
+\setglyph{Udieresis}
+ \topaccent{U}{dieresis}{\Uskew}
+\endsetglyph
+
+\setglyph{Thorn}
+ \glyph{T}{1000}
+ \movert{-100}
+ \glyph{h}{1000}
+\endsetglyph
+
+\setglyph{ae}
+ \glyph{a}{1000}
+ \movert{-150}
+ \glyph{e}{1000}
+\endsetglyph
+
+\setglyph{eth}
+ \push
+ \movert{-40}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{620}}
+ {\height{macron}}}
+ \glyph{lslashslash}{1000}
+ \pop
+ \glyph{d}{1000}
+\endsetglyph
+
+\setglyph{oslash}
+ \push
+ \moveup{120}
+ \movert{70}
+ \glyph{slash}{500}
+ \pop
+ \glyph{o}{1000}
+\endsetglyph
+
+\setglyph{oe}
+ \glyph{o}{1000}
+ \movert{-100}
+ \glyph{e}{1000}
+\endsetglyph
+
+\setglyph{thorn}
+ \glyph{t}{1000}
+ \movert{-80}
+ \glyph{h}{1000}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Letterspacing}
+%
+% ygoth runs too narrow. I improve that here.
+% \begin{macrocode}
+\setint{letterspacing}{50}
+
+% \end{macrocode}
+% On the other hand, the German combination ``sch'' looks like ``s\,ch''.
+% Therefore I set this kerning here. FixMe: This induces wrong implicit
+% kerning of diacritic letters in |blackletter.mtx|.
+% \begin{macrocode}
+\setkern{s}{c}{-80}
+
+\endmetrics
+%</gcleanupmtx>
+% \end{macrocode}
+%
+%
+% \section{Letterspacing}
+%
+% The following definitions form the file |lettersp.mtx| and define some
+% thing for a letterspeced Fraktur version, used eventually as the italic
+% counterpart.
+% \begin{macrocode}
+%<*letterspmtx>
+\relax
+
+\metrics
+
+% \end{macrocode}
+%
+% \subsection{The ``sch'' case}
+%
+% First, I re-do the spacing for the ``sch'' combination. This is unusual,
+% but I find it more readable this way.
+%
+% This is now turned off.
+% \begin{macrocode}
+\iffalse
+\setkern{s}{c}{-150}
+\fi
+
+% \end{macrocode}
+% The following definitions turn off all kerning commands. This prevents
+% |blackletter.mtx| from copying the above kerning information to other
+% \mbox{``s--c''} combinations with diacritic marks.
+% \begin{macrocode}
+\gdef\setleftrightkerning#1#2#3{}
+\gdef\setleftkerning#1#2#3{}
+\gdef\setrightkerning#1#2#3{}
+
+% \end{macrocode}
+% Now I finally set the letterspacing.
+% \begin{macrocode}
+\setint{letterspacing}{150}
+
+\resetint{interword}{350}
+
+% \end{macrocode}
+%
+% \subsection{Breaking up of some ligatures}
+%
+% In the rest of the file I re-define some ligatures, namely all ligatures
+% that have to be blackletter up in letterspacing. Actually the ``st'' ligature
+% should be blackletter up, too, according to Duden and other sources. Curiously
+% enough, I've found no real life book that did it that way, everybody keeps
+% it together. So I do that, too. After all, it's a very nice ligature.
+% \begin{macrocode}
+\resetglyph{dotlessj}
+ \glyph{s}{1000}
+ \movert{\int{letterspacing}}
+ \glyph{i}{1000}
+\endsetglyph
+
+\resetglyph{ff}
+ \glyph{f}{1000}
+ \movert{\int{letterspacing}}
+ \glyph{f}{1000}
+\endsetglyph
+
+\resetglyph{fi}
+ \glyph{f}{1000}
+ \movert{\int{letterspacing}}
+ \glyph{i}{1000}
+\endsetglyph
+
+\resetglyph{fl}
+ \glyph{f}{1000}
+ \movert{\int{letterspacing}}
+ \glyph{l}{1000}
+\endsetglyph
+
+\resetglyph{backslash}
+ \glyph{f}{1000}
+ \movert{\int{letterspacing}}
+ \glyph{t}{1000}
+\endsetglyph
+
+\resetglyph{asciicircum}
+ \glyph{s}{1000}
+ \movert{\int{letterspacing}}
+ \glyph{s}{1000}
+\endsetglyph
+
+\endmetrics
+%</letterspmtx>
+% \end{macrocode}
+% The following file |blackletter.mtx| is a slimmed and modified version of
+% \texttt{fontinst}'s |latin.mtx|. It makes last settings and tries to fake
+% glyphs that are still missing.
+% \begin{macrocode}
+%<*blacklettermtx>
+\relax
+
+\documentclass[twocolumn]{article}
+\usepackage{fontdoc}
+
+\title{The blackletter typefaces glyphs}
+\author{Torsten Bronger}
+\date{7.~May 2002 \\
+Version 1.0}
+
+\begin{document}
+\maketitle
+
+\section{Introduction}
+
+This document describes the glyphs used by the {\tt fontinst} package when
+generating blackletter typefaces fonts, especially those by Yannis Haralambous.
+It's a modified version of {\tt fontinst}'s \verb|latin.mtx|.
+
+\metrics
+
+\needsfontinstversion{1.801}
+
+% \end{macrocode}
+%
+% \subsection{Basic helper commands}
+%
+% |\unfakable| is a glyph which can't be faked.
+% \begin{macrocode}
+\setcommand\unfakable#1{
+ \setglyph{#1}
+ \ifisglyph{#1-not}\then
+ \moveup{\neg{\depth{#1-not}}}
+ \glyphrule{
+ \width{#1-not}
+ }{
+ \add{\depth{#1-not}}{\height{#1-not}}
+ }
+ \resetitalic{\italic{#1-not}}
+ \moveup{\depth{#1-not}}
+ \else
+ \glyphrule{500}{500}
+ \fi
+ \glyphwarning{missing glyph `#1'}
+ \endsetglyph
+}
+
+% \end{macrocode}
+% A top accent is set by placing the center of the accent at the given
+% position along the width of the letter, raised up by the difference
+% between the height of the letter and the xheight.
+% \begin{macrocode}
+\setcommand\topaccent#1#2#3{
+ \push
+ \moveup{\max{0}{\sub{\height{#1}}{\int{xheight}}}}
+ \movert{\add{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ {\scale{\sub{\height{#1}}{\int{xheight}}}{\int{italicslant}}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+% A bottom accent is set by placing the center of the accent at the given
+% position along the width of the letter.
+% \begin{macrocode}
+\setcommand\botaccent#1#2#3{
+ \push
+ \movert{\sub{\scale{\width{#1}}{#3}}{\scale{\width{#2}}{500}}}
+ \glyph{#2}{1000}
+ \pop
+ \glyph{#1}{1000}
+}
+
+% \end{macrocode}
+%
+% \subsection{Default font values}
+%
+% \begin{macrocode}
+\comment{\section{Default values}}
+
+\setint{italicslant}{0}
+\setint{xheight}{\height{x}}
+\setint{capheight}{\height{A}}
+\setint{ascender}{\height{k}}
+\setint{descender}{\depth{g}}
+\setint{underlinethickness}{40}
+\setint{visiblespacedepth}{200}
+\setint{visiblespacewidth}{400}
+\setint{visiblespacesurround}{50}
+\setint{smallcapsscale}{800}
+\setint{smallcapskerning}{900}
+
+\setint{capspacing}{50}
+\setint{smallcapsextraspace}{0}
+
+\setint{boundarychar}{32}
+
+
+% \end{macrocode}
+%
+% \subsection{Kerning adjustments}
+%
+% \begin{macrocode}
+\comment{\section{Kerning}}
+
+% \end{macrocode}
+% The command |\typicalkerns| adds extra space before some punctuation. This
+% is common in typesetting with blackletter typefaces.
+% \begin{macrocode}
+\setcommand\typicalkerns#1{
+ \setkern{#1}{exclam}{100}
+ \setkern{#1}{question}{100}
+ \setkern{#1}{colon}{50}
+ \setkern{#1}{semicolon}{50}
+}
+
+% \end{macrocode}
+% Now we call |\typicalkerns| for all letter-like characters.
+% \begin{macrocode}
+\typicalkerns{dotlessj}
+\typicalkerns{ff}
+\typicalkerns{fi}
+\typicalkerns{fl}
+\typicalkerns{ffi}
+\typicalkerns{ffl}
+
+\typicalkerns{zero}
+\typicalkerns{one}
+\typicalkerns{two}
+\typicalkerns{three}
+\typicalkerns{four}
+\typicalkerns{five}
+\typicalkerns{six}
+\typicalkerns{seven}
+\typicalkerns{eight}
+\typicalkerns{nine}
+
+\typicalkerns{A} \typicalkerns{B}
+\typicalkerns{C} \typicalkerns{D} \typicalkerns{E} \typicalkerns{F}
+\typicalkerns{G} \typicalkerns{H} \typicalkerns{I} \typicalkerns{J}
+\typicalkerns{K} \typicalkerns{L} \typicalkerns{M} \typicalkerns{N}
+\typicalkerns{O} \typicalkerns{P} \typicalkerns{Q} \typicalkerns{R}
+\typicalkerns{S} \typicalkerns{T} \typicalkerns{U} \typicalkerns{V}
+\typicalkerns{W} \typicalkerns{X} \typicalkerns{Y} \typicalkerns{Z}
+
+\typicalkerns{a} \typicalkerns{b}
+\typicalkerns{c} \typicalkerns{d} \typicalkerns{e} \typicalkerns{f}
+\typicalkerns{g} \typicalkerns{h} \typicalkerns{i} \typicalkerns{j}
+\typicalkerns{k} \typicalkerns{l} \typicalkerns{m} \typicalkerns{n}
+\typicalkerns{o} \typicalkerns{p} \typicalkerns{q} \typicalkerns{r}
+\typicalkerns{s} \typicalkerns{t} \typicalkerns{u} \typicalkerns{v}
+\typicalkerns{w} \typicalkerns{x} \typicalkerns{y} \typicalkerns{z}
+
+\typicalkerns{backslash}
+\typicalkerns{asciicircum}
+\typicalkerns{underscore}
+\typicalkerns{bar}
+
+\typicalkerns{quoteleft}
+\typicalkerns{quoteright}
+\typicalkerns{quotedblleft}
+\typicalkerns{quotedblright}
+
+\typicalkerns{Abreve}
+\typicalkerns{Aogonek} \typicalkerns{Cacute} \typicalkerns{Ccaron}
+\typicalkerns{Dcaron} \typicalkerns{Ecaron} \typicalkerns{Eogonek}
+\typicalkerns{Gbreve} \typicalkerns{Lacute} \typicalkerns{Lcaron}
+\typicalkerns{Lslash} \typicalkerns{Nacute} \typicalkerns{Ncaron}
+\typicalkerns{Ng} \typicalkerns{Ohungarumlaut} \typicalkerns{Racute}
+\typicalkerns{Rcaron} \typicalkerns{Sacute} \typicalkerns{Scaron}
+\typicalkerns{Scedilla} \typicalkerns{Tcaron} \typicalkerns{Tcedilla}
+\typicalkerns{Uhungarumlaut} \typicalkerns{Uring} \typicalkerns{Ydieresis}
+\typicalkerns{Zacute} \typicalkerns{Zcaron} \typicalkerns{Zdotaccent}
+\typicalkerns{IJ} \typicalkerns{Idotaccent} \typicalkerns{dbar}
+
+\typicalkerns{section}
+
+\typicalkerns{abreve} \typicalkerns{aogonek}
+\typicalkerns{cacute} \typicalkerns{ccaron} \typicalkerns{dcaron}
+\typicalkerns{ecaron} \typicalkerns{eogonek} \typicalkerns{gbreve}
+\typicalkerns{lacute} \typicalkerns{lcaron} \typicalkerns{lslash}
+\typicalkerns{nacute} \typicalkerns{ncaron} \typicalkerns{ng}
+\typicalkerns{ohungarumlaut} \typicalkerns{racute} \typicalkerns{rcaron}
+\typicalkerns{sacute} \typicalkerns{scaron} \typicalkerns{scedilla}
+\typicalkerns{tcaron} \typicalkerns{tcedilla} \typicalkerns{uhungarumlaut}
+\typicalkerns{uring} \typicalkerns{ydieresis} \typicalkerns{zacute}
+\typicalkerns{zcaron} \typicalkerns{zdotaccent} \typicalkerns{ij}
+
+%\typicalkerns{exclamdown}
+%\typicalkerns{questiondown}
+\typicalkerns{sterling}
+
+\typicalkerns{Agrave}
+\typicalkerns{Aacute} \typicalkerns{Acircumflex} \typicalkerns{Atilde}
+\typicalkerns{Adieresis} \typicalkerns{Aring} \typicalkerns{AE}
+\typicalkerns{Ccedilla} \typicalkerns{Egrave} \typicalkerns{Eacute}
+\typicalkerns{Ecircumflex} \typicalkerns{Edieresis} \typicalkerns{Igrave}
+\typicalkerns{Iacute} \typicalkerns{Icircumflex} \typicalkerns{Idieresis}
+\typicalkerns{Eth} \typicalkerns{Ntilde} \typicalkerns{Ograve}
+\typicalkerns{Oacute} \typicalkerns{Ocircumflex} \typicalkerns{Otilde}
+\typicalkerns{Odieresis} \typicalkerns{OE} \typicalkerns{Oslash}
+\typicalkerns{Ugrave} \typicalkerns{Uacute} \typicalkerns{Ucircumflex}
+\typicalkerns{Udieresis} \typicalkerns{Yacute} \typicalkerns{Thorn}
+\typicalkerns{SS} \typicalkerns{agrave} \typicalkerns{aacute}
+\typicalkerns{acircumflex} \typicalkerns{atilde} \typicalkerns{adieresis}
+\typicalkerns{aring} \typicalkerns{ae} \typicalkerns{ccedilla}
+\typicalkerns{egrave} \typicalkerns{eacute} \typicalkerns{ecircumflex}
+\typicalkerns{edieresis} \typicalkerns{igrave} \typicalkerns{iacute}
+\typicalkerns{icircumflex} \typicalkerns{idieresis} \typicalkerns{eth}
+\typicalkerns{ntilde} \typicalkerns{ograve} \typicalkerns{oacute}
+\typicalkerns{ocircumflex} \typicalkerns{otilde} \typicalkerns{odieresis}
+\typicalkerns{oe} \typicalkerns{oslash} \typicalkerns{ugrave}
+\typicalkerns{uacute} \typicalkerns{ucircumflex} \typicalkerns{udieresis}
+\typicalkerns{yacute} \typicalkerns{thorn} \typicalkerns{germandbls}
+
+% \end{macrocode}
+% Here we set the kernings of the new ligature characters.
+% \begin{macrocode}
+\setleftkerning{dotlessj}{s}{1000}
+\setrightkerning{dotlessj}{i}{1000}
+
+\setleftkerning{backslash}{f}{1000}
+\setrightkerning{backslash}{t}{1000}
+
+\setleftkerning{asciicircum}{s}{1000}
+\setrightkerning{asciicircum}{s}{1000}
+
+\setleftkerning{underscore}{s}{1000}
+\setrightkerning{unserscore}{t}{1000}
+
+\setleftkerning{bar}{t}{1000}
+\setrightkerning{bar}{z}{1000}
+
+
+% \end{macrocode}
+% The following adjustments are again taken from |latin.mtx|.
+% \begin{macrocode}
+\setleftrightkerning{visiblespace}{space}{1000}
+
+\setleftkerning{hyphenchar}{hyphen}{1000}
+
+\setleftrightkerning{Aacute}{A}{1000}
+\setleftrightkerning{Abreve}{A}{1000}
+\setleftrightkerning{Acircumflex}{A}{1000}
+\setleftrightkerning{Adieresis}{A}{1000}
+\setleftrightkerning{Agrave}{A}{1000}
+\setleftrightkerning{Aogonek}{A}{1000}
+\setleftrightkerning{Aring}{A}{1000}
+\setleftrightkerning{Atilde}{A}{1000}
+
+\setleftrightkerning{Cacute}{C}{1000}
+\setleftrightkerning{Ccaron}{C}{1000}
+\setleftrightkerning{Ccedilla}{C}{1000}
+
+\setleftrightkerning{Dcaron}{D}{1000}
+
+\setleftrightkerning{Eacute}{E}{1000}
+\setleftrightkerning{Ecaron}{E}{1000}
+\setleftrightkerning{Ecircumflex}{E}{1000}
+\setleftrightkerning{Edieresis}{E}{1000}
+\setleftrightkerning{Egrave}{E}{1000}
+\setleftrightkerning{Eogonek}{E}{1000}
+
+\setleftrightkerning{Gbreve}{G}{1000}
+
+\setleftkerning{IJ}{I}{1000}
+
+\setleftrightkerning{Iacute}{I}{1000}
+\setleftrightkerning{Icircumflex}{I}{1000}
+\setleftrightkerning{Idieresis}{I}{1000}
+\setleftrightkerning{Idotaccent}{I}{1000}
+\setleftrightkerning{Igrave}{I}{1000}
+
+\setrightkerning{IJ}{J}{1000}
+
+\setleftrightkerning{Lacute}{L}{1000}
+\setleftrightkerning{Lslash}{L}{1000}
+\setleftkerning{Lcaron}{L}{1000}
+
+\setleftrightkerning{Nacute}{N}{1000}
+\setleftrightkerning{Ncaron}{N}{1000}
+\setleftrightkerning{Ntilde}{N}{1000}
+
+\setleftrightkerning{Oacute}{O}{1000}
+\setleftrightkerning{Ocircumflex}{O}{1000}
+\setleftrightkerning{Odieresis}{O}{1000}
+\setleftrightkerning{Ograve}{O}{1000}
+\setleftrightkerning{Ohungarumlaut}{O}{1000}
+\setleftrightkerning{Oslash}{O}{1000}
+\setleftrightkerning{Otilde}{O}{1000}
+
+\setleftrightkerning{Rcaron}{R}{1000}
+\setleftrightkerning{Racute}{R}{1000}
+
+\setleftrightkerning{SS}{S}{1000}
+\setleftrightkerning{Sacute}{S}{1000}
+\setleftrightkerning{Scaron}{S}{1000}
+\setleftrightkerning{Scedilla}{S}{1000}
+
+\setleftrightkerning{Tcaron}{T}{1000}
+\setleftrightkerning{Tcedilla}{T}{1000}
+
+\setleftrightkerning{Uacute}{U}{1000}
+\setleftrightkerning{Ucircumflex}{U}{1000}
+\setleftrightkerning{Udieresis}{U}{1000}
+\setleftrightkerning{Ugrave}{U}{1000}
+\setleftrightkerning{Uhungarumlaut}{U}{1000}
+\setleftrightkerning{Uring}{U}{1000}
+
+\setleftrightkerning{Yacute}{Y}{1000}
+\setleftrightkerning{Ydieresis}{Y}{1000}
+
+\setleftrightkerning{Zacute}{Z}{1000}
+\setleftrightkerning{Zcaron}{Z}{1000}
+\setleftrightkerning{Zdotaccent}{Z}{1000}
+
+\setleftrightkerning{aogonek}{a}{1000}
+
+\setleftrightkerning{ccedilla}{c}{1000}
+
+\setleftrightkerning{eogonek}{e}{1000}
+
+% \end{macrocode}
+% The following four lines are of course different from |latin.mtx|, because
+% these positions contain different ligatures here. ``ffi'' is ``ch'', and
+% ``ffl'' is ``ck''.
+% \begin{macrocode}
+\setleftkerning{ffi}{c}{1000}
+\setleftkerning{ffl}{c}{1000}
+\setrightkerning{ffi}{h}{1000}
+\setrightkerning{ffl}{k}{1000}
+
+\setleftrightkerning{ff}{f}{1000}
+\setleftkerning{fi}{f}{1000}
+\setleftkerning{fl}{f}{1000}
+
+\setleftkerning{ij}{i}{1000}
+
+\setrightkerning{fi}{i}{1000}
+
+\setrightkerning{ij}{j}{1000}
+
+\setrightkerning{fl}{l}{1000}
+
+\setleftkerning{oe}{o}{1000}
+\setrightkerning{oe}{e}{1000}
+\setleftrightkerning{oslash}{o}{1000}
+
+\setleftrightkerning{scedilla}{s}{1000}
+
+\setleftrightkerning{tcedilla}{t}{1000}
+
+% \end{macrocode}
+%
+% \subsection{Faking of glyphs}
+%
+% \subsubsection{List of unfakable glyphs}
+%
+% At first, a list of all glyphs that can't be faked. This list is shorter
+% than in |latin.mtx|, because I'm naughty enough to fake more.
+% \begin{macrocode}
+\comment{\section{Unfakable glyphs}}
+
+\unfakable{Gamma}
+\unfakable{Delta}
+\unfakable{Theta}
+\unfakable{Lambda}
+\unfakable{Xi}
+\unfakable{Pi}
+\unfakable{Sigma}
+\unfakable{Upsilon}
+\unfakable{Upsilon1}
+\unfakable{Phi}
+\unfakable{Psi}
+\unfakable{Omega}
+
+\unfakable{grave}
+\unfakable{acute}
+\unfakable{circumflex}
+\unfakable{tilde}
+\unfakable{dieresis}
+\unfakable{hungarumlaut}
+\unfakable{ring}
+\unfakable{caron}
+\unfakable{breve}
+\unfakable{macron}
+\unfakable{dotaccent}
+\unfakable{cedilla}
+\unfakable{ogonek}
+\unfakable{guilsinglleft}
+\unfakable{guilsinglright}
+\unfakable{quotedblleft}
+\unfakable{quotedblright}
+\unfakable{quotedblbase}
+\unfakable{guillemotleft}
+\unfakable{guillemotright}
+\unfakable{endash}
+\unfakable{emdash}
+\unfakable{dotlessi}
+\unfakable{perthousandzero}
+\unfakable{exclam}
+\unfakable{quotedbl}
+\unfakable{numbersign}
+\unfakable{dollar}
+\unfakable{percent}
+\unfakable{ampersand}
+\unfakable{quoteright}
+\unfakable{parenleft}
+\unfakable{parenright}
+\unfakable{asterisk}
+\unfakable{plus}
+\unfakable{comma}
+\unfakable{hyphen}
+\unfakable{period}
+\unfakable{slash}
+\unfakable{zero}
+\unfakable{one}
+\unfakable{two}
+\unfakable{three}
+\unfakable{four}
+\unfakable{five}
+\unfakable{six}
+\unfakable{seven}
+\unfakable{eight}
+\unfakable{nine}
+\unfakable{zerooldstyle}
+\unfakable{oneoldstyle}
+\unfakable{twooldstyle}
+\unfakable{threeoldstyle}
+\unfakable{fouroldstyle}
+\unfakable{fiveoldstyle}
+\unfakable{sixoldstyle}
+\unfakable{sevenoldstyle}
+\unfakable{eightoldstyle}
+\unfakable{nineoldstyle}
+\unfakable{colon}
+\unfakable{semicolon}
+\unfakable{less}
+\unfakable{equal}
+\unfakable{greater}
+\unfakable{question}
+\unfakable{at}
+\unfakable{A}
+\unfakable{B}
+\unfakable{C}
+\unfakable{D}
+\unfakable{E}
+\unfakable{F}
+\unfakable{G}
+\unfakable{H}
+\unfakable{I}
+\unfakable{J}
+\unfakable{K}
+\unfakable{L}
+\unfakable{M}
+\unfakable{N}
+\unfakable{O}
+\unfakable{P}
+\unfakable{Q}
+\unfakable{R}
+\unfakable{S}
+\unfakable{T}
+\unfakable{U}
+\unfakable{V}
+\unfakable{W}
+\unfakable{X}
+\unfakable{Y}
+\unfakable{Z}
+\unfakable{bracketleft}
+\unfakable{bracketright}
+\unfakable{quoteleft}
+\unfakable{a}
+\unfakable{b}
+\unfakable{c}
+\unfakable{d}
+\unfakable{e}
+\unfakable{f}
+\unfakable{g}
+\unfakable{h}
+\unfakable{i}
+\unfakable{j}
+\unfakable{k}
+\unfakable{l}
+\unfakable{m}
+\unfakable{n}
+\unfakable{o}
+\unfakable{p}
+\unfakable{q}
+\unfakable{r}
+\unfakable{s}
+\unfakable{t}
+\unfakable{u}
+\unfakable{v}
+\unfakable{w}
+\unfakable{x}
+\unfakable{y}
+\unfakable{z}
+\unfakable{braceleft}
+\unfakable{braceright}
+\unfakable{asciitilde}
+\unfakable{Eng}
+\unfakable{section}
+\unfakable{eng}
+\unfakable{exclamdown}
+\unfakable{questiondown}
+\unfakable{sterling}
+\unfakable{AE}
+\unfakable{Eth}
+\unfakable{OE}
+\unfakable{Oslash}
+\unfakable{Thorn}
+\unfakable{ae}
+\unfakable{eth}
+\unfakable{oe}
+\unfakable{oslash}
+\unfakable{thorn}
+\unfakable{germandbls}
+\unfakable{lslashslash}
+
+% \end{macrocode}
+%
+% \subsubsection{Glyph construction}
+%
+% Most of this here is taken from |latin.mtx|.
+% \begin{macrocode}
+\comment{\section{Glyphs}}
+
+\setglyph{space}
+ \ifisglyph{space-not}\then
+ \movert{\width{space-not}}
+ \else
+ \movert{\width{i}}
+ \fi
+\endsetglyph
+
+\setglyph{compwordmark}
+ \glyphrule{0}{\int{xheight}}
+\endsetglyph
+\setint{compwordmark-spacing}{0}
+
+\setglyph{quotesinglbase}
+ \glyph{comma}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the dotless ``j'', we actually have the ``si'' ligature.
+% \begin{macrocode}
+\setglyph{dotlessj}
+ \glyph{s}{1000}
+ \glyph{i}{1000}
+\endsetglyph
+
+\setglyph{fi}
+ \glyph{f}{1000}
+ \movert{\kerning{f}{i}}
+ \glyph{i}{1000}
+\endsetglyph
+
+\setglyph{ff}
+ \glyph{f}{1000}
+ \movert{\kerning{f}{f}}
+ \glyph{f}{1000}
+\endsetglyph
+
+\setglyph{fl}
+ \glyph{f}{1000}
+ \movert{\kerning{f}{l}}
+ \glyph{l}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the ``ffi'' ligature, we actually have the ``ch'' ligature.
+% \begin{macrocode}
+\setglyph{ffi}
+ \glyph{c}{1000}
+ \movert{\kerning{c}{h}}
+ \glyph{h}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the ``ffl'' ligature, we actually have the ``ck'' ligature.
+% \begin{macrocode}
+\setglyph{ffl}
+ \glyph{c}{1000}
+ \movert{\kerning{c}{k}}
+ \glyph{k}{1000}
+\endsetglyph
+
+\setglyph{visiblespace}
+ \moveup{\neg{\int{visiblespacedepth}}}
+ \movert{\int{visiblespacesurround}}
+ \glyphrule
+ {\int{underlinethickness}}
+ {\int{visiblespacedepth}}
+ \glyphrule
+ {\int{visiblespacewidth}}
+ {\int{underlinethickness}}
+ \glyphrule
+ {\int{underlinethickness}}
+ {\int{visiblespacedepth}}
+ \movert{\int{visiblespacesurround}}
+ \moveup{\int{visiblespacedepth}}
+\endsetglyph
+
+\setglyph{rangedash}
+ \ifisint{monowidth}\then
+ \glyph{hyphen}{1000}
+ \else
+ \glyph{endash}{1000}
+ \fi
+\endsetglyph
+
+\setglyph{punctdash}
+ \ifisint{monowidth}\then
+ \glyph{hyphen}{1000}
+ \glyph{hyphen}{1000}
+ \else
+ \glyph{emdash}{1000}
+ \fi
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the backslash, we actually have the ``ft'' ligature. This
+% ligature is not available in Haralambous' fonts, but it's a common Fraktur
+% ligature and other font that you may get will probably have it.
+% \begin{macrocode}
+\setglyph{backslash}
+ \glyph{f}{1000}
+ \glyph{t}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the ascii circumflex, we actually have the ``ss'' ligature.
+% \begin{macrocode}
+\setglyph{asciicircum}
+ \glyph{s}{1000}
+ \glyph{s}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the underscore, we actually have the ``st'' ligature.
+% \begin{macrocode}
+\setglyph{underscore}
+ \glyph{s}{1000}
+ \glyph{t}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% In the slot of the vertical bar, we actually have the ``tz'' ligature.
+% \begin{macrocode}
+\setglyph{bar}
+ \glyph{t}{1000}
+ \glyph{z}{1000}
+\endsetglyph
+
+% \end{macrocode}
+% The hyphen character has width zero, which is different from |latin.mtx|.
+% \begin{macrocode}
+\setglyph{hyphenchar}
+ \glyph{hyphen}{1000}
+% \resetwidth{0}
+\endsetglyph
+
+\setglyph{ringfitted}
+ \movert{\div{\sub{\width{A}}{\width{ring}}}{2}}
+ \glyph{ring}{1000}
+ \movert{\div{\sub{\width{A}}{\width{ring}}}{2}}
+\endsetglyph
+
+\setglyph{lslash}
+ \glyph{lslashslash}{1000}
+ \movert{\kerning{lslashslash}{l}}
+ \glyph{l}{1000}
+\endsetglyph
+
+\setglyph{Lslash}
+ \glyph{lslashslash}{1000}
+ \movert{\kerning{lslashslash}{L}}
+ \glyph{L}{1000}
+\endsetglyph
+
+\setglyph{Abreve}
+ \topaccent{A}{breve}{500}
+\endsetglyph
+
+\setglyph{Aogonek}
+ \botaccent{A}{ogonek}{900}
+\endsetglyph
+
+\setglyph{Cacute}
+ \topaccent{C}{acute}{500}
+\endsetglyph
+
+\setglyph{Ccaron}
+ \topaccent{C}{caron}{500}
+\endsetglyph
+
+\setglyph{Dcaron}
+ \topaccent{D}{caron}{450}
+\endsetglyph
+
+\setglyph{Ecaron}
+ \topaccent{E}{caron}{500}
+\endsetglyph
+
+\setglyph{Eogonek}
+ \botaccent{E}{ogonek}{850}
+\endsetglyph
+
+\setglyph{Gbreve}
+ \topaccent{G}{breve}{500}
+\endsetglyph
+
+\setglyph{Lacute}
+ \topaccent{L}{acute}{250}
+\endsetglyph
+
+\setglyph{Lcaron}
+ \glyph{L}{1000}
+ \ifisint{monowidth}\then\else
+ \movert{-200}
+ \fi
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{Nacute}
+ \topaccent{N}{acute}{500}
+\endsetglyph
+
+\setglyph{Ncaron}
+ \topaccent{N}{caron}{500}
+\endsetglyph
+
+\setglyph{Ohungarumlaut}
+ \topaccent{O}{hungarumlaut}{500}
+\endsetglyph
+
+\setglyph{Racute}
+ \topaccent{R}{acute}{500}
+\endsetglyph
+
+\setglyph{Rcaron}
+ \topaccent{R}{caron}{500}
+\endsetglyph
+
+\setglyph{Sacute}
+ \topaccent{S}{acute}{500}
+\endsetglyph
+
+\setglyph{Scaron}
+ \topaccent{S}{caron}{500}
+\endsetglyph
+
+\setglyph{Scedilla}
+ \botaccent{S}{cedilla}{500}
+\endsetglyph
+
+\setglyph{Tcaron}
+ \topaccent{T}{caron}{500}
+\endsetglyph
+
+\setglyph{Tcedilla}
+ \botaccent{T}{cedilla}{500}
+\endsetglyph
+
+\setglyph{Uhungarumlaut}
+ \topaccent{U}{hungarumlaut}{500}
+\endsetglyph
+
+\setglyph{Uring}
+ \topaccent{U}{ring}{500}
+\endsetglyph
+
+\setglyph{Ydieresis}
+ \topaccent{Y}{dieresis}{500}
+\endsetglyph
+
+\setglyph{Zacute}
+ \topaccent{Z}{acute}{500}
+\endsetglyph
+
+\setglyph{Zcaron}
+ \topaccent{Z}{caron}{500}
+\endsetglyph
+
+\setglyph{Zdotaccent}
+ \topaccent{Z}{dotaccent}{500}
+\endsetglyph
+
+\setglyph{IJ}
+ \glyph{I}{1000}
+ \movert{\kerning{I}{J}}
+ \glyph{J}{1000}
+\endsetglyph
+
+\setglyph{Idotaccent}
+ \topaccent{I}{dotaccent}{500}
+\endsetglyph
+
+\setglyph{dbar}
+ \push
+ \movert{\sub{\width{d}}{\width{macron}}}
+ \moveup{
+ \sub{\scale{\add{\height{d}}{\int{xheight}}}{500}}
+ {\height{macron}}}
+ \glyph{macron}{1000}
+ \pop
+ \glyph{d}{1000}
+\endsetglyph
+
+\setglyph{abreve}
+ \topaccent{a}{breve}{500}
+\endsetglyph
+
+\setglyph{aogonek}
+ \botaccent{a}{ogonek}{850}
+\endsetglyph
+
+\setglyph{cacute}
+ \topaccent{c}{acute}{500}
+\endsetglyph
+
+\setglyph{ccaron}
+ \topaccent{c}{caron}{500}
+\endsetglyph
+
+\setglyph{dcaron}
+ \glyph{d}{1000}
+ \ifisint{monowidth}\then\else
+ \movert{-75}
+ \fi
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{ecaron}
+ \topaccent{e}{caron}{500}
+\endsetglyph
+
+\setglyph{eogonek}
+ \botaccent{e}{ogonek}{500}
+\endsetglyph
+
+\setglyph{gbreve}
+ \topaccent{g}{breve}{500}
+\endsetglyph
+
+\setglyph{lacute}
+ \topaccent{l}{acute}{500}
+\endsetglyph
+
+\setglyph{lcaron}
+ \glyph{l}{1000}
+ \ifisint{monowidth}\then\else
+ \movert{-100}
+ \fi
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{nacute}
+ \topaccent{n}{acute}{500}
+\endsetglyph
+
+\setglyph{ncaron}
+ \topaccent{n}{caron}{500}
+\endsetglyph
+
+\setglyph{ohungarumlaut}
+ \topaccent{o}{hungarumlaut}{500}
+\endsetglyph
+
+\setglyph{racute}
+ \topaccent{r}{acute}{500}
+\endsetglyph
+
+\setglyph{rcaron}
+ \topaccent{r}{caron}{500}
+\endsetglyph
+
+\setglyph{sacute}
+ \topaccent{s}{acute}{500}
+\endsetglyph
+
+\setglyph{scaron}
+ \topaccent{s}{caron}{500}
+\endsetglyph
+
+\setglyph{scedilla}
+ \botaccent{s}{cedilla}{500}
+\endsetglyph
+
+\setglyph{tcaron}
+ \glyph{t}{1000}
+ \ifisint{monowidth}\then\else
+ \movert{-75}
+ \fi
+ \glyph{quoteright}{1000}
+\endsetglyph
+
+\setglyph{tcedilla}
+ \botaccent{t}{cedilla}{500}
+\endsetglyph
+
+\setglyph{uhungarumlaut}
+ \topaccent{u}{hungarumlaut}{500}
+\endsetglyph
+
+\setglyph{uring}
+ \topaccent{u}{ring}{500}
+\endsetglyph
+
+\setglyph{ydieresis}
+ \topaccent{y}{dieresis}{500}
+\endsetglyph
+
+\setglyph{zacute}
+ \topaccent{z}{acute}{500}
+\endsetglyph
+
+\setglyph{zcaron}
+ \topaccent{z}{caron}{500}
+\endsetglyph
+
+\setglyph{zdotaccent}
+ \topaccent{z}{dotaccent}{500}
+\endsetglyph
+
+\setglyph{ij}
+ \glyph{i}{1000}
+ \movert{\kerning{i}{j}}
+ \glyph{j}{1000}
+\endsetglyph
+
+\setglyph{Agrave}
+ \topaccent{A}{grave}{500}
+\endsetglyph
+
+\setglyph{Aacute}
+ \topaccent{A}{acute}{500}
+\endsetglyph
+
+\setglyph{Acircumflex}
+ \topaccent{A}{circumflex}{500}
+\endsetglyph
+
+\setglyph{Atilde}
+ \topaccent{A}{tilde}{500}
+\endsetglyph
+
+\setglyph{Adieresis}
+ \topaccent{A}{dieresis}{500}
+\endsetglyph
+
+\setglyph{Aring}
+ \topaccent{A}{ring}{500}
+\endsetglyph
+
+\setglyph{Ccedilla}
+ \botaccent{C}{cedilla}{500}
+\endsetglyph
+
+\setglyph{Egrave}
+ \topaccent{E}{grave}{500}
+\endsetglyph
+
+\setglyph{Eacute}
+ \topaccent{E}{acute}{500}
+\endsetglyph
+
+\setglyph{Ecircumflex}
+ \topaccent{E}{circumflex}{500}
+\endsetglyph
+
+\setglyph{Edieresis}
+ \topaccent{E}{dieresis}{500}
+\endsetglyph
+
+\setglyph{Iacute}
+ \topaccent{I}{acute}{500}
+\endsetglyph
+
+\setglyph{Igrave}
+ \topaccent{I}{grave}{500}
+\endsetglyph
+
+\setglyph{Icircumflex}
+ \topaccent{I}{circumflex}{500}
+\endsetglyph
+
+\setglyph{Idieresis}
+ \topaccent{I}{dieresis}{500}
+\endsetglyph
+
+\setglyph{Ntilde}
+ \topaccent{N}{tilde}{500}
+\endsetglyph
+
+\setglyph{Ograve}
+ \topaccent{O}{grave}{500}
+\endsetglyph
+
+\setglyph{Oacute}
+ \topaccent{O}{acute}{500}
+\endsetglyph
+
+\setglyph{Ocircumflex}
+ \topaccent{O}{circumflex}{500}
+\endsetglyph
+
+\setglyph{Otilde}
+ \topaccent{O}{tilde}{500}
+\endsetglyph
+
+\setglyph{Odieresis}
+ \topaccent{O}{dieresis}{500}
+\endsetglyph
+
+\setglyph{Ugrave}
+ \topaccent{U}{grave}{500}
+\endsetglyph
+
+\setglyph{Uacute}
+ \topaccent{U}{acute}{500}
+\endsetglyph
+
+\setglyph{Ucircumflex}
+ \topaccent{U}{circumflex}{500}
+\endsetglyph
+
+\setglyph{Udieresis}
+ \topaccent{U}{dieresis}{500}
+\endsetglyph
+
+\setglyph{Yacute}
+ \topaccent{Y}{acute}{500}
+\endsetglyph
+
+\setglyph{SS}
+ \glyph{S}{1000}
+ \movert{\kerning{S}{S}}
+ \glyph{S}{1000}
+\endsetglyph
+
+\setglyph{agrave}
+ \topaccent{a}{grave}{500}
+\endsetglyph
+
+\setglyph{aacute}
+ \topaccent{a}{acute}{500}
+\endsetglyph
+
+\setglyph{acircumflex}
+ \topaccent{a}{circumflex}{500}
+\endsetglyph
+
+\setglyph{atilde}
+ \topaccent{a}{tilde}{500}
+\endsetglyph
+
+\setglyph{adieresis}
+ \topaccent{a}{dieresis}{500}
+\endsetglyph
+
+\setglyph{aring}
+ \topaccent{a}{ring}{500}
+\endsetglyph
+
+\setglyph{ccedilla}
+ \botaccent{c}{cedilla}{500}
+\endsetglyph
+
+\setglyph{egrave}
+ \topaccent{e}{grave}{500}
+\endsetglyph
+
+\setglyph{eacute}
+ \topaccent{e}{acute}{500}
+\endsetglyph
+
+\setglyph{ecircumflex}
+ \topaccent{e}{circumflex}{500}
+\endsetglyph
+
+\setglyph{edieresis}
+ \topaccent{e}{dieresis}{500}
+\endsetglyph
+
+\setglyph{igrave}
+ \topaccent{dotlessi}{grave}{500}
+\endsetglyph
+
+\setglyph{iacute}
+ \topaccent{dotlessi}{acute}{500}
+\endsetglyph
+
+\setglyph{icircumflex}
+ \topaccent{dotlessi}{circumflex}{500}
+\endsetglyph
+
+\setglyph{idieresis}
+ \topaccent{dotlessi}{dieresis}{500}
+\endsetglyph
+
+\setglyph{ntilde}
+ \topaccent{n}{tilde}{500}
+\endsetglyph
+
+\setglyph{ograve}
+ \topaccent{o}{grave}{500}
+\endsetglyph
+
+\setglyph{oacute}
+ \topaccent{o}{acute}{500}
+\endsetglyph
+
+\setglyph{ocircumflex}
+ \topaccent{o}{circumflex}{500}
+\endsetglyph
+
+\setglyph{otilde}
+ \topaccent{o}{tilde}{500}
+\endsetglyph
+
+\setglyph{odieresis}
+ \topaccent{o}{dieresis}{500}
+\endsetglyph
+
+\setglyph{ugrave}
+ \topaccent{u}{grave}{500}
+\endsetglyph
+
+\setglyph{uacute}
+ \topaccent{u}{acute}{500}
+\endsetglyph
+
+\setglyph{ucircumflex}
+ \topaccent{u}{circumflex}{500}
+\endsetglyph
+
+\setglyph{udieresis}
+ \topaccent{u}{dieresis}{500}
+\endsetglyph
+
+\setglyph{yacute}
+ \topaccent{y}{acute}{500}
+\endsetglyph
+
+% \end{macrocode}
+%
+% \subsection{Deleting depths from accents}
+%
+% \begin{macrocode}
+\comment{\section{Accents}
+ \TeX's math accent-positioning requires accents to have zero depth.}
+
+\setcommand\zerodepth#1{
+ \ifisglyph{#1}\then
+ \resetglyph{#1}
+ \glyph{#1}{1000}
+ \resetdepth{0}
+ \endresetglyph
+ \fi
+}
+\zerodepth{grave}
+\zerodepth{acute}
+\zerodepth{circumflex}
+\zerodepth{tilde}
+\zerodepth{dieresis}
+\zerodepth{hungarumlaut}
+\zerodepth{ring}
+\zerodepth{caron}
+\zerodepth{breve}
+\zerodepth{macron}
+\zerodepth{dotaccent}
+
+\endmetrics
+\end{document}
+%</blacklettermtx>
+% \end{macrocode}
+%
+%
+% \section{The blackletter typefaces encoding vector, a T1 variant}
+%
+% This file |t1frak.etx| is a simplification and modification of |t1.etx| of
+% the \texttt{fontinst} package. It describes the output encoding vector of
+% the blackletter typefaces.
+%
+% By and large, this is T1. Only some not so frequently used characters have
+% been replaced with additional ligatures and the so called ``round~s''.
+%
+% However, the \emph{names} of the glyphs here are the same as in real T1.
+% I wasn't brave enough to change them, but if it turns out that it's
+% completely undangerous to use other name, I may change them. Both variants
+% may cause confusion.
+%
+% The following substitutions are made from real T1:
+% \begin{itemize}
+% \item ``\j''~$\to$ ``si'' ligature
+% \item ``ffi'' ligature~$\to$ ``ch'' ligature
+% \item ``ffl''~$\to$ ``ck'' ligature
+% \item ``$\backslash$''~$\to$ ``ft'' ligature
+% \item ``$\hat{\ }$''~$\to$ ``ss'' ligature
+% \item ``\underline{ }''~$\to$ ``st'' ligature
+% \item ``$\vert$''~$\to$ ``tz'' ligature
+% \item ``Eng''~$\to$ ``S''
+% \item ``eng''~$\to$ ``round~s''
+% \end{itemize}
+% \begin{macrocode}
+%<*t1fraketx>
+\relax
+
+\documentclass[twocolumn]{article}
+\usepackage[TS1,T1]{fontenc}
+\usepackage{textcomp}
+\usepackage{fontdoc}
+
+\title{The Fraktur encoding vector, a T1 variant}
+\author{Torsten Bronger}
+\date{29 May 2002 \\
+Version 1.0}
+
+\begin{document}
+
+\maketitle
+
+\section{Introduction}
+
+This document describes a modified Cork (T1) text encoding, modified
+for the so called old German fonts.
+
+\newcommand*{\actually}[1]{ \emph{\bfseries Actually, here
+ in the Fraktur encoding, the #1}.}
+
+\encoding
+
+\needsfontinstversion{1.801}
+
+% \end{macrocode}
+%
+% \subsection{Default settings}
+%
+% \begin{macrocode}
+\comment{\section{Default values}}
+
+\setstr{codingscheme}{EXTENDED TEX FONT ENCODING - LATIN}
+
+\setcommand\lc#1#2{#2}
+\setcommand\uc#1#2{#1}
+\setcommand\lctop#1#2{#2}
+\setcommand\uctop#1#2{#1}
+\setcommand\lclig#1#2{#2}
+\setcommand\uclig#1#2{#1}
+\setcommand\digit#1{#1}
+
+\setint{italicslant}{0}
+
+\ifisglyph{x}\then
+ \setint{xheight}{\height{x}}
+\else
+ \setint{xheight}{500}
+\fi
+
+\ifisglyph{space}\then
+ \setint{interword}{\width{space}}
+\else\ifisglyph{i}\then
+ \setint{interword}{\width{i}}
+\else
+ \setint{interword}{333}
+\fi\fi
+
+% added by Thierry Bouche <Thierry.Bouche@ujf-grenoble.fr>
+% 1997/02/07 to calculate values for extra EC fontdimens
+% Amended by SPQR 1997/02/09
+\ifisglyph{X}\then
+ \setint{capheight}{\height{X}}
+\else
+ \setint{capheight}{750}
+\fi
+
+\ifisglyph{k}\then
+ \setint{ascender}{\height{k}}
+\else
+ \ifisint{capheight}\then
+ \setint{ascender}{\int{capheight}}
+ \else
+ \setint{ascender}{750}
+\fi\fi
+
+\ifisglyph{Aring}\then
+ \setint{acccapheight}{\height{Aring}}
+\else
+ \setint{acccapheight}{999}
+\fi
+
+\ifisint{descender_neg}\then
+ \setint{descender}{\neg{\int{descender_neg}}}
+ \else
+ \ifisglyph{p}\then
+ \setint{descender}{\depth{p}}
+ \else
+ \setint{descender}{250}
+ \fi
+\fi
+
+\ifisglyph{Aring}\then
+ \setint{maxheight}{\height{Aring}}
+\else
+ \setint{maxheight}{1000}
+\fi
+
+\ifisint{maxdepth_neg}\then
+ \setint{maxdepth}{\neg{\int{maxdepth_neg}}}
+\else
+ \ifisglyph{j}\then
+ \setint{maxdepth}{\depth{j}}
+ \else
+ \setint{maxdepth}{250}
+ \fi
+\fi
+
+\ifisglyph{six}\then
+ \setint{digitwidth}{\width{six}}
+\else
+ \setint{digitwidth}{500}
+\fi
+
+\setint{capstem}{0} % not in AFM files
+\setint{baselineskip}{1200}
+% end changes by Thierry
+
+
+\comment{\section{Default font dimensions}}
+
+\setint{fontdimen(1)}{\int{italicslant}} % italic slant
+\setint{fontdimen(2)}{\int{interword}} % interword space
+\ifisint{monowidth}\then
+ \setint{fontdimen(3)}{0} % interword stretch
+ \setint{fontdimen(4)}{0} % interword shrink
+\else
+ \setint{fontdimen(3)}{\scale{\int{interword}}{600}}% interword stretch
+% \end{macrocode}
+% The following was changed from 240 to 150.
+% \begin{macrocode}
+ \setint{fontdimen(4)}{\scale{\int{interword}}{150}}% interword shrink
+\fi
+\setint{fontdimen(5)}{\int{xheight}} % x-height
+\setint{fontdimen(6)}{1000} % quad
+\ifisint{monowidth}\then
+ \setint{fontdimen(7)}{\int{interword}} % extra space after .
+\else
+% \end{macrocode}
+% The following was changed from 240 to 150.
+% \begin{macrocode}
+ \setint{fontdimen(7)}{\scale{\int{interword}}{150}}% extra space after .
+\fi
+% added by Thierry Bouche <Thierry.Bouche@ujf-grenoble.fr> 1997/02/07
+\setint{fontdimen(8)}{\int{capheight}} % cap height
+\setint{fontdimen(9)}{\int{ascender}} % ascender
+\setint{fontdimen(10)}{\int{acccapheight}} % accented cap height
+\setint{fontdimen(11)}{\int{descender}} % descender's depth
+\setint{fontdimen(12)}{\int{maxheight}} % max height
+\setint{fontdimen(13)}{\int{maxdepth}} % max depth
+\setint{fontdimen(14)}{\int{digitwidth}} % digit width
+\setint{fontdimen(15)}{\int{capstem}} % cap_stem
+\setint{fontdimen(16)}{\int{baselineskip}} % baselineskip
+
+% \end{macrocode}
+%
+% \subsection{The encoding vector}
+%
+% \begin{macrocode}
+\comment{\section{The encoding}
+ There are 256 glyphs in this encoding.}
+
+\setslot{\lc{Grave}{grave}}
+ \comment{The grave accent `\`{}'.}
+\endsetslot
+
+\setslot{\lc{Acute}{acute}}
+ \comment{The acute accent `\'{}'.}
+\endsetslot
+
+\setslot{\lc{Circumflex}{circumflex}}
+ \comment{The circumflex accent `\^{}'.}
+\endsetslot
+
+\setslot{\lc{Tilde}{tilde}}
+ \comment{The tilde accent `\~{}'.}
+\endsetslot
+
+\setslot{\lc{Dieresis}{dieresis}}
+ \comment{The umlaut or dieresis accent `\"{}'.}
+\endsetslot
+
+\setslot{\lc{Hungarumlaut}{hungarumlaut}}
+ \comment{The long Hungarian umlaut `\H{}'.}
+\endsetslot
+
+\setslot{\lc{Ring}{ring}}
+ \comment{The ring accent `\r{}'.}
+\endsetslot
+
+\setslot{\lc{Caron}{caron}}
+ \comment{The caron or h\'a\v cek accent `\v{}'.}
+\endsetslot
+
+\setslot{\lc{Breve}{breve}}
+ \comment{The breve accent `\u{}'.}
+\endsetslot
+
+\setslot{\lc{Macron}{macron}}
+ \comment{The macron accent `\={}'.}
+\endsetslot
+
+\setslot{\lc{Dotaccent}{dotaccent}}
+ \comment{The dot accent `\.{}'.}
+\endsetslot
+
+\setslot{\lc{Cedilla}{cedilla}}
+ \comment{The cedilla accent `\c {}'.}
+\endsetslot
+
+\setslot{\lc{Ogonek}{ogonek}}
+ \comment{The ogonek accent `\k {}'.}
+\endsetslot
+
+\setslot{quotesinglbase}
+ \comment{A German single quote mark `\quotesinglbase' similar to a comma,
+ but with different sidebearings.}
+\endsetslot
+
+\setslot{guilsinglleft}
+ \comment{A French single opening quote mark `\guilsinglleft',
+ unavailable in \plain\ \TeX.}
+\endsetslot
+
+\setslot{guilsinglright}
+ \comment{A French single closing quote mark `\guilsinglright',
+ unavailable in \plain\ \TeX.}
+\endsetslot
+
+\setslot{quotedblleft}
+ \comment{The English opening quote mark `\,\textquotedblleft\,'.}
+\endsetslot
+
+\setslot{quotedblright}
+ \comment{The English closing quote mark `\,\textquotedblright\,'.}
+\endsetslot
+
+\setslot{quotedblbase}
+ \comment{A German double quote mark `\quotedblbase' similar to two commas,
+ but with tighter letterspacing and different sidebearings.}
+\endsetslot
+
+\setslot{guillemotleft}
+ \comment{A French double opening quote mark `\guillemotleft',
+ unavailable in \plain\ \TeX.}
+\endsetslot
+
+\setslot{guillemotright}
+ \comment{A French closing opening quote mark `\guillemotright',
+ unavailable in \plain\ \TeX.}
+\endsetslot
+
+\setslot{rangedash}
+ \ligature{LIG}{hyphen}{punctdash}
+ \comment{The number range dash `1--9'. In a monowidth font, this
+ might be set as `{\tt 1{-}9}'.}
+\endsetslot
+
+\setslot{punctdash}
+ \comment{The punctuation dash `Oh---boy.' In a monowidth font, this
+ might be set as `{\tt Oh{-}{-}boy.}'}
+\endsetslot
+
+\setslot{compwordmark}
+ \comment{An invisible glyph, with zero width and depth, but the
+ height of lowercase letters without ascenders.
+ It is used to stop ligaturing in words like `shelf{}ful'.}
+\endsetslot
+
+\setslot{perthousandzero}
+ \comment{A glyph which is placed after `\%' to produce a
+ `per-thousand', or twice to produce `per-ten-thousand'.
+ Your guess is as good as mine as to what this glyph should look
+ like in a monowidth font.}
+\endsetslot
+
+\setslot{\lc{dotlessI}{dotlessi}}
+ \comment{A dotless i `\i', used to produce accented letters such as
+ `\=\i'.}
+\endsetslot
+
+\setslot{\lc{dotlessJ}{dotlessj}}
+ \comment{A dotless j `\j', used to produce accented letters such as
+ `\=\j'. Most non-\TeX\ fonts do not have this glyph. \actually{`ssi'
+ ligature}}
+\endsetslot
+
+\setslot{\lclig{FF}{ff}}
+ \comment{The `ff' ligature. It should be two characters wide in a
+ monowidth font.}
+\endsetslot
+
+\setslot{\lclig{FI}{fi}}
+ \comment{The `fi' ligature. It should be two characters wide in a
+ monowidth font.}
+\endsetslot
+
+\setslot{\lclig{FL}{fl}}
+ \comment{The `fl' ligature. It should be two characters wide in a
+ monowidth font.}
+\endsetslot
+
+\setslot{\lclig{FFI}{ffi}}
+ \comment{The `ffi' ligature. It should be three characters wide in a
+ monowidth font. \actually{`ch' ligature}}
+\endsetslot
+
+\setslot{\lclig{FFL}{ffl}}
+ \comment{The `ffl' ligature. It should be three characters wide in a
+ monowidth font. \actually{`ck' ligature}}
+\endsetslot
+
+\setslot{visiblespace}
+ \comment{A visible space glyph `\textvisiblespace'.}
+\endsetslot
+
+\setslot{exclam}
+ \ligature{LIG}{quoteleft}{exclamdown}
+ \comment{The exclamation mark `!'.}
+\endsetslot
+
+\setslot{quotedbl}
+ \comment{The `neutral' double quotation mark `\,\textquotedbl\,',
+ included for use in monowidth fonts, or for setting computer
+ programs. Note that the inclusion of this glyph in this slot
+ means that \TeX\ documents which used `{\tt\char`\"}' as an
+ input character will no longer work.}
+\endsetslot
+
+\setslot{numbersign}
+ \comment{The hash sign `\#'.}
+\endsetslot
+
+\setslot{dollar}
+ \comment{The dollar sign `\$'.}
+\endsetslot
+
+\setslot{percent}
+ \comment{The percent sign `\%'.}
+\endsetslot
+
+\setslot{ampersand}
+ \comment{The ampersand sign `\&'.}
+\endsetslot
+
+\setslot{quoteright}
+ \ligature{LIG}{quoteright}{quotedblright}
+ \comment{The English closing single quote mark `\,\textquoteright\,'.}
+\endsetslot
+
+\setslot{parenleft}
+ \comment{The opening parenthesis `('.}
+\endsetslot
+
+\setslot{parenright}
+ \comment{The closing parenthesis `)'.}
+\endsetslot
+
+\setslot{asterisk}
+ \comment{The raised asterisk `*'.}
+\endsetslot
+
+\setslot{plus}
+ \comment{The addition sign `+'.}
+\endsetslot
+
+\setslot{comma}
+ \ligature{LIG}{comma}{quotedblbase}
+ \comment{The comma `,'.}
+\endsetslot
+
+\setslot{hyphen}
+ \ligature{LIG}{hyphen}{rangedash}
+ \ligature{LIG}{hyphenchar}{hyphenchar}
+ \comment{The hyphen `-'.}
+\endsetslot
+
+\setslot{period}
+ \comment{The period `.'.}
+\endsetslot
+
+\setslot{slash}
+ \comment{The forward oblique `/'.}
+\endsetslot
+
+\setslot{\digit{zero}}
+ \comment{The number `0'. This (and all the other numerals) may be
+ old style or ranging digits.}
+\endsetslot
+
+\setslot{\digit{one}}
+ \comment{The number `1'.}
+\endsetslot
+
+\setslot{\digit{two}}
+ \comment{The number `2'.}
+\endsetslot
+
+\setslot{\digit{three}}
+ \comment{The number `3'.}
+\endsetslot
+
+\setslot{\digit{four}}
+ \comment{The number `4'.}
+\endsetslot
+
+\setslot{\digit{five}}
+ \comment{The number `5'.}
+\endsetslot
+
+\setslot{\digit{six}}
+ \comment{The number `6'.}
+\endsetslot
+
+\setslot{\digit{seven}}
+ \comment{The number `7'.}
+\endsetslot
+
+\setslot{\digit{eight}}
+ \comment{The number `8'.}
+\endsetslot
+
+\setslot{\digit{nine}}
+ \comment{The number `9'.}
+\endsetslot
+
+\setslot{colon}
+ \comment{The colon punctuation mark `:'.}
+\endsetslot
+
+\setslot{semicolon}
+ \comment{The semi-colon punctuation mark `;'.}
+\endsetslot
+
+\setslot{less}
+ \ligature{LIG}{less}{guillemotleft}
+ \comment{The less-than sign `\textless'.}
+\endsetslot
+
+\setslot{equal}
+ \comment{The equals sign `='.}
+\endsetslot
+
+\setslot{greater}
+ \ligature{LIG}{greater}{guillemotright}
+ \comment{The greater-than sign `\textgreater'.}
+\endsetslot
+
+\setslot{question}
+ \ligature{LIG}{quoteleft}{questiondown}
+ \comment{The question mark `?'.}
+\endsetslot
+
+\setslot{at}
+ \comment{The at sign `@'.}
+\endsetslot
+
+\setslot{\uc{A}{a}}
+ \comment{The letter `{A}'.}
+\endsetslot
+
+\setslot{\uc{B}{b}}
+ \comment{The letter `{B}'.}
+\endsetslot
+
+\setslot{\uc{C}{c}}
+ \comment{The letter `{C}'.}
+\endsetslot
+
+\setslot{\uc{D}{d}}
+ \comment{The letter `{D}'.}
+\endsetslot
+
+\setslot{\uc{E}{e}}
+ \comment{The letter `{E}'.}
+\endsetslot
+
+\setslot{\uc{F}{f}}
+ \comment{The letter `{F}'.}
+\endsetslot
+
+\setslot{\uc{G}{g}}
+ \comment{The letter `{G}'.}
+\endsetslot
+
+\setslot{\uc{H}{h}}
+ \comment{The letter `{H}'.}
+\endsetslot
+
+\setslot{\uc{I}{i}}
+ \comment{The letter `{I}'.}
+\endsetslot
+
+\setslot{\uc{J}{j}}
+ \comment{The letter `{J}'. But actually just an `I'\@.}
+\endsetslot
+
+\setslot{\uc{K}{k}}
+ \comment{The letter `{K}'.}
+\endsetslot
+
+\setslot{\uc{L}{l}}
+ \comment{The letter `{L}'.}
+\endsetslot
+
+\setslot{\uc{M}{m}}
+ \comment{The letter `{M}'.}
+\endsetslot
+
+\setslot{\uc{N}{n}}
+ \comment{The letter `{N}'.}
+\endsetslot
+
+\setslot{\uc{O}{o}}
+ \comment{The letter `{O}'.}
+\endsetslot
+
+\setslot{\uc{P}{p}}
+ \comment{The letter `{P}'.}
+\endsetslot
+
+\setslot{\uc{Q}{q}}
+ \comment{The letter `{Q}'.}
+\endsetslot
+
+\setslot{\uc{R}{r}}
+ \comment{The letter `{R}'.}
+\endsetslot
+
+\setslot{\uc{S}{s}}
+ \comment{The letter `{S}'.}
+\endsetslot
+
+\setslot{\uc{T}{t}}
+ \comment{The letter `{T}'.}
+\endsetslot
+
+\setslot{\uc{U}{u}}
+ \comment{The letter `{U}'.}
+\endsetslot
+
+\setslot{\uc{V}{v}}
+ \comment{The letter `{V}'.}
+\endsetslot
+
+\setslot{\uc{W}{w}}
+ \comment{The letter `{W}'.}
+\endsetslot
+
+\setslot{\uc{X}{x}}
+ \comment{The letter `{X}'.}
+\endsetslot
+
+\setslot{\uc{Y}{y}}
+ \comment{The letter `{Y}'.}
+\endsetslot
+
+\setslot{\uc{Z}{z}}
+ \comment{The letter `{Z}'.}
+\endsetslot
+
+\setslot{bracketleft}
+ \comment{The opening square bracket `['.}
+\endsetslot
+
+\setslot{backslash}
+ \comment{The backwards oblique `\textbackslash'. \actually{`sf' ligature}}
+\endsetslot
+
+\setslot{bracketright}
+ \comment{The closing square bracket `]'.}
+\endsetslot
+
+\setslot{asciicircum}
+ \ligature{LIG}{visiblespace}{germandbls}
+ \comment{The ASCII upward-pointing arrow head `\textasciicircum'.
+ This is included for compatibility with typewriter fonts used
+ for computer listings. \actually{`ss' ligature}}
+\endsetslot
+
+\setslot{underscore}
+ \comment{The ASCII underline character `\textunderscore', usually
+ set on the baseline.
+ This is included for compatibility with typewriter fonts used
+ for computer listings. \actually{`st' ligature}}
+\endsetslot
+
+\setslot{quoteleft}
+ \ligature{LIG}{quoteleft}{quotedblleft}
+ \comment{The English opening single quote mark `\,\textquoteleft\,'.}
+\endsetslot
+
+\setslot{\lc{A}{a}}
+ \comment{The letter `{a}'.}
+\endsetslot
+
+\setslot{\lc{B}{b}}
+ \comment{The letter `{b}'.}
+\endsetslot
+
+\setslot{\lc{C}{c}}
+ \ligature{LIG}{h}{ffi}
+ \ligature{LIG}{k}{ffl}
+ \comment{The letter `{c}'.}
+\endsetslot
+
+\setslot{\lc{D}{d}}
+ \comment{The letter `{d}'.}
+\endsetslot
+
+\setslot{\lc{E}{e}}
+ \comment{The letter `{e}'.}
+\endsetslot
+
+\setslot{\lc{F}{f}}
+ \ligature{LIG}{\lc{I}{i}}{\lclig{FI}{fi}}
+ \ligature{LIG}{\lc{F}{f}}{\lclig{FF}{ff}}
+ \ligature{LIG}{\lc{L}{l}}{\lclig{FL}{fl}}
+ \ligature{LIG}{\lc{T}{t}}{\lclig{backslash}{backslash}}
+ \comment{The letter `{f}'.}
+\endsetslot
+
+\setslot{\lc{G}{g}}
+ \comment{The letter `{g}'.}
+\endsetslot
+
+\setslot{\lc{H}{h}}
+ \comment{The letter `{h}'.}
+\endsetslot
+
+\setslot{\lc{I}{i}}
+ \comment{The letter `{i}'.}
+\endsetslot
+
+\setslot{\lc{J}{j}}
+ \comment{The letter `{j}'.}
+\endsetslot
+
+\setslot{\lc{K}{k}}
+ \comment{The letter `{k}'.}
+\endsetslot
+
+\setslot{\lc{L}{l}}
+ \comment{The letter `{l}'.}
+\endsetslot
+
+\setslot{\lc{M}{m}}
+ \comment{The letter `{m}'.}
+\endsetslot
+
+\setslot{\lc{N}{n}}
+ \comment{The letter `{n}'.}
+\endsetslot
+
+\setslot{\lc{O}{o}}
+ \comment{The letter `{o}'.}
+\endsetslot
+
+\setslot{\lc{P}{p}}
+ \comment{The letter `{p}'.}
+\endsetslot
+
+\setslot{\lc{Q}{q}}
+ \comment{The letter `{q}'.}
+\endsetslot
+
+\setslot{\lc{R}{r}}
+ \comment{The letter `{r}'.}
+\endsetslot
+
+\setslot{\lc{S}{s}}
+% \end{macrocode}
+% The following ligature is with the boundary character and performs the
+% transformation of the long~s to the round~s.
+% \begin{macrocode}
+ \ligature{LIG}{visiblespace}{ng}
+ \ligature{LIG}{t}{underscore}
+ \ligature{LIG}{s}{asciicircum}
+ \ligature{LIG}{f}{backslash}
+ \ligature{LIG}{i}{dotlessj}
+% \end{macrocode}
+% The following ligatures make the long~s to become a round~s if one of these
+% characters immediately follows. This prevents the user to insert |\/| and
+% similar things at ubiquitous places.
+% \begin{macrocode}
+ \ligature{LIG/}{quoteright}{ng}
+ \ligature{LIG/}{guilsinglleft}{ng}
+ \ligature{LIG/}{guilsinglright}{ng}
+ \ligature{LIG/}{quotedblleft}{ng}
+ \ligature{LIG/}{quotedblright}{ng}
+ \ligature{LIG/}{guillemotleft}{ng}
+ \ligature{LIG/}{guillemotright}{ng}
+ \ligature{LIG/}{period}{ng}
+ \ligature{LIG/}{comma}{ng}
+ \ligature{LIG/}{colon}{ng}
+ \ligature{LIG/}{semicolon}{ng}
+ \ligature{LIG/}{exclam}{ng}
+ \ligature{LIG/}{question}{ng}
+ \ligature{LIG/}{slash}{ng}
+ \ligature{LIG/}{hyphen}{ng}
+ \ligature{LIG/}{parenleft}{ng}
+ \ligature{LIG/}{parenright}{ng}
+ \comment{The letter `{s}'. \actually{letter long `s'}}
+\endsetslot
+
+\setslot{\lc{T}{t}}
+ \ligature{LIG}{z}{bar}
+ \comment{The letter `{t}'.}
+\endsetslot
+
+\setslot{\lc{U}{u}}
+ \comment{The letter `{u}'.}
+\endsetslot
+
+\setslot{\lc{V}{v}}
+ \comment{The letter `{v}'.}
+\endsetslot
+
+\setslot{\lc{W}{w}}
+ \comment{The letter `{w}'.}
+\endsetslot
+
+\setslot{\lc{X}{x}}
+ \comment{The letter `{x}'.}
+\endsetslot
+
+\setslot{\lc{Y}{y}}
+ \comment{The letter `{y}'.}
+\endsetslot
+
+\setslot{\lc{Z}{z}}
+ \comment{The letter `{z}'.}
+\endsetslot
+
+\setslot{braceleft}
+ \comment{The opening curly brace `\textbraceleft'.}
+\endsetslot
+
+\setslot{bar}
+ \comment{The ASCII vertical bar `\textbar'.
+ This is included for compatibility with typewriter fonts used
+ for computer listings. \actually{`tz' ligature}}
+\endsetslot
+
+\setslot{braceright}
+ \comment{The closing curly brace `\textbraceright'.}
+\endsetslot
+
+\setslot{asciitilde}
+ \comment{The ASCII tilde `\textasciitilde'.
+ This is included for compatibility with typewriter fonts used
+ for computer listings.}
+\endsetslot
+
+\setslot{hyphenchar}
+ \comment{The glyph used for hyphenation in this font, which will
+ almost always be the same as `hyphen'.}
+\endsetslot
+
+
+\setslot{\uctop{Abreve}{abreve}}
+ \comment{The letter `\u A'.}
+\endsetslot
+
+\setslot{\uc{Aogonek}{aogonek}}
+ \comment{The letter `\k A'.}
+\endsetslot
+
+\setslot{\uctop{Cacute}{cacute}}
+ \comment{The letter `\' C'.}
+\endsetslot
+
+\setslot{\uctop{Ccaron}{ccaron}}
+ \comment{The letter `\v C'.}
+\endsetslot
+
+\setslot{\uctop{Dcaron}{dcaron}}
+ \comment{The letter `\v D'.}
+\endsetslot
+
+\setslot{\uctop{Ecaron}{ecaron}}
+ \comment{The letter `\v E'.}
+\endsetslot
+
+\setslot{\uc{Eogonek}{eogonek}}
+ \comment{The letter `\k E'.}
+\endsetslot
+
+\setslot{\uctop{Gbreve}{gbreve}}
+ \comment{The letter `\u G'.}
+\endsetslot
+
+\setslot{\uctop{Lacute}{lacute}}
+ \comment{The letter `\' L'.}
+\endsetslot
+
+\setslot{\uc{Lcaron}{lcaron}}
+ \comment{The letter `\v L'.}
+\endsetslot
+
+\setslot{\uc{Lslash}{lslash}}
+ \comment{The letter `\L'.}
+\endsetslot
+
+\setslot{\uctop{Nacute}{nacute}}
+ \comment{The letter `\' N'.}
+\endsetslot
+
+\setslot{\uctop{Ncaron}{ncaron}}
+ \comment{The letter `\v N'.}
+\endsetslot
+
+\setslot{\uc{Ng}{ng}}
+ \comment{The Sami letter `\NG'. It is unavailable in \plain\ \TeX.
+ \actually{letter `S'}}
+\endsetslot
+
+\setslot{\uctop{Ohungarumlaut}{ohungarumlaut}}
+ \comment{The letter `\H O'.}
+\endsetslot
+
+\setslot{\uctop{Racute}{racute}}
+ \comment{The letter `\' R'.}
+\endsetslot
+
+\setslot{\uctop{Rcaron}{rcaron}}
+ \comment{The letter `\v R'.}
+\endsetslot
+
+\setslot{\uctop{Sacute}{sacute}}
+ \comment{The letter `\' S'.}
+\endsetslot
+
+\setslot{\uctop{Scaron}{scaron}}
+ \comment{The letter `\v S'.}
+\endsetslot
+
+\setslot{\uc{Scedilla}{scedilla}}
+ \comment{The letter `\c S'.}
+\endsetslot
+
+\setslot{\uctop{Tcaron}{tcaron}}
+ \comment{The letter `\v T'.}
+\endsetslot
+
+\setslot{\uc{Tcedilla}{tcedilla}}
+ \comment{The letter `\c T'.}
+\endsetslot
+
+\setslot{\uctop{Uhungarumlaut}{uhungarumlaut}}
+ \comment{The letter `\H U'.}
+\endsetslot
+
+\setslot{\uctop{Uring}{uring}}
+ \comment{The letter `\r U'.}
+\endsetslot
+
+\setslot{\uctop{Ydieresis}{ydieresis}}
+ \comment{The letter `\" Y'.}
+\endsetslot
+
+\setslot{\uctop{Zacute}{zacute}}
+ \comment{The letter `\' Z'.}
+\endsetslot
+
+\setslot{\uctop{Zcaron}{zcaron}}
+ \comment{The letter `\v Z'.}
+\endsetslot
+
+\setslot{\uctop{Zdotaccent}{zdotaccent}}
+ \comment{The letter `\. Z'.}
+\endsetslot
+
+\setslot{\uclig{IJ}{ij}}
+ \comment{The letter `IJ'. This is a single letter, and in a monowidth
+ font should ideally be one letter wide.}
+\endsetslot
+
+\setslot{\uctop{Idotaccent}{idotaccent}}
+ \comment{The letter `\. I'.}
+\endsetslot
+
+\setslot{\lc{Dbar}{dbar}}
+ \comment{The letter `\dj'.}
+\endsetslot
+
+\setslot{section}
+ \comment{The section mark `\textsection'.}
+\endsetslot
+
+\setslot{\lctop{Abreve}{abreve}}
+ \comment{The letter `\u a'.}
+\endsetslot
+
+\setslot{\lc{Aogonek}{aogonek}}
+ \comment{The letter `\k a'.}
+\endsetslot
+
+\setslot{\lctop{Cacute}{cacute}}
+ \comment{The letter `\' c'.}
+\endsetslot
+
+\setslot{\lctop{Ccaron}{ccaron}}
+ \comment{The letter `\v c'.}
+\endsetslot
+
+\setslot{\lctop{Dcaron}{dcaron}}
+ \comment{The letter `\v d'.}
+\endsetslot
+
+\setslot{\lctop{Ecaron}{ecaron}}
+ \comment{The letter `\v e'.}
+\endsetslot
+
+\setslot{\lc{Eogonek}{eogonek}}
+ \comment{The letter `\k e'.}
+\endsetslot
+
+\setslot{\lctop{Gbreve}{gbreve}}
+ \comment{The letter `\u g'.}
+\endsetslot
+
+\setslot{\lctop{Lacute}{lacute}}
+ \comment{The letter `\' l'.}
+\endsetslot
+
+\setslot{\lc{Lcaron}{lcaron}}
+ \comment{The letter `\v l'.}
+\endsetslot
+
+\setslot{\lc{Lslash}{lslash}}
+ \comment{The letter `\l'.}
+\endsetslot
+
+\setslot{\lctop{Nacute}{nacute}}
+ \comment{The letter `\' n'.}
+\endsetslot
+
+\setslot{\lctop{Ncaron}{ncaron}}
+ \comment{The letter `\v n'.}
+\endsetslot
+
+\setslot{\lc{Ng}{ng}}
+% \ligature{LIG/>}{hyphen}{s}
+% \ligature{LIG/>}{hyphenchar}{s}
+ \comment{The Sami letter `\ng'. It is unavailable in \plain\ \TeX.
+ \actually{letter round `s'}}
+\endsetslot
+
+\setslot{\lctop{Ohungarumlaut}{ohungarumlaut}}
+ \comment{The letter `\H o'.}
+\endsetslot
+
+\setslot{\lctop{Racute}{racute}}
+ \comment{The letter `\' r'.}
+\endsetslot
+
+\setslot{\lctop{Rcaron}{rcaron}}
+ \comment{The letter `\v r'.}
+\endsetslot
+
+\setslot{\lctop{Sacute}{sacute}}
+ \comment{The letter `\' s'.}
+\endsetslot
+
+\setslot{\lctop{Scaron}{scaron}}
+ \comment{The letter `\v s'.}
+\endsetslot
+
+\setslot{\lc{Scedilla}{scedilla}}
+ \comment{The letter `\c s'.}
+\endsetslot
+
+\setslot{\lctop{Tcaron}{tcaron}}
+ \comment{The letter `\v t'.}
+\endsetslot
+
+\setslot{\lc{Tcedilla}{tcedilla}}
+ \comment{The letter `\c t'.}
+\endsetslot
+
+\setslot{\lctop{Uhungarumlaut}{uhungarumlaut}}
+ \comment{The letter `\H u'.}
+\endsetslot
+
+\setslot{\lctop{Uring}{uring}}
+ \comment{The letter `\r u'.}
+\endsetslot
+
+\setslot{\lctop{Ydieresis}{ydieresis}}
+ \comment{The letter `\" y'.}
+\endsetslot
+
+\setslot{\lctop{Zacute}{zacute}}
+ \comment{The letter `\' z'.}
+\endsetslot
+
+\setslot{\lctop{Zcaron}{zcaron}}
+ \comment{The letter `\v z'.}
+\endsetslot
+
+\setslot{\lctop{Zdotaccent}{zdotaccent}}
+ \comment{The letter `\. z'.}
+\endsetslot
+
+\setslot{\lclig{IJ}{ij}}
+ \comment{The letter `ij'. This is a single letter, and in a monowidth
+ font should ideally be one letter wide.}
+\endsetslot
+
+\setslot{exclamdown}
+ \comment{The Spanish punctuation mark `!`'.}
+\endsetslot
+
+\setslot{questiondown}
+ \comment{The Spanish punctuation mark `?`'.}
+\endsetslot
+
+\setslot{sterling}
+ \comment{The British currency mark `\textsterling'.}
+\endsetslot
+
+\setslot{\uctop{Agrave}{agrave}}
+ \comment{The letter `\` A'.}
+\endsetslot
+
+\setslot{\uctop{Aacute}{aacute}}
+ \comment{The letter `\' A'.}
+\endsetslot
+
+\setslot{\uctop{Acircumflex}{acircumflex}}
+ \comment{The letter `\^ A'.}
+\endsetslot
+
+\setslot{\uctop{Atilde}{atilde}}
+ \comment{The letter `\~ A'.}
+\endsetslot
+
+\setslot{\uctop{Adieresis}{adieresis}}
+ \comment{The letter `\" A'.}
+\endsetslot
+
+\setslot{\uctop{Aring}{aring}}
+ \comment{The letter `\r A'.}
+\endsetslot
+
+\setslot{\uc{AE}{ae}}
+ \comment{The letter `\AE'. This is a single letter, and should not be
+ faked with `AE'.}
+\endsetslot
+
+\setslot{\uc{Ccedilla}{ccedilla}}
+ \comment{The letter `\c C'.}
+\endsetslot
+
+\setslot{\uctop{Egrave}{egrave}}
+ \comment{The letter `\` E'.}
+\endsetslot
+
+\setslot{\uctop{Eacute}{eacute}}
+ \comment{The letter `\' E'.}
+\endsetslot
+
+\setslot{\uctop{Ecircumflex}{ecircumflex}}
+ \comment{The letter `\^ E'.}
+\endsetslot
+
+\setslot{\uctop{Edieresis}{edieresis}}
+ \comment{The letter `\" E'.}
+\endsetslot
+
+\setslot{\uctop{Igrave}{igrave}}
+ \comment{The letter `\` I'.}
+\endsetslot
+
+\setslot{\uctop{Iacute}{iacute}}
+ \comment{The letter `\' I'.}
+\endsetslot
+
+\setslot{\uctop{Icircumflex}{icircumflex}}
+ \comment{The letter `\^ I'.}
+\endsetslot
+
+\setslot{\uctop{Idieresis}{idieresis}}
+ \comment{The letter `\" I'.}
+\endsetslot
+
+\setslot{\uc{Eth}{eth}}
+ \comment{The uppercase Icelandic letter `Eth' similar to a `D'
+ with a horizontal bar through the stem. It is unavailable
+ in \plain\ \TeX.}
+\endsetslot
+
+\setslot{\uctop{Ntilde}{ntilde}}
+ \comment{The letter `\~ N'.}
+\endsetslot
+
+\setslot{\uctop{Ograve}{ograve}}
+ \comment{The letter `\` O'.}
+\endsetslot
+
+\setslot{\uctop{Oacute}{oacute}}
+ \comment{The letter `\' O'.}
+\endsetslot
+
+\setslot{\uctop{Ocircumflex}{ocircumflex}}
+ \comment{The letter `\^ O'.}
+\endsetslot
+
+\setslot{\uctop{Otilde}{otilde}}
+ \comment{The letter `\~ O'.}
+\endsetslot
+
+\setslot{\uctop{Odieresis}{odieresis}}
+ \comment{The letter `\" O'.}
+\endsetslot
+
+\setslot{\uc{OE}{oe}}
+ \comment{The letter `\OE'. This is a single letter, and should not be
+ faked with `OE'.}
+\endsetslot
+
+\setslot{\uc{Oslash}{oslash}}
+ \comment{The letter `\O'.}
+\endsetslot
+
+\setslot{\uctop{Ugrave}{ugrave}}
+ \comment{The letter `\` U'.}
+\endsetslot
+
+\setslot{\uctop{Uacute}{uacute}}
+ \comment{The letter `\' U'.}
+\endsetslot
+
+\setslot{\uctop{Ucircumflex}{ucircumflex}}
+ \comment{The letter `\^ U'.}
+\endsetslot
+
+\setslot{\uctop{Udieresis}{udieresis}}
+ \comment{The letter `\" U'.}
+\endsetslot
+
+\setslot{\uctop{Yacute}{yacute}}
+ \comment{The letter `\' Y'.}
+\endsetslot
+
+\setslot{\uc{Thorn}{thorn}}
+ \comment{The Icelandic capital letter Thorn, similar to a `P'
+ with the bowl moved down. It is unavailable in \plain\ \TeX.}
+\endsetslot
+
+\setslot{\uclig{SS}{germandbls}}
+ \comment{The ligature `SS', used to give an upper case `\ss'.
+ In a monowidth font it should be two letters wide.}
+\endsetslot
+
+\setslot{\lctop{Agrave}{agrave}}
+ \comment{The letter `\` a'.}
+\endsetslot
+
+\setslot{\lctop{Aacute}{aacute}}
+ \comment{The letter `\' a'.}
+\endsetslot
+
+\setslot{\lctop{Acircumflex}{acircumflex}}
+ \comment{The letter `\^ a'.}
+\endsetslot
+
+\setslot{\lctop{Atilde}{atilde}}
+ \comment{The letter `\~ a'.}
+\endsetslot
+
+\setslot{\lctop{Adieresis}{adieresis}}
+ \comment{The letter `\" a'.}
+\endsetslot
+
+\setslot{\lctop{Aring}{aring}}
+ \comment{The letter `\r a'.}
+\endsetslot
+
+\setslot{\lc{AE}{ae}}
+ \comment{The letter `\ae'. This is a single letter, and should not be
+ faked with `ae'.}
+\endsetslot
+
+\setslot{\lc{Ccedilla}{ccedilla}}
+ \comment{The letter `\c c'.}
+\endsetslot
+
+\setslot{\lctop{Egrave}{egrave}}
+ \comment{The letter `\` e'.}
+\endsetslot
+
+\setslot{\lctop{Eacute}{eacute}}
+ \comment{The letter `\' e'.}
+\endsetslot
+
+\setslot{\lctop{Ecircumflex}{ecircumflex}}
+ \comment{The letter `\^ e'.}
+\endsetslot
+
+\setslot{\lctop{Edieresis}{edieresis}}
+ \comment{The letter `\" e'.}
+\endsetslot
+
+\setslot{\lctop{Igrave}{igrave}}
+ \comment{The letter `\`\i'.}
+\endsetslot
+
+\setslot{\lctop{Iacute}{iacute}}
+ \comment{The letter `\'\i'.}
+\endsetslot
+
+\setslot{\lctop{Icircumflex}{icircumflex}}
+ \comment{The letter `\^\i'.}
+\endsetslot
+
+\setslot{\lctop{Idieresis}{idieresis}}
+ \comment{The letter `\"\i'.}
+\endsetslot
+
+\setslot{\lc{Eth}{eth}}
+ \comment{The Icelandic lowercase letter `eth' similar to
+ a `$\partial$' with an oblique bar through the stem.
+ It is unavailable in \plain\ \TeX.}
+\endsetslot
+
+\setslot{\lctop{Ntilde}{ntilde}}
+ \comment{The letter `\~ n'.}
+\endsetslot
+
+\setslot{\lctop{Ograve}{ograve}}
+ \comment{The letter `\` o'.}
+\endsetslot
+
+\setslot{\lctop{Oacute}{oacute}}
+ \comment{The letter `\' o'.}
+\endsetslot
+
+\setslot{\lctop{Ocircumflex}{ocircumflex}}
+ \comment{The letter `\^ o'.}
+\endsetslot
+
+\setslot{\lctop{Otilde}{otilde}}
+ \comment{The letter `\~ o'.}
+\endsetslot
+
+\setslot{\lctop{Odieresis}{odieresis}}
+ \comment{The letter `\" o'.}
+\endsetslot
+
+\setslot{\lc{OE}{oe}}
+ \comment{The letter `\oe'. This is a single letter, and should not be
+ faked with `oe'.}
+\endsetslot
+
+\setslot{\lc{Oslash}{oslash}}
+ \comment{The letter `\o'.}
+\endsetslot
+
+\setslot{\lctop{Ugrave}{ugrave}}
+ \comment{The letter `\` u'.}
+\endsetslot
+
+\setslot{\lctop{Uacute}{uacute}}
+ \comment{The letter `\' u'.}
+\endsetslot
+
+\setslot{\lctop{Ucircumflex}{ucircumflex}}
+ \comment{The letter `\^ u'.}
+\endsetslot
+
+\setslot{\lctop{Udieresis}{udieresis}}
+ \comment{The letter `\" u'.}
+\endsetslot
+
+\setslot{\lctop{Yacute}{yacute}}
+ \comment{The letter `\' y'.}
+\endsetslot
+
+\setslot{\lc{Thorn}{thorn}}
+ \comment{The Icelandic lowercase letter `thorn', similar to a `p'
+ with an ascender rising from the stem. It is unavailable
+ in \plain\ \TeX.}
+\endsetslot
+
+\setslot{\lc{SS}{germandbls}}
+ \comment{The letter `\ss'.}
+\endsetslot
+
+\endencoding
+
+\end{document}
+%</t1fraketx>
+% \end{macrocode}
+% \Finale
+
+\endinput
+%%% Local Variables:
+%%% mode: latex
+%%% TeX-master: t
+%%% End:
diff --git a/fonts/gothic/blacklettert1/blacklettert1.ins b/fonts/gothic/blacklettert1/blacklettert1.ins
new file mode 100644
index 0000000000..dd439c9cff
--- /dev/null
+++ b/fonts/gothic/blacklettert1/blacklettert1.ins
@@ -0,0 +1,98 @@
+%%
+%% This file will generate fast loadable files and documentation
+%% driver files from the doc files in this package when run through
+%% LaTeX or TeX.
+%%
+%% blacklettert1.ins -- Blackletter Typefaces in T1 Encoding
+%% Copyright 2002 Torsten Bronger <torsten.bronger@gmx.de>
+%%
+%% This program may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.2
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.2 or later is part of all distributions of LaTeX
+%% version 1999/12/01 or later.
+%%
+%% --------------- start of docstrip commands ------------------
+%%
+\input docstrip
+
+\keepsilent
+\askforoverwritefalse
+
+\def\MP{\MetaPrefix}
+\def\MPS{\MetaPrefix\space}
+\def\MPSS{\MPS\space}
+\def\MPSSSS{\MPSS\space\space}
+
+\newcount\hours
+\newcount\minutes
+\hours\time
+\divide\hours by 60
+\minutes-\hours
+\multiply\minutes by 60
+\advance\minutes by \time
+
+\def\twodigits#1{\ifnum#1<10 0\fi\the#1}
+\def\thedate{\the\year/\twodigits\month/\twodigits\day
+ \space at\space
+ \twodigits\hours:\twodigits\minutes}
+
+\def\genericpreamble{\MP^^J%
+\MPS This is file `\outFileName',^^J%
+\MPS generated on \thedate\space with the docstrip utility.^^J%
+\ReferenceLines\MP^^J%
+\MP======================================================================^^J%
+\MPSSSS\outFileName\space -- Part of the blacklettert1 package^^J%
+\MPSSSS Copyright 2002 Torsten Bronger <torsten.bronger@gmx.de>^^J%
+\MP^^J%
+\MPSS This program may be distributed and/or modified under the^^J%
+\MPSS conditions of the LaTeX Project Public License, either version 1.2^^J%
+\MPSS of this license or (at your option) any later version.^^J%
+\MPSS The latest version of this license is in^^J%
+\MPSSSS http://www.latex-project.org/lppl.txt^^J%
+\MPSS and version 1.2 or later is part of all distributions of LaTeX^^J%
+\MPSS version 1999/12/01 or later.^^J%
+\MP^^J%
+\MPSS This file may only be distributed together with a copy of the^^J%
+\MPSS blacklettert1 package. You may however distribute the blacklettert1 package^^J%
+\MPSS without such generated files.^^J%
+\MP======================================================================^^J%
+\MP
+}
+\def\genericpostamble{\MP^^J%
+\MPS End of file `\outFileName'.^^J%
+}
+
+\edef\TeXpreamble{\genericpreamble}
+\edef\TeXpostamble{\genericpostamble}
+
+\usepreamble\TeXpreamble
+\usepostamble\TeXpostamble
+
+\def\dostrip#1#2{\file{#1.#2}{\from{blacklettert1.dtx}{#1#2}}}
+
+\generate{%
+\dostrip{yutoyt1}{tex}%
+\dostrip{yfrak}{etx}%
+\dostrip{yswab}{etx}%
+\dostrip{ygoth}{etx}%
+\dostrip{setglyph}{mtx}%
+\dostrip{unsetacc}{mtx}%
+\dostrip{unsetcm}{mtx}%
+\dostrip{unsetdia}{mtx}%
+\dostrip{unsetste}{mtx}%
+\dostrip{fcleanup}{mtx}%
+\dostrip{scleanup}{mtx}%
+\dostrip{gcleanup}{mtx}%
+\dostrip{lettersp}{mtx}%
+\dostrip{blackletter}{mtx}%
+\dostrip{t1frak}{etx}%
+}
+
+% \Msg{***********************************************************}
+% \Msg{* Happy TeXing}
+% \Msg{***********************************************************}
+
+\endbatchfile
diff --git a/fonts/gothic/blacklettert1/cmbsy10.pl b/fonts/gothic/blacklettert1/cmbsy10.pl
new file mode 100644
index 0000000000..55628f0011
--- /dev/null
+++ b/fonts/gothic/blacklettert1/cmbsy10.pl
@@ -0,0 +1,767 @@
+(FAMILY CMBSY)
+(FACE O 352)
+(CODINGSCHEME TEX MATH SYMBOLS)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 34062306014)
+(FONTDIMEN
+ (SLANT R 0.25)
+ (SPACE R 0.0)
+ (STRETCH R 0.0)
+ (SHRINK R 0.0)
+ (XHEIGHT R 0.444445)
+ (QUAD R 1.149994)
+ (EXTRASPACE R 0.0)
+ (NUM1 R 0.746712)
+ (NUM2 R 0.423933)
+ (NUM3 R 0.473933)
+ (DENOM1 R 0.756155)
+ (DENOM2 R 0.375043)
+ (SUP1 R 0.412892)
+ (SUP2 R 0.362892)
+ (SUP3 R 0.288889)
+ (SUB1 R 0.15)
+ (SUB2 R 0.309219)
+ (SUPDROP R 0.386108)
+ (SUBDROP R 0.05)
+ (DELIM1 R 2.389999)
+ (DELIM2 R 1.01)
+ (AXISHEIGHT R 0.25)
+ )
+(LIGTABLE
+ (LABEL O 111)
+ (LABEL O 124)
+ (LABEL O 126)
+ (KRN O 60 R 0.031944)
+ (STOP)
+ (LABEL O 113)
+ (KRN O 60 R 0.063889)
+ (STOP)
+ (LABEL O 104)
+ (LABEL O 116)
+ (LABEL O 120)
+ (LABEL O 122)
+ (LABEL O 125)
+ (LABEL O 127)
+ (LABEL O 131)
+ (KRN O 60 R 0.095833)
+ (STOP)
+ (LABEL O 105)
+ (LABEL O 106)
+ (LABEL O 107)
+ (LABEL O 110)
+ (LABEL O 117)
+ (LABEL O 121)
+ (KRN O 60 R 0.127777)
+ (STOP)
+ (LABEL O 102)
+ (LABEL O 103)
+ (LABEL O 114)
+ (LABEL O 115)
+ (LABEL O 123)
+ (LABEL O 130)
+ (LABEL O 132)
+ (KRN O 60 R 0.159721)
+ (STOP)
+ (LABEL O 112)
+ (KRN O 60 R 0.191666)
+ (STOP)
+ (LABEL O 101)
+ (KRN O 60 R 0.22361)
+ (STOP)
+ )
+(CHARACTER O 0
+ (CHARWD R 0.89444)
+ (CHARHT R 0.633331)
+ (CHARDP R 0.133331)
+ )
+(CHARACTER O 1
+ (CHARWD R 0.319443)
+ (CHARHT R 0.47361)
+ (CHARDP R -0.02639)
+ )
+(CHARACTER O 2
+ (CHARWD R 0.89444)
+ (CHARHT R 0.633331)
+ (CHARDP R 0.133331)
+ )
+(CHARACTER O 3
+ (CHARWD R 0.574997)
+ (CHARHT R 0.472223)
+ (CHARDP R -0.027777)
+ )
+(CHARACTER O 4
+ (CHARWD R 0.89444)
+ (CHARHT R 0.633331)
+ (CHARDP R 0.133331)
+ )
+(CHARACTER O 5
+ (CHARWD R 0.574997)
+ (CHARHT R 0.47361)
+ (CHARDP R -0.02639)
+ )
+(CHARACTER O 6
+ (CHARWD R 0.89444)
+ (CHARHT R 0.633331)
+ (CHARDP R 0.133331)
+ )
+(CHARACTER O 7
+ (CHARWD R 0.89444)
+ (CHARHT R 0.633331)
+ (CHARDP R 0.133331)
+ )
+(CHARACTER O 10
+ (CHARWD R 0.89444)
+ (CHARHT R 0.633331)
+ (CHARDP R 0.133331)
+ )
+(CHARACTER O 11
+ (CHARWD R 0.89444)
+ (CHARHT R 0.633331)
+ (CHARDP R 0.133331)
+ )
+(CHARACTER O 12
+ (CHARWD R 0.89444)
+ (CHARHT R 0.633331)
+ (CHARDP R 0.133331)
+ )
+(CHARACTER O 13
+ (CHARWD R 0.89444)
+ (CHARHT R 0.633331)
+ (CHARDP R 0.133331)
+ )
+(CHARACTER O 14
+ (CHARWD R 0.89444)
+ (CHARHT R 0.633331)
+ (CHARDP R 0.133331)
+ )
+(CHARACTER O 15
+ (CHARWD R 1.149994)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 16
+ (CHARWD R 0.574997)
+ (CHARHT R 0.47361)
+ (CHARDP R -0.02639)
+ )
+(CHARACTER O 17
+ (CHARWD R 0.574997)
+ (CHARHT R 0.47361)
+ (CHARDP R -0.02639)
+ )
+(CHARACTER O 20
+ (CHARWD R 0.89444)
+ (CHARHT R 0.502223)
+ (CHARDP R 0.002223)
+ )
+(CHARACTER O 21
+ (CHARWD R 0.89444)
+ (CHARHT R 0.502223)
+ (CHARDP R 0.002223)
+ )
+(CHARACTER O 22
+ (CHARWD R 0.89444)
+ (CHARHT R 0.696668)
+ (CHARDP R 0.196668)
+ )
+(CHARACTER O 23
+ (CHARWD R 0.89444)
+ (CHARHT R 0.696668)
+ (CHARDP R 0.196668)
+ )
+(CHARACTER O 24
+ (CHARWD R 0.89444)
+ (CHARHT R 0.696668)
+ (CHARDP R 0.196668)
+ )
+(CHARACTER O 25
+ (CHARWD R 0.89444)
+ (CHARHT R 0.696668)
+ (CHARDP R 0.196668)
+ )
+(CHARACTER O 26
+ (CHARWD R 0.89444)
+ (CHARHT R 0.696668)
+ (CHARDP R 0.196668)
+ )
+(CHARACTER O 27
+ (CHARWD R 0.89444)
+ (CHARHT R 0.696668)
+ (CHARDP R 0.196668)
+ )
+(CHARACTER O 30
+ (CHARWD R 0.89444)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 31
+ (CHARWD R 0.89444)
+ (CHARHT R 0.524445)
+ (CHARDP R 0.024445)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.89444)
+ (CHARHT R 0.585556)
+ (CHARDP R 0.085556)
+ )
+(CHARACTER O 33
+ (CHARWD R 0.89444)
+ (CHARHT R 0.585556)
+ (CHARDP R 0.085556)
+ )
+(CHARACTER O 34
+ (CHARWD R 1.149994)
+ (CHARHT R 0.585556)
+ (CHARDP R 0.085556)
+ )
+(CHARACTER O 35
+ (CHARWD R 1.149994)
+ (CHARHT R 0.585556)
+ (CHARDP R 0.085556)
+ )
+(CHARACTER O 36
+ (CHARWD R 0.89444)
+ (CHARHT R 0.585556)
+ (CHARDP R 0.085556)
+ )
+(CHARACTER O 37
+ (CHARWD R 0.89444)
+ (CHARHT R 0.585556)
+ (CHARDP R 0.085556)
+ )
+(CHARACTER O 40
+ (CHARWD R 1.149994)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 41
+ (CHARWD R 1.149994)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 42
+ (CHARWD R 0.574997)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 43
+ (CHARWD R 0.574997)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 44
+ (CHARWD R 1.149994)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 45
+ (CHARWD R 1.149994)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 46
+ (CHARWD R 1.149994)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 47
+ (CHARWD R 0.89444)
+ (CHARHT R 0.502223)
+ (CHARDP R 0.002223)
+ )
+(CHARACTER O 50
+ (CHARWD R 1.149994)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 51
+ (CHARWD R 1.149994)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 52
+ (CHARWD R 0.702774)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 53
+ (CHARWD R 0.702774)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 54
+ (CHARWD R 1.149994)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 55
+ (CHARWD R 1.149994)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 56
+ (CHARWD R 1.149994)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.89444)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER O 60
+ (CHARWD R 0.344442)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 61
+ (CHARWD R 1.149994)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER O 62
+ (CHARWD R 0.766663)
+ (CHARHT R 0.585556)
+ (CHARDP R 0.085556)
+ )
+(CHARACTER O 63
+ (CHARWD R 0.766663)
+ (CHARHT R 0.585556)
+ (CHARDP R 0.085556)
+ )
+(CHARACTER O 64
+ (CHARWD R 1.022217)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 65
+ (CHARWD R 1.022217)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 66
+ (CHARWD R 0.0)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 67
+ (CHARWD R 0.0)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 70
+ (CHARWD R 0.6388855)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 71
+ (CHARWD R 0.6388855)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.766663)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.574997)
+ (CHARHT R 0.75)
+ (CHARDP R 0.055555)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.830551)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 75
+ (CHARWD R 0.830551)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 76
+ (CHARWD R 0.89444)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 77
+ (CHARWD R 0.89444)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 100
+ (CHARWD R 0.702774)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 101
+ (CHARWD R 0.920728)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN O 60 R 0.22361)
+ )
+ )
+(CHARACTER O 102
+ (CHARWD R 0.747844)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.02251)
+ (COMMENT
+ (KRN O 60 R 0.159721)
+ )
+ )
+(CHARACTER O 103
+ (CHARWD R 0.612982)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.047145)
+ (COMMENT
+ (KRN O 60 R 0.159721)
+ )
+ )
+(CHARACTER O 104
+ (CHARWD R 0.892079)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.031944)
+ (COMMENT
+ (KRN O 60 R 0.095833)
+ )
+ )
+(CHARACTER O 105
+ (CHARWD R 0.606941)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.082914)
+ (COMMENT
+ (KRN O 60 R 0.127777)
+ )
+ )
+(CHARACTER O 106
+ (CHARWD R 0.814089)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.101736)
+ (COMMENT
+ (KRN O 60 R 0.127777)
+ )
+ )
+(CHARACTER O 107
+ (CHARWD R 0.681595)
+ (CHARHT R 0.686111)
+ (CHARDP R 0.097223)
+ (CHARIC R 0.055736)
+ (COMMENT
+ (KRN O 60 R 0.127777)
+ )
+ )
+(CHARACTER O 110
+ (CHARWD R 0.987389)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN O 60 R 0.127777)
+ )
+ )
+(CHARACTER O 111
+ (CHARWD R 0.64239)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.081415)
+ (COMMENT
+ (KRN O 60 R 0.031944)
+ )
+ )
+(CHARACTER O 112
+ (CHARWD R 0.77944)
+ (CHARHT R 0.686111)
+ (CHARDP R 0.097223)
+ (CHARIC R 0.187502)
+ (COMMENT
+ (KRN O 60 R 0.191666)
+ )
+ )
+(CHARACTER O 113
+ (CHARWD R 0.871249)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN O 60 R 0.063889)
+ )
+ )
+(CHARACTER O 114
+ (CHARWD R 0.78819)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN O 60 R 0.159721)
+ )
+ )
+(CHARACTER O 115
+ (CHARWD R 1.377826)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN O 60 R 0.159721)
+ )
+ )
+(CHARACTER O 116
+ (CHARWD R 0.937322)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.152014)
+ (COMMENT
+ (KRN O 60 R 0.095833)
+ )
+ )
+(CHARACTER O 117
+ (CHARWD R 0.905551)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.031944)
+ (COMMENT
+ (KRN O 60 R 0.127777)
+ )
+ )
+(CHARACTER O 120
+ (CHARWD R 0.809857)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.084582)
+ (COMMENT
+ (KRN O 60 R 0.095833)
+ )
+ )
+(CHARACTER O 121
+ (CHARWD R 0.939161)
+ (CHARHT R 0.686111)
+ (CHARDP R 0.097223)
+ (COMMENT
+ (KRN O 60 R 0.127777)
+ )
+ )
+(CHARACTER O 122
+ (CHARWD R 0.989576)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN O 60 R 0.095833)
+ )
+ )
+(CHARACTER O 123
+ (CHARWD R 0.696385)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.071289)
+ (COMMENT
+ (KRN O 60 R 0.159721)
+ )
+ )
+(CHARACTER O 124
+ (CHARWD R 0.644142)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.267362)
+ (COMMENT
+ (KRN O 60 R 0.031944)
+ )
+ )
+(CHARACTER O 125
+ (CHARWD R 0.714714)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.101736)
+ (COMMENT
+ (KRN O 60 R 0.095833)
+ )
+ )
+(CHARACTER O 126
+ (CHARWD R 0.737358)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.084582)
+ (COMMENT
+ (KRN O 60 R 0.031944)
+ )
+ )
+(CHARACTER O 127
+ (CHARWD R 1.168605)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.084582)
+ (COMMENT
+ (KRN O 60 R 0.095833)
+ )
+ )
+(CHARACTER O 130
+ (CHARWD R 0.816722)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.147024)
+ (COMMENT
+ (KRN O 60 R 0.159721)
+ )
+ )
+(CHARACTER O 131
+ (CHARWD R 0.758609)
+ (CHARHT R 0.686111)
+ (CHARDP R 0.097223)
+ (CHARIC R 0.084582)
+ (COMMENT
+ (KRN O 60 R 0.095833)
+ )
+ )
+(CHARACTER O 132
+ (CHARWD R 0.818471)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.0813875)
+ (COMMENT
+ (KRN O 60 R 0.159721)
+ )
+ )
+(CHARACTER O 133
+ (CHARWD R 0.766663)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.766663)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.766663)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 136
+ (CHARWD R 0.766663)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 137
+ (CHARWD R 0.766663)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.702774)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 141
+ (CHARWD R 0.702774)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 142
+ (CHARWD R 0.511108)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 143
+ (CHARWD R 0.511108)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 144
+ (CHARWD R 0.511108)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 145
+ (CHARWD R 0.511108)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 146
+ (CHARWD R 0.574997)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 147
+ (CHARWD R 0.574997)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 150
+ (CHARWD R 0.44722)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 151
+ (CHARWD R 0.44722)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 152
+ (CHARWD R 0.319443)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 153
+ (CHARWD R 0.574997)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 154
+ (CHARWD R 0.574997)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 155
+ (CHARWD R 0.702774)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 156
+ (CHARWD R 0.574997)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 157
+ (CHARWD R 0.319443)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 160
+ (CHARWD R 0.958328)
+ (CHARHT R 0.06)
+ (CHARDP R 0.94)
+ )
+(CHARACTER O 161
+ (CHARWD R 0.899996)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 162
+ (CHARWD R 0.958328)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 163
+ (CHARWD R 0.56875)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.127777)
+ )
+(CHARACTER O 164
+ (CHARWD R 0.766663)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 165
+ (CHARWD R 0.766663)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 166
+ (CHARWD R 0.89444)
+ (CHARHT R 0.696668)
+ (CHARDP R 0.196668)
+ )
+(CHARACTER O 167
+ (CHARWD R 0.89444)
+ (CHARHT R 0.696668)
+ (CHARDP R 0.196668)
+ )
+(CHARACTER O 170
+ (CHARWD R 0.526387)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 171
+ (CHARWD R 0.511108)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 172
+ (CHARWD R 0.511108)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 173
+ (CHARWD R 0.702774)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 174
+ (CHARWD R 0.89444)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.129629)
+ )
+(CHARACTER O 175
+ (CHARWD R 0.89444)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.129629)
+ )
+(CHARACTER O 176
+ (CHARWD R 0.89444)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.129629)
+ )
+(CHARACTER O 177
+ (CHARWD R 0.89444)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.129629)
+ )
diff --git a/fonts/gothic/blacklettert1/cmbx10.pl b/fonts/gothic/blacklettert1/cmbx10.pl
new file mode 100644
index 0000000000..91b3b2da8e
--- /dev/null
+++ b/fonts/gothic/blacklettert1/cmbx10.pl
@@ -0,0 +1,980 @@
+(FAMILY CMBX)
+(FACE O 352)
+(CODINGSCHEME TEX TEXT)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 3274421126)
+(FONTDIMEN
+ (SLANT R 0.0)
+ (SPACE R 0.383331)
+ (STRETCH R 0.191666)
+ (SHRINK R 0.127777)
+ (XHEIGHT R 0.444445)
+ (QUAD R 1.149994)
+ (EXTRASPACE R 0.127777)
+ )
+(LIGTABLE
+ (LABEL O 40)
+ (KRN C l R -0.319443)
+ (KRN C L R -0.377777)
+ (STOP)
+ (LABEL C f)
+ (LIG C i O 14)
+ (LIG C f O 13)
+ (LIG C l O 15)
+ (KRN O 47 R 0.109027)
+ (KRN O 77 R 0.109027)
+ (KRN O 41 R 0.109027)
+ (KRN O 51 R 0.109027)
+ (KRN O 135 R 0.109027)
+ (STOP)
+ (LABEL O 13)
+ (LIG C i O 16)
+ (LIG C l O 17)
+ (KRN O 47 R 0.109027)
+ (KRN O 77 R 0.109027)
+ (KRN O 41 R 0.109027)
+ (KRN O 51 R 0.109027)
+ (KRN O 135 R 0.109027)
+ (STOP)
+ (LABEL O 140)
+ (LIG O 140 O 134)
+ (STOP)
+ (LABEL O 47)
+ (LIG O 47 O 42)
+ (KRN O 77 R 0.127777)
+ (KRN O 41 R 0.127777)
+ (STOP)
+ (LABEL O 55)
+ (LIG O 55 O 173)
+ (STOP)
+ (LABEL O 173)
+ (LIG O 55 O 174)
+ (STOP)
+ (LABEL O 41)
+ (LIG O 140 O 74)
+ (STOP)
+ (LABEL O 77)
+ (LIG O 140 O 76)
+ (STOP)
+ (LABEL C k)
+ (LABEL C v)
+ (KRN C a R -0.063889)
+ (LABEL C w)
+ (KRN C e R -0.031944)
+ (KRN C a R -0.031944)
+ (KRN C o R -0.031944)
+ (KRN C c R -0.031944)
+ (STOP)
+ (LABEL C P)
+ (KRN C A R -0.095833)
+ (LABEL C y)
+ (KRN C o R -0.031944)
+ (KRN C e R -0.031944)
+ (KRN C a R -0.031944)
+ (KRN O 56 R -0.095833)
+ (KRN O 54 R -0.095833)
+ (STOP)
+ (LABEL C F)
+ (LABEL C V)
+ (LABEL C W)
+ (KRN C o R -0.095833)
+ (KRN C e R -0.095833)
+ (KRN C u R -0.095833)
+ (KRN C r R -0.095833)
+ (KRN C a R -0.095833)
+ (KRN C A R -0.127777)
+ (LABEL C K)
+ (LABEL C X)
+ (KRN C O R -0.031944)
+ (KRN C C R -0.031944)
+ (KRN C G R -0.031944)
+ (KRN C Q R -0.031944)
+ (STOP)
+ (LABEL C T)
+ (KRN C y R -0.031944)
+ (LABEL C Y)
+ (KRN C e R -0.095833)
+ (KRN C o R -0.095833)
+ (KRN C r R -0.095833)
+ (KRN C a R -0.095833)
+ (KRN C A R -0.095833)
+ (KRN C u R -0.095833)
+ (STOP)
+ (LABEL C D)
+ (LABEL C O)
+ (KRN C X R -0.031944)
+ (KRN C W R -0.031944)
+ (KRN C A R -0.031944)
+ (KRN C V R -0.031944)
+ (KRN C Y R -0.031944)
+ (STOP)
+ (LABEL C h)
+ (LABEL C m)
+ (LABEL C n)
+ (KRN C t R -0.031944)
+ (KRN C u R -0.031944)
+ (KRN C b R -0.031944)
+ (KRN C y R -0.031944)
+ (KRN C v R -0.031944)
+ (KRN C w R -0.031944)
+ (STOP)
+ (LABEL C c)
+ (KRN C h R -0.031944)
+ (KRN C k R -0.031944)
+ (STOP)
+ (LABEL C b)
+ (LABEL C o)
+ (LABEL C p)
+ (KRN C e R 0.031944)
+ (KRN C o R 0.031944)
+ (KRN C x R -0.031944)
+ (KRN C d R 0.031944)
+ (KRN C c R 0.031944)
+ (KRN C q R 0.031944)
+ (LABEL C a)
+ (KRN C v R -0.031944)
+ (KRN C j R 0.063889)
+ (LABEL C t)
+ (KRN C y R -0.031944)
+ (LABEL C u)
+ (KRN C w R -0.031944)
+ (STOP)
+ (LABEL C A)
+ (LABEL C R)
+ (KRN C t R -0.031944)
+ (KRN C C R -0.031944)
+ (KRN C O R -0.031944)
+ (KRN C G R -0.031944)
+ (KRN C U R -0.031944)
+ (KRN C Q R -0.031944)
+ (LABEL C L)
+ (KRN C T R -0.095833)
+ (KRN C Y R -0.095833)
+ (KRN C V R -0.127777)
+ (KRN C W R -0.127777)
+ (STOP)
+ (LABEL C g)
+ (KRN C j R 0.031944)
+ (STOP)
+ (LABEL C I)
+ (KRN C I R 0.031944)
+ (STOP)
+ )
+(CHARACTER O 0
+ (CHARWD R 0.691663)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 1
+ (CHARWD R 0.958328)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 2
+ (CHARWD R 0.89444)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 3
+ (CHARWD R 0.805552)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 4
+ (CHARWD R 0.766663)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 5
+ (CHARWD R 0.899996)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 6
+ (CHARWD R 0.830551)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 7
+ (CHARWD R 0.89444)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 10
+ (CHARWD R 0.830551)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 11
+ (CHARWD R 0.89444)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 12
+ (CHARWD R 0.830551)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 13
+ (CHARWD R 0.67083)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.109027)
+ (COMMENT
+ (LIG C i O 16)
+ (LIG C l O 17)
+ (KRN O 47 R 0.109027)
+ (KRN O 77 R 0.109027)
+ (KRN O 41 R 0.109027)
+ (KRN O 51 R 0.109027)
+ (KRN O 135 R 0.109027)
+ )
+ )
+(CHARACTER O 14
+ (CHARWD R 0.6388855)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 15
+ (CHARWD R 0.6388855)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 16
+ (CHARWD R 0.958328)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 17
+ (CHARWD R 0.958328)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 20
+ (CHARWD R 0.319443)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER O 21
+ (CHARWD R 0.351387)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 22
+ (CHARWD R 0.574997)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 23
+ (CHARWD R 0.574997)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 24
+ (CHARWD R 0.574997)
+ (CHARHT R 0.631945)
+ )
+(CHARACTER O 25
+ (CHARWD R 0.574997)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 26
+ (CHARWD R 0.574997)
+ (CHARHT R 0.596109)
+ )
+(CHARACTER O 27
+ (CHARWD R 0.86944)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 30
+ (CHARWD R 0.511108)
+ (CHARDP R 0.170138)
+ )
+(CHARACTER O 31
+ (CHARWD R 0.597219)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.830551)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER O 33
+ (CHARWD R 0.89444)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER O 34
+ (CHARWD R 0.574997)
+ (CHARHT R 0.541667)
+ (CHARDP R 0.097223)
+ )
+(CHARACTER O 35
+ (CHARWD R 1.041661)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 36
+ (CHARWD R 1.169438)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 37
+ (CHARWD R 0.89444)
+ (CHARHT R 0.734723)
+ (CHARDP R 0.048612)
+ )
+(CHARACTER O 40
+ (CHARWD R 0.319443)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN C l R -0.319443)
+ (KRN C L R -0.377777)
+ )
+ )
+(CHARACTER O 41
+ (CHARWD R 0.349998)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 74)
+ )
+ )
+(CHARACTER O 42
+ (CHARWD R 0.602776)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 43
+ (CHARWD R 0.958328)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 44
+ (CHARWD R 0.574997)
+ (CHARHT R 0.75)
+ (CHARDP R 0.055555)
+ )
+(CHARACTER O 45
+ (CHARWD R 0.958328)
+ (CHARHT R 0.75)
+ (CHARDP R 0.055555)
+ )
+(CHARACTER O 46
+ (CHARWD R 0.89444)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 47
+ (CHARWD R 0.319443)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 47 O 42)
+ (KRN O 77 R 0.127777)
+ (KRN O 41 R 0.127777)
+ )
+ )
+(CHARACTER O 50
+ (CHARWD R 0.44722)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 51
+ (CHARWD R 0.44722)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 52
+ (CHARWD R 0.574997)
+ (CHARHT R 0.75)
+ )
+(CHARACTER O 53
+ (CHARWD R 0.89444)
+ (CHARHT R 0.633331)
+ (CHARDP R 0.133331)
+ )
+(CHARACTER O 54
+ (CHARWD R 0.319443)
+ (CHARHT R 0.155556)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 55
+ (CHARWD R 0.383331)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (LIG O 55 O 173)
+ )
+ )
+(CHARACTER O 56
+ (CHARWD R 0.319443)
+ (CHARHT R 0.155556)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.574997)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER C 0
+ (CHARWD R 0.574997)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 1
+ (CHARWD R 0.574997)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 2
+ (CHARWD R 0.574997)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 3
+ (CHARWD R 0.574997)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 4
+ (CHARWD R 0.574997)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 5
+ (CHARWD R 0.574997)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 6
+ (CHARWD R 0.574997)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 7
+ (CHARWD R 0.574997)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 8
+ (CHARWD R 0.574997)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 9
+ (CHARWD R 0.574997)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.319443)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.319443)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.349998)
+ (CHARHT R 0.5)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 75
+ (CHARWD R 0.89444)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 76
+ (CHARWD R 0.543053)
+ (CHARHT R 0.5)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 77
+ (CHARWD R 0.543053)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 76)
+ )
+ )
+(CHARACTER O 100
+ (CHARWD R 0.89444)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C A
+ (CHARWD R 0.86944)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN C t R -0.031944)
+ (KRN C C R -0.031944)
+ (KRN C O R -0.031944)
+ (KRN C G R -0.031944)
+ (KRN C U R -0.031944)
+ (KRN C Q R -0.031944)
+ (KRN C T R -0.095833)
+ (KRN C Y R -0.095833)
+ (KRN C V R -0.127777)
+ (KRN C W R -0.127777)
+ )
+ )
+(CHARACTER C B
+ (CHARWD R 0.818051)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER C C
+ (CHARWD R 0.830551)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER C D
+ (CHARWD R 0.88194)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN C X R -0.031944)
+ (KRN C W R -0.031944)
+ (KRN C A R -0.031944)
+ (KRN C V R -0.031944)
+ (KRN C Y R -0.031944)
+ )
+ )
+(CHARACTER C E
+ (CHARWD R 0.755551)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER C F
+ (CHARWD R 0.723607)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN C o R -0.095833)
+ (KRN C e R -0.095833)
+ (KRN C u R -0.095833)
+ (KRN C r R -0.095833)
+ (KRN C a R -0.095833)
+ (KRN C A R -0.127777)
+ (KRN C O R -0.031944)
+ (KRN C C R -0.031944)
+ (KRN C G R -0.031944)
+ (KRN C Q R -0.031944)
+ )
+ )
+(CHARACTER C G
+ (CHARWD R 0.904162)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER C H
+ (CHARWD R 0.899996)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER C I
+ (CHARWD R 0.43611)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN C I R 0.031944)
+ )
+ )
+(CHARACTER C J
+ (CHARWD R 0.594441)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER C K
+ (CHARWD R 0.901384)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN C O R -0.031944)
+ (KRN C C R -0.031944)
+ (KRN C G R -0.031944)
+ (KRN C Q R -0.031944)
+ )
+ )
+(CHARACTER C L
+ (CHARWD R 0.691663)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN C T R -0.095833)
+ (KRN C Y R -0.095833)
+ (KRN C V R -0.127777)
+ (KRN C W R -0.127777)
+ )
+ )
+(CHARACTER C M
+ (CHARWD R 1.091661)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER C N
+ (CHARWD R 0.899996)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER C O
+ (CHARWD R 0.863884)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN C X R -0.031944)
+ (KRN C W R -0.031944)
+ (KRN C A R -0.031944)
+ (KRN C V R -0.031944)
+ (KRN C Y R -0.031944)
+ )
+ )
+(CHARACTER C P
+ (CHARWD R 0.786107)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN C A R -0.095833)
+ (KRN C o R -0.031944)
+ (KRN C e R -0.031944)
+ (KRN C a R -0.031944)
+ (KRN O 56 R -0.095833)
+ (KRN O 54 R -0.095833)
+ )
+ )
+(CHARACTER C Q
+ (CHARWD R 0.863884)
+ (CHARHT R 0.686111)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C R
+ (CHARWD R 0.862495)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN C t R -0.031944)
+ (KRN C C R -0.031944)
+ (KRN C O R -0.031944)
+ (KRN C G R -0.031944)
+ (KRN C U R -0.031944)
+ (KRN C Q R -0.031944)
+ (KRN C T R -0.095833)
+ (KRN C Y R -0.095833)
+ (KRN C V R -0.127777)
+ (KRN C W R -0.127777)
+ )
+ )
+(CHARACTER C S
+ (CHARWD R 0.6388855)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER C T
+ (CHARWD R 0.799995)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN C y R -0.031944)
+ (KRN C e R -0.095833)
+ (KRN C o R -0.095833)
+ (KRN C r R -0.095833)
+ (KRN C a R -0.095833)
+ (KRN C A R -0.095833)
+ (KRN C u R -0.095833)
+ )
+ )
+(CHARACTER C U
+ (CHARWD R 0.884718)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER C V
+ (CHARWD R 0.86944)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.015973)
+ (COMMENT
+ (KRN C o R -0.095833)
+ (KRN C e R -0.095833)
+ (KRN C u R -0.095833)
+ (KRN C r R -0.095833)
+ (KRN C a R -0.095833)
+ (KRN C A R -0.127777)
+ (KRN C O R -0.031944)
+ (KRN C C R -0.031944)
+ (KRN C G R -0.031944)
+ (KRN C Q R -0.031944)
+ )
+ )
+(CHARACTER C W
+ (CHARWD R 1.188883)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.015973)
+ (COMMENT
+ (KRN C o R -0.095833)
+ (KRN C e R -0.095833)
+ (KRN C u R -0.095833)
+ (KRN C r R -0.095833)
+ (KRN C a R -0.095833)
+ (KRN C A R -0.127777)
+ (KRN C O R -0.031944)
+ (KRN C C R -0.031944)
+ (KRN C G R -0.031944)
+ (KRN C Q R -0.031944)
+ )
+ )
+(CHARACTER C X
+ (CHARWD R 0.86944)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN C O R -0.031944)
+ (KRN C C R -0.031944)
+ (KRN C G R -0.031944)
+ (KRN C Q R -0.031944)
+ )
+ )
+(CHARACTER C Y
+ (CHARWD R 0.86944)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.028749)
+ (COMMENT
+ (KRN C e R -0.095833)
+ (KRN C o R -0.095833)
+ (KRN C r R -0.095833)
+ (KRN C a R -0.095833)
+ (KRN C A R -0.095833)
+ (KRN C u R -0.095833)
+ )
+ )
+(CHARACTER C Z
+ (CHARWD R 0.702774)
+ (CHARHT R 0.686111)
+ )
+(CHARACTER O 133
+ (CHARWD R 0.319443)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.602776)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.319443)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 136
+ (CHARWD R 0.574997)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 137
+ (CHARWD R 0.319443)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.319443)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 134)
+ )
+ )
+(CHARACTER C a
+ (CHARWD R 0.559024)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN C v R -0.031944)
+ (KRN C j R 0.063889)
+ (KRN C y R -0.031944)
+ (KRN C w R -0.031944)
+ )
+ )
+(CHARACTER C b
+ (CHARWD R 0.6388855)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN C e R 0.031944)
+ (KRN C o R 0.031944)
+ (KRN C x R -0.031944)
+ (KRN C d R 0.031944)
+ (KRN C c R 0.031944)
+ (KRN C q R 0.031944)
+ (KRN C v R -0.031944)
+ (KRN C j R 0.063889)
+ (KRN C y R -0.031944)
+ (KRN C w R -0.031944)
+ )
+ )
+(CHARACTER C c
+ (CHARWD R 0.511108)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN C h R -0.031944)
+ (KRN C k R -0.031944)
+ )
+ )
+(CHARACTER C d
+ (CHARWD R 0.6388855)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C e
+ (CHARWD R 0.5270815)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER C f
+ (CHARWD R 0.351387)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.109027)
+ (COMMENT
+ (LIG C i O 14)
+ (LIG C f O 13)
+ (LIG C l O 15)
+ (KRN O 47 R 0.109027)
+ (KRN O 77 R 0.109027)
+ (KRN O 41 R 0.109027)
+ (KRN O 51 R 0.109027)
+ (KRN O 135 R 0.109027)
+ )
+ )
+(CHARACTER C g
+ (CHARWD R 0.574997)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.015973)
+ (COMMENT
+ (KRN C j R 0.031944)
+ )
+ )
+(CHARACTER C h
+ (CHARWD R 0.6388855)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN C t R -0.031944)
+ (KRN C u R -0.031944)
+ (KRN C b R -0.031944)
+ (KRN C y R -0.031944)
+ (KRN C v R -0.031944)
+ (KRN C w R -0.031944)
+ )
+ )
+(CHARACTER C i
+ (CHARWD R 0.319443)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C j
+ (CHARWD R 0.351387)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C k
+ (CHARWD R 0.606941)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN C a R -0.063889)
+ (KRN C e R -0.031944)
+ (KRN C a R -0.031944)
+ (KRN C o R -0.031944)
+ (KRN C c R -0.031944)
+ )
+ )
+(CHARACTER C l
+ (CHARWD R 0.319443)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C m
+ (CHARWD R 0.958328)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN C t R -0.031944)
+ (KRN C u R -0.031944)
+ (KRN C b R -0.031944)
+ (KRN C y R -0.031944)
+ (KRN C v R -0.031944)
+ (KRN C w R -0.031944)
+ )
+ )
+(CHARACTER C n
+ (CHARWD R 0.6388855)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN C t R -0.031944)
+ (KRN C u R -0.031944)
+ (KRN C b R -0.031944)
+ (KRN C y R -0.031944)
+ (KRN C v R -0.031944)
+ (KRN C w R -0.031944)
+ )
+ )
+(CHARACTER C o
+ (CHARWD R 0.574997)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN C e R 0.031944)
+ (KRN C o R 0.031944)
+ (KRN C x R -0.031944)
+ (KRN C d R 0.031944)
+ (KRN C c R 0.031944)
+ (KRN C q R 0.031944)
+ (KRN C v R -0.031944)
+ (KRN C j R 0.063889)
+ (KRN C y R -0.031944)
+ (KRN C w R -0.031944)
+ )
+ )
+(CHARACTER C p
+ (CHARWD R 0.6388855)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN C e R 0.031944)
+ (KRN C o R 0.031944)
+ (KRN C x R -0.031944)
+ (KRN C d R 0.031944)
+ (KRN C c R 0.031944)
+ (KRN C q R 0.031944)
+ (KRN C v R -0.031944)
+ (KRN C j R 0.063889)
+ (KRN C y R -0.031944)
+ (KRN C w R -0.031944)
+ )
+ )
+(CHARACTER C q
+ (CHARWD R 0.606941)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C r
+ (CHARWD R 0.47361)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER C s
+ (CHARWD R 0.4536085)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER C t
+ (CHARWD R 0.44722)
+ (CHARHT R 0.634921)
+ (COMMENT
+ (KRN C y R -0.031944)
+ (KRN C w R -0.031944)
+ )
+ )
+(CHARACTER C u
+ (CHARWD R 0.6388855)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN C w R -0.031944)
+ )
+ )
+(CHARACTER C v
+ (CHARWD R 0.606941)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.015973)
+ (COMMENT
+ (KRN C a R -0.063889)
+ (KRN C e R -0.031944)
+ (KRN C a R -0.031944)
+ (KRN C o R -0.031944)
+ (KRN C c R -0.031944)
+ )
+ )
+(CHARACTER C w
+ (CHARWD R 0.830551)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.015973)
+ (COMMENT
+ (KRN C e R -0.031944)
+ (KRN C a R -0.031944)
+ (KRN C o R -0.031944)
+ (KRN C c R -0.031944)
+ )
+ )
+(CHARACTER C x
+ (CHARWD R 0.606941)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER C y
+ (CHARWD R 0.606941)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.015973)
+ (COMMENT
+ (KRN C o R -0.031944)
+ (KRN C e R -0.031944)
+ (KRN C a R -0.031944)
+ (KRN O 56 R -0.095833)
+ (KRN O 54 R -0.095833)
+ )
+ )
+(CHARACTER C z
+ (CHARWD R 0.511108)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER O 173
+ (CHARWD R 0.574997)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.031944)
+ (COMMENT
+ (LIG O 55 O 174)
+ )
+ )
+(CHARACTER O 174
+ (CHARWD R 1.149994)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.031944)
+ )
+(CHARACTER O 175
+ (CHARWD R 0.574997)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 176
+ (CHARWD R 0.574997)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 177
+ (CHARWD R 0.574997)
+ (CHARHT R 0.694445)
+ )
diff --git a/fonts/gothic/blacklettert1/cmmi10.pl b/fonts/gothic/blacklettert1/cmmi10.pl
new file mode 100644
index 0000000000..19e9e239c5
--- /dev/null
+++ b/fonts/gothic/blacklettert1/cmmi10.pl
@@ -0,0 +1,1133 @@
+(FAMILY CMMI)
+(FACE O 352)
+(CODINGSCHEME TEX MATH ITALIC)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 1350061076)
+(FONTDIMEN
+ (SLANT R 0.25)
+ (SPACE R 0.0)
+ (STRETCH R 0.0)
+ (SHRINK R 0.0)
+ (XHEIGHT R 0.430555)
+ (QUAD R 1.000003)
+ )
+(LIGTABLE
+ (LABEL C h)
+ (KRN O 177 R -0.027779)
+ (STOP)
+ (LABEL O 27)
+ (LABEL O 34)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (LABEL O 13)
+ (LABEL O 26)
+ (LABEL O 35)
+ (LABEL C L)
+ (LABEL C g)
+ (LABEL C u)
+ (LABEL C v)
+ (LABEL C x)
+ (LABEL O 173)
+ (KRN O 177 R 0.027779)
+ (STOP)
+ (LABEL C U)
+ (KRN O 73 R -0.111112)
+ (KRN O 72 R -0.111112)
+ (KRN O 75 R -0.055555)
+ (KRN O 177 R 0.027779)
+ (STOP)
+ (LABEL O 11)
+ (LABEL C K)
+ (KRN O 75 R -0.055555)
+ (LABEL O 16)
+ (LABEL C r)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (LABEL O 17)
+ (LABEL O 21)
+ (LABEL O 23)
+ (LABEL O 37)
+ (LABEL C D)
+ (LABEL C c)
+ (LABEL C e)
+ (LABEL C o)
+ (LABEL C s)
+ (LABEL C y)
+ (LABEL C z)
+ (KRN O 177 R 0.055557)
+ (STOP)
+ (LABEL O 7)
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.111112)
+ (KRN O 72 R -0.111112)
+ (KRN O 177 R 0.055557)
+ (STOP)
+ (LABEL O 5)
+ (LABEL C H)
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.055557)
+ (STOP)
+ (LABEL C N)
+ (LABEL C X)
+ (KRN O 75 R -0.083334)
+ (LABEL C C)
+ (LABEL C T)
+ (KRN O 75 R -0.027779)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (LABEL O 2)
+ (LABEL O 4)
+ (LABEL O 6)
+ (LABEL O 10)
+ (LABEL O 12)
+ (LABEL O 14)
+ (LABEL O 20)
+ (LABEL O 22)
+ (LABEL O 32)
+ (LABEL O 36)
+ (LABEL O 42)
+ (LABEL O 43)
+ (LABEL O 45)
+ (LABEL O 46)
+ (LABEL O 47)
+ (LABEL O 100)
+ (LABEL C B)
+ (LABEL C E)
+ (LABEL C G)
+ (LABEL C O)
+ (LABEL C Q)
+ (LABEL C R)
+ (LABEL C l)
+ (LABEL C p)
+ (LABEL C q)
+ (LABEL C t)
+ (LABEL C w)
+ (LABEL O 174)
+ (KRN O 177 R 0.083336)
+ (STOP)
+ (LABEL C M)
+ (LABEL C S)
+ (LABEL C Z)
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.083336)
+ (STOP)
+ (LABEL O 0)
+ (LABEL C F)
+ (LABEL C P)
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.111112)
+ (KRN O 72 R -0.111112)
+ (KRN O 177 R 0.083336)
+ (STOP)
+ (LABEL O 30)
+ (LABEL O 40)
+ (LABEL C I)
+ (LABEL O 140)
+ (LABEL O 175)
+ (KRN O 177 R 0.1111145)
+ (STOP)
+ (LABEL C A)
+ (KRN O 177 R 0.138893)
+ (STOP)
+ (LABEL C d)
+ (KRN C Y R 0.055555)
+ (KRN C Z R -0.055555)
+ (KRN C j R -0.111112)
+ (KRN C f R -0.166667)
+ (LABEL O 1)
+ (LABEL O 3)
+ (KRN O 177 R 0.166672)
+ (STOP)
+ (LABEL C f)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.166672)
+ (STOP)
+ (LABEL C J)
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.111112)
+ (KRN O 72 R -0.111112)
+ (KRN O 177 R 0.166672)
+ (STOP)
+ (LABEL O 33)
+ (LABEL C j)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (STOP)
+ (LABEL C V)
+ (LABEL C W)
+ (LABEL C Y)
+ (KRN O 73 R -0.166667)
+ (KRN O 72 R -0.166667)
+ (KRN O 75 R -0.111112)
+ (STOP)
+ (LABEL O 75)
+ (KRN O 1 R -0.055555)
+ (KRN C A R -0.055555)
+ (KRN C M R -0.055555)
+ (KRN C N R -0.055555)
+ (KRN C Y R 0.055555)
+ (KRN C Z R -0.055555)
+ (STOP)
+ )
+(CHARACTER O 0
+ (CHARWD R 0.615278)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.13889)
+ (COMMENT
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.111112)
+ (KRN O 72 R -0.111112)
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 1
+ (CHARWD R 0.833336)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN O 177 R 0.166672)
+ )
+ )
+(CHARACTER O 2
+ (CHARWD R 0.762776)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.027779)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 3
+ (CHARWD R 0.694446)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN O 177 R 0.166672)
+ )
+ )
+(CHARACTER O 4
+ (CHARWD R 0.742363)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.075694)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 5
+ (CHARWD R 0.831251)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.081248)
+ (COMMENT
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER O 6
+ (CHARWD R 0.779863)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.057638)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 7
+ (CHARWD R 0.583333)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.13889)
+ (COMMENT
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.111112)
+ (KRN O 72 R -0.111112)
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER O 10
+ (CHARWD R 0.666667)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 11
+ (CHARWD R 0.612223)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.110001)
+ (COMMENT
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER O 12
+ (CHARWD R 0.772398)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.050173)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 13
+ (CHARWD R 0.639702)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.003702)
+ (COMMENT
+ (KRN O 177 R 0.027779)
+ )
+ )
+(CHARACTER O 14
+ (CHARWD R 0.565626)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.052778)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 15
+ (CHARWD R 0.517731)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.055555)
+ )
+(CHARACTER O 16
+ (CHARWD R 0.444445)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.037847)
+ (COMMENT
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER O 17
+ (CHARWD R 0.405904)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER O 20
+ (CHARWD R 0.437502)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.073784)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 21
+ (CHARWD R 0.4965315)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.035879)
+ (COMMENT
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER O 22
+ (CHARWD R 0.469444)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.027779)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 23
+ (CHARWD R 0.353937)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER O 24
+ (CHARWD R 0.5761595)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 25
+ (CHARWD R 0.583336)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 26
+ (CHARWD R 0.60255)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.027779)
+ )
+ )
+(CHARACTER O 27
+ (CHARWD R 0.493983)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.063658)
+ (COMMENT
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.027779)
+ )
+ )
+(CHARACTER O 30
+ (CHARWD R 0.437502)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.046007)
+ (COMMENT
+ (KRN O 177 R 0.1111145)
+ )
+ )
+(CHARACTER O 31
+ (CHARWD R 0.570027)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.035879)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.517015)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 33
+ (CHARWD R 0.571414)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.035879)
+ (COMMENT
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ )
+ )
+(CHARACTER O 34
+ (CHARWD R 0.437155)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.113195)
+ (COMMENT
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.027779)
+ )
+ )
+(CHARACTER O 35
+ (CHARWD R 0.54028)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.035879)
+ (COMMENT
+ (KRN O 177 R 0.027779)
+ )
+ )
+(CHARACTER O 36
+ (CHARWD R 0.595835)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 37
+ (CHARWD R 0.625692)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER O 40
+ (CHARWD R 0.651392)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.035879)
+ (COMMENT
+ (KRN O 177 R 0.1111145)
+ )
+ )
+(CHARACTER O 41
+ (CHARWD R 0.622455)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.035879)
+ )
+(CHARACTER O 42
+ (CHARWD R 0.466318)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 43
+ (CHARWD R 0.59144)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 44
+ (CHARWD R 0.82813)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.027779)
+ )
+(CHARACTER O 45
+ (CHARWD R 0.517015)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 46
+ (CHARWD R 0.362848)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.097223)
+ (CHARIC R 0.07986)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 47
+ (CHARWD R 0.654167)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 50
+ (CHARWD R 1.000003)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 51
+ (CHARWD R 1.000003)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 52
+ (CHARWD R 1.000003)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 53
+ (CHARWD R 1.000003)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 54
+ (CHARWD R 0.277779)
+ (CHARHT R 0.463748)
+ (CHARDP R -0.036252)
+ )
+(CHARACTER O 55
+ (CHARWD R 0.277779)
+ (CHARHT R 0.463748)
+ (CHARDP R -0.036252)
+ )
+(CHARACTER O 56
+ (CHARWD R 0.500002)
+ (CHARHT R 0.465279)
+ (CHARDP R -0.034721)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.500002)
+ (CHARHT R 0.465279)
+ (CHARDP R -0.034721)
+ )
+(CHARACTER C 0
+ (CHARWD R 0.500002)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C 1
+ (CHARWD R 0.500002)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C 2
+ (CHARWD R 0.500002)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C 3
+ (CHARWD R 0.500002)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C 4
+ (CHARWD R 0.500002)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C 5
+ (CHARWD R 0.500002)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C 6
+ (CHARWD R 0.500002)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 7
+ (CHARWD R 0.500002)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C 8
+ (CHARWD R 0.500002)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 9
+ (CHARWD R 0.500002)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.277779)
+ (CHARHT R 0.105556)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.277779)
+ (CHARHT R 0.105556)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.777781)
+ (CHARHT R 0.539098)
+ (CHARDP R 0.039098)
+ )
+(CHARACTER O 75
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ (COMMENT
+ (KRN O 1 R -0.055555)
+ (KRN C A R -0.055555)
+ (KRN C M R -0.055555)
+ (KRN C N R -0.055555)
+ (KRN C Y R 0.055555)
+ (KRN C Z R -0.055555)
+ )
+ )
+(CHARACTER O 76
+ (CHARWD R 0.777781)
+ (CHARHT R 0.539098)
+ (CHARDP R 0.039098)
+ )
+(CHARACTER O 77
+ (CHARWD R 0.500002)
+ (CHARHT R 0.465279)
+ (CHARDP R -0.034721)
+ )
+(CHARACTER O 100
+ (CHARWD R 0.530904)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.055555)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C A
+ (CHARWD R 0.750002)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN O 177 R 0.138893)
+ )
+ )
+(CHARACTER C B
+ (CHARWD R 0.75851)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.050173)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C C
+ (CHARWD R 0.714722)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.0715275)
+ (COMMENT
+ (KRN O 75 R -0.027779)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C D
+ (CHARWD R 0.827917)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.027779)
+ (COMMENT
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER C E
+ (CHARWD R 0.738195)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.057638)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C F
+ (CHARWD R 0.643057)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.13889)
+ (COMMENT
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.111112)
+ (KRN O 72 R -0.111112)
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C G
+ (CHARWD R 0.786249)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C H
+ (CHARWD R 0.831251)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.081248)
+ (COMMENT
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER C I
+ (CHARWD R 0.439585)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.078471)
+ (COMMENT
+ (KRN O 177 R 0.1111145)
+ )
+ )
+(CHARACTER C J
+ (CHARWD R 0.554514)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.096181)
+ (COMMENT
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.111112)
+ (KRN O 72 R -0.111112)
+ (KRN O 177 R 0.166672)
+ )
+ )
+(CHARACTER C K
+ (CHARWD R 0.849307)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.0715275)
+ (COMMENT
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER C L
+ (CHARWD R 0.680557)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN O 177 R 0.027779)
+ )
+ )
+(CHARACTER C M
+ (CHARWD R 0.97014)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.109027)
+ (COMMENT
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C N
+ (CHARWD R 0.8034725)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.109027)
+ (COMMENT
+ (KRN O 75 R -0.083334)
+ (KRN O 75 R -0.027779)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C O
+ (CHARWD R 0.762776)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.027779)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C P
+ (CHARWD R 0.642014)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.13889)
+ (COMMENT
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.111112)
+ (KRN O 72 R -0.111112)
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C Q
+ (CHARWD R 0.790555)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C R
+ (CHARWD R 0.75929)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.007726)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C S
+ (CHARWD R 0.613195)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.057638)
+ (COMMENT
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C T
+ (CHARWD R 0.584376)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.13889)
+ (COMMENT
+ (KRN O 75 R -0.027779)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C U
+ (CHARWD R 0.682777)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.109027)
+ (COMMENT
+ (KRN O 73 R -0.111112)
+ (KRN O 72 R -0.111112)
+ (KRN O 75 R -0.055555)
+ (KRN O 177 R 0.027779)
+ )
+ )
+(CHARACTER C V
+ (CHARWD R 0.583334)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.222223)
+ (COMMENT
+ (KRN O 73 R -0.166667)
+ (KRN O 72 R -0.166667)
+ (KRN O 75 R -0.111112)
+ )
+ )
+(CHARACTER C W
+ (CHARWD R 0.944446)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.13889)
+ (COMMENT
+ (KRN O 73 R -0.166667)
+ (KRN O 72 R -0.166667)
+ (KRN O 75 R -0.111112)
+ )
+ )
+(CHARACTER C X
+ (CHARWD R 0.828474)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.078471)
+ (COMMENT
+ (KRN O 75 R -0.083334)
+ (KRN O 75 R -0.027779)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C Y
+ (CHARWD R 0.580557)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.222223)
+ (COMMENT
+ (KRN O 73 R -0.166667)
+ (KRN O 72 R -0.166667)
+ (KRN O 75 R -0.111112)
+ )
+ )
+(CHARACTER C Z
+ (CHARWD R 0.68264)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.0715275)
+ (COMMENT
+ (KRN O 75 R -0.055555)
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 133
+ (CHARWD R 0.38889)
+ (CHARHT R 0.75)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.38889)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.38889)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 136
+ (CHARWD R 1.000003)
+ (CHARHT R 0.35764)
+ (CHARDP R -0.14236)
+ )
+(CHARACTER O 137
+ (CHARWD R 1.000003)
+ (CHARHT R 0.35764)
+ (CHARDP R -0.14236)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.41667)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN O 177 R 0.1111145)
+ )
+ )
+(CHARACTER C a
+ (CHARWD R 0.52859)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C b
+ (CHARWD R 0.429167)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C c
+ (CHARWD R 0.432756)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER C d
+ (CHARWD R 0.520488)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN C Y R 0.055555)
+ (KRN C Z R -0.055555)
+ (KRN C j R -0.111112)
+ (KRN C f R -0.166667)
+ (KRN O 177 R 0.166672)
+ )
+ )
+(CHARACTER C e
+ (CHARWD R 0.465627)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER C f
+ (CHARWD R 0.489586)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.10764)
+ (COMMENT
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.166672)
+ )
+ )
+(CHARACTER C g
+ (CHARWD R 0.476969)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.035879)
+ (COMMENT
+ (KRN O 177 R 0.027779)
+ )
+ )
+(CHARACTER C h
+ (CHARWD R 0.5761595)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN O 177 R -0.027779)
+ )
+ )
+(CHARACTER C i
+ (CHARWD R 0.344513)
+ (CHARHT R 0.659525)
+ )
+(CHARACTER C j
+ (CHARWD R 0.411807)
+ (CHARHT R 0.659525)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.057243)
+ (COMMENT
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ )
+ )
+(CHARACTER C k
+ (CHARWD R 0.520604)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.031481)
+ )
+(CHARACTER C l
+ (CHARWD R 0.29838)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.019678)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C m
+ (CHARWD R 0.878014)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C n
+ (CHARWD R 0.600235)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C o
+ (CHARWD R 0.484723)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER C p
+ (CHARWD R 0.503126)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C q
+ (CHARWD R 0.446414)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.035879)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C r
+ (CHARWD R 0.4511595)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.027779)
+ (COMMENT
+ (KRN O 73 R -0.055555)
+ (KRN O 72 R -0.055555)
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER C s
+ (CHARWD R 0.46875)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER C t
+ (CHARWD R 0.361113)
+ (CHARHT R 0.61508)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C u
+ (CHARWD R 0.572458)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN O 177 R 0.027779)
+ )
+ )
+(CHARACTER C v
+ (CHARWD R 0.484724)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.035879)
+ (COMMENT
+ (KRN O 177 R 0.027779)
+ )
+ )
+(CHARACTER C w
+ (CHARWD R 0.715918)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.026909)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER C x
+ (CHARWD R 0.571528)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN O 177 R 0.027779)
+ )
+ )
+(CHARACTER C y
+ (CHARWD R 0.490282)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.035879)
+ (COMMENT
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER C z
+ (CHARWD R 0.46505)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.043981)
+ (COMMENT
+ (KRN O 177 R 0.055557)
+ )
+ )
+(CHARACTER O 173
+ (CHARWD R 0.322456)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN O 177 R 0.027779)
+ )
+ )
+(CHARACTER O 174
+ (CHARWD R 0.38403)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.083336)
+ )
+ )
+(CHARACTER O 175
+ (CHARWD R 0.636459)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.1111145)
+ )
+ )
+(CHARACTER O 176
+ (CHARWD R 0.500002)
+ (CHARHT R 0.714444)
+ (CHARIC R 0.153819)
+ )
+(CHARACTER O 177
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.399462)
+ )
diff --git a/fonts/gothic/blacklettert1/cmmib10.pl b/fonts/gothic/blacklettert1/cmmib10.pl
new file mode 100644
index 0000000000..6d72f3b900
--- /dev/null
+++ b/fonts/gothic/blacklettert1/cmmib10.pl
@@ -0,0 +1,1132 @@
+(FAMILY CMMIB)
+(FACE O 352)
+(CODINGSCHEME TEX MATH ITALIC)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 10421504624)
+(FONTDIMEN
+ (SLANT R 0.25)
+ (SPACE R 0.0)
+ (STRETCH R 0.0)
+ (SHRINK R 0.0)
+ (XHEIGHT R 0.444445)
+ (QUAD R 1.149994)
+ )
+(LIGTABLE
+ (LABEL C h)
+ (KRN O 177 R -0.031944)
+ (STOP)
+ (LABEL O 27)
+ (LABEL O 34)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (LABEL O 13)
+ (LABEL O 26)
+ (LABEL O 35)
+ (LABEL C L)
+ (LABEL C g)
+ (LABEL C u)
+ (LABEL C v)
+ (LABEL C x)
+ (LABEL O 173)
+ (KRN O 177 R 0.031944)
+ (STOP)
+ (LABEL C U)
+ (KRN O 73 R -0.127777)
+ (KRN O 72 R -0.127777)
+ (KRN O 75 R -0.063889)
+ (KRN O 177 R 0.031944)
+ (STOP)
+ (LABEL O 11)
+ (LABEL C K)
+ (KRN O 75 R -0.063889)
+ (LABEL O 16)
+ (LABEL C r)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (LABEL O 17)
+ (LABEL O 21)
+ (LABEL O 23)
+ (LABEL O 37)
+ (LABEL C D)
+ (LABEL C c)
+ (LABEL C e)
+ (LABEL C o)
+ (LABEL C s)
+ (LABEL C y)
+ (LABEL C z)
+ (KRN O 177 R 0.063889)
+ (STOP)
+ (LABEL O 7)
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.127777)
+ (KRN O 72 R -0.127777)
+ (KRN O 177 R 0.063889)
+ (STOP)
+ (LABEL O 5)
+ (LABEL C H)
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.063889)
+ (STOP)
+ (LABEL C N)
+ (LABEL C X)
+ (KRN O 75 R -0.095833)
+ (LABEL C C)
+ (LABEL C T)
+ (KRN O 75 R -0.031944)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (LABEL O 2)
+ (LABEL O 4)
+ (LABEL O 6)
+ (LABEL O 10)
+ (LABEL O 12)
+ (LABEL O 14)
+ (LABEL O 20)
+ (LABEL O 22)
+ (LABEL O 32)
+ (LABEL O 36)
+ (LABEL O 42)
+ (LABEL O 43)
+ (LABEL O 45)
+ (LABEL O 46)
+ (LABEL O 47)
+ (LABEL O 100)
+ (LABEL C B)
+ (LABEL C E)
+ (LABEL C G)
+ (LABEL C O)
+ (LABEL C Q)
+ (LABEL C R)
+ (LABEL C l)
+ (LABEL C p)
+ (LABEL C q)
+ (LABEL C t)
+ (LABEL C w)
+ (LABEL O 174)
+ (KRN O 177 R 0.095833)
+ (STOP)
+ (LABEL C M)
+ (LABEL C S)
+ (LABEL C Z)
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.095833)
+ (STOP)
+ (LABEL O 0)
+ (LABEL C F)
+ (LABEL C P)
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.127777)
+ (KRN O 72 R -0.127777)
+ (KRN O 177 R 0.095833)
+ (STOP)
+ (LABEL O 30)
+ (LABEL O 40)
+ (LABEL C I)
+ (LABEL O 140)
+ (LABEL O 175)
+ (KRN O 177 R 0.127777)
+ (STOP)
+ (LABEL C A)
+ (KRN O 177 R 0.159721)
+ (STOP)
+ (LABEL C d)
+ (KRN C Y R 0.063889)
+ (KRN C Z R -0.063889)
+ (KRN C j R -0.127777)
+ (KRN C f R -0.191666)
+ (LABEL O 1)
+ (LABEL O 3)
+ (KRN O 177 R 0.191666)
+ (STOP)
+ (LABEL C f)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.191666)
+ (STOP)
+ (LABEL C J)
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.127777)
+ (KRN O 72 R -0.127777)
+ (KRN O 177 R 0.191666)
+ (STOP)
+ (LABEL O 33)
+ (LABEL C j)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (STOP)
+ (LABEL C V)
+ (LABEL C W)
+ (LABEL C Y)
+ (KRN O 73 R -0.191666)
+ (KRN O 72 R -0.191666)
+ (KRN O 75 R -0.127777)
+ (STOP)
+ (LABEL O 75)
+ (KRN O 1 R -0.063889)
+ (KRN C A R -0.063889)
+ (KRN C M R -0.063889)
+ (KRN C N R -0.063889)
+ (KRN C Y R 0.063889)
+ (KRN C Z R -0.063889)
+ (STOP)
+ )
+(CHARACTER O 0
+ (CHARWD R 0.656941)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.159721)
+ (COMMENT
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.127777)
+ (KRN O 72 R -0.127777)
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 1
+ (CHARWD R 0.958328)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN O 177 R 0.191666)
+ )
+ )
+(CHARACTER O 2
+ (CHARWD R 0.867218)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.031944)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 3
+ (CHARWD R 0.805552)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN O 177 R 0.191666)
+ )
+ )
+(CHARACTER O 4
+ (CHARWD R 0.841246)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.074583)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 5
+ (CHARWD R 0.982287)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.082293)
+ (COMMENT
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER O 6
+ (CHARWD R 0.885066)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.054514)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 7
+ (CHARWD R 0.67083)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.159721)
+ (COMMENT
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.127777)
+ (KRN O 72 R -0.127777)
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER O 10
+ (CHARWD R 0.766663)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 11
+ (CHARWD R 0.714022)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.116529)
+ (COMMENT
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER O 12
+ (CHARWD R 0.878903)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.04835)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 13
+ (CHARWD R 0.760645)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN O 177 R 0.031944)
+ )
+ )
+(CHARACTER O 14
+ (CHARWD R 0.659719)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.034029)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 15
+ (CHARWD R 0.59003)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.063889)
+ )
+(CHARACTER O 16
+ (CHARWD R 0.522219)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.038195)
+ (COMMENT
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER O 17
+ (CHARWD R 0.483332)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER O 20
+ (CHARWD R 0.508331)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.062154)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 21
+ (CHARWD R 0.599998)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.037038)
+ (COMMENT
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER O 22
+ (CHARWD R 0.561803)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.031944)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 23
+ (CHARWD R 0.412036)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER O 24
+ (CHARWD R 0.66759)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER O 25
+ (CHARWD R 0.67083)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 26
+ (CHARWD R 0.707869)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.031944)
+ )
+ )
+(CHARACTER O 27
+ (CHARWD R 0.576849)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.068982)
+ (COMMENT
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.031944)
+ )
+ )
+(CHARACTER O 30
+ (CHARWD R 0.508331)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.03021)
+ (COMMENT
+ (KRN O 177 R 0.127777)
+ )
+ )
+(CHARACTER O 31
+ (CHARWD R 0.682405)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.037038)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.611804)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 33
+ (CHARWD R 0.685877)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.037038)
+ (COMMENT
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ )
+ )
+(CHARACTER O 34
+ (CHARWD R 0.520831)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.134723)
+ (COMMENT
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.031944)
+ )
+ )
+(CHARACTER O 35
+ (CHARWD R 0.630552)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.037038)
+ (COMMENT
+ (KRN O 177 R 0.031944)
+ )
+ )
+(CHARACTER O 36
+ (CHARWD R 0.712496)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 37
+ (CHARWD R 0.718054)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER O 40
+ (CHARWD R 0.758329)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.037038)
+ (COMMENT
+ (KRN O 177 R 0.127777)
+ )
+ )
+(CHARACTER O 41
+ (CHARWD R 0.717819)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.037038)
+ )
+(CHARACTER O 42
+ (CHARWD R 0.528818)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 43
+ (CHARWD R 0.691548)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 44
+ (CHARWD R 0.974997)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.031944)
+ )
+(CHARACTER O 45
+ (CHARWD R 0.611804)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 46
+ (CHARWD R 0.423609)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.097223)
+ (CHARIC R 0.079167)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 47
+ (CHARWD R 0.747217)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 50
+ (CHARWD R 1.149994)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 51
+ (CHARWD R 1.149994)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 52
+ (CHARWD R 1.149994)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 53
+ (CHARWD R 1.149994)
+ (CHARHT R 0.391111)
+ (CHARDP R -0.108889)
+ )
+(CHARACTER O 54
+ (CHARWD R 0.319443)
+ (CHARHT R 0.502223)
+ (CHARDP R 0.002223)
+ )
+(CHARACTER O 55
+ (CHARWD R 0.319443)
+ (CHARHT R 0.502223)
+ (CHARDP R 0.002223)
+ )
+(CHARACTER O 56
+ (CHARWD R 0.574997)
+ (CHARHT R 0.472223)
+ (CHARDP R -0.027777)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.574997)
+ (CHARHT R 0.472223)
+ (CHARDP R -0.027777)
+ )
+(CHARACTER C 0
+ (CHARWD R 0.574997)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER C 1
+ (CHARWD R 0.574997)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER C 2
+ (CHARWD R 0.574997)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER C 3
+ (CHARWD R 0.574997)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C 4
+ (CHARWD R 0.574997)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C 5
+ (CHARWD R 0.574997)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C 6
+ (CHARWD R 0.574997)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 7
+ (CHARWD R 0.574997)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C 8
+ (CHARWD R 0.574997)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 9
+ (CHARWD R 0.574997)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.319443)
+ (CHARHT R 0.155556)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.319443)
+ (CHARHT R 0.155556)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.89444)
+ (CHARHT R 0.585556)
+ (CHARDP R 0.085556)
+ )
+(CHARACTER O 75
+ (CHARWD R 0.574997)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ (COMMENT
+ (KRN O 1 R -0.063889)
+ (KRN C A R -0.063889)
+ (KRN C M R -0.063889)
+ (KRN C N R -0.063889)
+ (KRN C Y R 0.063889)
+ (KRN C Z R -0.063889)
+ )
+ )
+(CHARACTER O 76
+ (CHARWD R 0.89444)
+ (CHARHT R 0.585556)
+ (CHARDP R 0.085556)
+ )
+(CHARACTER O 77
+ (CHARWD R 0.574997)
+ (CHARHT R 0.472223)
+ (CHARDP R -0.027777)
+ )
+(CHARACTER O 100
+ (CHARWD R 0.6284685)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.063889)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C A
+ (CHARWD R 0.86944)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN O 177 R 0.159721)
+ )
+ )
+(CHARACTER C B
+ (CHARWD R 0.866404)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.04835)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C C
+ (CHARWD R 0.81694)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.069792)
+ (COMMENT
+ (KRN O 75 R -0.031944)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C D
+ (CHARWD R 0.938121)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.031944)
+ (COMMENT
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER C E
+ (CHARWD R 0.810066)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.054514)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C F
+ (CHARWD R 0.688886)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.159721)
+ (COMMENT
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.127777)
+ (KRN O 72 R -0.127777)
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C G
+ (CHARWD R 0.886732)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C H
+ (CHARWD R 0.982287)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.082293)
+ (COMMENT
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER C I
+ (CHARWD R 0.51111)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.077777)
+ (COMMENT
+ (KRN O 177 R 0.127777)
+ )
+ )
+(CHARACTER C J
+ (CHARWD R 0.631248)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.100695)
+ (COMMENT
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.127777)
+ (KRN O 72 R -0.127777)
+ (KRN O 177 R 0.191666)
+ )
+ )
+(CHARACTER C K
+ (CHARWD R 0.971176)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.069792)
+ (COMMENT
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER C L
+ (CHARWD R 0.755551)
+ (CHARHT R 0.686111)
+ (COMMENT
+ (KRN O 177 R 0.031944)
+ )
+ )
+(CHARACTER C M
+ (CHARWD R 1.142009)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.114237)
+ (COMMENT
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C N
+ (CHARWD R 0.950343)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.114237)
+ (COMMENT
+ (KRN O 75 R -0.095833)
+ (KRN O 75 R -0.031944)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C O
+ (CHARWD R 0.836662)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.031944)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C P
+ (CHARWD R 0.723088)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.159721)
+ (COMMENT
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.127777)
+ (KRN O 72 R -0.127777)
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C Q
+ (CHARWD R 0.868607)
+ (CHARHT R 0.686111)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C R
+ (CHARWD R 0.87235)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.0042095)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C S
+ (CHARWD R 0.692706)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.05382)
+ (COMMENT
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C T
+ (CHARWD R 0.636627)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.159721)
+ (COMMENT
+ (KRN O 75 R -0.031944)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C U
+ (CHARWD R 0.800275)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.114237)
+ (COMMENT
+ (KRN O 73 R -0.127777)
+ (KRN O 72 R -0.127777)
+ (KRN O 75 R -0.063889)
+ (KRN O 177 R 0.031944)
+ )
+ )
+(CHARACTER C V
+ (CHARWD R 0.677775)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.255554)
+ (COMMENT
+ (KRN O 73 R -0.191666)
+ (KRN O 72 R -0.191666)
+ (KRN O 75 R -0.127777)
+ )
+ )
+(CHARACTER C W
+ (CHARWD R 1.093051)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.159721)
+ (COMMENT
+ (KRN O 73 R -0.191666)
+ (KRN O 72 R -0.191666)
+ (KRN O 75 R -0.127777)
+ )
+ )
+(CHARACTER C X
+ (CHARWD R 0.947218)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.077777)
+ (COMMENT
+ (KRN O 75 R -0.095833)
+ (KRN O 75 R -0.031944)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C Y
+ (CHARWD R 0.674579)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.255554)
+ (COMMENT
+ (KRN O 73 R -0.191666)
+ (KRN O 72 R -0.191666)
+ (KRN O 75 R -0.127777)
+ )
+ )
+(CHARACTER C Z
+ (CHARWD R 0.772566)
+ (CHARHT R 0.686111)
+ (CHARIC R 0.069792)
+ (COMMENT
+ (KRN O 75 R -0.063889)
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 133
+ (CHARWD R 0.44722)
+ (CHARHT R 0.75)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.44722)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.44722)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 136
+ (CHARWD R 1.149994)
+ (CHARHT R 0.361112)
+ (CHARDP R -0.138888)
+ )
+(CHARACTER O 137
+ (CHARWD R 1.149994)
+ (CHARHT R 0.361112)
+ (CHARDP R -0.138888)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.473612)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN O 177 R 0.127777)
+ )
+ )
+(CHARACTER C a
+ (CHARWD R 0.632868)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER C b
+ (CHARWD R 0.52083)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C c
+ (CHARWD R 0.513423)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER C d
+ (CHARWD R 0.60972)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN C Y R 0.063889)
+ (KRN C Z R -0.063889)
+ (KRN C j R -0.127777)
+ (KRN C f R -0.191666)
+ (KRN O 177 R 0.191666)
+ )
+ )
+(CHARACTER C e
+ (CHARWD R 0.553609)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER C f
+ (CHARWD R 0.568057)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.110417)
+ (COMMENT
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.191666)
+ )
+ )
+(CHARACTER C g
+ (CHARWD R 0.544904)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.037038)
+ (COMMENT
+ (KRN O 177 R 0.031944)
+ )
+ )
+(CHARACTER C h
+ (CHARWD R 0.66759)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN O 177 R -0.031944)
+ )
+ )
+(CHARACTER C i
+ (CHARWD R 0.404796)
+ (CHARHT R 0.693255)
+ )
+(CHARACTER C j
+ (CHARWD R 0.470833)
+ (CHARHT R 0.693255)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.062202)
+ (COMMENT
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ )
+ )
+(CHARACTER C k
+ (CHARWD R 0.603702)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.018518)
+ )
+(CHARACTER C l
+ (CHARWD R 0.348147)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.008797)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C m
+ (CHARWD R 1.032404)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER C n
+ (CHARWD R 0.712961)
+ (CHARHT R 0.444445)
+ )
+(CHARACTER C o
+ (CHARWD R 0.584719)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER C p
+ (CHARWD R 0.600924)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C q
+ (CHARWD R 0.542127)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.037038)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C r
+ (CHARWD R 0.528704)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.031944)
+ (COMMENT
+ (KRN O 73 R -0.063889)
+ (KRN O 72 R -0.063889)
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER C s
+ (CHARWD R 0.53125)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER C t
+ (CHARWD R 0.415276)
+ (CHARHT R 0.634921)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C u
+ (CHARWD R 0.681017)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN O 177 R 0.031944)
+ )
+ )
+(CHARACTER C v
+ (CHARWD R 0.566664)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.037038)
+ (COMMENT
+ (KRN O 177 R 0.031944)
+ )
+ )
+(CHARACTER C w
+ (CHARWD R 0.831479)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.027777)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER C x
+ (CHARWD R 0.659027)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN O 177 R 0.031944)
+ )
+ )
+(CHARACTER C y
+ (CHARWD R 0.590276)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.037038)
+ (COMMENT
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER C z
+ (CHARWD R 0.555092)
+ (CHARHT R 0.444445)
+ (CHARIC R 0.0421295)
+ (COMMENT
+ (KRN O 177 R 0.063889)
+ )
+ )
+(CHARACTER O 173
+ (CHARWD R 0.393518)
+ (CHARHT R 0.444445)
+ (COMMENT
+ (KRN O 177 R 0.031944)
+ )
+ )
+(CHARACTER O 174
+ (CHARWD R 0.438889)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.095833)
+ )
+ )
+(CHARACTER O 175
+ (CHARWD R 0.740274)
+ (CHARHT R 0.444445)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN O 177 R 0.127777)
+ )
+ )
+(CHARACTER O 176
+ (CHARWD R 0.574997)
+ (CHARHT R 0.724444)
+ (CHARIC R 0.154861)
+ )
+(CHARACTER O 177
+ (CHARWD R 0.319443)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.449999)
+ )
diff --git a/fonts/gothic/blacklettert1/cmr10.pl b/fonts/gothic/blacklettert1/cmr10.pl
new file mode 100644
index 0000000000..29882e5292
--- /dev/null
+++ b/fonts/gothic/blacklettert1/cmr10.pl
@@ -0,0 +1,980 @@
+(FAMILY CMR)
+(FACE O 352)
+(CODINGSCHEME TEX TEXT)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 11374260171)
+(FONTDIMEN
+ (SLANT R 0.0)
+ (SPACE R 0.333334)
+ (STRETCH R 0.166667)
+ (SHRINK R 0.111112)
+ (XHEIGHT R 0.430555)
+ (QUAD R 1.000003)
+ (EXTRASPACE R 0.111112)
+ )
+(LIGTABLE
+ (LABEL O 40)
+ (KRN C l R -0.277779)
+ (KRN C L R -0.319446)
+ (STOP)
+ (LABEL C f)
+ (LIG C i O 14)
+ (LIG C f O 13)
+ (LIG C l O 15)
+ (KRN O 47 R 0.077779)
+ (KRN O 77 R 0.077779)
+ (KRN O 41 R 0.077779)
+ (KRN O 51 R 0.077779)
+ (KRN O 135 R 0.077779)
+ (STOP)
+ (LABEL O 13)
+ (LIG C i O 16)
+ (LIG C l O 17)
+ (KRN O 47 R 0.077779)
+ (KRN O 77 R 0.077779)
+ (KRN O 41 R 0.077779)
+ (KRN O 51 R 0.077779)
+ (KRN O 135 R 0.077779)
+ (STOP)
+ (LABEL O 140)
+ (LIG O 140 O 134)
+ (STOP)
+ (LABEL O 47)
+ (LIG O 47 O 42)
+ (KRN O 77 R 0.111112)
+ (KRN O 41 R 0.111112)
+ (STOP)
+ (LABEL O 55)
+ (LIG O 55 O 173)
+ (STOP)
+ (LABEL O 173)
+ (LIG O 55 O 174)
+ (STOP)
+ (LABEL O 41)
+ (LIG O 140 O 74)
+ (STOP)
+ (LABEL O 77)
+ (LIG O 140 O 76)
+ (STOP)
+ (LABEL C k)
+ (LABEL C v)
+ (KRN C a R -0.055555)
+ (LABEL C w)
+ (KRN C e R -0.027779)
+ (KRN C a R -0.027779)
+ (KRN C o R -0.027779)
+ (KRN C c R -0.027779)
+ (STOP)
+ (LABEL C P)
+ (KRN C A R -0.083334)
+ (LABEL C y)
+ (KRN C o R -0.027779)
+ (KRN C e R -0.027779)
+ (KRN C a R -0.027779)
+ (KRN O 56 R -0.083334)
+ (KRN O 54 R -0.083334)
+ (STOP)
+ (LABEL C F)
+ (LABEL C V)
+ (LABEL C W)
+ (KRN C o R -0.083334)
+ (KRN C e R -0.083334)
+ (KRN C u R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C A R -0.111112)
+ (LABEL C K)
+ (LABEL C X)
+ (KRN C O R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C Q R -0.027779)
+ (STOP)
+ (LABEL C T)
+ (KRN C y R -0.027779)
+ (LABEL C Y)
+ (KRN C e R -0.083334)
+ (KRN C o R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C A R -0.083334)
+ (KRN C u R -0.083334)
+ (STOP)
+ (LABEL C D)
+ (LABEL C O)
+ (KRN C X R -0.027779)
+ (KRN C W R -0.027779)
+ (KRN C A R -0.027779)
+ (KRN C V R -0.027779)
+ (KRN C Y R -0.027779)
+ (STOP)
+ (LABEL C h)
+ (LABEL C m)
+ (LABEL C n)
+ (KRN C t R -0.027779)
+ (KRN C u R -0.027779)
+ (KRN C b R -0.027779)
+ (KRN C y R -0.027779)
+ (KRN C v R -0.027779)
+ (KRN C w R -0.027779)
+ (STOP)
+ (LABEL C c)
+ (KRN C h R -0.027779)
+ (KRN C k R -0.027779)
+ (STOP)
+ (LABEL C b)
+ (LABEL C o)
+ (LABEL C p)
+ (KRN C e R 0.027779)
+ (KRN C o R 0.027779)
+ (KRN C x R -0.027779)
+ (KRN C d R 0.027779)
+ (KRN C c R 0.027779)
+ (KRN C q R 0.027779)
+ (LABEL C a)
+ (KRN C v R -0.027779)
+ (KRN C j R 0.055555)
+ (LABEL C t)
+ (KRN C y R -0.027779)
+ (LABEL C u)
+ (KRN C w R -0.027779)
+ (STOP)
+ (LABEL C A)
+ (LABEL C R)
+ (KRN C t R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C O R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C U R -0.027779)
+ (KRN C Q R -0.027779)
+ (LABEL C L)
+ (KRN C T R -0.083334)
+ (KRN C Y R -0.083334)
+ (KRN C V R -0.111112)
+ (KRN C W R -0.111112)
+ (STOP)
+ (LABEL C g)
+ (KRN C j R 0.027779)
+ (STOP)
+ (LABEL C I)
+ (KRN C I R 0.027779)
+ (STOP)
+ )
+(CHARACTER O 0
+ (CHARWD R 0.625002)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 1
+ (CHARWD R 0.833336)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 2
+ (CHARWD R 0.777781)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 3
+ (CHARWD R 0.694446)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 4
+ (CHARWD R 0.666669)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 5
+ (CHARWD R 0.750002)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 6
+ (CHARWD R 0.722224)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 7
+ (CHARWD R 0.777781)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 10
+ (CHARWD R 0.722224)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 11
+ (CHARWD R 0.777781)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 12
+ (CHARWD R 0.722224)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 13
+ (CHARWD R 0.583336)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.077779)
+ (COMMENT
+ (LIG C i O 16)
+ (LIG C l O 17)
+ (KRN O 47 R 0.077779)
+ (KRN O 77 R 0.077779)
+ (KRN O 41 R 0.077779)
+ (KRN O 51 R 0.077779)
+ (KRN O 135 R 0.077779)
+ )
+ )
+(CHARACTER O 14
+ (CHARWD R 0.555557)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 15
+ (CHARWD R 0.555557)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 16
+ (CHARWD R 0.833336)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 17
+ (CHARWD R 0.833336)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 20
+ (CHARWD R 0.277779)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 21
+ (CHARWD R 0.305557)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 22
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 23
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 24
+ (CHARWD R 0.500002)
+ (CHARHT R 0.628473)
+ )
+(CHARACTER O 25
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 26
+ (CHARWD R 0.500002)
+ (CHARHT R 0.567777)
+ )
+(CHARACTER O 27
+ (CHARWD R 0.750002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 30
+ (CHARWD R 0.444446)
+ (CHARDP R 0.170138)
+ )
+(CHARACTER O 31
+ (CHARWD R 0.500003)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.722224)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 33
+ (CHARWD R 0.777781)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 34
+ (CHARWD R 0.500002)
+ (CHARHT R 0.527779)
+ (CHARDP R 0.097223)
+ )
+(CHARACTER O 35
+ (CHARWD R 0.902781)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 36
+ (CHARWD R 1.013891)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 37
+ (CHARWD R 0.777781)
+ (CHARHT R 0.731944)
+ (CHARDP R 0.048612)
+ )
+(CHARACTER O 40
+ (CHARWD R 0.277779)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C l R -0.277779)
+ (KRN C L R -0.319446)
+ )
+ )
+(CHARACTER O 41
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 74)
+ )
+ )
+(CHARACTER O 42
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 43
+ (CHARWD R 0.833336)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 44
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (CHARDP R 0.055555)
+ )
+(CHARACTER O 45
+ (CHARWD R 0.833336)
+ (CHARHT R 0.75)
+ (CHARDP R 0.055555)
+ )
+(CHARACTER O 46
+ (CHARWD R 0.777781)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 47
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 47 O 42)
+ (KRN O 77 R 0.111112)
+ (KRN O 41 R 0.111112)
+ )
+ )
+(CHARACTER O 50
+ (CHARWD R 0.38889)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 51
+ (CHARWD R 0.38889)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 52
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ )
+(CHARACTER O 53
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 54
+ (CHARWD R 0.277779)
+ (CHARHT R 0.105556)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 55
+ (CHARWD R 0.333334)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (LIG O 55 O 173)
+ )
+ )
+(CHARACTER O 56
+ (CHARWD R 0.277779)
+ (CHARHT R 0.105556)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER C 0
+ (CHARWD R 0.500002)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 1
+ (CHARWD R 0.500002)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 2
+ (CHARWD R 0.500002)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 3
+ (CHARWD R 0.500002)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 4
+ (CHARWD R 0.500002)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 5
+ (CHARWD R 0.500002)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 6
+ (CHARWD R 0.500002)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 7
+ (CHARWD R 0.500002)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 8
+ (CHARWD R 0.500002)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 9
+ (CHARWD R 0.500002)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.277779)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.277779)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.277779)
+ (CHARHT R 0.5)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 75
+ (CHARWD R 0.777781)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 76
+ (CHARWD R 0.472224)
+ (CHARHT R 0.5)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 77
+ (CHARWD R 0.472224)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 76)
+ )
+ )
+(CHARACTER O 100
+ (CHARWD R 0.777781)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C A
+ (CHARWD R 0.750002)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C t R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C O R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C U R -0.027779)
+ (KRN C Q R -0.027779)
+ (KRN C T R -0.083334)
+ (KRN C Y R -0.083334)
+ (KRN C V R -0.111112)
+ (KRN C W R -0.111112)
+ )
+ )
+(CHARACTER C B
+ (CHARWD R 0.708336)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C C
+ (CHARWD R 0.722224)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C D
+ (CHARWD R 0.763891)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C X R -0.027779)
+ (KRN C W R -0.027779)
+ (KRN C A R -0.027779)
+ (KRN C V R -0.027779)
+ (KRN C Y R -0.027779)
+ )
+ )
+(CHARACTER C E
+ (CHARWD R 0.680557)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C F
+ (CHARWD R 0.652781)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C o R -0.083334)
+ (KRN C e R -0.083334)
+ (KRN C u R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C A R -0.111112)
+ (KRN C O R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C Q R -0.027779)
+ )
+ )
+(CHARACTER C G
+ (CHARWD R 0.784724)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C H
+ (CHARWD R 0.750002)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C I
+ (CHARWD R 0.361112)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C I R 0.027779)
+ )
+ )
+(CHARACTER C J
+ (CHARWD R 0.51389)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C K
+ (CHARWD R 0.777781)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C O R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C Q R -0.027779)
+ )
+ )
+(CHARACTER C L
+ (CHARWD R 0.625002)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C T R -0.083334)
+ (KRN C Y R -0.083334)
+ (KRN C V R -0.111112)
+ (KRN C W R -0.111112)
+ )
+ )
+(CHARACTER C M
+ (CHARWD R 0.916669)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C N
+ (CHARWD R 0.750002)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C O
+ (CHARWD R 0.777781)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C X R -0.027779)
+ (KRN C W R -0.027779)
+ (KRN C A R -0.027779)
+ (KRN C V R -0.027779)
+ (KRN C Y R -0.027779)
+ )
+ )
+(CHARACTER C P
+ (CHARWD R 0.680557)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C A R -0.083334)
+ (KRN C o R -0.027779)
+ (KRN C e R -0.027779)
+ (KRN C a R -0.027779)
+ (KRN O 56 R -0.083334)
+ (KRN O 54 R -0.083334)
+ )
+ )
+(CHARACTER C Q
+ (CHARWD R 0.777781)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C R
+ (CHARWD R 0.736113)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C t R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C O R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C U R -0.027779)
+ (KRN C Q R -0.027779)
+ (KRN C T R -0.083334)
+ (KRN C Y R -0.083334)
+ (KRN C V R -0.111112)
+ (KRN C W R -0.111112)
+ )
+ )
+(CHARACTER C S
+ (CHARWD R 0.555557)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C T
+ (CHARWD R 0.722224)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C y R -0.027779)
+ (KRN C e R -0.083334)
+ (KRN C o R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C A R -0.083334)
+ (KRN C u R -0.083334)
+ )
+ )
+(CHARACTER C U
+ (CHARWD R 0.750002)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C V
+ (CHARWD R 0.750002)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.013888)
+ (COMMENT
+ (KRN C o R -0.083334)
+ (KRN C e R -0.083334)
+ (KRN C u R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C A R -0.111112)
+ (KRN C O R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C Q R -0.027779)
+ )
+ )
+(CHARACTER C W
+ (CHARWD R 1.027781)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.013888)
+ (COMMENT
+ (KRN C o R -0.083334)
+ (KRN C e R -0.083334)
+ (KRN C u R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C A R -0.111112)
+ (KRN C O R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C Q R -0.027779)
+ )
+ )
+(CHARACTER C X
+ (CHARWD R 0.750002)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C O R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C Q R -0.027779)
+ )
+ )
+(CHARACTER C Y
+ (CHARWD R 0.750002)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.025)
+ (COMMENT
+ (KRN C e R -0.083334)
+ (KRN C o R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C A R -0.083334)
+ (KRN C u R -0.083334)
+ )
+ )
+(CHARACTER C Z
+ (CHARWD R 0.611113)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 133
+ (CHARWD R 0.277779)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.277779)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 136
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 137
+ (CHARWD R 0.277779)
+ (CHARHT R 0.667859)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 134)
+ )
+ )
+(CHARACTER C a
+ (CHARWD R 0.500002)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C v R -0.027779)
+ (KRN C j R 0.055555)
+ (KRN C y R -0.027779)
+ (KRN C w R -0.027779)
+ )
+ )
+(CHARACTER C b
+ (CHARWD R 0.555557)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN C e R 0.027779)
+ (KRN C o R 0.027779)
+ (KRN C x R -0.027779)
+ (KRN C d R 0.027779)
+ (KRN C c R 0.027779)
+ (KRN C q R 0.027779)
+ (KRN C v R -0.027779)
+ (KRN C j R 0.055555)
+ (KRN C y R -0.027779)
+ (KRN C w R -0.027779)
+ )
+ )
+(CHARACTER C c
+ (CHARWD R 0.444446)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C h R -0.027779)
+ (KRN C k R -0.027779)
+ )
+ )
+(CHARACTER C d
+ (CHARWD R 0.555557)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C e
+ (CHARWD R 0.444446)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C f
+ (CHARWD R 0.305557)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.077779)
+ (COMMENT
+ (LIG C i O 14)
+ (LIG C f O 13)
+ (LIG C l O 15)
+ (KRN O 47 R 0.077779)
+ (KRN O 77 R 0.077779)
+ (KRN O 41 R 0.077779)
+ (KRN O 51 R 0.077779)
+ (KRN O 135 R 0.077779)
+ )
+ )
+(CHARACTER C g
+ (CHARWD R 0.500002)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.013888)
+ (COMMENT
+ (KRN C j R 0.027779)
+ )
+ )
+(CHARACTER C h
+ (CHARWD R 0.555557)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN C t R -0.027779)
+ (KRN C u R -0.027779)
+ (KRN C b R -0.027779)
+ (KRN C y R -0.027779)
+ (KRN C v R -0.027779)
+ (KRN C w R -0.027779)
+ )
+ )
+(CHARACTER C i
+ (CHARWD R 0.277779)
+ (CHARHT R 0.667859)
+ )
+(CHARACTER C j
+ (CHARWD R 0.305557)
+ (CHARHT R 0.667859)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C k
+ (CHARWD R 0.527781)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN C a R -0.055555)
+ (KRN C e R -0.027779)
+ (KRN C a R -0.027779)
+ (KRN C o R -0.027779)
+ (KRN C c R -0.027779)
+ )
+ )
+(CHARACTER C l
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C m
+ (CHARWD R 0.833336)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C t R -0.027779)
+ (KRN C u R -0.027779)
+ (KRN C b R -0.027779)
+ (KRN C y R -0.027779)
+ (KRN C v R -0.027779)
+ (KRN C w R -0.027779)
+ )
+ )
+(CHARACTER C n
+ (CHARWD R 0.555557)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C t R -0.027779)
+ (KRN C u R -0.027779)
+ (KRN C b R -0.027779)
+ (KRN C y R -0.027779)
+ (KRN C v R -0.027779)
+ (KRN C w R -0.027779)
+ )
+ )
+(CHARACTER C o
+ (CHARWD R 0.500002)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C e R 0.027779)
+ (KRN C o R 0.027779)
+ (KRN C x R -0.027779)
+ (KRN C d R 0.027779)
+ (KRN C c R 0.027779)
+ (KRN C q R 0.027779)
+ (KRN C v R -0.027779)
+ (KRN C j R 0.055555)
+ (KRN C y R -0.027779)
+ (KRN C w R -0.027779)
+ )
+ )
+(CHARACTER C p
+ (CHARWD R 0.555557)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN C e R 0.027779)
+ (KRN C o R 0.027779)
+ (KRN C x R -0.027779)
+ (KRN C d R 0.027779)
+ (KRN C c R 0.027779)
+ (KRN C q R 0.027779)
+ (KRN C v R -0.027779)
+ (KRN C j R 0.055555)
+ (KRN C y R -0.027779)
+ (KRN C w R -0.027779)
+ )
+ )
+(CHARACTER C q
+ (CHARWD R 0.527779)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C r
+ (CHARWD R 0.391668)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C s
+ (CHARWD R 0.394445)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C t
+ (CHARWD R 0.38889)
+ (CHARHT R 0.61508)
+ (COMMENT
+ (KRN C y R -0.027779)
+ (KRN C w R -0.027779)
+ )
+ )
+(CHARACTER C u
+ (CHARWD R 0.555557)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C w R -0.027779)
+ )
+ )
+(CHARACTER C v
+ (CHARWD R 0.527781)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.013888)
+ (COMMENT
+ (KRN C a R -0.055555)
+ (KRN C e R -0.027779)
+ (KRN C a R -0.027779)
+ (KRN C o R -0.027779)
+ (KRN C c R -0.027779)
+ )
+ )
+(CHARACTER C w
+ (CHARWD R 0.722224)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.013888)
+ (COMMENT
+ (KRN C e R -0.027779)
+ (KRN C a R -0.027779)
+ (KRN C o R -0.027779)
+ (KRN C c R -0.027779)
+ )
+ )
+(CHARACTER C x
+ (CHARWD R 0.527781)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C y
+ (CHARWD R 0.527781)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.013888)
+ (COMMENT
+ (KRN C o R -0.027779)
+ (KRN C e R -0.027779)
+ (KRN C a R -0.027779)
+ (KRN O 56 R -0.083334)
+ (KRN O 54 R -0.083334)
+ )
+ )
+(CHARACTER C z
+ (CHARWD R 0.444446)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 173
+ (CHARWD R 0.500002)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.027779)
+ (COMMENT
+ (LIG O 55 O 174)
+ )
+ )
+(CHARACTER O 174
+ (CHARWD R 1.000003)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.027779)
+ )
+(CHARACTER O 175
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 176
+ (CHARWD R 0.500002)
+ (CHARHT R 0.667859)
+ )
+(CHARACTER O 177
+ (CHARWD R 0.500002)
+ (CHARHT R 0.667859)
+ )
diff --git a/fonts/gothic/blacklettert1/cmr7.pl b/fonts/gothic/blacklettert1/cmr7.pl
new file mode 100644
index 0000000000..93d784cd86
--- /dev/null
+++ b/fonts/gothic/blacklettert1/cmr7.pl
@@ -0,0 +1,980 @@
+(FAMILY CMR)
+(FACE O 360)
+(CODINGSCHEME TEX TEXT)
+(DESIGNSIZE R 7.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 33144720122)
+(FONTDIMEN
+ (SLANT R 0.0)
+ (SPACE R 0.384923)
+ (STRETCH R 0.184525)
+ (SHRINK R 0.123016)
+ (XHEIGHT R 0.430555)
+ (QUAD R 1.138894)
+ (EXTRASPACE R 0.123016)
+ )
+(LIGTABLE
+ (LABEL O 40)
+ (KRN C l R -0.323415)
+ (KRN C L R -0.368059)
+ (STOP)
+ (LABEL C f)
+ (LIG C i O 14)
+ (LIG C f O 13)
+ (LIG C l O 15)
+ (KRN O 47 R 0.079863)
+ (KRN O 77 R 0.079863)
+ (KRN O 41 R 0.079863)
+ (KRN O 51 R 0.079863)
+ (KRN O 135 R 0.079863)
+ (STOP)
+ (LABEL O 13)
+ (LIG C i O 16)
+ (LIG C l O 17)
+ (KRN O 47 R 0.079863)
+ (KRN O 77 R 0.079863)
+ (KRN O 41 R 0.079863)
+ (KRN O 51 R 0.079863)
+ (KRN O 135 R 0.079863)
+ (STOP)
+ (LABEL O 140)
+ (LIG O 140 O 134)
+ (STOP)
+ (LABEL O 47)
+ (LIG O 47 O 42)
+ (KRN O 77 R 0.123016)
+ (KRN O 41 R 0.123016)
+ (STOP)
+ (LABEL O 55)
+ (LIG O 55 O 173)
+ (STOP)
+ (LABEL O 173)
+ (LIG O 55 O 174)
+ (STOP)
+ (LABEL O 41)
+ (LIG O 140 O 74)
+ (STOP)
+ (LABEL O 77)
+ (LIG O 140 O 76)
+ (STOP)
+ (LABEL C k)
+ (LABEL C v)
+ (KRN C a R -0.061508)
+ (LABEL C w)
+ (KRN C e R -0.030755)
+ (KRN C a R -0.030755)
+ (KRN C o R -0.030755)
+ (KRN C c R -0.030755)
+ (STOP)
+ (LABEL C P)
+ (KRN C A R -0.092263)
+ (LABEL C y)
+ (KRN C o R -0.030755)
+ (KRN C e R -0.030755)
+ (KRN C a R -0.030755)
+ (KRN O 56 R -0.092263)
+ (KRN O 54 R -0.092263)
+ (STOP)
+ (LABEL C F)
+ (LABEL C V)
+ (LABEL C W)
+ (KRN C o R -0.092263)
+ (KRN C e R -0.092263)
+ (KRN C u R -0.092263)
+ (KRN C r R -0.092263)
+ (KRN C a R -0.092263)
+ (KRN C A R -0.123016)
+ (LABEL C K)
+ (LABEL C X)
+ (KRN C O R -0.030755)
+ (KRN C C R -0.030755)
+ (KRN C G R -0.030755)
+ (KRN C Q R -0.030755)
+ (STOP)
+ (LABEL C T)
+ (KRN C y R -0.030755)
+ (LABEL C Y)
+ (KRN C e R -0.092263)
+ (KRN C o R -0.092263)
+ (KRN C r R -0.092263)
+ (KRN C a R -0.092263)
+ (KRN C A R -0.092263)
+ (KRN C u R -0.092263)
+ (STOP)
+ (LABEL C D)
+ (LABEL C O)
+ (KRN C X R -0.030755)
+ (KRN C W R -0.030755)
+ (KRN C A R -0.030755)
+ (KRN C V R -0.030755)
+ (KRN C Y R -0.030755)
+ (STOP)
+ (LABEL C h)
+ (LABEL C m)
+ (LABEL C n)
+ (KRN C t R -0.030755)
+ (KRN C u R -0.030755)
+ (KRN C b R -0.030755)
+ (KRN C y R -0.030755)
+ (KRN C v R -0.030755)
+ (KRN C w R -0.030755)
+ (STOP)
+ (LABEL C c)
+ (KRN C h R -0.030755)
+ (KRN C k R -0.030755)
+ (STOP)
+ (LABEL C b)
+ (LABEL C o)
+ (LABEL C p)
+ (KRN C e R 0.030755)
+ (KRN C o R 0.030755)
+ (KRN C x R -0.030755)
+ (KRN C d R 0.030755)
+ (KRN C c R 0.030755)
+ (KRN C q R 0.030755)
+ (LABEL C a)
+ (KRN C v R -0.030755)
+ (KRN C j R 0.061508)
+ (LABEL C t)
+ (KRN C y R -0.030755)
+ (LABEL C u)
+ (KRN C w R -0.030755)
+ (STOP)
+ (LABEL C A)
+ (LABEL C R)
+ (KRN C t R -0.030755)
+ (KRN C C R -0.030755)
+ (KRN C O R -0.030755)
+ (KRN C G R -0.030755)
+ (KRN C U R -0.030755)
+ (KRN C Q R -0.030755)
+ (LABEL C L)
+ (KRN C T R -0.092263)
+ (KRN C Y R -0.092263)
+ (KRN C V R -0.123016)
+ (KRN C W R -0.123016)
+ (STOP)
+ (LABEL C g)
+ (KRN C j R 0.030755)
+ (STOP)
+ (LABEL C I)
+ (KRN C I R 0.030755)
+ (STOP)
+ )
+(CHARACTER O 0
+ (CHARWD R 0.706353)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 1
+ (CHARWD R 0.938497)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 2
+ (CHARWD R 0.876988)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 3
+ (CHARWD R 0.781752)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 4
+ (CHARWD R 0.753972)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 5
+ (CHARWD R 0.84326)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 6
+ (CHARWD R 0.81548)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 7
+ (CHARWD R 0.876988)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 10
+ (CHARWD R 0.81548)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 11
+ (CHARWD R 0.876988)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 12
+ (CHARWD R 0.81548)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 13
+ (CHARWD R 0.677584)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.079863)
+ (COMMENT
+ (LIG C i O 16)
+ (LIG C l O 17)
+ (KRN O 47 R 0.079863)
+ (KRN O 77 R 0.079863)
+ (KRN O 41 R 0.079863)
+ (KRN O 51 R 0.079863)
+ (KRN O 135 R 0.079863)
+ )
+ )
+(CHARACTER O 14
+ (CHARWD R 0.646829)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 15
+ (CHARWD R 0.646829)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 16
+ (CHARWD R 0.970243)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 17
+ (CHARWD R 0.970243)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 20
+ (CHARWD R 0.323415)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 21
+ (CHARWD R 0.35417)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 22
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 23
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 24
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.628472)
+ )
+(CHARACTER O 25
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 26
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.5742035)
+ )
+(CHARACTER O 27
+ (CHARWD R 0.84326)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 30
+ (CHARWD R 0.507939)
+ (CHARDP R 0.17014)
+ )
+(CHARACTER O 31
+ (CHARWD R 0.569449)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.81548)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 33
+ (CHARWD R 0.876988)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 34
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.527778)
+ (CHARDP R 0.097222)
+ )
+(CHARACTER O 35
+ (CHARWD R 1.013894)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 36
+ (CHARWD R 1.13691)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 37
+ (CHARWD R 0.876988)
+ (CHARHT R 0.731947)
+ (CHARDP R 0.048613)
+ )
+(CHARACTER O 40
+ (CHARWD R 0.323415)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C l R -0.323415)
+ (KRN C L R -0.368059)
+ )
+ )
+(CHARACTER O 41
+ (CHARWD R 0.323415)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 74)
+ )
+ )
+(CHARACTER O 42
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 43
+ (CHARWD R 0.938497)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 44
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.75)
+ (CHARDP R 0.055555)
+ )
+(CHARACTER O 45
+ (CHARWD R 0.938497)
+ (CHARHT R 0.75)
+ (CHARDP R 0.055555)
+ )
+(CHARACTER O 46
+ (CHARWD R 0.876988)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 47
+ (CHARWD R 0.323415)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 47 O 42)
+ (KRN O 77 R 0.123016)
+ (KRN O 41 R 0.123016)
+ )
+ )
+(CHARACTER O 50
+ (CHARWD R 0.446431)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 51
+ (CHARWD R 0.446431)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 52
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.75)
+ )
+(CHARACTER O 53
+ (CHARWD R 0.876988)
+ (CHARHT R 0.619049)
+ (CHARDP R 0.119049)
+ )
+(CHARACTER O 54
+ (CHARWD R 0.323415)
+ (CHARHT R 0.11508)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 55
+ (CHARWD R 0.384923)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (LIG O 55 O 173)
+ )
+ )
+(CHARACTER O 56
+ (CHARWD R 0.323415)
+ (CHARHT R 0.11508)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER C 0
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 1
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 2
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 3
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 4
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 5
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 6
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 7
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 8
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 9
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.323415)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.323415)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.323415)
+ (CHARHT R 0.5)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 75
+ (CHARWD R 0.876988)
+ (CHARHT R 0.384079)
+ (CHARDP R -0.115921)
+ )
+(CHARACTER O 76
+ (CHARWD R 0.538694)
+ (CHARHT R 0.5)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 77
+ (CHARWD R 0.538694)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 76)
+ )
+ )
+(CHARACTER O 100
+ (CHARWD R 0.876988)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C A
+ (CHARWD R 0.84326)
+ (CHARHT R 0.683334)
+ (COMMENT
+ (KRN C t R -0.030755)
+ (KRN C C R -0.030755)
+ (KRN C O R -0.030755)
+ (KRN C G R -0.030755)
+ (KRN C U R -0.030755)
+ (KRN C Q R -0.030755)
+ (KRN C T R -0.092263)
+ (KRN C Y R -0.092263)
+ (KRN C V R -0.123016)
+ (KRN C W R -0.123016)
+ )
+ )
+(CHARACTER C B
+ (CHARWD R 0.798616)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER C C
+ (CHARWD R 0.81548)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER C D
+ (CHARWD R 0.860125)
+ (CHARHT R 0.683334)
+ (COMMENT
+ (KRN C X R -0.030755)
+ (KRN C W R -0.030755)
+ (KRN C A R -0.030755)
+ (KRN C V R -0.030755)
+ (KRN C Y R -0.030755)
+ )
+ )
+(CHARACTER C E
+ (CHARWD R 0.767861)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER C F
+ (CHARWD R 0.737108)
+ (CHARHT R 0.683334)
+ (COMMENT
+ (KRN C o R -0.092263)
+ (KRN C e R -0.092263)
+ (KRN C u R -0.092263)
+ (KRN C r R -0.092263)
+ (KRN C a R -0.092263)
+ (KRN C A R -0.123016)
+ (KRN C O R -0.030755)
+ (KRN C C R -0.030755)
+ (KRN C G R -0.030755)
+ (KRN C Q R -0.030755)
+ )
+ )
+(CHARACTER C G
+ (CHARWD R 0.883933)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER C H
+ (CHARWD R 0.84326)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER C I
+ (CHARWD R 0.412703)
+ (CHARHT R 0.683334)
+ (COMMENT
+ (KRN C I R 0.030755)
+ )
+ )
+(CHARACTER C J
+ (CHARWD R 0.583337)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER C K
+ (CHARWD R 0.874015)
+ (CHARHT R 0.683334)
+ (COMMENT
+ (KRN C O R -0.030755)
+ (KRN C C R -0.030755)
+ (KRN C G R -0.030755)
+ (KRN C Q R -0.030755)
+ )
+ )
+(CHARACTER C L
+ (CHARWD R 0.706353)
+ (CHARHT R 0.683334)
+ (COMMENT
+ (KRN C T R -0.092263)
+ (KRN C Y R -0.092263)
+ (KRN C V R -0.123016)
+ (KRN C W R -0.123016)
+ )
+ )
+(CHARACTER C M
+ (CHARWD R 1.027784)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER C N
+ (CHARWD R 0.84326)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER C O
+ (CHARWD R 0.876988)
+ (CHARHT R 0.683334)
+ (COMMENT
+ (KRN C X R -0.030755)
+ (KRN C W R -0.030755)
+ (KRN C A R -0.030755)
+ (KRN C V R -0.030755)
+ (KRN C Y R -0.030755)
+ )
+ )
+(CHARACTER C P
+ (CHARWD R 0.767861)
+ (CHARHT R 0.683334)
+ (COMMENT
+ (KRN C A R -0.092263)
+ (KRN C o R -0.030755)
+ (KRN C e R -0.030755)
+ (KRN C a R -0.030755)
+ (KRN O 56 R -0.092263)
+ (KRN O 54 R -0.092263)
+ )
+ )
+(CHARACTER C Q
+ (CHARWD R 0.876988)
+ (CHARHT R 0.683334)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C R
+ (CHARWD R 0.82937)
+ (CHARHT R 0.683334)
+ (COMMENT
+ (KRN C t R -0.030755)
+ (KRN C C R -0.030755)
+ (KRN C O R -0.030755)
+ (KRN C G R -0.030755)
+ (KRN C U R -0.030755)
+ (KRN C Q R -0.030755)
+ (KRN C T R -0.092263)
+ (KRN C Y R -0.092263)
+ (KRN C V R -0.123016)
+ (KRN C W R -0.123016)
+ )
+ )
+(CHARACTER C S
+ (CHARWD R 0.630956)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER C T
+ (CHARWD R 0.81548)
+ (CHARHT R 0.683334)
+ (COMMENT
+ (KRN C y R -0.030755)
+ (KRN C e R -0.092263)
+ (KRN C o R -0.092263)
+ (KRN C r R -0.092263)
+ (KRN C a R -0.092263)
+ (KRN C A R -0.092263)
+ (KRN C u R -0.092263)
+ )
+ )
+(CHARACTER C U
+ (CHARWD R 0.84326)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER C V
+ (CHARWD R 0.84326)
+ (CHARHT R 0.683334)
+ (CHARIC R 0.015376)
+ (COMMENT
+ (KRN C o R -0.092263)
+ (KRN C e R -0.092263)
+ (KRN C u R -0.092263)
+ (KRN C r R -0.092263)
+ (KRN C a R -0.092263)
+ (KRN C A R -0.123016)
+ (KRN C O R -0.030755)
+ (KRN C C R -0.030755)
+ (KRN C G R -0.030755)
+ (KRN C Q R -0.030755)
+ )
+ )
+(CHARACTER C W
+ (CHARWD R 1.150801)
+ (CHARHT R 0.683334)
+ (CHARIC R 0.015376)
+ (COMMENT
+ (KRN C o R -0.092263)
+ (KRN C e R -0.092263)
+ (KRN C u R -0.092263)
+ (KRN C r R -0.092263)
+ (KRN C a R -0.092263)
+ (KRN C A R -0.123016)
+ (KRN C O R -0.030755)
+ (KRN C C R -0.030755)
+ (KRN C G R -0.030755)
+ (KRN C Q R -0.030755)
+ )
+ )
+(CHARACTER C X
+ (CHARWD R 0.84326)
+ (CHARHT R 0.683334)
+ (COMMENT
+ (KRN C O R -0.030755)
+ (KRN C C R -0.030755)
+ (KRN C G R -0.030755)
+ (KRN C Q R -0.030755)
+ )
+ )
+(CHARACTER C Y
+ (CHARWD R 0.84326)
+ (CHARHT R 0.683334)
+ (CHARIC R 0.027679)
+ (COMMENT
+ (KRN C e R -0.092263)
+ (KRN C o R -0.092263)
+ (KRN C r R -0.092263)
+ (KRN C a R -0.092263)
+ (KRN C A R -0.092263)
+ (KRN C u R -0.092263)
+ )
+ )
+(CHARACTER C Z
+ (CHARWD R 0.692464)
+ (CHARHT R 0.683334)
+ )
+(CHARACTER O 133
+ (CHARWD R 0.323415)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.323415)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 136
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 137
+ (CHARWD R 0.323415)
+ (CHARHT R 0.672621)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.323415)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 134)
+ )
+ )
+(CHARACTER C a
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C v R -0.030755)
+ (KRN C j R 0.061508)
+ (KRN C y R -0.030755)
+ (KRN C w R -0.030755)
+ )
+ )
+(CHARACTER C b
+ (CHARWD R 0.630956)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN C e R 0.030755)
+ (KRN C o R 0.030755)
+ (KRN C x R -0.030755)
+ (KRN C d R 0.030755)
+ (KRN C c R 0.030755)
+ (KRN C q R 0.030755)
+ (KRN C v R -0.030755)
+ (KRN C j R 0.061508)
+ (KRN C y R -0.030755)
+ (KRN C w R -0.030755)
+ )
+ )
+(CHARACTER C c
+ (CHARWD R 0.507939)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C h R -0.030755)
+ (KRN C k R -0.030755)
+ )
+ )
+(CHARACTER C d
+ (CHARWD R 0.630956)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C e
+ (CHARWD R 0.507939)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C f
+ (CHARWD R 0.35417)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.079863)
+ (COMMENT
+ (LIG C i O 14)
+ (LIG C f O 13)
+ (LIG C l O 15)
+ (KRN O 47 R 0.079863)
+ (KRN O 77 R 0.079863)
+ (KRN O 41 R 0.079863)
+ (KRN O 51 R 0.079863)
+ (KRN O 135 R 0.079863)
+ )
+ )
+(CHARACTER C g
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.015376)
+ (COMMENT
+ (KRN C j R 0.030755)
+ )
+ )
+(CHARACTER C h
+ (CHARWD R 0.630956)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN C t R -0.030755)
+ (KRN C u R -0.030755)
+ (KRN C b R -0.030755)
+ (KRN C y R -0.030755)
+ (KRN C v R -0.030755)
+ (KRN C w R -0.030755)
+ )
+ )
+(CHARACTER C i
+ (CHARWD R 0.323415)
+ (CHARHT R 0.672621)
+ )
+(CHARACTER C j
+ (CHARWD R 0.35417)
+ (CHARHT R 0.672621)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C k
+ (CHARWD R 0.600203)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN C a R -0.061508)
+ (KRN C e R -0.030755)
+ (KRN C a R -0.030755)
+ (KRN C o R -0.030755)
+ (KRN C c R -0.030755)
+ )
+ )
+(CHARACTER C l
+ (CHARWD R 0.323415)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C m
+ (CHARWD R 0.938497)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C t R -0.030755)
+ (KRN C u R -0.030755)
+ (KRN C b R -0.030755)
+ (KRN C y R -0.030755)
+ (KRN C v R -0.030755)
+ (KRN C w R -0.030755)
+ )
+ )
+(CHARACTER C n
+ (CHARWD R 0.630956)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C t R -0.030755)
+ (KRN C u R -0.030755)
+ (KRN C b R -0.030755)
+ (KRN C y R -0.030755)
+ (KRN C v R -0.030755)
+ (KRN C w R -0.030755)
+ )
+ )
+(CHARACTER C o
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C e R 0.030755)
+ (KRN C o R 0.030755)
+ (KRN C x R -0.030755)
+ (KRN C d R 0.030755)
+ (KRN C c R 0.030755)
+ (KRN C q R 0.030755)
+ (KRN C v R -0.030755)
+ (KRN C j R 0.061508)
+ (KRN C y R -0.030755)
+ (KRN C w R -0.030755)
+ )
+ )
+(CHARACTER C p
+ (CHARWD R 0.630956)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN C e R 0.030755)
+ (KRN C o R 0.030755)
+ (KRN C x R -0.030755)
+ (KRN C d R 0.030755)
+ (KRN C c R 0.030755)
+ (KRN C q R 0.030755)
+ (KRN C v R -0.030755)
+ (KRN C j R 0.061508)
+ (KRN C y R -0.030755)
+ (KRN C w R -0.030755)
+ )
+ )
+(CHARACTER C q
+ (CHARWD R 0.6002)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C r
+ (CHARWD R 0.446431)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C s
+ (CHARWD R 0.452582)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C t
+ (CHARWD R 0.446431)
+ (CHARHT R 0.61508)
+ (COMMENT
+ (KRN C y R -0.030755)
+ (KRN C w R -0.030755)
+ )
+ )
+(CHARACTER C u
+ (CHARWD R 0.630956)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C w R -0.030755)
+ )
+ )
+(CHARACTER C v
+ (CHARWD R 0.600203)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.015376)
+ (COMMENT
+ (KRN C a R -0.061508)
+ (KRN C e R -0.030755)
+ (KRN C a R -0.030755)
+ (KRN C o R -0.030755)
+ (KRN C c R -0.030755)
+ )
+ )
+(CHARACTER C w
+ (CHARWD R 0.81548)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.015376)
+ (COMMENT
+ (KRN C e R -0.030755)
+ (KRN C a R -0.030755)
+ (KRN C o R -0.030755)
+ (KRN C c R -0.030755)
+ )
+ )
+(CHARACTER C x
+ (CHARWD R 0.600203)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C y
+ (CHARWD R 0.600203)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.015376)
+ (COMMENT
+ (KRN C o R -0.030755)
+ (KRN C e R -0.030755)
+ (KRN C a R -0.030755)
+ (KRN O 56 R -0.092263)
+ (KRN O 54 R -0.092263)
+ )
+ )
+(CHARACTER C z
+ (CHARWD R 0.507939)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 173
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.030755)
+ (COMMENT
+ (LIG O 55 O 174)
+ )
+ )
+(CHARACTER O 174
+ (CHARWD R 1.138894)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.030755)
+ )
+(CHARACTER O 175
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 176
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.672621)
+ )
+(CHARACTER O 177
+ (CHARWD R 0.5694475)
+ (CHARHT R 0.672621)
+ )
diff --git a/fonts/gothic/blacklettert1/cmsy10.pl b/fonts/gothic/blacklettert1/cmsy10.pl
new file mode 100644
index 0000000000..f87f79b841
--- /dev/null
+++ b/fonts/gothic/blacklettert1/cmsy10.pl
@@ -0,0 +1,769 @@
+(FAMILY CMSY)
+(FACE O 352)
+(CODINGSCHEME TEX MATH SYMBOLS)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 4110426232)
+(FONTDIMEN
+ (SLANT R 0.25)
+ (SPACE R 0.0)
+ (STRETCH R 0.0)
+ (SHRINK R 0.0)
+ (XHEIGHT R 0.430555)
+ (QUAD R 1.000003)
+ (EXTRASPACE R 0.0)
+ (NUM1 R 0.676508)
+ (NUM2 R 0.393732)
+ (NUM3 R 0.443731)
+ (DENOM1 R 0.685951)
+ (DENOM2 R 0.344841)
+ (SUP1 R 0.412892)
+ (SUP2 R 0.362892)
+ (SUP3 R 0.288889)
+ (SUB1 R 0.15)
+ (SUB2 R 0.247217)
+ (SUPDROP R 0.386108)
+ (SUBDROP R 0.05)
+ (DELIM1 R 2.389999)
+ (DELIM2 R 1.01)
+ (AXISHEIGHT R 0.25)
+ )
+(LIGTABLE
+ (LABEL O 111)
+ (LABEL O 124)
+ (LABEL O 126)
+ (KRN O 60 R 0.027779)
+ (STOP)
+ (LABEL O 113)
+ (KRN O 60 R 0.055557)
+ (STOP)
+ (LABEL O 104)
+ (LABEL O 116)
+ (LABEL O 120)
+ (LABEL O 122)
+ (LABEL O 125)
+ (LABEL O 127)
+ (LABEL O 131)
+ (KRN O 60 R 0.083336)
+ (STOP)
+ (LABEL O 105)
+ (LABEL O 106)
+ (LABEL O 107)
+ (LABEL O 110)
+ (LABEL O 117)
+ (LABEL O 121)
+ (KRN O 60 R 0.1111145)
+ (STOP)
+ (LABEL O 102)
+ (LABEL O 103)
+ (LABEL O 114)
+ (LABEL O 115)
+ (LABEL O 123)
+ (LABEL O 130)
+ (LABEL O 132)
+ (KRN O 60 R 0.138893)
+ (STOP)
+ (LABEL O 112)
+ (KRN O 60 R 0.166672)
+ (STOP)
+ (LABEL O 101)
+ (KRN O 60 R 0.19445)
+ (STOP)
+ )
+(CHARACTER O 0
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 1
+ (CHARWD R 0.277779)
+ (CHARHT R 0.444446)
+ (CHARDP R -0.055554)
+ )
+(CHARACTER O 2
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 3
+ (CHARWD R 0.500002)
+ (CHARHT R 0.465279)
+ (CHARDP R -0.034721)
+ )
+(CHARACTER O 4
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 5
+ (CHARWD R 0.500002)
+ (CHARHT R 0.444446)
+ (CHARDP R -0.055554)
+ )
+(CHARACTER O 6
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 7
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 10
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 11
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 12
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 13
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 14
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 15
+ (CHARWD R 1.000003)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 16
+ (CHARWD R 0.500002)
+ (CHARHT R 0.444446)
+ (CHARDP R -0.055554)
+ )
+(CHARACTER O 17
+ (CHARWD R 0.500002)
+ (CHARHT R 0.444446)
+ (CHARDP R -0.055554)
+ )
+(CHARACTER O 20
+ (CHARWD R 0.777781)
+ (CHARHT R 0.463748)
+ (CHARDP R -0.036252)
+ )
+(CHARACTER O 21
+ (CHARWD R 0.777781)
+ (CHARHT R 0.463748)
+ (CHARDP R -0.036252)
+ )
+(CHARACTER O 22
+ (CHARWD R 0.777781)
+ (CHARHT R 0.635971)
+ (CHARDP R 0.135971)
+ )
+(CHARACTER O 23
+ (CHARWD R 0.777781)
+ (CHARHT R 0.635971)
+ (CHARDP R 0.135971)
+ )
+(CHARACTER O 24
+ (CHARWD R 0.777781)
+ (CHARHT R 0.635971)
+ (CHARDP R 0.135971)
+ )
+(CHARACTER O 25
+ (CHARWD R 0.777781)
+ (CHARHT R 0.635971)
+ (CHARDP R 0.135971)
+ )
+(CHARACTER O 26
+ (CHARWD R 0.777781)
+ (CHARHT R 0.635971)
+ (CHARDP R 0.135971)
+ )
+(CHARACTER O 27
+ (CHARWD R 0.777781)
+ (CHARHT R 0.635971)
+ (CHARDP R 0.135971)
+ )
+(CHARACTER O 30
+ (CHARWD R 0.777781)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 31
+ (CHARWD R 0.777781)
+ (CHARHT R 0.483122)
+ (CHARDP R -0.016878)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.777781)
+ (CHARHT R 0.539098)
+ (CHARDP R 0.039098)
+ )
+(CHARACTER O 33
+ (CHARWD R 0.777781)
+ (CHARHT R 0.539098)
+ (CHARDP R 0.039098)
+ )
+(CHARACTER O 34
+ (CHARWD R 1.000003)
+ (CHARHT R 0.539098)
+ (CHARDP R 0.039098)
+ )
+(CHARACTER O 35
+ (CHARWD R 1.000003)
+ (CHARHT R 0.539098)
+ (CHARDP R 0.039098)
+ )
+(CHARACTER O 36
+ (CHARWD R 0.777781)
+ (CHARHT R 0.539098)
+ (CHARDP R 0.039098)
+ )
+(CHARACTER O 37
+ (CHARWD R 0.777781)
+ (CHARHT R 0.539098)
+ (CHARDP R 0.039098)
+ )
+(CHARACTER O 40
+ (CHARWD R 1.000003)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 41
+ (CHARWD R 1.000003)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 42
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 43
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 44
+ (CHARWD R 1.000003)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 45
+ (CHARWD R 1.000003)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 46
+ (CHARWD R 1.000003)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 47
+ (CHARWD R 0.777781)
+ (CHARHT R 0.463748)
+ (CHARDP R -0.036252)
+ )
+(CHARACTER O 50
+ (CHARWD R 1.000003)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 51
+ (CHARWD R 1.000003)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 52
+ (CHARWD R 0.611113)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 53
+ (CHARWD R 0.611113)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 54
+ (CHARWD R 1.000003)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 55
+ (CHARWD R 1.000003)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 56
+ (CHARWD R 1.000003)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.777781)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 60
+ (CHARWD R 0.275)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 61
+ (CHARWD R 1.000003)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 62
+ (CHARWD R 0.666669)
+ (CHARHT R 0.539098)
+ (CHARDP R 0.039098)
+ )
+(CHARACTER O 63
+ (CHARWD R 0.666669)
+ (CHARHT R 0.539098)
+ (CHARDP R 0.039098)
+ )
+(CHARACTER O 64
+ (CHARWD R 0.888891)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 65
+ (CHARWD R 0.888891)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 66
+ (CHARWD R 0.0)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 67
+ (CHARWD R 0.0)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 70
+ (CHARWD R 0.555557)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 71
+ (CHARWD R 0.555557)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.666669)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (CHARDP R 0.055555)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.722224)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 75
+ (CHARWD R 0.722224)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 76
+ (CHARWD R 0.777781)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 77
+ (CHARWD R 0.777781)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 100
+ (CHARWD R 0.611113)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 101
+ (CHARWD R 0.798471)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN O 60 R 0.19445)
+ )
+ )
+(CHARACTER O 102
+ (CHARWD R 0.65681)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.030413)
+ (COMMENT
+ (KRN O 60 R 0.138893)
+ )
+ )
+(CHARACTER O 103
+ (CHARWD R 0.526529)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.058336)
+ (COMMENT
+ (KRN O 60 R 0.138893)
+ )
+ )
+(CHARACTER O 104
+ (CHARWD R 0.771393)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.027779)
+ (COMMENT
+ (KRN O 60 R 0.083336)
+ )
+ )
+(CHARACTER O 105
+ (CHARWD R 0.5277815)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.089441)
+ (COMMENT
+ (KRN O 60 R 0.1111145)
+ )
+ )
+(CHARACTER O 106
+ (CHARWD R 0.718748)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.099306)
+ (COMMENT
+ (KRN O 60 R 0.1111145)
+ )
+ )
+(CHARACTER O 107
+ (CHARWD R 0.594866)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.097223)
+ (CHARIC R 0.059303)
+ (COMMENT
+ (KRN O 60 R 0.1111145)
+ )
+ )
+(CHARACTER O 110
+ (CHARWD R 0.844518)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.009654)
+ (COMMENT
+ (KRN O 60 R 0.1111145)
+ )
+ )
+(CHARACTER O 111
+ (CHARWD R 0.544516)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.073822)
+ (COMMENT
+ (KRN O 60 R 0.027779)
+ )
+ )
+(CHARACTER O 112
+ (CHARWD R 0.67778)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.097223)
+ (CHARIC R 0.184721)
+ (COMMENT
+ (KRN O 60 R 0.166672)
+ )
+ )
+(CHARACTER O 113
+ (CHARWD R 0.7619505)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.014445)
+ (COMMENT
+ (KRN O 60 R 0.055557)
+ )
+ )
+(CHARACTER O 114
+ (CHARWD R 0.689725)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN O 60 R 0.138893)
+ )
+ )
+(CHARACTER O 115
+ (CHARWD R 1.2009)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN O 60 R 0.138893)
+ )
+ )
+(CHARACTER O 116
+ (CHARWD R 0.820491)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.14736)
+ (COMMENT
+ (KRN O 60 R 0.083336)
+ )
+ )
+(CHARACTER O 117
+ (CHARWD R 0.796114)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.027779)
+ (COMMENT
+ (KRN O 60 R 0.1111145)
+ )
+ )
+(CHARACTER O 120
+ (CHARWD R 0.6955595)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.082222)
+ (COMMENT
+ (KRN O 60 R 0.083336)
+ )
+ )
+(CHARACTER O 121
+ (CHARWD R 0.81667)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.097223)
+ (COMMENT
+ (KRN O 60 R 0.1111145)
+ )
+ )
+(CHARACTER O 122
+ (CHARWD R 0.847504)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN O 60 R 0.083336)
+ )
+ )
+(CHARACTER O 123
+ (CHARWD R 0.605558)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.074995)
+ (COMMENT
+ (KRN O 60 R 0.138893)
+ )
+ )
+(CHARACTER O 124
+ (CHARWD R 0.544644)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.254168)
+ (COMMENT
+ (KRN O 60 R 0.027779)
+ )
+ )
+(CHARACTER O 125
+ (CHARWD R 0.625832)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.099306)
+ (COMMENT
+ (KRN O 60 R 0.083336)
+ )
+ )
+(CHARACTER O 126
+ (CHARWD R 0.6127825)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.082222)
+ (COMMENT
+ (KRN O 60 R 0.027779)
+ )
+ )
+(CHARACTER O 127
+ (CHARWD R 0.987783)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.082222)
+ (COMMENT
+ (KRN O 60 R 0.083336)
+ )
+ )
+(CHARACTER O 130
+ (CHARWD R 0.713297)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.146428)
+ (COMMENT
+ (KRN O 60 R 0.138893)
+ )
+ )
+(CHARACTER O 131
+ (CHARWD R 0.668337)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.097223)
+ (CHARIC R 0.082222)
+ (COMMENT
+ (KRN O 60 R 0.083336)
+ )
+ )
+(CHARACTER O 132
+ (CHARWD R 0.724726)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.079443)
+ (COMMENT
+ (KRN O 60 R 0.138893)
+ )
+ )
+(CHARACTER O 133
+ (CHARWD R 0.666669)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.666669)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.666669)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 136
+ (CHARWD R 0.666669)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 137
+ (CHARWD R 0.666669)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.611113)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 141
+ (CHARWD R 0.611113)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 142
+ (CHARWD R 0.444446)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 143
+ (CHARWD R 0.444446)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 144
+ (CHARWD R 0.444446)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 145
+ (CHARWD R 0.444446)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 146
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 147
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 150
+ (CHARWD R 0.38889)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 151
+ (CHARWD R 0.38889)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 152
+ (CHARWD R 0.277779)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 153
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 154
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 155
+ (CHARWD R 0.611113)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 156
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 157
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 160
+ (CHARWD R 0.833336)
+ (CHARHT R 0.039999)
+ (CHARDP R 0.960001)
+ )
+(CHARACTER O 161
+ (CHARWD R 0.750002)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 162
+ (CHARWD R 0.833336)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 163
+ (CHARWD R 0.416669)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.111112)
+ )
+(CHARACTER O 164
+ (CHARWD R 0.666669)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 165
+ (CHARWD R 0.666669)
+ (CHARHT R 0.555557)
+ )
+(CHARACTER O 166
+ (CHARWD R 0.777781)
+ (CHARHT R 0.635971)
+ (CHARDP R 0.135971)
+ )
+(CHARACTER O 167
+ (CHARWD R 0.777781)
+ (CHARHT R 0.635971)
+ (CHARDP R 0.135971)
+ )
+(CHARACTER O 170
+ (CHARWD R 0.4444475)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 171
+ (CHARWD R 0.444446)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 172
+ (CHARWD R 0.444446)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 173
+ (CHARWD R 0.611113)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 174
+ (CHARWD R 0.777781)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.129629)
+ )
+(CHARACTER O 175
+ (CHARWD R 0.777781)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.129629)
+ )
+(CHARACTER O 176
+ (CHARWD R 0.777781)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.129629)
+ )
+(CHARACTER O 177
+ (CHARWD R 0.777781)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.129629)
+ )
diff --git a/fonts/gothic/blacklettert1/cmu10.pl b/fonts/gothic/blacklettert1/cmu10.pl
new file mode 100644
index 0000000000..f58e9b3166
--- /dev/null
+++ b/fonts/gothic/blacklettert1/cmu10.pl
@@ -0,0 +1,963 @@
+(FAMILY CMU)
+(FACE O 352)
+(CODINGSCHEME TEX ITALIC TEXT)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 2310050342)
+(FONTDIMEN
+ (SLANT R 0.0)
+ (SPACE R 0.388888)
+ (STRETCH R 0.166667)
+ (SHRINK R 0.111112)
+ (XHEIGHT R 0.430555)
+ (QUAD R 1.111112)
+ (EXTRASPACE R 0.111112)
+ )
+(LIGTABLE
+ (LABEL C f)
+ (LIG C i O 14)
+ (LIG C f O 13)
+ (LIG C l O 15)
+ (KRN O 47 R 0.041667)
+ (KRN O 77 R 0.041667)
+ (KRN O 41 R 0.041667)
+ (KRN O 51 R 0.041667)
+ (KRN O 135 R 0.041667)
+ (STOP)
+ (LABEL O 13)
+ (LIG C i O 16)
+ (LIG C l O 17)
+ (KRN O 47 R 0.041667)
+ (KRN O 77 R 0.041667)
+ (KRN O 41 R 0.041667)
+ (KRN O 51 R 0.041667)
+ (KRN O 135 R 0.041667)
+ (STOP)
+ (LABEL O 40)
+ (KRN C l R -0.277777)
+ (KRN C L R -0.347221)
+ (STOP)
+ (LABEL O 140)
+ (LIG O 140 O 134)
+ (STOP)
+ (LABEL O 47)
+ (LIG O 47 O 42)
+ (KRN O 77 R 0.111112)
+ (KRN O 41 R 0.111112)
+ (STOP)
+ (LABEL O 55)
+ (LIG O 55 O 173)
+ (STOP)
+ (LABEL O 173)
+ (LIG O 55 O 174)
+ (STOP)
+ (LABEL O 41)
+ (LIG O 140 O 74)
+ (STOP)
+ (LABEL O 77)
+ (LIG O 140 O 76)
+ (STOP)
+ (LABEL C d)
+ (LABEL C l)
+ (LABEL C w)
+ (KRN C l R 0.055555)
+ (STOP)
+ (LABEL C F)
+ (LABEL C V)
+ (KRN C o R -0.083334)
+ (KRN C e R -0.083334)
+ (KRN C u R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C A R -0.111112)
+ (LABEL C K)
+ (LABEL C X)
+ (KRN C O R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C Q R -0.027779)
+ (STOP)
+ (LABEL C T)
+ (KRN C y R -0.083334)
+ (LABEL C Y)
+ (KRN C e R -0.083334)
+ (KRN C o R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C u R -0.083334)
+ (LABEL C P)
+ (LABEL C W)
+ (KRN C A R -0.083334)
+ (STOP)
+ (LABEL C D)
+ (LABEL C O)
+ (KRN C X R -0.027779)
+ (KRN C W R -0.027779)
+ (KRN C A R -0.027779)
+ (KRN C V R -0.027779)
+ (KRN C Y R -0.027779)
+ (STOP)
+ (LABEL C A)
+ (LABEL C R)
+ (KRN C n R -0.027779)
+ (KRN C l R -0.027779)
+ (KRN C r R -0.027779)
+ (KRN C u R -0.027779)
+ (KRN C m R -0.027779)
+ (KRN C t R -0.027779)
+ (KRN C i R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C O R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C h R -0.027779)
+ (KRN C b R -0.027779)
+ (KRN C U R -0.027779)
+ (KRN C k R -0.027779)
+ (KRN C v R -0.027779)
+ (KRN C w R -0.027779)
+ (KRN C Q R -0.027779)
+ (LABEL C L)
+ (KRN C T R -0.083334)
+ (KRN C Y R -0.083334)
+ (KRN C V R -0.111112)
+ (KRN C W R -0.111112)
+ (LABEL C b)
+ (LABEL C c)
+ (LABEL C e)
+ (LABEL C o)
+ (LABEL C p)
+ (LABEL C r)
+ (KRN C e R -0.055555)
+ (KRN C a R -0.055555)
+ (KRN C o R -0.055555)
+ (KRN C d R -0.055555)
+ (KRN C c R -0.055555)
+ (KRN C g R -0.055555)
+ (KRN C q R -0.055555)
+ (STOP)
+ (LABEL C n)
+ (KRN O 47 R -0.111112)
+ (STOP)
+ )
+(CHARACTER O 0
+ (CHARWD R 0.680555)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 1
+ (CHARWD R 0.88889)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 2
+ (CHARWD R 0.833334)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 3
+ (CHARWD R 0.75)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 4
+ (CHARWD R 0.722223)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 5
+ (CHARWD R 0.805555)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 6
+ (CHARWD R 0.777779)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 7
+ (CHARWD R 0.833334)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 10
+ (CHARWD R 0.777779)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 11
+ (CHARWD R 0.833334)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 12
+ (CHARWD R 0.777779)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 13
+ (CHARWD R 0.666667)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.041667)
+ (COMMENT
+ (LIG C i O 16)
+ (LIG C l O 17)
+ (KRN O 47 R 0.041667)
+ (KRN O 77 R 0.041667)
+ (KRN O 41 R 0.041667)
+ (KRN O 51 R 0.041667)
+ (KRN O 135 R 0.041667)
+ )
+ )
+(CHARACTER O 14
+ (CHARWD R 0.611112)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.040278)
+ )
+(CHARACTER O 15
+ (CHARWD R 0.638888)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.040278)
+ )
+(CHARACTER O 16
+ (CHARWD R 0.958333)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.040278)
+ )
+(CHARACTER O 17
+ (CHARWD R 0.972221)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.040278)
+ )
+(CHARACTER O 20
+ (CHARWD R 0.333333)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.040278)
+ )
+(CHARACTER O 21
+ (CHARWD R 0.361112)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 22
+ (CHARWD R 0.555555)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 23
+ (CHARWD R 0.555555)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 24
+ (CHARWD R 0.555555)
+ (CHARHT R 0.628473)
+ )
+(CHARACTER O 25
+ (CHARWD R 0.555555)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 26
+ (CHARWD R 0.555555)
+ (CHARHT R 0.567777)
+ )
+(CHARACTER O 27
+ (CHARWD R 0.805555)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 30
+ (CHARWD R 0.5)
+ (CHARDP R 0.170138)
+ )
+(CHARACTER O 31
+ (CHARWD R 0.583336)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.777779)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 33
+ (CHARWD R 0.777779)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 34
+ (CHARWD R 0.555555)
+ (CHARHT R 0.527779)
+ (CHARDP R 0.097223)
+ )
+(CHARACTER O 35
+ (CHARWD R 0.958334)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 36
+ (CHARWD R 1.069446)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 37
+ (CHARWD R 0.833334)
+ (CHARHT R 0.731944)
+ (CHARDP R 0.048612)
+ )
+(CHARACTER O 40
+ (CHARWD R 0.277777)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C l R -0.277777)
+ (KRN C L R -0.347221)
+ )
+ )
+(CHARACTER O 41
+ (CHARWD R 0.333333)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 74)
+ )
+ )
+(CHARACTER O 42
+ (CHARWD R 0.555555)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 43
+ (CHARWD R 0.88889)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 44
+ (CHARWD R 0.694445)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 45
+ (CHARWD R 0.88889)
+ (CHARHT R 0.75)
+ (CHARDP R 0.055555)
+ )
+(CHARACTER O 46
+ (CHARWD R 0.833334)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 47
+ (CHARWD R 0.333333)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 47 O 42)
+ (KRN O 77 R 0.111112)
+ (KRN O 41 R 0.111112)
+ )
+ )
+(CHARACTER O 50
+ (CHARWD R 0.444445)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 51
+ (CHARWD R 0.444445)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 52
+ (CHARWD R 0.555555)
+ (CHARHT R 0.75)
+ )
+(CHARACTER O 53
+ (CHARWD R 0.833334)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 54
+ (CHARWD R 0.333333)
+ (CHARHT R 0.105556)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 55
+ (CHARWD R 0.388888)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (LIG O 55 O 173)
+ )
+ )
+(CHARACTER O 56
+ (CHARWD R 0.333333)
+ (CHARHT R 0.105556)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.555555)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER C 0
+ (CHARWD R 0.555555)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 1
+ (CHARWD R 0.555555)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 2
+ (CHARWD R 0.555555)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 3
+ (CHARWD R 0.555555)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 4
+ (CHARWD R 0.555555)
+ (CHARHT R 0.644444)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C 5
+ (CHARWD R 0.555555)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 6
+ (CHARWD R 0.555555)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 7
+ (CHARWD R 0.555555)
+ (CHARHT R 0.644444)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C 8
+ (CHARWD R 0.555555)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER C 9
+ (CHARWD R 0.555555)
+ (CHARHT R 0.644444)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.333333)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.333333)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.333333)
+ (CHARHT R 0.5)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 75
+ (CHARWD R 0.833334)
+ (CHARHT R 0.366875)
+ (CHARDP R -0.133125)
+ )
+(CHARACTER O 76
+ (CHARWD R 0.555555)
+ (CHARHT R 0.5)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER O 77
+ (CHARWD R 0.555555)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 76)
+ )
+ )
+(CHARACTER O 100
+ (CHARWD R 0.833334)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C A
+ (CHARWD R 0.805555)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C n R -0.027779)
+ (KRN C l R -0.027779)
+ (KRN C r R -0.027779)
+ (KRN C u R -0.027779)
+ (KRN C m R -0.027779)
+ (KRN C t R -0.027779)
+ (KRN C i R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C O R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C h R -0.027779)
+ (KRN C b R -0.027779)
+ (KRN C U R -0.027779)
+ (KRN C k R -0.027779)
+ (KRN C v R -0.027779)
+ (KRN C w R -0.027779)
+ (KRN C Q R -0.027779)
+ (KRN C T R -0.083334)
+ (KRN C Y R -0.083334)
+ (KRN C V R -0.111112)
+ (KRN C W R -0.111112)
+ (KRN C e R -0.055555)
+ (KRN C a R -0.055555)
+ (KRN C o R -0.055555)
+ (KRN C d R -0.055555)
+ (KRN C c R -0.055555)
+ (KRN C g R -0.055555)
+ (KRN C q R -0.055555)
+ )
+ )
+(CHARACTER C B
+ (CHARWD R 0.76389)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C C
+ (CHARWD R 0.777779)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C D
+ (CHARWD R 0.819446)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C X R -0.027779)
+ (KRN C W R -0.027779)
+ (KRN C A R -0.027779)
+ (KRN C V R -0.027779)
+ (KRN C Y R -0.027779)
+ )
+ )
+(CHARACTER C E
+ (CHARWD R 0.736112)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C F
+ (CHARWD R 0.708334)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C o R -0.083334)
+ (KRN C e R -0.083334)
+ (KRN C u R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C A R -0.111112)
+ (KRN C O R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C Q R -0.027779)
+ )
+ )
+(CHARACTER C G
+ (CHARWD R 0.840279)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C H
+ (CHARWD R 0.805555)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C I
+ (CHARWD R 0.416666)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C J
+ (CHARWD R 0.569445)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C K
+ (CHARWD R 0.833334)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C O R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C Q R -0.027779)
+ )
+ )
+(CHARACTER C L
+ (CHARWD R 0.680555)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C T R -0.083334)
+ (KRN C Y R -0.083334)
+ (KRN C V R -0.111112)
+ (KRN C W R -0.111112)
+ (KRN C e R -0.055555)
+ (KRN C a R -0.055555)
+ (KRN C o R -0.055555)
+ (KRN C d R -0.055555)
+ (KRN C c R -0.055555)
+ (KRN C g R -0.055555)
+ (KRN C q R -0.055555)
+ )
+ )
+(CHARACTER C M
+ (CHARWD R 0.972223)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C N
+ (CHARWD R 0.805555)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C O
+ (CHARWD R 0.833334)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C X R -0.027779)
+ (KRN C W R -0.027779)
+ (KRN C A R -0.027779)
+ (KRN C V R -0.027779)
+ (KRN C Y R -0.027779)
+ )
+ )
+(CHARACTER C P
+ (CHARWD R 0.736112)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C A R -0.083334)
+ )
+ )
+(CHARACTER C Q
+ (CHARWD R 0.833334)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C R
+ (CHARWD R 0.791667)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C n R -0.027779)
+ (KRN C l R -0.027779)
+ (KRN C r R -0.027779)
+ (KRN C u R -0.027779)
+ (KRN C m R -0.027779)
+ (KRN C t R -0.027779)
+ (KRN C i R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C O R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C h R -0.027779)
+ (KRN C b R -0.027779)
+ (KRN C U R -0.027779)
+ (KRN C k R -0.027779)
+ (KRN C v R -0.027779)
+ (KRN C w R -0.027779)
+ (KRN C Q R -0.027779)
+ (KRN C T R -0.083334)
+ (KRN C Y R -0.083334)
+ (KRN C V R -0.111112)
+ (KRN C W R -0.111112)
+ (KRN C e R -0.055555)
+ (KRN C a R -0.055555)
+ (KRN C o R -0.055555)
+ (KRN C d R -0.055555)
+ (KRN C c R -0.055555)
+ (KRN C g R -0.055555)
+ (KRN C q R -0.055555)
+ )
+ )
+(CHARACTER C S
+ (CHARWD R 0.611112)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C T
+ (CHARWD R 0.777779)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C y R -0.083334)
+ (KRN C e R -0.083334)
+ (KRN C o R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C u R -0.083334)
+ (KRN C A R -0.083334)
+ )
+ )
+(CHARACTER C U
+ (CHARWD R 0.805555)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C V
+ (CHARWD R 0.805555)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.013888)
+ (COMMENT
+ (KRN C o R -0.083334)
+ (KRN C e R -0.083334)
+ (KRN C u R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C A R -0.111112)
+ (KRN C O R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C Q R -0.027779)
+ )
+ )
+(CHARACTER C W
+ (CHARWD R 1.083334)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.013888)
+ (COMMENT
+ (KRN C A R -0.083334)
+ )
+ )
+(CHARACTER C X
+ (CHARWD R 0.805555)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C O R -0.027779)
+ (KRN C C R -0.027779)
+ (KRN C G R -0.027779)
+ (KRN C Q R -0.027779)
+ )
+ )
+(CHARACTER C Y
+ (CHARWD R 0.805555)
+ (CHARHT R 0.683332)
+ (CHARIC R 0.025)
+ (COMMENT
+ (KRN C e R -0.083334)
+ (KRN C o R -0.083334)
+ (KRN C r R -0.083334)
+ (KRN C a R -0.083334)
+ (KRN C u R -0.083334)
+ (KRN C A R -0.083334)
+ )
+ )
+(CHARACTER C Z
+ (CHARWD R 0.666667)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 133
+ (CHARWD R 0.333333)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.555555)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.333333)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 136
+ (CHARWD R 0.555555)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 137
+ (CHARWD R 0.333333)
+ (CHARHT R 0.664386)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.333333)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 134)
+ )
+ )
+(CHARACTER C a
+ (CHARWD R 0.555555)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.040278)
+ )
+(CHARACTER C b
+ (CHARWD R 0.5)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (KRN C e R -0.055555)
+ (KRN C a R -0.055555)
+ (KRN C o R -0.055555)
+ (KRN C d R -0.055555)
+ (KRN C c R -0.055555)
+ (KRN C g R -0.055555)
+ (KRN C q R -0.055555)
+ )
+ )
+(CHARACTER C c
+ (CHARWD R 0.5)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C e R -0.055555)
+ (KRN C a R -0.055555)
+ (KRN C o R -0.055555)
+ (KRN C d R -0.055555)
+ (KRN C c R -0.055555)
+ (KRN C g R -0.055555)
+ (KRN C q R -0.055555)
+ )
+ )
+(CHARACTER C d
+ (CHARWD R 0.555555)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.040278)
+ (COMMENT
+ (KRN C l R 0.055555)
+ )
+ )
+(CHARACTER C e
+ (CHARWD R 0.5)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C e R -0.055555)
+ (KRN C a R -0.055555)
+ (KRN C o R -0.055555)
+ (KRN C d R -0.055555)
+ (KRN C c R -0.055555)
+ (KRN C g R -0.055555)
+ (KRN C q R -0.055555)
+ )
+ )
+(CHARACTER C f
+ (CHARWD R 0.333334)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194445)
+ (CHARIC R 0.041667)
+ (COMMENT
+ (LIG C i O 14)
+ (LIG C f O 13)
+ (LIG C l O 15)
+ (KRN O 47 R 0.041667)
+ (KRN O 77 R 0.041667)
+ (KRN O 41 R 0.041667)
+ (KRN O 51 R 0.041667)
+ (KRN O 135 R 0.041667)
+ )
+ )
+(CHARACTER C g
+ (CHARWD R 0.5)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C h
+ (CHARWD R 0.555555)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.040278)
+ )
+(CHARACTER C i
+ (CHARWD R 0.333333)
+ (CHARHT R 0.664386)
+ (CHARIC R 0.040278)
+ )
+(CHARACTER C j
+ (CHARWD R 0.333333)
+ (CHARHT R 0.664386)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C k
+ (CHARWD R 0.5)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C l
+ (CHARWD R 0.277777)
+ (CHARHT R 0.694445)
+ (CHARIC R 0.040278)
+ (COMMENT
+ (KRN C l R 0.055555)
+ )
+ )
+(CHARACTER C m
+ (CHARWD R 0.88889)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.040278)
+ )
+(CHARACTER C n
+ (CHARWD R 0.611112)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.040278)
+ (COMMENT
+ (KRN O 47 R -0.111112)
+ )
+ )
+(CHARACTER C o
+ (CHARWD R 0.555555)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C e R -0.055555)
+ (KRN C a R -0.055555)
+ (KRN C o R -0.055555)
+ (KRN C d R -0.055555)
+ (KRN C c R -0.055555)
+ (KRN C g R -0.055555)
+ (KRN C q R -0.055555)
+ )
+ )
+(CHARACTER C p
+ (CHARWD R 0.555555)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ (COMMENT
+ (KRN C e R -0.055555)
+ (KRN C a R -0.055555)
+ (KRN C o R -0.055555)
+ (KRN C d R -0.055555)
+ (KRN C c R -0.055555)
+ (KRN C g R -0.055555)
+ (KRN C q R -0.055555)
+ )
+ )
+(CHARACTER C q
+ (CHARWD R 0.5)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C r
+ (CHARWD R 0.458334)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C e R -0.055555)
+ (KRN C a R -0.055555)
+ (KRN C o R -0.055555)
+ (KRN C d R -0.055555)
+ (KRN C c R -0.055555)
+ (KRN C g R -0.055555)
+ (KRN C q R -0.055555)
+ )
+ )
+(CHARACTER C s
+ (CHARWD R 0.444445)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C t
+ (CHARWD R 0.361112)
+ (CHARHT R 0.61508)
+ (CHARIC R 0.040278)
+ )
+(CHARACTER C u
+ (CHARWD R 0.583334)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.040278)
+ )
+(CHARACTER C v
+ (CHARWD R 0.5)
+ (CHARHT R 0.430555)
+ )
+(CHARACTER C w
+ (CHARWD R 0.722223)
+ (CHARHT R 0.430555)
+ (COMMENT
+ (KRN C l R 0.055555)
+ )
+ )
+(CHARACTER C x
+ (CHARWD R 0.508334)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.040278)
+ )
+(CHARACTER C y
+ (CHARWD R 0.527779)
+ (CHARHT R 0.430555)
+ (CHARDP R 0.194445)
+ )
+(CHARACTER C z
+ (CHARWD R 0.444446)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.0125)
+ )
+(CHARACTER O 173
+ (CHARWD R 0.555555)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.027779)
+ (COMMENT
+ (LIG O 55 O 174)
+ )
+ )
+(CHARACTER O 174
+ (CHARWD R 1.111112)
+ (CHARHT R 0.430555)
+ (CHARIC R 0.027779)
+ )
+(CHARACTER O 175
+ (CHARWD R 0.555555)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 176
+ (CHARWD R 0.555555)
+ (CHARHT R 0.664386)
+ )
+(CHARACTER O 177
+ (CHARWD R 0.555555)
+ (CHARHT R 0.664386)
+ )
diff --git a/fonts/gothic/blacklettert1/ecbx1000.pl b/fonts/gothic/blacklettert1/ecbx1000.pl
new file mode 100644
index 0000000000..5d1f451d0e
--- /dev/null
+++ b/fonts/gothic/blacklettert1/ecbx1000.pl
@@ -0,0 +1,3853 @@
+(FAMILY ECBX)
+(FACE O 352)
+(CODINGSCHEME EXTENDED TEX FONT ENCODING - LATIN)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 227263214)
+(FONTDIMEN
+ (SLANT R 0.0)
+ (SPACE R 0.38324)
+ (STRETCH R 0.19162)
+ (SHRINK R 0.127747)
+ (XHEIGHT R 0.444336)
+ (QUAD R 1.149719)
+ (EXTRASPACE R 0.127747)
+ (PARAMETER D 8 R 0.685944)
+ (PARAMETER D 9 R 0.694275)
+ (PARAMETER D 10 R 0.894226)
+ (PARAMETER D 11 R 0.194397)
+ (PARAMETER D 12 R 0.894226)
+ (PARAMETER D 13 R 0.249939)
+ (PARAMETER D 14 R 0.57486)
+ (PARAMETER D 15 R 0.141632)
+ (PARAMETER D 16 R 1.199997)
+ )
+(BOUNDARYCHAR O 27)
+(LIGTABLE
+ (LABEL C f)
+ (LIG C i O 34)
+ (LIG C f O 33)
+ (LIG C l O 35)
+ (KRN O 47 R 0.109001)
+ (KRN O 140 R 0.109001)
+ (KRN O 20 R 0.109001)
+ (KRN O 21 R 0.109001)
+ (KRN O 77 R 0.109001)
+ (KRN O 41 R 0.109001)
+ (KRN O 51 R 0.109001)
+ (KRN O 135 R 0.109001)
+ (STOP)
+ (LABEL O 33)
+ (LIG C i O 36)
+ (LIG C l O 37)
+ (KRN O 47 R 0.109001)
+ (KRN O 140 R 0.109001)
+ (KRN O 20 R 0.109001)
+ (KRN O 21 R 0.109001)
+ (KRN O 77 R 0.109001)
+ (KRN O 41 R 0.109001)
+ (KRN O 51 R 0.109001)
+ (KRN O 135 R 0.109001)
+ (STOP)
+ (LABEL O 140)
+ (LIG O 140 O 20)
+ (KRN O 20 R 0.127747)
+ (KRN O 77 R 0.127747)
+ (KRN O 41 R 0.127747)
+ (STOP)
+ (LABEL O 47)
+ (LIG O 47 O 21)
+ (KRN O 21 R 0.127747)
+ (KRN O 77 R 0.127747)
+ (KRN O 41 R 0.127747)
+ (STOP)
+ (LABEL O 55)
+ (LIG O 55 O 25)
+ (LIG O 177 O 177)
+ (STOP)
+ (LABEL O 25)
+ (LIG O 55 O 26)
+ (STOP)
+ (LABEL O 74)
+ (LIG O 74 O 23)
+ (STOP)
+ (LABEL O 76)
+ (LIG O 76 O 24)
+ (STOP)
+ (LABEL O 54)
+ (LIG O 54 O 22)
+ (STOP)
+ (LABEL O 41)
+ (LIG O 140 O 275)
+ (STOP)
+ (LABEL O 77)
+ (LIG O 140 O 276)
+ (STOP)
+ (LABEL O 27)
+ (KRN O 20 R 0.09581)
+ (KRN O 21 R 0.09581)
+ (KRN O 22 R 0.09581)
+ (KRN O 55 R 0.09581)
+ (KRN O 140 R 0.09581)
+ (KRN O 47 R 0.09581)
+ (STOP)
+ (LABEL O 22)
+ (KRN O 15 R 0.127747)
+ (KRN O 54 R 0.127747)
+ (LABEL O 15)
+ (KRN O 22 R 0.127747)
+ (KRN C j R 0.127747)
+ (KRN O 32 R 0.127747)
+ (KRN C g R 0.063873)
+ (KRN O 247 R 0.063873)
+ (KRN C y R 0.063873)
+ (KRN O 270 R 0.063873)
+ (KRN O 375 R 0.063873)
+ (KRN C v R -0.09581)
+ (KRN C w R -0.063873)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN O 27 R 0.09581)
+ (STOP)
+ (LABEL O 20)
+ (KRN O 140 R 0.127747)
+ (KRN O 20 R 0.127747)
+ (KRN O 27 R 0.09581)
+ (STOP)
+ (LABEL O 21)
+ (KRN O 47 R 0.127747)
+ (KRN O 21 R 0.127747)
+ (KRN O 27 R 0.09581)
+ (STOP)
+ (LABEL O 24)
+ (KRN O 56 R -0.09581)
+ (KRN O 54 R -0.09581)
+ (STOP)
+ (LABEL C k)
+ (KRN C W R -0.09581)
+ (KRN C V R -0.09581)
+ (LABEL C v)
+ (KRN C a R -0.063873)
+ (KRN O 240 R -0.063873)
+ (KRN O 241 R -0.063873)
+ (KRN O 340 R -0.063873)
+ (KRN O 341 R -0.063873)
+ (KRN O 342 R -0.063873)
+ (KRN O 342 R -0.063873)
+ (KRN O 343 R -0.063873)
+ (KRN O 344 R -0.063873)
+ (KRN O 345 R -0.063873)
+ (KRN O 346 R -0.063873)
+ (LABEL C w)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C a R -0.031937)
+ (KRN O 240 R -0.031937)
+ (KRN O 241 R -0.031937)
+ (KRN O 340 R -0.031937)
+ (KRN O 341 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 343 R -0.031937)
+ (KRN O 344 R -0.031937)
+ (KRN O 345 R -0.031937)
+ (KRN O 346 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ (STOP)
+ (LABEL C P)
+ (KRN C A R -0.09581)
+ (KRN O 200 R -0.09581)
+ (KRN O 201 R -0.09581)
+ (KRN O 300 R -0.09581)
+ (KRN O 301 R -0.09581)
+ (KRN O 302 R -0.09581)
+ (KRN O 303 R -0.09581)
+ (KRN O 304 R -0.09581)
+ (KRN O 305 R -0.09581)
+ (KRN O 306 R -0.09581)
+ (LABEL C y)
+ (LABEL O 270)
+ (LABEL O 375)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C a R -0.031937)
+ (KRN O 240 R -0.031937)
+ (KRN O 241 R -0.031937)
+ (KRN O 340 R -0.031937)
+ (KRN O 341 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 343 R -0.031937)
+ (KRN O 344 R -0.031937)
+ (KRN O 345 R -0.031937)
+ (KRN O 346 R -0.031937)
+ (KRN O 56 R -0.09581)
+ (KRN O 54 R -0.09581)
+ (STOP)
+ (LABEL C F)
+ (LABEL C V)
+ (LABEL C W)
+ (KRN C o R -0.09581)
+ (KRN C a R -0.09581)
+ (KRN C e R -0.09581)
+ (KRN C y R -0.09581)
+ (KRN C u R -0.09581)
+ (KRN C r R -0.09581)
+ (KRN C v R -0.09581)
+ (KRN C s R -0.09581)
+ (KRN C c R -0.09581)
+ (KRN C d R -0.09581)
+ (KRN C g R -0.09581)
+ (KRN C m R -0.09581)
+ (KRN C n R -0.09581)
+ (KRN C p R -0.09581)
+ (KRN C w R -0.09581)
+ (KRN C z R -0.09581)
+ (KRN O 346 R -0.09581)
+ (KRN O 370 R -0.09581)
+ (KRN C A R -0.127747)
+ (KRN O 200 R -0.127747)
+ (KRN O 201 R -0.127747)
+ (KRN O 300 R -0.127747)
+ (KRN O 301 R -0.127747)
+ (KRN O 302 R -0.127747)
+ (KRN O 303 R -0.127747)
+ (KRN O 304 R -0.127747)
+ (KRN O 305 R -0.127747)
+ (KRN O 306 R -0.127747)
+ (LABEL C X)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (STOP)
+ (LABEL C K)
+ (KRN C v R -0.09581)
+ (KRN C w R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (STOP)
+ (LABEL C T)
+ (LABEL O 224)
+ (LABEL O 225)
+ (KRN C y R -0.031937)
+ (LABEL C Y)
+ (LABEL O 230)
+ (LABEL O 335)
+ (KRN C e R -0.09581)
+ (KRN C o R -0.09581)
+ (KRN C r R -0.09581)
+ (KRN C a R -0.09581)
+ (KRN C u R -0.09581)
+ (KRN C n R -0.09581)
+ (KRN O 31 R -0.09581)
+ (KRN C c R -0.09581)
+ (KRN C d R -0.09581)
+ (KRN C g R -0.09581)
+ (KRN C p R -0.09581)
+ (KRN C s R -0.09581)
+ (KRN C v R -0.09581)
+ (KRN C w R -0.09581)
+ (KRN C x R -0.09581)
+ (KRN C z R -0.09581)
+ (KRN C A R -0.09581)
+ (KRN O 200 R -0.09581)
+ (KRN O 201 R -0.09581)
+ (KRN O 300 R -0.09581)
+ (KRN O 301 R -0.09581)
+ (KRN O 302 R -0.09581)
+ (KRN O 303 R -0.09581)
+ (KRN O 304 R -0.09581)
+ (KRN O 305 R -0.09581)
+ (KRN O 306 R -0.09581)
+ (STOP)
+ (LABEL C D)
+ (LABEL C O)
+ (LABEL O 204)
+ (LABEL O 216)
+ (LABEL O 320)
+ (LABEL O 322)
+ (LABEL O 323)
+ (LABEL O 324)
+ (LABEL O 325)
+ (LABEL O 326)
+ (LABEL O 330)
+ (KRN C X R -0.031937)
+ (KRN C W R -0.031937)
+ (KRN C A R -0.031937)
+ (KRN O 200 R -0.031937)
+ (KRN O 201 R -0.031937)
+ (KRN O 300 R -0.031937)
+ (KRN O 301 R -0.031937)
+ (KRN O 302 R -0.031937)
+ (KRN O 303 R -0.031937)
+ (KRN O 304 R -0.031937)
+ (KRN O 305 R -0.031937)
+ (KRN O 306 R -0.031937)
+ (KRN C V R -0.031937)
+ (KRN C Y R -0.031937)
+ (KRN O 230 R -0.031937)
+ (KRN O 335 R -0.031937)
+ (STOP)
+ (LABEL C h)
+ (LABEL C m)
+ (LABEL C n)
+ (KRN C W R -0.09581)
+ (KRN C V R -0.09581)
+ (LABEL O 253)
+ (LABEL O 254)
+ (LABEL O 255)
+ (LABEL O 361)
+ (KRN C t R -0.031937)
+ (KRN C u R -0.031937)
+ (KRN O 266 R -0.031937)
+ (KRN O 267 R -0.031937)
+ (KRN O 371 R -0.031937)
+ (KRN O 372 R -0.031937)
+ (KRN O 373 R -0.031937)
+ (KRN O 374 R -0.031937)
+ (KRN C b R -0.031937)
+ (KRN C y R -0.031937)
+ (KRN C v R -0.031937)
+ (KRN C w R -0.031937)
+ (STOP)
+ (LABEL C c)
+ (LABEL O 242)
+ (LABEL O 243)
+ (LABEL O 347)
+ (KRN C h R -0.031937)
+ (KRN C k R -0.031937)
+ (STOP)
+ (LABEL C b)
+ (LABEL C o)
+ (LABEL C p)
+ (LABEL O 256)
+ (LABEL O 362)
+ (LABEL O 363)
+ (LABEL O 364)
+ (LABEL O 365)
+ (LABEL O 366)
+ (LABEL O 370)
+ (KRN C e R 0.031937)
+ (KRN O 245 R 0.031937)
+ (KRN O 246 R 0.031937)
+ (KRN O 350 R 0.031937)
+ (KRN O 351 R 0.031937)
+ (KRN O 352 R 0.031937)
+ (KRN O 353 R 0.031937)
+ (KRN C o R 0.031937)
+ (KRN O 256 R 0.031937)
+ (KRN O 362 R 0.031937)
+ (KRN O 363 R 0.031937)
+ (KRN O 364 R 0.031937)
+ (KRN O 365 R 0.031937)
+ (KRN O 366 R 0.031937)
+ (KRN O 367 R 0.031937)
+ (KRN O 370 R 0.031937)
+ (KRN C x R -0.031937)
+ (KRN C d R 0.031937)
+ (KRN C c R 0.031937)
+ (KRN O 242 R 0.031937)
+ (KRN O 243 R 0.031937)
+ (KRN O 347 R 0.031937)
+ (KRN C q R 0.031937)
+ (LABEL C a)
+ (LABEL O 240)
+ (LABEL O 340)
+ (LABEL O 341)
+ (LABEL O 342)
+ (LABEL O 343)
+ (LABEL O 344)
+ (LABEL O 345)
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (LABEL C t)
+ (LABEL O 264)
+ (LABEL O 265)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (LABEL C u)
+ (LABEL O 266)
+ (LABEL O 267)
+ (LABEL O 371)
+ (LABEL O 372)
+ (LABEL O 373)
+ (LABEL O 374)
+ (KRN C w R -0.031937)
+ (STOP)
+ (LABEL C A)
+ (LABEL O 200)
+ (LABEL O 300)
+ (LABEL O 301)
+ (LABEL O 302)
+ (LABEL O 303)
+ (LABEL O 304)
+ (LABEL O 305)
+ (KRN C y R -0.09581)
+ (KRN O 270 R -0.09581)
+ (KRN O 375 R -0.09581)
+ (LABEL O 202)
+ (KRN C v R -0.127747)
+ (KRN C w R -0.09581)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ (KRN C d R -0.031937)
+ (KRN O 244 R -0.031937)
+ (KRN O 236 R -0.031937)
+ (KRN O 360 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C q R -0.031937)
+ (LABEL C R)
+ (LABEL O 217)
+ (KRN C t R -0.031937)
+ (KRN O 264 R -0.031937)
+ (KRN O 265 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C U R -0.031937)
+ (KRN O 226 R -0.031937)
+ (KRN O 227 R -0.031937)
+ (KRN O 331 R -0.031937)
+ (KRN O 332 R -0.031937)
+ (KRN O 333 R -0.031937)
+ (KRN O 334 R -0.031937)
+ (LABEL C L)
+ (LABEL O 210)
+ (LABEL O 211)
+ (LABEL O 212)
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ (STOP)
+ (LABEL C g)
+ (KRN C j R 0.031937)
+ (STOP)
+ (LABEL C I)
+ (KRN C I R 0.031937)
+ (STOP)
+ (LABEL C e)
+ (KRN C V R -0.09581)
+ (STOP)
+ (LABEL O 241)
+ (KRN C g R 0.031937)
+ (KRN C p R 0.031937)
+ (KRN C w R -0.031937)
+ (STOP)
+ (LABEL O 252)
+ (KRN O 47 R 0.031937)
+ (STOP)
+ )
+(CHARACTER O 0
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 1
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 2
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 3
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 4
+ (CHARWD R 0.57486)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 5
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ (CHARIC R 0.014811)
+ )
+(CHARACTER O 6
+ (CHARWD R 0.869232)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 7
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 10
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 11
+ (CHARWD R 0.57486)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 12
+ (CHARWD R 0.319366)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 13
+ (CHARWD R 0.510986)
+ (CHARDP R 0.170097)
+ )
+(CHARACTER O 14
+ (CHARWD R 0.319366)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 15
+ (CHARWD R 0.319366)
+ (CHARHT R 0.155518)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN O 22 R 0.127747)
+ (KRN C j R 0.127747)
+ (KRN O 32 R 0.127747)
+ (KRN C g R 0.063873)
+ (KRN O 247 R 0.063873)
+ (KRN C y R 0.063873)
+ (KRN O 270 R 0.063873)
+ (KRN O 375 R 0.063873)
+ (KRN C v R -0.09581)
+ (KRN C w R -0.063873)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN O 27 R 0.09581)
+ )
+ )
+(CHARACTER O 16
+ (CHARWD R 0.510986)
+ (CHARHT R 0.472107)
+ )
+(CHARACTER O 17
+ (CHARWD R 0.510986)
+ (CHARHT R 0.472107)
+ )
+(CHARACTER O 20
+ (CHARWD R 0.411011)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN O 140 R 0.127747)
+ (KRN O 20 R 0.127747)
+ (KRN O 27 R 0.09581)
+ )
+ )
+(CHARACTER O 21
+ (CHARWD R 0.411011)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN O 47 R 0.127747)
+ (KRN O 21 R 0.127747)
+ (KRN O 27 R 0.09581)
+ )
+ )
+(CHARACTER O 22
+ (CHARWD R 0.411011)
+ (CHARHT R 0.155518)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN O 15 R 0.127747)
+ (KRN O 54 R 0.127747)
+ (KRN O 22 R 0.127747)
+ (KRN C j R 0.127747)
+ (KRN O 32 R 0.127747)
+ (KRN C g R 0.063873)
+ (KRN O 247 R 0.063873)
+ (KRN C y R 0.063873)
+ (KRN O 270 R 0.063873)
+ (KRN O 375 R 0.063873)
+ (KRN C v R -0.09581)
+ (KRN C w R -0.063873)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN O 27 R 0.09581)
+ )
+ )
+(CHARACTER O 23
+ (CHARWD R 0.638733)
+ (CHARHT R 0.472107)
+ )
+(CHARACTER O 24
+ (CHARWD R 0.638733)
+ (CHARHT R 0.472107)
+ (COMMENT
+ (KRN O 56 R -0.09581)
+ (KRN O 54 R -0.09581)
+ )
+ )
+(CHARACTER O 25
+ (CHARWD R 0.57486)
+ (CHARHT R 0.444336)
+ (CHARIC R 0.031937)
+ (COMMENT
+ (LIG O 55 O 26)
+ )
+ )
+(CHARACTER O 26
+ (CHARWD R 1.149719)
+ (CHARHT R 0.444336)
+ (CHARIC R 0.031937)
+ )
+(CHARACTER O 27
+ (CHARWD R 0.0)
+ (CHARHT R 0.444336)
+ (COMMENT
+ (KRN O 20 R 0.09581)
+ (KRN O 21 R 0.09581)
+ (KRN O 22 R 0.09581)
+ (KRN O 55 R 0.09581)
+ (KRN O 140 R 0.09581)
+ (KRN O 47 R 0.09581)
+ )
+ )
+(CHARACTER O 30
+ (CHARWD R 0.447113)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.055542)
+ )
+(CHARACTER O 31
+ (CHARWD R 0.319366)
+ (CHARHT R 0.444336)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.351303)
+ (CHARHT R 0.444336)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 33
+ (CHARWD R 0.67067)
+ (CHARHT R 0.690109)
+ (CHARIC R 0.109001)
+ (COMMENT
+ (LIG C i O 36)
+ (LIG C l O 37)
+ (KRN O 47 R 0.109001)
+ (KRN O 140 R 0.109001)
+ (KRN O 20 R 0.109001)
+ (KRN O 21 R 0.109001)
+ (KRN O 77 R 0.109001)
+ (KRN O 41 R 0.109001)
+ (KRN O 51 R 0.109001)
+ (KRN O 135 R 0.109001)
+ )
+ )
+(CHARACTER O 34
+ (CHARWD R 0.638733)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 35
+ (CHARWD R 0.638733)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 36
+ (CHARWD R 0.958099)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 37
+ (CHARWD R 0.958099)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 40
+ (CHARWD R 0.57486)
+ (CHARHT R 0.444336)
+ (CHARDP R 0.0971985)
+ )
+(CHARACTER O 41
+ (CHARWD R 0.349915)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (LIG O 140 O 275)
+ )
+ )
+(CHARACTER O 42
+ (CHARWD R 0.57486)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 43
+ (CHARWD R 0.958099)
+ (CHARHT R 0.690109)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 44
+ (CHARWD R 0.57486)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.055542)
+ )
+(CHARACTER O 45
+ (CHARWD R 0.958099)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.055542)
+ )
+(CHARACTER O 46
+ (CHARWD R 0.894226)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 47
+ (CHARWD R 0.319366)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (LIG O 47 O 21)
+ (KRN O 21 R 0.127747)
+ (KRN O 77 R 0.127747)
+ (KRN O 41 R 0.127747)
+ )
+ )
+(CHARACTER O 50
+ (CHARWD R 0.447113)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 51
+ (CHARWD R 0.447113)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 52
+ (CHARWD R 0.57486)
+ (CHARHT R 0.749817)
+ )
+(CHARACTER O 53
+ (CHARWD R 0.894226)
+ (CHARHT R 0.633972)
+ (CHARDP R 0.133301)
+ )
+(CHARACTER O 54
+ (CHARWD R 0.319366)
+ (CHARHT R 0.155518)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (LIG O 54 O 22)
+ )
+ )
+(CHARACTER O 55
+ (CHARWD R 0.38324)
+ (CHARHT R 0.444336)
+ (COMMENT
+ (LIG O 55 O 25)
+ (LIG O 177 O 177)
+ )
+ )
+(CHARACTER O 56
+ (CHARWD R 0.319366)
+ (CHARHT R 0.155518)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.57486)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER C 0
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER C 1
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER C 2
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER C 3
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER C 4
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER C 5
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER C 6
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER C 7
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER C 8
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER C 9
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.319366)
+ (CHARHT R 0.444336)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.319366)
+ (CHARHT R 0.444336)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.894226)
+ (CHARHT R 0.585421)
+ (CHARDP R 0.085543)
+ (COMMENT
+ (LIG O 74 O 23)
+ )
+ )
+(CHARACTER O 75
+ (CHARWD R 0.894226)
+ (CHARHT R 0.391024)
+ (CHARDP R -0.108854)
+ )
+(CHARACTER O 76
+ (CHARWD R 0.894226)
+ (CHARHT R 0.585421)
+ (CHARDP R 0.085543)
+ (COMMENT
+ (LIG O 76 O 24)
+ )
+ )
+(CHARACTER O 77
+ (CHARWD R 0.542923)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (LIG O 140 O 276)
+ )
+ )
+(CHARACTER O 100
+ (CHARWD R 0.894226)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C A
+ (CHARWD R 0.869232)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C y R -0.09581)
+ (KRN O 270 R -0.09581)
+ (KRN O 375 R -0.09581)
+ (KRN C v R -0.127747)
+ (KRN C w R -0.09581)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ (KRN C d R -0.031937)
+ (KRN O 244 R -0.031937)
+ (KRN O 236 R -0.031937)
+ (KRN O 360 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C q R -0.031937)
+ (KRN C t R -0.031937)
+ (KRN O 264 R -0.031937)
+ (KRN O 265 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C U R -0.031937)
+ (KRN O 226 R -0.031937)
+ (KRN O 227 R -0.031937)
+ (KRN O 331 R -0.031937)
+ (KRN O 332 R -0.031937)
+ (KRN O 333 R -0.031937)
+ (KRN O 334 R -0.031937)
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER C B
+ (CHARWD R 0.817856)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C C
+ (CHARWD R 0.830353)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C D
+ (CHARWD R 0.881729)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C X R -0.031937)
+ (KRN C W R -0.031937)
+ (KRN C A R -0.031937)
+ (KRN O 200 R -0.031937)
+ (KRN O 201 R -0.031937)
+ (KRN O 300 R -0.031937)
+ (KRN O 301 R -0.031937)
+ (KRN O 302 R -0.031937)
+ (KRN O 303 R -0.031937)
+ (KRN O 304 R -0.031937)
+ (KRN O 305 R -0.031937)
+ (KRN O 306 R -0.031937)
+ (KRN C V R -0.031937)
+ (KRN C Y R -0.031937)
+ (KRN O 230 R -0.031937)
+ (KRN O 335 R -0.031937)
+ )
+ )
+(CHARACTER C E
+ (CHARWD R 0.755371)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C F
+ (CHARWD R 0.723434)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C o R -0.09581)
+ (KRN C a R -0.09581)
+ (KRN C e R -0.09581)
+ (KRN C y R -0.09581)
+ (KRN C u R -0.09581)
+ (KRN C r R -0.09581)
+ (KRN C v R -0.09581)
+ (KRN C s R -0.09581)
+ (KRN C c R -0.09581)
+ (KRN C d R -0.09581)
+ (KRN C g R -0.09581)
+ (KRN C m R -0.09581)
+ (KRN C n R -0.09581)
+ (KRN C p R -0.09581)
+ (KRN C w R -0.09581)
+ (KRN C z R -0.09581)
+ (KRN O 346 R -0.09581)
+ (KRN O 370 R -0.09581)
+ (KRN C A R -0.127747)
+ (KRN O 200 R -0.127747)
+ (KRN O 201 R -0.127747)
+ (KRN O 300 R -0.127747)
+ (KRN O 301 R -0.127747)
+ (KRN O 302 R -0.127747)
+ (KRN O 303 R -0.127747)
+ (KRN O 304 R -0.127747)
+ (KRN O 305 R -0.127747)
+ (KRN O 306 R -0.127747)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ )
+ )
+(CHARACTER C G
+ (CHARWD R 0.903946)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C H
+ (CHARWD R 0.89978)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C I
+ (CHARWD R 0.436005)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C I R 0.031937)
+ )
+ )
+(CHARACTER C J
+ (CHARWD R 0.594299)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C K
+ (CHARWD R 0.901169)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C v R -0.09581)
+ (KRN C w R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ )
+ )
+(CHARACTER C L
+ (CHARWD R 0.691498)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER C M
+ (CHARWD R 1.0914)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C N
+ (CHARWD R 0.89978)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C O
+ (CHARWD R 0.863678)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C X R -0.031937)
+ (KRN C W R -0.031937)
+ (KRN C A R -0.031937)
+ (KRN O 200 R -0.031937)
+ (KRN O 201 R -0.031937)
+ (KRN O 300 R -0.031937)
+ (KRN O 301 R -0.031937)
+ (KRN O 302 R -0.031937)
+ (KRN O 303 R -0.031937)
+ (KRN O 304 R -0.031937)
+ (KRN O 305 R -0.031937)
+ (KRN O 306 R -0.031937)
+ (KRN C V R -0.031937)
+ (KRN C Y R -0.031937)
+ (KRN O 230 R -0.031937)
+ (KRN O 335 R -0.031937)
+ )
+ )
+(CHARACTER C P
+ (CHARWD R 0.785919)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C A R -0.09581)
+ (KRN O 200 R -0.09581)
+ (KRN O 201 R -0.09581)
+ (KRN O 300 R -0.09581)
+ (KRN O 301 R -0.09581)
+ (KRN O 302 R -0.09581)
+ (KRN O 303 R -0.09581)
+ (KRN O 304 R -0.09581)
+ (KRN O 305 R -0.09581)
+ (KRN O 306 R -0.09581)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C a R -0.031937)
+ (KRN O 240 R -0.031937)
+ (KRN O 241 R -0.031937)
+ (KRN O 340 R -0.031937)
+ (KRN O 341 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 343 R -0.031937)
+ (KRN O 344 R -0.031937)
+ (KRN O 345 R -0.031937)
+ (KRN O 346 R -0.031937)
+ (KRN O 56 R -0.09581)
+ (KRN O 54 R -0.09581)
+ )
+ )
+(CHARACTER C Q
+ (CHARWD R 0.863678)
+ (CHARHT R 0.690109)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER C R
+ (CHARWD R 0.862289)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C t R -0.031937)
+ (KRN O 264 R -0.031937)
+ (KRN O 265 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C U R -0.031937)
+ (KRN O 226 R -0.031937)
+ (KRN O 227 R -0.031937)
+ (KRN O 331 R -0.031937)
+ (KRN O 332 R -0.031937)
+ (KRN O 333 R -0.031937)
+ (KRN O 334 R -0.031937)
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER C S
+ (CHARWD R 0.638733)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C T
+ (CHARWD R 0.799805)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C y R -0.031937)
+ (KRN C e R -0.09581)
+ (KRN C o R -0.09581)
+ (KRN C r R -0.09581)
+ (KRN C a R -0.09581)
+ (KRN C u R -0.09581)
+ (KRN C n R -0.09581)
+ (KRN O 31 R -0.09581)
+ (KRN C c R -0.09581)
+ (KRN C d R -0.09581)
+ (KRN C g R -0.09581)
+ (KRN C p R -0.09581)
+ (KRN C s R -0.09581)
+ (KRN C v R -0.09581)
+ (KRN C w R -0.09581)
+ (KRN C x R -0.09581)
+ (KRN C z R -0.09581)
+ (KRN C A R -0.09581)
+ (KRN O 200 R -0.09581)
+ (KRN O 201 R -0.09581)
+ (KRN O 300 R -0.09581)
+ (KRN O 301 R -0.09581)
+ (KRN O 302 R -0.09581)
+ (KRN O 303 R -0.09581)
+ (KRN O 304 R -0.09581)
+ (KRN O 305 R -0.09581)
+ (KRN O 306 R -0.09581)
+ )
+ )
+(CHARACTER C U
+ (CHARWD R 0.884506)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C V
+ (CHARWD R 0.869232)
+ (CHARHT R 0.690109)
+ (CHARIC R 0.015968)
+ (COMMENT
+ (KRN C o R -0.09581)
+ (KRN C a R -0.09581)
+ (KRN C e R -0.09581)
+ (KRN C y R -0.09581)
+ (KRN C u R -0.09581)
+ (KRN C r R -0.09581)
+ (KRN C v R -0.09581)
+ (KRN C s R -0.09581)
+ (KRN C c R -0.09581)
+ (KRN C d R -0.09581)
+ (KRN C g R -0.09581)
+ (KRN C m R -0.09581)
+ (KRN C n R -0.09581)
+ (KRN C p R -0.09581)
+ (KRN C w R -0.09581)
+ (KRN C z R -0.09581)
+ (KRN O 346 R -0.09581)
+ (KRN O 370 R -0.09581)
+ (KRN C A R -0.127747)
+ (KRN O 200 R -0.127747)
+ (KRN O 201 R -0.127747)
+ (KRN O 300 R -0.127747)
+ (KRN O 301 R -0.127747)
+ (KRN O 302 R -0.127747)
+ (KRN O 303 R -0.127747)
+ (KRN O 304 R -0.127747)
+ (KRN O 305 R -0.127747)
+ (KRN O 306 R -0.127747)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ )
+ )
+(CHARACTER C W
+ (CHARWD R 1.188599)
+ (CHARHT R 0.690109)
+ (CHARIC R 0.015968)
+ (COMMENT
+ (KRN C o R -0.09581)
+ (KRN C a R -0.09581)
+ (KRN C e R -0.09581)
+ (KRN C y R -0.09581)
+ (KRN C u R -0.09581)
+ (KRN C r R -0.09581)
+ (KRN C v R -0.09581)
+ (KRN C s R -0.09581)
+ (KRN C c R -0.09581)
+ (KRN C d R -0.09581)
+ (KRN C g R -0.09581)
+ (KRN C m R -0.09581)
+ (KRN C n R -0.09581)
+ (KRN C p R -0.09581)
+ (KRN C w R -0.09581)
+ (KRN C z R -0.09581)
+ (KRN O 346 R -0.09581)
+ (KRN O 370 R -0.09581)
+ (KRN C A R -0.127747)
+ (KRN O 200 R -0.127747)
+ (KRN O 201 R -0.127747)
+ (KRN O 300 R -0.127747)
+ (KRN O 301 R -0.127747)
+ (KRN O 302 R -0.127747)
+ (KRN O 303 R -0.127747)
+ (KRN O 304 R -0.127747)
+ (KRN O 305 R -0.127747)
+ (KRN O 306 R -0.127747)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ )
+ )
+(CHARACTER C X
+ (CHARWD R 0.869232)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ )
+ )
+(CHARACTER C Y
+ (CHARWD R 0.869232)
+ (CHARHT R 0.690109)
+ (CHARIC R 0.028743)
+ (COMMENT
+ (KRN C e R -0.09581)
+ (KRN C o R -0.09581)
+ (KRN C r R -0.09581)
+ (KRN C a R -0.09581)
+ (KRN C u R -0.09581)
+ (KRN C n R -0.09581)
+ (KRN O 31 R -0.09581)
+ (KRN C c R -0.09581)
+ (KRN C d R -0.09581)
+ (KRN C g R -0.09581)
+ (KRN C p R -0.09581)
+ (KRN C s R -0.09581)
+ (KRN C v R -0.09581)
+ (KRN C w R -0.09581)
+ (KRN C x R -0.09581)
+ (KRN C z R -0.09581)
+ (KRN C A R -0.09581)
+ (KRN O 200 R -0.09581)
+ (KRN O 201 R -0.09581)
+ (KRN O 300 R -0.09581)
+ (KRN O 301 R -0.09581)
+ (KRN O 302 R -0.09581)
+ (KRN O 303 R -0.09581)
+ (KRN O 304 R -0.09581)
+ (KRN O 305 R -0.09581)
+ (KRN O 306 R -0.09581)
+ )
+ )
+(CHARACTER C Z
+ (CHARWD R 0.702606)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 133
+ (CHARWD R 0.319366)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.57486)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.319366)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 136
+ (CHARWD R 0.702606)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 137
+ (CHARWD R 0.894226)
+ (CHARDP R 0.307711)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.319366)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (LIG O 140 O 20)
+ (KRN O 20 R 0.127747)
+ (KRN O 77 R 0.127747)
+ (KRN O 41 R 0.127747)
+ )
+ )
+(CHARACTER C a
+ (CHARWD R 0.558891)
+ (CHARHT R 0.444336)
+ (COMMENT
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER C b
+ (CHARWD R 0.638733)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C e R 0.031937)
+ (KRN O 245 R 0.031937)
+ (KRN O 246 R 0.031937)
+ (KRN O 350 R 0.031937)
+ (KRN O 351 R 0.031937)
+ (KRN O 352 R 0.031937)
+ (KRN O 353 R 0.031937)
+ (KRN C o R 0.031937)
+ (KRN O 256 R 0.031937)
+ (KRN O 362 R 0.031937)
+ (KRN O 363 R 0.031937)
+ (KRN O 364 R 0.031937)
+ (KRN O 365 R 0.031937)
+ (KRN O 366 R 0.031937)
+ (KRN O 367 R 0.031937)
+ (KRN O 370 R 0.031937)
+ (KRN C x R -0.031937)
+ (KRN C d R 0.031937)
+ (KRN C c R 0.031937)
+ (KRN O 242 R 0.031937)
+ (KRN O 243 R 0.031937)
+ (KRN O 347 R 0.031937)
+ (KRN C q R 0.031937)
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER C c
+ (CHARWD R 0.510986)
+ (CHARHT R 0.444336)
+ (COMMENT
+ (KRN C h R -0.031937)
+ (KRN C k R -0.031937)
+ )
+ )
+(CHARACTER C d
+ (CHARWD R 0.638733)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C e
+ (CHARWD R 0.526955)
+ (CHARHT R 0.444336)
+ (COMMENT
+ (KRN C V R -0.09581)
+ )
+ )
+(CHARACTER C f
+ (CHARWD R 0.351303)
+ (CHARHT R 0.690109)
+ (CHARIC R 0.109001)
+ (COMMENT
+ (LIG C i O 34)
+ (LIG C f O 33)
+ (LIG C l O 35)
+ (KRN O 47 R 0.109001)
+ (KRN O 140 R 0.109001)
+ (KRN O 20 R 0.109001)
+ (KRN O 21 R 0.109001)
+ (KRN O 77 R 0.109001)
+ (KRN O 41 R 0.109001)
+ (KRN O 51 R 0.109001)
+ (KRN O 135 R 0.109001)
+ )
+ )
+(CHARACTER C g
+ (CHARWD R 0.57486)
+ (CHARHT R 0.444336)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.015968)
+ (COMMENT
+ (KRN C j R 0.031937)
+ )
+ )
+(CHARACTER C h
+ (CHARWD R 0.638733)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C W R -0.09581)
+ (KRN C V R -0.09581)
+ (KRN C t R -0.031937)
+ (KRN C u R -0.031937)
+ (KRN O 266 R -0.031937)
+ (KRN O 267 R -0.031937)
+ (KRN O 371 R -0.031937)
+ (KRN O 372 R -0.031937)
+ (KRN O 373 R -0.031937)
+ (KRN O 374 R -0.031937)
+ (KRN C b R -0.031937)
+ (KRN C y R -0.031937)
+ (KRN C v R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER C i
+ (CHARWD R 0.319366)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C j
+ (CHARWD R 0.351303)
+ (CHARHT R 0.690109)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER C k
+ (CHARWD R 0.606796)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C W R -0.09581)
+ (KRN C V R -0.09581)
+ (KRN C a R -0.063873)
+ (KRN O 240 R -0.063873)
+ (KRN O 241 R -0.063873)
+ (KRN O 340 R -0.063873)
+ (KRN O 341 R -0.063873)
+ (KRN O 342 R -0.063873)
+ (KRN O 342 R -0.063873)
+ (KRN O 343 R -0.063873)
+ (KRN O 344 R -0.063873)
+ (KRN O 345 R -0.063873)
+ (KRN O 346 R -0.063873)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C a R -0.031937)
+ (KRN O 240 R -0.031937)
+ (KRN O 241 R -0.031937)
+ (KRN O 340 R -0.031937)
+ (KRN O 341 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 343 R -0.031937)
+ (KRN O 344 R -0.031937)
+ (KRN O 345 R -0.031937)
+ (KRN O 346 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ )
+ )
+(CHARACTER C l
+ (CHARWD R 0.319366)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER C m
+ (CHARWD R 0.958099)
+ (CHARHT R 0.444336)
+ (COMMENT
+ (KRN C W R -0.09581)
+ (KRN C V R -0.09581)
+ (KRN C t R -0.031937)
+ (KRN C u R -0.031937)
+ (KRN O 266 R -0.031937)
+ (KRN O 267 R -0.031937)
+ (KRN O 371 R -0.031937)
+ (KRN O 372 R -0.031937)
+ (KRN O 373 R -0.031937)
+ (KRN O 374 R -0.031937)
+ (KRN C b R -0.031937)
+ (KRN C y R -0.031937)
+ (KRN C v R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER C n
+ (CHARWD R 0.638733)
+ (CHARHT R 0.444336)
+ (COMMENT
+ (KRN C W R -0.09581)
+ (KRN C V R -0.09581)
+ (KRN C t R -0.031937)
+ (KRN C u R -0.031937)
+ (KRN O 266 R -0.031937)
+ (KRN O 267 R -0.031937)
+ (KRN O 371 R -0.031937)
+ (KRN O 372 R -0.031937)
+ (KRN O 373 R -0.031937)
+ (KRN O 374 R -0.031937)
+ (KRN C b R -0.031937)
+ (KRN C y R -0.031937)
+ (KRN C v R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER C o
+ (CHARWD R 0.57486)
+ (CHARHT R 0.444336)
+ (COMMENT
+ (KRN C e R 0.031937)
+ (KRN O 245 R 0.031937)
+ (KRN O 246 R 0.031937)
+ (KRN O 350 R 0.031937)
+ (KRN O 351 R 0.031937)
+ (KRN O 352 R 0.031937)
+ (KRN O 353 R 0.031937)
+ (KRN C o R 0.031937)
+ (KRN O 256 R 0.031937)
+ (KRN O 362 R 0.031937)
+ (KRN O 363 R 0.031937)
+ (KRN O 364 R 0.031937)
+ (KRN O 365 R 0.031937)
+ (KRN O 366 R 0.031937)
+ (KRN O 367 R 0.031937)
+ (KRN O 370 R 0.031937)
+ (KRN C x R -0.031937)
+ (KRN C d R 0.031937)
+ (KRN C c R 0.031937)
+ (KRN O 242 R 0.031937)
+ (KRN O 243 R 0.031937)
+ (KRN O 347 R 0.031937)
+ (KRN C q R 0.031937)
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER C p
+ (CHARWD R 0.638733)
+ (CHARHT R 0.444336)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN C e R 0.031937)
+ (KRN O 245 R 0.031937)
+ (KRN O 246 R 0.031937)
+ (KRN O 350 R 0.031937)
+ (KRN O 351 R 0.031937)
+ (KRN O 352 R 0.031937)
+ (KRN O 353 R 0.031937)
+ (KRN C o R 0.031937)
+ (KRN O 256 R 0.031937)
+ (KRN O 362 R 0.031937)
+ (KRN O 363 R 0.031937)
+ (KRN O 364 R 0.031937)
+ (KRN O 365 R 0.031937)
+ (KRN O 366 R 0.031937)
+ (KRN O 367 R 0.031937)
+ (KRN O 370 R 0.031937)
+ (KRN C x R -0.031937)
+ (KRN C d R 0.031937)
+ (KRN C c R 0.031937)
+ (KRN O 242 R 0.031937)
+ (KRN O 243 R 0.031937)
+ (KRN O 347 R 0.031937)
+ (KRN C q R 0.031937)
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER C q
+ (CHARWD R 0.606796)
+ (CHARHT R 0.444336)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER C r
+ (CHARWD R 0.4734955)
+ (CHARHT R 0.444336)
+ )
+(CHARACTER C s
+ (CHARWD R 0.453501)
+ (CHARHT R 0.444336)
+ )
+(CHARACTER C t
+ (CHARWD R 0.447113)
+ (CHARHT R 0.633972)
+ (COMMENT
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER C u
+ (CHARWD R 0.638733)
+ (CHARHT R 0.444336)
+ (COMMENT
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER C v
+ (CHARWD R 0.606796)
+ (CHARHT R 0.444336)
+ (CHARIC R 0.015968)
+ (COMMENT
+ (KRN C a R -0.063873)
+ (KRN O 240 R -0.063873)
+ (KRN O 241 R -0.063873)
+ (KRN O 340 R -0.063873)
+ (KRN O 341 R -0.063873)
+ (KRN O 342 R -0.063873)
+ (KRN O 342 R -0.063873)
+ (KRN O 343 R -0.063873)
+ (KRN O 344 R -0.063873)
+ (KRN O 345 R -0.063873)
+ (KRN O 346 R -0.063873)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C a R -0.031937)
+ (KRN O 240 R -0.031937)
+ (KRN O 241 R -0.031937)
+ (KRN O 340 R -0.031937)
+ (KRN O 341 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 343 R -0.031937)
+ (KRN O 344 R -0.031937)
+ (KRN O 345 R -0.031937)
+ (KRN O 346 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ )
+ )
+(CHARACTER C w
+ (CHARWD R 0.830353)
+ (CHARHT R 0.444336)
+ (CHARIC R 0.015968)
+ (COMMENT
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C a R -0.031937)
+ (KRN O 240 R -0.031937)
+ (KRN O 241 R -0.031937)
+ (KRN O 340 R -0.031937)
+ (KRN O 341 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 343 R -0.031937)
+ (KRN O 344 R -0.031937)
+ (KRN O 345 R -0.031937)
+ (KRN O 346 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ )
+ )
+(CHARACTER C x
+ (CHARWD R 0.606796)
+ (CHARHT R 0.444336)
+ )
+(CHARACTER C y
+ (CHARWD R 0.606796)
+ (CHARHT R 0.444336)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.015968)
+ (COMMENT
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C a R -0.031937)
+ (KRN O 240 R -0.031937)
+ (KRN O 241 R -0.031937)
+ (KRN O 340 R -0.031937)
+ (KRN O 341 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 343 R -0.031937)
+ (KRN O 344 R -0.031937)
+ (KRN O 345 R -0.031937)
+ (KRN O 346 R -0.031937)
+ (KRN O 56 R -0.09581)
+ (KRN O 54 R -0.09581)
+ )
+ )
+(CHARACTER C z
+ (CHARWD R 0.510986)
+ (CHARHT R 0.444336)
+ )
+(CHARACTER O 173
+ (CHARWD R 0.57486)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 174
+ (CHARWD R 0.319366)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 175
+ (CHARWD R 0.57486)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 176
+ (CHARWD R 0.702606)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 177
+ (CHARWD R 0.19162)
+ (CHARHT R 0.444336)
+ )
+(CHARACTER O 200
+ (CHARWD R 0.869232)
+ (CHARHT R 0.894226)
+ (COMMENT
+ (KRN C y R -0.09581)
+ (KRN O 270 R -0.09581)
+ (KRN O 375 R -0.09581)
+ (KRN C v R -0.127747)
+ (KRN C w R -0.09581)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ (KRN C d R -0.031937)
+ (KRN O 244 R -0.031937)
+ (KRN O 236 R -0.031937)
+ (KRN O 360 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C q R -0.031937)
+ (KRN C t R -0.031937)
+ (KRN O 264 R -0.031937)
+ (KRN O 265 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C U R -0.031937)
+ (KRN O 226 R -0.031937)
+ (KRN O 227 R -0.031937)
+ (KRN O 331 R -0.031937)
+ (KRN O 332 R -0.031937)
+ (KRN O 333 R -0.031937)
+ (KRN O 334 R -0.031937)
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER O 201
+ (CHARWD R 0.869232)
+ (CHARHT R 0.690109)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 202
+ (CHARWD R 0.830353)
+ (CHARHT R 0.876248)
+ (COMMENT
+ (KRN C v R -0.127747)
+ (KRN C w R -0.09581)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ (KRN C d R -0.031937)
+ (KRN O 244 R -0.031937)
+ (KRN O 236 R -0.031937)
+ (KRN O 360 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C q R -0.031937)
+ (KRN C t R -0.031937)
+ (KRN O 264 R -0.031937)
+ (KRN O 265 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C U R -0.031937)
+ (KRN O 226 R -0.031937)
+ (KRN O 227 R -0.031937)
+ (KRN O 331 R -0.031937)
+ (KRN O 332 R -0.031937)
+ (KRN O 333 R -0.031937)
+ (KRN O 334 R -0.031937)
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER O 203
+ (CHARWD R 0.830353)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 204
+ (CHARWD R 0.881729)
+ (CHARHT R 0.894226)
+ (COMMENT
+ (KRN C X R -0.031937)
+ (KRN C W R -0.031937)
+ (KRN C A R -0.031937)
+ (KRN O 200 R -0.031937)
+ (KRN O 201 R -0.031937)
+ (KRN O 300 R -0.031937)
+ (KRN O 301 R -0.031937)
+ (KRN O 302 R -0.031937)
+ (KRN O 303 R -0.031937)
+ (KRN O 304 R -0.031937)
+ (KRN O 305 R -0.031937)
+ (KRN O 306 R -0.031937)
+ (KRN C V R -0.031937)
+ (KRN C Y R -0.031937)
+ (KRN O 230 R -0.031937)
+ (KRN O 335 R -0.031937)
+ )
+ )
+(CHARACTER O 205
+ (CHARWD R 0.755371)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 206
+ (CHARWD R 0.755371)
+ (CHARHT R 0.690109)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 207
+ (CHARWD R 0.903946)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 210
+ (CHARWD R 0.691498)
+ (CHARHT R 0.876248)
+ (COMMENT
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER O 211
+ (CHARWD R 0.691498)
+ (CHARHT R 0.894226)
+ (COMMENT
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER O 212
+ (CHARWD R 0.691498)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER O 213
+ (CHARWD R 0.89978)
+ (CHARHT R 0.876248)
+ )
+(CHARACTER O 214
+ (CHARWD R 0.89978)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 215
+ (CHARWD R 0.913666)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 216
+ (CHARWD R 0.863678)
+ (CHARHT R 0.876248)
+ (COMMENT
+ (KRN C X R -0.031937)
+ (KRN C W R -0.031937)
+ (KRN C A R -0.031937)
+ (KRN O 200 R -0.031937)
+ (KRN O 201 R -0.031937)
+ (KRN O 300 R -0.031937)
+ (KRN O 301 R -0.031937)
+ (KRN O 302 R -0.031937)
+ (KRN O 303 R -0.031937)
+ (KRN O 304 R -0.031937)
+ (KRN O 305 R -0.031937)
+ (KRN O 306 R -0.031937)
+ (KRN C V R -0.031937)
+ (KRN C Y R -0.031937)
+ (KRN O 230 R -0.031937)
+ (KRN O 335 R -0.031937)
+ )
+ )
+(CHARACTER O 217
+ (CHARWD R 0.862289)
+ (CHARHT R 0.876248)
+ (COMMENT
+ (KRN C t R -0.031937)
+ (KRN O 264 R -0.031937)
+ (KRN O 265 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C U R -0.031937)
+ (KRN O 226 R -0.031937)
+ (KRN O 227 R -0.031937)
+ (KRN O 331 R -0.031937)
+ (KRN O 332 R -0.031937)
+ (KRN O 333 R -0.031937)
+ (KRN O 334 R -0.031937)
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER O 220
+ (CHARWD R 0.862289)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 221
+ (CHARWD R 0.638733)
+ (CHARHT R 0.876248)
+ )
+(CHARACTER O 222
+ (CHARWD R 0.638733)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 223
+ (CHARWD R 0.638733)
+ (CHARHT R 0.690109)
+ (CHARDP R 0.170097)
+ )
+(CHARACTER O 224
+ (CHARWD R 0.799805)
+ (CHARHT R 0.894226)
+ (COMMENT
+ (KRN C y R -0.031937)
+ (KRN C e R -0.09581)
+ (KRN C o R -0.09581)
+ (KRN C r R -0.09581)
+ (KRN C a R -0.09581)
+ (KRN C u R -0.09581)
+ (KRN C n R -0.09581)
+ (KRN O 31 R -0.09581)
+ (KRN C c R -0.09581)
+ (KRN C d R -0.09581)
+ (KRN C g R -0.09581)
+ (KRN C p R -0.09581)
+ (KRN C s R -0.09581)
+ (KRN C v R -0.09581)
+ (KRN C w R -0.09581)
+ (KRN C x R -0.09581)
+ (KRN C z R -0.09581)
+ (KRN C A R -0.09581)
+ (KRN O 200 R -0.09581)
+ (KRN O 201 R -0.09581)
+ (KRN O 300 R -0.09581)
+ (KRN O 301 R -0.09581)
+ (KRN O 302 R -0.09581)
+ (KRN O 303 R -0.09581)
+ (KRN O 304 R -0.09581)
+ (KRN O 305 R -0.09581)
+ (KRN O 306 R -0.09581)
+ )
+ )
+(CHARACTER O 225
+ (CHARWD R 0.799805)
+ (CHARHT R 0.690109)
+ (CHARDP R 0.170097)
+ (COMMENT
+ (KRN C y R -0.031937)
+ (KRN C e R -0.09581)
+ (KRN C o R -0.09581)
+ (KRN C r R -0.09581)
+ (KRN C a R -0.09581)
+ (KRN C u R -0.09581)
+ (KRN C n R -0.09581)
+ (KRN O 31 R -0.09581)
+ (KRN C c R -0.09581)
+ (KRN C d R -0.09581)
+ (KRN C g R -0.09581)
+ (KRN C p R -0.09581)
+ (KRN C s R -0.09581)
+ (KRN C v R -0.09581)
+ (KRN C w R -0.09581)
+ (KRN C x R -0.09581)
+ (KRN C z R -0.09581)
+ (KRN C A R -0.09581)
+ (KRN O 200 R -0.09581)
+ (KRN O 201 R -0.09581)
+ (KRN O 300 R -0.09581)
+ (KRN O 301 R -0.09581)
+ (KRN O 302 R -0.09581)
+ (KRN O 303 R -0.09581)
+ (KRN O 304 R -0.09581)
+ (KRN O 305 R -0.09581)
+ (KRN O 306 R -0.09581)
+ )
+ )
+(CHARACTER O 226
+ (CHARWD R 0.884506)
+ (CHARHT R 0.876248)
+ )
+(CHARACTER O 227
+ (CHARWD R 0.884506)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 230
+ (CHARWD R 0.869232)
+ (CHARHT R 0.894226)
+ (CHARIC R 0.028743)
+ (COMMENT
+ (KRN C e R -0.09581)
+ (KRN C o R -0.09581)
+ (KRN C r R -0.09581)
+ (KRN C a R -0.09581)
+ (KRN C u R -0.09581)
+ (KRN C n R -0.09581)
+ (KRN O 31 R -0.09581)
+ (KRN C c R -0.09581)
+ (KRN C d R -0.09581)
+ (KRN C g R -0.09581)
+ (KRN C p R -0.09581)
+ (KRN C s R -0.09581)
+ (KRN C v R -0.09581)
+ (KRN C w R -0.09581)
+ (KRN C x R -0.09581)
+ (KRN C z R -0.09581)
+ (KRN C A R -0.09581)
+ (KRN O 200 R -0.09581)
+ (KRN O 201 R -0.09581)
+ (KRN O 300 R -0.09581)
+ (KRN O 301 R -0.09581)
+ (KRN O 302 R -0.09581)
+ (KRN O 303 R -0.09581)
+ (KRN O 304 R -0.09581)
+ (KRN O 305 R -0.09581)
+ (KRN O 306 R -0.09581)
+ )
+ )
+(CHARACTER O 231
+ (CHARWD R 0.702606)
+ (CHARHT R 0.876248)
+ )
+(CHARACTER O 232
+ (CHARWD R 0.702606)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 233
+ (CHARWD R 0.702606)
+ (CHARHT R 0.876248)
+ )
+(CHARACTER O 234
+ (CHARWD R 1.010864)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 235
+ (CHARWD R 0.436005)
+ (CHARHT R 0.876248)
+ )
+(CHARACTER O 236
+ (CHARWD R 0.638733)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 237
+ (CHARWD R 0.529037)
+ (CHARHT R 0.690109)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 240
+ (CHARWD R 0.558891)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 241
+ (CHARWD R 0.558891)
+ (CHARHT R 0.444336)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN C g R 0.031937)
+ (KRN C p R 0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 242
+ (CHARWD R 0.510986)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C h R -0.031937)
+ (KRN C k R -0.031937)
+ )
+ )
+(CHARACTER O 243
+ (CHARWD R 0.510986)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C h R -0.031937)
+ (KRN C k R -0.031937)
+ )
+ )
+(CHARACTER O 244
+ (CHARWD R 0.810219)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 245
+ (CHARWD R 0.526955)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 246
+ (CHARWD R 0.526955)
+ (CHARHT R 0.444336)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 247
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.015968)
+ )
+(CHARACTER O 250
+ (CHARWD R 0.319366)
+ (CHARHT R 0.876248)
+ (CHARIC R 0.053876)
+ )
+(CHARACTER O 251
+ (CHARWD R 0.501961)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 252
+ (CHARWD R 0.386434)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN O 47 R 0.031937)
+ )
+ )
+(CHARACTER O 253
+ (CHARWD R 0.638733)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C t R -0.031937)
+ (KRN C u R -0.031937)
+ (KRN O 266 R -0.031937)
+ (KRN O 267 R -0.031937)
+ (KRN O 371 R -0.031937)
+ (KRN O 372 R -0.031937)
+ (KRN O 373 R -0.031937)
+ (KRN O 374 R -0.031937)
+ (KRN C b R -0.031937)
+ (KRN C y R -0.031937)
+ (KRN C v R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 254
+ (CHARWD R 0.638733)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C t R -0.031937)
+ (KRN C u R -0.031937)
+ (KRN O 266 R -0.031937)
+ (KRN O 267 R -0.031937)
+ (KRN O 371 R -0.031937)
+ (KRN O 372 R -0.031937)
+ (KRN O 373 R -0.031937)
+ (KRN O 374 R -0.031937)
+ (KRN C b R -0.031937)
+ (KRN C y R -0.031937)
+ (KRN C v R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 255
+ (CHARWD R 0.638733)
+ (CHARHT R 0.444336)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN C t R -0.031937)
+ (KRN C u R -0.031937)
+ (KRN O 266 R -0.031937)
+ (KRN O 267 R -0.031937)
+ (KRN O 371 R -0.031937)
+ (KRN O 372 R -0.031937)
+ (KRN O 373 R -0.031937)
+ (KRN O 374 R -0.031937)
+ (KRN C b R -0.031937)
+ (KRN C y R -0.031937)
+ (KRN C v R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 256
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ (CHARIC R 0.014811)
+ (COMMENT
+ (KRN C e R 0.031937)
+ (KRN O 245 R 0.031937)
+ (KRN O 246 R 0.031937)
+ (KRN O 350 R 0.031937)
+ (KRN O 351 R 0.031937)
+ (KRN O 352 R 0.031937)
+ (KRN O 353 R 0.031937)
+ (KRN C o R 0.031937)
+ (KRN O 256 R 0.031937)
+ (KRN O 362 R 0.031937)
+ (KRN O 363 R 0.031937)
+ (KRN O 364 R 0.031937)
+ (KRN O 365 R 0.031937)
+ (KRN O 366 R 0.031937)
+ (KRN O 367 R 0.031937)
+ (KRN O 370 R 0.031937)
+ (KRN C x R -0.031937)
+ (KRN C d R 0.031937)
+ (KRN C c R 0.031937)
+ (KRN O 242 R 0.031937)
+ (KRN O 243 R 0.031937)
+ (KRN O 347 R 0.031937)
+ (KRN C q R 0.031937)
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 257
+ (CHARWD R 0.4734955)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 260
+ (CHARWD R 0.4734955)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 261
+ (CHARWD R 0.453501)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 262
+ (CHARWD R 0.453501)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 263
+ (CHARWD R 0.453501)
+ (CHARHT R 0.444336)
+ (CHARDP R 0.170097)
+ )
+(CHARACTER O 264
+ (CHARWD R 0.447113)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 265
+ (CHARWD R 0.447113)
+ (CHARHT R 0.633972)
+ (CHARDP R 0.170097)
+ (COMMENT
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 266
+ (CHARWD R 0.638733)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 267
+ (CHARWD R 0.638733)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 270
+ (CHARWD R 0.606796)
+ (CHARHT R 0.690109)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.015968)
+ (COMMENT
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C a R -0.031937)
+ (KRN O 240 R -0.031937)
+ (KRN O 241 R -0.031937)
+ (KRN O 340 R -0.031937)
+ (KRN O 341 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 343 R -0.031937)
+ (KRN O 344 R -0.031937)
+ (KRN O 345 R -0.031937)
+ (KRN O 346 R -0.031937)
+ (KRN O 56 R -0.09581)
+ (KRN O 54 R -0.09581)
+ )
+ )
+(CHARACTER O 271
+ (CHARWD R 0.510986)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 272
+ (CHARWD R 0.510986)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 273
+ (CHARWD R 0.510986)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 274
+ (CHARWD R 0.67067)
+ (CHARHT R 0.690109)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 275
+ (CHARWD R 0.349915)
+ (CHARHT R 0.499878)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 276
+ (CHARWD R 0.542923)
+ (CHARHT R 0.499878)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 277
+ (CHARWD R 0.734543)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 300
+ (CHARWD R 0.869232)
+ (CHARHT R 0.876248)
+ (COMMENT
+ (KRN C y R -0.09581)
+ (KRN O 270 R -0.09581)
+ (KRN O 375 R -0.09581)
+ (KRN C v R -0.127747)
+ (KRN C w R -0.09581)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ (KRN C d R -0.031937)
+ (KRN O 244 R -0.031937)
+ (KRN O 236 R -0.031937)
+ (KRN O 360 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C q R -0.031937)
+ (KRN C t R -0.031937)
+ (KRN O 264 R -0.031937)
+ (KRN O 265 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C U R -0.031937)
+ (KRN O 226 R -0.031937)
+ (KRN O 227 R -0.031937)
+ (KRN O 331 R -0.031937)
+ (KRN O 332 R -0.031937)
+ (KRN O 333 R -0.031937)
+ (KRN O 334 R -0.031937)
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER O 301
+ (CHARWD R 0.869232)
+ (CHARHT R 0.876248)
+ (COMMENT
+ (KRN C y R -0.09581)
+ (KRN O 270 R -0.09581)
+ (KRN O 375 R -0.09581)
+ (KRN C v R -0.127747)
+ (KRN C w R -0.09581)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ (KRN C d R -0.031937)
+ (KRN O 244 R -0.031937)
+ (KRN O 236 R -0.031937)
+ (KRN O 360 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C q R -0.031937)
+ (KRN C t R -0.031937)
+ (KRN O 264 R -0.031937)
+ (KRN O 265 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C U R -0.031937)
+ (KRN O 226 R -0.031937)
+ (KRN O 227 R -0.031937)
+ (KRN O 331 R -0.031937)
+ (KRN O 332 R -0.031937)
+ (KRN O 333 R -0.031937)
+ (KRN O 334 R -0.031937)
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER O 302
+ (CHARWD R 0.869232)
+ (CHARHT R 0.894226)
+ (COMMENT
+ (KRN C y R -0.09581)
+ (KRN O 270 R -0.09581)
+ (KRN O 375 R -0.09581)
+ (KRN C v R -0.127747)
+ (KRN C w R -0.09581)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ (KRN C d R -0.031937)
+ (KRN O 244 R -0.031937)
+ (KRN O 236 R -0.031937)
+ (KRN O 360 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C q R -0.031937)
+ (KRN C t R -0.031937)
+ (KRN O 264 R -0.031937)
+ (KRN O 265 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C U R -0.031937)
+ (KRN O 226 R -0.031937)
+ (KRN O 227 R -0.031937)
+ (KRN O 331 R -0.031937)
+ (KRN O 332 R -0.031937)
+ (KRN O 333 R -0.031937)
+ (KRN O 334 R -0.031937)
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER O 303
+ (CHARWD R 0.869232)
+ (CHARHT R 0.894226)
+ (COMMENT
+ (KRN C y R -0.09581)
+ (KRN O 270 R -0.09581)
+ (KRN O 375 R -0.09581)
+ (KRN C v R -0.127747)
+ (KRN C w R -0.09581)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ (KRN C d R -0.031937)
+ (KRN O 244 R -0.031937)
+ (KRN O 236 R -0.031937)
+ (KRN O 360 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C q R -0.031937)
+ (KRN C t R -0.031937)
+ (KRN O 264 R -0.031937)
+ (KRN O 265 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C U R -0.031937)
+ (KRN O 226 R -0.031937)
+ (KRN O 227 R -0.031937)
+ (KRN O 331 R -0.031937)
+ (KRN O 332 R -0.031937)
+ (KRN O 333 R -0.031937)
+ (KRN O 334 R -0.031937)
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER O 304
+ (CHARWD R 0.869232)
+ (CHARHT R 0.894226)
+ (COMMENT
+ (KRN C y R -0.09581)
+ (KRN O 270 R -0.09581)
+ (KRN O 375 R -0.09581)
+ (KRN C v R -0.127747)
+ (KRN C w R -0.09581)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ (KRN C d R -0.031937)
+ (KRN O 244 R -0.031937)
+ (KRN O 236 R -0.031937)
+ (KRN O 360 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C q R -0.031937)
+ (KRN C t R -0.031937)
+ (KRN O 264 R -0.031937)
+ (KRN O 265 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C U R -0.031937)
+ (KRN O 226 R -0.031937)
+ (KRN O 227 R -0.031937)
+ (KRN O 331 R -0.031937)
+ (KRN O 332 R -0.031937)
+ (KRN O 333 R -0.031937)
+ (KRN O 334 R -0.031937)
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER O 305
+ (CHARWD R 0.869232)
+ (CHARHT R 0.85257)
+ (COMMENT
+ (KRN C y R -0.09581)
+ (KRN O 270 R -0.09581)
+ (KRN O 375 R -0.09581)
+ (KRN C v R -0.127747)
+ (KRN C w R -0.09581)
+ (KRN C c R -0.031937)
+ (KRN O 242 R -0.031937)
+ (KRN O 243 R -0.031937)
+ (KRN O 347 R -0.031937)
+ (KRN C d R -0.031937)
+ (KRN O 244 R -0.031937)
+ (KRN O 236 R -0.031937)
+ (KRN O 360 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C q R -0.031937)
+ (KRN C t R -0.031937)
+ (KRN O 264 R -0.031937)
+ (KRN O 265 R -0.031937)
+ (KRN C C R -0.031937)
+ (KRN C G R -0.031937)
+ (KRN O 202 R -0.031937)
+ (KRN O 203 R -0.031937)
+ (KRN O 207 R -0.031937)
+ (KRN O 307 R -0.031937)
+ (KRN C Q R -0.031937)
+ (KRN C O R -0.031937)
+ (KRN O 216 R -0.031937)
+ (KRN O 322 R -0.031937)
+ (KRN O 323 R -0.031937)
+ (KRN O 324 R -0.031937)
+ (KRN O 325 R -0.031937)
+ (KRN O 326 R -0.031937)
+ (KRN O 327 R -0.031937)
+ (KRN O 330 R -0.031937)
+ (KRN C U R -0.031937)
+ (KRN O 226 R -0.031937)
+ (KRN O 227 R -0.031937)
+ (KRN O 331 R -0.031937)
+ (KRN O 332 R -0.031937)
+ (KRN O 333 R -0.031937)
+ (KRN O 334 R -0.031937)
+ (KRN C T R -0.09581)
+ (KRN O 224 R -0.09581)
+ (KRN O 225 R -0.09581)
+ (KRN C Y R -0.09581)
+ (KRN O 230 R -0.09581)
+ (KRN O 335 R -0.09581)
+ (KRN C V R -0.127747)
+ (KRN C W R -0.127747)
+ )
+ )
+(CHARACTER O 306
+ (CHARWD R 1.041412)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 307
+ (CHARWD R 0.830353)
+ (CHARHT R 0.690109)
+ (CHARDP R 0.170097)
+ )
+(CHARACTER O 310
+ (CHARWD R 0.755371)
+ (CHARHT R 0.876248)
+ )
+(CHARACTER O 311
+ (CHARWD R 0.755371)
+ (CHARHT R 0.876248)
+ )
+(CHARACTER O 312
+ (CHARWD R 0.755371)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 313
+ (CHARWD R 0.755371)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 314
+ (CHARWD R 0.436005)
+ (CHARHT R 0.876248)
+ )
+(CHARACTER O 315
+ (CHARWD R 0.436005)
+ (CHARHT R 0.876248)
+ )
+(CHARACTER O 316
+ (CHARWD R 0.436005)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 317
+ (CHARWD R 0.436005)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 320
+ (CHARWD R 0.881729)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C X R -0.031937)
+ (KRN C W R -0.031937)
+ (KRN C A R -0.031937)
+ (KRN O 200 R -0.031937)
+ (KRN O 201 R -0.031937)
+ (KRN O 300 R -0.031937)
+ (KRN O 301 R -0.031937)
+ (KRN O 302 R -0.031937)
+ (KRN O 303 R -0.031937)
+ (KRN O 304 R -0.031937)
+ (KRN O 305 R -0.031937)
+ (KRN O 306 R -0.031937)
+ (KRN C V R -0.031937)
+ (KRN C Y R -0.031937)
+ (KRN O 230 R -0.031937)
+ (KRN O 335 R -0.031937)
+ )
+ )
+(CHARACTER O 321
+ (CHARWD R 0.89978)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 322
+ (CHARWD R 0.863678)
+ (CHARHT R 0.876248)
+ (COMMENT
+ (KRN C X R -0.031937)
+ (KRN C W R -0.031937)
+ (KRN C A R -0.031937)
+ (KRN O 200 R -0.031937)
+ (KRN O 201 R -0.031937)
+ (KRN O 300 R -0.031937)
+ (KRN O 301 R -0.031937)
+ (KRN O 302 R -0.031937)
+ (KRN O 303 R -0.031937)
+ (KRN O 304 R -0.031937)
+ (KRN O 305 R -0.031937)
+ (KRN O 306 R -0.031937)
+ (KRN C V R -0.031937)
+ (KRN C Y R -0.031937)
+ (KRN O 230 R -0.031937)
+ (KRN O 335 R -0.031937)
+ )
+ )
+(CHARACTER O 323
+ (CHARWD R 0.863678)
+ (CHARHT R 0.876248)
+ (COMMENT
+ (KRN C X R -0.031937)
+ (KRN C W R -0.031937)
+ (KRN C A R -0.031937)
+ (KRN O 200 R -0.031937)
+ (KRN O 201 R -0.031937)
+ (KRN O 300 R -0.031937)
+ (KRN O 301 R -0.031937)
+ (KRN O 302 R -0.031937)
+ (KRN O 303 R -0.031937)
+ (KRN O 304 R -0.031937)
+ (KRN O 305 R -0.031937)
+ (KRN O 306 R -0.031937)
+ (KRN C V R -0.031937)
+ (KRN C Y R -0.031937)
+ (KRN O 230 R -0.031937)
+ (KRN O 335 R -0.031937)
+ )
+ )
+(CHARACTER O 324
+ (CHARWD R 0.863678)
+ (CHARHT R 0.894226)
+ (COMMENT
+ (KRN C X R -0.031937)
+ (KRN C W R -0.031937)
+ (KRN C A R -0.031937)
+ (KRN O 200 R -0.031937)
+ (KRN O 201 R -0.031937)
+ (KRN O 300 R -0.031937)
+ (KRN O 301 R -0.031937)
+ (KRN O 302 R -0.031937)
+ (KRN O 303 R -0.031937)
+ (KRN O 304 R -0.031937)
+ (KRN O 305 R -0.031937)
+ (KRN O 306 R -0.031937)
+ (KRN C V R -0.031937)
+ (KRN C Y R -0.031937)
+ (KRN O 230 R -0.031937)
+ (KRN O 335 R -0.031937)
+ )
+ )
+(CHARACTER O 325
+ (CHARWD R 0.863678)
+ (CHARHT R 0.894226)
+ (COMMENT
+ (KRN C X R -0.031937)
+ (KRN C W R -0.031937)
+ (KRN C A R -0.031937)
+ (KRN O 200 R -0.031937)
+ (KRN O 201 R -0.031937)
+ (KRN O 300 R -0.031937)
+ (KRN O 301 R -0.031937)
+ (KRN O 302 R -0.031937)
+ (KRN O 303 R -0.031937)
+ (KRN O 304 R -0.031937)
+ (KRN O 305 R -0.031937)
+ (KRN O 306 R -0.031937)
+ (KRN C V R -0.031937)
+ (KRN C Y R -0.031937)
+ (KRN O 230 R -0.031937)
+ (KRN O 335 R -0.031937)
+ )
+ )
+(CHARACTER O 326
+ (CHARWD R 0.863678)
+ (CHARHT R 0.894226)
+ (COMMENT
+ (KRN C X R -0.031937)
+ (KRN C W R -0.031937)
+ (KRN C A R -0.031937)
+ (KRN O 200 R -0.031937)
+ (KRN O 201 R -0.031937)
+ (KRN O 300 R -0.031937)
+ (KRN O 301 R -0.031937)
+ (KRN O 302 R -0.031937)
+ (KRN O 303 R -0.031937)
+ (KRN O 304 R -0.031937)
+ (KRN O 305 R -0.031937)
+ (KRN O 306 R -0.031937)
+ (KRN C V R -0.031937)
+ (KRN C Y R -0.031937)
+ (KRN O 230 R -0.031937)
+ (KRN O 335 R -0.031937)
+ )
+ )
+(CHARACTER O 327
+ (CHARWD R 1.169159)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 330
+ (CHARWD R 0.894226)
+ (CHARHT R 0.734543)
+ (CHARDP R 0.048599)
+ (COMMENT
+ (KRN C X R -0.031937)
+ (KRN C W R -0.031937)
+ (KRN C A R -0.031937)
+ (KRN O 200 R -0.031937)
+ (KRN O 201 R -0.031937)
+ (KRN O 300 R -0.031937)
+ (KRN O 301 R -0.031937)
+ (KRN O 302 R -0.031937)
+ (KRN O 303 R -0.031937)
+ (KRN O 304 R -0.031937)
+ (KRN O 305 R -0.031937)
+ (KRN O 306 R -0.031937)
+ (KRN C V R -0.031937)
+ (KRN C Y R -0.031937)
+ (KRN O 230 R -0.031937)
+ (KRN O 335 R -0.031937)
+ )
+ )
+(CHARACTER O 331
+ (CHARWD R 0.884506)
+ (CHARHT R 0.876248)
+ )
+(CHARACTER O 332
+ (CHARWD R 0.884506)
+ (CHARHT R 0.876248)
+ )
+(CHARACTER O 333
+ (CHARWD R 0.884506)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 334
+ (CHARWD R 0.884506)
+ (CHARHT R 0.894226)
+ )
+(CHARACTER O 335
+ (CHARWD R 0.869232)
+ (CHARHT R 0.876248)
+ (CHARIC R 0.028743)
+ (COMMENT
+ (KRN C e R -0.09581)
+ (KRN C o R -0.09581)
+ (KRN C r R -0.09581)
+ (KRN C a R -0.09581)
+ (KRN C u R -0.09581)
+ (KRN C n R -0.09581)
+ (KRN O 31 R -0.09581)
+ (KRN C c R -0.09581)
+ (KRN C d R -0.09581)
+ (KRN C g R -0.09581)
+ (KRN C p R -0.09581)
+ (KRN C s R -0.09581)
+ (KRN C v R -0.09581)
+ (KRN C w R -0.09581)
+ (KRN C x R -0.09581)
+ (KRN C z R -0.09581)
+ (KRN C A R -0.09581)
+ (KRN O 200 R -0.09581)
+ (KRN O 201 R -0.09581)
+ (KRN O 300 R -0.09581)
+ (KRN O 301 R -0.09581)
+ (KRN O 302 R -0.09581)
+ (KRN O 303 R -0.09581)
+ (KRN O 304 R -0.09581)
+ (KRN O 305 R -0.09581)
+ (KRN O 306 R -0.09581)
+ )
+ )
+(CHARACTER O 336
+ (CHARWD R 0.722046)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 337
+ (CHARWD R 1.277466)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 340
+ (CHARWD R 0.558891)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 341
+ (CHARWD R 0.558891)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 342
+ (CHARWD R 0.558891)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 343
+ (CHARWD R 0.558891)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 344
+ (CHARWD R 0.558891)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 345
+ (CHARWD R 0.558891)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 346
+ (CHARWD R 0.830353)
+ (CHARHT R 0.444336)
+ )
+(CHARACTER O 347
+ (CHARWD R 0.510986)
+ (CHARHT R 0.444336)
+ (CHARDP R 0.170097)
+ (COMMENT
+ (KRN C h R -0.031937)
+ (KRN C k R -0.031937)
+ )
+ )
+(CHARACTER O 350
+ (CHARWD R 0.526955)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 351
+ (CHARWD R 0.526955)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 352
+ (CHARWD R 0.526955)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 353
+ (CHARWD R 0.526955)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 354
+ (CHARWD R 0.319366)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 355
+ (CHARWD R 0.319366)
+ (CHARHT R 0.648453)
+ (CHARIC R 0.02697)
+ )
+(CHARACTER O 356
+ (CHARWD R 0.319366)
+ (CHARHT R 0.648453)
+ )
+(CHARACTER O 357
+ (CHARWD R 0.38324)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 360
+ (CHARWD R 0.57486)
+ (CHARHT R 0.690109)
+ )
+(CHARACTER O 361
+ (CHARWD R 0.638733)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C t R -0.031937)
+ (KRN C u R -0.031937)
+ (KRN O 266 R -0.031937)
+ (KRN O 267 R -0.031937)
+ (KRN O 371 R -0.031937)
+ (KRN O 372 R -0.031937)
+ (KRN O 373 R -0.031937)
+ (KRN O 374 R -0.031937)
+ (KRN C b R -0.031937)
+ (KRN C y R -0.031937)
+ (KRN C v R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 362
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C e R 0.031937)
+ (KRN O 245 R 0.031937)
+ (KRN O 246 R 0.031937)
+ (KRN O 350 R 0.031937)
+ (KRN O 351 R 0.031937)
+ (KRN O 352 R 0.031937)
+ (KRN O 353 R 0.031937)
+ (KRN C o R 0.031937)
+ (KRN O 256 R 0.031937)
+ (KRN O 362 R 0.031937)
+ (KRN O 363 R 0.031937)
+ (KRN O 364 R 0.031937)
+ (KRN O 365 R 0.031937)
+ (KRN O 366 R 0.031937)
+ (KRN O 367 R 0.031937)
+ (KRN O 370 R 0.031937)
+ (KRN C x R -0.031937)
+ (KRN C d R 0.031937)
+ (KRN C c R 0.031937)
+ (KRN O 242 R 0.031937)
+ (KRN O 243 R 0.031937)
+ (KRN O 347 R 0.031937)
+ (KRN C q R 0.031937)
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 363
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C e R 0.031937)
+ (KRN O 245 R 0.031937)
+ (KRN O 246 R 0.031937)
+ (KRN O 350 R 0.031937)
+ (KRN O 351 R 0.031937)
+ (KRN O 352 R 0.031937)
+ (KRN O 353 R 0.031937)
+ (KRN C o R 0.031937)
+ (KRN O 256 R 0.031937)
+ (KRN O 362 R 0.031937)
+ (KRN O 363 R 0.031937)
+ (KRN O 364 R 0.031937)
+ (KRN O 365 R 0.031937)
+ (KRN O 366 R 0.031937)
+ (KRN O 367 R 0.031937)
+ (KRN O 370 R 0.031937)
+ (KRN C x R -0.031937)
+ (KRN C d R 0.031937)
+ (KRN C c R 0.031937)
+ (KRN O 242 R 0.031937)
+ (KRN O 243 R 0.031937)
+ (KRN O 347 R 0.031937)
+ (KRN C q R 0.031937)
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 364
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C e R 0.031937)
+ (KRN O 245 R 0.031937)
+ (KRN O 246 R 0.031937)
+ (KRN O 350 R 0.031937)
+ (KRN O 351 R 0.031937)
+ (KRN O 352 R 0.031937)
+ (KRN O 353 R 0.031937)
+ (KRN C o R 0.031937)
+ (KRN O 256 R 0.031937)
+ (KRN O 362 R 0.031937)
+ (KRN O 363 R 0.031937)
+ (KRN O 364 R 0.031937)
+ (KRN O 365 R 0.031937)
+ (KRN O 366 R 0.031937)
+ (KRN O 367 R 0.031937)
+ (KRN O 370 R 0.031937)
+ (KRN C x R -0.031937)
+ (KRN C d R 0.031937)
+ (KRN C c R 0.031937)
+ (KRN O 242 R 0.031937)
+ (KRN O 243 R 0.031937)
+ (KRN O 347 R 0.031937)
+ (KRN C q R 0.031937)
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 365
+ (CHARWD R 0.57486)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C e R 0.031937)
+ (KRN O 245 R 0.031937)
+ (KRN O 246 R 0.031937)
+ (KRN O 350 R 0.031937)
+ (KRN O 351 R 0.031937)
+ (KRN O 352 R 0.031937)
+ (KRN O 353 R 0.031937)
+ (KRN C o R 0.031937)
+ (KRN O 256 R 0.031937)
+ (KRN O 362 R 0.031937)
+ (KRN O 363 R 0.031937)
+ (KRN O 364 R 0.031937)
+ (KRN O 365 R 0.031937)
+ (KRN O 366 R 0.031937)
+ (KRN O 367 R 0.031937)
+ (KRN O 370 R 0.031937)
+ (KRN C x R -0.031937)
+ (KRN C d R 0.031937)
+ (KRN C c R 0.031937)
+ (KRN O 242 R 0.031937)
+ (KRN O 243 R 0.031937)
+ (KRN O 347 R 0.031937)
+ (KRN C q R 0.031937)
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 366
+ (CHARWD R 0.57486)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C e R 0.031937)
+ (KRN O 245 R 0.031937)
+ (KRN O 246 R 0.031937)
+ (KRN O 350 R 0.031937)
+ (KRN O 351 R 0.031937)
+ (KRN O 352 R 0.031937)
+ (KRN O 353 R 0.031937)
+ (KRN C o R 0.031937)
+ (KRN O 256 R 0.031937)
+ (KRN O 362 R 0.031937)
+ (KRN O 363 R 0.031937)
+ (KRN O 364 R 0.031937)
+ (KRN O 365 R 0.031937)
+ (KRN O 366 R 0.031937)
+ (KRN O 367 R 0.031937)
+ (KRN O 370 R 0.031937)
+ (KRN C x R -0.031937)
+ (KRN C d R 0.031937)
+ (KRN C c R 0.031937)
+ (KRN O 242 R 0.031937)
+ (KRN O 243 R 0.031937)
+ (KRN O 347 R 0.031937)
+ (KRN C q R 0.031937)
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 367
+ (CHARWD R 0.894226)
+ (CHARHT R 0.444336)
+ )
+(CHARACTER O 370
+ (CHARWD R 0.57486)
+ (CHARHT R 0.541534)
+ (CHARDP R 0.0971985)
+ (COMMENT
+ (KRN C e R 0.031937)
+ (KRN O 245 R 0.031937)
+ (KRN O 246 R 0.031937)
+ (KRN O 350 R 0.031937)
+ (KRN O 351 R 0.031937)
+ (KRN O 352 R 0.031937)
+ (KRN O 353 R 0.031937)
+ (KRN C o R 0.031937)
+ (KRN O 256 R 0.031937)
+ (KRN O 362 R 0.031937)
+ (KRN O 363 R 0.031937)
+ (KRN O 364 R 0.031937)
+ (KRN O 365 R 0.031937)
+ (KRN O 366 R 0.031937)
+ (KRN O 367 R 0.031937)
+ (KRN O 370 R 0.031937)
+ (KRN C x R -0.031937)
+ (KRN C d R 0.031937)
+ (KRN C c R 0.031937)
+ (KRN O 242 R 0.031937)
+ (KRN O 243 R 0.031937)
+ (KRN O 347 R 0.031937)
+ (KRN C q R 0.031937)
+ (KRN C v R -0.031937)
+ (KRN C j R 0.063873)
+ (KRN C y R -0.031937)
+ (KRN O 270 R -0.031937)
+ (KRN O 375 R -0.031937)
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 371
+ (CHARWD R 0.638733)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 372
+ (CHARWD R 0.638733)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 373
+ (CHARWD R 0.638733)
+ (CHARHT R 0.648453)
+ (COMMENT
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 374
+ (CHARWD R 0.638733)
+ (CHARHT R 0.690109)
+ (COMMENT
+ (KRN C w R -0.031937)
+ )
+ )
+(CHARACTER O 375
+ (CHARWD R 0.606796)
+ (CHARHT R 0.648453)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.015968)
+ (COMMENT
+ (KRN C o R -0.031937)
+ (KRN O 256 R -0.031937)
+ (KRN O 362 R -0.031937)
+ (KRN O 363 R -0.031937)
+ (KRN O 364 R -0.031937)
+ (KRN O 365 R -0.031937)
+ (KRN O 366 R -0.031937)
+ (KRN O 367 R -0.031937)
+ (KRN O 370 R -0.031937)
+ (KRN C e R -0.031937)
+ (KRN O 245 R -0.031937)
+ (KRN O 246 R -0.031937)
+ (KRN O 350 R -0.031937)
+ (KRN O 351 R -0.031937)
+ (KRN O 352 R -0.031937)
+ (KRN O 353 R -0.031937)
+ (KRN C a R -0.031937)
+ (KRN O 240 R -0.031937)
+ (KRN O 241 R -0.031937)
+ (KRN O 340 R -0.031937)
+ (KRN O 341 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 342 R -0.031937)
+ (KRN O 343 R -0.031937)
+ (KRN O 344 R -0.031937)
+ (KRN O 345 R -0.031937)
+ (KRN O 346 R -0.031937)
+ (KRN O 56 R -0.09581)
+ (KRN O 54 R -0.09581)
+ )
+ )
+(CHARACTER O 376
+ (CHARWD R 0.638733)
+ (CHARHT R 0.690109)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 377
+ (CHARWD R 0.597076)
+ (CHARHT R 0.690109)
+ )
diff --git a/fonts/gothic/blacklettert1/ecrm0700.pl b/fonts/gothic/blacklettert1/ecrm0700.pl
new file mode 100644
index 0000000000..6fc847df12
--- /dev/null
+++ b/fonts/gothic/blacklettert1/ecrm0700.pl
@@ -0,0 +1,3853 @@
+(FAMILY ECRM)
+(FACE O 360)
+(CODINGSCHEME EXTENDED TEX FONT ENCODING - LATIN)
+(DESIGNSIZE R 7.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 12461431202)
+(FONTDIMEN
+ (SLANT R 0.0)
+ (SPACE R 0.384827)
+ (STRETCH R 0.184479)
+ (SHRINK R 0.122986)
+ (XHEIGHT R 0.43045)
+ (QUAD R 1.138611)
+ (EXTRASPACE R 0.122986)
+ (PARAMETER D 8 R 0.6831665)
+ (PARAMETER D 9 R 0.694275)
+ (PARAMETER D 10 R 0.903351)
+ (PARAMETER D 11 R 0.194397)
+ (PARAMETER D 12 R 0.903351)
+ (PARAMETER D 13 R 0.249939)
+ (PARAMETER D 14 R 0.553436)
+ (PARAMETER D 15 R 0.095215)
+ (PARAMETER D 16 R 1.199997)
+ )
+(BOUNDARYCHAR O 27)
+(LIGTABLE
+ (LABEL C f)
+ (LIG C i O 34)
+ (LIG C f O 33)
+ (LIG C l O 35)
+ (KRN O 47 R 0.079841)
+ (KRN O 140 R 0.079841)
+ (KRN O 20 R 0.079841)
+ (KRN O 21 R 0.079841)
+ (KRN O 77 R 0.079841)
+ (KRN O 41 R 0.079841)
+ (KRN O 51 R 0.079841)
+ (KRN O 135 R 0.079841)
+ (STOP)
+ (LABEL O 33)
+ (LIG C i O 36)
+ (LIG C l O 37)
+ (KRN O 47 R 0.079841)
+ (KRN O 140 R 0.079841)
+ (KRN O 20 R 0.079841)
+ (KRN O 21 R 0.079841)
+ (KRN O 77 R 0.079841)
+ (KRN O 41 R 0.079841)
+ (KRN O 51 R 0.079841)
+ (KRN O 135 R 0.079841)
+ (STOP)
+ (LABEL O 140)
+ (LIG O 140 O 20)
+ (KRN O 20 R 0.122986)
+ (KRN O 77 R 0.122986)
+ (KRN O 41 R 0.122986)
+ (STOP)
+ (LABEL O 47)
+ (LIG O 47 O 21)
+ (KRN O 21 R 0.122986)
+ (KRN O 77 R 0.122986)
+ (KRN O 41 R 0.122986)
+ (STOP)
+ (LABEL O 55)
+ (LIG O 55 O 25)
+ (LIG O 177 O 177)
+ (STOP)
+ (LABEL O 25)
+ (LIG O 55 O 26)
+ (STOP)
+ (LABEL O 74)
+ (LIG O 74 O 23)
+ (STOP)
+ (LABEL O 76)
+ (LIG O 76 O 24)
+ (STOP)
+ (LABEL O 54)
+ (LIG O 54 O 22)
+ (STOP)
+ (LABEL O 41)
+ (LIG O 140 O 275)
+ (STOP)
+ (LABEL O 77)
+ (LIG O 140 O 276)
+ (STOP)
+ (LABEL O 27)
+ (KRN O 20 R 0.092239)
+ (KRN O 21 R 0.092239)
+ (KRN O 22 R 0.092239)
+ (KRN O 55 R 0.092239)
+ (KRN O 140 R 0.092239)
+ (KRN O 47 R 0.092239)
+ (STOP)
+ (LABEL O 22)
+ (KRN O 15 R 0.122986)
+ (KRN O 54 R 0.122986)
+ (LABEL O 15)
+ (KRN O 22 R 0.122986)
+ (KRN C j R 0.122986)
+ (KRN O 32 R 0.122986)
+ (KRN C g R 0.061493)
+ (KRN O 247 R 0.061493)
+ (KRN C y R 0.061493)
+ (KRN O 270 R 0.061493)
+ (KRN O 375 R 0.061493)
+ (KRN C v R -0.092239)
+ (KRN C w R -0.061493)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN O 27 R 0.092239)
+ (STOP)
+ (LABEL O 20)
+ (KRN O 140 R 0.122986)
+ (KRN O 20 R 0.122986)
+ (KRN O 27 R 0.092239)
+ (STOP)
+ (LABEL O 21)
+ (KRN O 47 R 0.122986)
+ (KRN O 21 R 0.122986)
+ (KRN O 27 R 0.092239)
+ (STOP)
+ (LABEL O 24)
+ (KRN O 56 R -0.092239)
+ (KRN O 54 R -0.092239)
+ (STOP)
+ (LABEL C k)
+ (KRN C W R -0.092239)
+ (KRN C V R -0.092239)
+ (LABEL C v)
+ (KRN C a R -0.061493)
+ (KRN O 240 R -0.061493)
+ (KRN O 241 R -0.061493)
+ (KRN O 340 R -0.061493)
+ (KRN O 341 R -0.061493)
+ (KRN O 342 R -0.061493)
+ (KRN O 342 R -0.061493)
+ (KRN O 343 R -0.061493)
+ (KRN O 344 R -0.061493)
+ (KRN O 345 R -0.061493)
+ (KRN O 346 R -0.061493)
+ (LABEL C w)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C a R -0.030746)
+ (KRN O 240 R -0.030746)
+ (KRN O 241 R -0.030746)
+ (KRN O 340 R -0.030746)
+ (KRN O 341 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 343 R -0.030746)
+ (KRN O 344 R -0.030746)
+ (KRN O 345 R -0.030746)
+ (KRN O 346 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ (STOP)
+ (LABEL C P)
+ (KRN C A R -0.092239)
+ (KRN O 200 R -0.092239)
+ (KRN O 201 R -0.092239)
+ (KRN O 300 R -0.092239)
+ (KRN O 301 R -0.092239)
+ (KRN O 302 R -0.092239)
+ (KRN O 303 R -0.092239)
+ (KRN O 304 R -0.092239)
+ (KRN O 305 R -0.092239)
+ (KRN O 306 R -0.092239)
+ (LABEL C y)
+ (LABEL O 270)
+ (LABEL O 375)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C a R -0.030746)
+ (KRN O 240 R -0.030746)
+ (KRN O 241 R -0.030746)
+ (KRN O 340 R -0.030746)
+ (KRN O 341 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 343 R -0.030746)
+ (KRN O 344 R -0.030746)
+ (KRN O 345 R -0.030746)
+ (KRN O 346 R -0.030746)
+ (KRN O 56 R -0.092239)
+ (KRN O 54 R -0.092239)
+ (STOP)
+ (LABEL C F)
+ (LABEL C V)
+ (LABEL C W)
+ (KRN C o R -0.092239)
+ (KRN C a R -0.092239)
+ (KRN C e R -0.092239)
+ (KRN C y R -0.092239)
+ (KRN C u R -0.092239)
+ (KRN C r R -0.092239)
+ (KRN C v R -0.092239)
+ (KRN C s R -0.092239)
+ (KRN C c R -0.092239)
+ (KRN C d R -0.092239)
+ (KRN C g R -0.092239)
+ (KRN C m R -0.092239)
+ (KRN C n R -0.092239)
+ (KRN C p R -0.092239)
+ (KRN C w R -0.092239)
+ (KRN C z R -0.092239)
+ (KRN O 346 R -0.092239)
+ (KRN O 370 R -0.092239)
+ (KRN C A R -0.122986)
+ (KRN O 200 R -0.122986)
+ (KRN O 201 R -0.122986)
+ (KRN O 300 R -0.122986)
+ (KRN O 301 R -0.122986)
+ (KRN O 302 R -0.122986)
+ (KRN O 303 R -0.122986)
+ (KRN O 304 R -0.122986)
+ (KRN O 305 R -0.122986)
+ (KRN O 306 R -0.122986)
+ (LABEL C X)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (STOP)
+ (LABEL C K)
+ (KRN C v R -0.092239)
+ (KRN C w R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (STOP)
+ (LABEL C T)
+ (LABEL O 224)
+ (LABEL O 225)
+ (KRN C y R -0.030746)
+ (LABEL C Y)
+ (LABEL O 230)
+ (LABEL O 335)
+ (KRN C e R -0.092239)
+ (KRN C o R -0.092239)
+ (KRN C r R -0.092239)
+ (KRN C a R -0.092239)
+ (KRN C u R -0.092239)
+ (KRN C n R -0.092239)
+ (KRN O 31 R -0.092239)
+ (KRN C c R -0.092239)
+ (KRN C d R -0.092239)
+ (KRN C g R -0.092239)
+ (KRN C p R -0.092239)
+ (KRN C s R -0.092239)
+ (KRN C v R -0.092239)
+ (KRN C w R -0.092239)
+ (KRN C x R -0.092239)
+ (KRN C z R -0.092239)
+ (KRN C A R -0.092239)
+ (KRN O 200 R -0.092239)
+ (KRN O 201 R -0.092239)
+ (KRN O 300 R -0.092239)
+ (KRN O 301 R -0.092239)
+ (KRN O 302 R -0.092239)
+ (KRN O 303 R -0.092239)
+ (KRN O 304 R -0.092239)
+ (KRN O 305 R -0.092239)
+ (KRN O 306 R -0.092239)
+ (STOP)
+ (LABEL C D)
+ (LABEL C O)
+ (LABEL O 204)
+ (LABEL O 216)
+ (LABEL O 320)
+ (LABEL O 322)
+ (LABEL O 323)
+ (LABEL O 324)
+ (LABEL O 325)
+ (LABEL O 326)
+ (LABEL O 330)
+ (KRN C X R -0.030746)
+ (KRN C W R -0.030746)
+ (KRN C A R -0.030746)
+ (KRN O 200 R -0.030746)
+ (KRN O 201 R -0.030746)
+ (KRN O 300 R -0.030746)
+ (KRN O 301 R -0.030746)
+ (KRN O 302 R -0.030746)
+ (KRN O 303 R -0.030746)
+ (KRN O 304 R -0.030746)
+ (KRN O 305 R -0.030746)
+ (KRN O 306 R -0.030746)
+ (KRN C V R -0.030746)
+ (KRN C Y R -0.030746)
+ (KRN O 230 R -0.030746)
+ (KRN O 335 R -0.030746)
+ (STOP)
+ (LABEL C h)
+ (LABEL C m)
+ (LABEL C n)
+ (KRN C W R -0.092239)
+ (KRN C V R -0.092239)
+ (LABEL O 253)
+ (LABEL O 254)
+ (LABEL O 255)
+ (LABEL O 361)
+ (KRN C t R -0.030746)
+ (KRN C u R -0.030746)
+ (KRN O 266 R -0.030746)
+ (KRN O 267 R -0.030746)
+ (KRN O 371 R -0.030746)
+ (KRN O 372 R -0.030746)
+ (KRN O 373 R -0.030746)
+ (KRN O 374 R -0.030746)
+ (KRN C b R -0.030746)
+ (KRN C y R -0.030746)
+ (KRN C v R -0.030746)
+ (KRN C w R -0.030746)
+ (STOP)
+ (LABEL C c)
+ (LABEL O 242)
+ (LABEL O 243)
+ (LABEL O 347)
+ (KRN C h R -0.030746)
+ (KRN C k R -0.030746)
+ (STOP)
+ (LABEL C b)
+ (LABEL C o)
+ (LABEL C p)
+ (LABEL O 256)
+ (LABEL O 362)
+ (LABEL O 363)
+ (LABEL O 364)
+ (LABEL O 365)
+ (LABEL O 366)
+ (LABEL O 370)
+ (KRN C e R 0.030746)
+ (KRN O 245 R 0.030746)
+ (KRN O 246 R 0.030746)
+ (KRN O 350 R 0.030746)
+ (KRN O 351 R 0.030746)
+ (KRN O 352 R 0.030746)
+ (KRN O 353 R 0.030746)
+ (KRN C o R 0.030746)
+ (KRN O 256 R 0.030746)
+ (KRN O 362 R 0.030746)
+ (KRN O 363 R 0.030746)
+ (KRN O 364 R 0.030746)
+ (KRN O 365 R 0.030746)
+ (KRN O 366 R 0.030746)
+ (KRN O 367 R 0.030746)
+ (KRN O 370 R 0.030746)
+ (KRN C x R -0.030746)
+ (KRN C d R 0.030746)
+ (KRN C c R 0.030746)
+ (KRN O 242 R 0.030746)
+ (KRN O 243 R 0.030746)
+ (KRN O 347 R 0.030746)
+ (KRN C q R 0.030746)
+ (LABEL C a)
+ (LABEL O 240)
+ (LABEL O 340)
+ (LABEL O 341)
+ (LABEL O 342)
+ (LABEL O 343)
+ (LABEL O 344)
+ (LABEL O 345)
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (LABEL C t)
+ (LABEL O 264)
+ (LABEL O 265)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (LABEL C u)
+ (LABEL O 266)
+ (LABEL O 267)
+ (LABEL O 371)
+ (LABEL O 372)
+ (LABEL O 373)
+ (LABEL O 374)
+ (KRN C w R -0.030746)
+ (STOP)
+ (LABEL C A)
+ (LABEL O 200)
+ (LABEL O 300)
+ (LABEL O 301)
+ (LABEL O 302)
+ (LABEL O 303)
+ (LABEL O 304)
+ (LABEL O 305)
+ (KRN C y R -0.092239)
+ (KRN O 270 R -0.092239)
+ (KRN O 375 R -0.092239)
+ (LABEL O 202)
+ (KRN C v R -0.122986)
+ (KRN C w R -0.092239)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ (KRN C d R -0.030746)
+ (KRN O 244 R -0.030746)
+ (KRN O 236 R -0.030746)
+ (KRN O 360 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C q R -0.030746)
+ (LABEL C R)
+ (LABEL O 217)
+ (KRN C t R -0.030746)
+ (KRN O 264 R -0.030746)
+ (KRN O 265 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C U R -0.030746)
+ (KRN O 226 R -0.030746)
+ (KRN O 227 R -0.030746)
+ (KRN O 331 R -0.030746)
+ (KRN O 332 R -0.030746)
+ (KRN O 333 R -0.030746)
+ (KRN O 334 R -0.030746)
+ (LABEL C L)
+ (LABEL O 210)
+ (LABEL O 211)
+ (LABEL O 212)
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ (STOP)
+ (LABEL C g)
+ (KRN C j R 0.030746)
+ (STOP)
+ (LABEL C I)
+ (KRN C I R 0.030746)
+ (STOP)
+ (LABEL C e)
+ (KRN C V R -0.092239)
+ (STOP)
+ (LABEL O 241)
+ (KRN C g R 0.030746)
+ (KRN C p R 0.030746)
+ (KRN C w R -0.030746)
+ (STOP)
+ (LABEL O 252)
+ (KRN O 47 R 0.030746)
+ (STOP)
+ )
+(CHARACTER O 0
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 1
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 2
+ (CHARWD R 0.553436)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 3
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 4
+ (CHARWD R 0.569305)
+ (CHARHT R 0.670471)
+ )
+(CHARACTER O 5
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (CHARIC R 0.00184)
+ )
+(CHARACTER O 6
+ (CHARWD R 0.843048)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 7
+ (CHARWD R 0.553436)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 10
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 11
+ (CHARWD R 0.569305)
+ (CHARHT R 0.670471)
+ )
+(CHARACTER O 12
+ (CHARWD R 0.323334)
+ (CHARHT R 0.670471)
+ )
+(CHARACTER O 13
+ (CHARWD R 0.5078125)
+ (CHARDP R 0.170098)
+ )
+(CHARACTER O 14
+ (CHARWD R 0.323334)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 15
+ (CHARWD R 0.323334)
+ (CHARHT R 0.115051)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN O 22 R 0.122986)
+ (KRN C j R 0.122986)
+ (KRN O 32 R 0.122986)
+ (KRN C g R 0.061493)
+ (KRN O 247 R 0.061493)
+ (KRN C y R 0.061493)
+ (KRN O 270 R 0.061493)
+ (KRN O 375 R 0.061493)
+ (KRN C v R -0.092239)
+ (KRN C w R -0.061493)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN O 27 R 0.092239)
+ )
+ )
+(CHARACTER O 16
+ (CHARWD R 0.5078125)
+ (CHARHT R 0.483215)
+ )
+(CHARACTER O 17
+ (CHARWD R 0.5078125)
+ (CHARHT R 0.483215)
+ )
+(CHARACTER O 20
+ (CHARWD R 0.384827)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN O 140 R 0.122986)
+ (KRN O 20 R 0.122986)
+ (KRN O 27 R 0.092239)
+ )
+ )
+(CHARACTER O 21
+ (CHARWD R 0.384827)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN O 47 R 0.122986)
+ (KRN O 21 R 0.122986)
+ (KRN O 27 R 0.092239)
+ )
+ )
+(CHARACTER O 22
+ (CHARWD R 0.384827)
+ (CHARHT R 0.115051)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN O 15 R 0.122986)
+ (KRN O 54 R 0.122986)
+ (KRN O 22 R 0.122986)
+ (KRN C j R 0.122986)
+ (KRN O 32 R 0.122986)
+ (KRN C g R 0.061493)
+ (KRN O 247 R 0.061493)
+ (KRN C y R 0.061493)
+ (KRN O 270 R 0.061493)
+ (KRN O 375 R 0.061493)
+ (KRN C v R -0.092239)
+ (KRN C w R -0.061493)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN O 27 R 0.092239)
+ )
+ )
+(CHARACTER O 23
+ (CHARWD R 0.630798)
+ (CHARHT R 0.483215)
+ )
+(CHARACTER O 24
+ (CHARWD R 0.630798)
+ (CHARHT R 0.483215)
+ (COMMENT
+ (KRN O 56 R -0.092239)
+ (KRN O 54 R -0.092239)
+ )
+ )
+(CHARACTER O 25
+ (CHARWD R 0.569305)
+ (CHARHT R 0.43045)
+ (CHARIC R 0.030746)
+ (COMMENT
+ (LIG O 55 O 26)
+ )
+ )
+(CHARACTER O 26
+ (CHARWD R 1.138611)
+ (CHARHT R 0.43045)
+ (CHARIC R 0.030746)
+ )
+(CHARACTER O 27
+ (CHARWD R 0.0)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN O 20 R 0.092239)
+ (KRN O 21 R 0.092239)
+ (KRN O 22 R 0.092239)
+ (KRN O 55 R 0.092239)
+ (KRN O 140 R 0.092239)
+ (KRN O 47 R 0.092239)
+ )
+ )
+(CHARACTER O 30
+ (CHARWD R 0.44632)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.055542)
+ )
+(CHARACTER O 31
+ (CHARWD R 0.323334)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.35408)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 33
+ (CHARWD R 0.677414)
+ (CHARHT R 0.688721)
+ (CHARIC R 0.079841)
+ (COMMENT
+ (LIG C i O 36)
+ (LIG C l O 37)
+ (KRN O 47 R 0.079841)
+ (KRN O 140 R 0.079841)
+ (KRN O 20 R 0.079841)
+ (KRN O 21 R 0.079841)
+ (KRN O 77 R 0.079841)
+ (KRN O 41 R 0.079841)
+ (KRN O 51 R 0.079841)
+ (KRN O 135 R 0.079841)
+ )
+ )
+(CHARACTER O 34
+ (CHARWD R 0.6466675)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 35
+ (CHARWD R 0.6466675)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 36
+ (CHARWD R 0.970001)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 37
+ (CHARWD R 0.970001)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 40
+ (CHARWD R 0.569305)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.0971985)
+ )
+(CHARACTER O 41
+ (CHARWD R 0.323334)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (LIG O 140 O 275)
+ )
+ )
+(CHARACTER O 42
+ (CHARWD R 0.569305)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 43
+ (CHARWD R 0.938263)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 44
+ (CHARWD R 0.569305)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.055542)
+ )
+(CHARACTER O 45
+ (CHARWD R 0.938263)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.055542)
+ )
+(CHARACTER O 46
+ (CHARWD R 0.87677)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 47
+ (CHARWD R 0.323334)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (LIG O 47 O 21)
+ (KRN O 21 R 0.122986)
+ (KRN O 77 R 0.122986)
+ (KRN O 41 R 0.122986)
+ )
+ )
+(CHARACTER O 50
+ (CHARWD R 0.44632)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 51
+ (CHARWD R 0.44632)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 52
+ (CHARWD R 0.569305)
+ (CHARHT R 0.749817)
+ )
+(CHARACTER O 53
+ (CHARWD R 0.87677)
+ (CHARHT R 0.616913)
+ (CHARDP R 0.119019)
+ )
+(CHARACTER O 54
+ (CHARWD R 0.323334)
+ (CHARHT R 0.115051)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (LIG O 54 O 22)
+ )
+ )
+(CHARACTER O 55
+ (CHARWD R 0.384827)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (LIG O 55 O 25)
+ (LIG O 177 O 177)
+ )
+ )
+(CHARACTER O 56
+ (CHARWD R 0.323334)
+ (CHARHT R 0.115051)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.569305)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER C 0
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER C 1
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER C 2
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER C 3
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER C 4
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER C 5
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER C 6
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER C 7
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER C 8
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER C 9
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.323334)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.323334)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.87677)
+ (CHARHT R 0.5755415)
+ (CHARDP R 0.075664)
+ (COMMENT
+ (LIG O 74 O 23)
+ )
+ )
+(CHARACTER O 75
+ (CHARWD R 0.87677)
+ (CHARHT R 0.383989)
+ (CHARDP R -0.115889)
+ )
+(CHARACTER O 76
+ (CHARWD R 0.87677)
+ (CHARHT R 0.5755415)
+ (CHARDP R 0.075664)
+ (COMMENT
+ (LIG O 76 O 24)
+ )
+ )
+(CHARACTER O 77
+ (CHARWD R 0.538559)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (LIG O 140 O 276)
+ )
+ )
+(CHARACTER O 100
+ (CHARWD R 0.87677)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C A
+ (CHARWD R 0.843048)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C y R -0.092239)
+ (KRN O 270 R -0.092239)
+ (KRN O 375 R -0.092239)
+ (KRN C v R -0.122986)
+ (KRN C w R -0.092239)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ (KRN C d R -0.030746)
+ (KRN O 244 R -0.030746)
+ (KRN O 236 R -0.030746)
+ (KRN O 360 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C q R -0.030746)
+ (KRN C t R -0.030746)
+ (KRN O 264 R -0.030746)
+ (KRN O 265 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C U R -0.030746)
+ (KRN O 226 R -0.030746)
+ (KRN O 227 R -0.030746)
+ (KRN O 331 R -0.030746)
+ (KRN O 332 R -0.030746)
+ (KRN O 333 R -0.030746)
+ (KRN O 334 R -0.030746)
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER C B
+ (CHARWD R 0.798416)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C C
+ (CHARWD R 0.815277)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C D
+ (CHARWD R 0.859909)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C X R -0.030746)
+ (KRN C W R -0.030746)
+ (KRN C A R -0.030746)
+ (KRN O 200 R -0.030746)
+ (KRN O 201 R -0.030746)
+ (KRN O 300 R -0.030746)
+ (KRN O 301 R -0.030746)
+ (KRN O 302 R -0.030746)
+ (KRN O 303 R -0.030746)
+ (KRN O 304 R -0.030746)
+ (KRN O 305 R -0.030746)
+ (KRN O 306 R -0.030746)
+ (KRN C V R -0.030746)
+ (KRN C Y R -0.030746)
+ (KRN O 230 R -0.030746)
+ (KRN O 335 R -0.030746)
+ )
+ )
+(CHARACTER C E
+ (CHARWD R 0.76767)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C F
+ (CHARWD R 0.736923)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C o R -0.092239)
+ (KRN C a R -0.092239)
+ (KRN C e R -0.092239)
+ (KRN C y R -0.092239)
+ (KRN C u R -0.092239)
+ (KRN C r R -0.092239)
+ (KRN C v R -0.092239)
+ (KRN C s R -0.092239)
+ (KRN C c R -0.092239)
+ (KRN C d R -0.092239)
+ (KRN C g R -0.092239)
+ (KRN C m R -0.092239)
+ (KRN C n R -0.092239)
+ (KRN C p R -0.092239)
+ (KRN C w R -0.092239)
+ (KRN C z R -0.092239)
+ (KRN O 346 R -0.092239)
+ (KRN O 370 R -0.092239)
+ (KRN C A R -0.122986)
+ (KRN O 200 R -0.122986)
+ (KRN O 201 R -0.122986)
+ (KRN O 300 R -0.122986)
+ (KRN O 301 R -0.122986)
+ (KRN O 302 R -0.122986)
+ (KRN O 303 R -0.122986)
+ (KRN O 304 R -0.122986)
+ (KRN O 305 R -0.122986)
+ (KRN O 306 R -0.122986)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ )
+ )
+(CHARACTER C G
+ (CHARWD R 0.883713)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C H
+ (CHARWD R 0.843048)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C I
+ (CHARWD R 0.412598)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C I R 0.030746)
+ )
+ )
+(CHARACTER C J
+ (CHARWD R 0.583191)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C K
+ (CHARWD R 0.873795)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C v R -0.092239)
+ (KRN C w R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ )
+ )
+(CHARACTER C L
+ (CHARWD R 0.706177)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER C M
+ (CHARWD R 1.027527)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C N
+ (CHARWD R 0.843048)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C O
+ (CHARWD R 0.87677)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C X R -0.030746)
+ (KRN C W R -0.030746)
+ (KRN C A R -0.030746)
+ (KRN O 200 R -0.030746)
+ (KRN O 201 R -0.030746)
+ (KRN O 300 R -0.030746)
+ (KRN O 301 R -0.030746)
+ (KRN O 302 R -0.030746)
+ (KRN O 303 R -0.030746)
+ (KRN O 304 R -0.030746)
+ (KRN O 305 R -0.030746)
+ (KRN O 306 R -0.030746)
+ (KRN C V R -0.030746)
+ (KRN C Y R -0.030746)
+ (KRN O 230 R -0.030746)
+ (KRN O 335 R -0.030746)
+ )
+ )
+(CHARACTER C P
+ (CHARWD R 0.76767)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C A R -0.092239)
+ (KRN O 200 R -0.092239)
+ (KRN O 201 R -0.092239)
+ (KRN O 300 R -0.092239)
+ (KRN O 301 R -0.092239)
+ (KRN O 302 R -0.092239)
+ (KRN O 303 R -0.092239)
+ (KRN O 304 R -0.092239)
+ (KRN O 305 R -0.092239)
+ (KRN O 306 R -0.092239)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C a R -0.030746)
+ (KRN O 240 R -0.030746)
+ (KRN O 241 R -0.030746)
+ (KRN O 340 R -0.030746)
+ (KRN O 341 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 343 R -0.030746)
+ (KRN O 344 R -0.030746)
+ (KRN O 345 R -0.030746)
+ (KRN O 346 R -0.030746)
+ (KRN O 56 R -0.092239)
+ (KRN O 54 R -0.092239)
+ )
+ )
+(CHARACTER C Q
+ (CHARWD R 0.87677)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER C R
+ (CHARWD R 0.829163)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C t R -0.030746)
+ (KRN O 264 R -0.030746)
+ (KRN O 265 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C U R -0.030746)
+ (KRN O 226 R -0.030746)
+ (KRN O 227 R -0.030746)
+ (KRN O 331 R -0.030746)
+ (KRN O 332 R -0.030746)
+ (KRN O 333 R -0.030746)
+ (KRN O 334 R -0.030746)
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER C S
+ (CHARWD R 0.630798)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C T
+ (CHARWD R 0.815277)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C y R -0.030746)
+ (KRN C e R -0.092239)
+ (KRN C o R -0.092239)
+ (KRN C r R -0.092239)
+ (KRN C a R -0.092239)
+ (KRN C u R -0.092239)
+ (KRN C n R -0.092239)
+ (KRN O 31 R -0.092239)
+ (KRN C c R -0.092239)
+ (KRN C d R -0.092239)
+ (KRN C g R -0.092239)
+ (KRN C p R -0.092239)
+ (KRN C s R -0.092239)
+ (KRN C v R -0.092239)
+ (KRN C w R -0.092239)
+ (KRN C x R -0.092239)
+ (KRN C z R -0.092239)
+ (KRN C A R -0.092239)
+ (KRN O 200 R -0.092239)
+ (KRN O 201 R -0.092239)
+ (KRN O 300 R -0.092239)
+ (KRN O 301 R -0.092239)
+ (KRN O 302 R -0.092239)
+ (KRN O 303 R -0.092239)
+ (KRN O 304 R -0.092239)
+ (KRN O 305 R -0.092239)
+ (KRN O 306 R -0.092239)
+ )
+ )
+(CHARACTER C U
+ (CHARWD R 0.843048)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C V
+ (CHARWD R 0.843048)
+ (CHARHT R 0.688721)
+ (CHARIC R 0.015374)
+ (COMMENT
+ (KRN C o R -0.092239)
+ (KRN C a R -0.092239)
+ (KRN C e R -0.092239)
+ (KRN C y R -0.092239)
+ (KRN C u R -0.092239)
+ (KRN C r R -0.092239)
+ (KRN C v R -0.092239)
+ (KRN C s R -0.092239)
+ (KRN C c R -0.092239)
+ (KRN C d R -0.092239)
+ (KRN C g R -0.092239)
+ (KRN C m R -0.092239)
+ (KRN C n R -0.092239)
+ (KRN C p R -0.092239)
+ (KRN C w R -0.092239)
+ (KRN C z R -0.092239)
+ (KRN O 346 R -0.092239)
+ (KRN O 370 R -0.092239)
+ (KRN C A R -0.122986)
+ (KRN O 200 R -0.122986)
+ (KRN O 201 R -0.122986)
+ (KRN O 300 R -0.122986)
+ (KRN O 301 R -0.122986)
+ (KRN O 302 R -0.122986)
+ (KRN O 303 R -0.122986)
+ (KRN O 304 R -0.122986)
+ (KRN O 305 R -0.122986)
+ (KRN O 306 R -0.122986)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ )
+ )
+(CHARACTER C W
+ (CHARWD R 1.150513)
+ (CHARHT R 0.688721)
+ (CHARIC R 0.015374)
+ (COMMENT
+ (KRN C o R -0.092239)
+ (KRN C a R -0.092239)
+ (KRN C e R -0.092239)
+ (KRN C y R -0.092239)
+ (KRN C u R -0.092239)
+ (KRN C r R -0.092239)
+ (KRN C v R -0.092239)
+ (KRN C s R -0.092239)
+ (KRN C c R -0.092239)
+ (KRN C d R -0.092239)
+ (KRN C g R -0.092239)
+ (KRN C m R -0.092239)
+ (KRN C n R -0.092239)
+ (KRN C p R -0.092239)
+ (KRN C w R -0.092239)
+ (KRN C z R -0.092239)
+ (KRN O 346 R -0.092239)
+ (KRN O 370 R -0.092239)
+ (KRN C A R -0.122986)
+ (KRN O 200 R -0.122986)
+ (KRN O 201 R -0.122986)
+ (KRN O 300 R -0.122986)
+ (KRN O 301 R -0.122986)
+ (KRN O 302 R -0.122986)
+ (KRN O 303 R -0.122986)
+ (KRN O 304 R -0.122986)
+ (KRN O 305 R -0.122986)
+ (KRN O 306 R -0.122986)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ )
+ )
+(CHARACTER C X
+ (CHARWD R 0.843048)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ )
+ )
+(CHARACTER C Y
+ (CHARWD R 0.843048)
+ (CHARHT R 0.688721)
+ (CHARIC R 0.027671)
+ (COMMENT
+ (KRN C e R -0.092239)
+ (KRN C o R -0.092239)
+ (KRN C r R -0.092239)
+ (KRN C a R -0.092239)
+ (KRN C u R -0.092239)
+ (KRN C n R -0.092239)
+ (KRN O 31 R -0.092239)
+ (KRN C c R -0.092239)
+ (KRN C d R -0.092239)
+ (KRN C g R -0.092239)
+ (KRN C p R -0.092239)
+ (KRN C s R -0.092239)
+ (KRN C v R -0.092239)
+ (KRN C w R -0.092239)
+ (KRN C x R -0.092239)
+ (KRN C z R -0.092239)
+ (KRN C A R -0.092239)
+ (KRN O 200 R -0.092239)
+ (KRN O 201 R -0.092239)
+ (KRN O 300 R -0.092239)
+ (KRN O 301 R -0.092239)
+ (KRN O 302 R -0.092239)
+ (KRN O 303 R -0.092239)
+ (KRN O 304 R -0.092239)
+ (KRN O 305 R -0.092239)
+ (KRN O 306 R -0.092239)
+ )
+ )
+(CHARACTER C Z
+ (CHARWD R 0.692291)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 133
+ (CHARWD R 0.323334)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.569305)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.323334)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 136
+ (CHARWD R 0.692291)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 137
+ (CHARWD R 0.87677)
+ (CHARDP R 0.295192)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.323334)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (LIG O 140 O 20)
+ (KRN O 20 R 0.122986)
+ (KRN O 77 R 0.122986)
+ (KRN O 41 R 0.122986)
+ )
+ )
+(CHARACTER C a
+ (CHARWD R 0.569305)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER C b
+ (CHARWD R 0.630798)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C e R 0.030746)
+ (KRN O 245 R 0.030746)
+ (KRN O 246 R 0.030746)
+ (KRN O 350 R 0.030746)
+ (KRN O 351 R 0.030746)
+ (KRN O 352 R 0.030746)
+ (KRN O 353 R 0.030746)
+ (KRN C o R 0.030746)
+ (KRN O 256 R 0.030746)
+ (KRN O 362 R 0.030746)
+ (KRN O 363 R 0.030746)
+ (KRN O 364 R 0.030746)
+ (KRN O 365 R 0.030746)
+ (KRN O 366 R 0.030746)
+ (KRN O 367 R 0.030746)
+ (KRN O 370 R 0.030746)
+ (KRN C x R -0.030746)
+ (KRN C d R 0.030746)
+ (KRN C c R 0.030746)
+ (KRN O 242 R 0.030746)
+ (KRN O 243 R 0.030746)
+ (KRN O 347 R 0.030746)
+ (KRN C q R 0.030746)
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER C c
+ (CHARWD R 0.5078125)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C h R -0.030746)
+ (KRN C k R -0.030746)
+ )
+ )
+(CHARACTER C d
+ (CHARWD R 0.630798)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C e
+ (CHARWD R 0.507814)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C V R -0.092239)
+ )
+ )
+(CHARACTER C f
+ (CHARWD R 0.35408)
+ (CHARHT R 0.688721)
+ (CHARIC R 0.079841)
+ (COMMENT
+ (LIG C i O 34)
+ (LIG C f O 33)
+ (LIG C l O 35)
+ (KRN O 47 R 0.079841)
+ (KRN O 140 R 0.079841)
+ (KRN O 20 R 0.079841)
+ (KRN O 21 R 0.079841)
+ (KRN O 77 R 0.079841)
+ (KRN O 41 R 0.079841)
+ (KRN O 51 R 0.079841)
+ (KRN O 135 R 0.079841)
+ )
+ )
+(CHARACTER C g
+ (CHARWD R 0.569305)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.015374)
+ (COMMENT
+ (KRN C j R 0.030746)
+ )
+ )
+(CHARACTER C h
+ (CHARWD R 0.630798)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C W R -0.092239)
+ (KRN C V R -0.092239)
+ (KRN C t R -0.030746)
+ (KRN C u R -0.030746)
+ (KRN O 266 R -0.030746)
+ (KRN O 267 R -0.030746)
+ (KRN O 371 R -0.030746)
+ (KRN O 372 R -0.030746)
+ (KRN O 373 R -0.030746)
+ (KRN O 374 R -0.030746)
+ (KRN C b R -0.030746)
+ (KRN C y R -0.030746)
+ (KRN C v R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER C i
+ (CHARWD R 0.323334)
+ (CHARHT R 0.670471)
+ )
+(CHARACTER C j
+ (CHARWD R 0.35408)
+ (CHARHT R 0.670471)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER C k
+ (CHARWD R 0.600052)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C W R -0.092239)
+ (KRN C V R -0.092239)
+ (KRN C a R -0.061493)
+ (KRN O 240 R -0.061493)
+ (KRN O 241 R -0.061493)
+ (KRN O 340 R -0.061493)
+ (KRN O 341 R -0.061493)
+ (KRN O 342 R -0.061493)
+ (KRN O 342 R -0.061493)
+ (KRN O 343 R -0.061493)
+ (KRN O 344 R -0.061493)
+ (KRN O 345 R -0.061493)
+ (KRN O 346 R -0.061493)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C a R -0.030746)
+ (KRN O 240 R -0.030746)
+ (KRN O 241 R -0.030746)
+ (KRN O 340 R -0.030746)
+ (KRN O 341 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 343 R -0.030746)
+ (KRN O 344 R -0.030746)
+ (KRN O 345 R -0.030746)
+ (KRN O 346 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ )
+ )
+(CHARACTER C l
+ (CHARWD R 0.323334)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C m
+ (CHARWD R 0.938263)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C W R -0.092239)
+ (KRN C V R -0.092239)
+ (KRN C t R -0.030746)
+ (KRN C u R -0.030746)
+ (KRN O 266 R -0.030746)
+ (KRN O 267 R -0.030746)
+ (KRN O 371 R -0.030746)
+ (KRN O 372 R -0.030746)
+ (KRN O 373 R -0.030746)
+ (KRN O 374 R -0.030746)
+ (KRN C b R -0.030746)
+ (KRN C y R -0.030746)
+ (KRN C v R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER C n
+ (CHARWD R 0.630798)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C W R -0.092239)
+ (KRN C V R -0.092239)
+ (KRN C t R -0.030746)
+ (KRN C u R -0.030746)
+ (KRN O 266 R -0.030746)
+ (KRN O 267 R -0.030746)
+ (KRN O 371 R -0.030746)
+ (KRN O 372 R -0.030746)
+ (KRN O 373 R -0.030746)
+ (KRN O 374 R -0.030746)
+ (KRN C b R -0.030746)
+ (KRN C y R -0.030746)
+ (KRN C v R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER C o
+ (CHARWD R 0.569305)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C e R 0.030746)
+ (KRN O 245 R 0.030746)
+ (KRN O 246 R 0.030746)
+ (KRN O 350 R 0.030746)
+ (KRN O 351 R 0.030746)
+ (KRN O 352 R 0.030746)
+ (KRN O 353 R 0.030746)
+ (KRN C o R 0.030746)
+ (KRN O 256 R 0.030746)
+ (KRN O 362 R 0.030746)
+ (KRN O 363 R 0.030746)
+ (KRN O 364 R 0.030746)
+ (KRN O 365 R 0.030746)
+ (KRN O 366 R 0.030746)
+ (KRN O 367 R 0.030746)
+ (KRN O 370 R 0.030746)
+ (KRN C x R -0.030746)
+ (KRN C d R 0.030746)
+ (KRN C c R 0.030746)
+ (KRN O 242 R 0.030746)
+ (KRN O 243 R 0.030746)
+ (KRN O 347 R 0.030746)
+ (KRN C q R 0.030746)
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER C p
+ (CHARWD R 0.630798)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN C e R 0.030746)
+ (KRN O 245 R 0.030746)
+ (KRN O 246 R 0.030746)
+ (KRN O 350 R 0.030746)
+ (KRN O 351 R 0.030746)
+ (KRN O 352 R 0.030746)
+ (KRN O 353 R 0.030746)
+ (KRN C o R 0.030746)
+ (KRN O 256 R 0.030746)
+ (KRN O 362 R 0.030746)
+ (KRN O 363 R 0.030746)
+ (KRN O 364 R 0.030746)
+ (KRN O 365 R 0.030746)
+ (KRN O 366 R 0.030746)
+ (KRN O 367 R 0.030746)
+ (KRN O 370 R 0.030746)
+ (KRN C x R -0.030746)
+ (KRN C d R 0.030746)
+ (KRN C c R 0.030746)
+ (KRN O 242 R 0.030746)
+ (KRN O 243 R 0.030746)
+ (KRN O 347 R 0.030746)
+ (KRN C q R 0.030746)
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER C q
+ (CHARWD R 0.600052)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER C r
+ (CHARWD R 0.44632)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER C s
+ (CHARWD R 0.452469)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER C t
+ (CHARWD R 0.44632)
+ (CHARHT R 0.616913)
+ (COMMENT
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER C u
+ (CHARWD R 0.630798)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER C v
+ (CHARWD R 0.600052)
+ (CHARHT R 0.43045)
+ (CHARIC R 0.015374)
+ (COMMENT
+ (KRN C a R -0.061493)
+ (KRN O 240 R -0.061493)
+ (KRN O 241 R -0.061493)
+ (KRN O 340 R -0.061493)
+ (KRN O 341 R -0.061493)
+ (KRN O 342 R -0.061493)
+ (KRN O 342 R -0.061493)
+ (KRN O 343 R -0.061493)
+ (KRN O 344 R -0.061493)
+ (KRN O 345 R -0.061493)
+ (KRN O 346 R -0.061493)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C a R -0.030746)
+ (KRN O 240 R -0.030746)
+ (KRN O 241 R -0.030746)
+ (KRN O 340 R -0.030746)
+ (KRN O 341 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 343 R -0.030746)
+ (KRN O 344 R -0.030746)
+ (KRN O 345 R -0.030746)
+ (KRN O 346 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ )
+ )
+(CHARACTER C w
+ (CHARWD R 0.815277)
+ (CHARHT R 0.43045)
+ (CHARIC R 0.015374)
+ (COMMENT
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C a R -0.030746)
+ (KRN O 240 R -0.030746)
+ (KRN O 241 R -0.030746)
+ (KRN O 340 R -0.030746)
+ (KRN O 341 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 343 R -0.030746)
+ (KRN O 344 R -0.030746)
+ (KRN O 345 R -0.030746)
+ (KRN O 346 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ )
+ )
+(CHARACTER C x
+ (CHARWD R 0.600052)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER C y
+ (CHARWD R 0.600052)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.015374)
+ (COMMENT
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C a R -0.030746)
+ (KRN O 240 R -0.030746)
+ (KRN O 241 R -0.030746)
+ (KRN O 340 R -0.030746)
+ (KRN O 341 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 343 R -0.030746)
+ (KRN O 344 R -0.030746)
+ (KRN O 345 R -0.030746)
+ (KRN O 346 R -0.030746)
+ (KRN O 56 R -0.092239)
+ (KRN O 54 R -0.092239)
+ )
+ )
+(CHARACTER C z
+ (CHARWD R 0.5078125)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER O 173
+ (CHARWD R 0.569305)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 174
+ (CHARWD R 0.323334)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 175
+ (CHARWD R 0.569305)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 176
+ (CHARWD R 0.692291)
+ (CHARHT R 0.670471)
+ )
+(CHARACTER O 177
+ (CHARWD R 0.200348)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER O 200
+ (CHARWD R 0.843048)
+ (CHARHT R 0.903351)
+ (COMMENT
+ (KRN C y R -0.092239)
+ (KRN O 270 R -0.092239)
+ (KRN O 375 R -0.092239)
+ (KRN C v R -0.122986)
+ (KRN C w R -0.092239)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ (KRN C d R -0.030746)
+ (KRN O 244 R -0.030746)
+ (KRN O 236 R -0.030746)
+ (KRN O 360 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C q R -0.030746)
+ (KRN C t R -0.030746)
+ (KRN O 264 R -0.030746)
+ (KRN O 265 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C U R -0.030746)
+ (KRN O 226 R -0.030746)
+ (KRN O 227 R -0.030746)
+ (KRN O 331 R -0.030746)
+ (KRN O 332 R -0.030746)
+ (KRN O 333 R -0.030746)
+ (KRN O 334 R -0.030746)
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER O 201
+ (CHARWD R 0.843048)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 202
+ (CHARWD R 0.815277)
+ (CHARHT R 0.8647785)
+ (COMMENT
+ (KRN C v R -0.122986)
+ (KRN C w R -0.092239)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ (KRN C d R -0.030746)
+ (KRN O 244 R -0.030746)
+ (KRN O 236 R -0.030746)
+ (KRN O 360 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C q R -0.030746)
+ (KRN C t R -0.030746)
+ (KRN O 264 R -0.030746)
+ (KRN O 265 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C U R -0.030746)
+ (KRN O 226 R -0.030746)
+ (KRN O 227 R -0.030746)
+ (KRN O 331 R -0.030746)
+ (KRN O 332 R -0.030746)
+ (KRN O 333 R -0.030746)
+ (KRN O 334 R -0.030746)
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER O 203
+ (CHARWD R 0.815277)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 204
+ (CHARWD R 0.859909)
+ (CHARHT R 0.903351)
+ (COMMENT
+ (KRN C X R -0.030746)
+ (KRN C W R -0.030746)
+ (KRN C A R -0.030746)
+ (KRN O 200 R -0.030746)
+ (KRN O 201 R -0.030746)
+ (KRN O 300 R -0.030746)
+ (KRN O 301 R -0.030746)
+ (KRN O 302 R -0.030746)
+ (KRN O 303 R -0.030746)
+ (KRN O 304 R -0.030746)
+ (KRN O 305 R -0.030746)
+ (KRN O 306 R -0.030746)
+ (KRN C V R -0.030746)
+ (KRN C Y R -0.030746)
+ (KRN O 230 R -0.030746)
+ (KRN O 335 R -0.030746)
+ )
+ )
+(CHARACTER O 205
+ (CHARWD R 0.76767)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 206
+ (CHARWD R 0.76767)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 207
+ (CHARWD R 0.883713)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 210
+ (CHARWD R 0.706177)
+ (CHARHT R 0.8647785)
+ (COMMENT
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER O 211
+ (CHARWD R 0.706177)
+ (CHARHT R 0.903351)
+ (COMMENT
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER O 212
+ (CHARWD R 0.706177)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER O 213
+ (CHARWD R 0.843048)
+ (CHARHT R 0.8647785)
+ )
+(CHARACTER O 214
+ (CHARWD R 0.843048)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 215
+ (CHARWD R 0.8906555)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 216
+ (CHARWD R 0.87677)
+ (CHARHT R 0.8647785)
+ (COMMENT
+ (KRN C X R -0.030746)
+ (KRN C W R -0.030746)
+ (KRN C A R -0.030746)
+ (KRN O 200 R -0.030746)
+ (KRN O 201 R -0.030746)
+ (KRN O 300 R -0.030746)
+ (KRN O 301 R -0.030746)
+ (KRN O 302 R -0.030746)
+ (KRN O 303 R -0.030746)
+ (KRN O 304 R -0.030746)
+ (KRN O 305 R -0.030746)
+ (KRN O 306 R -0.030746)
+ (KRN C V R -0.030746)
+ (KRN C Y R -0.030746)
+ (KRN O 230 R -0.030746)
+ (KRN O 335 R -0.030746)
+ )
+ )
+(CHARACTER O 217
+ (CHARWD R 0.829163)
+ (CHARHT R 0.8647785)
+ (COMMENT
+ (KRN C t R -0.030746)
+ (KRN O 264 R -0.030746)
+ (KRN O 265 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C U R -0.030746)
+ (KRN O 226 R -0.030746)
+ (KRN O 227 R -0.030746)
+ (KRN O 331 R -0.030746)
+ (KRN O 332 R -0.030746)
+ (KRN O 333 R -0.030746)
+ (KRN O 334 R -0.030746)
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER O 220
+ (CHARWD R 0.829163)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 221
+ (CHARWD R 0.630798)
+ (CHARHT R 0.8647785)
+ )
+(CHARACTER O 222
+ (CHARWD R 0.630798)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 223
+ (CHARWD R 0.630798)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.170098)
+ )
+(CHARACTER O 224
+ (CHARWD R 0.815277)
+ (CHARHT R 0.903351)
+ (COMMENT
+ (KRN C y R -0.030746)
+ (KRN C e R -0.092239)
+ (KRN C o R -0.092239)
+ (KRN C r R -0.092239)
+ (KRN C a R -0.092239)
+ (KRN C u R -0.092239)
+ (KRN C n R -0.092239)
+ (KRN O 31 R -0.092239)
+ (KRN C c R -0.092239)
+ (KRN C d R -0.092239)
+ (KRN C g R -0.092239)
+ (KRN C p R -0.092239)
+ (KRN C s R -0.092239)
+ (KRN C v R -0.092239)
+ (KRN C w R -0.092239)
+ (KRN C x R -0.092239)
+ (KRN C z R -0.092239)
+ (KRN C A R -0.092239)
+ (KRN O 200 R -0.092239)
+ (KRN O 201 R -0.092239)
+ (KRN O 300 R -0.092239)
+ (KRN O 301 R -0.092239)
+ (KRN O 302 R -0.092239)
+ (KRN O 303 R -0.092239)
+ (KRN O 304 R -0.092239)
+ (KRN O 305 R -0.092239)
+ (KRN O 306 R -0.092239)
+ )
+ )
+(CHARACTER O 225
+ (CHARWD R 0.815277)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.170098)
+ (COMMENT
+ (KRN C y R -0.030746)
+ (KRN C e R -0.092239)
+ (KRN C o R -0.092239)
+ (KRN C r R -0.092239)
+ (KRN C a R -0.092239)
+ (KRN C u R -0.092239)
+ (KRN C n R -0.092239)
+ (KRN O 31 R -0.092239)
+ (KRN C c R -0.092239)
+ (KRN C d R -0.092239)
+ (KRN C g R -0.092239)
+ (KRN C p R -0.092239)
+ (KRN C s R -0.092239)
+ (KRN C v R -0.092239)
+ (KRN C w R -0.092239)
+ (KRN C x R -0.092239)
+ (KRN C z R -0.092239)
+ (KRN C A R -0.092239)
+ (KRN O 200 R -0.092239)
+ (KRN O 201 R -0.092239)
+ (KRN O 300 R -0.092239)
+ (KRN O 301 R -0.092239)
+ (KRN O 302 R -0.092239)
+ (KRN O 303 R -0.092239)
+ (KRN O 304 R -0.092239)
+ (KRN O 305 R -0.092239)
+ (KRN O 306 R -0.092239)
+ )
+ )
+(CHARACTER O 226
+ (CHARWD R 0.843048)
+ (CHARHT R 0.8647785)
+ )
+(CHARACTER O 227
+ (CHARWD R 0.843048)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 230
+ (CHARWD R 0.843048)
+ (CHARHT R 0.903351)
+ (CHARIC R 0.027671)
+ (COMMENT
+ (KRN C e R -0.092239)
+ (KRN C o R -0.092239)
+ (KRN C r R -0.092239)
+ (KRN C a R -0.092239)
+ (KRN C u R -0.092239)
+ (KRN C n R -0.092239)
+ (KRN O 31 R -0.092239)
+ (KRN C c R -0.092239)
+ (KRN C d R -0.092239)
+ (KRN C g R -0.092239)
+ (KRN C p R -0.092239)
+ (KRN C s R -0.092239)
+ (KRN C v R -0.092239)
+ (KRN C w R -0.092239)
+ (KRN C x R -0.092239)
+ (KRN C z R -0.092239)
+ (KRN C A R -0.092239)
+ (KRN O 200 R -0.092239)
+ (KRN O 201 R -0.092239)
+ (KRN O 300 R -0.092239)
+ (KRN O 301 R -0.092239)
+ (KRN O 302 R -0.092239)
+ (KRN O 303 R -0.092239)
+ (KRN O 304 R -0.092239)
+ (KRN O 305 R -0.092239)
+ (KRN O 306 R -0.092239)
+ )
+ )
+(CHARACTER O 231
+ (CHARWD R 0.692291)
+ (CHARHT R 0.8647785)
+ )
+(CHARACTER O 232
+ (CHARWD R 0.692291)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 233
+ (CHARWD R 0.692291)
+ (CHARHT R 0.8647785)
+ )
+(CHARACTER O 234
+ (CHARWD R 0.966034)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 235
+ (CHARWD R 0.412598)
+ (CHARHT R 0.8647785)
+ )
+(CHARACTER O 236
+ (CHARWD R 0.630798)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 237
+ (CHARWD R 0.5078125)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 240
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 241
+ (CHARWD R 0.569305)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN C g R 0.030746)
+ (KRN C p R 0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 242
+ (CHARWD R 0.5078125)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C h R -0.030746)
+ (KRN C k R -0.030746)
+ )
+ )
+(CHARACTER O 243
+ (CHARWD R 0.5078125)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C h R -0.030746)
+ (KRN C k R -0.030746)
+ )
+ )
+(CHARACTER O 244
+ (CHARWD R 0.761224)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 245
+ (CHARWD R 0.507814)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 246
+ (CHARWD R 0.507814)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 247
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.015374)
+ )
+(CHARACTER O 250
+ (CHARWD R 0.323334)
+ (CHARHT R 0.8647785)
+ (CHARIC R 0.046661)
+ )
+(CHARACTER O 251
+ (CHARWD R 0.4609)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 252
+ (CHARWD R 0.387902)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN O 47 R 0.030746)
+ )
+ )
+(CHARACTER O 253
+ (CHARWD R 0.630798)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C t R -0.030746)
+ (KRN C u R -0.030746)
+ (KRN O 266 R -0.030746)
+ (KRN O 267 R -0.030746)
+ (KRN O 371 R -0.030746)
+ (KRN O 372 R -0.030746)
+ (KRN O 373 R -0.030746)
+ (KRN O 374 R -0.030746)
+ (KRN C b R -0.030746)
+ (KRN C y R -0.030746)
+ (KRN C v R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 254
+ (CHARWD R 0.630798)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C t R -0.030746)
+ (KRN C u R -0.030746)
+ (KRN O 266 R -0.030746)
+ (KRN O 267 R -0.030746)
+ (KRN O 371 R -0.030746)
+ (KRN O 372 R -0.030746)
+ (KRN O 373 R -0.030746)
+ (KRN O 374 R -0.030746)
+ (KRN C b R -0.030746)
+ (KRN C y R -0.030746)
+ (KRN C v R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 255
+ (CHARWD R 0.630798)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN C t R -0.030746)
+ (KRN C u R -0.030746)
+ (KRN O 266 R -0.030746)
+ (KRN O 267 R -0.030746)
+ (KRN O 371 R -0.030746)
+ (KRN O 372 R -0.030746)
+ (KRN O 373 R -0.030746)
+ (KRN O 374 R -0.030746)
+ (KRN C b R -0.030746)
+ (KRN C y R -0.030746)
+ (KRN C v R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 256
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (CHARIC R 0.00184)
+ (COMMENT
+ (KRN C e R 0.030746)
+ (KRN O 245 R 0.030746)
+ (KRN O 246 R 0.030746)
+ (KRN O 350 R 0.030746)
+ (KRN O 351 R 0.030746)
+ (KRN O 352 R 0.030746)
+ (KRN O 353 R 0.030746)
+ (KRN C o R 0.030746)
+ (KRN O 256 R 0.030746)
+ (KRN O 362 R 0.030746)
+ (KRN O 363 R 0.030746)
+ (KRN O 364 R 0.030746)
+ (KRN O 365 R 0.030746)
+ (KRN O 366 R 0.030746)
+ (KRN O 367 R 0.030746)
+ (KRN O 370 R 0.030746)
+ (KRN C x R -0.030746)
+ (KRN C d R 0.030746)
+ (KRN C c R 0.030746)
+ (KRN O 242 R 0.030746)
+ (KRN O 243 R 0.030746)
+ (KRN O 347 R 0.030746)
+ (KRN C q R 0.030746)
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 257
+ (CHARWD R 0.44632)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 260
+ (CHARWD R 0.44632)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 261
+ (CHARWD R 0.452469)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 262
+ (CHARWD R 0.452469)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 263
+ (CHARWD R 0.452469)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.170098)
+ )
+(CHARACTER O 264
+ (CHARWD R 0.44632)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 265
+ (CHARWD R 0.44632)
+ (CHARHT R 0.616913)
+ (CHARDP R 0.170098)
+ (COMMENT
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 266
+ (CHARWD R 0.630798)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 267
+ (CHARWD R 0.630798)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 270
+ (CHARWD R 0.600052)
+ (CHARHT R 0.670471)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.015374)
+ (COMMENT
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C a R -0.030746)
+ (KRN O 240 R -0.030746)
+ (KRN O 241 R -0.030746)
+ (KRN O 340 R -0.030746)
+ (KRN O 341 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 343 R -0.030746)
+ (KRN O 344 R -0.030746)
+ (KRN O 345 R -0.030746)
+ (KRN O 346 R -0.030746)
+ (KRN O 56 R -0.092239)
+ (KRN O 54 R -0.092239)
+ )
+ )
+(CHARACTER O 271
+ (CHARWD R 0.5078125)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 272
+ (CHARWD R 0.5078125)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 273
+ (CHARWD R 0.5078125)
+ (CHARHT R 0.670471)
+ )
+(CHARACTER O 274
+ (CHARWD R 0.661545)
+ (CHARHT R 0.670471)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 275
+ (CHARWD R 0.323334)
+ (CHARHT R 0.499878)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 276
+ (CHARWD R 0.538559)
+ (CHARHT R 0.499878)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 277
+ (CHARWD R 0.723038)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 300
+ (CHARWD R 0.843048)
+ (CHARHT R 0.8647785)
+ (COMMENT
+ (KRN C y R -0.092239)
+ (KRN O 270 R -0.092239)
+ (KRN O 375 R -0.092239)
+ (KRN C v R -0.122986)
+ (KRN C w R -0.092239)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ (KRN C d R -0.030746)
+ (KRN O 244 R -0.030746)
+ (KRN O 236 R -0.030746)
+ (KRN O 360 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C q R -0.030746)
+ (KRN C t R -0.030746)
+ (KRN O 264 R -0.030746)
+ (KRN O 265 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C U R -0.030746)
+ (KRN O 226 R -0.030746)
+ (KRN O 227 R -0.030746)
+ (KRN O 331 R -0.030746)
+ (KRN O 332 R -0.030746)
+ (KRN O 333 R -0.030746)
+ (KRN O 334 R -0.030746)
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER O 301
+ (CHARWD R 0.843048)
+ (CHARHT R 0.8647785)
+ (COMMENT
+ (KRN C y R -0.092239)
+ (KRN O 270 R -0.092239)
+ (KRN O 375 R -0.092239)
+ (KRN C v R -0.122986)
+ (KRN C w R -0.092239)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ (KRN C d R -0.030746)
+ (KRN O 244 R -0.030746)
+ (KRN O 236 R -0.030746)
+ (KRN O 360 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C q R -0.030746)
+ (KRN C t R -0.030746)
+ (KRN O 264 R -0.030746)
+ (KRN O 265 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C U R -0.030746)
+ (KRN O 226 R -0.030746)
+ (KRN O 227 R -0.030746)
+ (KRN O 331 R -0.030746)
+ (KRN O 332 R -0.030746)
+ (KRN O 333 R -0.030746)
+ (KRN O 334 R -0.030746)
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER O 302
+ (CHARWD R 0.843048)
+ (CHARHT R 0.903351)
+ (COMMENT
+ (KRN C y R -0.092239)
+ (KRN O 270 R -0.092239)
+ (KRN O 375 R -0.092239)
+ (KRN C v R -0.122986)
+ (KRN C w R -0.092239)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ (KRN C d R -0.030746)
+ (KRN O 244 R -0.030746)
+ (KRN O 236 R -0.030746)
+ (KRN O 360 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C q R -0.030746)
+ (KRN C t R -0.030746)
+ (KRN O 264 R -0.030746)
+ (KRN O 265 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C U R -0.030746)
+ (KRN O 226 R -0.030746)
+ (KRN O 227 R -0.030746)
+ (KRN O 331 R -0.030746)
+ (KRN O 332 R -0.030746)
+ (KRN O 333 R -0.030746)
+ (KRN O 334 R -0.030746)
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER O 303
+ (CHARWD R 0.843048)
+ (CHARHT R 0.903351)
+ (COMMENT
+ (KRN C y R -0.092239)
+ (KRN O 270 R -0.092239)
+ (KRN O 375 R -0.092239)
+ (KRN C v R -0.122986)
+ (KRN C w R -0.092239)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ (KRN C d R -0.030746)
+ (KRN O 244 R -0.030746)
+ (KRN O 236 R -0.030746)
+ (KRN O 360 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C q R -0.030746)
+ (KRN C t R -0.030746)
+ (KRN O 264 R -0.030746)
+ (KRN O 265 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C U R -0.030746)
+ (KRN O 226 R -0.030746)
+ (KRN O 227 R -0.030746)
+ (KRN O 331 R -0.030746)
+ (KRN O 332 R -0.030746)
+ (KRN O 333 R -0.030746)
+ (KRN O 334 R -0.030746)
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER O 304
+ (CHARWD R 0.843048)
+ (CHARHT R 0.903351)
+ (COMMENT
+ (KRN C y R -0.092239)
+ (KRN O 270 R -0.092239)
+ (KRN O 375 R -0.092239)
+ (KRN C v R -0.122986)
+ (KRN C w R -0.092239)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ (KRN C d R -0.030746)
+ (KRN O 244 R -0.030746)
+ (KRN O 236 R -0.030746)
+ (KRN O 360 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C q R -0.030746)
+ (KRN C t R -0.030746)
+ (KRN O 264 R -0.030746)
+ (KRN O 265 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C U R -0.030746)
+ (KRN O 226 R -0.030746)
+ (KRN O 227 R -0.030746)
+ (KRN O 331 R -0.030746)
+ (KRN O 332 R -0.030746)
+ (KRN O 333 R -0.030746)
+ (KRN O 334 R -0.030746)
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER O 305
+ (CHARWD R 0.843048)
+ (CHARHT R 0.8647785)
+ (COMMENT
+ (KRN C y R -0.092239)
+ (KRN O 270 R -0.092239)
+ (KRN O 375 R -0.092239)
+ (KRN C v R -0.122986)
+ (KRN C w R -0.092239)
+ (KRN C c R -0.030746)
+ (KRN O 242 R -0.030746)
+ (KRN O 243 R -0.030746)
+ (KRN O 347 R -0.030746)
+ (KRN C d R -0.030746)
+ (KRN O 244 R -0.030746)
+ (KRN O 236 R -0.030746)
+ (KRN O 360 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C q R -0.030746)
+ (KRN C t R -0.030746)
+ (KRN O 264 R -0.030746)
+ (KRN O 265 R -0.030746)
+ (KRN C C R -0.030746)
+ (KRN C G R -0.030746)
+ (KRN O 202 R -0.030746)
+ (KRN O 203 R -0.030746)
+ (KRN O 207 R -0.030746)
+ (KRN O 307 R -0.030746)
+ (KRN C Q R -0.030746)
+ (KRN C O R -0.030746)
+ (KRN O 216 R -0.030746)
+ (KRN O 322 R -0.030746)
+ (KRN O 323 R -0.030746)
+ (KRN O 324 R -0.030746)
+ (KRN O 325 R -0.030746)
+ (KRN O 326 R -0.030746)
+ (KRN O 327 R -0.030746)
+ (KRN O 330 R -0.030746)
+ (KRN C U R -0.030746)
+ (KRN O 226 R -0.030746)
+ (KRN O 227 R -0.030746)
+ (KRN O 331 R -0.030746)
+ (KRN O 332 R -0.030746)
+ (KRN O 333 R -0.030746)
+ (KRN O 334 R -0.030746)
+ (KRN C T R -0.092239)
+ (KRN O 224 R -0.092239)
+ (KRN O 225 R -0.092239)
+ (KRN C Y R -0.092239)
+ (KRN O 230 R -0.092239)
+ (KRN O 335 R -0.092239)
+ (KRN C V R -0.122986)
+ (KRN C W R -0.122986)
+ )
+ )
+(CHARACTER O 306
+ (CHARWD R 1.013641)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 307
+ (CHARWD R 0.815277)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.170098)
+ )
+(CHARACTER O 310
+ (CHARWD R 0.76767)
+ (CHARHT R 0.8647785)
+ )
+(CHARACTER O 311
+ (CHARWD R 0.76767)
+ (CHARHT R 0.8647785)
+ )
+(CHARACTER O 312
+ (CHARWD R 0.76767)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 313
+ (CHARWD R 0.76767)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 314
+ (CHARWD R 0.412598)
+ (CHARHT R 0.8647785)
+ )
+(CHARACTER O 315
+ (CHARWD R 0.412598)
+ (CHARHT R 0.8647785)
+ )
+(CHARACTER O 316
+ (CHARWD R 0.412598)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 317
+ (CHARWD R 0.412598)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 320
+ (CHARWD R 0.859909)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C X R -0.030746)
+ (KRN C W R -0.030746)
+ (KRN C A R -0.030746)
+ (KRN O 200 R -0.030746)
+ (KRN O 201 R -0.030746)
+ (KRN O 300 R -0.030746)
+ (KRN O 301 R -0.030746)
+ (KRN O 302 R -0.030746)
+ (KRN O 303 R -0.030746)
+ (KRN O 304 R -0.030746)
+ (KRN O 305 R -0.030746)
+ (KRN O 306 R -0.030746)
+ (KRN C V R -0.030746)
+ (KRN C Y R -0.030746)
+ (KRN O 230 R -0.030746)
+ (KRN O 335 R -0.030746)
+ )
+ )
+(CHARACTER O 321
+ (CHARWD R 0.843048)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 322
+ (CHARWD R 0.87677)
+ (CHARHT R 0.8647785)
+ (COMMENT
+ (KRN C X R -0.030746)
+ (KRN C W R -0.030746)
+ (KRN C A R -0.030746)
+ (KRN O 200 R -0.030746)
+ (KRN O 201 R -0.030746)
+ (KRN O 300 R -0.030746)
+ (KRN O 301 R -0.030746)
+ (KRN O 302 R -0.030746)
+ (KRN O 303 R -0.030746)
+ (KRN O 304 R -0.030746)
+ (KRN O 305 R -0.030746)
+ (KRN O 306 R -0.030746)
+ (KRN C V R -0.030746)
+ (KRN C Y R -0.030746)
+ (KRN O 230 R -0.030746)
+ (KRN O 335 R -0.030746)
+ )
+ )
+(CHARACTER O 323
+ (CHARWD R 0.87677)
+ (CHARHT R 0.8647785)
+ (COMMENT
+ (KRN C X R -0.030746)
+ (KRN C W R -0.030746)
+ (KRN C A R -0.030746)
+ (KRN O 200 R -0.030746)
+ (KRN O 201 R -0.030746)
+ (KRN O 300 R -0.030746)
+ (KRN O 301 R -0.030746)
+ (KRN O 302 R -0.030746)
+ (KRN O 303 R -0.030746)
+ (KRN O 304 R -0.030746)
+ (KRN O 305 R -0.030746)
+ (KRN O 306 R -0.030746)
+ (KRN C V R -0.030746)
+ (KRN C Y R -0.030746)
+ (KRN O 230 R -0.030746)
+ (KRN O 335 R -0.030746)
+ )
+ )
+(CHARACTER O 324
+ (CHARWD R 0.87677)
+ (CHARHT R 0.903351)
+ (COMMENT
+ (KRN C X R -0.030746)
+ (KRN C W R -0.030746)
+ (KRN C A R -0.030746)
+ (KRN O 200 R -0.030746)
+ (KRN O 201 R -0.030746)
+ (KRN O 300 R -0.030746)
+ (KRN O 301 R -0.030746)
+ (KRN O 302 R -0.030746)
+ (KRN O 303 R -0.030746)
+ (KRN O 304 R -0.030746)
+ (KRN O 305 R -0.030746)
+ (KRN O 306 R -0.030746)
+ (KRN C V R -0.030746)
+ (KRN C Y R -0.030746)
+ (KRN O 230 R -0.030746)
+ (KRN O 335 R -0.030746)
+ )
+ )
+(CHARACTER O 325
+ (CHARWD R 0.87677)
+ (CHARHT R 0.903351)
+ (COMMENT
+ (KRN C X R -0.030746)
+ (KRN C W R -0.030746)
+ (KRN C A R -0.030746)
+ (KRN O 200 R -0.030746)
+ (KRN O 201 R -0.030746)
+ (KRN O 300 R -0.030746)
+ (KRN O 301 R -0.030746)
+ (KRN O 302 R -0.030746)
+ (KRN O 303 R -0.030746)
+ (KRN O 304 R -0.030746)
+ (KRN O 305 R -0.030746)
+ (KRN O 306 R -0.030746)
+ (KRN C V R -0.030746)
+ (KRN C Y R -0.030746)
+ (KRN O 230 R -0.030746)
+ (KRN O 335 R -0.030746)
+ )
+ )
+(CHARACTER O 326
+ (CHARWD R 0.87677)
+ (CHARHT R 0.903351)
+ (COMMENT
+ (KRN C X R -0.030746)
+ (KRN C W R -0.030746)
+ (KRN C A R -0.030746)
+ (KRN O 200 R -0.030746)
+ (KRN O 201 R -0.030746)
+ (KRN O 300 R -0.030746)
+ (KRN O 301 R -0.030746)
+ (KRN O 302 R -0.030746)
+ (KRN O 303 R -0.030746)
+ (KRN O 304 R -0.030746)
+ (KRN O 305 R -0.030746)
+ (KRN O 306 R -0.030746)
+ (KRN C V R -0.030746)
+ (KRN C Y R -0.030746)
+ (KRN O 230 R -0.030746)
+ (KRN O 335 R -0.030746)
+ )
+ )
+(CHARACTER O 327
+ (CHARWD R 1.136627)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 330
+ (CHARWD R 0.87677)
+ (CHARHT R 0.731766)
+ (CHARDP R 0.048599)
+ (COMMENT
+ (KRN C X R -0.030746)
+ (KRN C W R -0.030746)
+ (KRN C A R -0.030746)
+ (KRN O 200 R -0.030746)
+ (KRN O 201 R -0.030746)
+ (KRN O 300 R -0.030746)
+ (KRN O 301 R -0.030746)
+ (KRN O 302 R -0.030746)
+ (KRN O 303 R -0.030746)
+ (KRN O 304 R -0.030746)
+ (KRN O 305 R -0.030746)
+ (KRN O 306 R -0.030746)
+ (KRN C V R -0.030746)
+ (KRN C Y R -0.030746)
+ (KRN O 230 R -0.030746)
+ (KRN O 335 R -0.030746)
+ )
+ )
+(CHARACTER O 331
+ (CHARWD R 0.843048)
+ (CHARHT R 0.8647785)
+ )
+(CHARACTER O 332
+ (CHARWD R 0.843048)
+ (CHARHT R 0.8647785)
+ )
+(CHARACTER O 333
+ (CHARWD R 0.843048)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 334
+ (CHARWD R 0.843048)
+ (CHARHT R 0.903351)
+ )
+(CHARACTER O 335
+ (CHARWD R 0.843048)
+ (CHARHT R 0.8647785)
+ (CHARIC R 0.027671)
+ (COMMENT
+ (KRN C e R -0.092239)
+ (KRN C o R -0.092239)
+ (KRN C r R -0.092239)
+ (KRN C a R -0.092239)
+ (KRN C u R -0.092239)
+ (KRN C n R -0.092239)
+ (KRN O 31 R -0.092239)
+ (KRN C c R -0.092239)
+ (KRN C d R -0.092239)
+ (KRN C g R -0.092239)
+ (KRN C p R -0.092239)
+ (KRN C s R -0.092239)
+ (KRN C v R -0.092239)
+ (KRN C w R -0.092239)
+ (KRN C x R -0.092239)
+ (KRN C z R -0.092239)
+ (KRN C A R -0.092239)
+ (KRN O 200 R -0.092239)
+ (KRN O 201 R -0.092239)
+ (KRN O 300 R -0.092239)
+ (KRN O 301 R -0.092239)
+ (KRN O 302 R -0.092239)
+ (KRN O 303 R -0.092239)
+ (KRN O 304 R -0.092239)
+ (KRN O 305 R -0.092239)
+ (KRN O 306 R -0.092239)
+ )
+ )
+(CHARACTER O 336
+ (CHARWD R 0.706177)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 337
+ (CHARWD R 1.245728)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 340
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 341
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 342
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 343
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 344
+ (CHARWD R 0.569305)
+ (CHARHT R 0.670471)
+ (COMMENT
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 345
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 346
+ (CHARWD R 0.815277)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER O 347
+ (CHARWD R 0.5078125)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.170098)
+ (COMMENT
+ (KRN C h R -0.030746)
+ (KRN C k R -0.030746)
+ )
+ )
+(CHARACTER O 350
+ (CHARWD R 0.507814)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 351
+ (CHARWD R 0.507814)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 352
+ (CHARWD R 0.507814)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 353
+ (CHARWD R 0.507814)
+ (CHARHT R 0.670471)
+ )
+(CHARACTER O 354
+ (CHARWD R 0.323334)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 355
+ (CHARWD R 0.323334)
+ (CHARHT R 0.647461)
+ (CHARIC R 0.01237)
+ )
+(CHARACTER O 356
+ (CHARWD R 0.323334)
+ (CHARHT R 0.647461)
+ )
+(CHARACTER O 357
+ (CHARWD R 0.384827)
+ (CHARHT R 0.670471)
+ )
+(CHARACTER O 360
+ (CHARWD R 0.569305)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 361
+ (CHARWD R 0.630798)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C t R -0.030746)
+ (KRN C u R -0.030746)
+ (KRN O 266 R -0.030746)
+ (KRN O 267 R -0.030746)
+ (KRN O 371 R -0.030746)
+ (KRN O 372 R -0.030746)
+ (KRN O 373 R -0.030746)
+ (KRN O 374 R -0.030746)
+ (KRN C b R -0.030746)
+ (KRN C y R -0.030746)
+ (KRN C v R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 362
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C e R 0.030746)
+ (KRN O 245 R 0.030746)
+ (KRN O 246 R 0.030746)
+ (KRN O 350 R 0.030746)
+ (KRN O 351 R 0.030746)
+ (KRN O 352 R 0.030746)
+ (KRN O 353 R 0.030746)
+ (KRN C o R 0.030746)
+ (KRN O 256 R 0.030746)
+ (KRN O 362 R 0.030746)
+ (KRN O 363 R 0.030746)
+ (KRN O 364 R 0.030746)
+ (KRN O 365 R 0.030746)
+ (KRN O 366 R 0.030746)
+ (KRN O 367 R 0.030746)
+ (KRN O 370 R 0.030746)
+ (KRN C x R -0.030746)
+ (KRN C d R 0.030746)
+ (KRN C c R 0.030746)
+ (KRN O 242 R 0.030746)
+ (KRN O 243 R 0.030746)
+ (KRN O 347 R 0.030746)
+ (KRN C q R 0.030746)
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 363
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C e R 0.030746)
+ (KRN O 245 R 0.030746)
+ (KRN O 246 R 0.030746)
+ (KRN O 350 R 0.030746)
+ (KRN O 351 R 0.030746)
+ (KRN O 352 R 0.030746)
+ (KRN O 353 R 0.030746)
+ (KRN C o R 0.030746)
+ (KRN O 256 R 0.030746)
+ (KRN O 362 R 0.030746)
+ (KRN O 363 R 0.030746)
+ (KRN O 364 R 0.030746)
+ (KRN O 365 R 0.030746)
+ (KRN O 366 R 0.030746)
+ (KRN O 367 R 0.030746)
+ (KRN O 370 R 0.030746)
+ (KRN C x R -0.030746)
+ (KRN C d R 0.030746)
+ (KRN C c R 0.030746)
+ (KRN O 242 R 0.030746)
+ (KRN O 243 R 0.030746)
+ (KRN O 347 R 0.030746)
+ (KRN C q R 0.030746)
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 364
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C e R 0.030746)
+ (KRN O 245 R 0.030746)
+ (KRN O 246 R 0.030746)
+ (KRN O 350 R 0.030746)
+ (KRN O 351 R 0.030746)
+ (KRN O 352 R 0.030746)
+ (KRN O 353 R 0.030746)
+ (KRN C o R 0.030746)
+ (KRN O 256 R 0.030746)
+ (KRN O 362 R 0.030746)
+ (KRN O 363 R 0.030746)
+ (KRN O 364 R 0.030746)
+ (KRN O 365 R 0.030746)
+ (KRN O 366 R 0.030746)
+ (KRN O 367 R 0.030746)
+ (KRN O 370 R 0.030746)
+ (KRN C x R -0.030746)
+ (KRN C d R 0.030746)
+ (KRN C c R 0.030746)
+ (KRN O 242 R 0.030746)
+ (KRN O 243 R 0.030746)
+ (KRN O 347 R 0.030746)
+ (KRN C q R 0.030746)
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 365
+ (CHARWD R 0.569305)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C e R 0.030746)
+ (KRN O 245 R 0.030746)
+ (KRN O 246 R 0.030746)
+ (KRN O 350 R 0.030746)
+ (KRN O 351 R 0.030746)
+ (KRN O 352 R 0.030746)
+ (KRN O 353 R 0.030746)
+ (KRN C o R 0.030746)
+ (KRN O 256 R 0.030746)
+ (KRN O 362 R 0.030746)
+ (KRN O 363 R 0.030746)
+ (KRN O 364 R 0.030746)
+ (KRN O 365 R 0.030746)
+ (KRN O 366 R 0.030746)
+ (KRN O 367 R 0.030746)
+ (KRN O 370 R 0.030746)
+ (KRN C x R -0.030746)
+ (KRN C d R 0.030746)
+ (KRN C c R 0.030746)
+ (KRN O 242 R 0.030746)
+ (KRN O 243 R 0.030746)
+ (KRN O 347 R 0.030746)
+ (KRN C q R 0.030746)
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 366
+ (CHARWD R 0.569305)
+ (CHARHT R 0.670471)
+ (COMMENT
+ (KRN C e R 0.030746)
+ (KRN O 245 R 0.030746)
+ (KRN O 246 R 0.030746)
+ (KRN O 350 R 0.030746)
+ (KRN O 351 R 0.030746)
+ (KRN O 352 R 0.030746)
+ (KRN O 353 R 0.030746)
+ (KRN C o R 0.030746)
+ (KRN O 256 R 0.030746)
+ (KRN O 362 R 0.030746)
+ (KRN O 363 R 0.030746)
+ (KRN O 364 R 0.030746)
+ (KRN O 365 R 0.030746)
+ (KRN O 366 R 0.030746)
+ (KRN O 367 R 0.030746)
+ (KRN O 370 R 0.030746)
+ (KRN C x R -0.030746)
+ (KRN C d R 0.030746)
+ (KRN C c R 0.030746)
+ (KRN O 242 R 0.030746)
+ (KRN O 243 R 0.030746)
+ (KRN O 347 R 0.030746)
+ (KRN C q R 0.030746)
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 367
+ (CHARWD R 0.87677)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER O 370
+ (CHARWD R 0.569305)
+ (CHARHT R 0.527649)
+ (CHARDP R 0.0971985)
+ (COMMENT
+ (KRN C e R 0.030746)
+ (KRN O 245 R 0.030746)
+ (KRN O 246 R 0.030746)
+ (KRN O 350 R 0.030746)
+ (KRN O 351 R 0.030746)
+ (KRN O 352 R 0.030746)
+ (KRN O 353 R 0.030746)
+ (KRN C o R 0.030746)
+ (KRN O 256 R 0.030746)
+ (KRN O 362 R 0.030746)
+ (KRN O 363 R 0.030746)
+ (KRN O 364 R 0.030746)
+ (KRN O 365 R 0.030746)
+ (KRN O 366 R 0.030746)
+ (KRN O 367 R 0.030746)
+ (KRN O 370 R 0.030746)
+ (KRN C x R -0.030746)
+ (KRN C d R 0.030746)
+ (KRN C c R 0.030746)
+ (KRN O 242 R 0.030746)
+ (KRN O 243 R 0.030746)
+ (KRN O 347 R 0.030746)
+ (KRN C q R 0.030746)
+ (KRN C v R -0.030746)
+ (KRN C j R 0.061493)
+ (KRN C y R -0.030746)
+ (KRN O 270 R -0.030746)
+ (KRN O 375 R -0.030746)
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 371
+ (CHARWD R 0.630798)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 372
+ (CHARWD R 0.630798)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 373
+ (CHARWD R 0.630798)
+ (CHARHT R 0.647461)
+ (COMMENT
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 374
+ (CHARWD R 0.630798)
+ (CHARHT R 0.670471)
+ (COMMENT
+ (KRN C w R -0.030746)
+ )
+ )
+(CHARACTER O 375
+ (CHARWD R 0.600052)
+ (CHARHT R 0.647461)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.015374)
+ (COMMENT
+ (KRN C o R -0.030746)
+ (KRN O 256 R -0.030746)
+ (KRN O 362 R -0.030746)
+ (KRN O 363 R -0.030746)
+ (KRN O 364 R -0.030746)
+ (KRN O 365 R -0.030746)
+ (KRN O 366 R -0.030746)
+ (KRN O 367 R -0.030746)
+ (KRN O 370 R -0.030746)
+ (KRN C e R -0.030746)
+ (KRN O 245 R -0.030746)
+ (KRN O 246 R -0.030746)
+ (KRN O 350 R -0.030746)
+ (KRN O 351 R -0.030746)
+ (KRN O 352 R -0.030746)
+ (KRN O 353 R -0.030746)
+ (KRN C a R -0.030746)
+ (KRN O 240 R -0.030746)
+ (KRN O 241 R -0.030746)
+ (KRN O 340 R -0.030746)
+ (KRN O 341 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 342 R -0.030746)
+ (KRN O 343 R -0.030746)
+ (KRN O 344 R -0.030746)
+ (KRN O 345 R -0.030746)
+ (KRN O 346 R -0.030746)
+ (KRN O 56 R -0.092239)
+ (KRN O 54 R -0.092239)
+ )
+ )
+(CHARACTER O 376
+ (CHARWD R 0.630798)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 377
+ (CHARWD R 0.569305)
+ (CHARHT R 0.688721)
+ )
diff --git a/fonts/gothic/blacklettert1/ecrm1000.pl b/fonts/gothic/blacklettert1/ecrm1000.pl
new file mode 100644
index 0000000000..6d4ee635e9
--- /dev/null
+++ b/fonts/gothic/blacklettert1/ecrm1000.pl
@@ -0,0 +1,3853 @@
+(FAMILY ECRM)
+(FACE O 352)
+(CODINGSCHEME EXTENDED TEX FONT ENCODING - LATIN)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 1414365261)
+(FONTDIMEN
+ (SLANT R 0.0)
+ (SPACE R 0.333252)
+ (STRETCH R 0.166626)
+ (SHRINK R 0.111084)
+ (XHEIGHT R 0.43045)
+ (QUAD R 0.999756)
+ (EXTRASPACE R 0.111084)
+ (PARAMETER D 8 R 0.6831665)
+ (PARAMETER D 9 R 0.694275)
+ (PARAMETER D 10 R 0.891449)
+ (PARAMETER D 11 R 0.194397)
+ (PARAMETER D 12 R 0.891449)
+ (PARAMETER D 13 R 0.249939)
+ (PARAMETER D 14 R 0.499878)
+ (PARAMETER D 15 R 0.088867)
+ (PARAMETER D 16 R 1.199997)
+ )
+(BOUNDARYCHAR O 27)
+(LIGTABLE
+ (LABEL C f)
+ (LIG C i O 34)
+ (LIG C f O 33)
+ (LIG C l O 35)
+ (KRN O 47 R 0.077759)
+ (KRN O 140 R 0.077759)
+ (KRN O 20 R 0.077759)
+ (KRN O 21 R 0.077759)
+ (KRN O 77 R 0.077759)
+ (KRN O 41 R 0.077759)
+ (KRN O 51 R 0.077759)
+ (KRN O 135 R 0.077759)
+ (STOP)
+ (LABEL O 33)
+ (LIG C i O 36)
+ (LIG C l O 37)
+ (KRN O 47 R 0.077759)
+ (KRN O 140 R 0.077759)
+ (KRN O 20 R 0.077759)
+ (KRN O 21 R 0.077759)
+ (KRN O 77 R 0.077759)
+ (KRN O 41 R 0.077759)
+ (KRN O 51 R 0.077759)
+ (KRN O 135 R 0.077759)
+ (STOP)
+ (LABEL O 140)
+ (LIG O 140 O 20)
+ (KRN O 20 R 0.111084)
+ (KRN O 77 R 0.111084)
+ (KRN O 41 R 0.111084)
+ (STOP)
+ (LABEL O 47)
+ (LIG O 47 O 21)
+ (KRN O 21 R 0.111084)
+ (KRN O 77 R 0.111084)
+ (KRN O 41 R 0.111084)
+ (STOP)
+ (LABEL O 55)
+ (LIG O 55 O 25)
+ (LIG O 177 O 177)
+ (STOP)
+ (LABEL O 25)
+ (LIG O 55 O 26)
+ (STOP)
+ (LABEL O 74)
+ (LIG O 74 O 23)
+ (STOP)
+ (LABEL O 76)
+ (LIG O 76 O 24)
+ (STOP)
+ (LABEL O 54)
+ (LIG O 54 O 22)
+ (STOP)
+ (LABEL O 41)
+ (LIG O 140 O 275)
+ (STOP)
+ (LABEL O 77)
+ (LIG O 140 O 276)
+ (STOP)
+ (LABEL O 27)
+ (KRN O 20 R 0.083313)
+ (KRN O 21 R 0.083313)
+ (KRN O 22 R 0.083313)
+ (KRN O 55 R 0.083313)
+ (KRN O 140 R 0.083313)
+ (KRN O 47 R 0.083313)
+ (STOP)
+ (LABEL O 22)
+ (KRN O 15 R 0.111084)
+ (KRN O 54 R 0.111084)
+ (LABEL O 15)
+ (KRN O 22 R 0.111084)
+ (KRN C j R 0.111084)
+ (KRN O 32 R 0.111084)
+ (KRN C g R 0.055542)
+ (KRN O 247 R 0.055542)
+ (KRN C y R 0.055542)
+ (KRN O 270 R 0.055542)
+ (KRN O 375 R 0.055542)
+ (KRN C v R -0.083313)
+ (KRN C w R -0.055542)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN O 27 R 0.083313)
+ (STOP)
+ (LABEL O 20)
+ (KRN O 140 R 0.111084)
+ (KRN O 20 R 0.111084)
+ (KRN O 27 R 0.083313)
+ (STOP)
+ (LABEL O 21)
+ (KRN O 47 R 0.111084)
+ (KRN O 21 R 0.111084)
+ (KRN O 27 R 0.083313)
+ (STOP)
+ (LABEL O 24)
+ (KRN O 56 R -0.083313)
+ (KRN O 54 R -0.083313)
+ (STOP)
+ (LABEL C k)
+ (KRN C W R -0.083313)
+ (KRN C V R -0.083313)
+ (LABEL C v)
+ (KRN C a R -0.055542)
+ (KRN O 240 R -0.055542)
+ (KRN O 241 R -0.055542)
+ (KRN O 340 R -0.055542)
+ (KRN O 341 R -0.055542)
+ (KRN O 342 R -0.055542)
+ (KRN O 342 R -0.055542)
+ (KRN O 343 R -0.055542)
+ (KRN O 344 R -0.055542)
+ (KRN O 345 R -0.055542)
+ (KRN O 346 R -0.055542)
+ (LABEL C w)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C a R -0.027771)
+ (KRN O 240 R -0.027771)
+ (KRN O 241 R -0.027771)
+ (KRN O 340 R -0.027771)
+ (KRN O 341 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 343 R -0.027771)
+ (KRN O 344 R -0.027771)
+ (KRN O 345 R -0.027771)
+ (KRN O 346 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ (STOP)
+ (LABEL C P)
+ (KRN C A R -0.083313)
+ (KRN O 200 R -0.083313)
+ (KRN O 201 R -0.083313)
+ (KRN O 300 R -0.083313)
+ (KRN O 301 R -0.083313)
+ (KRN O 302 R -0.083313)
+ (KRN O 303 R -0.083313)
+ (KRN O 304 R -0.083313)
+ (KRN O 305 R -0.083313)
+ (KRN O 306 R -0.083313)
+ (LABEL C y)
+ (LABEL O 270)
+ (LABEL O 375)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C a R -0.027771)
+ (KRN O 240 R -0.027771)
+ (KRN O 241 R -0.027771)
+ (KRN O 340 R -0.027771)
+ (KRN O 341 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 343 R -0.027771)
+ (KRN O 344 R -0.027771)
+ (KRN O 345 R -0.027771)
+ (KRN O 346 R -0.027771)
+ (KRN O 56 R -0.083313)
+ (KRN O 54 R -0.083313)
+ (STOP)
+ (LABEL C F)
+ (LABEL C V)
+ (LABEL C W)
+ (KRN C o R -0.083313)
+ (KRN C a R -0.083313)
+ (KRN C e R -0.083313)
+ (KRN C y R -0.083313)
+ (KRN C u R -0.083313)
+ (KRN C r R -0.083313)
+ (KRN C v R -0.083313)
+ (KRN C s R -0.083313)
+ (KRN C c R -0.083313)
+ (KRN C d R -0.083313)
+ (KRN C g R -0.083313)
+ (KRN C m R -0.083313)
+ (KRN C n R -0.083313)
+ (KRN C p R -0.083313)
+ (KRN C w R -0.083313)
+ (KRN C z R -0.083313)
+ (KRN O 346 R -0.083313)
+ (KRN O 370 R -0.083313)
+ (KRN C A R -0.111084)
+ (KRN O 200 R -0.111084)
+ (KRN O 201 R -0.111084)
+ (KRN O 300 R -0.111084)
+ (KRN O 301 R -0.111084)
+ (KRN O 302 R -0.111084)
+ (KRN O 303 R -0.111084)
+ (KRN O 304 R -0.111084)
+ (KRN O 305 R -0.111084)
+ (KRN O 306 R -0.111084)
+ (LABEL C X)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (STOP)
+ (LABEL C K)
+ (KRN C v R -0.083313)
+ (KRN C w R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (STOP)
+ (LABEL C T)
+ (LABEL O 224)
+ (LABEL O 225)
+ (KRN C y R -0.027771)
+ (LABEL C Y)
+ (LABEL O 230)
+ (LABEL O 335)
+ (KRN C e R -0.083313)
+ (KRN C o R -0.083313)
+ (KRN C r R -0.083313)
+ (KRN C a R -0.083313)
+ (KRN C u R -0.083313)
+ (KRN C n R -0.083313)
+ (KRN O 31 R -0.083313)
+ (KRN C c R -0.083313)
+ (KRN C d R -0.083313)
+ (KRN C g R -0.083313)
+ (KRN C p R -0.083313)
+ (KRN C s R -0.083313)
+ (KRN C v R -0.083313)
+ (KRN C w R -0.083313)
+ (KRN C x R -0.083313)
+ (KRN C z R -0.083313)
+ (KRN C A R -0.083313)
+ (KRN O 200 R -0.083313)
+ (KRN O 201 R -0.083313)
+ (KRN O 300 R -0.083313)
+ (KRN O 301 R -0.083313)
+ (KRN O 302 R -0.083313)
+ (KRN O 303 R -0.083313)
+ (KRN O 304 R -0.083313)
+ (KRN O 305 R -0.083313)
+ (KRN O 306 R -0.083313)
+ (STOP)
+ (LABEL C D)
+ (LABEL C O)
+ (LABEL O 204)
+ (LABEL O 216)
+ (LABEL O 320)
+ (LABEL O 322)
+ (LABEL O 323)
+ (LABEL O 324)
+ (LABEL O 325)
+ (LABEL O 326)
+ (LABEL O 330)
+ (KRN C X R -0.027771)
+ (KRN C W R -0.027771)
+ (KRN C A R -0.027771)
+ (KRN O 200 R -0.027771)
+ (KRN O 201 R -0.027771)
+ (KRN O 300 R -0.027771)
+ (KRN O 301 R -0.027771)
+ (KRN O 302 R -0.027771)
+ (KRN O 303 R -0.027771)
+ (KRN O 304 R -0.027771)
+ (KRN O 305 R -0.027771)
+ (KRN O 306 R -0.027771)
+ (KRN C V R -0.027771)
+ (KRN C Y R -0.027771)
+ (KRN O 230 R -0.027771)
+ (KRN O 335 R -0.027771)
+ (STOP)
+ (LABEL C h)
+ (LABEL C m)
+ (LABEL C n)
+ (KRN C W R -0.083313)
+ (KRN C V R -0.083313)
+ (LABEL O 253)
+ (LABEL O 254)
+ (LABEL O 255)
+ (LABEL O 361)
+ (KRN C t R -0.027771)
+ (KRN C u R -0.027771)
+ (KRN O 266 R -0.027771)
+ (KRN O 267 R -0.027771)
+ (KRN O 371 R -0.027771)
+ (KRN O 372 R -0.027771)
+ (KRN O 373 R -0.027771)
+ (KRN O 374 R -0.027771)
+ (KRN C b R -0.027771)
+ (KRN C y R -0.027771)
+ (KRN C v R -0.027771)
+ (KRN C w R -0.027771)
+ (STOP)
+ (LABEL C c)
+ (LABEL O 242)
+ (LABEL O 243)
+ (LABEL O 347)
+ (KRN C h R -0.027771)
+ (KRN C k R -0.027771)
+ (STOP)
+ (LABEL C b)
+ (LABEL C o)
+ (LABEL C p)
+ (LABEL O 256)
+ (LABEL O 362)
+ (LABEL O 363)
+ (LABEL O 364)
+ (LABEL O 365)
+ (LABEL O 366)
+ (LABEL O 370)
+ (KRN C e R 0.027771)
+ (KRN O 245 R 0.027771)
+ (KRN O 246 R 0.027771)
+ (KRN O 350 R 0.027771)
+ (KRN O 351 R 0.027771)
+ (KRN O 352 R 0.027771)
+ (KRN O 353 R 0.027771)
+ (KRN C o R 0.027771)
+ (KRN O 256 R 0.027771)
+ (KRN O 362 R 0.027771)
+ (KRN O 363 R 0.027771)
+ (KRN O 364 R 0.027771)
+ (KRN O 365 R 0.027771)
+ (KRN O 366 R 0.027771)
+ (KRN O 367 R 0.027771)
+ (KRN O 370 R 0.027771)
+ (KRN C x R -0.027771)
+ (KRN C d R 0.027771)
+ (KRN C c R 0.027771)
+ (KRN O 242 R 0.027771)
+ (KRN O 243 R 0.027771)
+ (KRN O 347 R 0.027771)
+ (KRN C q R 0.027771)
+ (LABEL C a)
+ (LABEL O 240)
+ (LABEL O 340)
+ (LABEL O 341)
+ (LABEL O 342)
+ (LABEL O 343)
+ (LABEL O 344)
+ (LABEL O 345)
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (LABEL C t)
+ (LABEL O 264)
+ (LABEL O 265)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (LABEL C u)
+ (LABEL O 266)
+ (LABEL O 267)
+ (LABEL O 371)
+ (LABEL O 372)
+ (LABEL O 373)
+ (LABEL O 374)
+ (KRN C w R -0.027771)
+ (STOP)
+ (LABEL C A)
+ (LABEL O 200)
+ (LABEL O 300)
+ (LABEL O 301)
+ (LABEL O 302)
+ (LABEL O 303)
+ (LABEL O 304)
+ (LABEL O 305)
+ (KRN C y R -0.083313)
+ (KRN O 270 R -0.083313)
+ (KRN O 375 R -0.083313)
+ (LABEL O 202)
+ (KRN C v R -0.111084)
+ (KRN C w R -0.083313)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ (KRN C d R -0.027771)
+ (KRN O 244 R -0.027771)
+ (KRN O 236 R -0.027771)
+ (KRN O 360 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C q R -0.027771)
+ (LABEL C R)
+ (LABEL O 217)
+ (KRN C t R -0.027771)
+ (KRN O 264 R -0.027771)
+ (KRN O 265 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C U R -0.027771)
+ (KRN O 226 R -0.027771)
+ (KRN O 227 R -0.027771)
+ (KRN O 331 R -0.027771)
+ (KRN O 332 R -0.027771)
+ (KRN O 333 R -0.027771)
+ (KRN O 334 R -0.027771)
+ (LABEL C L)
+ (LABEL O 210)
+ (LABEL O 211)
+ (LABEL O 212)
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ (STOP)
+ (LABEL C g)
+ (KRN C j R 0.027771)
+ (STOP)
+ (LABEL C I)
+ (KRN C I R 0.027771)
+ (STOP)
+ (LABEL C e)
+ (KRN C V R -0.083313)
+ (STOP)
+ (LABEL O 241)
+ (KRN C g R 0.027771)
+ (KRN C p R 0.027771)
+ (KRN C w R -0.027771)
+ (STOP)
+ (LABEL O 252)
+ (KRN O 47 R 0.027771)
+ (STOP)
+ )
+(CHARACTER O 0
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 1
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 2
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 3
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 4
+ (CHARWD R 0.499878)
+ (CHARHT R 0.663332)
+ )
+(CHARACTER O 5
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (CHARIC R 0.009791)
+ )
+(CHARACTER O 6
+ (CHARWD R 0.749817)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 7
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 10
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 11
+ (CHARWD R 0.499878)
+ (CHARHT R 0.663332)
+ )
+(CHARACTER O 12
+ (CHARWD R 0.27771)
+ (CHARHT R 0.663332)
+ )
+(CHARACTER O 13
+ (CHARWD R 0.444336)
+ (CHARDP R 0.170097)
+ )
+(CHARACTER O 14
+ (CHARWD R 0.27771)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 15
+ (CHARWD R 0.27771)
+ (CHARHT R 0.10553)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN O 22 R 0.111084)
+ (KRN C j R 0.111084)
+ (KRN O 32 R 0.111084)
+ (KRN C g R 0.055542)
+ (KRN O 247 R 0.055542)
+ (KRN C y R 0.055542)
+ (KRN O 270 R 0.055542)
+ (KRN O 375 R 0.055542)
+ (KRN C v R -0.083313)
+ (KRN C w R -0.055542)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN O 27 R 0.083313)
+ )
+ )
+(CHARACTER O 16
+ (CHARWD R 0.444336)
+ (CHARHT R 0.483215)
+ )
+(CHARACTER O 17
+ (CHARWD R 0.444336)
+ (CHARHT R 0.483215)
+ )
+(CHARACTER O 20
+ (CHARWD R 0.333252)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN O 140 R 0.111084)
+ (KRN O 20 R 0.111084)
+ (KRN O 27 R 0.083313)
+ )
+ )
+(CHARACTER O 21
+ (CHARWD R 0.333252)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN O 47 R 0.111084)
+ (KRN O 21 R 0.111084)
+ (KRN O 27 R 0.083313)
+ )
+ )
+(CHARACTER O 22
+ (CHARWD R 0.333252)
+ (CHARHT R 0.10553)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN O 15 R 0.111084)
+ (KRN O 54 R 0.111084)
+ (KRN O 22 R 0.111084)
+ (KRN C j R 0.111084)
+ (KRN O 32 R 0.111084)
+ (KRN C g R 0.055542)
+ (KRN O 247 R 0.055542)
+ (KRN C y R 0.055542)
+ (KRN O 270 R 0.055542)
+ (KRN O 375 R 0.055542)
+ (KRN C v R -0.083313)
+ (KRN C w R -0.055542)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN O 27 R 0.083313)
+ )
+ )
+(CHARACTER O 23
+ (CHARWD R 0.55542)
+ (CHARHT R 0.483215)
+ )
+(CHARACTER O 24
+ (CHARWD R 0.55542)
+ (CHARHT R 0.483215)
+ (COMMENT
+ (KRN O 56 R -0.083313)
+ (KRN O 54 R -0.083313)
+ )
+ )
+(CHARACTER O 25
+ (CHARWD R 0.499878)
+ (CHARHT R 0.43045)
+ (CHARIC R 0.027771)
+ (COMMENT
+ (LIG O 55 O 26)
+ )
+ )
+(CHARACTER O 26
+ (CHARWD R 0.999756)
+ (CHARHT R 0.43045)
+ (CHARIC R 0.027771)
+ )
+(CHARACTER O 27
+ (CHARWD R 0.0)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN O 20 R 0.083313)
+ (KRN O 21 R 0.083313)
+ (KRN O 22 R 0.083313)
+ (KRN O 55 R 0.083313)
+ (KRN O 140 R 0.083313)
+ (KRN O 47 R 0.083313)
+ )
+ )
+(CHARACTER O 30
+ (CHARWD R 0.388794)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.055542)
+ )
+(CHARACTER O 31
+ (CHARWD R 0.27771)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.305481)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 33
+ (CHARWD R 0.583191)
+ (CHARHT R 0.688721)
+ (CHARIC R 0.077759)
+ (COMMENT
+ (LIG C i O 36)
+ (LIG C l O 37)
+ (KRN O 47 R 0.077759)
+ (KRN O 140 R 0.077759)
+ (KRN O 20 R 0.077759)
+ (KRN O 21 R 0.077759)
+ (KRN O 77 R 0.077759)
+ (KRN O 41 R 0.077759)
+ (KRN O 51 R 0.077759)
+ (KRN O 135 R 0.077759)
+ )
+ )
+(CHARACTER O 34
+ (CHARWD R 0.55542)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 35
+ (CHARWD R 0.55542)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 36
+ (CHARWD R 0.83313)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 37
+ (CHARWD R 0.83313)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 40
+ (CHARWD R 0.499878)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.0971985)
+ )
+(CHARACTER O 41
+ (CHARWD R 0.27771)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (LIG O 140 O 275)
+ )
+ )
+(CHARACTER O 42
+ (CHARWD R 0.499878)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 43
+ (CHARWD R 0.83313)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 44
+ (CHARWD R 0.499878)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.055542)
+ )
+(CHARACTER O 45
+ (CHARWD R 0.83313)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.055542)
+ )
+(CHARACTER O 46
+ (CHARWD R 0.777588)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 47
+ (CHARWD R 0.27771)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (LIG O 47 O 21)
+ (KRN O 21 R 0.111084)
+ (KRN O 77 R 0.111084)
+ (KRN O 41 R 0.111084)
+ )
+ )
+(CHARACTER O 50
+ (CHARWD R 0.388794)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 51
+ (CHARWD R 0.388794)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 52
+ (CHARWD R 0.499878)
+ (CHARHT R 0.749817)
+ )
+(CHARACTER O 53
+ (CHARWD R 0.777588)
+ (CHARHT R 0.583191)
+ (CHARDP R 0.083313)
+ )
+(CHARACTER O 54
+ (CHARWD R 0.27771)
+ (CHARHT R 0.10553)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (LIG O 54 O 22)
+ )
+ )
+(CHARACTER O 55
+ (CHARWD R 0.333252)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (LIG O 55 O 25)
+ (LIG O 177 O 177)
+ )
+ )
+(CHARACTER O 56
+ (CHARWD R 0.27771)
+ (CHARHT R 0.10553)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.499878)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER C 0
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER C 1
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER C 2
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER C 3
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER C 4
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER C 5
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER C 6
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER C 7
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER C 8
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER C 9
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.27771)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.27771)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.777588)
+ (CHARHT R 0.53331)
+ (CHARDP R 0.039093)
+ (COMMENT
+ (LIG O 74 O 23)
+ )
+ )
+(CHARACTER O 75
+ (CHARWD R 0.777588)
+ (CHARHT R 0.366789)
+ (CHARDP R -0.133089)
+ )
+(CHARACTER O 76
+ (CHARWD R 0.777588)
+ (CHARHT R 0.53331)
+ (CHARDP R 0.039093)
+ (COMMENT
+ (LIG O 76 O 24)
+ )
+ )
+(CHARACTER O 77
+ (CHARWD R 0.472107)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (LIG O 140 O 276)
+ )
+ )
+(CHARACTER O 100
+ (CHARWD R 0.777588)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C A
+ (CHARWD R 0.749817)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C y R -0.083313)
+ (KRN O 270 R -0.083313)
+ (KRN O 375 R -0.083313)
+ (KRN C v R -0.111084)
+ (KRN C w R -0.083313)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ (KRN C d R -0.027771)
+ (KRN O 244 R -0.027771)
+ (KRN O 236 R -0.027771)
+ (KRN O 360 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C q R -0.027771)
+ (KRN C t R -0.027771)
+ (KRN O 264 R -0.027771)
+ (KRN O 265 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C U R -0.027771)
+ (KRN O 226 R -0.027771)
+ (KRN O 227 R -0.027771)
+ (KRN O 331 R -0.027771)
+ (KRN O 332 R -0.027771)
+ (KRN O 333 R -0.027771)
+ (KRN O 334 R -0.027771)
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER C B
+ (CHARWD R 0.70816)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C C
+ (CHARWD R 0.722046)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C D
+ (CHARWD R 0.763702)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C X R -0.027771)
+ (KRN C W R -0.027771)
+ (KRN C A R -0.027771)
+ (KRN O 200 R -0.027771)
+ (KRN O 201 R -0.027771)
+ (KRN O 300 R -0.027771)
+ (KRN O 301 R -0.027771)
+ (KRN O 302 R -0.027771)
+ (KRN O 303 R -0.027771)
+ (KRN O 304 R -0.027771)
+ (KRN O 305 R -0.027771)
+ (KRN O 306 R -0.027771)
+ (KRN C V R -0.027771)
+ (KRN C Y R -0.027771)
+ (KRN O 230 R -0.027771)
+ (KRN O 335 R -0.027771)
+ )
+ )
+(CHARACTER C E
+ (CHARWD R 0.680389)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C F
+ (CHARWD R 0.652618)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C o R -0.083313)
+ (KRN C a R -0.083313)
+ (KRN C e R -0.083313)
+ (KRN C y R -0.083313)
+ (KRN C u R -0.083313)
+ (KRN C r R -0.083313)
+ (KRN C v R -0.083313)
+ (KRN C s R -0.083313)
+ (KRN C c R -0.083313)
+ (KRN C d R -0.083313)
+ (KRN C g R -0.083313)
+ (KRN C m R -0.083313)
+ (KRN C n R -0.083313)
+ (KRN C p R -0.083313)
+ (KRN C w R -0.083313)
+ (KRN C z R -0.083313)
+ (KRN O 346 R -0.083313)
+ (KRN O 370 R -0.083313)
+ (KRN C A R -0.111084)
+ (KRN O 200 R -0.111084)
+ (KRN O 201 R -0.111084)
+ (KRN O 300 R -0.111084)
+ (KRN O 301 R -0.111084)
+ (KRN O 302 R -0.111084)
+ (KRN O 303 R -0.111084)
+ (KRN O 304 R -0.111084)
+ (KRN O 305 R -0.111084)
+ (KRN O 306 R -0.111084)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ )
+ )
+(CHARACTER C G
+ (CHARWD R 0.784531)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C H
+ (CHARWD R 0.749817)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C I
+ (CHARWD R 0.361023)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C I R 0.027771)
+ )
+ )
+(CHARACTER C J
+ (CHARWD R 0.513763)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C K
+ (CHARWD R 0.777588)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C v R -0.083313)
+ (KRN C w R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ )
+ )
+(CHARACTER C L
+ (CHARWD R 0.624847)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER C M
+ (CHARWD R 0.916443)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C N
+ (CHARWD R 0.749817)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C O
+ (CHARWD R 0.777588)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C X R -0.027771)
+ (KRN C W R -0.027771)
+ (KRN C A R -0.027771)
+ (KRN O 200 R -0.027771)
+ (KRN O 201 R -0.027771)
+ (KRN O 300 R -0.027771)
+ (KRN O 301 R -0.027771)
+ (KRN O 302 R -0.027771)
+ (KRN O 303 R -0.027771)
+ (KRN O 304 R -0.027771)
+ (KRN O 305 R -0.027771)
+ (KRN O 306 R -0.027771)
+ (KRN C V R -0.027771)
+ (KRN C Y R -0.027771)
+ (KRN O 230 R -0.027771)
+ (KRN O 335 R -0.027771)
+ )
+ )
+(CHARACTER C P
+ (CHARWD R 0.680389)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C A R -0.083313)
+ (KRN O 200 R -0.083313)
+ (KRN O 201 R -0.083313)
+ (KRN O 300 R -0.083313)
+ (KRN O 301 R -0.083313)
+ (KRN O 302 R -0.083313)
+ (KRN O 303 R -0.083313)
+ (KRN O 304 R -0.083313)
+ (KRN O 305 R -0.083313)
+ (KRN O 306 R -0.083313)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C a R -0.027771)
+ (KRN O 240 R -0.027771)
+ (KRN O 241 R -0.027771)
+ (KRN O 340 R -0.027771)
+ (KRN O 341 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 343 R -0.027771)
+ (KRN O 344 R -0.027771)
+ (KRN O 345 R -0.027771)
+ (KRN O 346 R -0.027771)
+ (KRN O 56 R -0.083313)
+ (KRN O 54 R -0.083313)
+ )
+ )
+(CHARACTER C Q
+ (CHARWD R 0.777588)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER C R
+ (CHARWD R 0.735931)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C t R -0.027771)
+ (KRN O 264 R -0.027771)
+ (KRN O 265 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C U R -0.027771)
+ (KRN O 226 R -0.027771)
+ (KRN O 227 R -0.027771)
+ (KRN O 331 R -0.027771)
+ (KRN O 332 R -0.027771)
+ (KRN O 333 R -0.027771)
+ (KRN O 334 R -0.027771)
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER C S
+ (CHARWD R 0.55542)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C T
+ (CHARWD R 0.722046)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C y R -0.027771)
+ (KRN C e R -0.083313)
+ (KRN C o R -0.083313)
+ (KRN C r R -0.083313)
+ (KRN C a R -0.083313)
+ (KRN C u R -0.083313)
+ (KRN C n R -0.083313)
+ (KRN O 31 R -0.083313)
+ (KRN C c R -0.083313)
+ (KRN C d R -0.083313)
+ (KRN C g R -0.083313)
+ (KRN C p R -0.083313)
+ (KRN C s R -0.083313)
+ (KRN C v R -0.083313)
+ (KRN C w R -0.083313)
+ (KRN C x R -0.083313)
+ (KRN C z R -0.083313)
+ (KRN C A R -0.083313)
+ (KRN O 200 R -0.083313)
+ (KRN O 201 R -0.083313)
+ (KRN O 300 R -0.083313)
+ (KRN O 301 R -0.083313)
+ (KRN O 302 R -0.083313)
+ (KRN O 303 R -0.083313)
+ (KRN O 304 R -0.083313)
+ (KRN O 305 R -0.083313)
+ (KRN O 306 R -0.083313)
+ )
+ )
+(CHARACTER C U
+ (CHARWD R 0.749817)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C V
+ (CHARWD R 0.749817)
+ (CHARHT R 0.688721)
+ (CHARIC R 0.0138855)
+ (COMMENT
+ (KRN C o R -0.083313)
+ (KRN C a R -0.083313)
+ (KRN C e R -0.083313)
+ (KRN C y R -0.083313)
+ (KRN C u R -0.083313)
+ (KRN C r R -0.083313)
+ (KRN C v R -0.083313)
+ (KRN C s R -0.083313)
+ (KRN C c R -0.083313)
+ (KRN C d R -0.083313)
+ (KRN C g R -0.083313)
+ (KRN C m R -0.083313)
+ (KRN C n R -0.083313)
+ (KRN C p R -0.083313)
+ (KRN C w R -0.083313)
+ (KRN C z R -0.083313)
+ (KRN O 346 R -0.083313)
+ (KRN O 370 R -0.083313)
+ (KRN C A R -0.111084)
+ (KRN O 200 R -0.111084)
+ (KRN O 201 R -0.111084)
+ (KRN O 300 R -0.111084)
+ (KRN O 301 R -0.111084)
+ (KRN O 302 R -0.111084)
+ (KRN O 303 R -0.111084)
+ (KRN O 304 R -0.111084)
+ (KRN O 305 R -0.111084)
+ (KRN O 306 R -0.111084)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ )
+ )
+(CHARACTER C W
+ (CHARWD R 1.027527)
+ (CHARHT R 0.688721)
+ (CHARIC R 0.0138855)
+ (COMMENT
+ (KRN C o R -0.083313)
+ (KRN C a R -0.083313)
+ (KRN C e R -0.083313)
+ (KRN C y R -0.083313)
+ (KRN C u R -0.083313)
+ (KRN C r R -0.083313)
+ (KRN C v R -0.083313)
+ (KRN C s R -0.083313)
+ (KRN C c R -0.083313)
+ (KRN C d R -0.083313)
+ (KRN C g R -0.083313)
+ (KRN C m R -0.083313)
+ (KRN C n R -0.083313)
+ (KRN C p R -0.083313)
+ (KRN C w R -0.083313)
+ (KRN C z R -0.083313)
+ (KRN O 346 R -0.083313)
+ (KRN O 370 R -0.083313)
+ (KRN C A R -0.111084)
+ (KRN O 200 R -0.111084)
+ (KRN O 201 R -0.111084)
+ (KRN O 300 R -0.111084)
+ (KRN O 301 R -0.111084)
+ (KRN O 302 R -0.111084)
+ (KRN O 303 R -0.111084)
+ (KRN O 304 R -0.111084)
+ (KRN O 305 R -0.111084)
+ (KRN O 306 R -0.111084)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ )
+ )
+(CHARACTER C X
+ (CHARWD R 0.749817)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ )
+ )
+(CHARACTER C Y
+ (CHARWD R 0.749817)
+ (CHARHT R 0.688721)
+ (CHARIC R 0.024994)
+ (COMMENT
+ (KRN C e R -0.083313)
+ (KRN C o R -0.083313)
+ (KRN C r R -0.083313)
+ (KRN C a R -0.083313)
+ (KRN C u R -0.083313)
+ (KRN C n R -0.083313)
+ (KRN O 31 R -0.083313)
+ (KRN C c R -0.083313)
+ (KRN C d R -0.083313)
+ (KRN C g R -0.083313)
+ (KRN C p R -0.083313)
+ (KRN C s R -0.083313)
+ (KRN C v R -0.083313)
+ (KRN C w R -0.083313)
+ (KRN C x R -0.083313)
+ (KRN C z R -0.083313)
+ (KRN C A R -0.083313)
+ (KRN O 200 R -0.083313)
+ (KRN O 201 R -0.083313)
+ (KRN O 300 R -0.083313)
+ (KRN O 301 R -0.083313)
+ (KRN O 302 R -0.083313)
+ (KRN O 303 R -0.083313)
+ (KRN O 304 R -0.083313)
+ (KRN O 305 R -0.083313)
+ (KRN O 306 R -0.083313)
+ )
+ )
+(CHARACTER C Z
+ (CHARWD R 0.610962)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 133
+ (CHARWD R 0.27771)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.499878)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.27771)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 136
+ (CHARWD R 0.610962)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 137
+ (CHARWD R 0.777588)
+ (CHARDP R 0.232794)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.27771)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (LIG O 140 O 20)
+ (KRN O 20 R 0.111084)
+ (KRN O 77 R 0.111084)
+ (KRN O 41 R 0.111084)
+ )
+ )
+(CHARACTER C a
+ (CHARWD R 0.499878)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER C b
+ (CHARWD R 0.55542)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C e R 0.027771)
+ (KRN O 245 R 0.027771)
+ (KRN O 246 R 0.027771)
+ (KRN O 350 R 0.027771)
+ (KRN O 351 R 0.027771)
+ (KRN O 352 R 0.027771)
+ (KRN O 353 R 0.027771)
+ (KRN C o R 0.027771)
+ (KRN O 256 R 0.027771)
+ (KRN O 362 R 0.027771)
+ (KRN O 363 R 0.027771)
+ (KRN O 364 R 0.027771)
+ (KRN O 365 R 0.027771)
+ (KRN O 366 R 0.027771)
+ (KRN O 367 R 0.027771)
+ (KRN O 370 R 0.027771)
+ (KRN C x R -0.027771)
+ (KRN C d R 0.027771)
+ (KRN C c R 0.027771)
+ (KRN O 242 R 0.027771)
+ (KRN O 243 R 0.027771)
+ (KRN O 347 R 0.027771)
+ (KRN C q R 0.027771)
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER C c
+ (CHARWD R 0.444336)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C h R -0.027771)
+ (KRN C k R -0.027771)
+ )
+ )
+(CHARACTER C d
+ (CHARWD R 0.55542)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C e
+ (CHARWD R 0.444336)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C V R -0.083313)
+ )
+ )
+(CHARACTER C f
+ (CHARWD R 0.305481)
+ (CHARHT R 0.688721)
+ (CHARIC R 0.077759)
+ (COMMENT
+ (LIG C i O 34)
+ (LIG C f O 33)
+ (LIG C l O 35)
+ (KRN O 47 R 0.077759)
+ (KRN O 140 R 0.077759)
+ (KRN O 20 R 0.077759)
+ (KRN O 21 R 0.077759)
+ (KRN O 77 R 0.077759)
+ (KRN O 41 R 0.077759)
+ (KRN O 51 R 0.077759)
+ (KRN O 135 R 0.077759)
+ )
+ )
+(CHARACTER C g
+ (CHARWD R 0.499878)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.0138855)
+ (COMMENT
+ (KRN C j R 0.027771)
+ )
+ )
+(CHARACTER C h
+ (CHARWD R 0.55542)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C W R -0.083313)
+ (KRN C V R -0.083313)
+ (KRN C t R -0.027771)
+ (KRN C u R -0.027771)
+ (KRN O 266 R -0.027771)
+ (KRN O 267 R -0.027771)
+ (KRN O 371 R -0.027771)
+ (KRN O 372 R -0.027771)
+ (KRN O 373 R -0.027771)
+ (KRN O 374 R -0.027771)
+ (KRN C b R -0.027771)
+ (KRN C y R -0.027771)
+ (KRN C v R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER C i
+ (CHARWD R 0.27771)
+ (CHARHT R 0.663332)
+ )
+(CHARACTER C j
+ (CHARWD R 0.305481)
+ (CHARHT R 0.663332)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER C k
+ (CHARWD R 0.527649)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C W R -0.083313)
+ (KRN C V R -0.083313)
+ (KRN C a R -0.055542)
+ (KRN O 240 R -0.055542)
+ (KRN O 241 R -0.055542)
+ (KRN O 340 R -0.055542)
+ (KRN O 341 R -0.055542)
+ (KRN O 342 R -0.055542)
+ (KRN O 342 R -0.055542)
+ (KRN O 343 R -0.055542)
+ (KRN O 344 R -0.055542)
+ (KRN O 345 R -0.055542)
+ (KRN O 346 R -0.055542)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C a R -0.027771)
+ (KRN O 240 R -0.027771)
+ (KRN O 241 R -0.027771)
+ (KRN O 340 R -0.027771)
+ (KRN O 341 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 343 R -0.027771)
+ (KRN O 344 R -0.027771)
+ (KRN O 345 R -0.027771)
+ (KRN O 346 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ )
+ )
+(CHARACTER C l
+ (CHARWD R 0.27771)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER C m
+ (CHARWD R 0.83313)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C W R -0.083313)
+ (KRN C V R -0.083313)
+ (KRN C t R -0.027771)
+ (KRN C u R -0.027771)
+ (KRN O 266 R -0.027771)
+ (KRN O 267 R -0.027771)
+ (KRN O 371 R -0.027771)
+ (KRN O 372 R -0.027771)
+ (KRN O 373 R -0.027771)
+ (KRN O 374 R -0.027771)
+ (KRN C b R -0.027771)
+ (KRN C y R -0.027771)
+ (KRN C v R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER C n
+ (CHARWD R 0.55542)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C W R -0.083313)
+ (KRN C V R -0.083313)
+ (KRN C t R -0.027771)
+ (KRN C u R -0.027771)
+ (KRN O 266 R -0.027771)
+ (KRN O 267 R -0.027771)
+ (KRN O 371 R -0.027771)
+ (KRN O 372 R -0.027771)
+ (KRN O 373 R -0.027771)
+ (KRN O 374 R -0.027771)
+ (KRN C b R -0.027771)
+ (KRN C y R -0.027771)
+ (KRN C v R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER C o
+ (CHARWD R 0.499878)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C e R 0.027771)
+ (KRN O 245 R 0.027771)
+ (KRN O 246 R 0.027771)
+ (KRN O 350 R 0.027771)
+ (KRN O 351 R 0.027771)
+ (KRN O 352 R 0.027771)
+ (KRN O 353 R 0.027771)
+ (KRN C o R 0.027771)
+ (KRN O 256 R 0.027771)
+ (KRN O 362 R 0.027771)
+ (KRN O 363 R 0.027771)
+ (KRN O 364 R 0.027771)
+ (KRN O 365 R 0.027771)
+ (KRN O 366 R 0.027771)
+ (KRN O 367 R 0.027771)
+ (KRN O 370 R 0.027771)
+ (KRN C x R -0.027771)
+ (KRN C d R 0.027771)
+ (KRN C c R 0.027771)
+ (KRN O 242 R 0.027771)
+ (KRN O 243 R 0.027771)
+ (KRN O 347 R 0.027771)
+ (KRN C q R 0.027771)
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER C p
+ (CHARWD R 0.55542)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN C e R 0.027771)
+ (KRN O 245 R 0.027771)
+ (KRN O 246 R 0.027771)
+ (KRN O 350 R 0.027771)
+ (KRN O 351 R 0.027771)
+ (KRN O 352 R 0.027771)
+ (KRN O 353 R 0.027771)
+ (KRN C o R 0.027771)
+ (KRN O 256 R 0.027771)
+ (KRN O 362 R 0.027771)
+ (KRN O 363 R 0.027771)
+ (KRN O 364 R 0.027771)
+ (KRN O 365 R 0.027771)
+ (KRN O 366 R 0.027771)
+ (KRN O 367 R 0.027771)
+ (KRN O 370 R 0.027771)
+ (KRN C x R -0.027771)
+ (KRN C d R 0.027771)
+ (KRN C c R 0.027771)
+ (KRN O 242 R 0.027771)
+ (KRN O 243 R 0.027771)
+ (KRN O 347 R 0.027771)
+ (KRN C q R 0.027771)
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER C q
+ (CHARWD R 0.527649)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER C r
+ (CHARWD R 0.391571)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER C s
+ (CHARWD R 0.394348)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER C t
+ (CHARWD R 0.388794)
+ (CHARHT R 0.614931)
+ (COMMENT
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER C u
+ (CHARWD R 0.55542)
+ (CHARHT R 0.43045)
+ (COMMENT
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER C v
+ (CHARWD R 0.527649)
+ (CHARHT R 0.43045)
+ (CHARIC R 0.0138855)
+ (COMMENT
+ (KRN C a R -0.055542)
+ (KRN O 240 R -0.055542)
+ (KRN O 241 R -0.055542)
+ (KRN O 340 R -0.055542)
+ (KRN O 341 R -0.055542)
+ (KRN O 342 R -0.055542)
+ (KRN O 342 R -0.055542)
+ (KRN O 343 R -0.055542)
+ (KRN O 344 R -0.055542)
+ (KRN O 345 R -0.055542)
+ (KRN O 346 R -0.055542)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C a R -0.027771)
+ (KRN O 240 R -0.027771)
+ (KRN O 241 R -0.027771)
+ (KRN O 340 R -0.027771)
+ (KRN O 341 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 343 R -0.027771)
+ (KRN O 344 R -0.027771)
+ (KRN O 345 R -0.027771)
+ (KRN O 346 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ )
+ )
+(CHARACTER C w
+ (CHARWD R 0.722046)
+ (CHARHT R 0.43045)
+ (CHARIC R 0.0138855)
+ (COMMENT
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C a R -0.027771)
+ (KRN O 240 R -0.027771)
+ (KRN O 241 R -0.027771)
+ (KRN O 340 R -0.027771)
+ (KRN O 341 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 343 R -0.027771)
+ (KRN O 344 R -0.027771)
+ (KRN O 345 R -0.027771)
+ (KRN O 346 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ )
+ )
+(CHARACTER C x
+ (CHARWD R 0.527649)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER C y
+ (CHARWD R 0.527649)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.0138855)
+ (COMMENT
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C a R -0.027771)
+ (KRN O 240 R -0.027771)
+ (KRN O 241 R -0.027771)
+ (KRN O 340 R -0.027771)
+ (KRN O 341 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 343 R -0.027771)
+ (KRN O 344 R -0.027771)
+ (KRN O 345 R -0.027771)
+ (KRN O 346 R -0.027771)
+ (KRN O 56 R -0.083313)
+ (KRN O 54 R -0.083313)
+ )
+ )
+(CHARACTER C z
+ (CHARWD R 0.444336)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER O 173
+ (CHARWD R 0.499878)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 174
+ (CHARWD R 0.27771)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 175
+ (CHARWD R 0.499878)
+ (CHARHT R 0.749817)
+ (CHARDP R 0.249939)
+ )
+(CHARACTER O 176
+ (CHARWD R 0.610962)
+ (CHARHT R 0.663332)
+ )
+(CHARACTER O 177
+ (CHARWD R 0.166626)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER O 200
+ (CHARWD R 0.749817)
+ (CHARHT R 0.891449)
+ (COMMENT
+ (KRN C y R -0.083313)
+ (KRN O 270 R -0.083313)
+ (KRN O 375 R -0.083313)
+ (KRN C v R -0.111084)
+ (KRN C w R -0.083313)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ (KRN C d R -0.027771)
+ (KRN O 244 R -0.027771)
+ (KRN O 236 R -0.027771)
+ (KRN O 360 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C q R -0.027771)
+ (KRN C t R -0.027771)
+ (KRN O 264 R -0.027771)
+ (KRN O 265 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C U R -0.027771)
+ (KRN O 226 R -0.027771)
+ (KRN O 227 R -0.027771)
+ (KRN O 331 R -0.027771)
+ (KRN O 332 R -0.027771)
+ (KRN O 333 R -0.027771)
+ (KRN O 334 R -0.027771)
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER O 201
+ (CHARWD R 0.749817)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 202
+ (CHARWD R 0.722046)
+ (CHARHT R 0.856377)
+ (COMMENT
+ (KRN C v R -0.111084)
+ (KRN C w R -0.083313)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ (KRN C d R -0.027771)
+ (KRN O 244 R -0.027771)
+ (KRN O 236 R -0.027771)
+ (KRN O 360 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C q R -0.027771)
+ (KRN C t R -0.027771)
+ (KRN O 264 R -0.027771)
+ (KRN O 265 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C U R -0.027771)
+ (KRN O 226 R -0.027771)
+ (KRN O 227 R -0.027771)
+ (KRN O 331 R -0.027771)
+ (KRN O 332 R -0.027771)
+ (KRN O 333 R -0.027771)
+ (KRN O 334 R -0.027771)
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER O 203
+ (CHARWD R 0.722046)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 204
+ (CHARWD R 0.763702)
+ (CHARHT R 0.891449)
+ (COMMENT
+ (KRN C X R -0.027771)
+ (KRN C W R -0.027771)
+ (KRN C A R -0.027771)
+ (KRN O 200 R -0.027771)
+ (KRN O 201 R -0.027771)
+ (KRN O 300 R -0.027771)
+ (KRN O 301 R -0.027771)
+ (KRN O 302 R -0.027771)
+ (KRN O 303 R -0.027771)
+ (KRN O 304 R -0.027771)
+ (KRN O 305 R -0.027771)
+ (KRN O 306 R -0.027771)
+ (KRN C V R -0.027771)
+ (KRN C Y R -0.027771)
+ (KRN O 230 R -0.027771)
+ (KRN O 335 R -0.027771)
+ )
+ )
+(CHARACTER O 205
+ (CHARWD R 0.680389)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 206
+ (CHARWD R 0.680389)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 207
+ (CHARWD R 0.784531)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 210
+ (CHARWD R 0.624847)
+ (CHARHT R 0.856377)
+ (COMMENT
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER O 211
+ (CHARWD R 0.624847)
+ (CHARHT R 0.891449)
+ (COMMENT
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER O 212
+ (CHARWD R 0.624847)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER O 213
+ (CHARWD R 0.749817)
+ (CHARHT R 0.856377)
+ )
+(CHARACTER O 214
+ (CHARWD R 0.749817)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 215
+ (CHARWD R 0.791473)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 216
+ (CHARWD R 0.777588)
+ (CHARHT R 0.856377)
+ (COMMENT
+ (KRN C X R -0.027771)
+ (KRN C W R -0.027771)
+ (KRN C A R -0.027771)
+ (KRN O 200 R -0.027771)
+ (KRN O 201 R -0.027771)
+ (KRN O 300 R -0.027771)
+ (KRN O 301 R -0.027771)
+ (KRN O 302 R -0.027771)
+ (KRN O 303 R -0.027771)
+ (KRN O 304 R -0.027771)
+ (KRN O 305 R -0.027771)
+ (KRN O 306 R -0.027771)
+ (KRN C V R -0.027771)
+ (KRN C Y R -0.027771)
+ (KRN O 230 R -0.027771)
+ (KRN O 335 R -0.027771)
+ )
+ )
+(CHARACTER O 217
+ (CHARWD R 0.735931)
+ (CHARHT R 0.856377)
+ (COMMENT
+ (KRN C t R -0.027771)
+ (KRN O 264 R -0.027771)
+ (KRN O 265 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C U R -0.027771)
+ (KRN O 226 R -0.027771)
+ (KRN O 227 R -0.027771)
+ (KRN O 331 R -0.027771)
+ (KRN O 332 R -0.027771)
+ (KRN O 333 R -0.027771)
+ (KRN O 334 R -0.027771)
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER O 220
+ (CHARWD R 0.735931)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 221
+ (CHARWD R 0.55542)
+ (CHARHT R 0.856377)
+ )
+(CHARACTER O 222
+ (CHARWD R 0.55542)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 223
+ (CHARWD R 0.55542)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.170097)
+ )
+(CHARACTER O 224
+ (CHARWD R 0.722046)
+ (CHARHT R 0.891449)
+ (COMMENT
+ (KRN C y R -0.027771)
+ (KRN C e R -0.083313)
+ (KRN C o R -0.083313)
+ (KRN C r R -0.083313)
+ (KRN C a R -0.083313)
+ (KRN C u R -0.083313)
+ (KRN C n R -0.083313)
+ (KRN O 31 R -0.083313)
+ (KRN C c R -0.083313)
+ (KRN C d R -0.083313)
+ (KRN C g R -0.083313)
+ (KRN C p R -0.083313)
+ (KRN C s R -0.083313)
+ (KRN C v R -0.083313)
+ (KRN C w R -0.083313)
+ (KRN C x R -0.083313)
+ (KRN C z R -0.083313)
+ (KRN C A R -0.083313)
+ (KRN O 200 R -0.083313)
+ (KRN O 201 R -0.083313)
+ (KRN O 300 R -0.083313)
+ (KRN O 301 R -0.083313)
+ (KRN O 302 R -0.083313)
+ (KRN O 303 R -0.083313)
+ (KRN O 304 R -0.083313)
+ (KRN O 305 R -0.083313)
+ (KRN O 306 R -0.083313)
+ )
+ )
+(CHARACTER O 225
+ (CHARWD R 0.722046)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.170097)
+ (COMMENT
+ (KRN C y R -0.027771)
+ (KRN C e R -0.083313)
+ (KRN C o R -0.083313)
+ (KRN C r R -0.083313)
+ (KRN C a R -0.083313)
+ (KRN C u R -0.083313)
+ (KRN C n R -0.083313)
+ (KRN O 31 R -0.083313)
+ (KRN C c R -0.083313)
+ (KRN C d R -0.083313)
+ (KRN C g R -0.083313)
+ (KRN C p R -0.083313)
+ (KRN C s R -0.083313)
+ (KRN C v R -0.083313)
+ (KRN C w R -0.083313)
+ (KRN C x R -0.083313)
+ (KRN C z R -0.083313)
+ (KRN C A R -0.083313)
+ (KRN O 200 R -0.083313)
+ (KRN O 201 R -0.083313)
+ (KRN O 300 R -0.083313)
+ (KRN O 301 R -0.083313)
+ (KRN O 302 R -0.083313)
+ (KRN O 303 R -0.083313)
+ (KRN O 304 R -0.083313)
+ (KRN O 305 R -0.083313)
+ (KRN O 306 R -0.083313)
+ )
+ )
+(CHARACTER O 226
+ (CHARWD R 0.749817)
+ (CHARHT R 0.856377)
+ )
+(CHARACTER O 227
+ (CHARWD R 0.749817)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 230
+ (CHARWD R 0.749817)
+ (CHARHT R 0.891449)
+ (CHARIC R 0.024994)
+ (COMMENT
+ (KRN C e R -0.083313)
+ (KRN C o R -0.083313)
+ (KRN C r R -0.083313)
+ (KRN C a R -0.083313)
+ (KRN C u R -0.083313)
+ (KRN C n R -0.083313)
+ (KRN O 31 R -0.083313)
+ (KRN C c R -0.083313)
+ (KRN C d R -0.083313)
+ (KRN C g R -0.083313)
+ (KRN C p R -0.083313)
+ (KRN C s R -0.083313)
+ (KRN C v R -0.083313)
+ (KRN C w R -0.083313)
+ (KRN C x R -0.083313)
+ (KRN C z R -0.083313)
+ (KRN C A R -0.083313)
+ (KRN O 200 R -0.083313)
+ (KRN O 201 R -0.083313)
+ (KRN O 300 R -0.083313)
+ (KRN O 301 R -0.083313)
+ (KRN O 302 R -0.083313)
+ (KRN O 303 R -0.083313)
+ (KRN O 304 R -0.083313)
+ (KRN O 305 R -0.083313)
+ (KRN O 306 R -0.083313)
+ )
+ )
+(CHARACTER O 231
+ (CHARWD R 0.610962)
+ (CHARHT R 0.856377)
+ )
+(CHARACTER O 232
+ (CHARWD R 0.610962)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 233
+ (CHARWD R 0.610962)
+ (CHARHT R 0.856377)
+ )
+(CHARACTER O 234
+ (CHARWD R 0.860901)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 235
+ (CHARWD R 0.361023)
+ (CHARHT R 0.856377)
+ )
+(CHARACTER O 236
+ (CHARWD R 0.55542)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 237
+ (CHARWD R 0.444336)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 240
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 241
+ (CHARWD R 0.499878)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN C g R 0.027771)
+ (KRN C p R 0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 242
+ (CHARWD R 0.444336)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C h R -0.027771)
+ (KRN C k R -0.027771)
+ )
+ )
+(CHARACTER O 243
+ (CHARWD R 0.444336)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C h R -0.027771)
+ (KRN C k R -0.027771)
+ )
+ )
+(CHARACTER O 244
+ (CHARWD R 0.674835)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 245
+ (CHARWD R 0.444336)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 246
+ (CHARWD R 0.444336)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 247
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.0138855)
+ )
+(CHARACTER O 250
+ (CHARWD R 0.27771)
+ (CHARHT R 0.856377)
+ (CHARIC R 0.049733)
+ )
+(CHARACTER O 251
+ (CHARWD R 0.402679)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 252
+ (CHARWD R 0.336029)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN O 47 R 0.027771)
+ )
+ )
+(CHARACTER O 253
+ (CHARWD R 0.55542)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C t R -0.027771)
+ (KRN C u R -0.027771)
+ (KRN O 266 R -0.027771)
+ (KRN O 267 R -0.027771)
+ (KRN O 371 R -0.027771)
+ (KRN O 372 R -0.027771)
+ (KRN O 373 R -0.027771)
+ (KRN O 374 R -0.027771)
+ (KRN C b R -0.027771)
+ (KRN C y R -0.027771)
+ (KRN C v R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 254
+ (CHARWD R 0.55542)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C t R -0.027771)
+ (KRN C u R -0.027771)
+ (KRN O 266 R -0.027771)
+ (KRN O 267 R -0.027771)
+ (KRN O 371 R -0.027771)
+ (KRN O 372 R -0.027771)
+ (KRN O 373 R -0.027771)
+ (KRN O 374 R -0.027771)
+ (KRN C b R -0.027771)
+ (KRN C y R -0.027771)
+ (KRN C v R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 255
+ (CHARWD R 0.55542)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.194397)
+ (COMMENT
+ (KRN C t R -0.027771)
+ (KRN C u R -0.027771)
+ (KRN O 266 R -0.027771)
+ (KRN O 267 R -0.027771)
+ (KRN O 371 R -0.027771)
+ (KRN O 372 R -0.027771)
+ (KRN O 373 R -0.027771)
+ (KRN O 374 R -0.027771)
+ (KRN C b R -0.027771)
+ (KRN C y R -0.027771)
+ (KRN C v R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 256
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (CHARIC R 0.009791)
+ (COMMENT
+ (KRN C e R 0.027771)
+ (KRN O 245 R 0.027771)
+ (KRN O 246 R 0.027771)
+ (KRN O 350 R 0.027771)
+ (KRN O 351 R 0.027771)
+ (KRN O 352 R 0.027771)
+ (KRN O 353 R 0.027771)
+ (KRN C o R 0.027771)
+ (KRN O 256 R 0.027771)
+ (KRN O 362 R 0.027771)
+ (KRN O 363 R 0.027771)
+ (KRN O 364 R 0.027771)
+ (KRN O 365 R 0.027771)
+ (KRN O 366 R 0.027771)
+ (KRN O 367 R 0.027771)
+ (KRN O 370 R 0.027771)
+ (KRN C x R -0.027771)
+ (KRN C d R 0.027771)
+ (KRN C c R 0.027771)
+ (KRN O 242 R 0.027771)
+ (KRN O 243 R 0.027771)
+ (KRN O 347 R 0.027771)
+ (KRN C q R 0.027771)
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 257
+ (CHARWD R 0.391571)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 260
+ (CHARWD R 0.391571)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 261
+ (CHARWD R 0.394348)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 262
+ (CHARWD R 0.394348)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 263
+ (CHARWD R 0.394348)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.170097)
+ )
+(CHARACTER O 264
+ (CHARWD R 0.388794)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 265
+ (CHARWD R 0.388794)
+ (CHARHT R 0.614931)
+ (CHARDP R 0.170097)
+ (COMMENT
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 266
+ (CHARWD R 0.55542)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 267
+ (CHARWD R 0.55542)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 270
+ (CHARWD R 0.527649)
+ (CHARHT R 0.663332)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.0138855)
+ (COMMENT
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C a R -0.027771)
+ (KRN O 240 R -0.027771)
+ (KRN O 241 R -0.027771)
+ (KRN O 340 R -0.027771)
+ (KRN O 341 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 343 R -0.027771)
+ (KRN O 344 R -0.027771)
+ (KRN O 345 R -0.027771)
+ (KRN O 346 R -0.027771)
+ (KRN O 56 R -0.083313)
+ (KRN O 54 R -0.083313)
+ )
+ )
+(CHARACTER O 271
+ (CHARWD R 0.444336)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 272
+ (CHARWD R 0.444336)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 273
+ (CHARWD R 0.444336)
+ (CHARHT R 0.663332)
+ )
+(CHARACTER O 274
+ (CHARWD R 0.583191)
+ (CHARHT R 0.663332)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 275
+ (CHARWD R 0.27771)
+ (CHARHT R 0.499878)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 276
+ (CHARWD R 0.472107)
+ (CHARHT R 0.499878)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 277
+ (CHARWD R 0.638733)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 300
+ (CHARWD R 0.749817)
+ (CHARHT R 0.856377)
+ (COMMENT
+ (KRN C y R -0.083313)
+ (KRN O 270 R -0.083313)
+ (KRN O 375 R -0.083313)
+ (KRN C v R -0.111084)
+ (KRN C w R -0.083313)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ (KRN C d R -0.027771)
+ (KRN O 244 R -0.027771)
+ (KRN O 236 R -0.027771)
+ (KRN O 360 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C q R -0.027771)
+ (KRN C t R -0.027771)
+ (KRN O 264 R -0.027771)
+ (KRN O 265 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C U R -0.027771)
+ (KRN O 226 R -0.027771)
+ (KRN O 227 R -0.027771)
+ (KRN O 331 R -0.027771)
+ (KRN O 332 R -0.027771)
+ (KRN O 333 R -0.027771)
+ (KRN O 334 R -0.027771)
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER O 301
+ (CHARWD R 0.749817)
+ (CHARHT R 0.856377)
+ (COMMENT
+ (KRN C y R -0.083313)
+ (KRN O 270 R -0.083313)
+ (KRN O 375 R -0.083313)
+ (KRN C v R -0.111084)
+ (KRN C w R -0.083313)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ (KRN C d R -0.027771)
+ (KRN O 244 R -0.027771)
+ (KRN O 236 R -0.027771)
+ (KRN O 360 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C q R -0.027771)
+ (KRN C t R -0.027771)
+ (KRN O 264 R -0.027771)
+ (KRN O 265 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C U R -0.027771)
+ (KRN O 226 R -0.027771)
+ (KRN O 227 R -0.027771)
+ (KRN O 331 R -0.027771)
+ (KRN O 332 R -0.027771)
+ (KRN O 333 R -0.027771)
+ (KRN O 334 R -0.027771)
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER O 302
+ (CHARWD R 0.749817)
+ (CHARHT R 0.891449)
+ (COMMENT
+ (KRN C y R -0.083313)
+ (KRN O 270 R -0.083313)
+ (KRN O 375 R -0.083313)
+ (KRN C v R -0.111084)
+ (KRN C w R -0.083313)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ (KRN C d R -0.027771)
+ (KRN O 244 R -0.027771)
+ (KRN O 236 R -0.027771)
+ (KRN O 360 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C q R -0.027771)
+ (KRN C t R -0.027771)
+ (KRN O 264 R -0.027771)
+ (KRN O 265 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C U R -0.027771)
+ (KRN O 226 R -0.027771)
+ (KRN O 227 R -0.027771)
+ (KRN O 331 R -0.027771)
+ (KRN O 332 R -0.027771)
+ (KRN O 333 R -0.027771)
+ (KRN O 334 R -0.027771)
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER O 303
+ (CHARWD R 0.749817)
+ (CHARHT R 0.891449)
+ (COMMENT
+ (KRN C y R -0.083313)
+ (KRN O 270 R -0.083313)
+ (KRN O 375 R -0.083313)
+ (KRN C v R -0.111084)
+ (KRN C w R -0.083313)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ (KRN C d R -0.027771)
+ (KRN O 244 R -0.027771)
+ (KRN O 236 R -0.027771)
+ (KRN O 360 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C q R -0.027771)
+ (KRN C t R -0.027771)
+ (KRN O 264 R -0.027771)
+ (KRN O 265 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C U R -0.027771)
+ (KRN O 226 R -0.027771)
+ (KRN O 227 R -0.027771)
+ (KRN O 331 R -0.027771)
+ (KRN O 332 R -0.027771)
+ (KRN O 333 R -0.027771)
+ (KRN O 334 R -0.027771)
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER O 304
+ (CHARWD R 0.749817)
+ (CHARHT R 0.891449)
+ (COMMENT
+ (KRN C y R -0.083313)
+ (KRN O 270 R -0.083313)
+ (KRN O 375 R -0.083313)
+ (KRN C v R -0.111084)
+ (KRN C w R -0.083313)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ (KRN C d R -0.027771)
+ (KRN O 244 R -0.027771)
+ (KRN O 236 R -0.027771)
+ (KRN O 360 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C q R -0.027771)
+ (KRN C t R -0.027771)
+ (KRN O 264 R -0.027771)
+ (KRN O 265 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C U R -0.027771)
+ (KRN O 226 R -0.027771)
+ (KRN O 227 R -0.027771)
+ (KRN O 331 R -0.027771)
+ (KRN O 332 R -0.027771)
+ (KRN O 333 R -0.027771)
+ (KRN O 334 R -0.027771)
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER O 305
+ (CHARWD R 0.749817)
+ (CHARHT R 0.856377)
+ (COMMENT
+ (KRN C y R -0.083313)
+ (KRN O 270 R -0.083313)
+ (KRN O 375 R -0.083313)
+ (KRN C v R -0.111084)
+ (KRN C w R -0.083313)
+ (KRN C c R -0.027771)
+ (KRN O 242 R -0.027771)
+ (KRN O 243 R -0.027771)
+ (KRN O 347 R -0.027771)
+ (KRN C d R -0.027771)
+ (KRN O 244 R -0.027771)
+ (KRN O 236 R -0.027771)
+ (KRN O 360 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C q R -0.027771)
+ (KRN C t R -0.027771)
+ (KRN O 264 R -0.027771)
+ (KRN O 265 R -0.027771)
+ (KRN C C R -0.027771)
+ (KRN C G R -0.027771)
+ (KRN O 202 R -0.027771)
+ (KRN O 203 R -0.027771)
+ (KRN O 207 R -0.027771)
+ (KRN O 307 R -0.027771)
+ (KRN C Q R -0.027771)
+ (KRN C O R -0.027771)
+ (KRN O 216 R -0.027771)
+ (KRN O 322 R -0.027771)
+ (KRN O 323 R -0.027771)
+ (KRN O 324 R -0.027771)
+ (KRN O 325 R -0.027771)
+ (KRN O 326 R -0.027771)
+ (KRN O 327 R -0.027771)
+ (KRN O 330 R -0.027771)
+ (KRN C U R -0.027771)
+ (KRN O 226 R -0.027771)
+ (KRN O 227 R -0.027771)
+ (KRN O 331 R -0.027771)
+ (KRN O 332 R -0.027771)
+ (KRN O 333 R -0.027771)
+ (KRN O 334 R -0.027771)
+ (KRN C T R -0.083313)
+ (KRN O 224 R -0.083313)
+ (KRN O 225 R -0.083313)
+ (KRN C Y R -0.083313)
+ (KRN O 230 R -0.083313)
+ (KRN O 335 R -0.083313)
+ (KRN C V R -0.111084)
+ (KRN C W R -0.111084)
+ )
+ )
+(CHARACTER O 306
+ (CHARWD R 0.902557)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 307
+ (CHARWD R 0.722046)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.170097)
+ )
+(CHARACTER O 310
+ (CHARWD R 0.680389)
+ (CHARHT R 0.856377)
+ )
+(CHARACTER O 311
+ (CHARWD R 0.680389)
+ (CHARHT R 0.856377)
+ )
+(CHARACTER O 312
+ (CHARWD R 0.680389)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 313
+ (CHARWD R 0.680389)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 314
+ (CHARWD R 0.361023)
+ (CHARHT R 0.856377)
+ )
+(CHARACTER O 315
+ (CHARWD R 0.361023)
+ (CHARHT R 0.856377)
+ )
+(CHARACTER O 316
+ (CHARWD R 0.361023)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 317
+ (CHARWD R 0.361023)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 320
+ (CHARWD R 0.763702)
+ (CHARHT R 0.688721)
+ (COMMENT
+ (KRN C X R -0.027771)
+ (KRN C W R -0.027771)
+ (KRN C A R -0.027771)
+ (KRN O 200 R -0.027771)
+ (KRN O 201 R -0.027771)
+ (KRN O 300 R -0.027771)
+ (KRN O 301 R -0.027771)
+ (KRN O 302 R -0.027771)
+ (KRN O 303 R -0.027771)
+ (KRN O 304 R -0.027771)
+ (KRN O 305 R -0.027771)
+ (KRN O 306 R -0.027771)
+ (KRN C V R -0.027771)
+ (KRN C Y R -0.027771)
+ (KRN O 230 R -0.027771)
+ (KRN O 335 R -0.027771)
+ )
+ )
+(CHARACTER O 321
+ (CHARWD R 0.749817)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 322
+ (CHARWD R 0.777588)
+ (CHARHT R 0.856377)
+ (COMMENT
+ (KRN C X R -0.027771)
+ (KRN C W R -0.027771)
+ (KRN C A R -0.027771)
+ (KRN O 200 R -0.027771)
+ (KRN O 201 R -0.027771)
+ (KRN O 300 R -0.027771)
+ (KRN O 301 R -0.027771)
+ (KRN O 302 R -0.027771)
+ (KRN O 303 R -0.027771)
+ (KRN O 304 R -0.027771)
+ (KRN O 305 R -0.027771)
+ (KRN O 306 R -0.027771)
+ (KRN C V R -0.027771)
+ (KRN C Y R -0.027771)
+ (KRN O 230 R -0.027771)
+ (KRN O 335 R -0.027771)
+ )
+ )
+(CHARACTER O 323
+ (CHARWD R 0.777588)
+ (CHARHT R 0.856377)
+ (COMMENT
+ (KRN C X R -0.027771)
+ (KRN C W R -0.027771)
+ (KRN C A R -0.027771)
+ (KRN O 200 R -0.027771)
+ (KRN O 201 R -0.027771)
+ (KRN O 300 R -0.027771)
+ (KRN O 301 R -0.027771)
+ (KRN O 302 R -0.027771)
+ (KRN O 303 R -0.027771)
+ (KRN O 304 R -0.027771)
+ (KRN O 305 R -0.027771)
+ (KRN O 306 R -0.027771)
+ (KRN C V R -0.027771)
+ (KRN C Y R -0.027771)
+ (KRN O 230 R -0.027771)
+ (KRN O 335 R -0.027771)
+ )
+ )
+(CHARACTER O 324
+ (CHARWD R 0.777588)
+ (CHARHT R 0.891449)
+ (COMMENT
+ (KRN C X R -0.027771)
+ (KRN C W R -0.027771)
+ (KRN C A R -0.027771)
+ (KRN O 200 R -0.027771)
+ (KRN O 201 R -0.027771)
+ (KRN O 300 R -0.027771)
+ (KRN O 301 R -0.027771)
+ (KRN O 302 R -0.027771)
+ (KRN O 303 R -0.027771)
+ (KRN O 304 R -0.027771)
+ (KRN O 305 R -0.027771)
+ (KRN O 306 R -0.027771)
+ (KRN C V R -0.027771)
+ (KRN C Y R -0.027771)
+ (KRN O 230 R -0.027771)
+ (KRN O 335 R -0.027771)
+ )
+ )
+(CHARACTER O 325
+ (CHARWD R 0.777588)
+ (CHARHT R 0.891449)
+ (COMMENT
+ (KRN C X R -0.027771)
+ (KRN C W R -0.027771)
+ (KRN C A R -0.027771)
+ (KRN O 200 R -0.027771)
+ (KRN O 201 R -0.027771)
+ (KRN O 300 R -0.027771)
+ (KRN O 301 R -0.027771)
+ (KRN O 302 R -0.027771)
+ (KRN O 303 R -0.027771)
+ (KRN O 304 R -0.027771)
+ (KRN O 305 R -0.027771)
+ (KRN O 306 R -0.027771)
+ (KRN C V R -0.027771)
+ (KRN C Y R -0.027771)
+ (KRN O 230 R -0.027771)
+ (KRN O 335 R -0.027771)
+ )
+ )
+(CHARACTER O 326
+ (CHARWD R 0.777588)
+ (CHARHT R 0.891449)
+ (COMMENT
+ (KRN C X R -0.027771)
+ (KRN C W R -0.027771)
+ (KRN C A R -0.027771)
+ (KRN O 200 R -0.027771)
+ (KRN O 201 R -0.027771)
+ (KRN O 300 R -0.027771)
+ (KRN O 301 R -0.027771)
+ (KRN O 302 R -0.027771)
+ (KRN O 303 R -0.027771)
+ (KRN O 304 R -0.027771)
+ (KRN O 305 R -0.027771)
+ (KRN O 306 R -0.027771)
+ (KRN C V R -0.027771)
+ (KRN C Y R -0.027771)
+ (KRN O 230 R -0.027771)
+ (KRN O 335 R -0.027771)
+ )
+ )
+(CHARACTER O 327
+ (CHARWD R 1.013641)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 330
+ (CHARWD R 0.777588)
+ (CHARHT R 0.731766)
+ (CHARDP R 0.048599)
+ (COMMENT
+ (KRN C X R -0.027771)
+ (KRN C W R -0.027771)
+ (KRN C A R -0.027771)
+ (KRN O 200 R -0.027771)
+ (KRN O 201 R -0.027771)
+ (KRN O 300 R -0.027771)
+ (KRN O 301 R -0.027771)
+ (KRN O 302 R -0.027771)
+ (KRN O 303 R -0.027771)
+ (KRN O 304 R -0.027771)
+ (KRN O 305 R -0.027771)
+ (KRN O 306 R -0.027771)
+ (KRN C V R -0.027771)
+ (KRN C Y R -0.027771)
+ (KRN O 230 R -0.027771)
+ (KRN O 335 R -0.027771)
+ )
+ )
+(CHARACTER O 331
+ (CHARWD R 0.749817)
+ (CHARHT R 0.856377)
+ )
+(CHARACTER O 332
+ (CHARWD R 0.749817)
+ (CHARHT R 0.856377)
+ )
+(CHARACTER O 333
+ (CHARWD R 0.749817)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 334
+ (CHARWD R 0.749817)
+ (CHARHT R 0.891449)
+ )
+(CHARACTER O 335
+ (CHARWD R 0.749817)
+ (CHARHT R 0.856377)
+ (CHARIC R 0.024994)
+ (COMMENT
+ (KRN C e R -0.083313)
+ (KRN C o R -0.083313)
+ (KRN C r R -0.083313)
+ (KRN C a R -0.083313)
+ (KRN C u R -0.083313)
+ (KRN C n R -0.083313)
+ (KRN O 31 R -0.083313)
+ (KRN C c R -0.083313)
+ (KRN C d R -0.083313)
+ (KRN C g R -0.083313)
+ (KRN C p R -0.083313)
+ (KRN C s R -0.083313)
+ (KRN C v R -0.083313)
+ (KRN C w R -0.083313)
+ (KRN C x R -0.083313)
+ (KRN C z R -0.083313)
+ (KRN C A R -0.083313)
+ (KRN O 200 R -0.083313)
+ (KRN O 201 R -0.083313)
+ (KRN O 300 R -0.083313)
+ (KRN O 301 R -0.083313)
+ (KRN O 302 R -0.083313)
+ (KRN O 303 R -0.083313)
+ (KRN O 304 R -0.083313)
+ (KRN O 305 R -0.083313)
+ (KRN O 306 R -0.083313)
+ )
+ )
+(CHARACTER O 336
+ (CHARWD R 0.624847)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 337
+ (CHARWD R 1.11084)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 340
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 341
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 342
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 343
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 344
+ (CHARWD R 0.499878)
+ (CHARHT R 0.663332)
+ (COMMENT
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 345
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 346
+ (CHARWD R 0.722046)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER O 347
+ (CHARWD R 0.444336)
+ (CHARHT R 0.43045)
+ (CHARDP R 0.170097)
+ (COMMENT
+ (KRN C h R -0.027771)
+ (KRN C k R -0.027771)
+ )
+ )
+(CHARACTER O 350
+ (CHARWD R 0.444336)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 351
+ (CHARWD R 0.444336)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 352
+ (CHARWD R 0.444336)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 353
+ (CHARWD R 0.444336)
+ (CHARHT R 0.663332)
+ )
+(CHARACTER O 354
+ (CHARWD R 0.27771)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 355
+ (CHARWD R 0.27771)
+ (CHARHT R 0.64151)
+ (CHARIC R 0.016302)
+ )
+(CHARACTER O 356
+ (CHARWD R 0.27771)
+ (CHARHT R 0.64151)
+ )
+(CHARACTER O 357
+ (CHARWD R 0.333252)
+ (CHARHT R 0.663332)
+ )
+(CHARACTER O 360
+ (CHARWD R 0.499878)
+ (CHARHT R 0.688721)
+ )
+(CHARACTER O 361
+ (CHARWD R 0.55542)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C t R -0.027771)
+ (KRN C u R -0.027771)
+ (KRN O 266 R -0.027771)
+ (KRN O 267 R -0.027771)
+ (KRN O 371 R -0.027771)
+ (KRN O 372 R -0.027771)
+ (KRN O 373 R -0.027771)
+ (KRN O 374 R -0.027771)
+ (KRN C b R -0.027771)
+ (KRN C y R -0.027771)
+ (KRN C v R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 362
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C e R 0.027771)
+ (KRN O 245 R 0.027771)
+ (KRN O 246 R 0.027771)
+ (KRN O 350 R 0.027771)
+ (KRN O 351 R 0.027771)
+ (KRN O 352 R 0.027771)
+ (KRN O 353 R 0.027771)
+ (KRN C o R 0.027771)
+ (KRN O 256 R 0.027771)
+ (KRN O 362 R 0.027771)
+ (KRN O 363 R 0.027771)
+ (KRN O 364 R 0.027771)
+ (KRN O 365 R 0.027771)
+ (KRN O 366 R 0.027771)
+ (KRN O 367 R 0.027771)
+ (KRN O 370 R 0.027771)
+ (KRN C x R -0.027771)
+ (KRN C d R 0.027771)
+ (KRN C c R 0.027771)
+ (KRN O 242 R 0.027771)
+ (KRN O 243 R 0.027771)
+ (KRN O 347 R 0.027771)
+ (KRN C q R 0.027771)
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 363
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C e R 0.027771)
+ (KRN O 245 R 0.027771)
+ (KRN O 246 R 0.027771)
+ (KRN O 350 R 0.027771)
+ (KRN O 351 R 0.027771)
+ (KRN O 352 R 0.027771)
+ (KRN O 353 R 0.027771)
+ (KRN C o R 0.027771)
+ (KRN O 256 R 0.027771)
+ (KRN O 362 R 0.027771)
+ (KRN O 363 R 0.027771)
+ (KRN O 364 R 0.027771)
+ (KRN O 365 R 0.027771)
+ (KRN O 366 R 0.027771)
+ (KRN O 367 R 0.027771)
+ (KRN O 370 R 0.027771)
+ (KRN C x R -0.027771)
+ (KRN C d R 0.027771)
+ (KRN C c R 0.027771)
+ (KRN O 242 R 0.027771)
+ (KRN O 243 R 0.027771)
+ (KRN O 347 R 0.027771)
+ (KRN C q R 0.027771)
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 364
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C e R 0.027771)
+ (KRN O 245 R 0.027771)
+ (KRN O 246 R 0.027771)
+ (KRN O 350 R 0.027771)
+ (KRN O 351 R 0.027771)
+ (KRN O 352 R 0.027771)
+ (KRN O 353 R 0.027771)
+ (KRN C o R 0.027771)
+ (KRN O 256 R 0.027771)
+ (KRN O 362 R 0.027771)
+ (KRN O 363 R 0.027771)
+ (KRN O 364 R 0.027771)
+ (KRN O 365 R 0.027771)
+ (KRN O 366 R 0.027771)
+ (KRN O 367 R 0.027771)
+ (KRN O 370 R 0.027771)
+ (KRN C x R -0.027771)
+ (KRN C d R 0.027771)
+ (KRN C c R 0.027771)
+ (KRN O 242 R 0.027771)
+ (KRN O 243 R 0.027771)
+ (KRN O 347 R 0.027771)
+ (KRN C q R 0.027771)
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 365
+ (CHARWD R 0.499878)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C e R 0.027771)
+ (KRN O 245 R 0.027771)
+ (KRN O 246 R 0.027771)
+ (KRN O 350 R 0.027771)
+ (KRN O 351 R 0.027771)
+ (KRN O 352 R 0.027771)
+ (KRN O 353 R 0.027771)
+ (KRN C o R 0.027771)
+ (KRN O 256 R 0.027771)
+ (KRN O 362 R 0.027771)
+ (KRN O 363 R 0.027771)
+ (KRN O 364 R 0.027771)
+ (KRN O 365 R 0.027771)
+ (KRN O 366 R 0.027771)
+ (KRN O 367 R 0.027771)
+ (KRN O 370 R 0.027771)
+ (KRN C x R -0.027771)
+ (KRN C d R 0.027771)
+ (KRN C c R 0.027771)
+ (KRN O 242 R 0.027771)
+ (KRN O 243 R 0.027771)
+ (KRN O 347 R 0.027771)
+ (KRN C q R 0.027771)
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 366
+ (CHARWD R 0.499878)
+ (CHARHT R 0.663332)
+ (COMMENT
+ (KRN C e R 0.027771)
+ (KRN O 245 R 0.027771)
+ (KRN O 246 R 0.027771)
+ (KRN O 350 R 0.027771)
+ (KRN O 351 R 0.027771)
+ (KRN O 352 R 0.027771)
+ (KRN O 353 R 0.027771)
+ (KRN C o R 0.027771)
+ (KRN O 256 R 0.027771)
+ (KRN O 362 R 0.027771)
+ (KRN O 363 R 0.027771)
+ (KRN O 364 R 0.027771)
+ (KRN O 365 R 0.027771)
+ (KRN O 366 R 0.027771)
+ (KRN O 367 R 0.027771)
+ (KRN O 370 R 0.027771)
+ (KRN C x R -0.027771)
+ (KRN C d R 0.027771)
+ (KRN C c R 0.027771)
+ (KRN O 242 R 0.027771)
+ (KRN O 243 R 0.027771)
+ (KRN O 347 R 0.027771)
+ (KRN C q R 0.027771)
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 367
+ (CHARWD R 0.777588)
+ (CHARHT R 0.43045)
+ )
+(CHARACTER O 370
+ (CHARWD R 0.499878)
+ (CHARHT R 0.53331)
+ (CHARDP R 0.0971985)
+ (COMMENT
+ (KRN C e R 0.027771)
+ (KRN O 245 R 0.027771)
+ (KRN O 246 R 0.027771)
+ (KRN O 350 R 0.027771)
+ (KRN O 351 R 0.027771)
+ (KRN O 352 R 0.027771)
+ (KRN O 353 R 0.027771)
+ (KRN C o R 0.027771)
+ (KRN O 256 R 0.027771)
+ (KRN O 362 R 0.027771)
+ (KRN O 363 R 0.027771)
+ (KRN O 364 R 0.027771)
+ (KRN O 365 R 0.027771)
+ (KRN O 366 R 0.027771)
+ (KRN O 367 R 0.027771)
+ (KRN O 370 R 0.027771)
+ (KRN C x R -0.027771)
+ (KRN C d R 0.027771)
+ (KRN C c R 0.027771)
+ (KRN O 242 R 0.027771)
+ (KRN O 243 R 0.027771)
+ (KRN O 347 R 0.027771)
+ (KRN C q R 0.027771)
+ (KRN C v R -0.027771)
+ (KRN C j R 0.055542)
+ (KRN C y R -0.027771)
+ (KRN O 270 R -0.027771)
+ (KRN O 375 R -0.027771)
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 371
+ (CHARWD R 0.55542)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 372
+ (CHARWD R 0.55542)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 373
+ (CHARWD R 0.55542)
+ (CHARHT R 0.64151)
+ (COMMENT
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 374
+ (CHARWD R 0.55542)
+ (CHARHT R 0.663332)
+ (COMMENT
+ (KRN C w R -0.027771)
+ )
+ )
+(CHARACTER O 375
+ (CHARWD R 0.527649)
+ (CHARHT R 0.64151)
+ (CHARDP R 0.194397)
+ (CHARIC R 0.0138855)
+ (COMMENT
+ (KRN C o R -0.027771)
+ (KRN O 256 R -0.027771)
+ (KRN O 362 R -0.027771)
+ (KRN O 363 R -0.027771)
+ (KRN O 364 R -0.027771)
+ (KRN O 365 R -0.027771)
+ (KRN O 366 R -0.027771)
+ (KRN O 367 R -0.027771)
+ (KRN O 370 R -0.027771)
+ (KRN C e R -0.027771)
+ (KRN O 245 R -0.027771)
+ (KRN O 246 R -0.027771)
+ (KRN O 350 R -0.027771)
+ (KRN O 351 R -0.027771)
+ (KRN O 352 R -0.027771)
+ (KRN O 353 R -0.027771)
+ (KRN C a R -0.027771)
+ (KRN O 240 R -0.027771)
+ (KRN O 241 R -0.027771)
+ (KRN O 340 R -0.027771)
+ (KRN O 341 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 342 R -0.027771)
+ (KRN O 343 R -0.027771)
+ (KRN O 344 R -0.027771)
+ (KRN O 345 R -0.027771)
+ (KRN O 346 R -0.027771)
+ (KRN O 56 R -0.083313)
+ (KRN O 54 R -0.083313)
+ )
+ )
+(CHARACTER O 376
+ (CHARWD R 0.55542)
+ (CHARHT R 0.688721)
+ (CHARDP R 0.194397)
+ )
+(CHARACTER O 377
+ (CHARWD R 0.499878)
+ (CHARHT R 0.688721)
+ )
diff --git a/fonts/gothic/blacklettert1/t1yfrak.fd b/fonts/gothic/blacklettert1/t1yfrak.fd
new file mode 100644
index 0000000000..ebb91b2d26
--- /dev/null
+++ b/fonts/gothic/blacklettert1/t1yfrak.fd
@@ -0,0 +1,30 @@
+%Filename: t1yfrak.fd
+%Created by: tex yutoyt1
+%Created using fontinst v1.801
+
+%THIS FILE SHOULD BE PUT IN A TEX INPUTS DIRECTORY
+
+\ProvidesFile{t1yfrak.fd}
+ [2003/02/17 Fontinst v1.801 font definitions for T1/yfrak.]
+
+\DeclareFontFamily{T1}{yfrak}{\hyphenchar \font =127}
+
+\DeclareFontShape{T1}{yfrak}{m}{n}{
+ <-> tfrak
+}{}
+
+\DeclareFontShape{T1}{yfrak}{m}{it}{
+ <-> tfrakls
+}{}
+
+\DeclareFontShape{T1}{yfrak}{m}{sl}{
+ <-> tswab
+}{}
+
+\DeclareFontShape{T1}{yfrak}{b}{n}{
+ <-> tgoth
+}{}
+
+\DeclareFontShape{T1}{yfrak}{bx}{n}{<->ssub * yfrak/b/n}{}
+
+\endinput
diff --git a/fonts/gothic/blacklettert1/tfrak.tfm b/fonts/gothic/blacklettert1/tfrak.tfm
new file mode 100644
index 0000000000..e4c933f5b8
--- /dev/null
+++ b/fonts/gothic/blacklettert1/tfrak.tfm
Binary files differ
diff --git a/fonts/gothic/blacklettert1/tfrak.vf b/fonts/gothic/blacklettert1/tfrak.vf
new file mode 100644
index 0000000000..6df13d17fe
--- /dev/null
+++ b/fonts/gothic/blacklettert1/tfrak.vf
Binary files differ
diff --git a/fonts/gothic/blacklettert1/tfrakls.tfm b/fonts/gothic/blacklettert1/tfrakls.tfm
new file mode 100644
index 0000000000..9f18a0edbb
--- /dev/null
+++ b/fonts/gothic/blacklettert1/tfrakls.tfm
Binary files differ
diff --git a/fonts/gothic/blacklettert1/tfrakls.vf b/fonts/gothic/blacklettert1/tfrakls.vf
new file mode 100644
index 0000000000..f1b6983a91
--- /dev/null
+++ b/fonts/gothic/blacklettert1/tfrakls.vf
Binary files differ
diff --git a/fonts/gothic/blacklettert1/tgoth.tfm b/fonts/gothic/blacklettert1/tgoth.tfm
new file mode 100644
index 0000000000..98852ccb1f
--- /dev/null
+++ b/fonts/gothic/blacklettert1/tgoth.tfm
Binary files differ
diff --git a/fonts/gothic/blacklettert1/tgoth.vf b/fonts/gothic/blacklettert1/tgoth.vf
new file mode 100644
index 0000000000..30b42d863c
--- /dev/null
+++ b/fonts/gothic/blacklettert1/tgoth.vf
Binary files differ
diff --git a/fonts/gothic/blacklettert1/tswab.tfm b/fonts/gothic/blacklettert1/tswab.tfm
new file mode 100644
index 0000000000..1ea80d9bec
--- /dev/null
+++ b/fonts/gothic/blacklettert1/tswab.tfm
Binary files differ
diff --git a/fonts/gothic/blacklettert1/tswab.vf b/fonts/gothic/blacklettert1/tswab.vf
new file mode 100644
index 0000000000..e609b67d8e
--- /dev/null
+++ b/fonts/gothic/blacklettert1/tswab.vf
Binary files differ
diff --git a/fonts/gothic/blacklettert1/yfrak.pl b/fonts/gothic/blacklettert1/yfrak.pl
new file mode 100644
index 0000000000..37dc9aadf6
--- /dev/null
+++ b/fonts/gothic/blacklettert1/yfrak.pl
@@ -0,0 +1,652 @@
+(FAMILY YFRAK)
+(FACE O 352)
+(CODINGSCHEME YH FRAKTUR)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 14616716503)
+(FONTDIMEN
+ (SLANT R 0.0)
+ (SPACE R 0.333334)
+ (STRETCH R 0.166667)
+ (SHRINK R 0.111112)
+ (XHEIGHT R 0.463888)
+ (QUAD R 1.000003)
+ (EXTRASPACE R 0.111112)
+ )
+(LIGTABLE
+ (LABEL C c)
+ (LIG C h O 205)
+ (LIG C k O 206)
+ (STOP)
+ (LABEL C f)
+ (LIG C f O 204)
+ (STOP)
+ (LABEL C s)
+ (LIG O 72 O 215)
+ (LIG C s O 201)
+ (LIG C t O 202)
+ (LIG C z O 32)
+ (LIG C f O 203)
+ (KRN C b R 0.057222)
+ (KRN C d R 0.057222)
+ (KRN C h R 0.057222)
+ (KRN C k R 0.057222)
+ (KRN C l R 0.057222)
+ (KRN C i R 0.022222)
+ (KRN C j R 0.022222)
+ (STOP)
+ (LABEL C t)
+ (LIG C z O 213)
+ (STOP)
+ (LABEL O 42)
+ (LIG C a O 212)
+ (LIG C e O 221)
+ (LIG C o O 232)
+ (LIG C u O 237)
+ (LIG C s O 32)
+ (STOP)
+ (LABEL O 52)
+ (LIG C a O 211)
+ (LIG C e O 220)
+ (LIG C o O 231)
+ (LIG C u O 236)
+ (STOP)
+ (LABEL O 140)
+ (LIG O 140 O 134)
+ (STOP)
+ (LABEL O 47)
+ (LIG O 47 O 42)
+ (STOP)
+ (LABEL O 55)
+ (LIG O 55 O 173)
+ (STOP)
+ (LABEL O 173)
+ (LIG O 55 O 174)
+ (STOP)
+ (LABEL O 201)
+ (KRN C b R 0.057222)
+ (KRN C d R 0.057222)
+ (KRN C h R 0.057222)
+ (KRN C k R 0.057222)
+ (KRN C l R 0.057222)
+ (KRN C i R 0.022222)
+ (KRN C j R 0.022222)
+ (STOP)
+ )
+(CHARACTER O 20
+ (CHARWD R 0.2049465)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 21
+ (CHARWD R 0.208002)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.0895)
+ )
+(CHARACTER O 22
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 23
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 24
+ (CHARWD R 0.500002)
+ (CHARHT R 0.636165)
+ )
+(CHARACTER O 25
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 26
+ (CHARWD R 0.333334)
+ (CHARHT R 0.587221)
+ )
+(CHARACTER O 27
+ (CHARWD R 0.500002)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 30
+ (CHARWD R 0.444446)
+ (CHARDP R 0.16868)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.358004)
+ (CHARHT R 0.63367)
+ (CHARDP R 0.175946)
+ )
+(CHARACTER O 41
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 42
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG C a O 212)
+ (LIG C e O 221)
+ (LIG C o O 232)
+ (LIG C u O 237)
+ (LIG C s O 32)
+ )
+ )
+(CHARACTER O 43
+ (CHARWD R 0.833336)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.192904)
+ )
+(CHARACTER O 44
+ (CHARWD R 0.518947)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.140361)
+ )
+(CHARACTER O 45
+ (CHARWD R 0.833336)
+ (CHARHT R 0.75)
+ (CHARDP R 0.055555)
+ )
+(CHARACTER O 46
+ (CHARWD R 0.777781)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 47
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 47 O 42)
+ )
+ )
+(CHARACTER O 50
+ (CHARWD R 0.38889)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 51
+ (CHARWD R 0.38889)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 52
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (COMMENT
+ (LIG C a O 211)
+ (LIG C e O 220)
+ (LIG C o O 231)
+ (LIG C u O 236)
+ )
+ )
+(CHARACTER O 53
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 54
+ (CHARWD R 0.322225)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 55
+ (CHARWD R 0.266668)
+ (CHARHT R 0.463888)
+ (COMMENT
+ (LIG O 55 O 173)
+ )
+ )
+(CHARACTER O 56
+ (CHARWD R 0.322225)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER C 0
+ (CHARWD R 0.45178)
+ (CHARHT R 0.556665)
+ )
+(CHARACTER C 1
+ (CHARWD R 0.198779)
+ (CHARHT R 0.556665)
+ )
+(CHARACTER C 2
+ (CHARWD R 0.360781)
+ (CHARHT R 0.556665)
+ )
+(CHARACTER C 3
+ (CHARWD R 0.350003)
+ (CHARHT R 0.556665)
+ )
+(CHARACTER C 4
+ (CHARWD R 0.45339)
+ (CHARHT R 0.556665)
+ )
+(CHARACTER C 5
+ (CHARWD R 0.351558)
+ (CHARHT R 0.556665)
+ )
+(CHARACTER C 6
+ (CHARWD R 0.380892)
+ (CHARHT R 0.556665)
+ )
+(CHARACTER C 7
+ (CHARWD R 0.372559)
+ (CHARHT R 0.556665)
+ )
+(CHARACTER C 8
+ (CHARWD R 0.417891)
+ (CHARHT R 0.556665)
+ )
+(CHARACTER C 9
+ (CHARWD R 0.380892)
+ (CHARHT R 0.556665)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.322225)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.322225)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.455557)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.175946)
+ )
+(CHARACTER O 75
+ (CHARWD R 0.777781)
+ (CHARHT R 0.374374)
+ (CHARDP R -0.125626)
+ )
+(CHARACTER O 77
+ (CHARWD R 0.472224)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER C A
+ (CHARWD R 0.573448)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C B
+ (CHARWD R 0.734169)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C C
+ (CHARWD R 0.622559)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C D
+ (CHARWD R 0.7204485)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C E
+ (CHARWD R 0.517115)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C F
+ (CHARWD R 0.500725)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.16868)
+ )
+(CHARACTER C G
+ (CHARWD R 0.6354475)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C H
+ (CHARWD R 0.61528)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.1108885)
+ )
+(CHARACTER C I
+ (CHARWD R 0.518947)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.140361)
+ )
+(CHARACTER C J
+ (CHARWD R 0.518947)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.140361)
+ )
+(CHARACTER C K
+ (CHARWD R 0.571002)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C L
+ (CHARWD R 0.385057)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C M
+ (CHARWD R 0.79067)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C N
+ (CHARWD R 0.692337)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C O
+ (CHARWD R 0.71167)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C P
+ (CHARWD R 0.571225)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.147278)
+ )
+(CHARACTER C Q
+ (CHARWD R 0.797727)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C R
+ (CHARWD R 0.644058)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C S
+ (CHARWD R 0.756282)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C T
+ (CHARWD R 0.621448)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C U
+ (CHARWD R 0.633781)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C V
+ (CHARWD R 0.616837)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C W
+ (CHARWD R 0.811781)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C X
+ (CHARWD R 0.56767)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C Y
+ (CHARWD R 0.630892)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.121167)
+ )
+(CHARACTER C Z
+ (CHARWD R 0.511502)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.140361)
+ )
+(CHARACTER O 133
+ (CHARWD R 0.333334)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.333334)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 136
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 137
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 134)
+ )
+ )
+(CHARACTER C a
+ (CHARWD R 0.3654375)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C b
+ (CHARWD R 0.340729)
+ (CHARHT R 0.638313)
+ )
+(CHARACTER C c
+ (CHARWD R 0.275935)
+ (CHARHT R 0.463888)
+ (COMMENT
+ (LIG C h O 205)
+ (LIG C k O 206)
+ )
+ )
+(CHARACTER C d
+ (CHARWD R 0.339172)
+ (CHARHT R 0.636165)
+ )
+(CHARACTER C e
+ (CHARWD R 0.29402)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C f
+ (CHARWD R 0.232724)
+ (CHARHT R 0.63367)
+ (CHARDP R 0.175946)
+ (COMMENT
+ (LIG C f O 204)
+ )
+ )
+(CHARACTER C g
+ (CHARWD R 0.391971)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.192904)
+ )
+(CHARACTER C h
+ (CHARWD R 0.348447)
+ (CHARHT R 0.638313)
+ (CHARDP R 0.140361)
+ )
+(CHARACTER C i
+ (CHARWD R 0.2049465)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C j
+ (CHARWD R 0.208002)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.0895)
+ )
+(CHARACTER C k
+ (CHARWD R 0.258946)
+ (CHARHT R 0.63367)
+ )
+(CHARACTER C l
+ (CHARWD R 0.211113)
+ (CHARHT R 0.63367)
+ )
+(CHARACTER C m
+ (CHARWD R 0.57681)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C n
+ (CHARWD R 0.387352)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C o
+ (CHARWD R 0.345373)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C p
+ (CHARWD R 0.390154)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.186722)
+ )
+(CHARACTER C q
+ (CHARWD R 0.371614)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.186722)
+ )
+(CHARACTER C r
+ (CHARWD R 0.325279)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C s
+ (CHARWD R 0.172613)
+ (CHARHT R 0.63367)
+ (CHARDP R 0.175946)
+ (COMMENT
+ (LIG O 72 O 215)
+ (LIG C s O 201)
+ (LIG C t O 202)
+ (LIG C z O 32)
+ (LIG C f O 203)
+ (KRN C b R 0.057222)
+ (KRN C d R 0.057222)
+ (KRN C h R 0.057222)
+ (KRN C k R 0.057222)
+ (KRN C l R 0.057222)
+ (KRN C i R 0.022222)
+ (KRN C j R 0.022222)
+ )
+ )
+(CHARACTER C t
+ (CHARWD R 0.219113)
+ (CHARHT R 0.550174)
+ (COMMENT
+ (LIG C z O 213)
+ )
+ )
+(CHARACTER C u
+ (CHARWD R 0.422852)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C v
+ (CHARWD R 0.383926)
+ (CHARHT R 0.55806)
+ )
+(CHARACTER C w
+ (CHARWD R 0.518512)
+ (CHARHT R 0.502388)
+ )
+(CHARACTER C x
+ (CHARWD R 0.361628)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.231944)
+ )
+(CHARACTER C y
+ (CHARWD R 0.381136)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.140361)
+ )
+(CHARACTER C z
+ (CHARWD R 0.299044)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.170557)
+ )
+(CHARACTER O 173
+ (CHARWD R 0.500002)
+ (CHARHT R 0.463888)
+ (CHARIC R 0.027779)
+ (COMMENT
+ (LIG O 55 O 174)
+ )
+ )
+(CHARACTER O 174
+ (CHARWD R 1.000003)
+ (CHARHT R 0.463888)
+ (CHARIC R 0.027779)
+ )
+(CHARACTER O 175
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 176
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 201
+ (CHARWD R 0.305334)
+ (CHARHT R 0.63367)
+ (CHARDP R 0.175946)
+ (COMMENT
+ (KRN C b R 0.057222)
+ (KRN C d R 0.057222)
+ (KRN C h R 0.057222)
+ (KRN C k R 0.057222)
+ (KRN C l R 0.057222)
+ (KRN C i R 0.022222)
+ (KRN C j R 0.022222)
+ )
+ )
+(CHARACTER O 202
+ (CHARWD R 0.388891)
+ (CHARHT R 0.63367)
+ (CHARDP R 0.175946)
+ )
+(CHARACTER O 203
+ (CHARWD R 0.365445)
+ (CHARHT R 0.63367)
+ (CHARDP R 0.175946)
+ )
+(CHARACTER O 204
+ (CHARWD R 0.365445)
+ (CHARHT R 0.63367)
+ (CHARDP R 0.175946)
+ )
+(CHARACTER O 205
+ (CHARWD R 0.511726)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 206
+ (CHARWD R 0.422226)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 211
+ (CHARWD R 0.3654375)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 212
+ (CHARWD R 0.3654375)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 213
+ (CHARWD R 0.363892)
+ (CHARHT R 0.550174)
+ (CHARDP R 0.175946)
+ )
+(CHARACTER O 215
+ (CHARWD R 0.371614)
+ (CHARHT R 0.59656)
+ )
+(CHARACTER O 220
+ (CHARWD R 0.29402)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 221
+ (CHARWD R 0.29402)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 231
+ (CHARWD R 0.345373)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 232
+ (CHARWD R 0.345373)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 236
+ (CHARWD R 0.422852)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 237
+ (CHARWD R 0.422852)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 244
+ (CHARWD R 0.455557)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.175946)
+ )
+(CHARACTER O 311
+ (CHARWD R 0.499669)
+ (CHARHT R 0.463888)
+ )
diff --git a/fonts/gothic/blacklettert1/ygoth.pl b/fonts/gothic/blacklettert1/ygoth.pl
new file mode 100644
index 0000000000..4f541e3b2c
--- /dev/null
+++ b/fonts/gothic/blacklettert1/ygoth.pl
@@ -0,0 +1,723 @@
+(FAMILY YGOTH)
+(FACE O 352)
+(CODINGSCHEME YH GOTISCH)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 16611724751)
+(FONTDIMEN
+ (SLANT R 0.0)
+ (SPACE R 0.333334)
+ (STRETCH R 0.166667)
+ (SHRINK R 0.111112)
+ (XHEIGHT R 0.472223)
+ (QUAD R 1.000003)
+ (EXTRASPACE R 0.111112)
+ )
+(LIGTABLE
+ (LABEL O 140)
+ (LIG C s O 52)
+ (LIG C t O 75)
+ (LIG O 140 O 137)
+ (STOP)
+ (LABEL O 52)
+ (LIG C i O 57)
+ (STOP)
+ (LABEL C a)
+ (LIG C e O 32)
+ (STOP)
+ (LABEL C b)
+ (LIG C e O 1)
+ (LIG C a O 0)
+ (LIG C o O 2)
+ (STOP)
+ (LABEL C c)
+ (LIG C h O 3)
+ (LIG C k O 4)
+ (LIG C t O 5)
+ (STOP)
+ (LABEL C d)
+ (LIG C e O 7)
+ (LIG C a O 6)
+ (LIG C o O 10)
+ (STOP)
+ (LABEL C h)
+ (LIG C e O 12)
+ (LIG C a O 11)
+ (LIG C o O 22)
+ (STOP)
+ (LABEL C i)
+ (LIG C j O 26)
+ (STOP)
+ (LABEL C f)
+ (LIG C i O 14)
+ (LIG C f O 13)
+ (LIG C l O 15)
+ (STOP)
+ (LABEL O 13)
+ (LIG C i O 16)
+ (LIG C l O 17)
+ (STOP)
+ (LABEL C l)
+ (LIG C l O 35)
+ (STOP)
+ (LABEL C p)
+ (LIG C p O 43)
+ (LIG C e O 24)
+ (LIG C a O 23)
+ (LIG C o O 25)
+ (STOP)
+ (LABEL C q)
+ (LIG C q O 44)
+ (LIG C z O 27)
+ (STOP)
+ (LABEL C s)
+ (LIG C s O 46)
+ (LIG C t O 74)
+ (LIG C z O 31)
+ (LIG O 72 O 140)
+ (KRN C i R -0.055555)
+ (STOP)
+ (LABEL C o)
+ (LIG C e O 33)
+ (STOP)
+ (LABEL O 46)
+ (LIG C i O 53)
+ (STOP)
+ (LABEL C t)
+ (LIG C z O 76)
+ (STOP)
+ (LABEL C v)
+ (LIG C e O 36)
+ (LIG C a O 30)
+ (LIG C u O 37)
+ (STOP)
+ (LABEL O 55)
+ (LIG O 55 O 173)
+ (STOP)
+ (LABEL O 173)
+ (LIG O 55 O 174)
+ (STOP)
+ (LABEL O 47)
+ (LIG O 47 O 42)
+ (STOP)
+ (LABEL O 42)
+ (LIG C a O 133)
+ (LIG C e O 134)
+ (LIG C o O 135)
+ (LIG C u O 136)
+ (LIG C s O 31)
+ (STOP)
+ )
+(CHARACTER O 0
+ (CHARWD R 0.600612)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 1
+ (CHARWD R 0.533945)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 2
+ (CHARWD R 0.572833)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 3
+ (CHARWD R 0.54939)
+ (CHARHT R 0.663557)
+ )
+(CHARACTER O 4
+ (CHARWD R 0.571611)
+ (CHARHT R 0.663557)
+ )
+(CHARACTER O 5
+ (CHARWD R 0.443834)
+ (CHARHT R 0.663557)
+ )
+(CHARACTER O 6
+ (CHARWD R 0.611722)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 7
+ (CHARWD R 0.542277)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 10
+ (CHARWD R 0.5895)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 11
+ (CHARWD R 0.606168)
+ (CHARHT R 0.675751)
+ (CHARDP R 0.154333)
+ )
+(CHARACTER O 12
+ (CHARWD R 0.553389)
+ (CHARHT R 0.675751)
+ (CHARDP R 0.154333)
+ )
+(CHARACTER O 13
+ (CHARWD R 0.438278)
+ (CHARHT R 0.663557)
+ (COMMENT
+ (LIG C i O 16)
+ (LIG C l O 17)
+ )
+ )
+(CHARACTER O 14
+ (CHARWD R 0.343834)
+ (CHARHT R 0.663557)
+ )
+(CHARACTER O 15
+ (CHARWD R 0.421611)
+ (CHARHT R 0.663557)
+ )
+(CHARACTER O 16
+ (CHARWD R 0.510501)
+ (CHARHT R 0.663557)
+ )
+(CHARACTER O 17
+ (CHARWD R 0.577168)
+ (CHARHT R 0.663557)
+ )
+(CHARACTER O 20
+ (CHARWD R 0.166057)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 21
+ (CHARWD R 0.149389)
+ (CHARHT R 0.675751)
+ (CHARDP R 0.154333)
+ )
+(CHARACTER O 22
+ (CHARWD R 0.578389)
+ (CHARHT R 0.675751)
+ (CHARDP R 0.154333)
+ )
+(CHARACTER O 23
+ (CHARWD R 0.611722)
+ (CHARHT R 0.472223)
+ (CHARDP R 0.203527)
+ )
+(CHARACTER O 24
+ (CHARWD R 0.556166)
+ (CHARHT R 0.472223)
+ (CHARDP R 0.203527)
+ )
+(CHARACTER O 25
+ (CHARWD R 0.5895)
+ (CHARHT R 0.472223)
+ (CHARDP R 0.203527)
+ )
+(CHARACTER O 26
+ (CHARWD R 0.33828)
+ (CHARHT R 0.675751)
+ (CHARDP R 0.154333)
+ )
+(CHARACTER O 27
+ (CHARWD R 0.578389)
+ (CHARHT R 0.472223)
+ (CHARDP R 0.203527)
+ )
+(CHARACTER O 30
+ (CHARWD R 0.606168)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER O 31
+ (CHARWD R 0.360501)
+ (CHARHT R 0.663557)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.50061)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER O 33
+ (CHARWD R 0.506166)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER O 34
+ (CHARWD R 0.3394985)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER O 35
+ (CHARWD R 0.376556)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 36
+ (CHARWD R 0.556166)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER O 37
+ (CHARWD R 0.5895)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER O 41
+ (CHARWD R 0.277779)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 42
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG C a O 133)
+ (LIG C e O 134)
+ (LIG C o O 135)
+ (LIG C u O 136)
+ (LIG C s O 31)
+ )
+ )
+(CHARACTER O 43
+ (CHARWD R 0.572833)
+ (CHARHT R 0.472223)
+ (CHARDP R 0.203527)
+ )
+(CHARACTER O 44
+ (CHARWD R 0.561722)
+ (CHARHT R 0.472223)
+ (CHARDP R 0.203527)
+ )
+(CHARACTER O 46
+ (CHARWD R 0.443835)
+ (CHARHT R 0.663557)
+ (COMMENT
+ (LIG C i O 53)
+ )
+ )
+(CHARACTER O 47
+ (CHARWD R 0.127779)
+ (CHARHT R 0.675751)
+ (COMMENT
+ (LIG O 47 O 42)
+ )
+ )
+(CHARACTER O 50
+ (CHARWD R 0.38889)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 51
+ (CHARWD R 0.38889)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 52
+ (CHARWD R 0.43828)
+ (CHARHT R 0.663557)
+ (COMMENT
+ (LIG C i O 57)
+ )
+ )
+(CHARACTER O 53
+ (CHARWD R 0.518834)
+ (CHARHT R 0.663557)
+ )
+(CHARACTER O 54
+ (CHARWD R 0.277779)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 55
+ (CHARWD R 0.155556)
+ (CHARHT R 0.675751)
+ (COMMENT
+ (LIG O 55 O 173)
+ )
+ )
+(CHARACTER O 56
+ (CHARWD R 0.277779)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.521612)
+ (CHARHT R 0.663557)
+ )
+(CHARACTER C 0
+ (CHARWD R 0.435112)
+ (CHARHT R 0.586504)
+ )
+(CHARACTER C 1
+ (CHARWD R 0.282834)
+ (CHARHT R 0.586504)
+ )
+(CHARACTER C 2
+ (CHARWD R 0.449501)
+ (CHARHT R 0.586504)
+ )
+(CHARACTER C 3
+ (CHARWD R 0.445389)
+ (CHARHT R 0.586504)
+ )
+(CHARACTER C 4
+ (CHARWD R 0.51739)
+ (CHARHT R 0.586504)
+ )
+(CHARACTER C 5
+ (CHARWD R 0.435112)
+ (CHARHT R 0.586504)
+ )
+(CHARACTER C 6
+ (CHARWD R 0.435112)
+ (CHARHT R 0.586504)
+ )
+(CHARACTER C 7
+ (CHARWD R 0.449501)
+ (CHARHT R 0.586504)
+ )
+(CHARACTER C 8
+ (CHARWD R 0.435112)
+ (CHARHT R 0.586504)
+ )
+(CHARACTER C 9
+ (CHARWD R 0.435112)
+ (CHARHT R 0.586504)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.277779)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 73
+ (CHARWD R 0.277779)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.377169)
+ (CHARHT R 0.663557)
+ )
+(CHARACTER O 75
+ (CHARWD R 0.377169)
+ (CHARHT R 0.663557)
+ )
+(CHARACTER O 76
+ (CHARWD R 0.396611)
+ (CHARHT R 0.586504)
+ )
+(CHARACTER O 77
+ (CHARWD R 0.449501)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER C A
+ (CHARWD R 0.619446)
+ (CHARHT R 0.727751)
+ )
+(CHARACTER C B
+ (CHARWD R 0.623335)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C C
+ (CHARWD R 0.632777)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C D
+ (CHARWD R 0.6975)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C E
+ (CHARWD R 0.660556)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C F
+ (CHARWD R 0.783336)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.13889)
+ )
+(CHARACTER C G
+ (CHARWD R 0.72778)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C H
+ (CHARWD R 0.663557)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.145001)
+ )
+(CHARACTER C I
+ (CHARWD R 0.614168)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.12039)
+ )
+(CHARACTER C J
+ (CHARWD R 0.614168)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.12039)
+ )
+(CHARACTER C K
+ (CHARWD R 0.756167)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C L
+ (CHARWD R 0.653891)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C M
+ (CHARWD R 0.938334)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.111112)
+ )
+(CHARACTER C N
+ (CHARWD R 0.73778)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.111112)
+ )
+(CHARACTER C O
+ (CHARWD R 0.742224)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C P
+ (CHARWD R 0.712779)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.151113)
+ )
+(CHARACTER C Q
+ (CHARWD R 0.742224)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C R
+ (CHARWD R 0.737226)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C S
+ (CHARWD R 0.710001)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C T
+ (CHARWD R 0.740003)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C U
+ (CHARWD R 0.790003)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C V
+ (CHARWD R 0.885557)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C W
+ (CHARWD R 0.836446)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C X
+ (CHARWD R 0.503111)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.0616665)
+ )
+(CHARACTER C Y
+ (CHARWD R 0.537058)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.074074)
+ )
+(CHARACTER C Z
+ (CHARWD R 0.62039)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 133
+ (CHARWD R 0.365445)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.311444)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.344777)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER O 136
+ (CHARWD R 0.344446)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER O 137
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.372223)
+ (CHARHT R 0.472223)
+ (COMMENT
+ (LIG C s O 52)
+ (LIG C t O 75)
+ (LIG O 140 O 137)
+ )
+ )
+(CHARACTER C a
+ (CHARWD R 0.359889)
+ (CHARHT R 0.472223)
+ (COMMENT
+ (LIG C e O 32)
+ )
+ )
+(CHARACTER C b
+ (CHARWD R 0.367277)
+ (CHARHT R 0.675751)
+ (COMMENT
+ (LIG C e O 1)
+ (LIG C a O 0)
+ (LIG C o O 2)
+ )
+ )
+(CHARACTER C c
+ (CHARWD R 0.267)
+ (CHARHT R 0.472223)
+ (COMMENT
+ (LIG C h O 3)
+ (LIG C k O 4)
+ (LIG C t O 5)
+ )
+ )
+(CHARACTER C d
+ (CHARWD R 0.367277)
+ (CHARHT R 0.675751)
+ (COMMENT
+ (LIG C e O 7)
+ (LIG C a O 6)
+ (LIG C o O 10)
+ )
+ )
+(CHARACTER C e
+ (CHARWD R 0.305888)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER C f
+ (CHARWD R 0.2605)
+ (CHARHT R 0.663557)
+ (COMMENT
+ (LIG C i O 14)
+ (LIG C f O 13)
+ (LIG C l O 15)
+ )
+ )
+(CHARACTER C g
+ (CHARWD R 0.430888)
+ (CHARHT R 0.472223)
+ (CHARDP R 0.166667)
+ )
+(CHARACTER C h
+ (CHARWD R 0.378389)
+ (CHARHT R 0.675751)
+ (CHARDP R 0.154333)
+ (COMMENT
+ (LIG C e O 12)
+ (LIG C a O 11)
+ (LIG C o O 22)
+ )
+ )
+(CHARACTER C i
+ (CHARWD R 0.182724)
+ (CHARHT R 0.675751)
+ (COMMENT
+ (LIG C j O 26)
+ )
+ )
+(CHARACTER C j
+ (CHARWD R 0.17439)
+ (CHARHT R 0.675751)
+ (CHARDP R 0.154333)
+ )
+(CHARACTER C k
+ (CHARWD R 0.389499)
+ (CHARHT R 0.675751)
+ )
+(CHARACTER C l
+ (CHARWD R 0.209889)
+ (CHARHT R 0.675751)
+ (COMMENT
+ (LIG C l O 35)
+ )
+ )
+(CHARACTER C m
+ (CHARWD R 0.527779)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER C n
+ (CHARWD R 0.344446)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER C o
+ (CHARWD R 0.356168)
+ (CHARHT R 0.472223)
+ (COMMENT
+ (LIG C e O 33)
+ )
+ )
+(CHARACTER C p
+ (CHARWD R 0.367277)
+ (CHARHT R 0.472223)
+ (CHARDP R 0.203527)
+ (COMMENT
+ (LIG C p O 43)
+ (LIG C e O 24)
+ (LIG C a O 23)
+ (LIG C o O 25)
+ )
+ )
+(CHARACTER C q
+ (CHARWD R 0.350611)
+ (CHARHT R 0.472223)
+ (CHARDP R 0.203527)
+ (COMMENT
+ (LIG C q O 44)
+ (LIG C z O 27)
+ )
+ )
+(CHARACTER C r
+ (CHARWD R 0.302167)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER C s
+ (CHARWD R 0.271611)
+ (CHARHT R 0.663557)
+ (COMMENT
+ (LIG C s O 46)
+ (LIG C t O 74)
+ (LIG C z O 31)
+ (LIG O 72 O 140)
+ (KRN C i R -0.055555)
+ )
+ )
+(CHARACTER C t
+ (CHARWD R 0.229944)
+ (CHARHT R 0.586504)
+ (COMMENT
+ (LIG C z O 76)
+ )
+ )
+(CHARACTER C u
+ (CHARWD R 0.344446)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER C v
+ (CHARWD R 0.367277)
+ (CHARHT R 0.472223)
+ (COMMENT
+ (LIG C e O 36)
+ (LIG C a O 30)
+ (LIG C u O 37)
+ )
+ )
+(CHARACTER C w
+ (CHARWD R 0.577779)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER C x
+ (CHARWD R 0.302167)
+ (CHARHT R 0.472223)
+ )
+(CHARACTER C y
+ (CHARWD R 0.33889)
+ (CHARHT R 0.472223)
+ (CHARDP R 0.169779)
+ )
+(CHARACTER C z
+ (CHARWD R 0.289223)
+ (CHARHT R 0.472223)
+ (CHARDP R 0.185167)
+ )
+(CHARACTER O 173
+ (CHARWD R 0.500002)
+ (CHARHT R 0.472223)
+ (CHARIC R 0.027779)
+ (COMMENT
+ (LIG O 55 O 174)
+ )
+ )
+(CHARACTER O 174
+ (CHARWD R 1.000003)
+ (CHARHT R 0.472223)
+ (CHARIC R 0.027779)
+ )
diff --git a/fonts/gothic/blacklettert1/yswab.pl b/fonts/gothic/blacklettert1/yswab.pl
new file mode 100644
index 0000000000..3f67e26896
--- /dev/null
+++ b/fonts/gothic/blacklettert1/yswab.pl
@@ -0,0 +1,719 @@
+(FAMILY YSWAB)
+(FACE O 352)
+(CODINGSCHEME YH SCHWABACHER)
+(DESIGNSIZE R 10.0)
+(COMMENT DESIGNSIZE IS IN POINTS)
+(COMMENT OTHER SIZES ARE MULTIPLES OF DESIGNSIZE)
+(CHECKSUM O 6665213626)
+(FONTDIMEN
+ (SLANT R 0.0)
+ (SPACE R 0.333334)
+ (STRETCH R 0.166667)
+ (SHRINK R 0.111112)
+ (XHEIGHT R 0.463888)
+ (QUAD R 1.000003)
+ (EXTRASPACE R 0.111112)
+ )
+(LIGTABLE
+ (LABEL C f)
+ (LIG C f O 204)
+ (KRN C b R 0.043333)
+ (KRN C h R 0.043333)
+ (KRN C k R 0.043333)
+ (KRN C l R 0.043333)
+ (STOP)
+ (LABEL C s)
+ (LIG O 72 O 215)
+ (LIG C s O 201)
+ (LIG C t O 202)
+ (LIG C z O 32)
+ (LIG C f O 203)
+ (KRN C b R 0.111112)
+ (KRN C h R 0.111112)
+ (KRN C k R 0.111112)
+ (KRN C l R 0.111112)
+ (KRN C d R 0.057222)
+ (KRN C i R 0.045278)
+ (KRN C j R 0.045278)
+ (STOP)
+ (LABEL O 42)
+ (LIG C a O 212)
+ (LIG C e O 221)
+ (LIG C o O 232)
+ (LIG C u O 237)
+ (LIG C s O 32)
+ (STOP)
+ (LABEL O 140)
+ (LIG O 140 O 134)
+ (STOP)
+ (LABEL O 47)
+ (LIG O 47 O 42)
+ (STOP)
+ (LABEL O 55)
+ (LIG O 55 O 173)
+ (STOP)
+ (LABEL O 173)
+ (LIG O 55 O 174)
+ (STOP)
+ (LABEL O 52)
+ (LIG C a O 211)
+ (LIG C e O 220)
+ (LIG C o O 231)
+ (LIG C u O 236)
+ (STOP)
+ (LABEL O 201)
+ (KRN C b R 0.111112)
+ (KRN C h R 0.111112)
+ (KRN C k R 0.111112)
+ (KRN C l R 0.111112)
+ (KRN C d R 0.057222)
+ (KRN C i R 0.045278)
+ (KRN C j R 0.045278)
+ (STOP)
+ (LABEL O 203)
+ (KRN C b R 0.043333)
+ (KRN C h R 0.043333)
+ (KRN C k R 0.043333)
+ (KRN C l R 0.043333)
+ (STOP)
+ (LABEL O 204)
+ (KRN C b R 0.043333)
+ (KRN C h R 0.043333)
+ (KRN C k R 0.043333)
+ (KRN C l R 0.043333)
+ (STOP)
+ (LABEL C c)
+ (LIG C h O 205)
+ (LIG C k O 206)
+ (STOP)
+ (LABEL C r)
+ (KRN C z R -0.031389)
+ (STOP)
+ (LABEL C x)
+ (KRN C z R -0.031389)
+ (STOP)
+ (LABEL C l)
+ (KRN C b R -0.039446)
+ (KRN C f R -0.047223)
+ (KRN C h R -0.039446)
+ (KRN C k R -0.039446)
+ (KRN C l R -0.039446)
+ (KRN C m R -0.047223)
+ (KRN C n R -0.047223)
+ (KRN C t R -0.055555)
+ (KRN C x R -0.047223)
+ (KRN C y R -0.047223)
+ (STOP)
+ (LABEL C L)
+ (KRN C A R -0.094444)
+ (STOP)
+ (LABEL C C)
+ (KRN C I R -0.094444)
+ (KRN C J R -0.094444)
+ (KRN C K R -0.070833)
+ (STOP)
+ (LABEL C D)
+ (KRN C Y R -0.111112)
+ (STOP)
+ )
+(CHARACTER O 20
+ (CHARWD R 0.250002)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 21
+ (CHARWD R 0.195501)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.1635)
+ )
+(CHARACTER O 22
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 23
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 24
+ (CHARWD R 0.500002)
+ (CHARHT R 0.636806)
+ )
+(CHARACTER O 25
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 26
+ (CHARWD R 0.500002)
+ (CHARHT R 0.592776)
+ )
+(CHARACTER O 27
+ (CHARWD R 0.500002)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 30
+ (CHARWD R 0.444446)
+ (CHARDP R 0.170138)
+ )
+(CHARACTER O 32
+ (CHARWD R 0.466669)
+ (CHARHT R 0.655939)
+ (CHARDP R 0.177084)
+ )
+(CHARACTER O 41
+ (CHARWD R 0.277779)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 42
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG C a O 212)
+ (LIG C e O 221)
+ (LIG C o O 232)
+ (LIG C u O 237)
+ (LIG C s O 32)
+ )
+ )
+(CHARACTER O 43
+ (CHARWD R 0.833336)
+ (CHARHT R 0.694445)
+ (CHARDP R 0.194443)
+ )
+(CHARACTER O 45
+ (CHARWD R 0.833336)
+ (CHARHT R 0.75)
+ (CHARDP R 0.055555)
+ )
+(CHARACTER O 47
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 47 O 42)
+ )
+ )
+(CHARACTER O 50
+ (CHARWD R 0.38889)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 51
+ (CHARWD R 0.38889)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 52
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (COMMENT
+ (LIG C a O 211)
+ (LIG C e O 220)
+ (LIG C o O 231)
+ (LIG C u O 236)
+ )
+ )
+(CHARACTER O 53
+ (CHARWD R 0.777781)
+ (CHARHT R 0.583334)
+ (CHARDP R 0.083334)
+ )
+(CHARACTER O 54
+ (CHARWD R 0.305557)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 55
+ (CHARWD R 0.250002)
+ (CHARHT R 0.463888)
+ (COMMENT
+ (LIG O 55 O 173)
+ )
+ )
+(CHARACTER O 56
+ (CHARWD R 0.305557)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 57
+ (CHARWD R 0.500002)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER C 0
+ (CHARWD R 0.493169)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C 1
+ (CHARWD R 0.333835)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C 2
+ (CHARWD R 0.495279)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C 3
+ (CHARWD R 0.377892)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C 4
+ (CHARWD R 0.493169)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C 5
+ (CHARWD R 0.340169)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C 6
+ (CHARWD R 0.442891)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C 7
+ (CHARWD R 0.489003)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C 8
+ (CHARWD R 0.484779)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C 9
+ (CHARWD R 0.442891)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER O 72
+ (CHARWD R 0.305557)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 74
+ (CHARWD R 0.43889)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.177084)
+ )
+(CHARACTER O 75
+ (CHARWD R 0.777781)
+ (CHARHT R 0.374374)
+ (CHARDP R -0.125626)
+ )
+(CHARACTER O 77
+ (CHARWD R 0.296114)
+ (CHARHT R 0.47641)
+ )
+(CHARACTER C A
+ (CHARWD R 0.680837)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C B
+ (CHARWD R 0.795059)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C C
+ (CHARWD R 0.591725)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C I R -0.094444)
+ (KRN C J R -0.094444)
+ (KRN C K R -0.070833)
+ )
+ )
+(CHARACTER C D
+ (CHARWD R 0.790892)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C Y R -0.111112)
+ )
+ )
+(CHARACTER C E
+ (CHARWD R 0.7112255)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C F
+ (CHARWD R 0.579168)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.1635)
+ )
+(CHARACTER C G
+ (CHARWD R 0.774115)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C H
+ (CHARWD R 0.679781)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.142555)
+ )
+(CHARACTER C I
+ (CHARWD R 0.746836)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.168779)
+ )
+(CHARACTER C J
+ (CHARWD R 0.746836)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.168779)
+ )
+(CHARACTER C K
+ (CHARWD R 0.746836)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C L
+ (CHARWD R 0.60428)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C A R -0.094444)
+ )
+ )
+(CHARACTER C M
+ (CHARWD R 1.013115)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C N
+ (CHARWD R 0.853781)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C O
+ (CHARWD R 0.723781)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C P
+ (CHARWD R 0.686058)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.177084)
+ )
+(CHARACTER C Q
+ (CHARWD R 0.790892)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C R
+ (CHARWD R 0.738447)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C S
+ (CHARWD R 0.799281)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C T
+ (CHARWD R 0.683948)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C U
+ (CHARWD R 0.683948)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C V
+ (CHARWD R 0.7049465)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C W
+ (CHARWD R 1.038281)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C X
+ (CHARWD R 0.665113)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C Y
+ (CHARWD R 0.7112255)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.13)
+ )
+(CHARACTER C Z
+ (CHARWD R 0.457558)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.062889)
+ )
+(CHARACTER O 133
+ (CHARWD R 0.277779)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 134
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 135
+ (CHARWD R 0.277779)
+ (CHARHT R 0.75)
+ (CHARDP R 0.25)
+ )
+(CHARACTER O 136
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 137
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 140
+ (CHARWD R 0.277779)
+ (CHARHT R 0.694445)
+ (COMMENT
+ (LIG O 140 O 134)
+ )
+ )
+(CHARACTER C a
+ (CHARWD R 0.413501)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C b
+ (CHARWD R 0.436557)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C c
+ (CHARWD R 0.308725)
+ (CHARHT R 0.463888)
+ (COMMENT
+ (LIG C h O 205)
+ (LIG C k O 206)
+ )
+ )
+(CHARACTER C d
+ (CHARWD R 0.428225)
+ (CHARHT R 0.641556)
+ )
+(CHARACTER C e
+ (CHARWD R 0.315001)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C f
+ (CHARWD R 0.301001)
+ (CHARHT R 0.655939)
+ (CHARDP R 0.177084)
+ (COMMENT
+ (LIG C f O 204)
+ (KRN C b R 0.043333)
+ (KRN C h R 0.043333)
+ (KRN C k R 0.043333)
+ (KRN C l R 0.043333)
+ )
+ )
+(CHARACTER C g
+ (CHARWD R 0.482114)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.201279)
+ )
+(CHARACTER C h
+ (CHARWD R 0.44917)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.185527)
+ )
+(CHARACTER C i
+ (CHARWD R 0.250002)
+ (CHARHT R 0.64341)
+ )
+(CHARACTER C j
+ (CHARWD R 0.210169)
+ (CHARHT R 0.64341)
+ (CHARDP R 0.1635)
+ )
+(CHARACTER C k
+ (CHARWD R 0.371613)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C l
+ (CHARWD R 0.25828)
+ (CHARHT R 0.683332)
+ (COMMENT
+ (KRN C b R -0.039446)
+ (KRN C f R -0.047223)
+ (KRN C h R -0.039446)
+ (KRN C k R -0.039446)
+ (KRN C l R -0.039446)
+ (KRN C m R -0.047223)
+ (KRN C n R -0.047223)
+ (KRN C t R -0.055555)
+ (KRN C x R -0.047223)
+ (KRN C y R -0.047223)
+ )
+ )
+(CHARACTER C m
+ (CHARWD R 0.69028)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C n
+ (CHARWD R 0.468058)
+ (CHARHT R 0.683332)
+ )
+(CHARACTER C o
+ (CHARWD R 0.463835)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C p
+ (CHARWD R 0.480614)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.168779)
+ )
+(CHARACTER C q
+ (CHARWD R 0.459669)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.168779)
+ )
+(CHARACTER C r
+ (CHARWD R 0.363223)
+ (CHARHT R 0.463888)
+ (COMMENT
+ (KRN C z R -0.031389)
+ )
+ )
+(CHARACTER C s
+ (CHARWD R 0.233778)
+ (CHARHT R 0.655939)
+ (CHARDP R 0.177084)
+ (COMMENT
+ (LIG O 72 O 215)
+ (LIG C s O 201)
+ (LIG C t O 202)
+ (LIG C z O 32)
+ (LIG C f O 203)
+ (KRN C b R 0.111112)
+ (KRN C h R 0.111112)
+ (KRN C k R 0.111112)
+ (KRN C l R 0.111112)
+ (KRN C d R 0.057222)
+ (KRN C i R 0.045278)
+ (KRN C j R 0.045278)
+ )
+ )
+(CHARACTER C t
+ (CHARWD R 0.342224)
+ (CHARHT R 0.58914)
+ )
+(CHARACTER C u
+ (CHARWD R 0.463835)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C v
+ (CHARWD R 0.489003)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C w
+ (CHARWD R 0.728003)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER C x
+ (CHARWD R 0.363223)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.168779)
+ (COMMENT
+ (KRN C z R -0.031389)
+ )
+ )
+(CHARACTER C y
+ (CHARWD R 0.44917)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.197057)
+ )
+(CHARACTER C z
+ (CHARWD R 0.325445)
+ (CHARHT R 0.463888)
+ (CHARDP R 0.185527)
+ )
+(CHARACTER O 173
+ (CHARWD R 0.500002)
+ (CHARHT R 0.463888)
+ (CHARIC R 0.027779)
+ (COMMENT
+ (LIG O 55 O 174)
+ )
+ )
+(CHARACTER O 174
+ (CHARWD R 1.000003)
+ (CHARHT R 0.463888)
+ (CHARIC R 0.027779)
+ )
+(CHARACTER O 175
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 176
+ (CHARWD R 0.500002)
+ (CHARHT R 0.694445)
+ )
+(CHARACTER O 201
+ (CHARWD R 0.439336)
+ (CHARHT R 0.655939)
+ (CHARDP R 0.177084)
+ (COMMENT
+ (KRN C b R 0.111112)
+ (KRN C h R 0.111112)
+ (KRN C k R 0.111112)
+ (KRN C l R 0.111112)
+ (KRN C d R 0.057222)
+ (KRN C i R 0.045278)
+ (KRN C j R 0.045278)
+ )
+ )
+(CHARACTER O 202
+ (CHARWD R 0.491002)
+ (CHARHT R 0.655939)
+ (CHARDP R 0.177084)
+ )
+(CHARACTER O 203
+ (CHARWD R 0.506558)
+ (CHARHT R 0.655939)
+ (CHARDP R 0.177084)
+ (COMMENT
+ (KRN C b R 0.043333)
+ (KRN C h R 0.043333)
+ (KRN C k R 0.043333)
+ (KRN C l R 0.043333)
+ )
+ )
+(CHARACTER O 204
+ (CHARWD R 0.506558)
+ (CHARHT R 0.655939)
+ (CHARDP R 0.177084)
+ (COMMENT
+ (KRN C b R 0.043333)
+ (KRN C h R 0.043333)
+ (KRN C k R 0.043333)
+ (KRN C l R 0.043333)
+ )
+ )
+(CHARACTER O 205
+ (CHARWD R 0.674561)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 206
+ (CHARWD R 0.597003)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 211
+ (CHARWD R 0.413501)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 212
+ (CHARWD R 0.413501)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 215
+ (CHARWD R 0.380002)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 220
+ (CHARWD R 0.315001)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 221
+ (CHARWD R 0.315001)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 231
+ (CHARWD R 0.463835)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 232
+ (CHARWD R 0.463835)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 236
+ (CHARWD R 0.463835)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 237
+ (CHARWD R 0.463835)
+ (CHARHT R 0.463888)
+ )
+(CHARACTER O 244
+ (CHARWD R 0.43889)
+ (CHARHT R 0.683332)
+ (CHARDP R 0.177084)
+ )
+(CHARACTER O 247
+ (CHARWD R 0.466669)
+ (CHARHT R 0.655939)
+ (CHARDP R 0.177084)
+ )
diff --git a/fonts/gothic/cmfrak/00readme_fraktur.msg b/fonts/gothic/cmfrak/00readme_fraktur.msg
new file mode 100644
index 0000000000..a627ab9cf3
--- /dev/null
+++ b/fonts/gothic/cmfrak/00readme_fraktur.msg
@@ -0,0 +1,23 @@
+These are Fraktur (German Gothic) fonts generated by Daniel TAUPIN, using
+the designs of font YFRAK by Yannis HARALAMBOUS in 1990. This is release 1.0.
+
+To get the cm-layout, run metafont with cmfrak (yields font size 10pt).
+To get the dc-layout, run metafont with dcfrak (yields font size 10pt).
+
+cmfrak contains the accented letters at positions conform to dm* fonts.
+dcfrak contains the accented letters at positions conform to dc* fonts.
+
+Additions to Yannis Haralambous' work consists in shifting umlauted letters to
+the Cork positions, after moving the ligatures to some free places.
+
+Please e-mail complaints to taupin@rsovax.lps.u-psud.fr.
+Suggestions about special letters are welcome, especially Icelandic or
+Central Europe's.
+
+Ligatures are sz -> es-zet
+ s: -> final (short) s
+
+Daniel Taupin
+
+
+
diff --git a/fonts/gothic/cmfrak/cmfrabase.mf b/fonts/gothic/cmfrak/cmfrabase.mf
new file mode 100644
index 0000000000..abc283f443
--- /dev/null
+++ b/fonts/gothic/cmfrak/cmfrabase.mf
@@ -0,0 +1,231 @@
+def n_foot(suffix $) =
+w':=7.806u; penpos$.1(hair,90); penpos$.2(hair,0);
+penpos$.3(hair,-90);
+y$.1=y$.3=0.5foot; y$.2=-apex_o;
+x$.1=x$l-1/20w'; x$.3=x$r+1/20w';
+x$.2=x$;
+filldraw z$.2r{dir75}..z$.3r{dir15}--
+z$.3l{dir165}..z$r{up}--z$l{down}..
+z$.1r{dir195}--z$.1l{dir-15}..z$.2l{dir-65}
+--z$.2r & cycle;
+enddef;
+
+def o_umlaut(suffix $) =
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.1=z$+(0,0.1x_height);
+z$.2=z$.1+(stem,0.1x_height);
+x$.3=x$.2; y$.3=y$.2+0.1x_height;
+x$.4=x$.1; y$.4-y$.3=y$.2-y$.1;
+x$.5+x$.3=2x$.4; y$.5=y$.3;
+x$.6+x$.2=2x$.1; y$.6=y$.2;
+draw z$.1--z$.2--z$.3--z$.4--z$.5--z$.6--z$.1;
+penlabels(z$.1,z$.2,z$.3,z$.4,z$.5,z$.6);
+enddef;
+
+def e_umlaut(suffix $) =
+penpos$.1(2u,45); z$.1=z$;
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.2=z$.1r; z$.3=z$.1l; rt x$.4=rt x$.2; top y$.4=y$;
+draw z$.3--z$.2..z$.3..z$.4;
+enddef;
+
+def cap_e_umlaut(suffix $) =
+penpos$.1(2u,45); z$.1=z$;
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.2=z$.1r; z$.3=z$.1l; rt x$.4=rt x$.2; top y$.4=y$;
+draw z$.3--z$.2..z$.3..z$.4;
+enddef;
+
+def pointpoint =
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+enddef;
+
+
+
+def pointaccent(suffix $) =
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=x$;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o+y$+0.1x_height; y6r=1.1x_height+apex_o+y$;
+penstroke z1e--z2e;
+enddef;
+
+
+
+
+def old_e_umlaut(suffix $) =
+numeric ww;
+ww:=2u; penpos$.1(hair,147);
+penpos$.2(1.5hair,90); penpos$.3(2.5hair,0);
+penpos$.4(1.2hair,-90);
+penpos$.5(hair,-147);
+penpos$.6(hair,-57); penpos$.7(hair,-57);
+z$.1=z$+(0.4ww,-0.2ww);
+z$.2l=z$-(0.111ww,0.556ww);
+z$.3l=z$-(0.5ww,apex_o);
+z$.4l=(x$,y$+0.556ww);
+z$.6-z$=whatever*dir33; x$.6r=x$+0.5ww;
+z$.5l=z$.6l; z$.7=whatever[z$,z$.6];
+x$.7=x$.3;
+penstroke z$.1e..z$.2e{left}..z$.3e{up}
+..z$.4e{right}..z$.5e;
+penstroke z$.7e--z$.6e
+enddef;
+
+def umlaut (suffix $) =
+y0=0; 0.5[x0,x0']=x$-2u;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,y$+0.090x_height);
+z61=(x0+1.522stem,y$+0.387x_height);
+z62=(x0+1.956stem,y$+0.324x_height);
+z60'=(x0'+stem,y$+0.090x_height);
+z61'=(x0'+1.522stem,y$+0.387x_height);
+z62'=(x0'+1.956stem,y$+0.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle
+enddef;
+
+
+def hat (suffix $) =
+z60=(x$-2.5u,0.090x_height+y$);
+z61=(x$+0.3u,0.387x_height+y$);
+x62=x$-0.3u; y62=0.3333*(2y60+y61);
+y60'=y60; x60'+x60=2x$;
+filldraw z60--z61--z60'{left}..z62..{left}cycle;
+enddef;
+
+
+
+def hungarum (suffix $) =
+z60=(x$-2.5u-0.25stem,0.090x_height+y$);
+z63=z60+(0.5stem,0);
+z61=(x$,0.387x_height+y$);
+z62=z61+(stem,0);
+filldraw z60--z61--z62--z63--cycle;
+filldraw z60--z61--z62--z63--cycle shifted (2.5u,0);
+enddef;
+
+def ellbar (suffix $) =
+z60=(x$,y$-0.5u);
+z61=(x$+3.5u,0.5u+y$);
+pickup pensquare scaled 2hair;
+draw z60--z61;
+enddef;
+
+def hacek (suffix $) =
+z60=(x$-2.5u,0.387x_height+y$);
+z61=(x$-0.3u,0.090x_height+y$);
+x62=x$+0.3u; y62=0.3333*(2y60+y61);
+y60'=y60; x60'+x60=2x$;
+filldraw z60--z61--z60'{left}..z62..{left}cycle;
+enddef;
+
+def breve (suffix $) =
+z60=(x$-2.5u,0.387x_height+y$);
+z61=(x$-0.3u,0.090x_height+y$);
+x62=x$+0.3u; y62=0.3333*(2y60+y61);
+y63=y60; x63+x60=2x$;
+z60'=z60+(0,hair);
+z63'=z63+(0,hair);
+filldraw z60..{right}z61{right}..z63--z63'..{left}z62{left}..z60'--cycle;
+enddef;
+
+def tilde (suffix $) =
+z60=(x$-2.1u,0.090x_height+y$);
+z61=(x$-u,0.387x_height+y$);
+z62=(x$+u,0.090x_height+y$);
+z63=(x$+2.1u,0.387x_height+y$);
+pickup pensquare xscaled stem yscaled hair rotated 30;
+draw z60...{right}z61..z62{right}...z63;
+enddef;
+
+
+def cedilla (suffix $) =
+pickup pensquare scaled hair;
+z60=z$;
+z61=(x$+u+0.16w,y$-0.18x_height);
+x62=x$; y62=y61-0.12x_height;
+penpos60(stem,30); penpos61(stem,30); penpos62(stem,-30);
+penstroke z60e{dir-30}..{down}z61e..{left}z62e;
+enddef;
+
+
+def ogonek (suffix $) =
+pickup pensquare scaled hair;
+z60=z$;
+z61=(x$-u-0.16w,y$-0.18x_height);
+x62=x$; y62=y61-0.12x_height;
+penpos60(stem,-30); penpos61(stem,30); penpos62(stem,40);
+penstroke z60e{dir-135}..{down+0.25right}z61e..{right+0.3up}z62e;
+enddef;
+
+def acute (suffix $) =
+y0=0; 0.5[x0,x0']=x$-2u;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,y$+0.090x_height);
+z61=(x0+1.522stem,y$+0.387x_height);
+z62=(x0+1.956stem,y$+0.324x_height);
+z60'=(x0'+stem,y$+0.090x_height);
+z61'=(x0'+1.522stem,y$+0.387x_height);
+z62'=(x0'+1.956stem,y$+0.324x_height);
+penpos60'(hair,145);
+filldraw z60l{dir34}..z62'{up}..z61'{left}
+..z60r{dir259}--z60l & cycle
+enddef;
+
+def grave (suffix $) =
+y0=0; 0.5[x0,x0']=x$-2u;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,y$+0.090x_height);
+z61=(x0+1.522stem,y$+0.387x_height);
+z62=(x0+1.956stem,y$+0.324x_height);
+z60'=(x0'+stem,y$+0.090x_height);
+z61'=(x0'+1.522stem,y$+0.387x_height);
+z62'=(x0'+1.956stem,y$+0.324x_height);
+penpos60'(hair,145);
+filldraw (z60l{dir34}..z62'{up}..z61'{left}
+..z60r{dir259}--z60l & cycle) reflectedabout ((x$,x_height),(x$,0));
+enddef;
+
+
+def cap_grave (suffix $) =
+y0=0; 0.5[x0,x0']=x$-2u;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height-x_height+y$);
+z61=(x0+1.522stem,1.387x_height-x_height+y$);
+z62=(x0+1.956stem,1.324x_height-x_height+y$);
+z60'=(x0'+stem,1.090x_height-x_height+y$);
+z61'=(x0'+1.522stem,1.387x_height-x_height+y$);
+z62'=(x0'+1.956stem,1.324x_height-x_height+y$);
+filldraw (z60l{dir34}..z62'{up}..z61'{left}
+..z60r{dir259}--z60l & cycle) reflectedabout ((x$,x_height),(x$,0));
+enddef;
+
+picture last_char;
diff --git a/fonts/gothic/cmfrak/cmfrak.mf b/fonts/gothic/cmfrak/cmfrak.mf
new file mode 100644
index 0000000000..212595e0c1
--- /dev/null
+++ b/fonts/gothic/cmfrak/cmfrak.mf
@@ -0,0 +1,8 @@
+% yfrak transformed to cmfrak by D. Taupin March 1994
+if unknown cmbase: input cmbase fi
+input cmfrabase; % -sl 15-3-1991 25-3-1994 D.T.
+
+font_identifier:="cmfrak"; font_size 10pt#;
+numeric dc_layout; dc_layout:=0;
+
+input xxfrak.mf
diff --git a/fonts/gothic/cmfrak/cmfraklow.mf b/fonts/gothic/cmfrak/cmfraklow.mf
new file mode 100644
index 0000000000..dcf6480401
--- /dev/null
+++ b/fonts/gothic/cmfrak/cmfraklow.mf
@@ -0,0 +1,785 @@
+picture small_letter_e;
+picture small_letter_a;
+picture small_letter_i;
+picture small_letter_j;
+
+numeric nombre; nombre:= 5gencoef[1,1.155556];
+
+.cmchar "The Fraktur letter a";
+.beginchar("a",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]);
+penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51);
+penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h)));
+penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0);
+penpos12(whatever,-90); penpos11''(hair,-30);
+z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]);
+z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]);
+z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4];
+x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem;
+z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])];
+y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o;
+z10=whatever[z8l,z9l]; y10=0.228h;
+z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]);
+z11''r=(gencoef[0.78w,0.814w],-apex_o);
+z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l);
+z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r;
+z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l];
+y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7];
+penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]);
+filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r..
+z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke
+z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down}
+..z7..z10{z9-z8} & z10--z8' & cycle;
+small_letter_a:=currentpicture;
+.endchar;
+
+nombre:= 4.722gencoef[1,1.129412];
+
+.cmchar "The Fraktur letter b";
+.beginchar("b",nombre*lower_u#,1.376x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(stem,0);
+z1=(gencoef[0.241w,0.208w],gencoef[foot,0.322x_height]); z2=(x1,x_height);
+z3=(1/4[x2l,x2r],x_height+gencoef[foot,0.9foot]); z3'=(x2r,gencoef[y3,y2r]);
+z3''=(x2l,gencoef[0.633(y3-y2)+y2,y2l]); penpos4(gencoef[hair,2hair],74);
+z4=(gencoef[0.5x2l,0],gencoef[1.259x_height,1.205x_height]);
+penpos5(gencoef[hair,1.5hair],-90); z5l=(x2r+gencoef[0.875stem,0.396w],h);
+penstroke z1e--z2e; filldraw z2l--z3''{up}..z4l--z4r--
+z3{dir45}..z5l{right}--z5r{left} ...z3'{down}--z2r--z2l & cycle;
+penpos5'(gencoef[hair,1.5hair],gencoef[-40,-90]);
+z5'l=(0,gencoef[0.097x_height,0.219x_height]); penpos6(hair,gencoef[-42,-30]);
+penpos7(hair,gencoef[-42,-30]); z6r=(gencoef[0.441w,0.521w],-apex_o);
+z7-z6=whatever*((w,gencoef[0.36x_height,0.479x_height])-z6);
+x7=gencoef[0.653w,0.698w]; z6'=whatever[z6,z7]; y6'=gencoef[y6l+apex_o,y6l];
+penpos8(1.167stem,42); z8r=(w,gencoef[0.545x_height,0.664x_height]);
+penpos11(hair,gencoef[-42,-61]); penpos10(hair,gencoef[-42,-61]);
+z10l=(gencoef[x8l,0.729w],x_height+apex_o);
+z10-z11=whatever*(z7-z6-(0,gencoef[0,0.1x_height])); x11=x1;
+penpos9(5/4stem,angle(z10-z11)); z9=whatever[z11l,z10l];
+y9r=y10l+gencoef[-apex_o,0]; penstroke z11e--z10e; penstroke
+z6e---z7e...z8e{up}.. z9e; filldraw z5'l..z1l{up}--z1r--z7l--
+z6'{dir138}..z5'r--z5'l & cycle; .endchar;
+
+nombre:= 3.639gencoef[1,1.145038];
+
+.cmchar "The Fraktur letter c";
+.beginchar("c",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(gencoef[hair,1.5hair],gencoef[-30,-48]); penpos2(gencoef[hair,1.5hair],
+gencoef[-30,-48]);
+z2-z1=whatever*((w,gencoef[0.78h,0.5h]));
+z1r=(gencoef[0.565w,0.586667w],-apex_o); x2r=w; z1'=whatever[z1,z2];
+y1'=gencoef[y1l+apex_o,y1r]; x1':=gencoef[x1',x1r]; z3=whatever[z1l,z2l];
+x3=gencoef[0.809w,x2l]; z4=(gencoef[2/3w,0.64w],0.176h);
+penpos5(1.083stem,angle((w,gencoef[0.4h,0.452h])));
+z5=(gencoef[0.26w,0.226667w],0.214h); penpos6(stem,0); z6l=(0,0.5h);
+penpos9(gencoef[hair,1.5hair],gencoef[-68,-22]);
+penpos8(gencoef[hair,1.5hair],gencoef[-68,-22]);
+penpos8.5(gencoef[hair,1.5hair],gencoef[-68,-22]);
+z9l=(gencoef[0.832w,0.546667w],h+apex_o);
+z9-z8=whatever*((w,gencoef[0.25h,0.404h])); x8l=gencoef[0.458w,0.2666w];
+z7=whatever[z8l,z9l]; x7=gencoef[0.145w,x8l];
+penpos10(gencoef[stem,1.3stem],angle((w,gencoef[0.25h,0.883562h])));
+z10r=whatever[z9l,z9r]; x10r=w+gencoef[0,apex_o]; z10l-z8.5=whatever*(z10r-z9);
+z8.5=whatever[z8,z9]; penstroke z1e--z2e; filldraw z1'..z5l..z6l{up}--z6r{down}
+..z5r..z4..z3{z2-z1}--z2l--z2r--z1' & cycle; filldraw z6l{up}..z7 &
+z7--z9l--z10r-- z10l--z8.5r & z8.5r{z8-z9}..(x6r,0.738h)..z6r{down}-- z6l &
+cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter c cedilla";
+.beginchar(oct"347",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.4*w,0); cedilla(100);
+endchar;
+
+
+.cmchar "The Fraktur letter c hacek";
+.beginchar(oct"243",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5*w,x_height); hacek(100);
+endchar;
+
+.cmchar "The Fraktur letter c acute";
+.beginchar(oct"242",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+.endchar;
+
+nombre:= 4.944gencoef[1,1.073034];
+
+.cmchar "The Fraktur letter d";
+.beginchar("d",nombre*lower_u#,gencoef[1.269x_height#,1.37x_height#],0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(stem,0);
+z1=(gencoef[0.227w,0.2094w],gencoef[foot,0.274x_height]); z1'=(x1r,foot);
+z2=(x1,gencoef[0.817x_height,0.795x_height]); penpos4(hair,-90);
+z4=(gencoef[0.5x1l,0],gencoef[0.11x_height,0.188x_height]); penpos5(hair,-38);
+z5r=(gencoef[x1r+0.7stem,0.6073w],-apex_o);
+penpos6(whatever,gencoef[-18,-38]);
+z6l-z5l=whatever*((w,gencoef[0.356x_height,x_height]));
+z6r-z5r=whatever*((w,gencoef[0.356x_height,x_height]));
+z6-z1'=whatever*((w,gencoef[-0.2x_height,-0.1x_height]));
+penpos7(gencoef[1.271stem,0.65stem],gencoef[50,39]); z7r=(w,0.579x_height);
+penpos8(stem,angle((w,1.04h))); z8=(gencoef[0.545w,0.52w],0.959x_height);
+penpos9(gencoef[0.946stem,0.8stem],25);
+z9l=(gencoef[0,-2apex_o],gencoef[1.093x_height,1.178x_height]);
+z10=(gencoef[0.303w,0.209w],h); penpos11(hair,-90);
+z11l=gencoef[(0.416w,h-apex_o),z10]; penpos3(hair,-57);
+z3=z8;
+%z3l-z2l=whatever*((w,gencoef[0.39x_height,0.198x_height]));
+%y3l=x_height-gencoef[2apex_o,0.075x_height];
+%y3l=x_height-2apex_o;
+penstroke z1e--z2e; penstroke
+z5e---z6e...z7e{up}..z8e ..z9e{up}; filldraw z2l--z3l--z3r{z2l-z3l}..
+z2r{down}--z2l & cycle; filldraw z4r..{z5r-z5l}z5r--z6--z1'--z1r--
+z1l{down}..z4l--z4r & cycle; filldraw z9l{up}..z10{right}..z11l
+--z11r{left}..z9r{down}--z9l & cycle;
+last_char:=currentpicture; .endchar;
+
+.cmchar "The Fraktur letter d (\eth)";
+.beginchar(oct"360",nombre*lower_u#,gencoef[1.269x_height#,1.37x_height#],0);
+currentpicture:=last_char; z100=(0,1.15x_height); ellbar(100);
+.endchar;
+
+nombre:= 3.65gencoef[1,1.230769];
+
+.cmchar "The Fraktur letter e";
+.beginchar("e",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1l=(0,0.486h);
+penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]);
+penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]);
+z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w];
+x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8];
+y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l];
+x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h);
+penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69);
+y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h);
+z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0];
+z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6));
+z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e;
+filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69);
+z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w];
+z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e;
+filldraw z7'{dir135}..z1l{up}..z2 &
+z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10
+..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e;
+small_letter_e:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur ligature ae";
+.beginchar(oct"346",2*nombre*lower_u#,x_height#,0);
+currentpicture:=small_letter_a;
+addto currentpicture also small_letter_e shifted (4u,0);
+.endchar;
+
+.cmchar "The Fraktur ligature ae";
+.beginchar(ae_ligature,2*nombre*lower_u#,x_height#,0);
+currentpicture:=small_letter_a;
+addto currentpicture also small_letter_e shifted (4u,0);
+.endchar;
+
+.cmchar "The Fraktur letter f";
+.beginchar("f",4.539lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#);
+w':=w; penpos1.1(hair,0); z1.1=(0.318w',-d); penpos1.2(1.313stem,0); z1.2=(x1.1,0.795x_height);
+penpos1.4(3/4stem,-90); z1.4r=(0.857w',y1.2); z1.3=(0,y1.2); z1.12=whatever[z1.1l,z1.2l];
+z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height; z1.12'=z1.12-(0.5apex_o,0);
+z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4; penpos1.5(0.917stem,0);
+z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112; z1.6l-z1.5l=whatever*dir72;
+penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22); penpos1.11(hair,-22);
+z1.11r=(w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'; penpos1.8(whatever,68);
+z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w',1.366x_height); filldraw z1.1r..z1.13'..z1.2r...
+z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle; filldraw
+z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw
+z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle;
+.endchar;
+
+nombre:= 5.611gencoef[1,1.168317];
+
+.cmchar "The Fraktur letter g";
+.beginchar("g",nombre*lower_u#,x_height#,gencoef[2.389lower_u#,3.4446lower_u#]);
+.adjust_fit(usual_left#-gencoef[0.315u#,0.3u#],usual_right#);
+penpos1(hair,gencoef[0,30]); penpos2(gencoef[hair,1.2hair],gencoef[90,110]);
+z1l=(gencoef[0,0.1w],gencoef[0.059h,-0.532d]); z2l=(gencoef[0.426w,0.568w],-d);
+z3=gencoef[(0.743w,0),(0.78w,-0.42d)];
+z4=(w-gencoef[apex_o,0],gencoef[0.107h,-0.161d]); penpos5(whatever,0);
+z5=gencoef[(0.733w,0.455h),(0.763w,0.199h)]; x5r=gencoef[0.8627w,0.86w];
+penpos6(hair,gencoef[-57,-20]); z6r=(gencoef[w,0.932w],0.845h);
+penpos7(4/3stem,gencoef[46,50]); z7r=gencoef[(0.673w,h+apex_o),(0.466w,h)];
+penpos8(hair,gencoef[-24,angle(z6-z7r)]); z8l=z7l; z8'=whatever[z8l,z8r];
+x8'=gencoef[0.688w,0.67w]; penpos9(gencoef[1.292stem,1.1stem],36);
+z9=(gencoef[0.228w,0.186441w],0.462h); penpos10(gencoef[hair,1.25hair],-50);
+z10r=gencoef[(0.277w,-0.239d),(0.339w,0)]; penpos11(gencoef[hair,1.25hair],-50);
+z11-z10=whatever*dir(gencoef[40,32]); x11=gencoef[0.8w,0.763w];
+z13=whatever[z10l,z11l]; x13=gencoef[0.488w,0.466w]; penstroke
+z2e{left}..z1e{gencoef[up,dir135]}; filldraw z2l{right}..z4 & flex(z4,z5r,z6r) &
+z6r--z6l{left}.. {z6l-z6r}z7r---z7l...z9l{down}..z10r--z13 &
+z13..z9r{up}..z8r{z7r-z7l} & z8r--z8' & z8'..z5l{down}
+..z3{down}..z2r{left}--z2l & cycle; penstroke z10e--z11e;
+last_char:=currentpicture;
+ .endchar;
+
+
+.cmchar "The Fraktur letter g with breve";
+.beginchar(oct"247",nombre*lower_u#,x_height#,gencoef[2.389lower_u#,3.4446lower_u#]);
+currentpicture:=last_char; z100=(0.5w,x_height); breve(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter h";
+.beginchar("h",5.472lower_u#,1.376x_height#,2.556lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot);
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e; filldraw
+z2l---z3''...z4l--z4r-- z3{dir45}..z5l{right}--z5r{left} ...z3'---z2r--z2l &
+cycle; penpos5'(hair,-40); z5'l=(0,0.097x_height); penpos6(hair,-37);
+penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.6w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; penpos8(1.292stem,39);
+z8r=(w,0.478x_height); penpos11(hair,-50); penpos10(hair,-50); x10r=x8l;
+y10l=x_height+apex_o; z10-z11=whatever*((w,0.559x_height)); x11=x1;
+penpos9(1.229stem,angle((w,0.559x_height))); z9=whatever[z11,z10];
+y9r=y10r-apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z11e--z10e; penstroke z6e---z7e; penpos7'(1.2hair,-40); z7'r=(0.426w,-d);
+penstroke z7'e{dir50}...z8e{up}.. z9e; filldraw z5'l..z1l{up}--z1r-- z15--z7l--
+z6'{dir138}..z5'r--z5'l & cycle; .endchar;
+
+.cmchar "The Fraktur letter i";
+.beginchar("i",2.889lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,-44); penpos2(hair,-44); penpos3(hair,-44); z1l=(0,0.834h);
+z2-z1=whatever*((w,0.37h)); y2l=h+apex_o; z3=whatever[z2l,z2r]; x3r=x5r+0.5stem;
+z4=(0.606w,0.931h); penpos5(stem,0); z5=(0.433w,0.759h); z6=(x5,0.238h);
+penpos6(stem,0); z7=(x6l,0.079h); z8-z7=whatever*dir-40; y8=-apex_o;
+penpos9(hair,-38); z9r-z8=whatever*dir52; x9r=w; z10=(0.788w,0.152h);
+z5'=whatever[z1,z2]; x5'=x5l; penstroke z5e--z6e; penstroke z1e--z2e; filldraw
+z5r{up}..z3r--z2--z5'--z5l{down} --z5r & cycle; filldraw z8--z9r--z9l{z8-z9r}
+..z6r{up}--z6l{down}..{z8-z7}z8 & cycle; penpos11(hair,0); z11r=(x2l,1.076h);
+z12=(0.56w,1.279h); z13=(0.73w,1.238h); filldraw z11l{up}..z12{right}..
+z13{down}..{z1-z2}z11r--z11l & cycle;
+small_letter_i:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter j";
+.beginchar("j",2.944lower_u#,x_height#,1.611lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,47); penpos2(1.3hair,-90); z2r=(0.16w,-d); penpos5(stem,0);
+z5=(0.523w,0.124h); penpos3(2/3stem,0); z3l=(x5l,0.048h); penpos6(stem,0);
+z6=(x5,0.824h); penpos7(hair,-90); z7=(0.906w,0.91h); penpos8(hair,-48);
+penpos9(hair,-48); z8l=(0.481w,h+apex_o); z8-z9=whatever*((w,0.3448h)); x9l=0;
+z9'=whatever[z9r,z8r]; y9'=y9l+apex_o; z1r=(x5r+0.5stem,-0.207d);penstroke
+z2e..z3e{up}; penstroke z5e--z6e; filldraw z1r{dir137}..z5r{up}--z5l
+--z3l--z3r..z1l{dir-43}--z1r & cycle; filldraw z6r{up}..z7r{right}--z7l...
+z8r---z8l--z9l--z9r--z9'.. z6l{down}--z6r & cycle; penpos11(hair,0);
+z11r=(x8l,1.076h); z12=(0.571w,1.279h); z13=(0.744w,1.238h); filldraw
+z11l{up}..z12{right}..z13{down} ..{z9-z8}z11r--z11l & cycle;
+last_char:=currentpicture;
+small_letter_j:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter ij";
+.beginchar(oct"274",5.5lower_u#,x_height#,1.611lower_u#);
+currentpicture:=small_letter_i;
+addto currentpicture also last_char shifted (5.5u-2.944u,0);
+.endchar;
+
+
+.cmchar "The Fraktur letter k";
+.beginchar("k",3.861lower_u#,1.366x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=1.223w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot);
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e;
+penpos5''(hair,-90); z5''=z5+(hair,-eps); filldraw z2l---z3''...z4l--z4r--
+z3{dir45}..z5l{right}..z5''l--z5''r..z5r{left} ...z3'---z2r--z2l & cycle;
+penpos5'(hair,-40); z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37);
+y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.8w; z6'=whatever[z6,z7];
+y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l &
+cycle; penpos1.4(3/4stem,-90); z1.4=(0.928w,.859x_height); z1.3=(0,y1.4r);
+z1.35=(x2l,y1.4l); filldraw z1.3--z1.35--z1.4l--z1.4r-- z1.3 & cycle;
+penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43);
+z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(w,0.579[y1.4l,y5l]); penstroke z1.6e--z1.6'e; penstroke
+z1.5e{dir72}..z1.8e{up}..z1.7e{left}; filldraw z1.6r--z1.7l--z1.7r--z1.6l
+--z1.6r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter l";
+.beginchar("l",3lower_u#,1.366x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=1.574w; penpos1(stem,0); z1=(0.241w',foot); penpos5'(hair,-40);
+z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o;
+x6r=x1r; z7-z6=whatever*dir48; x7=w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e; filldraw
+z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle; penpos2(stem,0);
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x7,h); penstroke z1e--z2e; filldraw
+z2l---z3''...z4l--z4r-- z3{dir50}..z5l{right}--z5r{left} ...z3'---z2r--z2l &
+cycle; last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter l with bar";
+.beginchar(oct"252",3lower_u#,1.366x_height#,0);
+currentpicture:=last_char; z100=(0,0.5cap_height); ellbar(100);
+.endchar;
+
+.cmchar "The Fraktur letter l with acute";
+.beginchar(oct"250",3lower_u#,cap_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+nombre:=7.806gencoef[1,1.227586];
+
+.cmchar "The Fraktur letter m";
+.beginchar("m",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+boolean itsm; itsm:=true;
+w':=w; if itsm: z0=(0.356w',0) else: z0=(0,0) fi; penpos1(stem,0);
+penpos2(stem,0); penpos3(stem,0); penpos4(stem,0); penpos5(stem,0);
+penpos6(stem,0); z1=(0.135w',foot); z3=(0.491w',foot); n_foot(1);
+z2=(x1,0.846h); z4=(x3,y2); z5=z3+z0; z6=z4+z0; penpos10(hair,-54);
+penpos11(hair,-54); penpos12(hair,-54); penpos13(hair,-54);
+z2r-z10l=whatever*dir36; x10r=x2r; z11-z10=whatever*dir36; y11l=h+apex_o;
+z14=whatever[z10r,z11r]; y14=0.881h; penpos16(2/3hair,-90);
+z16=(x6r+1/20w',y14); penstroke z1e--z2e; penstroke z5e--z6e; if itsm: penstroke
+z3e--z4e; n_foot(3); fi z12=z10+z0; z13=z11+z0; z15=z14+z0; x14'=x4l;
+z14'-z14=whatever*(z4r-z11); z15'=z14'+z0; if itsm: filldraw
+z14--z14'--z4l--z4r-- z11l--z10l--z10r--z14 & cycle; fi filldraw
+z12l--z13l---z13r...z16l{right} --z16r{left}..z6r--z6l--z15'--z15-- z12r--z12l &
+cycle; penpos18(hair,-37); penpos17(hair,-37); z17=(0.354[x5l,x5r],-apex_o);
+x18r=x5+0.157w'; y18l=foot; z20'=whatever[z17l,z18l]; x20'=x5r;
+z20=0.5[z20',z18l]; z19=(x5l,2/3foot); z17'=whatever[z17,z18]; y17'=0; filldraw
+z17'--z19--z5l--z5r{down} ..z20{z18r-z18l}--z17' & cycle; penstroke z17e--z18e;
+z8=(0,y2); z9=(x2,h+apex_o); z7=(x1l,0.194[y2,y1]); filldraw
+z7{up}..z8--z9..z2r{down} --z7 & cycle;
+.endchar;
+
+nombre:=5.028gencoef[1,1.227586];
+
+.cmchar "The Fraktur letter n";
+.beginchar("n",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+boolean itsm; itsm:=false;
+w':=1.553w; if itsm: z0=(0.356w',0) else: z0=(0,0) fi; penpos1(stem,0);
+penpos2(stem,0); penpos3(stem,0); penpos4(stem,0); penpos5(stem,0);
+penpos6(stem,0); z1=(0.135w',foot); z3=(0.491w',foot); n_foot(1);
+z2=(x1,0.846h); z4=(x3,y2); z5=z3+z0; z6=z4+z0; penpos10(hair,-54);
+penpos11(hair,-54); penpos12(hair,-54); penpos13(hair,-54);
+z2r-z10l=whatever*dir36; x10r=x2r; z11-z10=whatever*dir36; y11l=h+apex_o;
+z14=whatever[z10r,z11r]; y14=0.881h; penpos16(2/3hair,-90);
+z16=(x6r+1/20w',y14); penstroke z1e--z2e; penstroke z5e--z6e; if itsm: penstroke
+z3e--z4e; n_foot(3); fi z12=z10+z0; z13=z11+z0; z15=z14+z0; x14'=x4l;
+z14'-z14=whatever*(z4r-z11); z15'=z14'+z0; if itsm: filldraw
+z14--z14'--z4l--z4r-- z11l--z10l--z10r--z14 & cycle; fi filldraw
+z12l--z13l---z13r...z16l{right} --z16r{left}..z6r--z6l--z15'--z15-- z12r--z12l &
+cycle; penpos18(hair,-37); penpos17(hair,-37); z17=(0.354[x5l,x5r],-apex_o);
+x18r=x5+0.157w'; y18l=foot; z20'=whatever[z17l,z18l]; x20'=x5r;
+z20=0.5[z20',z18l]; z19=(x5l,2/3foot); z17'=whatever[z17,z18]; y17'=0; filldraw
+z17'--z19--z5l--z5r{down} ..z20{z18r-z18l}--z17' & cycle; penstroke z17e--z18e;
+z8=(0,y2); z9=(x2,h+apex_o); z7=(x1l,0.194[y2,y1]); filldraw
+z7{up}..z8--z9..z2r{down} --z7 & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter n tilde";
+.beginchar(oct"361",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char; z100=(0.5w,x_height); tilde(100);
+.endchar;
+
+.cmchar "The Fraktur letter n tilde";
+.beginchar(oct"253",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char; z100=(0.5w,x_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter n hacek";
+.beginchar(oct"254",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char; z100=(0.5w,x_height); hacek(100);
+.endchar;
+
+nombre:=4.75gencoef[1,1.140351];
+
+.cmchar "The Fraktur letter o";
+.beginchar("o",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]);
+x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31);
+z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0);
+z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22);
+z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l;
+penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]);
+z2-z1=whatever*((w,0.786h)); x8'=x8r;
+y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e..
+z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw
+z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw
+z7l--z7'--z7r--z7l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur ligature oe";
+if (dc_layout>0): xchar_code:=oct"367";
+ else: xchar_code:=oct"033";
+ fi;
+.beginchar(xchar_code,1.7*nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+addto currentpicture also small_letter_e shifted (4u,0);
+.endchar;
+nombre:=5.056gencoef[1,1.131868];
+
+.cmchar "The Fraktur letter p";
+.beginchar("p",nombre*lower_u#,x_height#,3.361lower_u#);
+.adjust_fit(usual_left#+gencoef[0,0.5u#],usual_right#);
+penpos1(stem,0); z1=(gencoef[0.242w,0.223w],foot); penpos2(stem,0);
+z2=(x1,0.834h); penpos3(hair,-27); z3=(x2l,1.05h);
+penpos4(stem,53); z4l=(-apex_o,0.86h); penpos5(hair,0);
+z5=(x1,-d); penstroke z5e--z1e--z2e; z6=(x1l,0.69h); filldraw z6{up}..
+z4l{up}--z4r{down}..{dir-45}z2r--z6 & cycle; penstroke
+z4e{up}..z3e{dir53};
+penpos8(hair,-49); penpos7(hair,-49);
+z8l=(gencoef[0.714w,0.7w],h+gencoef[apex_o,0]);
+z8-z7=whatever*dir(gencoef[41,35]); x7=x1; penstroke z7e--z8e;
+z11=(-0.5u,0.15h); z9-z11=whatever*dir-20; x9=gencoef[0.527w,0.592w];
+penpos9(hair,-20); penpos10(hair,-20); z10-z9=whatever*dir57.5;
+y10r=gencoef[0.1h,0.12h]; z12-z10=whatever*(z11-z9); z12-z11=whatever*(z10-z9);
+penpos13(stem,33); penpos14(5/4stem,41); z13r=(w,gencoef[0.5h,0.548h]);
+z14r=z8l; penstroke z9e---z10e...z13e...z14e {dir131}; filldraw
+z11--z12--z10r--z9r--z11 & cycle; .endchar;
+
+nombre:=4.639gencoef[1,1.269461];
+
+.cmchar "The Fraktur letter q";
+.beginchar("q",nombre*lower_u#,x_height#,3.361lower_u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,0); z1=(0.745w,-d); penpos2(stem,0); z2=(x1,foot); z3=(x2r,0.728h);
+z4=(w,0.879h); penpos5(hair,-33); penpos6(hair,-33); z5l=(0.485w,h+apex_o);
+z5-z6=whatever*dir52; x6=0.335w; penpos7(1.542stem,62); z7l=(0,0.445h);
+penpos8(1.125stem,45); z8l=(0.388w,-2apex_o); penpos9(hair,-45);
+penpos10(hair,-45); z9r=z8; z10-z9=whatever*dir45; x10=x2; penstroke z1e--z2e;
+z3'-z6=whatever*(z5r-z5l); x3'=x2l; filldraw z2r---z3...z4 & z4...z5r---z5l
+--z6l--z3'--z2l--z2r & cycle; penstroke z8e{(0,0.552h)-z8}..z7e{up}... z6e---z5e;
+penstroke z9e--z10e;
+.endchar;
+
+nombre:=3.944gencoef[1,1.281690];
+
+.cmchar "The Fraktur letter r";
+.beginchar("r",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+w':=1.197w;
+penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90);
+z5l=(x2r+0.875stem,h); penpos5'(hair,-40); z5'l=(0,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r;
+z7-z6=whatever*dir48; x7=0.817w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z8r=(w,0.478x_height); penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*dir40;
+x11=x1; penpos9(1.229stem,40); z9=whatever[z11,z10]; y9r=y10r-apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e;
+penpos7'(1.2hair,-40); z7'r=(0.426w,-d); filldraw z5'l..z1l{up}--z1r--
+z15--z7l-- z6{dir138}..z5'r--z5'l & cycle; penpos22(stem,0); z22=(x1,0.841h);
+z29=(x22,h+apex_o); z28=(0,y22); z27=(x22l,0.721h); filldraw
+z1l---z27...z28--z29... z22r---z1r--z1l & cycle; penpos30(hair,-70);
+penpos32(hair,-70); penpos31(1.083stem,45); z22r-z32l=whatever*dir45; x32r=x22r;
+z30-z32=whatever*dir45; y30l=h+apex_o; z31r=(w,y32);
+z33-z31l=whatever*(z30-z31r); z33=whatever[z32,z30]; penstroke z32e--z30e;
+filldraw z30--z31r--z31l--z33-- z30 & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter r acute";
+.beginchar(oct"257",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char; z100=(0.5w,x_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter r hacek";
+.beginchar(oct"260",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char; z100=(0.5w,x_height); hacek(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter long s";
+.beginchar("s",4.539lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-1.932lower_u#);
+w':=w; penpos1.1(hair,0); z1.1=(0.318w',-d); penpos1.2(1.313stem,0); z1.2=(x1.1,0.795x_height);
+penpos1.4(3/4stem,-90); z1.4r=(0.857w',y1.2); z1.3=(0,y1.2); z1.12=whatever[z1.1l,z1.2l];
+z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height; z1.12'=z1.12-(0.5apex_o,0);
+z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4; penpos1.5(0.917stem,0);
+z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112; z1.6l-z1.5l=whatever*dir72;
+penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22); penpos1.11(hair,-22);
+z1.11r=(w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'; penpos1.8(whatever,68);
+z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w',1.366x_height); filldraw z1.1r..z1.13'..z1.2r...
+z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle; filldraw
+z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e;
+.endchar;
+
+nombre:=5.039gencoef[1,1.168688];
+
+.cmchar "The Fraktur letter short s";
+.beginchar(s_final,nombre*lower_u#,1.286x_height#,0);
+.adjust_fit(usual_left#,usual_right#); penpos0(hair,angle((w,x_height))-90);
+penpos0'(hair,angle((w,x_height))-90); z0l=(0,0.103x_height); x0'r=0.86w;
+z0'-z0=whatever*((w,x_height)); penstroke z0e--z0'e;
+penpos5(1.083stem,angle((w,gencoef[0.797x_height,0.63x_height])));
+penpos6(1.083stem,angle(z0'-z0)); z5l=(0.54w,-apex_o); z6l=z0r; penstroke z5e{dir142}..z6e;
+penpos1(hair,angle((w,0.797x_height))-90); penpos2(hair,angle((w,0.797x_height))-90);
+penpos3(1.083stem,39); z3r=(w,0.441x_height); z1r=z5l; z2r=z5r; z4=whatever[z0r,z0'r]; x4=0.595w;
+penpos4(5/4stem,angle(z0'-z0)); penstroke z1e--z2e{z2-z1}..z3e..z4e{dir(angle(z0'-z0)+90)};
+penpos7(hair,angle(z0'-z0)-90); z7r=z6; penpos8(1.125stem,angle((w,0.5x_height)));
+z8r=whatever[z0,z0']; x8r=0.433w; penpos9(1.292stem,54); z9l=(0,0.69x_height); filldraw
+z7--z8r--z8l{down}..z7l{z0-z0'}--z7 & cycle; penstroke z8e{up}..z9e{dir144}; penpos10(hair,-36);
+z10l=z9; z11=whatever[z9l,z9r]; y11=x_height+apex_o; penpos12(1.083stem,54); z12r=z11;
+penpos14(hair,-36); z14l=z12; penstroke z10e--z14e; z13-z12l=whatever*dir-21;
+z13=whatever[z0l,z0'l]; penpos15(0.538stem,-29); z15r=whatever[z0,z0']; y15r=y11; penpos16(hair,90);
+penpos17(hair,144); z16r=(0.568w,h); z17=(0.198w,1.124x_height); penstroke
+z15e{up}..z16e{left}..z17e; filldraw z12l--z13--z0'r & z0'r{z0'-z0}..z15r{up}--z15l{down}
+..z11{z12-z13}--z12l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter short s acute";
+.beginchar(oct"261",nombre*lower_u#,1.286x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter short s hacek";
+.beginchar(oct"262",nombre*lower_u#,1.286x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hacek(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter short s cedilla";
+.beginchar(oct"263",nombre*lower_u#,1.286x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,0); cedilla(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter t";
+.beginchar("t",3.444lower_u#,1.186x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#-0.3u#);
+w':=1.371w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,0.828x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74);
+z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e;
+penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle;
+penpos1.4(3/4stem,-90); z1.4=(0.928w,.859x_height); z1.3=(0,y1.4r); z1.35=(x2l,y1.4l); filldraw
+z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)];
+penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,h); filldraw z1.3--z30l--z30r..z2r{down}
+--(x2r,y1.3)--z1.3 & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter t ogonek";
+.beginchar(oct"265",3.444lower_u#,1.186x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,0); ogonek(100);
+.endchar;
+
+
+nombre:=6.15gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter u";
+.beginchar("u",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h);
+penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90);
+penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r;
+z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58;
+z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke
+z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle;
+penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}--
+z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l
+& cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot);
+z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o);
+z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height);
+penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l];
+z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r
+--z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e;
+penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o);
+z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up}
+..z15--z14r--z14l--z13 & cycle;
+.endchar;
+
+nombre:=5.444gencoef[1,1.122449];
+
+.cmchar "The Fraktur letter v";
+.beginchar("v",nombre*lower_u#,1.203x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.334w,1.05foot); penpos2(stem,0); z2=(x1,0.561x_height);
+penpos3(stem,50); z3=(0.158w,0.897x_height); penpos3'(1.042stem,37);
+z3'l=(0,0.928x_height); penpos4(hair,-44); z4l=(0.265w,h); penstroke
+z1e---z2e...z3e{dir140}.. z3'e{up}..z4e{dir46}; penpos5(hair,-90);
+penpos6(hair,0); penpos7(hair,-11); z5=(0.133w,0.11x_height);
+z6=(0.582w,-apex_o); z7r-z6r=whatever*dir58; z7-z1r=whatever*dir-11;
+z7'=whatever[z6l,z7l]; x7'=0.7w; filldraw z1l{down}..z5l--z5r{z1r-z5r}
+..z6l--z6r--z7r--z7l--z7'..{left}z1r--z1l & cycle; penpos8(1.125stem,44);
+z8r=(w,0.576x_height); penpos11(hair,-44); penpos12(hair,-44);
+z11=(0.735w,gencoef[1.055x_height,x_height]); z11-z12=whatever*dir46; x12=0.3w;
+penstroke z12e--z11e; penpos10(1.521stem,46); z10r=z11; penpos9(1.042stem,46);
+z9=(0.648w,0.928x_height); penstroke z6e---z7e...z8e..z9e; filldraw
+z9r{z10-z9}..z10r{z11-z12} --z10l{z11-z12}..z9l{z9-z10}-- z9r & cycle;
+.endchar;
+
+nombre:=7.111gencoef[1,1.2];
+
+.cmchar "The Fraktur letter w";
+.beginchar("w",nombre*lower_u#,1.083x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.154w,foot); n_foot(1); penpos2(stem,0);
+z2=(x1,0.831x_height); penstroke z1e--z2e; penpos3(hair,-53); penpos4(hair,-54);
+z3r=z2r; z4-z3=whatever*dir37; y4l=x_height+apex_o; z3'=whatever[z3l,z4l];
+x3'=x1r; penpos5(stem,40); z5l=(0,0.955x_height); penpos6(hair,-50);
+z6l=(0.145w,h); penstroke z3e--z4e; filldraw
+z2r--z3'..z5r-(0,2apex_o){up}..z6r{dir60} --z6l{z5l-z5r}..z5l{down}..z2l--z2r &
+cycle; penpos7(stem,0); penpos8(stem,0); z7=(0.531w,foot); z8=(x7,y2);
+penpos9(hair,-35); penpos10(hair,-35);
+z10-z7r=whatever*((0,0.621x_height)-(w,0)); z9r=(0.668w,-apex_o);
+z10-z9=whatever*((w,0.359x_height)-z9); z9-z11=whatever*(z10-z7r); x11=0.402w;
+filldraw z11..z7l{up}--z7r--z10r-- z9r--z11 & cycle; penstroke z7e--z8e;
+penpos14(1.083stem,47); z14r=(w,gencoef[0.462x_height,0.685x_height]);
+penpos11'(hair,-53); penpos12(hair,-53); z11'r=z8r; z12-z11'=whatever*dir37;
+y12l=x_height+apex_o; penstroke z11'e--z12e; penpos13(1.083stem,37); z13r=z12;
+penstroke z9e---z10e... z14e..z13e{dir(gencoef[110,130])};
+z11.5=whatever[z11'l,z12l]; x11.5=x8r; z8'=whatever[z3r,z4r];
+z8l-z8'=whatever*(z11.5-z4); filldraw z8'--z4--z11.5--z8r--z8l --z8' & cycle;
+.endchar;
+
+nombre:=3.944gencoef[1,1.194030];
+
+.cmchar "The Fraktur letter x";
+.beginchar("x",nombre*lower_u#,x_height#,0.5x_height#);
+.adjust_fit(usual_left#+u#,usual_right#); w':=1.197w;
+penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90);
+z5l=(x2r+0.875stem,h); penpos5'(hair,-40); z5'l=(x1l,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r;
+z7-z6=whatever*dir48; x7=0.817w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z8r=(w,0.478x_height); penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*dir40;
+x11=x1; penpos9(1.229stem,40); z9=whatever[z11,z10]; y9r=y10r-apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e;
+penpos7'(1.2hair,-40); z7'r=(0.426w,-d); filldraw z5'l..z1l{up}--z1r--
+z15--z7l-- z6{dir138}..z5'r--z5'l & cycle; penpos22(stem,0); z22=(x1,0.841h);
+z29=(x22,h+apex_o); z28=(0,y22); z27=(x22l,0.721h); filldraw
+z1l---z27...z28--z29... z22r---z1r--z1l & cycle; penpos30(hair,-70);
+penpos32(hair,-70); penpos31(1.083stem,45); z22r-z32l=whatever*dir45;
+x32r=x22r; z30-z32=whatever*dir45; y30l=h+apex_o; z31r=(w,y32);
+z33-z31l=whatever*(z30-z31r); z33=whatever[z32,z30]; penstroke z32e--z30e;
+filldraw z30--z31r--z31l--z33-- z30 & cycle;
+z40=(x1l,1.5foot); z40'=(x1r,1/3foot);
+penpos41(0.8stem,180); penpos42(1.5hair,-120); penpos43(hair,-142);
+ z41l=(apex_o,-0.129d); z42l=(x1r,-0.557143d); x43l=w; y43r=-d;
+filldraw z40{down}..z41r{down}--z41l{up}..z40'{right}--z40 & cycle;
+penstroke z41e{down}..z42e..z43e{dir-60}; .endchar;
+
+
+nombre:=5.472gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter y";
+.beginchar("y",nombre*lower_u#,x_height#,2.556lower_u#);
+.adjust_fit(usual_left#,usual_right#);
+w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot);
+z2=(x1,0.846x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e; z2.8=(0,y2);
+z2.9=(x2,h+apex_o); z2.7=(x1l,0.194[y2,y1]); filldraw
+z2.7{up}..z2.8--z2.9..z2r{down} --z2.7 & cycle; penpos5'(hair,-40);
+z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o;
+x6r=x1r; z7-z6=whatever*dir48; x7=0.6w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z8r=(w,0.478x_height); penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o;
+z10-z11=whatever*((w,0.559x_height)); x11=x1; penpos9(1.229stem,40);
+z9=whatever[z11,z10]; y9r=y10r-apex_o; z15=whatever[z6l,z7l];
+z15-z1r=whatever*dir-30; penstroke z11e--z10e; penstroke z6e---z7e;
+penpos7'(1.2hair,-40); z7'r=(0.426w,-d); penstroke z7'e{dir50}...z8e{up}.. z9e;
+filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6'{dir138}..z5'r--z5'l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter y acute";
+.beginchar(oct"375",nombre*lower_u#,x_height#,2.556lower_u#);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter y Umlaut";
+if (dc_layout>0): xchar_code:=oct"270";
+ else: xchar_code:=oct"377";
+ fi;
+.beginchar(xchar_code,nombre*lower_u#,x_height#,2.556lower_u#);
+currentpicture:=last_char;
+z100=(0.5w,x_height); umlaut(100);
+.endchar;
+
+
+
+nombre:=3.444gencoef[1,1.330645];
+
+.cmchar "The Fraktur letter z";
+.beginchar("z",nombre*lower_u#,x_height#,gencoef[2.15lower_u#,3.07lower_u#]);
+.adjust_fit(usual_left#,usual_right#); penpos1(hair,122);
+penpos2(gencoef[hair,1.5hair],180); penpos3(0.625stem,-42);
+penpos4(1.313stem,37); z1l=gencoef[(w,0.524h),(0.945w,0.459h)]; z2r=(0,-0.1d);
+z3r=(gencoef[0.548w,0.509w],-d); z4r=(w,gencoef[0.103h,0]); penstroke
+z1e..z2e{down}..z3e{right}..z4e{up}; penpos5(hair,-90);
+z5=gencoef[(0,0.414h),(0.145w,0.390h)]; z6-z5=whatever*dir38;
+x6=gencoef[0.484w,0.454w]; filldraw z5r{right}..z4l{down}-- z4r{up}..z6--z5r &
+cycle; penpos7(4/3stem,43); z7=gencoef[(0.629w,0.734h),(0.618w,0.699h)];
+z8=(gencoef[0.532w,0.4w],h+apex_o); z9=(gencoef[0.081w,0.107782w],0.793h);
+penpos9'(hair,-90); z9'l=z9; penstroke z5e{z6-z5r}..z7e{up}; filldraw
+z7l{up}..z9'r{z9-z8}--z9--z8.. z7r{down}--z7l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter z with point";
+.beginchar(oct"273",nombre*lower_u#,x_height#,gencoef[2.15lower_u#,3.07lower_u#]);
+currentpicture:=last_char;
+z100=(0.5w,x_height); pointaccent(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter z with acute";
+.beginchar(oct"271",nombre*lower_u#,x_height#,gencoef[2.15lower_u#,3.07lower_u#]);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter z with hacek";
+.beginchar(oct"272",nombre*lower_u#,x_height#,gencoef[2.15lower_u#,3.07lower_u#]);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hacek(100);
+.endchar;
+
+
+
+
+
+
+
+
diff --git a/fonts/gothic/cmfrak/cmfrakmis.mf b/fonts/gothic/cmfrak/cmfrakmis.mf
new file mode 100644
index 0000000000..fb834197f5
--- /dev/null
+++ b/fonts/gothic/cmfrak/cmfrakmis.mf
@@ -0,0 +1,769 @@
+.cmchar "The Fraktur ligature ch";
+.beginchar(ch_ligature,3.639lower_u#+4.772lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w:=3.639u; penpos101(hair,-30); penpos102(hair,-30); z102l=(w+0.438u-0.5stem,foot);
+z101r=(0.565w,-apex_o); z101'=whatever[z101,z102]; y101'=y101l+apex_o; z103=whatever[z101l,z102l];
+x103=0.809w; z104=(2/3w,0.176h); penpos105(1.083stem,angle((w,0.4h))); z105=(0.26w,0.214h);
+penpos106(stem,0); z106l=(0,0.5h); penpos109(hair,-68); penpos108(hair,-68); penpos108.5(hair,-68);
+z109l=(0.832w,h+apex_o); z109-z108=whatever*((w,0.25h)); x108l=0.458w; z107=whatever[z108l,z109l];
+x107=0.145w; penpos110(stem,angle((w,0.25h))); z110r=whatever[z109l,z109r]; x110r=w;
+z110l-z108.5=whatever*(z110r-z109); z108.5=whatever[z108,z109]; penstroke z101e--z102e; filldraw
+z101'..z105l..z106l{up}--z106r{down} ..z105r...z103---z102l--z102r--z101' & cycle; filldraw
+z106l{up}..z107 & z107--z109l--z110r-- z110l--z108.5r &
+z108.5r{z108-z109}..(x106r,0.738h)..z106r{down}-- z106l & cycle; z0=(w-0.7u,0); w:=5.472u;
+h:=1.376x_height; d:=2.556u; w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1l=z102l;
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5[x0,x2l],1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h);
+penstroke z1e--z2e; filldraw z2l---z3''...z4l--z4r-- z3{dir45}..z5l{right}--z5r{left}
+...z3'---z2r--z2l & cycle; penpos5'(hair,-40); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o;
+x6r=x1r; z7-z6=whatever*dir48; x7=0.6w+x0; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z5'=whatever[z101,z102]; z8r=(w,0.478x_height)+z0; penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*((w,0.559x_height)); x11=x1;
+penpos9(1.229stem,angle((w,0.559x_height))); z9=whatever[z11,z10]; y9r=y10r-apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; z5'r-z6'=whatever*(z1r-z15); penstroke z11e--z10e;
+penstroke z6e---z7e; penpos7'(1.2hair,-40); z7'r=(0.426w,-d)+z0; penstroke z7'e{dir50}...z8e{up}..
+z9e; filldraw z5'l--z1l--z1r-- z15--z7l--
+z6'--z5'r--z5'l & cycle; .endchar;
+
+.cmchar "The Fraktur ligature ck";
+.beginchar(ck_ligature,3.639lower_u#+3.161lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w:=3.639u; penpos101(hair,-30); penpos102(hair,-30); z102l=(w+0.438u-0.5stem,foot);
+z101r=(0.565w,-apex_o); z101'=whatever[z101,z102]; y101'=y101l+apex_o; z103=whatever[z101l,z102l];
+x103=0.809w; z104=(2/3w,0.176h); penpos105(1.083stem,angle((w,0.4h))); z105=(0.26w,0.214h);
+penpos106(stem,0); z106l=(0,0.5h); penpos109(hair,-68); penpos108(hair,-68); penpos108.5(hair,-68);
+z109l=(0.832w,h+apex_o); z109-z108=whatever*((w,0.25h)); x108l=0.458w; z107=whatever[z108l,z109l];
+x107=0.145w; penpos110(stem,angle((w,0.25h))); z110r=whatever[z109l,z109r]; x110r=w;
+z110l-z108.5=whatever*(z110r-z109); z108.5=whatever[z108,z109]; penstroke z101e--z102e; filldraw
+z101'..z105l..z106l{up}--z106r{down} ..z105r...z103---z102l--z102r--z101' & cycle; filldraw
+z106l{up}..z107 & z107--z109l--z110r-- z110l--z108.5r &
+z108.5r{z108-z109}..(x106r,0.738h)..z106r{down}-- z106l & cycle; z0=(w-0.7u,0);
+w:=3.861u; h:=1.366x_height; w':=1.223w; penpos1(stem,0); penpos2(stem,0); z1l=z102l;
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5[x0,x2l],1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h);
+penstroke z1e--z2e; penpos5''(hair,-90); z5''=z5+(hair,-eps); filldraw z2l---z3''...z4l--z4r--
+z3{dir45}..z5l{right}..z5''l--z5''r..z5r{left} ...z3'---z2r--z2l & cycle; penpos5'(hair,-40);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.8w+x0;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; z5'r-z6'=whatever*(z1r-z15); z5'=whatever[z101,z102]; filldraw z5'l..z1l{up}--z1r--
+z15--z7l-- z6r---z6l...z5'r--z5'l & cycle; penpos1.4(3/4stem,-90); z1.4=(x0+0.928w,.859x_height);
+z1.3=(x0,y1.4r); z1.35=(x2l,y1.4l); filldraw z1.3--z1.35--z1.4l--z1.4r-- z1.3 & cycle;
+penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43);
+z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(x0+w,0.579[y1.4l,y5l]); penstroke z1.6e--z1.6'e; penstroke
+z1.5e{dir72}..z1.8e{up}..z1.7e{left}; filldraw z1.6r--z1.7l--z1.7r--z1.6l --z1.6r & cycle;
+.endchar;
+
+.cmchar "The Fraktur ligature st";
+.beginchar(st_ligature,6.5lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#);
+w':=0.698w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2);
+z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height;
+z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112;
+z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22);
+penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw
+z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle;
+filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+w':=0.726w; z100=(x0.14,0); penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot)+z100;
+z2=(x1,0.828x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke
+z1e--z2e; penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height)+z100;
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=x100+0.53w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle;
+penpos1.4(3/4stem,-90); z1.4=(0.928x100+0.4916w,.859x_height); z1.3=(x100,y1.4r);
+z1.35=(x2l,y1.4l); filldraw z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0);
+z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]);
+penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47; x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43);
+z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(x100+0.529w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,1.186x_height); filldraw
+z1.3--z30l--z30r..z2r{down} --(x2r,y1.3)--z1.3 & cycle; penpos30'(hair,180); z30'=z30;
+penpos30''(hair,-90); z30''r=(x30l,h); penstroke z0.11e{z0.11-z0.9}.. z30''e..z30'e{z1.3-z30l};
+.endchar;
+
+.cmchar "The Fraktur ligature ss";
+.beginchar(ss_ligature,6.928lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-1.932u#);
+w':=0.655w;
+penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0); z0.2=(x0.1,0.795x_height);
+penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l];
+z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0);
+z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4; penpos0.5(0.917stem,0);
+z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72;
+penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22);
+z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w'; penpos0.8(whatever,68);
+z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r...
+z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw
+z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0);
+z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2);
+z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height;
+z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4;
+penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112;
+z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22);
+penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100;
+penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw
+z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle;
+filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e;
+.endchar;
+
+.cmchar "The Fraktur ligature sf";
+.beginchar(sf_ligature,6.928lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#);
+w':=0.655w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2);
+z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height;
+z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112;
+z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22);
+penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw
+z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle;
+filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0);
+z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2);
+z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height;
+z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4;
+penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112;
+z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22);
+penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100;
+penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw
+z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle;
+filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw
+z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle;
+.endchar;
+
+.cmchar "The Fraktur ligature ff";
+.beginchar(ff_ligature,6.928lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#);
+w':=0.655w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2);
+z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height;
+z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112;
+z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22);
+penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw
+z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle;
+filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0);
+z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2);
+z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height;
+z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4;
+penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112;
+z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22);
+penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100;
+penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw
+z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle;
+filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw
+z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle; filldraw z0.5--z0.4l--z0.4r--z0.2--z0.5 & cycle;
+.endchar;
+
+.cmchar "The Fraktur ligature sz";
+.beginchar(eszet,5.444lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#+0.5u#); w':=0.834w;
+penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2);
+z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r];
+y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0);
+z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68);
+z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0);
+z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22);
+z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r;
+z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r... z0.5r---z0.6l &
+z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw
+z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw
+z0.6l{dir72}..z0.14{right}.. z0.8r{dir-22}--z0.8l{dir158}..
+z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r-hair,hair); w':=0.633w; d':=0.679w; penpos1(hair,122);
+penpos2(hair,180); penpos3(0.625stem,-42); penpos4(1.313stem,37);
+z1l=(w',0.524h)+z100; z2r=(x0.2,-0.1d'+y100); z3r=(0.548w',-0.8d')+z100;
+z4r=(w'+u,0.103x_height)+z100; penstroke z2e{down}..z3e{right} ..z4e{up};
+penpos5(hair,-90); z5=(0,0.414x_height)+z100; z6-z5=whatever*dir38;
+x6=0.484w'+x100; filldraw z5r{right}..z4l{down}-- z4r{up}..z6--z5r &
+cycle; penpos7(4/3stem,43); z7=(0.629w',0.734x_height)+z100;
+z8=(0.532w',x_height+apex_o)+z100; z9=(0.081w',0.793x_height)+z100;
+penpos9'(hair,-90); z9'l=z9; penstroke z5e{z6-z5r}..z7e{up}; filldraw
+z7l{up}..z9'r{z9-z8}--z9--z8.. z7r{down}--z7l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+
+.cmchar "The Fraktur ligature sz";
+if (dc_layout>0): xchar_code:=oct"377";
+ else: xchar_code:=oct"337";
+ beginchar(xchar_code,5.444lower_u#,1.366x_height#,3.167lower_u#);
+ currentpicture:=last_char;
+ endchar;
+fi;
+
+.cmchar "The Fraktur ligature tz";
+.beginchar(tz_ligature,4.75lower_u#,1.186x_height#,3.167lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#+u#);
+w':=0.994w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,0.828x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74);
+z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e;
+penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.632w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle;
+penpos1.4(3/4stem,-90); z1.4=(x1r,.859x_height); z1.3=(0,y1.4r); z1.35=(x2l,y1.4l); filldraw
+z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)];
+penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r;
+penpos1.8(stem,60); z1.8r=(w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,h); filldraw
+z1.3--z30l--z30r..z2r{down} --(x2r,y1.3)--z1.3 & cycle; z100=(x1r-hair,hair); w':=0.725w;
+d':=0.679d; penpos0.1(hair,122); penpos0.2(hair,180); penpos0.3(0.625stem,-42);
+penpos0.4(1.313stem,37); z0.1l=(w',0.524h)+z100; z0.2r=(0,-0.1d')+z100; z0.3r=(0.548w',-d')+z100;
+z0.4r=(w'+u,0.103x_height)+z100; penstroke z0.2e{down}..z0.3e{right} ..z0.4e{up};
+penpos0.5(hair,-90); z0.5=(0,0.414x_height)+z100; z0.6-z0.5=whatever*dir38; x0.6=0.484w'+x100;
+filldraw z0.5r{right}..z0.4l{down}-- z0.4r{up}..z0.6--z0.5r & cycle; penpos0.7(4/3stem,43);
+z0.7=(0.629w',0.734x_height)+z100; z0.8=(0.532w',x_height+apex_o)+z100;
+z0.9=(0.081w',0.793x_height)+z100; penpos0.9'(hair,-90); z0.9'l=z0.9; penstroke
+z0.5e{z0.6-z0.5r}..z0.7e{up}; filldraw z0.7l{up}..z0.9'r{z0.9-z0.8}--z0.9--z0.8..
+z0.7r{down}--z0.7l & cycle; filldraw (x1r,y1.4l){right}.. z0.8{z0.8-z0.9}--z0.9--(x1r,y1.4l) &
+cycle;
+.endchar;
+
+numeric nombre; nombre:= 5gencoef[1,1.155556];
+
+.cmchar "The Fraktur letter a with little-e Umlaut";
+.beginchar(oct"211",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]);
+penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51);
+penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h)));
+penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0);
+penpos12(whatever,-90); penpos11''(hair,-30);
+z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]);
+z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]);
+z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4];
+x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem;
+z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])];
+y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o;
+z10=whatever[z8l,z9l]; y10=0.228h;
+z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]);
+z11''r=(gencoef[0.78w,0.814w],-apex_o);
+z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l);
+z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r;
+z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l];
+y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7];
+penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]);
+filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r..
+z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke
+z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down}
+..z7..z10{z9-z8} & z10--z8' & cycle; z100=(x9l,1.214x_height);
+e_umlaut(100);.endchar;
+
+nombre:= 3.65gencoef[1,1.230769];
+
+.cmchar "The Fraktur letter e with little-e Umlaut";
+.beginchar(oct"220",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1l=(0,0.486h);
+penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]);
+penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]);
+z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w];
+x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8];
+y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l];
+x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h);
+penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69);
+y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h);
+z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0];
+z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6));
+z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e;
+filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69);
+z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w];
+z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e;
+filldraw z7'{dir135}..z1l{up}..z2 &
+z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10
+..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e; z100=(0.569w,1.214x_height);
+e_umlaut(100);
+.endchar;
+
+nombre:=4.75gencoef[1,1.140351];
+
+.cmchar "The Fraktur letter o with little-e Umlaut";
+.beginchar(oct"231",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]);
+x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31);
+z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0);
+z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22);
+z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l;
+penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]);
+z2-z1=whatever*((w,0.786h)); x8'=x8r;
+y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e..
+z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw
+z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw
+z7l--z7'--z7r--z7l & cycle; z100=(x4,1.214x_height);
+e_umlaut(100);
+.endchar;
+
+nombre:=6.15gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter u with little-e Umlaut";
+.beginchar(oct"236",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h);
+penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90);
+penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r;
+z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58;
+z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke
+z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle;
+penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}--
+z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l
+& cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot);
+z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o);
+z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height);
+penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l];
+z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r
+--z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e;
+penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o);
+z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up}
+..z15--z14r--z14l--z13 & cycle; z100=(x2l-hair,1.214x_height);
+e_umlaut(100);
+.endchar;
+
+numeric nombre; nombre:= 5gencoef[1,1.155556];
+
+.cmchar "The Fraktur letter a with Umlaut";
+.beginchar(oct"344",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]);
+penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51);
+penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h)));
+penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0);
+penpos12(whatever,-90); penpos11''(hair,-30);
+z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]);
+z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]);
+z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4];
+x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem;
+z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])];
+y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o;
+z10=whatever[z8l,z9l]; y10=0.228h;
+z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]);
+z11''r=(gencoef[0.78w,0.814w],-apex_o);
+z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l);
+z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r;
+z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l];
+y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7];
+penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]);
+filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r..
+z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke
+z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down}
+..z7..z10{z9-z8} & z10--z8' & cycle;
+ % z100=(x9l,1.214x_height);
+last_char:=currentpicture;
+z100=(0.5w,x_height);
+umlaut(100);.endchar;
+
+
+.cmchar "The Fraktur letter a with acute";
+.beginchar(oct"341",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+endchar;
+
+.cmchar "The Fraktur letter a with breve";
+.beginchar(oct"240",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); breve(100);
+endchar;
+
+.cmchar "The Fraktur letter a with ogonek";
+.beginchar(oct"241",nombre*lower_u#,x_height#,0.2x_height#);
+currentpicture:=last_char;
+z100=(0.8w,0); ogonek(100);
+endchar;
+
+.cmchar "The Fraktur letter a with tilde";
+.beginchar(oct"343",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); tilde(100);
+endchar;
+
+.cmchar "The Fraktur letter a with scandinavian circle";
+.beginchar(oct"345",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); o_umlaut(100);
+endchar;
+
+.cmchar "The Fraktur letter a with grave";
+.beginchar(oct"340",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); grave(100);
+endchar;
+
+.cmchar "The Fraktur letter a with hat";
+.beginchar(oct"342",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hat(100);
+endchar;
+
+nombre:= 3.65gencoef[1,1.230769];
+
+.cmchar "The Fraktur letter e with Umlaut";
+.beginchar(oct"353",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1l=(0,0.486h);
+penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]);
+penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]);
+z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w];
+x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8];
+y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l];
+x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h);
+penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69);
+y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h);
+z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0];
+z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6));
+z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e;
+filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69);
+z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w];
+z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e;
+filldraw z7'{dir135}..z1l{up}..z2 &
+z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10
+..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e;
+z100=(0.6w,x_height);
+last_char:=currentpicture;
+umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter e with acute";
+.beginchar(oct"351",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+endchar;
+
+.cmchar "The Fraktur letter e with grave";
+.beginchar(oct"350",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); grave(100);
+endchar;
+
+.cmchar "The Fraktur letter e with hacek";
+.beginchar(oct"245",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hacek(100);
+endchar;
+
+.cmchar "The Fraktur letter e with hat";
+.beginchar(oct"352",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hat(100);
+endchar;
+
+.cmchar "The Fraktur letter e with ogonek";
+.beginchar(oct"246",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.6w,0); ogonek(100);
+endchar;
+
+nombre:=4.75gencoef[1,1.140351];
+
+.cmchar "The Fraktur letter o with Umlaut";
+.beginchar(oct"366",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]);
+x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31);
+z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0);
+z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22);
+z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l;
+penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]);
+z2-z1=whatever*((w,0.786h)); x8'=x8r;
+y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e..
+z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw
+z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw
+z7l--z7'--z7r--z7l & cycle; z100=(x4,x_height);
+last_char:=currentpicture;
+umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter o with acute";
+.beginchar(oct"363",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+endchar;
+
+.cmchar "The Fraktur letter o with Hungarian umlaut";
+.beginchar(oct"256",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hungarum(100);
+endchar;
+
+.cmchar "The Fraktur letter o with tilde";
+.beginchar(oct"365",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); tilde(100);
+endchar;
+
+.cmchar "The Fraktur letter o with slash";
+.beginchar(oct"370",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+pickup penrazor xscaled 0.5stem yscaled hair rotated 30;
+draw (0,0)--(w,x_height);
+endchar;
+
+.cmchar "The Fraktur letter o with slash";
+if (dc_layout>0): xchar_code:=oct"370";
+ else: xchar_code:=oct"034";
+ fi;
+.beginchar(xchar_code,nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+pickup penrazor xscaled 0.5stem yscaled hair rotated 30;
+draw (0,0)--(w,x_height);
+endchar;
+
+.cmchar "The Fraktur letter o with grave";
+.beginchar(oct"362",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); grave(100);
+endchar;
+
+.cmchar "The Fraktur letter o with hat";
+.beginchar(oct"364",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hat(100);
+endchar;
+
+nombre:=6.15gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter u with Umlaut";
+.beginchar(oct"374",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h);
+penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90);
+penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r;
+z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58;
+z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke
+z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle;
+penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}--
+z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l
+& cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot);
+z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o);
+z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height);
+penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l];
+z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r
+--z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e;
+penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o);
+z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up}
+..z15--z14r--z14l--z13 & cycle; % z100=(x2l-hair,1.214x_height);
+last_char:=currentpicture;
+z100=(0.5w,x_height);
+umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter u with acute";
+.beginchar(oct"372",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+endchar;
+
+.cmchar "The Fraktur letter u with Hungarian umlaut";
+.beginchar(oct"266",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hungarum(100);
+endchar;
+
+.cmchar "The Fraktur letter u with grave";
+.beginchar(oct"371",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); grave(100);
+endchar;
+
+.cmchar "The Fraktur letter u with hat";
+.beginchar(oct"373",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hat(100);
+endchar;
+
+
+.cmchar "The Fraktur letter u with scandinavian circle";
+.beginchar(oct"267",nombre*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); o_umlaut(100);
+endchar;
+
+.cmchar "The Fraktur hyphen";
+.beginchar(oct"055",4u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.5stem,-90);
+penpos2(0.5stem,-90);
+penpos3(0.5stem,-90);
+penpos4(0.5stem,-90); penpos5(stem,-90);
+z2-z1=whatever*dir35;
+z4-z3=whatever*dir35;
+z3r=z5l; z5r=z1l; x1=0;
+x2=x4=w;
+y1r=foot;
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+.endchar;
+
+def par_s(suffix $) =
+h':=cap_height; w':=0.379h';
+z$.1=z$+(0.5w',0.5h');
+penpos$.1(stem,30);
+penpos$.2(2hair,0);
+penpos$.3(hair,-90);
+penpos$.4(hair,180);
+penpos$.5(hair,90);
+z$.2l=z$+(0,0.8h'); z$.3l=(x$.1,y$+h');
+z$.4=z$+(0.84w',0.886h');
+z$.5=(x$.4r,y$+0.826h');
+penstroke z$.2e{up}..z$.3e
+{right} if panw: ..z$.4e{down}..z$.5e{left} fi;
+penpos$.6(2hair,90); z$.6l=z$.5l;
+if panw:
+filldraw z$.6r..z$.6l..z$.6r & cycle;
+fi
+penpos$.1'(stem,-150);
+penpos$.2'(2hair,180);
+penpos$.3'(hair,90);
+penpos$.4'(hair,0);
+penpos$.5'(hair,-90);
+z$.1=z$.1';
+z$.2'r=z$+(w',0.2h'); z$.3'r=(x$.1,y$);
+z$.4'=z$+(0.16w',0.114h');
+z$.5'=(x$.4'r,y$+0.174h');
+penpos$.2''(2hair,0); z$.2''=z$.2';
+z$.25=(z$.2''{up}..z$.2{up})
+intersectionpoint (z$+(0,0.5h')--
+z$+(w',0.5h'));
+penpos$.25(stem,30);
+penstroke z$.2''e{up}..z$.25e..
+z$.2e{up};
+penstroke z$.2'e{down}..z$.3'e
+{left} if katw: ..z$.4'e{up}..z$.5'e{right} fi;
+penpos$.6'(2hair,-90); z$.6'l=z$.5'l;
+if katw:
+filldraw z$.6'r..z$.6'l..z$.6'r & cycle;
+fi
+enddef;
+
+.cmchar "The Fraktur paragraph sign";
+.beginchar(oct"237",7.4u#,cap_height#,3.167u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+boolean panw, katw;
+panw:=true; katw:=false;
+z0=(0.17h,0); par_s(0);
+panw:=false; katw:=true;
+z1=(0,-0.3h); par_s(1);
+.endchar;
+
+.cmchar "The Fraktur Mitlaut J proposed by Sanders in 1879";
+.beginchar("$",8.541u#,cap_height#,2.497u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,28); penpos2(cap_hair,-17.5); penpos3(0.889cap_stem,-116); penpos4(cap_stem,-126);
+penpos5(cap_hair,-44); penpos6(1.056cap_stem,53); penpos7(1.056cap_stem,21); penpos8(cap_hair,-90);
+penpos9(cap_hair,180); z1=(0.115w,-0.886d); z2r=(x1,-0.519d); z3=(0.234w,-0.1d); z4r=(0.517w,-d);
+z5=(0.795w,-0.329d); z6r=(0.966w,0.196h); z7=(0.636w,0.56h); z8=(0.808w,0.683h); z9l=(x6r,0.554h);
+penstroke z1e..z2e{up}..z3e{right} ..z4e{right}..z5e..z6e{up}..z7e{up} ..z8e{right}..z9e{down};
+penpos10(1.037cap_stem,50); penpos11(cap_hair,-45); penpos12(0.889cap_stem,43);
+penpos13(1.185cap_stem,-146); penpos14(0.741cap_stem,-119); penpos15(cap_hair,0);
+penpos16(cap_hair,28); z10l=z11r=(0.1w,0.515h); z12l=(0,0.69h); z13l=(0.506w,h+apex_o);
+z14r=z8l+(0,0.035h); z15r=(w,0.875h); z16=(x15l,0.924h); filldraw z11l{z12r-z11l}..z12l{up}--
+z12r{down}..z10r--z10l--z11l & cycle; penstroke z12e{up}..z13e{right}..
+z14e{right}..z15e{up}..z16e{dir118}; penpos20(hair,-41); penpos21(hair,-41);
+penpos22(2/3cap_stem,-90); penpos23(0.593cap_stem,-113); z20l=(0,0.235h); z21=(x8,0.48y8);
+z22=(0.261w,0.328h); z23=(0.586w,0.251h); penstroke z20e..z22e{right}..z23e{right} ..z21e;
+.endchar;
+
+% 311 --> 100 by D. Taupin
+.cmchar "The Fraktur symbol for etc"; .beginchar(oct"100",8.194lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(hair,-52);
+penpos2(hair,-52); penpos3(stem,48); penpos4(stem,48); penpos5(hair,-42); penpos6(1.2stem,34);
+penpos8(hair,-49); z1r=(0.22w,-apex_o); z2-z1=whatever*dir38; x2=0.458w; z3l=z1r;
+z4l-z1r=whatever*dir140; x4l=0; z5l=z4; y6=0.707h; x6r=x2r; z7=(0.231w,h+apex_o);
+z9=(0.163w,0.841h); z8l=(0,0.793h); penstroke z1e--z2e; penstroke z3e--z4e; penstroke
+z5e{z4r-z4l}..z6e{up}; filldraw z6r{up}..z7{dir160} & z7-- z8l--z8r{z7-z8l}..z9{right}..z6l{down}
+--z6r & cycle; penpos10(hair,-59); penpos11(hair,-59); penpos12(whatever,50); penpos13(1.2stem,30);
+penpos14(stem,11.5); penpos15(hair,-75); penpos16(0.857stem,14); penpos17(0.857stem,14);
+z11r=(0.695w,-apex_o); z10-z11=whatever*dir31; x10r=w; z12l=z11r; z12r=whatever[z11l,z10l];
+z13=(0.631w,0.49h); z14=(0.678w,0.859h); z16r=(w,y8l); z15-z16r=whatever*dir105; y15l=h+apex_o;
+z17r=z15; penstroke z11e--z10e; penstroke z12e..z13e{up}..z14e.. z15e{z16r-z16l}; penstroke
+z16e--z17e;
+.endchar;
+
+.cmchar "Scandinavian circle accent";
+if (dc_layout>0): xchar_code:=oct"006";
+ else: xchar_code:=oct"027";
+ fi;
+.beginchar(xchar_code,9u#,cap_height#,0);
+z100=(0.5w,x_height); o_umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter dotless j";
+if (dc_layout>0): xchar_code:=oct"032";
+ else: xchar_code:=oct"021";
+ fi;
+.beginchar(xchar_code,2.944lower_u#,x_height#,1.611lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,47); penpos2(1.3hair,-90); z2r=(0.16w,-d); penpos5(stem,0);
+z5=(0.523w,0.124h); penpos3(2/3stem,0); z3l=(x5l,0.048h); penpos6(stem,0);
+z6=(x5,0.824h); penpos7(hair,-90); z7=(0.906w,0.91h); penpos8(hair,-48);
+penpos9(hair,-48); z8l=(0.481w,h+apex_o); z8-z9=whatever*((w,0.3448h)); x9l=0;
+z9'=whatever[z9r,z8r]; y9'=y9l+apex_o; z1r=(x5r+0.5stem,-0.207d);penstroke
+z2e..z3e{up}; penstroke z5e--z6e; filldraw z1r{dir137}..z5r{up}--z5l
+--z3l--z3r..z1l{dir-43}--z1r & cycle; filldraw z6r{up}..z7r{right}--z7l...
+z8r---z8l--z9l--z9r--z9'.. z6l{down}--z6r & cycle; penpos11(hair,0);
+z11r=(x8l,1.076h); z12=(0.571w,1.279h); z13=(0.744w,1.238h);
+.endchar;
+
+.cmchar "The Fraktur letter dotless i";
+if (dc_layout>0): xchar_code:=oct"031";
+ else: xchar_code:=oct"020";
+ fi;
+.beginchar(xchar_code,2.889lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,-44); penpos2(hair,-44); penpos3(hair,-44); z1l=(0,0.834h);
+z2-z1=whatever*((w,0.37h)); y2l=h+apex_o; z3=whatever[z2l,z2r]; x3r=x5r+0.5stem;
+z4=(0.606w,0.931h); penpos5(stem,0); z5=(0.433w,0.759h); z6=(x5,0.238h);
+penpos6(stem,0); z7=(x6l,0.079h); z8-z7=whatever*dir-40; y8=-apex_o;
+penpos9(hair,-38); z9r-z8=whatever*dir52; x9r=w; z10=(0.788w,0.152h);
+z5'=whatever[z1,z2]; x5'=x5l; penstroke z5e--z6e; penstroke z1e--z2e; filldraw
+z5r{up}..z3r--z2--z5'--z5l{down} --z5r & cycle; filldraw z8--z9r--z9l{z8-z9r}
+..z6r{up}--z6l{down}..{z8-z7}z8 & cycle; penpos11(hair,0); z11r=(x2l,1.076h);
+z12=(0.56w,1.279h); z13=(0.73w,1.238h);
+last_char:=currentpicture;
+.endchar;
+
+
+
+.cmchar "The Fraktur letter i with Umlaut";
+.beginchar(oct"357",2.889*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); umlaut(100);
+endchar;
+
+.cmchar "The Fraktur letter i with acute";
+.beginchar(oct"355",2.889*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); acute(100);
+endchar;
+
+.cmchar "The Fraktur letter i with grave";
+.beginchar(oct"354",2.889*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); grave(100);
+endchar;
+
+.cmchar "The Fraktur letter i with hat";
+.beginchar(oct"356",2.889*lower_u#,x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,x_height); hat(100);
+endchar;
+
+
diff --git a/fonts/gothic/cmfrak/cmfraknum.mf b/fonts/gothic/cmfrak/cmfraknum.mf
new file mode 100644
index 0000000000..97d73c36aa
--- /dev/null
+++ b/fonts/gothic/cmfrak/cmfraknum.mf
@@ -0,0 +1,194 @@
+.cmchar "The Fraktur numeral 1";
+.beginchar("1",2.778u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos2(w,0); z2=(0.5w,0);
+penpos1(stem,0); z1=(0.5w,foot);
+penpos3(hair,90); penpos4(hair,90);
+z3l=z2l; z4l=z2r; penpos5(stem,0);
+z5=(x1,0.79h); penpos6(hair,0);
+z6r=(x5r,h); penpos7(1.5hair,90);
+z7=(0,0.9h);
+filldraw z4l--z4r...z1r---z6r--
+z6l..z7r{left}--z7l{right}...
+z5l---z1l...z3r--z2l--z4l & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 2";
+.beginchar("2",5.694u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.625stem,-90); penpos2(stem,-90);
+penpos3(4/3stem,-115);
+z1r=(0,0); z2r=(0.722w,0.026h);
+x3l=w; y3r=-apex_o;
+penstroke z1e..z2e{right}..z3e;
+penpos4(0.917stem,20);
+z4r=(0.966w,0.721h);
+z5=(0.478w,0.848h);
+z6=(0.244w,h+apex_o);
+z7=(0.093w,0.822h);
+penpos8(hair,13); z8=(0.146w,3/4h);
+penstroke z1e{dir44}..z4e{up};
+filldraw z8r..z5{right}..z4l{down}
+--z4r{up}..z6{dir173} & z6--z7--z8l--z8r &
+cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 3";
+.beginchar("3",5.5u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.5hair,-90); penpos2(stem,18);
+penpos3(1.833stem,35);
+penpos4(hair,-90); penpos5(0.625stem,0);
+z1r=(0,-apex_o); z2=(0.788w,0.353h);
+z4r=(0.167w,0.489h); z5r=(w,h);
+z3l=z4r;
+penstroke z1e{dir12}..z2e{up}..z3e{left};
+penstroke z4e{dir30}..z5e{up};
+penpos7(0.917stem,-90);
+penpos8(0.417stem,-17);
+penpos9(hair,0);
+z8l=(0,0.796h); z9l-z8l=whatever*dir73;
+y9=h+apex_o; z7l=(0.273w,h-apex_o);
+z6=(z4l{dir30}..z5l{up}) intersectionpoint
+((0,y7r+apex_o)--(w,y7r+apex_o));
+filldraw z8l--z9l--z9r..z7l{right}...
+z5l---z5r--z6..z7r{left}..z8r{z8l-z9l}
+--z8l & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 4";
+.beginchar("4",7.361u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(stem,0); penpos2(stem,0);
+z1=(0.619w,foot); z2=(x1,0.831h);
+z3=(x1,h); z4=(0,0.444h);
+penpos6(0.521stem,90); z6=(0.796w,0.45h);
+y5=y6l; (x2r,h)-z5=whatever*dir50;
+z4'=(1/45w,y6r); z3'-z4'=whatever*dir50;
+x3'=x2l; penpos9(hair,90);
+penpos10(hair,-90); z9l=(x1-stem,0);
+z10r=(x1+stem,0);
+z8=(w,0.521h); z7=(0.921w,0.376h);
+filldraw z9l--z9r...z1l---z2l--
+z2r---z1r...z10l--z10r--z9l & cycle;
+z3''=whatever[z5,(x2r,h)]; x3''=x2l;
+filldraw z2l--z3''--z5--z4'---z3'...
+z3{right}..{down}z2r--z2l & cycle;
+filldraw z6l---z5...z4{up}..z4'{z3'-z4'}
+& z4'---z6r...z8{right}--z7..
+z6l{left} & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 5";
+.beginchar("5",5.528u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.458stem,-60); penpos2(1.125stem,25);
+penpos3(1.125stem,65); penpos4(1.167stem,53);
+penpos5(1.5hair,-25); penpos6(0.958stem,-77);
+z1=(0.221w,-apex_o); z2=(0.729w,0.417h);
+z3=(0.462w,0.578h); z4l=(0,0.618h);
+z5=(0.161w,0.814h); z6l=(0.349w,h);
+z7=(0.673w,0.98h); z8=(w,h);
+z9=(0.851w,0.828h);
+penstroke z1e{dir30}..z2e{up}..
+z3e{dir169}..z4e{up}..z5e{dir65}..z6e{right};
+filldraw z6l{right}..z7..z8 & z8--z9 &
+z9..{left}z6r--z6l & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 6";
+.beginchar("6",6.056u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.4hair,-42); penpos2(1.208stem,40);
+penpos3(1.125stem,54); penpos4(1.2hair,-36);
+penpos5(stem,30); penpos7(hair,-45);
+z1l=(0.716w,h+apex_o); z2l=(0,0.342h);
+z3l=(0.674w,-apex_o);
+penstroke z3e..z2e{up}..z1e{dir48};
+z4r=z3; z5r=(w,0.362h); z6=(0.573w,0.753h);
+z6-z7l=whatever*dir45; y7l=0.555h;
+z8=(0.477w,0.566h);
+filldraw z4r---z3r...z5r{up}..z6{dir135}
+--z7l--z7r{z6-z7l}..z8{right}..z5l{down}
+..z4l{z3l-z3r}--z4r & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 7";
+.beginchar("7",5.906u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.417stem,0); z1=(0.466w,0);
+penpos2(hair,-57); y2l=h; x2r=w;
+penstroke z1e{up}..z2e{dir64};
+penpos3(hair,-20); penpos5(stem,-90);
+z3l=(0,0.776h); z5l=(0.24w,h);
+z4-z3l=whatever*dir70; y4=h+apex_o;
+z6=(z5r--(w,y5r)) intersectionpoint
+(z1{up}..z2{dir64});
+filldraw z3r{z4-z3l}...z5r---z6--
+z2--z2l---z5l...z4 & z4--z3l--z3r &
+cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 8";
+.beginchar("8",6.722u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.042stem,61.5);
+penpos2(hair,110);
+z1=z2=(0.5w,0.51h);
+penpos3(0.917stem,24);
+z3l=(0.083w,0.721h);
+penpos5(0.917stem,-204);
+z5l=(w-x3l,y3l);
+penpos4(hair,-90); z4l=(0.5w,h+apex_o);
+penpos6(stem,180); z6r=(0,0.245h);
+penpos7(2hair,-90); z7r=(0.5w,-apex_o);
+penpos8(stem,0); z8r=(w,y6);
+penstroke z1e{dir151.5}..z3e{up}..
+z4e{right}..z5e{down}..z2e{dir200}..
+z6e{down}..z7e{right}..z8e{up}..
+z1e{dir151.5};
+.endchar;
+
+.cmchar "The Fraktur numeral 9";
+.beginchar("9",6.056u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.4hair,-42); penpos2(1.208stem,40);
+penpos3(1.125stem,54); penpos4(1.2hair,-36);
+penpos5(stem,30); penpos7(hair,-45);
+z1l=(0.716w,h+apex_o); z2l=(0,0.342h);
+z3l=(0.674w,-apex_o);
+penstroke z3e..z2e{up}..z1e{dir48};
+z4r=z3; z5r=(w,0.362h); z6=(0.573w,0.753h);
+z6-z7l=whatever*dir45; y7l=0.555h;
+z8=(0.477w,0.566h);
+filldraw z4r---z3r...z5r{up}..z6{dir135}
+--z7l--z7r{z6-z7l}..z8{right}..z5l{down}
+..z4l{z3l-z3r}--z4r & cycle;
+transform gurisma;
+gurisma=identity
+rotatedaround ((0.5w,0.5h),180);
+picture krufo;
+krufo:= currentpicture transformed
+gurisma;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The Fraktur numeral 0";
+.beginchar("0",7.332u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.059stem,-143);
+penpos2(stem,-140);
+penpos3(1.05stem,-136);
+penpos4(1.1stem,-142);
+penpos5(hair,128);
+penpos6(hair,127);
+z1l=(0.535w,h+apex_o); z4r=(w-x1l,-apex_o);
+z2l=(w,0.528h); x3r=0; y3=y2l+apex_o;
+z5l=z4; z6r=z1;
+penstroke z1e{dir-25}..z2e{down}..
+z5e{z4r-z4l};
+penstroke z6e{z1r-z1l}..z3e{down}..
+z4e{dir-31};
+.endchar;
+
diff --git a/fonts/gothic/cmfrak/cmfrakoth.mf b/fonts/gothic/cmfrak/cmfrakoth.mf
new file mode 100644
index 0000000000..f9c29ff746
--- /dev/null
+++ b/fonts/gothic/cmfrak/cmfrakoth.mf
@@ -0,0 +1,551 @@
+.cmchar "The Fraktur comma";
+.beginchar(",",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+%penstroke z1e--z2e;
+penpos10(0.11785*(x_height+2apex_o),-30);
+z10l=(x2l-apex_o,-1.3y2r);
+filldraw z10l--z2l+(2hair,0){up}..{down}
+z1r--z10r--z10l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "Apostrophe";
+.beginchar("'",3.5u#,asc_height#,0);
+currentpicture:=last_char
+ shifted (0,1.2x_height);
+.endchar;
+
+.cmchar "Opening Gaensefuesschen";
+.beginchar(open_gaens,9u#,x_height#,0);
+currentpicture:=last_char;
+addto currentpicture also last_char shifted (4u,0);
+.endchar;
+
+.cmchar "Closing Gaensefuesschen";
+.beginchar(oct"042",9u#,asc_height#,0);
+currentpicture:=(last_char rotatedaround((3u,0),180))
+ shifted (0,1.2x_height);
+addto currentpicture also (last_char rotatedaround((3u,0),180))
+ shifted (4u,1.2x_height);
+.endchar;
+
+.cmchar "Reverse apostrophe";
+.beginchar("`",5u#,asc_height#,0);
+currentpicture:=(last_char rotatedaround((3u,0),180))
+ shifted (0,1.2x_height);
+.endchar;
+
+.cmchar "The Fraktur colon";
+.beginchar(":",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+penstroke z5e--z6e;
+.endchar;
+
+.cmchar "The Fraktur semicolon";
+.beginchar(";",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+penstroke z5e--z6e;
+penpos10(hair,-30); z10l=(x2l,-y2r);
+filldraw z10l{z1r-z10r}..z2l{z2-z1}
+& z2l--z1r--z10r--z10l & cycle;
+.endchar;
+
+.cmchar "The Fraktur point";
+.beginchar(".",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+pointpoint;
+.endchar;
+
+
+.cmchar "Hachek (check) accent";
+if (dc_layout>0): xchar_code:=oct"007";
+ else: xchar_code:=oct"024";
+ fi;
+.beginchar(xchar_code,9u#,.75[x_height#,min(asc_height#,2x_height#)],0);
+z100=(0.5w,x_height); hacek(100);
+.endchar;
+
+.cmchar "Breve accent";
+if (dc_layout>0): xchar_code:=oct"010";
+ else: xchar_code:=oct"025";
+ fi;
+.beginchar(xchar_code,9u#,min(asc_height#,2x_height#),0);
+z100=(0.5w,x_height); breve(100);
+.endchar;
+
+.cmchar "Macron (bar) accent";
+if (dc_layout>0): xchar_code:=oct"011";
+ else: xchar_code:=oct"026";
+ fi;
+numeric macron_breadth#; macron_breadth#=.2[vair#,stem#];
+.beginchar(xchar_code,6u#,.4[x_height#,asc_height#]+macron_breadth#,0);
+italcorr h#*slant-.75u#;
+.adjust_fit(0,0);
+numeric macron_breadth; macron_breadth:=Vround .2[vair,stem];
+pickup if serifs: crisp.nib else: fine.nib fi;
+pos1(2/3stem,70); pos2(2/3stem,70);
+top y1r=top y2r=h+o; lft x1r=w-rt x2l=hround 1.25u;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Cedilla accent";
+if (dc_layout>0): xchar_code:=oct"013";
+ else: xchar_code:=oct"030";
+ fi;
+.beginchar(xchar_code,9u#,0,.875desc_depth#);
+z100=(0.5w,0); cedilla(100);
+.endchar;
+
+.cmchar "Ogonek accent";
+if (dc_layout>0): xchar_code:=oct"014";
+beginchar(xchar_code,9u#,0,.875desc_depth#);
+z100=(0.5w,0); ogonek(100);
+endchar;
+fi;
+
+.cmchar "L-bar accent";
+if unknown l_width#:
+ l_width#:=3lower_u#; fi % nominal width of `l'
+ligtable oct"040": "l" kern -l_width#,
+ "L" kern -l_width#;
+.beginchar(oct"040",l_width#,x_height#,0);
+z100=(0,0.5cap_height); ellbar(100);
+.endchar;
+
+if (dc_layout>0): xchar_code:=oct"012";
+ else: xchar_code:=oct"137";
+ fi;
+iff ligs>0: .cmchar "Dot accent";
+.beginchar(xchar_code,5u#,2x_height#,0);
+z100=(0.5w,x_height);
+pointaccent(100);
+.endchar;
+
+if (dc_layout>0): xchar_code:=oct"005";
+ else: xchar_code:=oct"175";
+ fi;
+iff ligs>0: .cmchar "Long Hungarian umlaut accent";
+.beginchar(xchar_code,9u#,min(asc_height#,2x_height#),0);
+z100=(0.5w,x_height); hungarum(100);
+.endchar;
+
+if (dc_layout>0): xchar_code:=oct"004";
+ else: xchar_code:=oct"177";
+ fi;
+iff ligs>0: .cmchar "umlaut accent";
+.beginchar(xchar_code,9u#,min(asc_height#,2x_height#),0);
+z100=(0.5w, x_height);
+umlaut(100);
+.endchar;
+
+if (dc_layout>0): xchar_code:=oct"000";
+ else: xchar_code:=oct"022";
+ fi;
+iff ligs>0: .cmchar "grave accent";
+.beginchar(xchar_code,9u#,min(asc_height#,2x_height#),0);
+z100=(0.5w, x_height);
+grave(100);
+.endchar;
+
+if (dc_layout>0): xchar_code:=oct"001";
+ else: xchar_code:=oct"023";
+ fi;
+iff ligs>0: .cmchar "acute accent";
+.beginchar(xchar_code,9u#,min(asc_height#,2x_height#),0);
+z100=(0.5w, x_height);
+acute(100);
+.endchar;
+
+if (dc_layout>0): xchar_code:=oct"002";
+ else: xchar_code:=oct"136";
+ fi;
+iff ligs>0: .cmchar "hat accent";
+.beginchar(xchar_code,9u#,min(asc_height#,2x_height#),0);
+z100=(0.5w, x_height);
+hat(100);
+.endchar;
+
+.cmchar "Tilde (squiggle) accent";
+if (dc_layout>0): xchar_code:=oct"003";
+ else: xchar_code:=oct"176";
+ fi;
+.beginchar(xchar_code,9u#,min(asc_height#,10/7x_height#+.5dot_size#),0);
+z100=(0.5w,x_height); tilde(100);
+.endchar;
+
+
+
+.cmchar "En dash";
+.beginchar(en_dash,9u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(0,0);
+pickup rule.nib;
+ pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Em dash";
+.beginchar(em_dash,18u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(letter_fit#,letter_fit#);
+pickup rule.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Hash mark (number sign)";
+if monospace: compute_spread(.6x_height#,.7x_height#);
+else: compute_spread(.45x_height#,.55x_height#); fi
+.beginchar("#",15u#,asc_height#,asc_depth#);
+italcorr (math_axis#+.5(spread#+rule_thickness#))*slant-.5u#;
+.adjust_fit(0,0);
+pickup rule.nib; lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
+y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
+draw z1--z2; % upper bar
+draw z3--z4; % lower bar
+lft x6=hround 3u; rt x7=hround(w-3u); x5-x6=x7-x8;
+x8=good.x if monospace: .6 else: .5 fi\\w;
+top y5=top y7=h+eps; bot y6=bot y8=-d-eps;
+y15=y1; z15=whatever[z5,z6]; y36=y3; z36=whatever[z5,z6];
+y27=y2; z27=whatever[z7,z8]; y48=y4; z48=whatever[z7,z8];
+draw z5--if x5>x6+1:(good.x(x15+.5),y1)--(good.x(x15-.5),y1)
+ --(good.x(x36+.5),y3)--(good.x(x36-.5),y3)--fi\\z6; % left diagonal
+draw z7--if x7>x8+1:(good.x(x27+.5),y2)--(good.x(x27-.5),y2)
+ --(good.x(x48+.5),y4)--(good.x(x48-.5),y4)--fi\\z8; % right diagonal
+labels(1,2,3,4,5,6,7,8,15,27,36,48); .endchar;
+
+.cmchar "Per cent sign";
+.beginchar("%",15u#,
+ body_height#,body_height#-asc_height#);
+italcorr if hefty: .4asc_height#*slant-.5u# else: h#*slant-u# fi;
+.adjust_fit(0,0); pickup fine.nib;
+numeric left_curve,right_curve;
+left_curve=hround 5/6[fudged.hair,fudged.stem];
+right_curve=max(fine.breadth,hround(fudged.hair if hefty:-2stem_corr fi));
+pos1(vair,90); pos2(left_curve,180); pos3(vair,270); pos4(right_curve,360);
+top y1r=h; lft x2r=hround u; rt x4r=hround(.5w-1.5u);
+bot y3r=floor(if monospace: .7 else: .5 fi\\ asc_height);
+x1=x3=.5[x2,x4]; y2=y4=.5[y1,y3];
+filldraw stroke pulled_super_arc.e(1,2)(superpull)
+ & pulled_super_arc.e(2,3)(superpull); % left half of upper bowl
+filldraw stroke super_arc.e(3,4) & super_arc.e(4,1); % right half of upper bowl
+pos5(vair,90); pos6(left_curve,180); pos7(vair,270); pos8(right_curve,360);
+bot y7r=-d; rt x8r=hround(w-u); lft x6r=hround(.5w+1.5u);
+top y5r=vround(if monospace: .3 else: .5 fi\\ asc_height);
+x5=x7=.5[x6,x8]; y6=y8=.5[y5,y7];
+filldraw stroke pulled_super_arc.e(5,6)(superpull)
+ & pulled_super_arc.e(6,7)(superpull); % left half of lower bowl
+filldraw stroke super_arc.e(7,8) & super_arc.e(8,5); % right half of lower bowl
+pickup rule.nib; top y9=h; bot y10=-d;
+if hefty: x9=good.x(x5-eps); x10=good.x(x1+eps);
+ draw z9--z10; % diagonal
+else: rt x9=hround(w-2.5u); lft x10=hround 2.5u; draw z9--z10; % diagonal
+ pickup fine.nib; pos9(rule_thickness,angle(z9-z10)+90);
+ pos11(vair,angle(z1r-z4r)-90); pos12(vair,angle(z9-z10)+90);
+ path p; p=super_arc.r(1,4); z11r=point 2/3 of p; z12r=z9r;
+ filldraw stroke z11e{direction 2/3 of p}...{z9-z10}z12e; fi % link
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12); .endchar;
+
+.cmchar "Left parenthesis";
+.beginchar("(",7u# if monospace: -u# fi,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+rt x1r=rt x3r=hround(w-u); lft x2l=hround(x1-4u if monospace: +4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Right parenthesis";
+.beginchar(")",7u# if monospace: -u# fi,body_height#,paren_depth#);
+italcorr math_axis#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+lft x1l=lft x3l=hround u; rt x2r=hround(x1+4u if monospace: -4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Asterisk";
+.beginchar("*",9u#,
+ if low_asterisk:math_axis#+.5x_height# else: body_height# fi,0);
+italcorr h#*slant-.75u#;
+.adjust_fit(0,0);
+numeric ast_flare; ast_flare=hround .7[thin_join,stem];
+x0=.5w; y0=h-.5x_height;
+for d=-150 step 60 until 150: z[d]=z0+.5dir d xscaled 7.5u yscaled x_height;
+ numeric theta; theta=angle(z[d]-z0);
+ fill z0+.5(0,-thin_join)rotated theta
+ ---z[d]+.5(-ast_flare,-ast_flare)rotated theta
+ ..z[d]..z[d]+.5(-ast_flare,ast_flare)rotated theta
+ ---z0+.5(0,thin_join)rotated theta--cycle; endfor % diagonal at angle |d|
+labels(0,[-150],[-90],[-30],30,90,150); .endchar;
+
+.cmchar "Plus sign";
+beginarithchar("+"); pickup rule.nib;
+x1=x2=good.x .5w; top y1=h+eps; .5[y1,y2]=math_axis;
+lft x3=hround u-eps; x4=w-x3; y3=y4=math_axis;
+draw z1--z2; % stem
+draw z3--z4; % crossbar
+labels(1,2,3,4); .endchar;
+
+.cmchar "Virgule (slash)";
+.beginchar("/",9u#,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+rt x1=hround(w-u)+eps; top y1=h+eps;
+lft x2=hround u-eps; bot y2=-d-eps;
+draw z1--z2; % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Backslash";
+.beginchar("\",9u#,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+rt x1=hround(w-u)+eps; top y1=h+eps;
+lft x2=hround u-eps; bot y2=-d-eps;
+draw (z1--z2) reflectedabout ((4.5u,0),(4.5u,u)); % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Equals sign";
+compute_spread(.45x_height#,.55x_height#);
+.beginchar("=",14u#,v_center(spread#+rule_thickness#));
+italcorr h#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
+y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
+draw z1--z2; % upper bar
+draw z3--z4; % lower bar
+labels(1,2,3,4); .endchar;
+
+.cmchar "Left bracket";
+numeric wd#; wd#=max(5u#,6u#);
+.beginchar("[",wd#,body_height#,paren_depth#);
+italcorr body_height#*slant;
+.adjust_fit(0,0);
+numeric top_thickness,side_thickness;
+if hefty: top_thickness=vair;
+ side_thickness=max(crisp.breadth,stem-2stem_corr);
+else: top_thickness=side_thickness=rule_thickness; fi;
+pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0);
+top y1=h; bot y2=-d; lft x1l=lft x2l=hround(2.5u-.5side_thickness)-1-eps;
+filldraw stroke z1e--z2e; % stem
+pos3(top_thickness,90); pos4(top_thickness,90);
+pos5(top_thickness,90); pos6(top_thickness,90);
+x3=x5=x1l; rt x4=rt x6=ceiling(w-.4u)+eps; y3r=y4r=y1; y5l=y6l=y2;
+filldraw stroke z3e--z4e; % upper bar
+filldraw stroke z5e--z6e; % lower bar
+penlabels(1,2,3,4,5,6); .endchar;
+
+.cmchar "Right bracket";
+numeric wd#; wd#=max(5u#,6u#);
+.beginchar("]",wd#,body_height#,paren_depth#);
+italcorr body_height#*slant-2u#+.5if hefty:stem# else:rule_thickness# fi;
+.adjust_fit(0,0);
+numeric top_thickness,side_thickness;
+if hefty: top_thickness=vair;
+ side_thickness=max(crisp.breadth,stem-2stem_corr);
+else: top_thickness=side_thickness=rule_thickness; fi;
+pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0);
+top y1=h; bot y2=-d; rt x1r=rt x2r=hround(w-2.5u+.5side_thickness)+1+eps;
+filldraw stroke z1e--z2e; % stem
+pos3(top_thickness,90); pos4(top_thickness,90);
+pos5(top_thickness,90); pos6(top_thickness,90);
+x3=x5=x1r; lft x4=lft x6=floor .4u-eps; y3r=y4r=y1; y5l=y6l=y2;
+filldraw stroke z3e--z4e; % upper bar
+filldraw stroke z5e--z6e; % lower bar
+penlabels(1,2,3,4,5,6); .endchar;
+
+
+cmchar "Exclamation point";
+beginchar("!",5u#,asc_height#,0);
+italcorr asc_height#*slant-2u#-.5width_adj#+.5dot_size#;
+adjust_fit(0,0);
+pointpoint;
+pickup tiny.nib; pos103(dot_size,0); pos104(dot_size,90);
+lft x103l=hround(.5w-.5dot_size); bot y104l=0; z103=z104; % dot
+numeric bot_width;
+bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi;
+pickup fine.nib; pos101(dot_size,0); pos102(bot_width,0);
+x101=x102=x103; bot y102=.25[top y104r,x_height]+1;
+if square_dots: top y101=h;
+ filldraw stroke z101e--z102e; % stem
+else: top z100=(x101,h+o); y101+.5dot_size=h+o;
+ filldraw z101r...z100...z101l---z102l--z102r---cycle; fi % stem and bulb
+penlabels(0,1,2,3,4); endchar;
+
+cmchar "Question mark";
+beginchar("?",8.5u#,asc_height#,0);
+italcorr .8asc_height#*slant;
+adjust_fit(0,0);
+pointpoint;
+pickup tiny.nib; pos107(dot_size,0); pos108(dot_size,90);
+lft x107l=hround(.5w-.25u-.5dot_size); bot y108l=0; z107=z108; % dot
+numeric bot_width;
+bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi;
+pickup fine.nib; pos102(vair,90); pos103(curve,0);
+pos104(vair,-90); pos105(bot_width,0); pos106(bot_width,0);
+x102=x104=x105=x106=x107; rt x103r=hround(w-u); bot y106=1+.25[top y108r,x_height];
+top y102r=h+oo; y103=.75[y106,y102]; y104=.5[y106,y102]; y105=.1[y106,y102];
+{{interim superness:=more_super;
+filldraw stroke pulled_super_arc.e(102,103)(superpull)
+ & subpath (0,1) of super_arc.e(103,104) .. z105e---z106e\\}}; % arc and stem
+if serifs: pos101(hair,180); pos100(flare,180);
+ lft x101r=hround u; y101=y103; bulb(102,101,100); % bulb
+else: pos101(Vround 5/7[vair,flare],110);
+ lft x101r=hround u; top y101r=vround .9[y106,top y102r];
+ filldraw stroke term.e(102,101,left,101,104); fi % terminal
+penlabels(0,1,2,3,4,5,6,7,8); endchar;
+
+
+cmchar "Ampersand";
+beginchar("&",14u#,asc_height#,0);
+italcorr x_height#*slant-serif_fit# - if serifs: .4u# else: 1.5u# fi;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos2(slab,-90); x2=4u; bot y2r=-o;
+if not hefty:(x,y2l)=whatever[z2r,(w-5u,x_height)]; x2l:=x; fi
+if serifs: pos0(fudged.hair,0);
+ rt x0r+jut=hround(w-.9u); top y0=x_height;
+ pos1(fudged.hair,0); z1=whatever[z0,(.6[x0,x2],0)];
+ y1=max(y0-1.5bracket-.2x_height,2/3x_height);
+ filldraw stroke z0e---z1e...{left}z2e; % short diagonal
+else: pickup fine.nib; pos1(.25[slab,flare],-15); rt x1r=hround(w-2u);
+ y1r=good.y .75[bar_height,x_height]; x1l:=good.x x1l; y1l:=good.y y1l;
+ top z2'l=(x2l,tiny.top y2l); bot z2'r=(x2r,tiny.bot y2r);
+ filldraw stroke term.e(2',1,right,1,4); fi % short diagonal and terminal
+pickup tiny.nib; numeric slope,theta,reduced_hair;
+slope=(h-2vair-slab)/10.5u; theta=angle(-slope,1);
+reduced_hair=max(tiny.breadth,hround(fudged.hair if hefty:-2stem_corr fi));
+lft x3r=hround .75u; x5=.5[x3r,x6l]; lft x6r=hround .5(w-u);
+x3l-x3r=curve-tiny; pos6(reduced_hair,180);
+pos5(vair,theta); y5=.5h;
+ellipse_set(2l,3l,4l,5l); ellipse_set(2r,3r,4r,5r);
+pos7(vair,270); top y7l=h+o; x7=.45[x6r,x8r];
+pos8(fudged.stem,30); x8l=good.x(x8l+3.5u-x8); y8r=y6;
+ellipse_set(7l,6l,5',5l);
+filldraw stroke z2e{left}...z3e{up}...z4e---z5e...{up}z6e
+ ...z7e{left}...z8e{down}; % bowls
+pos10(slab,90); x10=w-3.5u; bot y10l=-o;
+pos9(fudged.stem,angle(z8-z10)-90);
+z9=.5[z8,z10]+(1.75u,0) rotated(angle(z8-z10)+90);
+filldraw stroke z8e{down}...z9e{z10-z8}...{right}z10e; % long diagonal
+if serifs: pickup crisp.nib; pos10'(slab,90); z10'=z10;
+ pos11(fudged.hair,180); rt x11l=hround(w-u); y11=.5bar_height;
+ filldraw stroke z10'e{right}...{up}z11e; % terminal
+ numeric inner_jut; if rt x6l+.5u<lft x0l-1.5jut: inner_jut=1.5jut;
+ else: rt x6l+.5u=lft x0l-inner_jut; fi
+ dish_serif(0,1,a,.6,inner_jut,b,.5,jut)(dark); % serif
+else: pickup fine.nib; pos10'(slab,90); z10'=z10;
+ pos11(Vround .5[slab,flare],90);
+ rt x11=hround(r-letter_fit-u); bot y11l=vround .07bar_height-o;
+ filldraw stroke term.e(10',11,right,1,4); fi % terminal
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar;
+
+
+cmchar "Left curly brace";
+beginchar(oct"173",9u#,body_height#,paren_depth#);
+italcorr body_height#*slant+.5vair#-u#;
+adjust_fit(0,0); pickup fine.nib;
+forsuffixes $=1,1',4,4',7,7': pos$(vair,0); endfor
+forsuffixes $=2,3,5,6: pos$(stem,0); endfor
+x2=x3=x5=x6; x1=x1'=x7=x7'=w-x4=w-x4';
+lft x4l=hround(1.5u-.5vair); lft x2l=hround(.5w-.5stem);
+top y1=h; bot y7=-d; .5[y4,y4']=.5[y1,y7]=.5[y2,y6]=.5[y3,y5];
+y1-y2=y3-y4=(y1-y4)/4; y1-y1'=y4-y4'=y7'-y7=vair-fine;
+filldraw z1l{left}...z2l---z3l...{left}z4l
+ --z4'l{right}...z5l---z6l...{right}z7l
+ --z7r--z7'r{left}...z6r---z5r...{left}.5[z4r,z4'r]{right}
+ ...z3r---z2r...{right}z1'r--z1r--cycle; % stroke
+penlabels(1,2,3,4,5,6,7); endchar;
+
+
+cmchar "Right curly brace";
+beginchar(oct"175",9u#,body_height#,paren_depth#);
+italcorr math_axis#*slant+.5vair#-u#;
+adjust_fit(0,0); pickup fine.nib;
+forsuffixes $=1,1',4,4',7,7': pos$(vair,0); endfor
+forsuffixes $=2,3,5,6: pos$(stem,0); endfor
+x2=x3=x5=x6; x1=x1'=x7=x7'=w-x4=w-x4';
+rt x4r=hround(w-1.5u+.5vair); rt x2r=hround(.5w+.5stem);
+top y1=h; bot y7=-d; .5[y4,y4']=.5[y1,y7]=.5[y2,y6]=.5[y3,y5];
+y1-y2=y3-y4=(y1-y4)/4; y1-y1'=y4-y4'=y7'-y7=vair-fine;
+filldraw z1r{right}...z2r---z3r...{right}z4r
+ --z4'r{left}...z5r---z6r...{left}z7r
+ --z7l--z7'l{right}...z6l---z5l...{right}.5[z4l,z4'l]{left}
+ ...z3l---z2l...{left}z1'l--z1l--cycle; % stroke
+penlabels(1,2,3,4,5,6,7); endchar;
+
+
+cmchar "Vertical line";
+beginchar(oct"174",5u#,body_height#,paren_depth#);
+italcorr body_height#*slant+.5rule_thickness#-2u#;
+adjust_fit(0,0); pickup rule.nib;
+x1=x2=good.x .5w; top y1=h+eps; bot y2=-d-eps;
+draw z1--z2; % stem
+labels(1,2); endchar;
+
+
+
+cmchar "Sterling sign";
+beginchar(oct"277",12u#,asc_height#,0);
+adjust_fit(0,.75asc_height#*slant-.5u#); pickup fine.nib;
+pos0(flare,0); pos1(hair,0); pos2(vair,90); pos3(stem,180);
+pos4(stem,180); pos4'(stem,0); pos5(vair,-90); z4'=z4;
+x2=2/3w-.5u; rt x3l=rt x4l=hround(.5w-u+.5stem); x5=2.5u;
+y1=y3=.75h; top y2=h+oo; y4=.25h; bot y5r=-oo;
+rt x1r=hround(w-1.5u); bulb(2,1,0); % bulb
+filldraw stroke pulled_arc.e(2,3)..z4e; % stem
+numeric light_stem; light_stem=2/3[vair,vstem];
+pos6(.5[hair,light_stem],-180); pos7(light_stem,-300);
+pos8(light_stem,-300); pos9(hair,-180);
+lft x6r=hround u; x7=3u; x8=w-3.5u; rt x9r=hround(w-u);
+y6=.4[y5,y7]; top y7r=vround .2h; bot y8l=-oo; y9=good.y .2h;
+filldraw stroke pulled_arc.e(4',5)...z6e{up}...z7e{right}
+ ..{right}z8e...{up}z9e; % loop and arm
+pos10(bar,90); pos11(bar,90); x10=3u; x11=w-4.5u;
+top y10r=top y11r=vround(.5h+.5bar); filldraw stroke z10e--z11e; % bar
+penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar;
+
+
diff --git a/fonts/gothic/cmfrak/cmfrakupp.mf b/fonts/gothic/cmfrak/cmfrakupp.mf
new file mode 100644
index 0000000000..6687425d3a
--- /dev/null
+++ b/fonts/gothic/cmfrak/cmfrakupp.mf
@@ -0,0 +1,1749 @@
+
+.cmchar "The Fraktur letter A";
+.beginchar("A",9.522u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+% made in Athens, Greece on Friday July 27, 1990
+penpos1(cap_hair,-51);
+penpos2(cap_hair,-51);
+z2-z1=whatever*dir39;
+x2r=w; z1r=(0.722w,-apex_o);
+penpos4'(cap_hair,39); z4'l=z1l;
+z4'r=z4;
+penpos5(cap_stem,0);
+z5=(x1r,0.223h);
+penpos13(cap_hair,-62); z13r=z5r;
+z13l-z14=whatever*dir26;
+z13r-z14'=whatever*dir26;
+y14=0; y14'=-apex_o;
+z6=whatever[z14',z13r]; x6=x5l;
+filldraw z14--z13l--z13r{down}..
+z2l{z2-z1}--z2r--z1r--z1l--z4--
+z6--z14'--z14 & cycle;
+filldraw z5l--z6--z5r--z5l & cycle;
+z1.1=whatever[z6,z4]; y1.1=y4+cap_hair;
+filldraw z1l{z2-z1}..z1.1{z6-z4}--
+z2--z1r--z1l & cycle;
+%
+%
+%
+penpos7(cap_stem,0); z7=(x5,0.862h);
+penpos8(cap_hair,-57);
+penpos9(cap_hair,-57);
+z8l=z7l; z9-z8=whatever*dir33;
+y9=h; z10=(0.937w,h+apex_o);
+z11=(0.99w,0.981h); z12=(0.953w,0.955h);
+z9'=whatever[z8r,z9r];
+x9'=0.4[x7r,x9r];
+penstroke z5e--z7e;
+filldraw z7r{up}..z9'{z9-z8}--
+z9r..z12{right}..z11{up}..z10{left}
+...z9l---z8l--z7r & cycle;
+%
+%
+%
+penpos15(cap_hair,-90); z15=(0,0.213h);
+z15r-z16=whatever*dir137;
+x16=0.936x14; z17=whatever[z14,z13l];
+x17=0.392w;
+penpos18(cap_hair,-43);
+z18-z17=whatever*dir133;
+y18r=y15l; penpos19(0.815cap_stem,0);
+x19=0.5w; y19=0.521h;
+z14''=(x14'-cap_hair,0);
+filldraw z15l{right}..z18l..z19l{up}
+--z19r{down}..z18r{dir-162}--
+z17--z14''{dir72}...z16---z15r--
+z15l & cycle;
+%
+%
+%
+penpos20'(1.037cap_stem,29.5);
+z20'=(0.405w,0.846h);
+penpos20(0.889cap_stem,50);
+z20=(x18r,0.904h);
+penpos21(1.25cap_hair,180);
+z21r=(0,3/4h);
+penpos22(1.148cap_stem,-162);
+z22l=(x20,0.678h);
+penpos23(cap_hair,180);
+z23=(0.284w,0.535h);
+penpos24(0.685cap_stem,66.6);
+z24l=(x22,0.367h);
+z25=(0.027w,0.426h); z26=(0.079w,0.473h);
+penstroke z19e{up}..z20'e{dir135}..
+z20e{left}..z21e{down}..z22e{dir-45}
+..z23e{down}..z24e{left};
+filldraw z24l{left}..z25{up}..z26{right}
+..z24r{right}--z24l & cycle;
+ last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter A ogonek";
+.beginchar(oct"201",9.522u#,cap_height#,0.2x_height#);
+currentpicture:=last_char;
+z100=(0.9w,0); ogonek(100);
+.endchar;
+
+.cmchar "The Fraktur letter A Umlaut";
+.beginchar(oct"304",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter A breve";
+.beginchar(oct"200",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); breve(100);
+.endchar;
+
+.cmchar "The Fraktur letter A tilde";
+.beginchar(oct"303",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); tilde(100);
+.endchar;
+
+.cmchar "The Fraktur letter A o-Umlaut";
+.beginchar(oct"305",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); o_umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter A acute";
+.beginchar(oct"301",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter A grave";
+.beginchar(oct"300",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); cap_grave(100);
+.endchar;
+
+.cmchar "The Fraktur letter A hat";
+.beginchar(oct"302",9.522u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hat(100);
+.endchar;
+
+
+.cmchar "The Fraktur ligature Ae";
+.beginchar(oct"306",9.522u#+3u#,cap_height#,0)
+currentpicture:=last_char;
+addto currentpicture also small_letter_e shifted (8u,0);
+.endchar;
+
+
+.cmchar "The Fraktur ligature Ae";
+if (dc_layout>0): xchar_code:=oct"306";
+ else: xchar_code:=oct"035";
+ fi;
+.beginchar(xchar_code,9.522u#+3u#,cap_height#,0)
+currentpicture:=last_char;
+addto currentpicture also small_letter_e shifted (8u,0);
+.endchar;
+
+.cmchar "The Fraktur letter B";
+.beginchar("B",12.415u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.045w,0.096h); z2=(0.081w,0.141h);
+z3=(0,0.165h); z4=(x1,0.213h);
+penpos5(cap_stem,-142);
+z5=(0.179w,0.301h);
+penpos6(1.259cap_stem,-147);
+z6r=(0.538w,-apex_o);
+penpos7(cap_hair,-65);
+z7=(0.775w,0.103h);
+penpos8(0.907cap_stem,30);
+z8r=(w,0.4h);
+penpos9(1.741cap_stem,27);
+z9l=(x6r,0.6h);
+filldraw z1{right}..z2{up}..z4 &
+z4..z5r{right}..z6r{right} &
+z6r---z7r...z8r{up}..z9r{left}--
+z9l{right}..z8l{down}..z7l..z6l{left}
+..z5l{left}..z3{down}..z1{right} &
+cycle;
+%
+%
+%
+penpos10(1.222cap_stem,-153);
+z10r=0.883[z9l,z9r];
+penpos11(2/3cap_hair,-63);
+z11r=whatever[z9,z10]; x11=x10l+cap_hair;
+penpos13(1.056cap_stem,-125);
+z13l=(0.691w,h);
+z12=(z13l{right}..z10l{dir-63})
+intersectionpoint ((x10l-1.5hair,0)--
+(x10l-1.5hair,h));
+penpos14(cap_hair,0);
+penpos16(0.889cap_stem,17); z16r=z9l;
+z14=(x16,0.686h);
+filldraw z14l{dir78}..z13l{right}..z12..
+z11l{z10-z9}--z11r--z10r{dir117}..
+z13r{left}..{dir258}z14r--z14l & cycle;
+%
+%
+%
+penpos15'(cap_hair,-90);
+z15'l=z5l;
+penpos15(0.889cap_stem,0);
+z14-z15=whatever*dir85; y15=y5l+2cap_hair;
+penpos17(cap_stem,76);
+z17r=(0.256w,h+apex_o);
+penpos18(cap_hair,180);
+z18=(0.055w,0.745h);
+penpos19(1.185cap_stem,-145);
+z19=(0.148w,0.644h);
+penpos20(cap_hair,197);
+z20=(0.246w,0.548h);
+penpos21(cap_hair,118);
+z21=whatever[(0,0),z17]; x21=0.108w;
+penstroke z15'e{right}
+..z15e..z16e{up}..z17e{left}
+..z18e{down}..z19e{dir-45}..z20e{z20l-z19l}..
+z21e{dir202};
+.endchar;
+
+.cmchar "The Fraktur letter C";
+.beginchar("C",10.406u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.157w,0.08h); z2=(0.211w,0.138h);
+z3=(0.084w,0.141h);
+z5=(0.113w,0.209h); z4=0.4[z3,z5];
+penpos6(cap_hair,180);
+z6r=(0,0.117h); penpos7(cap_hair,-118);
+z7r=(0.189w,-apex_o);
+penpos8(cap_hair,-48);
+z8=(0.469w,0.136h);
+penpos9(1.074cap_stem,36);
+z9=(0.623w,0.367h); z10=(0.5w,0.721h);
+penpos10(0.889cap_stem,30);
+z11'=(0.736w,0.931h);
+z13=(0.803w,0.729h);
+z14=(w,0.777h); penpos11(cap_hair,
+angle(z13-z11'));
+z11l=z11'; z12-z11l=whatever*dir7;
+x12=0.912w; z16'-z12=whatever*(z13-z11);
+z16'=whatever[z13,z14];
+penpos15(cap_hair,angle(z13-z11));
+z15r=z14; z15l-z16=whatever*(z14-z13);
+z16=whatever[z12,z16'];
+penstroke z6e{down}..z7e{right}..
+z8e..z9e{up}..z10e{up}..z11e{z12-z11l};
+filldraw z11l--z12--z16--z15l--z15r
+--z13--z11l & cycle;
+filldraw z6l{up}..z4{right} &
+z4..z3{down}..z1{right}..z2{up}..
+z5{left}..z6r{down}--z6l & cycle;
+%
+%
+%
+penpos17(1.037cap_stem,90);
+z17l=(0.738w,-apex_o);
+penpos18(1.093cap_stem,38);
+z18=(0.17w,0.58h);
+penpos19(1.5cap_hair,-57);
+z19l=(0.45w,h+apex_o);
+penpos20(1.2cap_hair,-197);
+z20=(0.692w,0.824h);
+penpos21(cap_hair,-219);
+z21=(3/4[x9l,x9r],y10);
+penstroke z17e{left}..z18e{up}..
+z19e..z20e{down}..z21e;
+penpos22(cap_hair,-44);
+z22r-z17l=whatever*dir46;
+x22r=w;
+filldraw z17r{right}..z22l{z22r-z17l}
+--z22r--z17l--z17r & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter C cedilla";
+.beginchar(oct"307",10.406u#,cap_height#,0.2x_height#);
+currentpicture:=last_char;
+z100=(0.6w,0); cedilla(100);
+endchar;
+
+.cmchar "The Fraktur letter C acute";
+.beginchar(oct"202",10.406u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+endchar;
+
+
+.cmchar "The Fraktur letter C hacek";
+.beginchar(oct"203",10.406u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hacek(100);
+endchar;
+
+.cmchar "The Fraktur letter D";
+.beginchar("D",12.168u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.073w,-apex_o);
+penpos2(0.6cap_stem,0);
+z2=(x1,0.04h); penpos4(1.204cap_stem,-148);
+z4=(0.229w,0.190h);
+penpos5(1.185cap_stem,-144);
+z5r=(0.545w,-apex_o);
+penpos6(cap_hair,-65); x6=0.787w;
+z6r-z5r=whatever*dir25;
+penpos7(0.815cap_stem,38);
+z7r=(w,0.418h); penpos8(0.926cap_stem,67.5);
+z8r=(0.41w,h+apex_o);
+penpos9(0.537cap_stem,-173);
+z9r=(0,0.685h); penpos10(2/3cap_hair,-90);
+z10=(0.242w,0.53h);
+penstroke z2e{up}..z4e{right}..z5e{right};
+penstroke z6e{dir25}..z7e{up}..z8e{left}
+..z9e{down}..z10e{right};
+filldraw z2l{down}..z1..z2r{up}--z2l
+& cycle;
+filldraw z5l{right}..z6l{dir25}--
+z6r--z5r--z5l & cycle;
+%
+%
+%
+z11=(0.171w,0.389h); z12=(0.197w,0.427h);
+penpos13(cap_hair,-90);
+z13=(x4l,0.3h); penpos14(cap_stem,0);
+z14=(0.462w,0.5[y11,y12]);
+penpos15(1.074cap_stem,34);
+z15=(0.353w,0.655h); z16=(0.488w,0.78h);
+penpos16(cap_hair,-90);
+penstroke z13e{right}..z14e{up}..
+z15e{up}..z16e{right};
+filldraw z11{up}..z12{right}..z13l{right}
+--z13r{left}..z11{up} & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter D with bar (\eth)";
+.beginchar(oct"320",12.168u#,cap_height#,0);
+currentpicture:=last_char; z0=(0,0.45cap_height-0.3u);
+z1=(0.6w,0.45cap_height+0.3u); pickup pensquare scaled 0.7stem;
+draw z0--z1;
+.endchar;
+
+.cmchar "The Fraktur letter D with hacek";
+.beginchar(oct"204",12.168u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+hacek(100);
+.endchar;
+
+.cmchar "The Fraktur letter E";
+.beginchar("E",8.508u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.074cap_stem,62.5);
+z1l=(0.623w,-apex_o);
+penpos2(0.796cap_stem,16);
+z2l=(0,0.485h); penpos3(4/3cap_hair,-90);
+z3l=(0.485w,h+apex_o);
+penpos6(cap_stem,-151.5);
+penpos5(cap_stem,-151.5);
+x6l=w; y5l=h; z6-z5=whatever*dir-37;
+x5l=0.808w;
+penstroke z5e--z6e;
+penpos4(cap_hair,-151.5);
+z4r=z5r; penstroke z3e{right}..
+z4e{z6-z5};
+penpos16(cap_hair,-90);
+z16=(w,0.149h);
+filldraw z1l--z16r--z16l..z1r{left}
+--z1l & cycle;
+penstroke z1e{left}..z2e{up}..z3e{right};
+%
+%
+%
+penpos7(cap_hair,-164); z7=whatever[z2l,z2r];
+x7=0.31w;
+penpos8(0.444cap_stem,-51.5);
+z8=(0.492w,0.393h);
+penpos9(0.796cap_stem,6.5);
+z9=(x1l,y2-eps);
+penpos10(0.963cap_stem,34);
+z10=(0.441w,0.767h);
+penpos11(cap_hair,-37); z11l=z4r;
+penstroke z7e{dir-74}..z8e{right}..
+z9e{up}..z10e{up}..z11e{z5l-z5r};
+%
+%
+%
+penpos12(cap_hair,-55.5);
+z12l=(z9{up}..z10{up})
+intersectionpoint (z9l--(x9l,h));
+z13-z12l=whatever*dir31.5;
+x13=0.854w; penpos14(whatever,0);
+z15=(x13,0.53h); z14r=(w,0.639h);
+z14l-z12r=whatever*(z13-z12l);
+filldraw z12l--z13--z14r--z15--
+z14l--z12r--z12l & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter E ogonek";
+.beginchar(oct"206",8.508u#,cap_height#,0.2x_height#);
+currentpicture:=last_char; z100=(0.8w,0);
+ogonek(100);
+.endchar;
+
+.cmchar "The Fraktur letter E Umlaut";
+.beginchar(oct"313",8.508u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter E acute";
+.beginchar(oct"311",8.508u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+acute(100);
+endchar;
+
+.cmchar "The Fraktur letter E grave";
+.beginchar(oct"310",8.508u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+cap_grave(100);
+endchar;
+
+.cmchar "The Fraktur letter E hat";
+.beginchar(oct"312",8.508u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+hat(100);
+endchar;
+
+.cmchar "The Fraktur letter E hacek";
+.beginchar(oct"205",8.508u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+hacek(100);
+endchar;
+
+
+.cmchar "The Fraktur letter F";
+.beginchar("F",8.213u#,cap_height#,3.010u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(2/3cap_hair,68);
+z1=(0.34w,0.535h); penpos2(cap_hair,0);
+z2l=(0.036w,0.739h);
+penpos3(4/3cap_stem,-150);
+z3l=(0.614w,h+apex_o);
+penpos4(cap_stem,-128); z4l-z3l=whatever*dir-37;
+x4l=w; penpos5(cap_hair,-38);
+x5l=w; z5r=whatever[z4r,z4l];
+penstroke z1e{dir158}..z2e{up}..
+z3e{right};
+z5'=whatever[z3l,z4l]; z5'-z5l=whatever*(z4-z5r);
+filldraw z3l--z5'--z5l--z5r--z4r
+{z3l-z4l}...z3r{left}--z3l & cycle;
+%
+%
+%
+penpos6(cap_hair,-23); penpos7(cap_hair,-90);
+penpos8(0.778cap_stem,-219);
+penpos9(0.741cap_stem,-203);
+penpos10(cap_hair,-90);
+penpos11(cap_stem,17);
+penpos12(1.111cap_stem,30);
+penpos13(eps,-63);
+z6l=(0,0.351h); z7=(x2r+cap_hair,0.44h);
+x8l=x1; y8=0.339h; z9r=(x2l,0);
+z10r=(0.462w,-d); z11l=(0.709w,0);
+z12=(0.542w,0.652h);
+z13=(0.789w,0.821h);
+penstroke z6e{dir67}..z7e{right}..z8e{down}
+..z9e{down}..z10e{right}..z11e{up}..
+z12e{up}..z13e{dir27};
+%
+%
+%
+penpos14(cap_hair,-47);
+penpos15(cap_hair,-47);
+z14=(z11{up}..z12{up}) intersectionpoint
+((0,0.476h)--(w,0.476h));
+z15-z14=whatever*dir43;
+x15l=x4r; penpos16(0.833cap_stem,-137);
+z16l=z15l; penpos17(0.833cap_stem,-137);
+x17l=w; z17-z16=whatever*dir-47;
+penstroke z14e--z15e;
+penstroke z16e--z17e;
+.endchar;
+
+.cmchar "The Fraktur letter G";
+.beginchar("G",10.638u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,0);
+penpos2(0.5cap_stem,90);
+penpos3(cap_stem,180);
+penpos4(cap_hair,-90);
+penpos5(0.926cap_stem,14);
+penpos7(cap_hair,-51);
+penpos9(cap_hair,-51);
+z1=(0.595w,0.739h); z2r=(0.385w,h+apex_o);
+z3r=(0,0.517h); z4r=(0.537w,-apex_o);
+z5r=(w,0.392h); z6=(0.686w,0.628h);
+z7=(x4,0.566h); z9-z7=whatever*dir39;
+x9=0.963w; z8=whatever[z7r,z9r];
+x8=0.817w;
+penstroke z1e{up}..z2e{left}..z3e{down}
+..z4e{right}..z5e{up};
+filldraw z7r{z9-z7}..z6{right}..
+z5l{down}--z5r{up}..z8--z9r--z9l--
+z7l--z7r & cycle;
+%
+%
+%
+penpos11(1.148cap_stem,39);
+penpos12(1.148cap_stem,39);
+z11=whatever[z7l,z9l]; x11=0.856w;
+penpos10(cap_hair,-51);
+z10=whatever[z9l,z9r]; y10l=h+apex_o;
+z12-z11=whatever*dir129;
+z10l-z12=whatever*dir39;
+penpos13(cap_hair,-51); z13l=z12l;
+penstroke z11e--z12e;
+penstroke z13e--z10e;
+%
+%
+%
+penpos14(cap_hair,180); penpos15(0.5cap_stem,-45);
+penpos16(0.796cap_stem,21.5);
+penpos17(0.926cap_stem,43);
+penpos18(cap_hair,-37);
+penpos19(cap_hair,-37);
+z14=(0.3w,0.58h); z15=(0.441w,0.385h);
+z16=(0.5[x7,x1],0.507h);
+z17=(0.385w,0.776h); z18=(0.442w,0.873h);
+z19-z18=whatever*dir53; y19=1.032h;
+penstroke z14e{down}..z15e{right}..
+z16e{up}..z17e{up}...z18e---z19e;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter G with breve";
+.beginchar(oct"207",10.638u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height); breve(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter H";
+.beginchar("H",10.275u#,cap_height#,1.996u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,111);
+penpos2(cap_hair,90);
+penpos3(cap_hair,0);
+penpos8(cap_hair,-45);
+penpos7(cap_hair,-45);
+penpos9(0.889cap_stem,0);
+penpos10(1.222cap_stem,48.5);
+penpos11(cap_hair,132);
+z1=(0.57w,-0.679d);
+z2l=(0.452w,-d); z3=(0.354w,-0.23d);
+z4=(0.503w,0.082h); z5=(0.621w,0.217h);
+z6=(0.71w,0.12h); z8l=(0.592w,-apex_o);
+z7r-z8r=whatever*dir45;
+x7r=0.809w; z9r=(w,0.429h);
+z10=(0.624w,3/4h); %z11=whatever[z1l,z1r];
+z11=(0.28w,0.543h);
+penstroke z1e..z2e{left}..z3e{up};
+filldraw z3r{up}..z4{right}..
+z8l{z8r-z7r}--z8r---z7r...z9r{up}--
+z9l{down}..z7l{z8r-z7r}..z6{left}..
+z5{dir123} & z5{dir211}..z3l{down}--
+z3r & cycle;
+penstroke z9e{up}..z10e{left}..
+z11e{dir222};
+%
+%
+%
+penpos12(1.259cap_stem,-131);
+penpos13(1.2cap_hair,-41);
+penpos14(1.074cap_stem,25);
+penpos15(cap_hair,-41);
+penpos18(cap_hair,-36);
+z12r=(0,0.141h); y13=0.2h; x13l=x11;
+z14=z11; z15=(x11,0.845h);
+z16=(0.478w,h); z17=(0.516w,0.837h);
+z18r-z17=whatever*dir54;
+y18r=h+apex_o;
+penstroke z12e{dir-41}..z13e{dir49}
+..z14e..z15e{dir49};
+filldraw z15r{dir49}..z17--z18r--
+z18l{z17-z18r}..z16{left}..z15l
+{dir229}--z15r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter I";
+.beginchar("I",8.541u#,cap_height#,2.497u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,28);
+penpos2(cap_hair,-17.5);
+penpos3(0.889cap_stem,-116);
+penpos4(cap_stem,-126);
+penpos5(cap_hair,-44);
+penpos6(1.056cap_stem,53);
+penpos7(1.056cap_stem,21);
+penpos8(cap_hair,-90);
+penpos9(cap_hair,180);
+z1=(0.115w,-0.886d); z2r=(x1,-0.519d);
+z3=(0.234w,-0.1d); z4r=(0.517w,-d);
+z5=(0.795w,-0.329d); z6r=(0.966w,0.196h);
+z7=(0.636w,0.56h); z8=(0.808w,0.683h);
+z9l=(x6r,0.554h);
+penstroke z1e..z2e{up}..z3e{right}
+..z4e{right}..z5e..z6e{up}..z7e{up}
+..z8e{right}..z9e{down};
+%
+%
+%
+penpos10(1.037cap_stem,50);
+penpos11(cap_hair,-45);
+penpos12(0.889cap_stem,43);
+penpos13(1.185cap_stem,-146);
+penpos14(0.741cap_stem,-119);
+penpos15(cap_hair,0);
+penpos16(cap_hair,28);
+z10l=z11r=(0.1w,0.515h);
+z12l=(0,0.69h); z13l=(0.506w,h+apex_o);
+z14r=z8l+(0,0.035h);
+z15r=(w,0.875h); z16=(x15l,0.924h);
+filldraw z11l{z12r-z11l}..z12l{up}--
+z12r{down}..z10r--z10l--z11l & cycle;
+penstroke z12e{up}..z13e{right}..
+z14e{right}..z15e{up}..z16e{dir118};
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter Ij";
+.beginchar(oct"234",8.541u#+2.944lower_u#,cap_height#,2.497u#);
+currentpicture:=last_char;
+addto currentpicture also small_letter_j shifted (8.541u,-0.1x_height);
+endchar;
+
+
+.cmchar "The Fraktur letter I Umlaut";
+.beginchar(oct"317",8.541u#,cap_height#+0.3x_height#,2.497u#);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+umlaut(100);
+endchar;
+
+.cmchar "The Fraktur letter I dot";
+.beginchar(oct"235",8.541u#,cap_height#+0.3x_height#,2.497u#);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+pointaccent(100);
+endchar;
+
+.cmchar "The Fraktur letter I grave";
+.beginchar(oct"314",8.541u#,cap_height#+0.3x_height#,2.497u#);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+cap_grave(100);
+endchar;
+
+.cmchar "The Fraktur letter I hat";
+.beginchar(oct"316",8.541u#,cap_height#+0.3x_height#,2.497u#);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+hat(100);
+endchar;
+
+.cmchar "The Fraktur letter I acute";
+.beginchar(oct"315",8.541u#,cap_height#+0.3x_height#,2.497u#);
+currentpicture:=last_char; z100=(0.5w,cap_height);
+acute(100);
+endchar;
+
+.cmchar "The Fraktur letter J";
+.beginchar("J",8.541u#,cap_height#,2.497u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,28);
+penpos2(cap_hair,-17.5);
+penpos3(0.889cap_stem,-116);
+penpos4(cap_stem,-126);
+penpos5(cap_hair,-44);
+penpos6(1.056cap_stem,53);
+penpos7(1.056cap_stem,21);
+penpos8(cap_hair,-90);
+penpos9(cap_hair,180);
+z1=(0.115w,-0.886d); z2r=(x1,-0.519d);
+z3=(0.234w,-0.1d); z4r=(0.517w,-d);
+z5=(0.795w,-0.329d); z6r=(0.966w,0.196h);
+z7=(0.636w,0.56h); z8=(0.808w,0.683h);
+z9l=(x6r,0.554h);
+penstroke z1e..z2e{up}..z3e{right}
+..z4e{right}..z5e..z6e{up}..z7e{up}
+..z8e{right}..z9e{down};
+%
+%
+%
+penpos10(1.037cap_stem,50);
+penpos11(cap_hair,-45);
+penpos12(0.889cap_stem,43);
+penpos13(1.185cap_stem,-146);
+penpos14(0.741cap_stem,-119);
+penpos15(cap_hair,0);
+penpos16(cap_hair,28);
+z10l=z11r=(0.1w,0.515h);
+z12l=(0,0.69h); z13l=(0.506w,h+apex_o);
+z14r=z8l+(0,0.035h);
+z15r=(w,0.875h); z16=(x15l,0.924h);
+filldraw z11l{z12r-z11l}..z12l{up}--
+z12r{down}..z10r--z10l--z11l & cycle;
+penstroke z12e{up}..z13e{right}..
+z14e{right}..z15e{up}..z16e{dir118};
+.endchar;
+
+.cmchar "The Fraktur letter K";
+.beginchar("K",9.478u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+cap_stem:=0.95cap_stem;
+%cap_hair:=0.95cap_hair;
+z1=(0,0.182h); z2=(0.177w,0.207h);
+z3=(0.033w,-apex_o);
+penpos4(cap_hair,-90);
+z4=(0.282w,0.045h); penpos5(cap_hair,0);
+z5=(0.4w,0.136h); z7=(0.434w,0.227h);
+z7'=(0.328w,0.556h);
+z8=(0.197w,0.732h); z6=(0.052w,0.566h);
+penpos9(1.25cap_hair,-90);
+z9l=(0.561w,h+apex_o);
+penpos9'(cap_hair,180);
+z9'l=(w-apex_o,0.707h);
+penpos10(cap_hair,140); z10=(0.813w,0.492h);
+filldraw z1--z3{dir30}..z4r{right}
+..z5r..z7{up}..z7'..z8{up}..z9r{right}
+--z9l{left}..z6{down} & z6{dir-52}
+..z5l..z4l{left}..z2{up}--z1 & cycle;
+penstroke z9e{right}..z9'e{down}..
+z10e;
+%
+%
+%
+penpos12(cap_hair,-78);
+penpos11(cap_hair,-78);
+z12l-z7'=whatever*dir12;
+z7'-z11l=whatever*dir12;
+x12=x10; x11=0.243w;
+penstroke z11e--z12e;
+penpos13(cap_hair,12); z13r=z7';
+penpos14(0.463cap_stem,-116);
+z14=(0.492w,0.8h);
+penpos16(1.074cap_stem,-168);
+z16=whatever[z11l,z12l]; x16l=x12-cap_hair;
+z12-z15=whatever*dir-78;
+penpos15(cap_hair,-78);
+y15=0.823h; z17-z15r=whatever*(z12-z11);
+z16l-z17=whatever*(z12-z15);
+filldraw z13r{dir102}..z14r{right}
+..z16r{dir-78}--z16l--z17--z15r--
+z15l{z13-z12}..z14l{left}..z13l{dir-78}
+--z13r & cycle;
+%
+%
+%
+penpos18(1.053cap_stem,-168);
+z18=0.5[z12r,z11r];
+penpos18'(1.053cap_stem,-168);
+z19=(0.767w,-apex_o); penpos21(cap_hair,-90);
+z21r-z19=whatever*dir45; x21=w;
+z20=(0.869w,0.149h);
+z18'-z18=whatever*dir-70; x18'l=x15;
+filldraw z18r---z18'r...z19--z21r--
+z21l{z19-z21r}..z20{left}...z18'l
+---z18l--z18r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter L";
+.beginchar("L",6.131u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+cap_stem:=1.022cap_stem;
+penpos1(cap_hair,0); penpos2(cap_hair,-60);
+penpos3(1.056cap_stem,30);
+penpos4(cap_stem,23); penpos5(0.481cap_stem,-67);
+penpos6(cap_hair,-149);
+penpos7(whatever,-140);
+penpos8(cap_hair,-147);
+penpos9(cap_hair,-90); penpos10(cap_hair,0);
+z1l=(0,0.082h); z2=(0.15w,0.207h);
+z3=(0.453w,0.37h); z4l=(0,0.731h);
+z5l=(0.539w,h+apex_o);
+z6=(0.829w,0.886h); z7l=(0.933w,0.739h);
+x7r=x3r;
+z8=(0.658w,0.53h); z9=(x6,0.476h);
+z10=(x7l,0.543h);
+penstroke z1e{up}..z2e..z3e{up}..
+z4e{up}..z5e{right}..z6e..z7e{down}
+..z8e..z9e{right}..z10e{up};
+%
+%
+%
+z11=(0.109w,0.111h); z13=(0.539w,-apex_o);
+z12=(0.731w,y11); penpos14(cap_hair,-21);
+z14r=(w,0.223h);
+z15'-z11=whatever*(z12-z13); x15'=w;
+z15=(z1{up}..z2..z3{up}) intersectionpoint
+((0.238w,0)--(0.238w,h));
+filldraw z1r{up}..z11{right}..z13{dir-25}
+& z13{dir25}..z14r{dir69}--z14l{dir249}
+..z12{left}..z15{left}& z15..z2..
+z1{down}--z1r & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter L with bar";
+.beginchar(oct"212",6.131u#,cap_height#,0);
+currentpicture:=last_char; z100=(0,0.40cap_height); ellbar(100);
+.endchar;
+
+.cmchar "The Fraktur letter L with acute";
+.beginchar(oct"210",6.131u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char; z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter M";
+.beginchar("M",13.432u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,-40); penpos2(cap_hair,-40);
+z1=(0.067w,0.035h); z2-z1=whatever*dir50;
+x2=0.176w; z3=(1/5w,-apex_o);
+penpos4(cap_hair,-41.5);
+z4r-z3=whatever*dir48.5;
+z4=whatever[z2l,z2r];
+penpos5(1.3cap_stem,48);
+% ant'i 1.111 pou j'aprepe n'anai
+z5=(0.4w,0.394h); penpos6(0.778cap_stem,44);
+z6=(0.148w,0.915h); penpos7(cap_hair,180);
+z7r=(0,0.782h); penpos8(1.111cap_stem,-147);
+z8l=(x6,0.649h); penpos9(2.2cap_hair,-171.5);
+penpos10(cap_hair,90); z9r=(x2l,0.46h);
+z10=(0.122w,0.378h); penpos11(cap_hair,58);
+z11=(0.047w,0.418h);
+z1'=whatever[z1r,z2r]; x1'=x1r+0.014117w;
+filldraw z1l--z2l--z4r--z3--z1'--z1r
+--z1l & cycle;
+penstroke z4e{z4r-z3}..z5e{up}..
+z6e{left}..z7e{down}..z8e..z9e{down}
+..z10e{left}..z11e;
+%
+%
+%
+penpos12(cap_hair,-40); penpos13(cap_hair,-40);
+z12=(0.329w,0.024h); z13-z12=whatever*dir50;
+x13=x5r; z13'=(0.466w,-apex_o);
+penpos14(cap_hair,-40); z14r-z13'=whatever*dir48;
+z14=whatever[z13l,z13r];
+penpos15(1.5cap_stem,-50);
+penpos16(0.741cap_stem,48);
+penpos17(cap_hair,180);
+z15=(0.647w,0.548h);
+x16=0.424w; y16r=h+apex_o;
+z17=(0.306w,0.843h);
+penstroke z12e--z13e;
+z12'=whatever[z12r,z13r]; x12'=x12r+0.014117w;
+filldraw z12'--z13'--z14r--z13l--
+z12' & cycle;
+penstroke z14e{z14r-z13'}..z15e{up}
+..z16e{left}..z17e{dir251};
+%
+%
+%
+penpos18(cap_hair,-46); penpos19(cap_hair,-46);
+penpos20(1.13cap_stem,37);
+penpos21(0.852cap_stem,-15);
+penpos22(cap_hair,-72);
+z18r=(0.814w,-apex_o);
+z19-z18=whatever*dir44;
+x19r=w; z20=(x18-eps,0.34h);
+z21=(x18r+eps,0.556h);
+z22=(0.906w,0.609h);
+z20'=0.7[z18l,z19l];
+penstroke z18e--z19e;
+filldraw z18l{up}..z20l{up}..z21l--
+z22l--z22r{z21l-z22l}..z21r..
+z20r{down}..z20'{dir-35}--z18l
+& cycle;
+%
+%
+%
+penpos23(1.148cap_stem,53);
+penpos24(0.944cap_stem,12);
+penpos27(2/3cap_hair,90);
+z23r=(w,0.670h); z24=(0.871w,0.84h);
+z25=(0.715w,0.947h); z26=(x25,0.87h);
+z27=(0.621w,0.824h);
+filldraw z23r{dir124}..z24r%{dir124}
+...z25---z27r--z27l{z25-z27r}..
+z26{right}..z24l%{dir-56}
+..z23l{dir-56}
+--z23r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter N";
+.beginchar("N",11.662u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,-45); penpos3(cap_hair,-45);
+penpos4(cap_hair,-90);
+penpos5(0.944cap_stem,0);
+penpos6(0.811cap_stem,64);
+penpos7(cap_hair,180);
+penpos8(1.094cap_stem,-132);
+penpos9(cap_hair,180); penpos10(cap_hair,90);
+penpos11(cap_hair,21);
+z1=(0.123w,0); z3-z1=whatever*dir52;
+x3=0.239w; 0.5[z1,z3]-z2=whatever*dir-45;
+x2=x1l-eps; z4r=(0.325w,-apex_o);
+z5=(0.55w,0.371h); z6=(x3,0.932h);
+z7r=(0,0.751h); z8=(0.197w,0.553h);
+z9=(x4,0.428h); z10=(x3,0.317h);
+z11=(0.125w,0.423h);
+penpos2(1/3cap_hair,52);
+filldraw z1l{dir71}..z2l--z2r
+..{dir31}z3l--z3r{z1-z3}..z4l{right}
+--z4r{left}..z1r{z1-z3}--z1l{z3-z1}
+& cycle;
+penstroke z4e{right}..z5e{up}..
+z6e{left}..z7e{down}..z8e{dir-22}..
+z9e{down}..z10e{left}..z11e;
+%
+%
+%
+penpos12(2/3cap_hair,0); penpos13(0.778cap_stem,-126);
+penpos14(0.944cap_stem,-162);
+penpos15(0.944cap_stem,-90);
+penpos16(cap_hair,0);
+penpos17(cap_hair,-32);
+penpos19(0.981cap_stem,0);
+penpos20(0.793cap_stem,0);
+penpos21(cap_hair,-90);
+z12=(0.516w,0.745h); y13l=h+apex_o;
+z14=(0.886w,0.751h);
+z15=(w,0.669h);
+z19=(0.769w,y5); x13=x19l;
+z16=(x19r,-apex_o);
+z17r-z16r=whatever*dir58;
+x17r=0.977w; z20=(0.798w,0.537h);
+z21r=z15r;
+filldraw z16r--z17r--z17l{z16r-z17r}
+..z19r{up}..z20r..z21r{dir18}--
+z21l{dir198}..z20l..z19l{down}..
+z16l--z16r & cycle;
+penstroke z12e{up}..z13e{right}..
+z14e{dir-71}..z15e{right};
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter N tilde";
+.beginchar(oct"321",11.662u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); tilde(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter N acute";
+.beginchar(oct"213",11.662u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter N hacek";
+.beginchar(oct"214",11.662u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hacek(100);
+.endchar;
+
+.cmchar "The Fraktur letter O";
+.beginchar("O",12.01u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,41); penpos2(cap_hair,0);
+penpos3(cap_hair,-59);
+penpos5(1.037cap_stem,24);
+penpos6(1.074cap_stem,38);
+penpos7(cap_hair,-47); penpos8(2/3cap_hair,0);
+penpos4(1.315cap_stem,-146);
+penpos10(1.111cap_stem,70);
+penpos11(0.704cap_stem,22);
+penpos14(cap_hair,-46);
+z1r=(0.084w,0); z2l=(0,0.09h);
+z3=(0.234w,0.298h); z4=(0.184w,0.197h);
+z5=(0.332w,0.412h); z6=(0.179w,0.71h);
+z7=(0.263w,0.843h); z8=(0.389w,h+apex_o);
+z9=(x8,0.787h); z10=(0.595w,0.864h);
+z11r=(w,0.484h); z12=(0.637w,0.144h);
+z13=(2x10-x12,-apex_o);
+z14=(0.858w,0.227h);
+penstroke z1e..z2e{up}..z3e..z5e{up}
+..z6e{up}..z7e{dir43};
+penstroke z1e..z2e{up}..z4e{dir-19};
+filldraw z4r{dir-19}..{z13-(x4r,0.5y4r)}z13 &
+z13{dir27}..z14r..z11r{up}..z10r{left}..
+z8r{dir100}--z8l{down}..z7l{dir223}--
+z7r..z9..z10l{right}..z11l{down}..
+z14l..z12{left}..z4l{dir161}--z4r &
+cycle; last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter O Umlaut";
+.beginchar(oct"326",12.01u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter O tilde";
+.beginchar(oct"325",12.01u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); tilde(100);
+.endchar;
+
+.cmchar "The Fraktur letter O with Hungarian umlaut";
+.beginchar(oct"216",12.01u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hungarum(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter O slash";
+.beginchar(oct"330",12.01u#,cap_height#,0);
+currentpicture:=last_char;
+pickup penrazor xscaled stem yscaled hair rotated 30;
+draw (0,0)--(w,cap_height);
+.endchar;
+
+.cmchar "The Fraktur letter O slash";
+if (dc_layout>0): xchar_code:=oct"330";
+ else: xchar_code:=oct"037";
+beginchar(xchar_code,12.01u#,cap_height#,0);
+currentpicture:=last_char;
+pickup penrazor xscaled stem yscaled hair rotated 30;
+draw (0,0)--(w,cap_height);
+endchar;
+fi;
+
+.cmchar "The Fraktur letter O acute";
+.beginchar(oct"323",12.01u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter O grave";
+.beginchar(oct"322",12.01u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); cap_grave(100);
+.endchar;
+
+.cmchar "The Fraktur letter O hat";
+.beginchar(oct"324",12.01u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hat(100);
+.endchar;
+
+
+.cmchar "The Fraktur ligature Oe";
+if (dc_layout>0): xchar_code:=oct"327";
+ else: xchar_code:=oct"036";
+ fi;
+.beginchar(xchar_code,12.01u#+5.5u#,cap_height#,0)
+currentpicture:=last_char;
+addto currentpicture also small_letter_e shifted (11.5u,0);
+.endchar;
+
+.cmchar "The Fraktur letter P";
+.beginchar("P",9.482u#,cap_height#,2.651u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,0); penpos2(cap_stem,0);
+penpos3(cap_stem,0);
+penpos4(0.926cap_stem,58);
+penpos5(cap_hair,180);
+penpos8(1.5cap_hair,-145);
+penpos9(cap_hair,114);
+z1=(0.427w,-d); z2=(0.453w,0.09h);
+z3=(x2,0.7h); z4r=(0.227w,h+apex_o);
+z5r=(0,0.778h); z6=(0.173w,0.67h);
+z7=(0.083w,0.564h); z8=(0.275w,0.524h);
+z9r=(x7,0.4h);
+penstroke z1e...z2e---z3e..z4e{left}
+..z5e{down};
+penstroke z8e{down}..z9e;
+filldraw z5r{down}..z7 & z7{right}..
+z8r{down}--z8l{up}..z6..z5l{up}--
+z5r & cycle;
+%
+%
+%
+penpos18(cap_hair,0); penpos19(cap_hair,-80);
+penpos16(1.037cap_stem,23);
+penpos15(cap_stem,35);
+penpos14(cap_hair,-56);
+z18r=z3r; z19=(0.74w,0.931h);
+z16=(0.793w,0.782h);
+z15r=(w,0.42h); z14=(0.687w,0.059h);
+penstroke z14e{dir33}..z15e{up}..
+z16e{up};
+penstroke z18e{up}..z19e{dir22.5};
+z17'=(0.917w,h-apex_o);
+filldraw z16l{up}..z19l & z19l{dir22.5}
+..z17'{right} & z17'..z16r{down}--
+z16l & cycle;
+%
+%
+%
+penpos10(cap_stem,64); penpos11(cap_stem,71);
+penpos12(cap_hair,-36);
+penpos13(cap_hair,-23);
+z10=(0.713w,0.027h); z11=(0.387w,0.16h);
+z12=(x6,0.059h); z13l=(x8,0.266h);
+filldraw z10r..z11r...z13r---z13l
+& z13l..z12l{dir234}--z12r{dir54}...
+z11l---z10l--z10r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter Q";
+.beginchar("Q",13.559u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=12.01u;
+penpos1(cap_hair,41); penpos2(cap_hair,0);
+penpos3(cap_hair,-59);
+penpos5(1.037cap_stem,24);
+penpos6(1.074cap_stem,38);
+penpos7(cap_hair,-47); penpos8(2/3cap_hair,0);
+penpos4(1.315cap_stem,-146);
+penpos10(1.111cap_stem,70);
+penpos11(0.704cap_stem,22);
+penpos14(cap_hair,-46);
+penpos16(1.074cap_stem,-127);
+penpos17(cap_hair,-45);
+z1r=(0.084w',0); z2l=(0,0.09h);
+z3=(0.234w',0.298h); z4=(0.184w',0.197h);
+z5=(0.332w',0.412h); z6=(0.179w',0.71h);
+z7=(0.263w',0.843h); z8=(0.389w',h+apex_o);
+z9=(x8,0.787h); z10=(0.595w',0.864h);
+z11r=(0.925w,0.503h); z12=(0.637w',0.144h);
+z13=(2x10-x12,-apex_o);
+z14=(0.884w',0.227h);
+penpos15(1.3cap_stem,angle(z13-z14));
+z15l=z14; z16r=(0.825w,-apex_o);
+z17r=(w,0.144h);
+penstroke z1e..z2e{up}..z3e..z5e{up}
+..z6e{up}..z7e{dir43};
+penstroke z1e..z2e{up}..z4e{dir-19};
+filldraw z4r{dir-19}..{z13-(x4r,0.5y4r)}z13 &
+z13{dir27}..z14r..z11r{up}..z10r{left}..
+z8r{dir100}--z8l{down}..z7l{dir223}--
+z7r..z9..z10l{right}..z11l{down}..
+z14l..z12{left}..z4l{dir161}--z4r &
+cycle;
+penstroke z15e..z16e{dir-10} & z16e..z17e
+{dir45};
+.endchar;
+
+.cmchar "The Fraktur letter R";
+.beginchar("R",10.493u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#+0.3u#);
+penpos1(cap_hair,-49); penpos2(cap_hair,-49);
+penpos4(cap_hair,-90);
+z1l=(0,0.056h); z2=(0.253w,0.234h);
+z3=(apex_o,0.202h); z7=(0.036w,0.128h);
+z4r=(0.3w,-apex_o);
+z5=(0.181w,0.128h); z6=(0.084w,0.051h);
+filldraw z1l..z7..z3 & z3{dir-10}..
+z2l--z2r..z5..z4l{right}--z4r{left}
+..z6..z1r--z1l & cycle;
+penpos8(0.963cap_stem,19);
+penpos9(cap_stem,60); penpos10(cap_hair,180);
+penpos13(0.574cap_stem,-153);
+penpos14(cap_hair,90); penpos15(cap_hair,0);
+z8=(0.53w,0.375h); z9r=(0.247w,h+apex_o);
+z10r=(0,0.771h); z11=(0,0.614h);
+z12=(0.169w,0.641h); z13=(0.247w,0.481h);
+z14=(0.117w,0.348h); z15l=(0,0.468h);
+penstroke z4e{right}..z8e{up}..z9e
+{left}..z10e{down};
+penstroke z13e{down}..z14e{left}..
+z15e{up};
+filldraw z10r---z11..z13r{down}--
+z13l{up}..z12..z10l{up}--z10r &
+cycle;
+%
+%
+%
+penpos16(cap_hair,-90); penpos17(cap_hair,-90);
+penpos21(cap_hair,0); z16=(x8,0.585h);
+z17-z16=whatever*dir30;
+x17=0.934w; z21=(0.488w,3/4h);
+z20=(0.578w,0.936h); z22=(0.651w,0.91h);
+z19=(0.768w,h+apex_o);
+z23=whatever[z16l,z17l]; x23=x19;
+z18=(0.895w,0.867h);
+penstroke z16e--z17e;
+filldraw z21r{up}..z22{right}..
+z23{dir-76}--z17l{left}..z18..
+z19 & z19{z22-z19}..z20..z21l{down}
+--z21r & cycle;
+%
+%
+%
+penpos25(0.926cap_stem,-153);
+penpos26(1.074cap_stem,-174);
+penpos27(cap_hair,-32);
+z24=whatever[z16r,z17r]; x24=x23+0.18cap_stem;
+z25=(3/4w,0.612h); z26=(0.825w,0.205h);
+penpos26'(0.926cap_stem,-153); z26'r=z26r;
+y27r=0.189h; x27l=w; z28=(0.849w,-apex_o);
+z27'-z27l=whatever*(z28-z27r);
+x27'=w-cap_hair;
+filldraw z16r{z17-z16}...z25r
+---z26'r...z28 & z28--z27r--z27l &
+z27l---z27'...z26'l---
+z25l..z24--z16r & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter R acute";
+.beginchar(oct"217",10.493u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter R hacek";
+.beginchar(oct"220",10.493u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hacek(100);
+.endchar;
+
+
+
+.cmchar "The Fraktur letter S";
+.beginchar("S",12.813u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos0(0.032067w,-27); penpos0'(0.032067w,24);
+z0'r=z0l=(0.715w,0.745h);
+penpos1(1.5cap_hair,-156);
+penpos2(cap_hair,114);
+penpos7(cap_hair,114);
+penpos8(1.2cap_stem,-142);
+penpos9(cap_stem,-107);
+penpos10(0.926cap_stem,-123);
+penpos11(cap_hair,0);
+penpos16(0.722cap_stem,40);
+penpos17(cap_hair,-58);
+penpos18(cap_hair,-118);
+z1l=(w,0.952h); x2=0.93w;
+z3=(0.8w,0.859h); z5-z3=whatever*dir153;
+y5=h+apex_o; z4=z0r; z2l-z4=whatever*dir24;
+z6=whatever[z0r,z0l]; x6=0.462w;
+z7=(0.291w,0.931h); z8r=(0,0.505h);
+z9r=(0.562w,-apex_o);
+z10r=(0.76w,0.077h); z11=(0.933w,0.364h);
+z13=z0'l; z15-z13=whatever*dir204;
+x15=x14=0.407w; z12=(x9l,0.512h);
+z14-z12=whatever*(z15-z13);
+z16=(0.258w,0.649h);
+z17=(0.324w,0.782h); z18=(0.508w,0.739h);
+penstroke z7e{dir204}..z8e{down}..
+z9e{right}..z11e{up};
+penstroke z16e{up}..z17e{dir24}..
+z18e{dir-27};
+filldraw z1r{down}..z2r{z4-z2l}...
+z3---z5 & z5..z7r{dir204}--z7l
+{dir24}...z6---z4---z2l...z1l{up}
+& z1l--z1r & cycle;
+filldraw z11r{up}..z13{z6-z4} &
+z13---z15...z16r{up}--z16l{down}
+..z14{dir-27} & z14---z12...
+z11l{down}--z11r & cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter S acute";
+.beginchar(oct"221",12.813u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter S hacek";
+.beginchar(oct"222",12.813u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hacek(100);
+.endchar;
+
+.cmchar "The Fraktur letter S cedilla";
+.beginchar(oct"223",12.813u#,cap_height#,0.2x_height#);
+currentpicture:=last_char;
+z100=(0.5w,0); cedilla(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter T";
+.beginchar("T",10.386u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.041w,0.053h); z2=(0,0.104h);
+z3=(0.078w,y2); penpos4(1.037cap_stem,-133);
+z4=(0.165w,0.253h); z5=(0.592w,-apex_o);
+z6=(0.731w,0.123h); penpos7(cap_hair,0);
+z7r=(w,0.303h); penpos8(0.5cap_hair,-90);
+z8=(0.29w,0.271h); penpos9(1.185cap_stem,10);
+penpos10(1.148cap_stem,19);
+z9=(x5,0.415h); z10=(0.381w,0.691h);
+penpos11(0.5cap_hair,-90); z11=(0.677w,0.83h);
+penpos12(cap_hair,-112);
+penpos13(cap_hair,180);
+penpos14(1.111cap_stem,31);
+penpos14'(1.037cap_stem,57);
+z14'=(0.562w,0.939h);
+penpos15(1.185cap_stem,72);
+penpos16(cap_hair,-37.5);
+penpos17(cap_hair,-48);
+z12=(0.236w,0.6h); z13=(0.072w,0.761h);
+z14r=(0.436w,h+apex_o);
+z15=(0.858w,0.755h); z16=z15l;
+penpos15'(1.5cap_stem,72); z15'l=z15l;
+z17l=whatever[z16,z15r]; x17=0.956w;
+filldraw z1{right}..z3{up}..z4r{right}
+..z5{dir-29} & z5{dir22}..z7r{up}--
+z7l{down}..z6{left}..z4l{left}..
+z2{down}..z1{right} & cycle;
+penstroke z8e{right}..z9e{up}..z10e
+{up}..z11e{right};
+penstroke z15e{dir142.5}..z14'e..z14e{left}..z13e{down}
+..z12e{dir-22};
+penstroke z16e{z15r-z15l}..z17e
+{dir42};
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter T hacek";
+.beginchar(oct"224",10.386u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hacek(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter T ogonek";
+.beginchar(oct"225",10.386u#,cap_height#,0.2x_height#);
+currentpicture:=last_char;
+z100=(0.5w,0); ogonek(100);
+.endchar;
+
+
+.cmchar "The Fraktur letter U";
+.beginchar("U",10.608u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_stem,0); penpos2(whatever,39);
+penpos3(1.176cap_stem,48);
+penpos4(cap_hair,-42); penpos5(cap_hair,-42);
+penpos10(cap_hair,-47);
+penpos11(cap_hair,-47);
+penpos13(cap_stem,0);
+penpos14(cap_stem,0);
+penpos15(cap_hair,-90);
+penpos19(cap_hair,-41);
+z1=(0.258w,0.162h); z2r=(x1r,0.853h);
+x2l=x1l;
+z4l=(0,0.822h); z5-z4=whatever*dir48;
+y5l=h+apex_o; z3=whatever[z4r,z5r]; y3r=y5r-apex_o;
+z7=(x1l,0.26h); z8=(0.111w,y1);
+z9=(x1r,-apex_o); z8'=(0.278w,0.082h);
+z11r-z9=whatever*dir43; x11=0.737w;
+z12-z11l=whatever*(z9-z11r);
+x12=0.472w; z6-z12=whatever*(z8-z9);
+x6=x1r;
+penstroke z1e---z2e...z3e{dir138};
+penstroke z4e--z5e;
+filldraw z9--z11r--z11l--z12--z6--
+z7{down}..z8{dir231} &
+flex(z8,z8',z9) & cycle;
+%
+%
+%
+z13=(x11,y7); z14=(x13,y2r-cap_hair);
+z15=(0.573w,0.898h); z16=(0.737w,h+apex_o);
+z17=(0.886w,0.915h); z18=(x17,y1);
+z20=(0.786w,-apex_o);
+z21=(x13l,y1); x19r=w;
+z19r-z20=whatever*dir49;
+penstroke z13e--z14e;
+filldraw z15r{z16-z15l}..z14l{down}
+--z14r{up}..z17{right} & z17
+..z16 & z16..z15l--z15r & cycle;
+filldraw z20--z19r--z19l{z20-z19r}
+..z18{left}..z13r{up}--z13l--z21--
+z20 & cycle;
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter U Umlaut";
+.beginchar(oct"334",10.608u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter U with Hungarian umlaut";
+.beginchar(oct"226",10.608u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hungarum(100);
+.endchar;
+
+.cmchar "The Fraktur letter U acute";
+.beginchar(oct"332",10.608u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter U grave";
+.beginchar(oct"331",10.608u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); cap_grave(100);
+.endchar;
+
+.cmchar "The Fraktur letter U hat";
+.beginchar(oct"333",10.608u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); hat(100);
+.endchar;
+
+.cmchar "The Fraktur letter U with scandinavian circle";
+.beginchar(oct"227",10.608u#,cap_height#+0.3x_height#,0);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); o_umlaut(100);
+endchar;
+
+.cmchar "The Fraktur letter V";
+.beginchar("V",10.303u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,41); penpos2(cap_hair,0);
+penpos3(0.926cap_stem,-117);
+penpos6(cap_hair,-63);
+penpos7(0.704cap_stem,30);
+penpos8(cap_stem,44);penpos9(cap_hair,-65);
+penpos10(cap_hair,-65);
+penpos11(0.852cap_stem,-138);
+penpos12(2/3cap_hair,-55);
+penpos13(cap_hair,-48); penpos14(0.907cap_stem,-12);
+penpos15(1.037cap_stem,35);
+penpos16(0.889cap_stem,46);
+penpos17(cap_hair,155);
+penpos17'(0.489cap_stem,-123);
+penpos18(0.889cap_stem,-118);
+penpos20(0.537cap_stem,-147);
+penpos21(cap_hair,90);
+penpos22(cap_hair,44);
+z1=(0.115w,0.046h); z2=(0.072w,0.117h);
+z3=(0.209w,0.228h); z4=(0.613w,-apex_o);
+z5=(0.755w,0.103h); z5'=(x4,0.172h);
+z6=(0.853w,0.114h);
+z7r=(w,0.293h); z8=(0.742w,0.543h);
+z9=(0.822w,0.655h);
+z10r=(w,3/4h); z10'=(x7,0.788h);
+z11l=(0.75w,h+apex_o);
+z15=(0.414w,0.875h); z13=(0.288w,0.242h);
+z14=(0.534w,0.527h); z12=z15+(0.1w,-0.1h);
+z16r=(0.252w,h+apex_o);
+z17=(0.044w,0.859h);
+z17'r=(0,0.742h); z19=(0.043w,0.628h);
+z18=(0.096w,0.674h);
+z20=(0.267w,0.549h); z21l=(0.173w,0.435h);
+z22=(x19,0.516h);
+penstroke z1e..z2e{up}..z3e{right};
+filldraw z3r{right}..z4{dir-44} &
+z4---z6r...z7r{up}--z7l{down}..
+z6l..z5{left}..z5'..z3l{left}--z3r &
+cycle;
+penstroke z7e{up}..z8e{up}..z9e..
+z10e;
+penstroke z13e{dir42}..z14e{up}..
+z15e..z16e{left}..z17e..z17'e{down};
+filldraw z17'r{down}..z19{z3-z19} & z19---
+z18r...z20r{down}--z20l{up}..z18l..
+z17'l{up}--z17'r & cycle;
+penstroke z20e{down}..z21e{left}..
+z22e;
+filldraw z12r{up}..z11r{right}..
+1/10[z9,z10]{right} & 1/10[z9,z10]--z10--z10l &
+z10l{left}..z10'..z11l{left}..z12l{down}
+--z12r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter W";
+.beginchar("W",13.812u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,44); penpos2(cap_hair,22);
+penpos3(1.074cap_stem,-133);
+z1=(0.095w,0); z2=(0.055w,0.09h);
+z3=(0.16w,0.213h); z4=(0.366w,-apex_o);
+z5=(0.435w,0.118h); penpos6(cap_hair,-56);
+penpos7(4/3cap_stem,45);
+z6=(0.508w,0.126h); z7=(0.645w,0.41h);
+penpos9(1.222cap_stem,52);
+penpos10(cap_hair,0);
+z9=(0.532w,0.733h); z10=(0.604w,h+2apex_o);
+penstroke z1e..z2e..z3e{right};
+filldraw z3r{right}..z4{dir-30} &
+z4---z6r...z7r{dir72} & z7r{dir120}..
+z9r{up}..z10r--z10l..z9l{down}..
+z7l{down}..z6l{z4-z6r}...z3l{left}
+--z3r & cycle;
+%
+%
+%
+penpos11(cap_hair,-37); penpos12(0.778cap_stem,-140);
+penpos13(1.056cap_stem,-133);
+z11=(0.561w,0.865h); z12l=(0.735w,h+apex_o);
+z13l=(0.982w,0.756h);
+penstroke z11e{dir53}..z12e{right}..
+z13e{dir-60};
+%
+%
+%
+penpos14(cap_hair,-60); z14r=z13l+(apex_o,apex_o);
+penpos15(cap_stem,43); penpos16(0.741cap_stem,37.5);
+penpos17(cap_hair,-64); penpos18(1.222cap_stem,26);
+penpos17'(cap_hair,-64);
+z15=(0.808w,0.537h); z16r=(w,0.303h);
+z18l=(0.716w,-apex_o); z17r=z18; z17'r=z18r;
+z18.1-z18l=whatever*dir146;
+z18.2-z18r=whatever*dir146; x18.2=x18.1=0;
+z18'=(z6{z6r-z4}..z7{up}) intersectionpoint
+(z18l--z18.1);
+z18''=(z6{z6r-z4}..z7{up}) intersectionpoint
+(z18r--z18.2);
+filldraw z18l--z18'--z18''--z18r--z18l & cycle;
+penpos16'(whatever,54); z16'l=z16l; x16'r=w;
+penstroke z17e---z17'e...z16'e{up}..z15e{up}..
+z14e{dir36};
+%
+%
+%
+penpos19(cap_hair,-58); penpos22'(1.111cap_stem,44);
+penpos22(1.037cap_stem,41.5);
+penpos23(1.2cap_hair,-139);
+penpos24(cap_stem,-90); penpos25(0.556cap_stem,-140);
+penpos26(cap_hair,90); penpos27(cap_hair,37);
+z19=(0.224w,0.213h); x20=x5; z20-z19r=whatever*dir32;
+z21=(0.339w,0.483h); z22'=(0.326w,0.84h);
+z22r=(0.2w,h+apex_o); z23r=(0,0.767h);
+z24=(0.114w,0.654h); z25=(0.197w,0.551h);
+z26=(0.119w,0.437h); z27=(0.025w,0.5h);
+filldraw z19r--z20 & z20{up}..z22'r
+{dir129.5}--z22'l{dir-50.5}..z21{down}
+..z19l{z19r-z20}--z19r & cycle;
+penstroke z22'e{dir129.5}..z22e{left}
+..z23e{down}..z24e{right}..z25e{down}
+..z26e{left}..z27e{dir127};
+%
+%
+%
+penpos28(cap_hair,-32); penpos29(cap_hair,-90);
+penpos30(cap_hair,-141.5);
+z28=(0.357w,0.848h); z30=z11;
+z29=(0.5[x28,x30],0.958h);
+penstroke z28e..z29e..z30e;
+.endchar;
+
+.cmchar "The Fraktur letter X";
+.beginchar("X",9.418u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos0(cap_stem,0); z0=(0.5w,0.537h);
+z1=z0l; penpos5(cap_stem,-90); z5l=z0r;
+penpos2(cap_hair,0); z2r=(x0r,0.697h);
+penpos3(cap_hair,0); z3l=(x0l,0.253h);
+penpos6(cap_hair,-40); penpos7(cap_hair,-40);
+z6r=(0.758w,-apex_o); z7-z6=whatever*dir50;
+x7r=w; z7'=whatever[z6l,z7l];
+z6'=whatever[z6,z7]; y6'=apex_o;
+x7'=0.893w;
+penstroke z6e--z7e;
+filldraw z6'{left}...z3l---z1--z5l
+---z5r...z7'---z7l--z7--z6' & cycle;
+penpos12(cap_hair,-45); penpos13(cap_hair,-45);
+z13l=(0.289w,h+apex_o); z13-z12=whatever*dir45;
+x12l=apex_o; z13'=whatever[z12,z13];
+y13'=h-2apex_o;
+penstroke z12e--z13e;
+filldraw z12r{z13-z12}..z1{down}--
+z5l---z2r...z13'{dir148}--z12--z12r & cycle;
+%
+%
+%
+penpos15(0.852cap_stem,-116);
+penpos16(cap_hair,-21);
+penpos14(cap_hair,-21);
+z16=(0.852w,0.723h); z14-z16=whatever*dir69;
+y14=y15l+apex_o; z15=(0.77w,0.91h);
+penstroke z2e{up}..z15e{right};
+filldraw z15r{right}..z16l{z16-z14}
+--z16r--z14r--z14l{z1-z14l}
+..z15l{left}--z15r & cycle;
+%
+%
+%
+penpos9(cap_hair,-35); penpos10(cap_hair,-35);
+z9l=(0,0.069h); z10-z9=whatever*dir55;
+y10=0.229h; z8=(0.221w,-apex_o);
+z11=(0.297w,0.1h);
+filldraw z9r{dir20}..z8{right}..
+z3r{up}--z3l{down}..z11{left}..
+z10r{z10-z9}--z10l--z9l--z9r &
+cycle;
+%
+%
+%
+penpos20(cap_hair,0); penpos21(cap_hair,0);
+penpos22(cap_hair,0); penpos23(cap_hair,0);
+z21-z20=whatever*dir74;
+z23-z22=whatever*dir74;
+y22=y5r; y21=y5l; x22=0.772w;
+x21=0.235w; y23=y21+0.072h;
+y20=y22-0.072h;
+z20'=whatever[z20,z21]; z23'=whatever[z22,z23];
+y20'=y22; y23'=y21;
+penstroke z20e--z21e;
+penstroke z22e--z23e;
+filldraw z20'--z22--z23'--z21--z20' &
+cycle;
+z20''=whatever[z20',z22]; x20''=x20'+2cap_hair;
+z23''=whatever[z21,z23']; x23''=x23'-2cap_hair;
+filldraw z20r{z21-z20}..z20''{right}
+--z21--z20--z20r & cycle;
+filldraw z23''{right}..z23l{z23-z22}
+--z23--z22--z23'' & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter Y";
+.beginchar("Y",10.556u#,cap_height#,2.181u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0,0); z2=(0.079w,0.089h);
+z3=(2x2,0.025h); penpos4(0.611cap_stem,-35);
+penpos5(1.074cap_stem,13);
+penpos7'(1.111cap_stem,39);
+z4r=(0.338w,-d); z5r=(w,0.513h);
+z7'r=(0.778w,h); z6'=(0.656w,0.864h);
+penpos7(cap_hair,-51); penpos8(cap_hair,-51);
+z8=whatever[z7'l,z7'r]; y8r=h;
+z7=whatever[z7'l,z7'r]; y7=0.787h;
+filldraw z1{up}..z2{right}..z3{down}
+..z4l{right}--z4r{left}..z1{up} &
+cycle;
+penstroke z4e{right}..z5e{up}..z7'e
+{dir129};
+z6=(z5l{up}..z7'l{dir129}) intersectionpoint
+((0,0.8h)--(w,0.8h));
+filldraw z5l{up}..z6..z6'..z7r{z7-z8}--
+z7--z7'{dir-51}..z5{down}--z5l &
+cycle;
+penstroke z7e--z8e;
+%
+%
+%
+penpos11(cap_hair,-90); penpos9(cap_hair,-42);
+penpos10(cap_hair,-42); penpos22(1.148cap_stem,48);
+z9r=(0.359w,-apex_o); z10-z9=whatever*dir48;
+x10=0.719w; z22=whatever[z9,z10]; x22=0.479w;
+z11=(0.126w,0.215h); penpos12(2/3cap_hair,-42);
+z12-z22r=whatever*dir-42;
+x12=0.371w; penpos13(whatever,19);
+x13l=0.5w-0.5cap_stem; x13r=0.5w+0.5cap_stem;
+y13=0.585h;
+penstroke z9e--z10e;
+filldraw z11r{right}..z22l{dir-42}--
+z22r{dir138}--z12r{dir23}..z13r{up}
+--z13l{down}..z12l..z11l{left}--
+z11r & cycle;
+%
+%
+%
+penpos14(1.037cap_stem,32); penpos15(0.889cap_stem,42);
+penpos16(cap_hair,150); penpos17(0.389cap_stem,-134);
+penpos18(0.759cap_stem,-90);
+penpos19(cap_hair,180);
+penpos20(cap_hair,90);
+penpos21(1.5cap_hair,45);
+z14=(x13l,0.904h); z15r=(0.281w,h+apex_o);
+z16=(0.066w,0.883h); z17=(0.051w,0.822h);
+z18=(0.159w,0.713h); z19=(0.275w,0.606h);
+z20r=(0.189w,0.532h); z21=(0.087w,0.561h);
+penstroke z13e{up}..z14e{dir136}..
+z15e{left}..z16e..z17e{down}..z18e
+{right}..z19e{down}..z20e{left}..
+z21e{dir135};
+last_char:=currentpicture;
+.endchar;
+
+.cmchar "The Fraktur letter Y with acute";
+.beginchar(oct"335",10.556u#,cap_height#+0.3x_height#,2.181u#);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter Y with umlaut";
+.beginchar(oct"230",10.556u#,cap_height#+0.3x_height#,2.181u#);
+currentpicture:=last_char;
+z100=(0.5w,cap_height); umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur letter Z";
+.beginchar("Z",8.407u#,cap_height#,2.528u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.704cap_stem,0); z1l=(0.038w,0.213h);
+penpos2(0.815cap_stem,-147);
+penpos3(1.148cap_stem,-152.5);
+penpos4(cap_hair,90);
+penpos1'(cap_hair,-66);
+z2=(0.395w,0.4h); z3l=(w-x1l,0.096h);
+z4l=(0.586w,-0.763d); z1'=(0.237w,0.372h);
+penstroke z1e{up}..z1'e..z2e..
+z3e{down}..z4e{left};
+z5=(0.368w,-0.525d); z6=(0.305w,-0.575d);
+z7=(0.338w,-0.15d); z8=(0.523w,0.077h);
+z9=(0.406w,0.061h); penpos10(cap_hair,90);
+z10r=(0.248w,0.077h);
+z8'=(x8,-0.288d);
+penpos11(cap_hair,180); z11=(0.068w,-0.3d);
+penpos12(1.5cap_hair,-90); z12r=(0.218w,-d);
+filldraw z4l{left}..z5{left}..z6 &
+z6..z7{up}..z10l{left}--z10r{right}
+..z9{right}..z8 & z8---z8'...z4r{right}
+--z4l & cycle;
+penstroke z10e{left}..z11e{down}
+..z12e{right};
+%
+%
+%
+penpos14(cap_hair,-90); penpos15(0.778cap_stem,25);
+penpos16(cap_stem,90); penpos17(0.5cap_stem,159);
+z15r=(w,0.7h); z16r=(0.5w,h+apex_o);
+z17r=(0,x15r); z14=(0.5w,0.415h);
+penstroke z15e{up}..z16e{left}..
+z17e{down}..z14e{right}..z15e{up};
+%
+%
+%
+z0=(x16,y17r); z18-z0=whatever*dir201;
+z13-z0=whatever*dir221;
+x18=x13=0;
+unfilldraw z18--z0--z13--z18 &
+cycle;
+last_char:=currentpicture;
+.endchar;
+
+
+.cmchar "The Fraktur letter Z acute";
+.beginchar(oct"231",8.407u#,cap_height#+0.3x_height#,2.528u#);
+currentpicture:=last_char; z100=(0.5w,cap_height); acute(100);
+.endchar;
+
+.cmchar "The Fraktur letter Z hacek";
+.beginchar(oct"232",8.407u#,cap_height#+0.3x_height#,2.528u#);
+currentpicture:=last_char; z100=(0.5w,cap_height); hacek(100);
+.endchar;
+
+.cmchar "The Fraktur letter Z point";
+.beginchar(oct"233",8.407u#,cap_height#+0.3x_height#,2.528u#);
+currentpicture:=last_char; z100=(0.5w,cap_height); pointaccent(100);
+.endchar;
+
diff --git a/fonts/gothic/cmfrak/dcfrak.mf b/fonts/gothic/cmfrak/dcfrak.mf
new file mode 100644
index 0000000000..1af31194e0
--- /dev/null
+++ b/fonts/gothic/cmfrak/dcfrak.mf
@@ -0,0 +1,8 @@
+% yfrak transformed to dcfrak by D. Taupin March 1994
+if unknown cmbase: input cmbase fi
+input cmfrabase; % -sl 15-3-1991 25-3-1994 D.T.
+
+font_identifier:="dcfrak"; font_size 10pt#;
+numeric dc_layout; dc_layout:=1;
+
+input xxfrak.mf
diff --git a/fonts/gothic/cmfrak/xxfrak.mf b/fonts/gothic/cmfrak/xxfrak.mf
new file mode 100644
index 0000000000..74c7eebf4e
--- /dev/null
+++ b/fonts/gothic/cmfrak/xxfrak.mf
@@ -0,0 +1,168 @@
+u#:=20/36pt#; % unit width
+lower_u#:=20/36pt#;
+
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=167/36pt#; % height of lowercase without ascenders
+%x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=7/36pt#; % lowercase hairline breadth
+%hair#:=9/36pt#; % lowercase hairline breadth
+%stem#:=25/36pt#; % lowercase stem breadth
+stem#:=24/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+%cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_hair#:=8/36pt#;
+cap_amount#:=8/36pt#;
+%cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_stem#:=32/36pt#;
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=5/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+numeric usual_right, usual_left;
+usual_right#:=0.5u#;
+usual_left#:=0.3u#;
+
+granularity:=1.01;
+%aspect_ratio:=2/3aspect_ratio;
+
+mode_setup;
+font_setup;
+cap_amount:=8/36pt;
+foot:=0.207x_height;
+num_height:=1.242x_height;
+cap_kern:=4/36pt;
+boolean ligature; ligature:=false;
+numeric alpha; alpha:=0;
+numeric coef, gencoef; gencoef:=1;
+
+% The positions of characters depending on cm or dc layouts
+
+if dc_layout>0:
+ ae_ligature:=oct"346";
+ Ae_ligature:=oct"306";
+ ff_ligature:=oct"033";
+ ss_ligature:=oct"034";
+ st_ligature:=oct"035";
+ sf_ligature:=oct"036";
+ tz_ligature:=oct"037";
+ ch_ligature:=oct"027";
+ ck_ligature:=oct"275";
+ s_final:=oct"276";
+ en_dash:=oct"025";
+ em_dash:=oct"026";
+ eszet:=oct"377";
+ open_gaens:=oct"022";
+else:
+ ae_ligature:=oct"032";
+ Ae_ligature:=oct"035";
+ ff_ligature:=oct"013";
+ ss_ligature:=oct"014";
+ st_ligature:=oct"015";
+ sf_ligature:=oct"016";
+ tz_ligature:=oct"017";
+ ch_ligature:=oct"012";
+ ck_ligature:=oct"275";
+ s_final:=oct"276";
+ en_dash:=oct"173";
+ em_dash:=oct"174";
+ eszet:=oct"031";
+ open_gaens:=oct"134";
+fi;
+
+%granularity:=1.01;
+
+%readfrom("yfrakbase"); % -sl 15-3-1991
+
+%if proofing>1: generate ycurrent; fi % switch to the driver file%
+
+generate cmfrakmis; % -sl 15-3-1991 / 24-3-1994 DT
+
+generate cmfraklow; % -sl 15-3-1991 / 25-3-94 DT
+
+generate cmfrakupp; % -sl 15-3-1991 / 24-3-1994 DT
+
+generate cmfraknum;
+
+generate cmfrakoth; % -sl 15-3-1991 / 24-3-1994 DT
+
+font_slant slant; font_x_height x_height#;
+font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+
+ligtable "c": "h"=:ch_ligature, "k"=:ck_ligature;
+ligtable "f": "f"=:ff_ligature;
+ligtable "s": "z"=:eszet,
+ ":"=:s_final, "s"=:ss_ligature, "t"=:st_ligature,
+"f"=:sf_ligature, "b" kern 1.03u#, "d" kern 1.03u#, "h" kern 1.03u#, "k" kern 1.03u#,
+"l" kern 1.03u#, "i" kern 0.4u#, "j" kern 0.4u#;
+ %, " "=:s_final " ";
+ligtable "t": "z"=:tz_ligature;
+ligtable oct"042": "a"=:oct"344", "e"=:oct"353", "o"=:oct"366", "u"=:oct"374",
+ "s"=:eszet;
+% ligtable "*": "a"=:oct"211", "e"=:oct"220", "o"=:oct"231", "u"=:oct"236";
+ligtable "`": "`"=:open_gaens;
+ligtable "'": "'"=:oct"042";
+ligtable "-": "-"=:en_dash;
+ligtable en_dash: "-"=:em_dash;
+ligtable ss_ligature: "b" kern 1.03u#, "d" kern 1.03u#, "h" kern 1.03u#, "k" kern 1.03u#
+, "l" kern 1.03u#, "i" kern 0.4u#, "j" kern 0.4u#;
+
+end.
diff --git a/fonts/gothic/corkpaper.tex b/fonts/gothic/corkpaper.tex
new file mode 100644
index 0000000000..6d8f41004b
--- /dev/null
+++ b/fonts/gothic/corkpaper.tex
@@ -0,0 +1,570 @@
+\input tugproc.sty
+
+\font\yfrak=yfrak scaled 1200
+\font\yswab=yswab scaled 1200
+\font\ygoth=ygoth scaled 2074
+\font\bigygoth=ygoth scaled 2487
+\font\yinitials=yinit scaled 1728
+\Title Typesetting old german:\br
+ Fraktur, Schwabacher,\br
+ Gotisch and Initials.
+\endTitle
+\shortTitle Typesetting old german\endshortTitle
+\Author Yannis Haralambous\endAuthor
+\address U. F. R. de Math\'ematiques,\br
+ Universit\'e de Lille--Flandres--Artois,\br
+59655 Villeneuve d'Ascq, France.\endaddress
+\netaddress Bitnet: yannis@frcitl81\endnetaddress
+\Abstract
+Typesetting in the old style, with the corresponding types,
+besides being an art, is also
+a real pleasure. \MF\ allows the creation of faithful copies of these types and
+\TeX\ gives the possibility of using them in the most traditional manner.
+In this spirit, the necessary fonts and macros to typeset in the
+old german types Gotisch (also called Textur), Schwabacher and Fraktur are
+presented in this paper, together with an historical
+introduction to each of them. Also, a
+set of initials is described. Rules for typesetting in these types are given,
+together with extracts from the original sources.
+\endAbstract
+%\preprint
+\article
+\centerline{\vphantom{A}}
+\centerline{\sl This paper is dedicated to}
+\centerline{\sl D. E. Knuth.}\vskip1cm
+
+\noindent
+This article shows the first results of a longterm project on reconstructing old
+types and typesetting following the old rules, with \TeX\ and \MF. The work
+presented in this paper has been done on a Mac SE/30 with Oz\TeX\ and Mac\MF.
+
+\head General Introduction to the Project: What's the Use of Reconstructing
+Old Types \endhead
+Old types are beautiful. Until now, one could find either modernized copies of
+them (for decorative use) or facsimiles of historical books.
+With \TeX\ and \MF\ at
+last we have the possibility to approach these types in the manner ---and with
+the care--- of a {\it collectionneur}. Since there is no commercial scope, no
+compromise needs to be made in the creation of the fonts. And once the
+\MF ing is done, we can bring the fonts back to life, by using them in typesetting
+texts, new or old ones. \TeX\ and \MF\ are strong enough to achieve
+a faithful reproduction of old works, and what's more, delicate enough to
+allow a personal tone and new ideas. Thanks to D. E. Knuth's work, typesetting
+becomes an interpretative art at the reach of everybody. And you can believe me,
+it is the same pleasure to read (resp. typeset) Goethe's poems in Breitkopf's
+Fraktur as to hear (resp. play) Mozart's Sonatas on a Stein's Pianoforte.
+
+\head Old German Types\\
+Gotisch\endhead
+Gutenberg choosed the bible as his first work for merely
+commercial reasons: only the churches and monasteries could afford to buy
+quantities of books. Consequently, the first types he created had to imitate
+manuscript characters, to be able to concurrence the beautiful manuscript
+bibles produced by the monasteries themselves. This explains the fact that
+Gutenberg's font is so elaborated. A similar situation arose with Venetian
+greek renaissance types, which had to imitate alexandrinian and byzantine
+greek handwriting: hundreds of ligatures were used.
+
+Gutenberg's font had 288 characters: besides the 25 uppercase (there is no distinction
+between I and J) and 27 lowercase (there are two kinds of s), all the others are
+variant types, accented characters and ligatures.
+
+The font |ygoth| presented here,
+is not an exact copy of Gutenberg's font. It merely follows
+Gutenberg's guidelines on lowercase characters and selects the uppercase ones
+from different 15th century types. Please note that these uppercase characters
+are not suitable for ``all capitals'' typesetting. Here are the basic upper
+and lowercase characters:
+
+{\baselineskip=20pt
+\noindent\centerline{\ygoth A B C D E F G H}
+
+\noindent\centerline{\ygoth I K L M N O P Q R}
+
+\noindent\centerline{\ygoth S T U V W X Y Z}
+
+\noindent\centerline{\ygoth a b c d e f g h i j}
+
+\noindent\centerline{\ygoth k l m n o p q r}
+
+\noindent\centerline{\ygoth s s: t u v w x y z}
+}
+\noindent
+For all old german types there is no distinction between I and J; also there are
+two kinds of s: the middle and initial ``long s'' and the final
+``short s''
+$$\hbox{\ygoth s\ s:}$$
+In composite words, a short s is used when some
+component of the word ends on s:
+$$\hbox{{\ygoth Aus:gang}, but {\ygoth Anstand}.}$$
+Since it's almost impossible for a computer
+to know if some s is long or short, you have
+to do it manually: type |s:| for a short s, like in |Aus:gang| or |Alles:|.
+
+The following ligatures are part of the font:
+
+{\baselineskip=20pt
+\noindent\centerline{\ygoth ae ba be bo ch ck ct}
+
+\noindent\centerline{\ygoth da de do ha he ho}
+
+\noindent\centerline{\ygoth ff fi fl ffi ffl ij ll}
+
+\noindent\centerline{\ygoth oe pa pe po pp qq qz}
+
+\noindent\centerline{\ygoth ss ssi st tz va ve vu}
+}
+\noindent
+Beside the ones shown beyond, there are variant forms
+
+\noindent\centerline{\ygoth \char'052\ \char'057\ \char'075}
+
+at positions {\it'052, '057, '075} of the font. Because of the many
+ligatures, there is no place left for special characters (I used only
+128-character fonts); you'll have to switch to |CM| for \#, \$, \%, \&, *, +,
+= etc. For the vowels a, e, o, u with Umlaut and for the \ss,
+ I followed Partl's [1988] convention:
+just type |"a, "e, "o, "u, "s| (\"e is used in flemish) to obtain
+
+\noindent\centerline{\ygoth "a "e "o "u "s.}
+
+The difference with Partl's approach is that
+in our case |"a|, |"e|, etc are ligatures. Since
+\ss\ historically comes from the ligature s+z (\ss\ is called es-zet), by
+typing either |"s| or |sz|, you get the same output.
+
+In Appendix A you can find a sample of the font; it is an extract of Luther's
+bible (1534), in the original orthograph.
+
+\head Schwabacher\endhead
+The name comes from Schwabach, a little german town on the south of N\"urnberg.
+According to Updike [1927], {\sl in fifteenth century German gothic
+or black-letter fonts, a differentiation of type-faces began to show itself,
+as we have seen, in the last twenty years of the century, between types that
+were somewhat pointed and a rounder, more cursive gothic letter, with certain
+peculiarities ---the closed a, looped b, d, h, and l, and a tailed f ans s. The
+first type was called ``fraktur.'' The second was ultimately known as
+``schwabacher.''} Schwabacher was in some extend the ``boldface'' font,
+compared to the usual Fraktur. The font presented here is called |yswab|;
+it is based on 18th century types. Nevertheless, some characters (like the
+``hebrew-like question mark {\yswab?}) have been taken from a contemporary book:
+A. Wikenhauser [1948], {\sl Das Evangelium nach Johannes}, where John's
+text is written in Schwabacher and comments in Fraktur. Here are the basic
+upper and lowercase characters:
+
+\noindent\centerline{\yswab A B C D E F G H I K L M N}
+
+\noindent\centerline{\yswab O P Q R S T U V W X Y Z}
+
+\noindent\centerline{\yswab a b c d e f g h i j k l m n}
+
+\noindent\centerline{\yswab o p q r s: s t u v w x y z.}
+
+The following ligatures are included in the font:
+
+\noindent\centerline{\yswab ff, sf, ss, st, sz}
+
+For the vowels a, e, o, u with Umlaut, you have the choice between two forms:
+for the older one (a small ``e'' over the letter)
+you need to type a |*| + vowel combination, and for the newer
+one a |"| + vowel combination. So, by typing |*a|, |*e|, |*o|, |*u|, |"a|, |"e|,
+|"o|, |"u| you get
+
+\noindent\centerline{\yswab *a *e *o *u "a "e "o "u}
+
+respectively.
+
+\head Fraktur\endhead
+The first Fraktur type was created by Johann Sch\"onsperger in Augsburg
+to typeset the book of prayers of Kaiser Maximilian (1513). Some years later,
+Hieronymus Andre\ae\ created a new Fraktur type, used by D\"urer for the
+printing of his theoretical works. In the 17th century, Fraktur had a period
+of decline. It was only in the fall of the 18th century that some progressive
+typographers like G. I. Breitkopf and J. F. Unger gaved Fraktur a new breath,
+by creating new fonts with the aesthetic standards of their time. Especially
+Unger's font seems to lay more in the 19th century spirit.
+
+\figure[\top]
+[\caption{\centerline{\yfrak Gottlob Immanuel Breitkopf}}]
+\vbox to 13.3cm{}
+\endfigure
+
+
+Gottlob Immanuel Breitkopf (1719--1794) lived in Leipzig. He travelled a lot,
+studied french, english and other foreign fonts and wrote himself an article
+(Breitkopf [1793])
+on the situation of typographers and typography in Leipzig at his time. In 1754
+he was to first to use removable types to typeset music. His name is familiar
+to all musicians and friends of music, because of the famous Breitkopf \&
+H\"artel editions of complete works of Bach, Beethoven etc.
+
+After Breitkopf, the ``official'' version of Fraktur (newspapers and official
+documents) didn't evolved very much. In the 19th century, with all its social
+---and artistic--- turbulences many decorative Fraktur types have been made,
+most of them are monstruous (for
+example see Knebel [1870]). A final renovative effort has been made
+in the twenties of our century by artists like Walter Tiemann and others.
+Unfortunately, the destructive trend for uniformisation of nazism didn't left
+much place for \ae sthetic improvements or changements.
+
+Texts like {\yfrak Warum deutsche Schrift}?
+(Why german type?) by
+G. Barthel [1934], and {\yfrak Heraus: aus: der Schriftverelendung}!
+(No more degenerate writing!) by T.
+Thormeyer [1934] ({\yfrak ...die Rundungen haben nichts: mit dem deutschen
+Spannungs:bed"urfnis: gemeinsam. Das: Schwelgen in abgerundeten Formen kann
+man andern Nationen "uberlassen...}) show that nazists tried to use Fraktur as
+a symbol of the german nation. But ---an historical paradox--- it was the
+nazis themselves who abolished Fraktur in 1941\footnote{${}^*$}{There seems to
+have been some secrecy around this decision of the nazis. The only data
+I could find is a short and cryptical
+reference in the 1941 DIN-booklet on typographic standards:
+``Bekanntgebung I$\!$I EM 8408/41 vom 26 Juli 1941 des
+Reichswirtschaftsministers an den Deutschen Normenauschlu\ss''. I would be
+very obliged if some reader could provide me with more informations.}.
+In a not too old edition of the
+Brockhaus, one can find the sentence {\sl ``Die nationalsozialist.
+Regierung lie\ss\ die Fraktur 1941 aus Zweckm\"a\ss igkeitsgr\"unden
+von Amts wegen abschaffen. Ob sie damit eine Entscheidung traf, die ohnehin im
+Zuge der Entwicklung lag, ist schwer zu beurteilen...''} (it is hard to say
+if the nazi decision of abolishing Fraktur was really in the sense of
+development...); there is a certain nostalgy in these words.
+
+
+Today Fraktur is used mainly for decorative purposes (a nice counterexample is
+the dtv pocket edition of Mozart's correspondence: his letters are in Fraktur
+and the comments in Antiqua). Also there are methods for the old german handwriting
+(S\"uterlin) which also include Fraktur (for example {\yfrak Wir lesen deutsche
+Schrift}, bei A. Kiewel et al [1989]).
+
+Let's return now to \TeX: the font |yfrak| which I propose is in the old
+Breitkopf style. Here are the basic upper and lowercase characters
+
+\noindent\centerline{\yfrak A B C D E F G H I K L M N}
+
+\noindent\centerline{\yfrak O P Q R S T U V W X Y Z}
+
+\noindent\centerline{\yfrak a b c d e f g h i j k l m n}
+
+\noindent\centerline{\yfrak o p q r s: s t u v w x y z.}
+
+It contains the same ligatures and Umlauts as |yswab|. The symbols
+{\yfrak\char'044} (which means ``etc'') and {\yfrak\char'100}
+(an attempt to differentiate I and J) are in font positions
+{\it '044} and {\it '100}
+respectively. You can a find a sample of the font
+in Appendix B; it is the begining of the second part of
+Carl Philipp Emanuel Bach's treatise on the true art of playing the keyboard
+(meant is the harpsichord and/or clavichord)
+``{\yfrak Versuch "uber die wahre
+Art das: Clavier zu spielen}'' [1762].
+
+\head Initials\endhead
+
+The chancery initials which you can see on Appendix B and C are a revival of
+baroque
+designs. This makes them suitable for old and new texts as well.
+They form the font |yinit|. You have the choice of creating
+characters with depth zero,
+or characters with height equal to |cap_height| of |cmr10| (with the
+corresponding magnification) and the biggest part
+of the character under the baseline. For this
+there is a boolean parameter |zero_depth| in the |yinit.mf| parameter file.
+To typeset the initial D of Appendix B, I used the macro |\yinitial{D}|
+as follows (with |zero_depth:=false|)
+\verbatim
+\def\yinitial#1
+{\hangindent=2.54cm
+\hangafter=-4
+\hskip-3.24cm
+\lower-2.7mm
+\hbox{\yinit #1}
+\hskip1.5mm}
+\endverbatim
+Of course all these parameters will need some adjustment, according to the
+interline skip and the textfont you are using. Note also that |\par| stops the
+execution of |\hangafter|; you should better use |\hfill\break\indent| instead.
+
+\head Typesetting Rules\endhead
+
+In the following text, taken from the Duden (M\"ulsing and Schmidt
+[1919]) many fine
+points of typesetting in Fraktur are explained. The essential points are the
+following:
+1) don't use ligatures in latin antiqua words, use them in french
+antiqua and in french Fraktur;
+2) in a composite word, do not use ligatures between adjacent letters of two
+components
+3) the
+antiqua \ss\ is to be used in german words and names regardless of the
+language;
+4) the latin ``etc'' is to be translated as {\yfrak usw.} and its
+older form {\yfrak\char'044} should not be used anymore;
+5) concerning foreign words in german, use Fraktur when the word has
+been ``germanized'', and else antiqua;
+6) the hyphen should always be in Fraktur,
+except when it appears between two antiqua words;
+7) in 1879, Daniel Sanders
+proposed {\yfrak\char'100} as an alternative to {\yfrak I} for the letter J, it
+would be nice if the authorities recognize it.
+
+\vskip0.3cm
+\centerline{\yfrak Einzelvorschriften f"ur den Schriftsatz}
+\vskip0.5cm
+\yfrak
+In diesem Abschnitte stellen wir einige Einzelvorschriften zusammen, deren
+allgemeine Befolgung f"ur die Einheitlichkeit bei der Herstellung von
+Drucksachen sehr w"unschens:wert w"are.
+\par
+\yswab Ligaturen \bf \AE, \ae, \OE, \oe\ \yswab statt \bf Ae, ae, Oe, oe. \yfrak
+In lateinischen W"ortern sind die Ligaturen nicht anzuwenden, z. B. \rm Caelius
+mons, Asa foetida. \yfrak In franz"osischen W"ortern, die im deutschen Satz
+verstreut vorkommen, mu"s, wie im franz"osischen Satz "uberhaupt, stets:
+\bf \OE\ \yfrak und \bf \oe\ \yfrak gesetzt werden, z. B. \rm \OE uvres, s\oe ur.
+\yfrak Selbst bei Fraktursatz darf auf das: kleine o$\!$e nicht verzichtet
+werden, z. B. Hors:d'o$\!$euvre.
+\par
+\yswab Sonstige Ligaturen. \yfrak In Wortverschmelzungen wie Schiffahrt,
+Schnel{\kern-1pt}l"aufer, al{\kern-1pt}liebend, d. h. also in W"ortern,
+die von drei gleichen Mitlauten
+einen aus:gesto"sen haben, ist die Ligatur anzuwenden,
+wenn sie in der betreffenden
+Schriftgattung vorhanden ist. Die Ligatur ist ferner "uberall da anzuwenden,
+wo sie die sprachliche Richtigkeit nicht st"ort, z. B. benutzen, abflauen,
+Billard, nicht aber in einfachen Zusammensetzungen wie ent{}zwei, Kauf{}leute,
+viel{}leicht.
+\par
+\yswab Der Buchstabe "s in fremdsprachichem Satz. \yfrak Wenn aus: einem
+Deutschen Namen, in dem "s vorkommt, durch Anf"ugung einer Lateinischen Endung
+ein Lateinisches: Wort gebildet wird, so bleibt das: "s erhalten, es: erscheint
+also als: \rm \ss\ \yfrak (in Antiqua). So wird z. B. aus: Wei"senburg:
+\rm Wei\ss enburgensis \yfrak(der \rm Codex Wei\ss enburgensis). \yfrak Eben\-so
+wird \rm\ss\ \yfrak gesetzt, wenn deutsche Eigennamen mit "s in fremdsprachlichem
+Satz erscheinen, z. B.: \rm Monsieur A\ss mann a \'et\'e \`a Paris. Ho trovato
+il Signor Gro\ss e a Venezia.
+\par
+\yswab usw. -- {\yfrak\char'044} -- {\bf etc.} \yfrak Im deutschen Satze ist
+``und so weiter'' der amtlichen Vorschrift gem"a"s durch usw. abzuk"urzen, und
+zwar sowohl in Fraktur wie in Antiqua. Die Form \char'044, die sich innerhalb
+der Lautschrift wie eine Hieroglyphe, wie ein Vertreter der Zeichenschrift,
+ausnimmt, ist veraltet und nicht mehr anzuwenden.\hfill\break\indent
+Die Form {\rm etc} darf nur im Antiquasatz angewandt werden, wird aber besser
+durch {\rm usw.} ersetzt. F"ur lateinischen Satz, also innerhalb lateinischen
+Textes:, ist {\rm etc.} selbstverst"andlich. Ferner sei erw"ahnt, da"s die
+Franzosen und Engl"ander {\rm\&c.}, die Italiener {\rm ecc.} und die Spanier
+{\rm etc.} verwenden, und zwar setzen alle stets: einen Beistrich vor diese
+Abk"urzungen, was: im Deutschen nicht "ublich ist.
+\par
+\yswab Anwendung der Antiqua im Fraktursatz. \yfrak Um dem bisherigen Schwanken
+in der Wahl zwischen Antiqua und Fraktur ein Ende zu machen, empfiehlt es: sich
+folgende Grunds"atze zu beobachten:\par
+1. Alle Fremdw"orter romanischen Ursprungs:, die nicht durch Annahme
+deutscher Biegung oder deutscher Lautbezeichnung als: eingedeutscht erscheinen,
+setze man aus: Antiqua, z. B. \rm en avant, en arri\`ere, en vogue, in praxi,
+in petto; a conto, dolce far niente; \yfrak ferner Verbindungen wie \rm Agent
+provocateur, Tempi passati, Lapsus linguae, Agnus Dei. \yfrak Auch alle
+italienischen technischen Aus:dr"ucke aus: der Tonkunst, wie \rm andante,
+adagio, moderato, vivace, \yfrak setze man aus: Antiqua. Die der lateinischen
+Sprache entstammenden Bezeichnungen Dur und Moll sind als: eingedeutschte
+Hauptw"orter aufzufallen und daher gro"s zu setzen, z. B. \rm C\yfrak-Dur.
+\par2. Wenn ein Fremdwort deutsche Lautbezeichnung oder deutsche
+Biegung annimmt oder mit einem deutschen Worte zusammengesetzt wird, so setze
+man es: ais: Fraktur, z. B. \rm adagio, \yfrak aber: das: Adagio, die Adagios:;
+\rm a conto, \yfrak aber: die Akontozahlung; \rm dolce far niente, \yfrak aber:
+das: Dolcefarniente.
+\par
+\yswab Anwendung des: Bindestrichs: in Fraktursatz, der mit Antiqua vermischt ist.
+\yfrak Wenn in Fraktursatz bei Wortzusammensetzungen der eine Teil der
+Zusammensetzung aus: Antiqua gesetzt werden mu"s, so sind etwa vorkommende
+Bindestriche aus: der Textschrift, also aus: Fraktur, zu se\-tzen, z. B.
+\rm CGS\yfrak-Ma"ssystem. Eine Aus:nahme wird nur dann gemacht, wenn der mit dem
+Bindestrich schlie"sende erste (Antiqua-) Bestandteil an das: Ende einer Zeile
+oder in Klammern zu stehen kommt; in diesem Falle ist der Bindestrich aus:
+Antiqua zu setzen. In besonderen F"allen kann auch eine Vermischung von
+Fraktur- und Antiquabindestrichen stattfinden, z. B. Hoftheater-\rm Corps-de-ballet;
+\yfrak denn innerhalb des: aus: Antiqua gesetzten Wortes: m"ussen auch die
+Bindestriche aus: Antiqua gesetzt werden.
+\par
+\yswab I (Selbstlaut) und J (Mitlaut) in der lateinischen Druckschrift. \yfrak
+In der lateinischen Druckschrift wird zwischen dem Selbstlaut und dem Mitlaut
+I genau unterschieden, und zwar steht \rm I \yfrak aus:schlie"slich f"ur den
+Selbstlaut, \rm J \yfrak aus:schlie"slich f"ur den Mitlaut. Diese Unterscheidung
+machen alle neueren Sprachen. Da"s die deutsche Druckschrift einen Unterschied
+zwischen I (Selbstlaut) und J (Mitlaut) nicht kennt, ist ein gro"ser Mangel.
+Diesen Mangel zu beseitigen versuchte schon 1879 Daniel Sanders:, indem
+er f"ur den Mitlaut das: Zeichen \char'100\ empfahl. Dieses: Zeichen ist heute
+nur vereinzelt in Drucken zu finden, hat sich also nicht allgemein eingeb"urgert
+und ist auch nicht amtlich anerkannt worden. Es: w"are sehr zu w"unschen, da"s
+auch in deutscher Schrift ein Unterschied zwischen I (Selbstlaut) und J (Mitlaut)
+geschaffen und von der zust"andigen Beh"orde anerkannt w"urde, und zwar um so mehr,
+als: er bei den kleinen Buchstaben sowohl in deutscher (i, j) wie in lateinischer
+\rm(i, j) \yfrak Schrift bereits: seit langem besteht.\rm
+
+\head Availability\endhead
+Following a tradition of my friend Klaus Thull, these fonts are in the
+public domain. The should be available at the Aston end Heidelberg archives.
+Also you can obtain them at my adress. The status of this software is
+postcard-ware: each satisfied user could send me a nice local postcard for my
+collection.
+
+\head References\endhead
+
+\entry{Bach, Carl Philipp Emanuel. {\sl Versuch \"uber die wahre Art das Clavier
+zu spielen. Zweyter Theil, in welchem die Lehre von dem Accompagnement und der
+freyen Fantasie abgehandelt wird.} Berlin: G. L. Winter, 1762.}
+
+\entry{Barthel, Gustav. ``Warum deutsche Schrift?'' {\sl Schrift und Schreiben} 4,
+pages 98--130, 1934.}
+
+\entry{Breitkopf, Johann Gottlob Immanuel. ``Ueber Buchdruckerey und
+Buchhandel in Leipzig.'' {\sl Journal f\"ur Fabrik, Manufaktur und Handlung}
+5, pages 1--57, 1793.}
+
+\entry{Faulmann, Carl. {\sl Das Buch der Schrift, enthaltend die
+Schriftzeichen und Alphabete aller Zeiten und aller V\"olker des Erdkreises.}
+Wien: Druck und Verlag der kaiserlich-k\"oniglichen Hof- und Staatsdruckerei,
+1880.}
+
+\entry{Glaister, Geoffrey Ashall. {\sl Glaister's Glossary of the Book.}
+London: 1960.}
+
+\entry{Kiewel, Albert, Eberhard Dietrich, Inghild St\"olting, and
+Heinold Wachtendorf. {\sl Wir lesen deutsche Schrift.} Hannover: Kallmeyer'sche
+Verlagsbuchhandlung, 1989.}
+
+\entry{Knebel, P. {\sl Sammlung der gebr\"auchlisten Schriftgattungen.}
+Landshut: Verlag der Jos. Thomann'schen Buchhandlung, 1870.}
+
+\entry{M\"ulsing, Ernst and Schmidt Alfred. {\sl Duden, Recht\-schrei\-bung der
+deutschen Sprache und der\break Fremd\-w\"or\-ter.}
+Leipzig und Wien: Bibliographisches
+Institut, 1919.}
+
+\entry{Partl, Hubert. ``German \TeX.'' {\sl TUGboat} 9 (1), pages 70--72.}
+
+\entry{Stiebner, Erhardt, Helmut Huber and Heribert Zahn. {\sl Schriften +
+Zeichen.} M\"unchen: Bruckmann, 1987.}
+
+\entry{Thormeyer, Traugott. ``Heraus aus der Schriftverelendung!''
+{\sl Schrift und Schreiben} 4, pages 131--136, 1934.}
+
+\entry{Updike, D. B. {\sl Printing Types.} 1927.}
+
+\entry{Walther, Karl Klaus. {\sl Lexikon der Buchkunst und Bibliophilie.}
+Leipzig: Bibliographisches Institut, 1987.}
+
+\entry{Wikenhauser, Alfred. {\sl Das Evangelium nach Johannes.} Regensburg:
+Friedrich Pustet, 1948.}
+
+\appendix\endappendix
+\centerline{\bigygoth Taufb"uchlein}\vskip1cm
+\ygoth\par
+Weyl ich teglich sehe vnd hore wie gar mit vnvleysz vnd wenigem ernst will
+nicht sagen mit leychtfertickeit man das: hohe heylige trostlich sacrament
+der tauffe handellt vber den kindeln wilchs: vrsach ich achte der auch eyne
+sey das: die so da bey stehen nichts: dauon verstehen was: da geredt vnd
+gehandellt wirt Dunckt michs: nicht alleyne n"utz sondern auch not seyn
+das: mans: yun deutsche sprache thue. Vnd habe darumb solchs: wie bisz her
+z{\font\rm=cmr10 scaled 2074\rm\accent'27\ygoth u} latin geschehen verdeutscht
+antzufahen auff deutsch z{\font\rm=cmr10 scaled 2074\rm\accent'27\ygoth u}
+teuffen da mit die paten v{\font\rm=cmr10 scaled 2074\rm\={\ygoth n}}
+beystehende deste mehr zum glauben vnnd ernstlicher andacht gereytzt werden
+vnnd die priester so da teuffen deste mehr vleysz vmb der zuh"orer willen
+haben m"ussen.
+
+Ich bitt aber ausz Christlicher trew alle die ihenigen so da teuffen kinder
+heben vnnd da bey stehen wollten z{\font\rm=cmr10 scaled
+2074\accent'27\ygoth u}
+hertzen nemen das: trefflich werck vnd den grossen ernst der hyrynnen ist.
+Denn du hie h"orist ynn den wortten diszer gepett wie kleglich vnd ernstlich
+die Christlich kirche das: kindlin her tregt vnnd mit so bestendigen
+vngezweyffelten wortten fur Gott bekennet es: sey vom teuffel besessen vnd
+eyn kind der sunden vnnd vngnaden vnd so vleyszlich bitt vmb h"ulff vnnd gnad
+durch die tauff das: es: eyn kind Gottis: werden m"uge.
+
+Darumb wolltistu bedencken wie gar es: nicht eyn schertz ist widder den teuffel
+handelln vnd den selben nicht alleyne vom kindlin iag{\font\rm=cmr10 scaled
+2074\rm\={\ygoth e}} sondern auch dem kindlin eyn solchen mechtigen feynd leben
+lang auff den halsz laden das: es: wol nott ist dem armen kindlin ausz gantzem
+hertzen vnnd starckem glawben beystehen auffs: andechtigist bitten das: yhm Got
+nach lautt diszer gepett nicht alleyn von des: teuffels: gewalt vnd sterben
+bestehen. Vnd ich besorge das: darumb die leutt nach der tauff so vbel auch
+geratten das: man so kallt und lessig mit yhn vmbgangen und so gar on ernst fur
+sie gebett hatt ynn der tauffe.
+\vskip0.7cm
+\centerline{\rm Appendix A. An extract from Luther's Taufb\"uchlein.}
+
+\appendix\endappendix
+\font\yfrak=yfrak scaled 1728
+\font\yswab=yswab scaled 1728
+\font\yinit=yinitdd scaled 1728
+\hsize=14cm\hoffset=0.9cm
+\def\paragraph{{\yfrak\char'074}}
+\font\bigyfrak=yfrak scaled 2487
+\def\k{{\kern0.7mm}}
+\centerline{\bigyfrak E\k i\k n\k l\k e\k i\k t\k u\k n\k g}
+\vskip0.5cm
+\centerline{\yfrak \paragraph. 1.}
+\vskip0.5cm
+\hangindent=2.54cm\hangafter=-4
+\hskip-3.24cm\lower-2.7mm\hbox{\yinit D}\hskip1.5mm
+\yfrak ie \yswab Orgel, \yfrak der \yswab Fl*ugel, \yfrak das: \yswab
+Fortepiano \yfrak und das: \yswab Clavicord \yfrak sind die gebr*auchlisten
+Clavierinstrumente zum Accompagnement.\hfill\break\indent
+\paragraph. 2. Es: ist Schade, da"s die sch*one Erfindung des \yswab Holfeldischen
+Bogenclaviers: \yfrak noch nicht gemeinn*utzig geworden ist; man kann dahero
+dessen besondere Vorz*uge hierinnen noch nicht genau bestimmen. Es: ist gewi"s
+zu glauben, da"s es: sich auch bey der Begleitung gut aus:nehmen werde.
+
+\paragraph. 3. Die \yswab Orgel \yfrak ist bey Kirchensachen, wegen der Fugen,
+starken Ch*ore, und *uberhaupt der Bindung wegen unentbehrlich. Sie bef*ordert
+die Pracht und erh*alt die Ordnung.
+
+\paragraph. 4. So bald aber in der Kirche Recitative und Arien, besonders: solche,
+wo die Mittelstimmen der Singstimme, durch ein simpel Accompagnement alle
+Freyheit zum Ver*andern lassen, mit vorkommen, so mu"s ein \yswab Fl*ugel \yfrak
+dabey seyn. Man h*ort leyder mehr als: zu oft, wie kahl in diesem Falle die
+Aus:f*uhrung ohne Begleitung des: Fl*ugels: aus:f*allt.
+
+\paragraph. 5. Dieses: letzere Instrument ist ausserdem beym Theater und in der Cammer
+wegen solcher Arien und Recitative unentbehrlich.
+
+\paragraph. 6. Das: \yswab Fortepiano \yfrak und das: \yswab Clavicord \yfrak
+unterst*utzen am besten eine Aus:f*uhrung, wo die gr*osten Feinigkeiten des:
+Geschmacks: vorkommen. Nur wollen gewisse S*anger lieber mit dem \yswab Clavicord
+\yfrak oder \yswab Fl*ugel, \yfrak als: mit jenem Instrumente, accompagnirt
+seyn.
+
+\paragraph. 7. Man kann also ohne Begleitung eines: Clavierinstruments: kein
+St*uck auff*uhren. Auch bey den st*arksten Musiken, in Opern, so gar unter
+freyem Himmel, wo man gewi"s glauben solte, nicht das: geringste vom Fl*ugel
+zu h*oren, vermi"st man ihn, wenn er wegbleibt. H*ort man in der H*ohe zu, so
+kann man jeden Ton besselben deutlich vernehmen. Ich spreche aus: der Erfahrung
+und jedermann kann es: versuchen.
+
+\paragraph. 8. Einige lassen sich beym Solo mit der Bratsche oder gar mit der
+Violine ohne Clavier begleiten. Wenn dieses: aus: Noth, wegen Mangel an \yswab
+guten \yfrak Clavieristen, geschiehet, so mu"s man sie entschuldigen; sonst
+aber gehen bey dieser Art von Aus:f*uhrung viele Ungleichheiten vor. Aus: dem
+Solo wird ein Duett, wenn der Ba"s gut gearbeitet ist; ist er schlecht,%
+\break\line{\hfill \vphantom{A}wie}\rm
+\vskip0.7cm
+\centerline{Appendix B. An extract from C. P. E. Bach's Treatise on the true Art
+of playing the Keyboard.}
+
+
+\appendix\endappendix
+\font\yinit=yinit scaled 1728
+\def\k{\kern 0.7cm }
+\noindent\centerline{\yinit A\k B\k C\k D\k E}
+\vskip0.7cm
+\noindent\centerline{\yinit F\k G\k H\k I\k K}
+\vskip0.7cm
+\noindent\centerline{\yinit L\k M\k N\k O\k P}
+\vskip0.7cm
+\noindent\centerline{\yinit Q\k R\k S\k T\k U}
+\vskip0.7cm
+\noindent\centerline{\yinit V\k W\k X\k Y\k Z}
+\vskip1.5cm
+\centerline{\rm Appendix C. The font |yinit scaled 1728|.}
+\end
diff --git a/fonts/gothic/oldlatin/README b/fonts/gothic/oldlatin/README
new file mode 100644
index 0000000000..0e8a03ce97
--- /dev/null
+++ b/fonts/gothic/oldlatin/README
@@ -0,0 +1,22 @@
+Name: oldlatin
+
+Version: 1.00 (at 18/Apr/2010)
+
+Author: Taro TERASHITA at Ehime University, Japan.
+
+Email: tarotera at agr.ehime-u.ac.jp
+
+Licence: LPPL
+Copyright 2010 Taro TERASHITA
+This work may be distributed and/or modified under the
+conditions of the LaTeX Project Public License, version 1.3c.
+This work has the LPPL maintenance status `maintained'.
+The Current Maintainer of this work is Taro TERASHITA.
+
+Summary:
+``Old Latin'' --- Computer Modern like font with ``long s''
+
+Short description:
+These are the METAFONT files modified from Computer Modern
+in oder to generate ``long s'' which was used in old text.
+See the oldlatin.pdf for the detail.
diff --git a/fonts/gothic/oldlatin/olb10.mf b/fonts/gothic/oldlatin/olb10.mf
new file mode 100644
index 0000000000..42a7f102ea
--- /dev/null
+++ b/fonts/gothic/oldlatin/olb10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olb10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Bold Roman 10 point
+% based on Computer Modern Bold Roman 10 point
+% (cmb10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLB"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=10/36pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=6/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=247/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=160/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=85/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=13/36pt#; % diameter of rounded corners
+fine#:=10/36pt#; % diameter of sharply rounded corners
+thin_join#:=10/36pt#; % width of extrafine details
+hair#:=17/36pt#; % lowercase hairline breadth
+stem#:=41/36pt#; % lowercase stem breadth
+curve#:=46/36pt#; % lowercase curve breadth
+ess#:=38/36pt#; % breadth in middle of lowercase s
+flare#:=45/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=56/36pt#; % diameter of dots
+cap_hair#:=19/36pt#; % uppercase hairline breadth
+cap_stem#:=51/36pt#; % uppercase stem breadth
+cap_curve#:=55/36pt#; % uppercase curve breadth
+cap_ess#:=53/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.6pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=10/36pt#; % vertical distance from serif base to tangent
+jut#:=25/36pt#; % protrusion of lowercase serifs
+cap_jut#:=34/36pt#; % protrusion of uppercase serifs
+beak_jut#:=11/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=13/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=17/36pt#; % lowercase bar thickness
+slab#:=17/36pt#; % serif and arm thickness
+cap_bar#:=17/36pt#; % uppercase bar thickness
+cap_band#:=17/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=3/36pt#; % vertical drop of sloped serifs
+stem_corr#:=2/36pt#; % for small refinements of stem breadth
+vair_corr#:=1.5/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=4/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.5; % extra openness of math symbols
+superness:=8/11; % parameter for superellipses
+superpull:=1/8; % extra openness inside bowls
+beak_darkness:=.4; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olbx10.mf b/fonts/gothic/oldlatin/olbx10.mf
new file mode 100644
index 0000000000..f360203bb2
--- /dev/null
+++ b/fonts/gothic/oldlatin/olbx10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olbx10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Bold Extended Roman 10 point
+% based on Computer Modern Bold Extended Roman 10 point
+% (cmbx10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLBX"; font_size 10pt#;
+
+u#:=23/36pt#; % unit width
+width_adj#:=11/36pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=7/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=247/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=160/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=85/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=13/36pt#; % diameter of rounded corners
+fine#:=10/36pt#; % diameter of sharply rounded corners
+thin_join#:=10/36pt#; % width of extrafine details
+hair#:=17/36pt#; % lowercase hairline breadth
+stem#:=41/36pt#; % lowercase stem breadth
+curve#:=46/36pt#; % lowercase curve breadth
+ess#:=38/36pt#; % breadth in middle of lowercase s
+flare#:=45/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=56/36pt#; % diameter of dots
+cap_hair#:=19/36pt#; % uppercase hairline breadth
+cap_stem#:=51/36pt#; % uppercase stem breadth
+cap_curve#:=55/36pt#; % uppercase curve breadth
+cap_ess#:=53/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.6pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=10/36pt#; % vertical distance from serif base to tangent
+jut#:=25/36pt#; % protrusion of lowercase serifs
+cap_jut#:=39/36pt#; % protrusion of uppercase serifs
+beak_jut#:=11/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=13/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=17/36pt#; % lowercase bar thickness
+slab#:=17/36pt#; % serif and arm thickness
+cap_bar#:=17/36pt#; % uppercase bar thickness
+cap_band#:=17/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=3/36pt#; % vertical drop of sloped serifs
+stem_corr#:=2/36pt#; % for small refinements of stem breadth
+vair_corr#:=1.5/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=4/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.5; % extra openness of math symbols
+superness:=8/11; % parameter for superellipses
+superpull:=1/8; % extra openness inside bowls
+beak_darkness:=.4; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olbx12.mf b/fonts/gothic/oldlatin/olbx12.mf
new file mode 100644
index 0000000000..96ba837c16
--- /dev/null
+++ b/fonts/gothic/oldlatin/olbx12.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olbx12.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Bold Extended Roman 12 point
+% based on Computer Modern Bold Extended Roman 12 point
+% (cmbx12.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLBX"; font_size 12pt#;
+
+u#:=27/36pt#; % unit width
+width_adj#:=13/36pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=8/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=324/36pt#; % height of tallest characters
+asc_height#:=300/36pt#; % height of lowercase ascenders
+cap_height#:=296.4/36pt#; % height of caps
+fig_height#:=278.4/36pt#; % height of numerals
+x_height#:=192/36pt#; % height of lowercase without ascenders
+math_axis#:=108/36pt#; % axis of symmetry for math symbols
+bar_height#:=102/36pt#; % height of crossbar in lowercase e
+comma_depth#:=84/36pt#; % depth of comma below baseline
+desc_depth#:=84/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=13/36pt#; % diameter of rounded corners
+fine#:=10/36pt#; % diameter of sharply rounded corners
+thin_join#:=10.5/36pt#; % width of extrafine details
+hair#:=18.3/36pt#; % lowercase hairline breadth
+stem#:=47/36pt#; % lowercase stem breadth
+curve#:=52/36pt#; % lowercase curve breadth
+ess#:=44/36pt#; % breadth in middle of lowercase s
+flare#:=51/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=62/36pt#; % diameter of dots
+cap_hair#:=20/36pt#; % uppercase hairline breadth
+cap_stem#:=57/36pt#; % uppercase stem breadth
+cap_curve#:=61/36pt#; % uppercase curve breadth
+cap_ess#:=59/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.66pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=12/36pt#; % vertical distance from serif base to tangent
+jut#:=30/36pt#; % protrusion of lowercase serifs
+cap_jut#:=46/36pt#; % protrusion of uppercase serifs
+beak_jut#:=12.4/36pt#; % horizontal protrusion of beak serifs
+beak#:=84/36pt#; % vertical protrusion of beak serifs
+vair#:=14.3/36pt#; % vertical diameter of hairlines
+notch_cut#:=12pt#; % maximum breadth above or below notches
+bar#:=18.5/36pt#; % lowercase bar thickness
+slab#:=18.5/36pt#; % serif and arm thickness
+cap_bar#:=18.5/36pt#; % uppercase bar thickness
+cap_band#:=18.5/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=12pt#; % max breadth above/below uppercase notches
+serif_drop#:=3.6/36pt#; % vertical drop of sloped serifs
+stem_corr#:=2/36pt#; % for small refinements of stem breadth
+vair_corr#:=1.5/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=5/36pt#; % amount of overshoot for curves
+apex_o#:=4/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.4; % extra openness of math symbols
+superness:=8/11; % parameter for superellipses
+superpull:=1/8; % extra openness inside bowls
+beak_darkness:=.4; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olbx5.mf b/fonts/gothic/oldlatin/olbx5.mf
new file mode 100644
index 0000000000..93ca70724d
--- /dev/null
+++ b/fonts/gothic/oldlatin/olbx5.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olbx5.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Bold Extended Roman 5 point
+% based on Computer Modern Bold Extended Roman 5 point
+% (cmbx5.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLBX"; font_size 5pt#;
+
+u#:=14.5/36pt#; % unit width
+width_adj#:=7/36pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=3/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=3/36pt#; % extra space added to all sidebars
+
+body_height#:=135/36pt#; % height of tallest characters
+asc_height#:=125/36pt#; % height of lowercase ascenders
+cap_height#:=123.5/36pt#; % height of caps
+fig_height#:=116/36pt#; % height of numerals
+x_height#:=80/36pt#; % height of lowercase without ascenders
+math_axis#:=45/36pt#; % axis of symmetry for math symbols
+bar_height#:=40/36pt#; % height of crossbar in lowercase e
+comma_depth#:=35/36pt#; % depth of comma below baseline
+desc_depth#:=35/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=9/36pt#; % diameter of rounded corners
+fine#:=8/36pt#; % diameter of sharply rounded corners
+thin_join#:=8/36pt#; % width of extrafine details
+hair#:=15/36pt#; % lowercase hairline breadth
+stem#:=24/36pt#; % lowercase stem breadth
+curve#:=27/36pt#; % lowercase curve breadth
+ess#:=19/36pt#; % breadth in middle of lowercase s
+flare#:=27/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=31/36pt#; % diameter of dots
+cap_hair#:=17/36pt#; % uppercase hairline breadth
+cap_stem#:=28/36pt#; % uppercase stem breadth
+cap_curve#:=31/36pt#; % uppercase curve breadth
+cap_ess#:=24/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.43pt#; % thickness of lines in math symbols
+
+dish#:=.7/36pt#; % amount erased at top or bottom of serifs
+bracket#:=5/36pt#; % vertical distance from serif base to tangent
+jut#:=13/36pt#; % protrusion of lowercase serifs
+cap_jut#:=19/36pt#; % protrusion of uppercase serifs
+beak_jut#:=7/36pt#; % horizontal protrusion of beak serifs
+beak#:=25/36pt#; % vertical protrusion of beak serifs
+vair#:=10/36pt#; % vertical diameter of hairlines
+notch_cut#:=5pt#; % maximum breadth above or below notches
+bar#:=12/36pt#; % lowercase bar thickness
+slab#:=12/36pt#; % serif and arm thickness
+cap_bar#:=12/36pt#; % uppercase bar thickness
+cap_band#:=12/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=5pt#; % max breadth above/below uppercase notches
+serif_drop#:=1.5/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1.5/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=9/36pt#; % extra width at diagonal junctions
+
+o#:=3/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=1.5; % extra openness of math symbols
+superness:=8/11; % parameter for superellipses
+superpull:=1/8; % extra openness inside bowls
+beak_darkness:=.4; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olbx6.mf b/fonts/gothic/oldlatin/olbx6.mf
new file mode 100644
index 0000000000..d60ac6c0c7
--- /dev/null
+++ b/fonts/gothic/oldlatin/olbx6.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olbx6.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Bold Extended Roman 6 point
+% based on Computer Modern Bold Extended Roman 6 point
+% (cmbx6.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLBX"; font_size 6pt#;
+
+u#:=16.2/36pt#; % unit width
+width_adj#:=7.8/36pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=3.8/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=2/36pt#; % extra space added to all sidebars
+
+body_height#:=162/36pt#; % height of tallest characters
+asc_height#:=150/36pt#; % height of lowercase ascenders
+cap_height#:=148.2/36pt#; % height of caps
+fig_height#:=139.2/36pt#; % height of numerals
+x_height#:=96/36pt#; % height of lowercase without ascenders
+math_axis#:=54/36pt#; % axis of symmetry for math symbols
+bar_height#:=49/36pt#; % height of crossbar in lowercase e
+comma_depth#:=42/36pt#; % depth of comma below baseline
+desc_depth#:=42/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=10/36pt#; % diameter of rounded corners
+fine#:=9/36pt#; % diameter of sharply rounded corners
+thin_join#:=9/36pt#; % width of extrafine details
+hair#:=15.4/36pt#; % lowercase hairline breadth
+stem#:=28/36pt#; % lowercase stem breadth
+curve#:=31/36pt#; % lowercase curve breadth
+ess#:=25/36pt#; % breadth in middle of lowercase s
+flare#:=31/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=36/36pt#; % diameter of dots
+cap_hair#:=18/36pt#; % uppercase hairline breadth
+cap_stem#:=33/36pt#; % uppercase stem breadth
+cap_curve#:=36/36pt#; % uppercase curve breadth
+cap_ess#:=31/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.47pt#; % thickness of lines in math symbols
+
+dish#:=.8/36pt#; % amount erased at top or bottom of serifs
+bracket#:=6/36pt#; % vertical distance from serif base to tangent
+jut#:=15/36pt#; % protrusion of lowercase serifs
+cap_jut#:=23/36pt#; % protrusion of uppercase serifs
+beak_jut#:=7.8/36pt#; % horizontal protrusion of beak serifs
+beak#:=36/36pt#; % vertical protrusion of beak serifs
+vair#:=11/36pt#; % vertical diameter of hairlines
+notch_cut#:=6pt#; % maximum breadth above or below notches
+bar#:=13/36pt#; % lowercase bar thickness
+slab#:=13/36pt#; % serif and arm thickness
+cap_bar#:=13/36pt#; % uppercase bar thickness
+cap_band#:=13/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=6pt#; % max breadth above/below uppercase notches
+serif_drop#:=1.8/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1.6/36pt#; % for small refinements of stem breadth
+vair_corr#:=1.1/36pt#; % for small refinements of hairline height
+apex_corr#:=5/36pt#; % extra width at diagonal junctions
+
+o#:=3/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=1.3; % extra openness of math symbols
+superness:=8/11; % parameter for superellipses
+superpull:=1/8; % extra openness inside bowls
+beak_darkness:=.4; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olbx7.mf b/fonts/gothic/oldlatin/olbx7.mf
new file mode 100644
index 0000000000..0d95acc9fe
--- /dev/null
+++ b/fonts/gothic/oldlatin/olbx7.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olbx7.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Bold Extended Roman 7 point
+% based on Computer Modern Bold Extended Roman 7 point
+% (cmbx7.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLBX"; font_size 7pt#;
+
+u#:=17.9/36pt#; % unit width
+width_adj#:=8.6/36pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=4.6/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=1/36pt#; % extra space added to all sidebars
+
+body_height#:=189/36pt#; % height of tallest characters
+asc_height#:=175/36pt#; % height of lowercase ascenders
+cap_height#:=172.9/36pt#; % height of caps
+fig_height#:=162.4/36pt#; % height of numerals
+x_height#:=112/36pt#; % height of lowercase without ascenders
+math_axis#:=63/36pt#; % axis of symmetry for math symbols
+bar_height#:=58/36pt#; % height of crossbar in lowercase e
+comma_depth#:=49/36pt#; % depth of comma below baseline
+desc_depth#:=49/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=11/36pt#; % diameter of rounded corners
+fine#:=9/36pt#; % diameter of sharply rounded corners
+thin_join#:=9/36pt#; % width of extrafine details
+hair#:=15.8/36pt#; % lowercase hairline breadth
+stem#:=32/36pt#; % lowercase stem breadth
+curve#:=35/36pt#; % lowercase curve breadth
+ess#:=29/36pt#; % breadth in middle of lowercase s
+flare#:=35/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=41/36pt#; % diameter of dots
+cap_hair#:=18/36pt#; % uppercase hairline breadth
+cap_stem#:=38/36pt#; % uppercase stem breadth
+cap_curve#:=41/36pt#; % uppercase curve breadth
+cap_ess#:=37/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.51pt#; % thickness of lines in math symbols
+
+dish#:=.9/36pt#; % amount erased at top or bottom of serifs
+bracket#:=7/36pt#; % vertical distance from serif base to tangent
+jut#:=17/36pt#; % protrusion of lowercase serifs
+cap_jut#:=27/36pt#; % protrusion of uppercase serifs
+beak_jut#:=8.6/36pt#; % horizontal protrusion of beak serifs
+beak#:=46/36pt#; % vertical protrusion of beak serifs
+vair#:=11.5/36pt#; % vertical diameter of hairlines
+notch_cut#:=7pt#; % maximum breadth above or below notches
+bar#:=14/36pt#; % lowercase bar thickness
+slab#:=14/36pt#; % serif and arm thickness
+cap_bar#:=14/36pt#; % uppercase bar thickness
+cap_band#:=14/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=7pt#; % max breadth above/below uppercase notches
+serif_drop#:=2.1/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1.7/36pt#; % for small refinements of stem breadth
+vair_corr#:=1.2/36pt#; % for small refinements of hairline height
+apex_corr#:=2/36pt#; % extra width at diagonal junctions
+
+o#:=3/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=1.1; % extra openness of math symbols
+superness:=8/11; % parameter for superellipses
+superpull:=1/8; % extra openness inside bowls
+beak_darkness:=.4; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olbx8.mf b/fonts/gothic/oldlatin/olbx8.mf
new file mode 100644
index 0000000000..611ba9ffde
--- /dev/null
+++ b/fonts/gothic/oldlatin/olbx8.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olbx8.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Bold Extended Roman 8 point
+% based on Computer Modern Bold Extended Roman 8 point
+% (cmbx8.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="CMBX"; font_size 8pt#;
+
+u#:=19.6/36pt#; % unit width
+width_adj#:=9.4/36pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5.4/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=216/36pt#; % height of tallest characters
+asc_height#:=200/36pt#; % height of lowercase ascenders
+cap_height#:=197.6/36pt#; % height of caps
+fig_height#:=185.6/36pt#; % height of numerals
+x_height#:=128/36pt#; % height of lowercase without ascenders
+math_axis#:=72/36pt#; % axis of symmetry for math symbols
+bar_height#:=67/36pt#; % height of crossbar in lowercase e
+comma_depth#:=56/36pt#; % depth of comma below baseline
+desc_depth#:=56/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=12/36pt#; % diameter of rounded corners
+fine#:=10/36pt#; % diameter of sharply rounded corners
+thin_join#:=10/36pt#; % width of extrafine details
+hair#:=16.2/36pt#; % lowercase hairline breadth
+stem#:=35/36pt#; % lowercase stem breadth
+curve#:=39/36pt#; % lowercase curve breadth
+ess#:=32/36pt#; % breadth in middle of lowercase s
+flare#:=39/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=46/36pt#; % diameter of dots
+cap_hair#:=19/36pt#; % uppercase hairline breadth
+cap_stem#:=43/36pt#; % uppercase stem breadth
+cap_curve#:=46/36pt#; % uppercase curve breadth
+cap_ess#:=43/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.54pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=8/36pt#; % vertical distance from serif base to tangent
+jut#:=19/36pt#; % protrusion of lowercase serifs
+cap_jut#:=31/36pt#; % protrusion of uppercase serifs
+beak_jut#:=9.4/36pt#; % horizontal protrusion of beak serifs
+beak#:=55/36pt#; % vertical protrusion of beak serifs
+vair#:=12/36pt#; % vertical diameter of hairlines
+notch_cut#:=8pt#; % maximum breadth above or below notches
+bar#:=15/36pt#; % lowercase bar thickness
+slab#:=15/36pt#; % serif and arm thickness
+cap_bar#:=15/36pt#; % uppercase bar thickness
+cap_band#:=15/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=8pt#; % max breadth above/below uppercase notches
+serif_drop#:=2.4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1.8/36pt#; % for small refinements of stem breadth
+vair_corr#:=1.3/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=4/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.9; % extra openness of math symbols
+superness:=8/11; % parameter for superellipses
+superpull:=1/8; % extra openness inside bowls
+beak_darkness:=.4; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olbx9.mf b/fonts/gothic/oldlatin/olbx9.mf
new file mode 100644
index 0000000000..66daef8b0e
--- /dev/null
+++ b/fonts/gothic/oldlatin/olbx9.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olbx9.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Bold Extended Roman 9 point
+% based on Computer Modern Bold Extended Roman 9 point
+% (cmbx9.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLBX"; font_size 9pt#;
+
+u#:=21.3/36pt#; % unit width
+width_adj#:=10.2/36pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=6.2/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=243/36pt#; % height of tallest characters
+asc_height#:=225/36pt#; % height of lowercase ascenders
+cap_height#:=222.3/36pt#; % height of caps
+fig_height#:=208.8/36pt#; % height of numerals
+x_height#:=144/36pt#; % height of lowercase without ascenders
+math_axis#:=81/36pt#; % axis of symmetry for math symbols
+bar_height#:=76/36pt#; % height of crossbar in lowercase e
+comma_depth#:=63/36pt#; % depth of comma below baseline
+desc_depth#:=63/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=13/36pt#; % diameter of rounded corners
+fine#:=10/36pt#; % diameter of sharply rounded corners
+thin_join#:=10/36pt#; % width of extrafine details
+hair#:=16.6/36pt#; % lowercase hairline breadth
+stem#:=38/36pt#; % lowercase stem breadth
+curve#:=43/36pt#; % lowercase curve breadth
+ess#:=35/36pt#; % breadth in middle of lowercase s
+flare#:=42/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=51/36pt#; % diameter of dots
+cap_hair#:=19/36pt#; % uppercase hairline breadth
+cap_stem#:=47/36pt#; % uppercase stem breadth
+cap_curve#:=51/36pt#; % uppercase curve breadth
+cap_ess#:=48/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.57pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=9/36pt#; % vertical distance from serif base to tangent
+jut#:=22/36pt#; % protrusion of lowercase serifs
+cap_jut#:=35/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10.2/36pt#; % horizontal protrusion of beak serifs
+beak#:=63/36pt#; % vertical protrusion of beak serifs
+vair#:=12.5/36pt#; % vertical diameter of hairlines
+notch_cut#:=9pt#; % maximum breadth above or below notches
+bar#:=16/36pt#; % lowercase bar thickness
+slab#:=16/36pt#; % serif and arm thickness
+cap_bar#:=16/36pt#; % uppercase bar thickness
+cap_band#:=16/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=9pt#; % max breadth above/below uppercase notches
+serif_drop#:=2.7/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1.9/36pt#; % for small refinements of stem breadth
+vair_corr#:=1.4/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=4/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.7; % extra openness of math symbols
+superness:=8/11; % parameter for superellipses
+superpull:=1/8; % extra openness inside bowls
+beak_darkness:=.4; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olbxsl10.mf b/fonts/gothic/oldlatin/olbxsl10.mf
new file mode 100644
index 0000000000..89d2fd2a20
--- /dev/null
+++ b/fonts/gothic/oldlatin/olbxsl10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olbxsl10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Bold Extended Slanted Roman 10 point
+% based on Computer Modern Bold Extended Slanted Roman 10 point
+% (cmbxsl10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLBXSL"; font_size 10pt#;
+
+u#:=23/36pt#; % unit width
+width_adj#:=11/36pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=7/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=247/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=160/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=85/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=13/36pt#; % diameter of rounded corners
+fine#:=10/36pt#; % diameter of sharply rounded corners
+thin_join#:=10/36pt#; % width of extrafine details
+hair#:=17/36pt#; % lowercase hairline breadth
+stem#:=41/36pt#; % lowercase stem breadth
+curve#:=46/36pt#; % lowercase curve breadth
+ess#:=38/36pt#; % breadth in middle of lowercase s
+flare#:=45/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=56/36pt#; % diameter of dots
+cap_hair#:=19/36pt#; % uppercase hairline breadth
+cap_stem#:=51/36pt#; % uppercase stem breadth
+cap_curve#:=55/36pt#; % uppercase curve breadth
+cap_ess#:=53/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.6pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=10/36pt#; % vertical distance from serif base to tangent
+jut#:=25/36pt#; % protrusion of lowercase serifs
+cap_jut#:=39/36pt#; % protrusion of uppercase serifs
+beak_jut#:=11/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=13/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=17/36pt#; % lowercase bar thickness
+slab#:=17/36pt#; % serif and arm thickness
+cap_bar#:=17/36pt#; % uppercase bar thickness
+cap_band#:=17/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=3/36pt#; % vertical drop of sloped serifs
+stem_corr#:=2/36pt#; % for small refinements of stem breadth
+vair_corr#:=1.5/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=4/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=1/6; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.5; % extra openness of math symbols
+superness:=8/11; % parameter for superellipses
+superpull:=1/8; % extra openness inside bowls
+beak_darkness:=.4; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/oldlatin.pdf b/fonts/gothic/oldlatin/oldlatin.pdf
new file mode 100644
index 0000000000..6a860b4916
--- /dev/null
+++ b/fonts/gothic/oldlatin/oldlatin.pdf
Binary files differ
diff --git a/fonts/gothic/oldlatin/oldlatin.tex b/fonts/gothic/oldlatin/oldlatin.tex
new file mode 100644
index 0000000000..bd142bbfaa
--- /dev/null
+++ b/fonts/gothic/oldlatin/oldlatin.tex
@@ -0,0 +1,252 @@
+\documentclass[a4paper]{article}
+
+\title{``Old Latin''\\
+--- Computer Modern like font with ``long s'' ---}
+\author{Taro \textsc{Terashita}
+\thanks{Ehime University, Japan.
+Email: \texttt{tarotera @ agr.ehime-u.ac.jp}
+}
+}
+\date{Version 1.00 (18. Apr. 2010)}
+\begin{document}
+\maketitle
+\tableofcontents
+
+\section{Introduction}
+
+As hobby and research,
+I copy from old German text on real paper into digital \LaTeX\ file.
+There are already fine fonts for the purpose:
+\texttt{yfrak}, \texttt{ygoth} and \texttt{yswab}.
+These fonts have not only fine graphic but also academic correctness.
+You learn how to typeset in ancient days if you master them.
+There is a package \texttt{oldgerm} for such old German fonts.
+I used be with it when the idea of ``Old Latin Font'' occurred,
+while I use the package \texttt{yfonts} with \texttt{german} today.
+
+Even in such happy time with these old German fonts,
+I find also some words with Latin font in original old book.
+In such case, normal Latin font is available, of course.
+Computer Modern is default of \TeX\ and suitable enough,
+but there is a problem with modern Latin fonts, i.~e.\ ``long s''
+(in German, ``langes s''):
+It looks like ``f'' but lacks right half of side bar.
+
+There is also Latin font with ``long s''
+in \LaTeX\ Font Catalogue, like ``Day Roman S''.
+But I love Computer Modern
+because of its shape and its philosophy.
+That is more than a design, that is a system.
+And it looked not so difficult to modify long s from ``f'';
+just bite off a little bit short side bar, wouldn't it?
+Additionally,
+I found some ligatures with ``t'' in old text,
+for example ``(long)st'' in ``Forst'' or ``ct'' in ``Inspector'',
+and tried to design them, too.
+
+Actually, it was not as easy as I've thought.
+The problems occur not direct by designing new fonts but
+mainly by setting new rules of ligature.
+However, I did somehow.
+
+You see not only practical ``long s'' in Roman as result,
+but also some fun fonts
+in Bold, Dunhil, Slanted, Sans Serif, Typewriter Text,
+which are generated through one common body, \texttt{roman.mf}.
+(You see then why the font in Italic
+was not redesigned.
+The font is generated through \texttt{textit.mf}.)
+
+I wish you enjoying this variation named ``Old Latin''.
+Your corrections and comments are always welcome.
+Especially, I let all combinations of ligatures allowed
+\uppercase{without} any knowledge in Germanistik or in history of Typesetting.
+So, some ligatures may be not allowed or not possible in real text.
+I am happy to hear about such information.
+
+\section{Lists of ``Old Latin''}
+
+\subsection{Parameter files}
+
+\texttt{%
+olb10.mf
+olbx5.mf olbx6.mf olbx7.mf olbx8.mf olbx9.mf olbx10.mf olbx12.mf
+olbxsl10.mf
+oldunh10.mf
+olff10.mf
+olfib8.mf
+olr5.mf olr6.mf olr7.mf olr8.mf olr9.mf olr10.mf olr10s.mf olr12.mf olr17.mf
+olsl8.mf olsl9.mf olsl10.mf olsl12.mf
+olsltt10.mf
+olss8.mf olss9.mf olss10.mf olss12.mf olss17.mf
+olssbx10.mf
+olssdc10.mf
+olssi8.mf olssi9.mf olssi10.mf olssi12.mf olssi17.mf
+olssq8.mf olssqi8.mf
+oltt8.mf oltt9.mf oltt10.mf oltt12.mf
+olvtt10.mf
+}
+
+\subsection{Common body files}
+
+\texttt{%
+oroman.mf
+oromanl.mf
+oromlig.mf
+oromligs.mf
+}
+
+\subsection{\LaTeX\ files}
+Your \LaTeX\ and dvi-viewer generates \texttt{tfm} and \texttt{pk} files
+with these files:\\
+\texttt{%
+test\_alphabet.tex
+test\_ol\_all.tex
+test\_ol\_bf.tex
+test\_ol\_rm.tex
+test\_ol\_sl.tex
+test\_ol\_ss.tex
+test\_ol\_tt.tex
+}
+
+And also sample files in same names with suffix \texttt{.pdf}
+
+\subsection{Required files of Computer Modern}
+
+These are not inclusive in this contribution.
+There must be somewhere in your \TeX\ system:\\
+\texttt{%
+romanu.mf
+greeku.mf
+romand.mf
+romanp.mf
+romspl.mf
+romspu.mf
+punct.mf
+accent.mf
+comlig.mf
+romsub.mf
+}
+
+\section{My Environment}
+
+You have all files above and it depends on you how cook them.
+As a example, I will show you how I did.
+I worked with following softwares:
+\begin{itemize}
+\item Microsoft Windows XP, Version 5.1.2600
+\item pdfTeX, Version 3.1415926-1.40.10 (Web2C 2009)
+\item dviout for Windows, Version 3.18.1
+\item dvipdfmx, Version 20090919
+\end{itemize}
+I hope you understand or infer what the following explanation means,
+even if you use Mac OS or UNIX.
+
+\section{How to install ``Old Latin''}
+
+\begin{itemize}
+\item
+Check if all above listed files
+(\texttt{ol*.mf, orom*.mf} and \texttt{test\_*.tex})
+are in your current work directory.
+\item
+Tip the command \texttt{latex test\_ol\_all},
+then \texttt{latex} stops because there is no \texttt{tfm} files.
+Just tip \texttt{r} for run further,
+then \texttt{latex} generates \texttt{tfm} files automatically.
+Try \texttt{latex} again after that,
+then it generates \texttt{dvi} file smoothly
+with fresh generated \texttt{tfm} files.
+
+\item
+Now you have two ways to display:
+ \begin{itemize}
+ \item
+ \texttt{dviout} for windows
+ $\rightarrow$ open file
+ $\rightarrow$ sellect \texttt{test\_ol\_all.dvi}.
+ At first, \texttt{dviout} will stop because there is no \texttt{pk} files.
+ Just click the icon ``Retry'' (it can be several times),
+ then \texttt{dviout} generates \texttt{pk} files automatically.
+ After that you have to close \texttt{dviout} once and
+ copy the fresh generated \texttt{pk} files
+ from current work directory
+ into the directory which your \texttt{dviout} can refer.
+ Then let \texttt{dviout} with \texttt{test\_ol\_all} again and
+ it shows you the result.
+ \item
+ Tip command \texttt{dvipdfmx test\_ol\_all}
+ and it generates \texttt{pk} files automatically.
+ See the result \texttt{pdf} file with your viewer,
+ for example Adobe Reader.
+ \end{itemize}
+\item
+If everything goes well,
+try other \texttt{test\_ol\_*.tex} files
+to generate all rest \texttt{tfm} and \texttt{pk} files.
+Then move \texttt{mf}, \texttt{tfm} and \texttt{pk} files
+into each correct directories.
+For example, I created new directories
+(A hint to decide the place:
+Near by the directory named \texttt{gothic}):\\
+\texttt{/texmf/fonts/source/public/oldlatin} for \texttt{mf} files,\\
+\texttt{/texmf/fonts/tfm/oldlatin} for \texttt{tfm} files and\\
+\texttt{/texmf/fonts/pk/cx/public/oldlatin} for \texttt{pk} files.
+
+\end{itemize}
+
+\section{How to use ``Old Latin''}
+
+See the inside of \texttt{test\_ol\_*.tex} files.
+That is shortest way to use the fonts.
+You declare:\\
+\texttt{{$\backslash$}font{$\backslash$}olr=olr10 scaled 1000}\\
+and write:\\
+\texttt{{$\backslash$}olr Forstwissenschaft}\\
+then the word ``Forstwissenschaft'' will be written with ``Old Latin'' font.
+
+You cannot change the size or shape with the commands
+like \texttt{{$\backslash$}large} or \texttt{{$\backslash$}textsl}.
+You have to declare every fonts for each size and shape.
+The rough comparison is:
+5 point is for \texttt{$\backslash$tiny},
+7 point for \texttt{$\backslash$scriptsize},
+8 point for \texttt{$\backslash$footnotesize},
+9 point for \texttt{$\backslash$small},
+10 point for \texttt{$\backslash$normalsize},
+12 point for \texttt{$\backslash$large} and
+17 point for \texttt{$\backslash$LARGE}.
+And \texttt{olr} is for Roman,
+\texttt{olbf} for Boldface,
+\texttt{olsl} for Slanted (differs from ``italic''),
+\texttt{olss} for Sans Serif,
+\texttt{oltt} for Typewriting Text.
+
+If you know NFSS2 well, then you can solve better
+(regrettably, I couldn't).
+See the \texttt{fntguide.pdf} (or \texttt{.tex}) in your \TeX\ system,
+or the book ``The \LaTeX\ Companion''.
+
+For ``Sperrsatz'' (this is a German word),
+which has larger space between letters and
+was used in order to emphasize,
+you can make new font
+with changing parameter \texttt{letter\_fit\#}
+in your favorite \texttt{ol*.mf}.
+I add \texttt{olr10s.mf} as an example.
+The result shows you an easygoing atmosphere
+especially by ligatured letters,
+but I do not recommend you this way.
+Use package \texttt{soul.sty}, that is much better.
+
+If you want to call a letter direct with code number,
+then get the code number at first.
+Each program for letter in \texttt{mf} file
+begins with ``\texttt{cmchar}'' and short explanation.
+In the next line you will find ``\texttt{beginchar(oct"213"\ldots}''
+for example.
+Here the number ``213'' is what you want.
+Write \verb|\symbol{'213}| in \texttt{tex} file,
+and \LaTeX\ generates the letter.
+
+\end{document}
diff --git a/fonts/gothic/oldlatin/oldunh10.mf b/fonts/gothic/oldlatin/oldunh10.mf
new file mode 100644
index 0000000000..fe8b94799f
--- /dev/null
+++ b/fonts/gothic/oldlatin/oldunh10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE oldunh10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Dunhil Roman 10 point
+% based on Computer Modern Dunhill Roman 10 point
+% (cmdunh10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLDUNH"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=370/36pt#; % height of tallest characters
+asc_height#:=350/36pt#; % height of lowercase ascenders
+cap_height#:=346/36pt#; % height of caps
+fig_height#:=332/36pt#; % height of numerals
+x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=9/36pt#; % lowercase hairline breadth
+stem#:=25/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=8/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olff10.mf b/fonts/gothic/oldlatin/olff10.mf
new file mode 100644
index 0000000000..654f526ad2
--- /dev/null
+++ b/fonts/gothic/oldlatin/olff10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olff10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Funny Roman 10 point
+% based on Computer Modern Funny Roman 10 point
+% (cmff10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLFF"; font_size 10pt#;
+
+u#:=16/36pt#; % unit width
+width_adj#:=-16/36pt#; % width adjustment for certain characters
+serif_fit#:=-3/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-4/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=2/36pt#; % extra space added to all sidebars
+
+body_height#:=240/36pt#; % height of tallest characters
+asc_height#:=220/36pt#; % height of lowercase ascenders
+cap_height#:=225/36pt#; % height of caps
+fig_height#:=210/36pt#; % height of numerals
+x_height#:=190/36pt#; % height of lowercase without ascenders
+math_axis#:=55/36pt#; % axis of symmetry for math symbols
+bar_height#:=60/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=100/36pt#; % depth of lowercase descenders
+
+crisp#:=10/36pt#; % diameter of serif corners
+tiny#:=0pt#; % diameter of rounded corners
+fine#:=0pt#; % diameter of sharply rounded corners
+thin_join#:=14/36pt#; % width of extrafine details
+hair#:=12/36pt#; % lowercase hairline breadth
+stem#:=16/36pt#; % lowercase stem breadth
+curve#:=20/36pt#; % lowercase curve breadth
+ess#:=22/36pt#; % breadth in middle of lowercase s
+flare#:=24/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=26/36pt#; % diameter of dots
+cap_hair#:=16/36pt#; % uppercase hairline breadth
+cap_stem#:=24/36pt#; % uppercase stem breadth
+cap_curve#:=26/36pt#; % uppercase curve breadth
+cap_ess#:=28/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.5pt#; % thickness of lines in math symbols
+
+dish#:=5/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=3/36pt#; % protrusion of lowercase serifs
+cap_jut#:=4/36pt#; % protrusion of uppercase serifs
+beak_jut#:=-8/36pt#; % horizontal protrusion of beak serifs
+beak#:=10/36pt#; % vertical protrusion of beak serifs
+vair#:=14/36pt#; % vertical diameter of hairlines
+notch_cut#:=2/36pt#; % maximum breadth above or below notches
+bar#:=17/36pt#; % lowercase bar thickness
+slab#:=20/36pt#; % serif and arm thickness
+cap_bar#:=22/36pt#; % uppercase bar thickness
+cap_band#:=17/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=3/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=-10/36pt#; % vertical drop of sloped serifs
+stem_corr#:=-1/36pt#; % for small refinements of stem breadth
+vair_corr#:=-1/36pt#; % for small refinements of hairline height
+apex_corr#:=6/36pt#; % extra width at diagonal junctions
+
+o#:=4/36pt#; % amount of overshoot for curves
+apex_o#:=9/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=-.1; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.5; % extra openness of math symbols
+superness:=2/3; % parameter for superellipses
+superpull:=-1/8; % extra openness inside bowls
+beak_darkness:=.5; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olfib8.mf b/fonts/gothic/oldlatin/olfib8.mf
new file mode 100644
index 0000000000..78ae589166
--- /dev/null
+++ b/fonts/gothic/oldlatin/olfib8.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olfib8.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Roman Fibonacci Font
+% based on Computer Modern Roman Fibonacci Font
+% (cmfib8.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLFIB"; font_size 8pt#;
+
+u#:=21/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=-2/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=0pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=233/36pt#; % height of tallest characters
+asc_height#:=233/36pt#; % height of lowercase ascenders
+cap_height#:=233/36pt#; % height of caps
+fig_height#:=233/36pt#; % height of numerals
+x_height#:=144/36pt#; % height of lowercase without ascenders
+math_axis#:=89/36pt#; % axis of symmetry for math symbols
+bar_height#:=89/36pt#; % height of crossbar in lowercase e
+comma_depth#:=55/36pt#; % depth of comma below baseline
+desc_depth#:=55/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=13/36pt#; % diameter of rounded corners
+fine#:=13/36pt#; % diameter of sharply rounded corners
+thin_join#:=13/36pt#; % width of extrafine details
+hair#:=21/36pt#; % lowercase hairline breadth
+stem#:=34/36pt#; % lowercase stem breadth
+curve#:=39/36pt#; % lowercase curve breadth
+ess#:=34/36pt#; % breadth in middle of lowercase s
+flare#:=34/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=34/36pt#; % diameter of dots
+cap_hair#:=21/36pt#; % uppercase hairline breadth
+cap_stem#:=34/36pt#; % uppercase stem breadth
+cap_curve#:=39/36pt#; % uppercase curve breadth
+cap_ess#:=34/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=21/36pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=21/36pt#; % vertical distance from serif base to tangent
+jut#:=21/36pt#; % protrusion of lowercase serifs
+cap_jut#:=21/36pt#; % protrusion of uppercase serifs
+beak_jut#:=13/36pt#; % horizontal protrusion of beak serifs
+beak#:=55/36pt#; % vertical protrusion of beak serifs
+vair#:=13/36pt#; % vertical diameter of hairlines
+notch_cut#:=8pt#; % maximum breadth above or below notches
+bar#:=13/36pt#; % lowercase bar thickness
+slab#:=13/36pt#; % serif and arm thickness
+cap_bar#:=13/36pt#; % uppercase bar thickness
+cap_band#:=13/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=8pt#; % max breadth above/below uppercase notches
+serif_drop#:=3/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=8/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=3/8; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/13; % extra openness inside bowls
+beak_darkness:=5/13; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olr10.mf b/fonts/gothic/oldlatin/olr10.mf
new file mode 100644
index 0000000000..c4273c1738
--- /dev/null
+++ b/fonts/gothic/oldlatin/olr10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olr10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Roman 10 point
+% based on Computer Modern Roman 10 point
+% (cmr10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLR"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=9/36pt#; % lowercase hairline breadth
+stem#:=25/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=8/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olr10s.mf b/fonts/gothic/oldlatin/olr10s.mf
new file mode 100644
index 0000000000..f8c2a8e9e7
--- /dev/null
+++ b/fonts/gothic/oldlatin/olr10s.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olr10s.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Roman 10 point for Speersatz
+% based on Computer Modern Roman 10 point
+% (cmr10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLR"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=1pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=9/36pt#; % lowercase hairline breadth
+stem#:=25/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=8/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olr12.mf b/fonts/gothic/oldlatin/olr12.mf
new file mode 100644
index 0000000000..5d7f7237be
--- /dev/null
+++ b/fonts/gothic/oldlatin/olr12.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olr12.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Roman 12 point
+% based on Computer Modern Roman 12 point
+% (cmr12.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLR"; font_size 12pt#;
+
+u#:=23.5/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5.8/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=324/36pt#; % height of tallest characters
+asc_height#:=300/36pt#; % height of lowercase ascenders
+cap_height#:=295.2/36pt#; % height of caps
+fig_height#:=278.4/36pt#; % height of numerals
+x_height#:=186/36pt#; % height of lowercase without ascenders
+math_axis#:=108/36pt#; % axis of symmetry for math symbols
+bar_height#:=104.4/36pt#; % height of crossbar in lowercase e
+comma_depth#:=84/36pt#; % depth of comma below baseline
+desc_depth#:=84/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7.5/36pt#; % width of extrafine details
+hair#:=9.5/36pt#; % lowercase hairline breadth
+stem#:=28/36pt#; % lowercase stem breadth
+curve#:=33/36pt#; % lowercase curve breadth
+ess#:=30/36pt#; % breadth in middle of lowercase s
+flare#:=36/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=42/36pt#; % diameter of dots
+cap_hair#:=11.5/36pt#; % uppercase hairline breadth
+cap_stem#:=35/36pt#; % uppercase stem breadth
+cap_curve#:=40/36pt#; % uppercase curve breadth
+cap_ess#:=38/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.44pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=24/36pt#; % vertical distance from serif base to tangent
+jut#:=33/36pt#; % protrusion of lowercase serifs
+cap_jut#:=41/36pt#; % protrusion of uppercase serifs
+beak_jut#:=11.4/36pt#; % horizontal protrusion of beak serifs
+beak#:=84/36pt#; % vertical protrusion of beak serifs
+vair#:=8.5/36pt#; % vertical diameter of hairlines
+notch_cut#:=12pt#; % maximum breadth above or below notches
+bar#:=12.5/36pt#; % lowercase bar thickness
+slab#:=12.5/36pt#; % serif and arm thickness
+cap_bar#:=12.5/36pt#; % uppercase bar thickness
+cap_band#:=12.5/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=12pt#; % max breadth above/below uppercase notches
+serif_drop#:=4.8/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=9/36pt#; % amount of overshoot for curves
+apex_o#:=9/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=-0.2; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olr17.mf b/fonts/gothic/oldlatin/olr17.mf
new file mode 100644
index 0000000000..f9ed5f4d05
--- /dev/null
+++ b/fonts/gothic/oldlatin/olr17.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olr17.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Roman 17 point (more or less)
+% based on Computer Modern Roman 17 point
+% (cmr17.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLR"; font_size 17.28pt#;
+
+u#:=32.5/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=8/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=-0.1pt#; % extra space added to all sidebars
+
+body_height#:=466/36pt#; % height of tallest characters
+asc_height#:=432/36pt#; % height of lowercase ascenders
+cap_height#:=425/36pt#; % height of caps
+fig_height#:=401/36pt#; % height of numerals
+x_height#:=267.8/36pt#; % height of lowercase without ascenders
+math_axis#:=155.5/36pt#; % axis of symmetry for math symbols
+bar_height#:=150/36pt#; % height of crossbar in lowercase e
+comma_depth#:=121/36pt#; % depth of comma below baseline
+desc_depth#:=121/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=9/36pt#; % width of extrafine details
+hair#:=11/36pt#; % lowercase hairline breadth
+stem#:=33/36pt#; % lowercase stem breadth
+curve#:=40/36pt#; % lowercase curve breadth
+ess#:=35/36pt#; % breadth in middle of lowercase s
+flare#:=45/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=51/36pt#; % diameter of dots
+cap_hair#:=13/36pt#; % uppercase hairline breadth
+cap_stem#:=41/36pt#; % uppercase stem breadth
+cap_curve#:=47/36pt#; % uppercase curve breadth
+cap_ess#:=43/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.6pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=34/36pt#; % vertical distance from serif base to tangent
+jut#:=42/36pt#; % protrusion of lowercase serifs
+cap_jut#:=50/36pt#; % protrusion of uppercase serifs
+beak_jut#:=15/36pt#; % horizontal protrusion of beak serifs
+beak#:=121/36pt#; % vertical protrusion of beak serifs
+vair#:=10/36pt#; % vertical diameter of hairlines
+notch_cut#:=17pt#; % maximum breadth above or below notches
+bar#:=16/36pt#; % lowercase bar thickness
+slab#:=16/36pt#; % serif and arm thickness
+cap_bar#:=16/36pt#; % uppercase bar thickness
+cap_band#:=16/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=17pt#; % max breadth above/below uppercase notches
+serif_drop#:=7/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=10/36pt#; % amount of overshoot for curves
+apex_o#:=10/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=-0.4; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olr5.mf b/fonts/gothic/oldlatin/olr5.mf
new file mode 100644
index 0000000000..a9698354ed
--- /dev/null
+++ b/fonts/gothic/oldlatin/olr5.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olr5.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Roman 5 point
+% based on Computer Modern Roman 5 point
+% (cmr5.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLR"; font_size 5pt#;
+
+u#:=12.5/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=2/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=5/36pt#; % extra space added to all sidebars
+
+body_height#:=135/36pt#; % height of tallest characters
+asc_height#:=125/36pt#; % height of lowercase ascenders
+cap_height#:=123/36pt#; % height of caps
+fig_height#:=116/36pt#; % height of numerals
+x_height#:=77.5/36pt#; % height of lowercase without ascenders
+math_axis#:=45/36pt#; % axis of symmetry for math symbols
+bar_height#:=43.5/36pt#; % height of crossbar in lowercase e
+comma_depth#:=35/36pt#; % depth of comma below baseline
+desc_depth#:=35/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=6/36pt#; % diameter of rounded corners
+fine#:=5/36pt#; % diameter of sharply rounded corners
+thin_join#:=5/36pt#; % width of extrafine details
+hair#:=7.5/36pt#; % lowercase hairline breadth
+stem#:=16/36pt#; % lowercase stem breadth
+curve#:=18/36pt#; % lowercase curve breadth
+ess#:=12/36pt#; % breadth in middle of lowercase s
+flare#:=19/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=22/36pt#; % diameter of dots
+cap_hair#:=8/36pt#; % uppercase hairline breadth
+cap_stem#:=19/36pt#; % uppercase stem breadth
+cap_curve#:=21/36pt#; % uppercase curve breadth
+cap_ess#:=14/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.28pt#; % thickness of lines in math symbols
+
+dish#:=.7/36pt#; % amount erased at top or bottom of serifs
+bracket#:=10/36pt#; % vertical distance from serif base to tangent
+jut#:=15/36pt#; % protrusion of lowercase serifs
+cap_jut#:=20/36pt#; % protrusion of uppercase serifs
+beak_jut#:=6/36pt#; % horizontal protrusion of beak serifs
+beak#:=35/36pt#; % vertical protrusion of beak serifs
+vair#:=6/36pt#; % vertical diameter of hairlines
+notch_cut#:=5pt#; % maximum breadth above or below notches
+bar#:=8/36pt#; % lowercase bar thickness
+slab#:=8/36pt#; % serif and arm thickness
+cap_bar#:=8/36pt#; % uppercase bar thickness
+cap_band#:=8/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=5pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=.7/36pt#; % for small refinements of stem breadth
+vair_corr#:=.5/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=4/36pt#; % amount of overshoot for curves
+apex_o#:=4/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=1; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=1; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olr6.mf b/fonts/gothic/oldlatin/olr6.mf
new file mode 100644
index 0000000000..72269647a1
--- /dev/null
+++ b/fonts/gothic/oldlatin/olr6.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olr6.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Roman 6 point
+% based on Computer Modern Roman 6 point
+% (cmr6.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLR"; font_size 6pt#;
+
+u#:=14/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=2.8/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=3/36pt#; % extra space added to all sidebars
+
+body_height#:=162/36pt#; % height of tallest characters
+asc_height#:=150/36pt#; % height of lowercase ascenders
+cap_height#:=147.6/36pt#; % height of caps
+fig_height#:=139.2/36pt#; % height of numerals
+x_height#:=93/36pt#; % height of lowercase without ascenders
+math_axis#:=54/36pt#; % axis of symmetry for math symbols
+bar_height#:=52.2/36pt#; % height of crossbar in lowercase e
+comma_depth#:=42/36pt#; % depth of comma below baseline
+desc_depth#:=42/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=7/36pt#; % diameter of rounded corners
+fine#:=6/36pt#; % diameter of sharply rounded corners
+thin_join#:=6/36pt#; % width of extrafine details
+hair#:=8/36pt#; % lowercase hairline breadth
+stem#:=18/36pt#; % lowercase stem breadth
+curve#:=20.5/36pt#; % lowercase curve breadth
+ess#:=17/36pt#; % breadth in middle of lowercase s
+flare#:=21/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=26/36pt#; % diameter of dots
+cap_hair#:=8.5/36pt#; % uppercase hairline breadth
+cap_stem#:=21.5/36pt#; % uppercase stem breadth
+cap_curve#:=24/36pt#; % uppercase curve breadth
+cap_ess#:=19/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.31pt#; % thickness of lines in math symbols
+
+dish#:=.8/36pt#; % amount erased at top or bottom of serifs
+bracket#:=12/36pt#; % vertical distance from serif base to tangent
+jut#:=17/36pt#; % protrusion of lowercase serifs
+cap_jut#:=23/36pt#; % protrusion of uppercase serifs
+beak_jut#:=6.8/36pt#; % horizontal protrusion of beak serifs
+beak#:=42/36pt#; % vertical protrusion of beak serifs
+vair#:=7/36pt#; % vertical diameter of hairlines
+notch_cut#:=6pt#; % maximum breadth above or below notches
+bar#:=8.5/36pt#; % lowercase bar thickness
+slab#:=8.5/36pt#; % serif and arm thickness
+cap_bar#:=8.5/36pt#; % uppercase bar thickness
+cap_band#:=8.5/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=6pt#; % max breadth above/below uppercase notches
+serif_drop#:=2.4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=.8/36pt#; % for small refinements of stem breadth
+vair_corr#:=.7/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=4.5/36pt#; % amount of overshoot for curves
+apex_o#:=4.5/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.8; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olr7.mf b/fonts/gothic/oldlatin/olr7.mf
new file mode 100644
index 0000000000..63c2417238
--- /dev/null
+++ b/fonts/gothic/oldlatin/olr7.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olr7.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Roman 7 point
+% based on Computer Modern Roman 7 point
+% (cmr7.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLR"; font_size 7pt#;
+
+u#:=15.5/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=3.5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=2/36pt#; % extra space added to all sidebars
+
+body_height#:=189/36pt#; % height of tallest characters
+asc_height#:=175/36pt#; % height of lowercase ascenders
+cap_height#:=172.2/36pt#; % height of caps
+fig_height#:=162.4/36pt#; % height of numerals
+x_height#:=108.5/36pt#; % height of lowercase without ascenders
+math_axis#:=63/36pt#; % axis of symmetry for math symbols
+bar_height#:=60.9/36pt#; % height of crossbar in lowercase e
+comma_depth#:=49/36pt#; % depth of comma below baseline
+desc_depth#:=49/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=7/36pt#; % diameter of rounded corners
+fine#:=6/36pt#; % diameter of sharply rounded corners
+thin_join#:=6/36pt#; % width of extrafine details
+hair#:=8.5/36pt#; % lowercase hairline breadth
+stem#:=20/36pt#; % lowercase stem breadth
+curve#:=23/36pt#; % lowercase curve breadth
+ess#:=21/36pt#; % breadth in middle of lowercase s
+flare#:=24/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=29/36pt#; % diameter of dots
+cap_hair#:=9/36pt#; % uppercase hairline breadth
+cap_stem#:=24/36pt#; % uppercase stem breadth
+cap_curve#:=27/36pt#; % uppercase curve breadth
+cap_ess#:=23/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.34pt#; % thickness of lines in math symbols
+
+dish#:=.9/36pt#; % amount erased at top or bottom of serifs
+bracket#:=14/36pt#; % vertical distance from serif base to tangent
+jut#:=19/36pt#; % protrusion of lowercase serifs
+cap_jut#:=26/36pt#; % protrusion of uppercase serifs
+beak_jut#:=7.6/36pt#; % horizontal protrusion of beak serifs
+beak#:=49/36pt#; % vertical protrusion of beak serifs
+vair#:=7/36pt#; % vertical diameter of hairlines
+notch_cut#:=7pt#; % maximum breadth above or below notches
+bar#:=9/36pt#; % lowercase bar thickness
+slab#:=9/36pt#; % serif and arm thickness
+cap_bar#:=9/36pt#; % uppercase bar thickness
+cap_band#:=9/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=7pt#; % max breadth above/below uppercase notches
+serif_drop#:=2.8/36pt#; % vertical drop of sloped serifs
+stem_corr#:=.9/36pt#; % for small refinements of stem breadth
+vair_corr#:=.9/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=5/36pt#; % amount of overshoot for curves
+apex_o#:=5/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.6; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olr8.mf b/fonts/gothic/oldlatin/olr8.mf
new file mode 100644
index 0000000000..7e823a7dc8
--- /dev/null
+++ b/fonts/gothic/oldlatin/olr8.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olr8.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Roman 8 point
+% based on Computer Modern Roman 8 point
+% (cmr8.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLR"; font_size 8pt#;
+
+u#:=17/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=4.1/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=216/36pt#; % height of tallest characters
+asc_height#:=200/36pt#; % height of lowercase ascenders
+cap_height#:=196.8/36pt#; % height of caps
+fig_height#:=185.6/36pt#; % height of numerals
+x_height#:=124/36pt#; % height of lowercase without ascenders
+math_axis#:=72/36pt#; % axis of symmetry for math symbols
+bar_height#:=69.6/36pt#; % height of crossbar in lowercase e
+comma_depth#:=56/36pt#; % depth of comma below baseline
+desc_depth#:=56/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=9/36pt#; % lowercase hairline breadth
+stem#:=22/36pt#; % lowercase stem breadth
+curve#:=25.5/36pt#; % lowercase curve breadth
+ess#:=23/36pt#; % breadth in middle of lowercase s
+flare#:=27/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=32/36pt#; % diameter of dots
+cap_hair#:=9.5/36pt#; % uppercase hairline breadth
+cap_stem#:=26.5/36pt#; % uppercase stem breadth
+cap_curve#:=30/36pt#; % uppercase curve breadth
+cap_ess#:=27/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.36pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=16/36pt#; % vertical distance from serif base to tangent
+jut#:=22/36pt#; % protrusion of lowercase serifs
+cap_jut#:=29/36pt#; % protrusion of uppercase serifs
+beak_jut#:=8.4/36pt#; % horizontal protrusion of beak serifs
+beak#:=56/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=8pt#; % maximum breadth above or below notches
+bar#:=9.5/36pt#; % lowercase bar thickness
+slab#:=9.5/36pt#; % serif and arm thickness
+cap_bar#:=9.5/36pt#; % uppercase bar thickness
+cap_band#:=9.5/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=8pt#; % max breadth above/below uppercase notches
+serif_drop#:=3.2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=6/36pt#; % amount of overshoot for curves
+apex_o#:=6/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.4; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olr9.mf b/fonts/gothic/oldlatin/olr9.mf
new file mode 100644
index 0000000000..52d27a3e7f
--- /dev/null
+++ b/fonts/gothic/oldlatin/olr9.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olr9.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Roman 9 point
+% based on Computer Modern Roman 9 point
+% (cmr9.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLR"; font_size 9pt#;
+
+u#:=18.5/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=4.6/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=243/36pt#; % height of tallest characters
+asc_height#:=225/36pt#; % height of lowercase ascenders
+cap_height#:=221.4/36pt#; % height of caps
+fig_height#:=208.8/36pt#; % height of numerals
+x_height#:=139.5/36pt#; % height of lowercase without ascenders
+math_axis#:=81/36pt#; % axis of symmetry for math symbols
+bar_height#:=78.3/36pt#; % height of crossbar in lowercase e
+comma_depth#:=63/36pt#; % depth of comma below baseline
+desc_depth#:=63/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=9/36pt#; % lowercase hairline breadth
+stem#:=24/36pt#; % lowercase stem breadth
+curve#:=28/36pt#; % lowercase curve breadth
+ess#:=25/36pt#; % breadth in middle of lowercase s
+flare#:=30/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=35/36pt#; % diameter of dots
+cap_hair#:=10/36pt#; % uppercase hairline breadth
+cap_stem#:=29/36pt#; % uppercase stem breadth
+cap_curve#:=33/36pt#; % uppercase curve breadth
+cap_ess#:=31/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.38pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=18/36pt#; % vertical distance from serif base to tangent
+jut#:=25/36pt#; % protrusion of lowercase serifs
+cap_jut#:=33/36pt#; % protrusion of uppercase serifs
+beak_jut#:=9.2/36pt#; % horizontal protrusion of beak serifs
+beak#:=63/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=9pt#; % maximum breadth above or below notches
+bar#:=10/36pt#; % lowercase bar thickness
+slab#:=10/36pt#; % serif and arm thickness
+cap_bar#:=10/36pt#; % uppercase bar thickness
+cap_band#:=10/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=9pt#; % max breadth above/below uppercase notches
+serif_drop#:=3.6/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=7/36pt#; % amount of overshoot for curves
+apex_o#:=7/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.2; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olsl10.mf b/fonts/gothic/oldlatin/olsl10.mf
new file mode 100644
index 0000000000..18e32132c6
--- /dev/null
+++ b/fonts/gothic/oldlatin/olsl10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olsl10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Slanted Roman 10 point
+% based on Computer Modern Slanted Roman 10 point
+% (cmsl10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSL"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=9/36pt#; % lowercase hairline breadth
+stem#:=25/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=8/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=1/6; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olsl12.mf b/fonts/gothic/oldlatin/olsl12.mf
new file mode 100644
index 0000000000..ff57efaf2c
--- /dev/null
+++ b/fonts/gothic/oldlatin/olsl12.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olsl12.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Slanted Roman 12 point
+% based on Computer Modern Slanted Roman 12 point
+% (cmsl12.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSL"; font_size 12pt#;
+
+u#:=23.5/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5.8/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=324/36pt#; % height of tallest characters
+asc_height#:=300/36pt#; % height of lowercase ascenders
+cap_height#:=295.2/36pt#; % height of caps
+fig_height#:=278.4/36pt#; % height of numerals
+x_height#:=186/36pt#; % height of lowercase without ascenders
+math_axis#:=108/36pt#; % axis of symmetry for math symbols
+bar_height#:=104.4/36pt#; % height of crossbar in lowercase e
+comma_depth#:=84/36pt#; % depth of comma below baseline
+desc_depth#:=84/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7.5/36pt#; % width of extrafine details
+hair#:=9.5/36pt#; % lowercase hairline breadth
+stem#:=28/36pt#; % lowercase stem breadth
+curve#:=33/36pt#; % lowercase curve breadth
+ess#:=30/36pt#; % breadth in middle of lowercase s
+flare#:=36/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=42/36pt#; % diameter of dots
+cap_hair#:=11.5/36pt#; % uppercase hairline breadth
+cap_stem#:=35/36pt#; % uppercase stem breadth
+cap_curve#:=40/36pt#; % uppercase curve breadth
+cap_ess#:=38/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.44pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=24/36pt#; % vertical distance from serif base to tangent
+jut#:=33/36pt#; % protrusion of lowercase serifs
+cap_jut#:=41/36pt#; % protrusion of uppercase serifs
+beak_jut#:=11.4/36pt#; % horizontal protrusion of beak serifs
+beak#:=84/36pt#; % vertical protrusion of beak serifs
+vair#:=8.5/36pt#; % vertical diameter of hairlines
+notch_cut#:=12pt#; % maximum breadth above or below notches
+bar#:=12.5/36pt#; % lowercase bar thickness
+slab#:=12.5/36pt#; % serif and arm thickness
+cap_bar#:=12.5/36pt#; % uppercase bar thickness
+cap_band#:=12.5/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=12pt#; % max breadth above/below uppercase notches
+serif_drop#:=4.8/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=9/36pt#; % amount of overshoot for curves
+apex_o#:=9/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=1/6; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=-0.2; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olsl8.mf b/fonts/gothic/oldlatin/olsl8.mf
new file mode 100644
index 0000000000..2eaf377a87
--- /dev/null
+++ b/fonts/gothic/oldlatin/olsl8.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olsl8.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Slanted Roman 8 point
+% based on Computer Modern Slanted Roman 8 point
+% (cmsl8.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSL"; font_size 8pt#;
+
+u#:=17/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=4.1/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=216/36pt#; % height of tallest characters
+asc_height#:=200/36pt#; % height of lowercase ascenders
+cap_height#:=196.8/36pt#; % height of caps
+fig_height#:=185.6/36pt#; % height of numerals
+x_height#:=124/36pt#; % height of lowercase without ascenders
+math_axis#:=72/36pt#; % axis of symmetry for math symbols
+bar_height#:=69.6/36pt#; % height of crossbar in lowercase e
+comma_depth#:=56/36pt#; % depth of comma below baseline
+desc_depth#:=56/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=9/36pt#; % lowercase hairline breadth
+stem#:=22/36pt#; % lowercase stem breadth
+curve#:=25.5/36pt#; % lowercase curve breadth
+ess#:=23/36pt#; % breadth in middle of lowercase s
+flare#:=27/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=32/36pt#; % diameter of dots
+cap_hair#:=9.5/36pt#; % uppercase hairline breadth
+cap_stem#:=26.5/36pt#; % uppercase stem breadth
+cap_curve#:=30/36pt#; % uppercase curve breadth
+cap_ess#:=27/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.36pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=16/36pt#; % vertical distance from serif base to tangent
+jut#:=22/36pt#; % protrusion of lowercase serifs
+cap_jut#:=29/36pt#; % protrusion of uppercase serifs
+beak_jut#:=8.4/36pt#; % horizontal protrusion of beak serifs
+beak#:=56/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=8pt#; % maximum breadth above or below notches
+bar#:=9.5/36pt#; % lowercase bar thickness
+slab#:=9.5/36pt#; % serif and arm thickness
+cap_bar#:=9.5/36pt#; % uppercase bar thickness
+cap_band#:=9.5/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=8pt#; % max breadth above/below uppercase notches
+serif_drop#:=3.2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=6/36pt#; % amount of overshoot for curves
+apex_o#:=6/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=1/6; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.4; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olsl9.mf b/fonts/gothic/oldlatin/olsl9.mf
new file mode 100644
index 0000000000..407ad3ff16
--- /dev/null
+++ b/fonts/gothic/oldlatin/olsl9.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olsl9.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Slanted Roman 9 point based on
+% Computer Modern Slanted Roman 9 point
+% (cmsl9.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSL"; font_size 9pt#;
+
+u#:=18.5/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=4.6/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=243/36pt#; % height of tallest characters
+asc_height#:=225/36pt#; % height of lowercase ascenders
+cap_height#:=221.4/36pt#; % height of caps
+fig_height#:=208.8/36pt#; % height of numerals
+x_height#:=139.5/36pt#; % height of lowercase without ascenders
+math_axis#:=81/36pt#; % axis of symmetry for math symbols
+bar_height#:=78.3/36pt#; % height of crossbar in lowercase e
+comma_depth#:=63/36pt#; % depth of comma below baseline
+desc_depth#:=63/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=9/36pt#; % lowercase hairline breadth
+stem#:=24/36pt#; % lowercase stem breadth
+curve#:=28/36pt#; % lowercase curve breadth
+ess#:=25/36pt#; % breadth in middle of lowercase s
+flare#:=30/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=35/36pt#; % diameter of dots
+cap_hair#:=10/36pt#; % uppercase hairline breadth
+cap_stem#:=29/36pt#; % uppercase stem breadth
+cap_curve#:=33/36pt#; % uppercase curve breadth
+cap_ess#:=31/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.38pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=18/36pt#; % vertical distance from serif base to tangent
+jut#:=25/36pt#; % protrusion of lowercase serifs
+cap_jut#:=33/36pt#; % protrusion of uppercase serifs
+beak_jut#:=9.2/36pt#; % horizontal protrusion of beak serifs
+beak#:=63/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=9pt#; % maximum breadth above or below notches
+bar#:=10/36pt#; % lowercase bar thickness
+slab#:=10/36pt#; % serif and arm thickness
+cap_bar#:=10/36pt#; % uppercase bar thickness
+cap_band#:=10/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=9pt#; % max breadth above/below uppercase notches
+serif_drop#:=3.6/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=7/36pt#; % amount of overshoot for curves
+apex_o#:=7/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=1/6; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=.2; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olsltt10.mf b/fonts/gothic/oldlatin/olsltt10.mf
new file mode 100644
index 0000000000..70693e8454
--- /dev/null
+++ b/fonts/gothic/oldlatin/olsltt10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olsltt10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Slanted Typewriter Text for use with 10 point
+% based on Computer Modern Slanted Typewriter Text for use with 10 point
+% (cmsltt10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSLTT"; font_size 10pt#;
+
+u#:=21/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=0pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=250/36pt#; % height of tallest characters
+asc_height#:=220/36pt#; % height of lowercase ascenders
+cap_height#:=220/36pt#; % height of caps
+fig_height#:=220/36pt#; % height of numerals
+x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=110/36pt#; % axis of symmetry for math symbols
+bar_height#:=79/36pt#; % height of crossbar in lowercase e
+comma_depth#:=50/36pt#; % depth of comma below baseline
+desc_depth#:=80/36pt#; % depth of lowercase descenders
+
+crisp#:=22/36pt#; % diameter of serif corners
+tiny#:=22/36pt#; % diameter of rounded corners
+fine#:=21/36pt#; % diameter of sharply rounded corners
+thin_join#:=21/36pt#; % width of extrafine details
+hair#:=25/36pt#; % lowercase hairline breadth
+stem#:=25/36pt#; % lowercase stem breadth
+curve#:=25/36pt#; % lowercase curve breadth
+ess#:=22/36pt#; % breadth in middle of lowercase s
+flare#:=32/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=36/36pt#; % diameter of dots
+cap_hair#:=25/36pt#; % uppercase hairline breadth
+cap_stem#:=25/36pt#; % uppercase stem breadth
+cap_curve#:=25/36pt#; % uppercase curve breadth
+cap_ess#:=25/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=25/36pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=34/36pt#; % protrusion of lowercase serifs
+cap_jut#:=34/36pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=34/36pt#; % vertical protrusion of beak serifs
+vair#:=22/36pt#; % vertical diameter of hairlines
+notch_cut#:=25/36pt#; % maximum breadth above or below notches
+bar#:=22/36pt#; % lowercase bar thickness
+slab#:=22/36pt#; % serif and arm thickness
+cap_bar#:=22/36pt#; % uppercase bar thickness
+cap_band#:=22/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=25/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=0pt#; % vertical drop of sloped serifs
+stem_corr#:=0pt#; % for small refinements of stem breadth
+vair_corr#:=0pt#; % for small refinements of hairline height
+apex_corr#:=10/36pt#; % extra width at diagonal junctions
+
+o#:=4/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=1/6; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=0.81; % factor applied to weights of heavy characters
+math_spread:=-1; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=0; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=0; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=true; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=true; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olss10.mf b/fonts/gothic/oldlatin/olss10.mf
new file mode 100644
index 0000000000..17c80afd27
--- /dev/null
+++ b/fonts/gothic/oldlatin/olss10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olss10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Sans Serif 10 pt
+% based on Computer Modern Sans Serif 10 pt
+% (cmss10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSS"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=15/36pt#; % width adjustment for certain characters
+serif_fit#:=-7/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-10/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=250/36pt#; % height of caps
+fig_height#:=236/36pt#; % height of numerals
+x_height#:=160/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=79/36pt#; % height of crossbar in lowercase e
+comma_depth#:=45/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=0pt#; % diameter of rounded corners
+fine#:=0pt#; % diameter of sharply rounded corners
+thin_join#:=17/36pt#; % width of extrafine details
+hair#:=28/36pt#; % lowercase hairline breadth
+stem#:=28/36pt#; % lowercase stem breadth
+curve#:=28/36pt#; % lowercase curve breadth
+ess#:=28/36pt#; % breadth in middle of lowercase s
+flare#:=25/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=30/36pt#; % diameter of dots
+cap_hair#:=28/36pt#; % uppercase hairline breadth
+cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_curve#:=32/36pt#; % uppercase curve breadth
+cap_ess#:=32/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=.5/36pt#; % vertical protrusion of beak serifs
+vair#:=22/36pt#; % vertical diameter of hairlines
+notch_cut#:=18/36pt#; % maximum breadth above or below notches
+bar#:=21/36pt#; % lowercase bar thickness
+slab#:=23/36pt#; % serif and arm thickness
+cap_bar#:=22/36pt#; % uppercase bar thickness
+cap_band#:=20/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=25/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=5/36pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=0pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=.96; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt 2; % parameter for superellipses
+superpull:=1/20; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olss12.mf b/fonts/gothic/oldlatin/olss12.mf
new file mode 100644
index 0000000000..810d6eee72
--- /dev/null
+++ b/fonts/gothic/oldlatin/olss12.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olss12.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Sans Serif 12 pt
+% based on Computer Modern Sans Serif 12 pt
+% (cmss12.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSS"; font_size 12pt#;
+
+u#:=23.5/36pt#; % unit width
+width_adj#:=17/36pt#; % width adjustment for certain characters
+serif_fit#:=-9/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-13/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=324/36pt#; % height of tallest characters
+asc_height#:=300/36pt#; % height of lowercase ascenders
+cap_height#:=300/36pt#; % height of caps
+fig_height#:=283/36pt#; % height of numerals
+x_height#:=192/36pt#; % height of lowercase without ascenders
+math_axis#:=108/36pt#; % axis of symmetry for math symbols
+bar_height#:=97/36pt#; % height of crossbar in lowercase e
+comma_depth#:=54/36pt#; % depth of comma below baseline
+desc_depth#:=84/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=0pt#; % diameter of rounded corners
+fine#:=0pt#; % diameter of sharply rounded corners
+thin_join#:=20/36pt#; % width of extrafine details
+hair#:=33/36pt#; % lowercase hairline breadth
+stem#:=33/36pt#; % lowercase stem breadth
+curve#:=33/36pt#; % lowercase curve breadth
+ess#:=33/36pt#; % breadth in middle of lowercase s
+flare#:=30/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=35/36pt#; % diameter of dots
+cap_hair#:=33/36pt#; % uppercase hairline breadth
+cap_stem#:=37/36pt#; % uppercase stem breadth
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=37/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.44pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=.6/36pt#; % vertical protrusion of beak serifs
+vair#:=26/36pt#; % vertical diameter of hairlines
+notch_cut#:=22/36pt#; % maximum breadth above or below notches
+bar#:=25/36pt#; % lowercase bar thickness
+slab#:=27/36pt#; % serif and arm thickness
+cap_bar#:=26/36pt#; % uppercase bar thickness
+cap_band#:=24/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=31/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=6/36pt#; % extra width at diagonal junctions
+
+o#:=9/36pt#; % amount of overshoot for curves
+apex_o#:=0pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=.98; % factor applied to weights of heavy characters
+math_spread:=-0.2; % extra openness of math symbols
+superness:=1/sqrt 2; % parameter for superellipses
+superpull:=1/20; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olss17.mf b/fonts/gothic/oldlatin/olss17.mf
new file mode 100644
index 0000000000..869ff41a88
--- /dev/null
+++ b/fonts/gothic/oldlatin/olss17.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olss17.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Sans Serif 17 pt (more or less)
+% based on Computer Modern Sans Serif 17 pt
+% (cmss17.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSS"; font_size 17.28pt#;
+
+u#:=32.5/36pt#; % unit width
+width_adj#:=24/36pt#; % width adjustment for certain characters
+serif_fit#:=-12/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-17/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=466/36pt#; % height of tallest characters
+asc_height#:=432/36pt#; % height of lowercase ascenders
+cap_height#:=432/36pt#; % height of caps
+fig_height#:=408/36pt#; % height of numerals
+x_height#:=267.8/36pt#; % height of lowercase without ascenders
+math_axis#:=155.5/36pt#; % axis of symmetry for math symbols
+bar_height#:=136/36pt#; % height of crossbar in lowercase e
+comma_depth#:=78/36pt#; % depth of comma below baseline
+desc_depth#:=121/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=0pt#; % diameter of rounded corners
+fine#:=0pt#; % diameter of sharply rounded corners
+thin_join#:=28/36pt#; % width of extrafine details
+hair#:=47/36pt#; % lowercase hairline breadth
+stem#:=47/36pt#; % lowercase stem breadth
+curve#:=47/36pt#; % lowercase curve breadth
+ess#:=47/36pt#; % breadth in middle of lowercase s
+flare#:=42/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=50/36pt#; % diameter of dots
+cap_hair#:=47/36pt#; % uppercase hairline breadth
+cap_stem#:=52/36pt#; % uppercase stem breadth
+cap_curve#:=52/36pt#; % uppercase curve breadth
+cap_ess#:=52/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.6pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=.8/36pt#; % vertical protrusion of beak serifs
+vair#:=38/36pt#; % vertical diameter of hairlines
+notch_cut#:=32/36pt#; % maximum breadth above or below notches
+bar#:=36/36pt#; % lowercase bar thickness
+slab#:=40/36pt#; % serif and arm thickness
+cap_bar#:=38/36pt#; % uppercase bar thickness
+cap_band#:=35/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=46/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=7/36pt#; % extra width at diagonal junctions
+
+o#:=10/36pt#; % amount of overshoot for curves
+apex_o#:=0pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=-0.4; % extra openness of math symbols
+superness:=1/sqrt 2; % parameter for superellipses
+superpull:=1/20; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olss8.mf b/fonts/gothic/oldlatin/olss8.mf
new file mode 100644
index 0000000000..7e5c2f2a1d
--- /dev/null
+++ b/fonts/gothic/oldlatin/olss8.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olss8.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Sans Serif 8 pt
+% based on Computer Modern Sans Serif 8 pt
+% (cmss8.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSS"; font_size 8pt#;
+
+u#:=17/36pt#; % unit width
+width_adj#:=12/36pt#; % width adjustment for certain characters
+serif_fit#:=-6/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-8.5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=216/36pt#; % height of tallest characters
+asc_height#:=200/36pt#; % height of lowercase ascenders
+cap_height#:=200/36pt#; % height of caps
+fig_height#:=189/36pt#; % height of numerals
+x_height#:=128/36pt#; % height of lowercase without ascenders
+math_axis#:=72/36pt#; % axis of symmetry for math symbols
+bar_height#:=63/36pt#; % height of crossbar in lowercase e
+comma_depth#:=37/36pt#; % depth of comma below baseline
+desc_depth#:=56/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=0pt#; % diameter of rounded corners
+fine#:=0pt#; % diameter of sharply rounded corners
+thin_join#:=15/36pt#; % width of extrafine details
+hair#:=25/36pt#; % lowercase hairline breadth
+stem#:=25/36pt#; % lowercase stem breadth
+curve#:=25/36pt#; % lowercase curve breadth
+ess#:=25/36pt#; % breadth in middle of lowercase s
+flare#:=22/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=26/36pt#; % diameter of dots
+cap_hair#:=25/36pt#; % uppercase hairline breadth
+cap_stem#:=29/36pt#; % uppercase stem breadth
+cap_curve#:=29/36pt#; % uppercase curve breadth
+cap_ess#:=28/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.36pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=.4/36pt#; % vertical protrusion of beak serifs
+vair#:=19/36pt#; % vertical diameter of hairlines
+notch_cut#:=16/36pt#; % maximum breadth above or below notches
+bar#:=18/36pt#; % lowercase bar thickness
+slab#:=20/36pt#; % serif and arm thickness
+cap_bar#:=19/36pt#; % uppercase bar thickness
+cap_band#:=17/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=22/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=4/36pt#; % extra width at diagonal junctions
+
+o#:=6/36pt#; % amount of overshoot for curves
+apex_o#:=0pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=.93; % factor applied to weights of heavy characters
+math_spread:=.4; % extra openness of math symbols
+superness:=1/sqrt 2; % parameter for superellipses
+superpull:=1/20; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olss9.mf b/fonts/gothic/oldlatin/olss9.mf
new file mode 100644
index 0000000000..944460e693
--- /dev/null
+++ b/fonts/gothic/oldlatin/olss9.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olss9.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Sans Serif 9 pt
+% based on Computer Modern Sans Serif 9 pt
+% (cmss9.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSS"; font_size 9pt#;
+
+u#:=18.5/36pt#; % unit width
+width_adj#:=13/36pt#; % width adjustment for certain characters
+serif_fit#:=-6.5/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-9/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=243/36pt#; % height of tallest characters
+asc_height#:=225/36pt#; % height of lowercase ascenders
+cap_height#:=225/36pt#; % height of caps
+fig_height#:=212/36pt#; % height of numerals
+x_height#:=144/36pt#; % height of lowercase without ascenders
+math_axis#:=81/36pt#; % axis of symmetry for math symbols
+bar_height#:=71/36pt#; % height of crossbar in lowercase e
+comma_depth#:=41/36pt#; % depth of comma below baseline
+desc_depth#:=63/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=0pt#; % diameter of rounded corners
+fine#:=0pt#; % diameter of sharply rounded corners
+thin_join#:=16/36pt#; % width of extrafine details
+hair#:=27/36pt#; % lowercase hairline breadth
+stem#:=27/36pt#; % lowercase stem breadth
+curve#:=27/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=24/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=28/36pt#; % diameter of dots
+cap_hair#:=27/36pt#; % uppercase hairline breadth
+cap_stem#:=31/36pt#; % uppercase stem breadth
+cap_curve#:=31/36pt#; % uppercase curve breadth
+cap_ess#:=31/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.38pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=.5/36pt#; % vertical protrusion of beak serifs
+vair#:=21/36pt#; % vertical diameter of hairlines
+notch_cut#:=17/36pt#; % maximum breadth above or below notches
+bar#:=20/36pt#; % lowercase bar thickness
+slab#:=22/36pt#; % serif and arm thickness
+cap_bar#:=21/36pt#; % uppercase bar thickness
+cap_band#:=19/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=24/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=4.5/36pt#; % extra width at diagonal junctions
+
+o#:=7/36pt#; % amount of overshoot for curves
+apex_o#:=0pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=.95; % factor applied to weights of heavy characters
+math_spread:=.2; % extra openness of math symbols
+superness:=1/sqrt 2; % parameter for superellipses
+superpull:=1/20; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olssbx10.mf b/fonts/gothic/oldlatin/olssbx10.mf
new file mode 100644
index 0000000000..291af8b6f8
--- /dev/null
+++ b/fonts/gothic/oldlatin/olssbx10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olssbx10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Sans Serif Bold Extended 10 pt
+% based on Computer Modern Sans Serif Bold Extended 10 pt
+% (cmssbx10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSSBX"; font_size 10pt#;
+
+u#:=22/36pt#; % unit width
+width_adj#:=22/36pt#; % width adjustment for certain characters
+serif_fit#:=-9/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-11/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=250/36pt#; % height of caps
+fig_height#:=250/36pt#; % height of numerals
+x_height#:=165/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=90/36pt#; % height of crossbar in lowercase e
+comma_depth#:=38/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=26/36pt#; % diameter of serif corners
+tiny#:=26/36pt#; % diameter of rounded corners
+fine#:=9/36pt#; % diameter of sharply rounded corners
+thin_join#:=9/36pt#; % width of extrafine details
+hair#:=49/36pt#; % lowercase hairline breadth
+stem#:=49/36pt#; % lowercase stem breadth
+curve#:=49/36pt#; % lowercase curve breadth
+ess#:=43/36pt#; % breadth in middle of lowercase s
+flare#:=40/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=47/36pt#; % diameter of dots
+cap_hair#:=49/36pt#; % uppercase hairline breadth
+cap_stem#:=53/36pt#; % uppercase stem breadth
+cap_curve#:=53/36pt#; % uppercase curve breadth
+cap_ess#:=51/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=30/36pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=1.5/36pt#; % vertical protrusion of beak serifs
+vair#:=26/36pt#; % vertical diameter of hairlines
+notch_cut#:=49/36pt#; % maximum breadth above or below notches
+bar#:=26/36pt#; % lowercase bar thickness
+slab#:=36/36pt#; % serif and arm thickness
+cap_bar#:=34/36pt#; % uppercase bar thickness
+cap_band#:=31/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=45/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=2/36pt#; % for small refinements of hairline height
+apex_corr#:=18/36pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=0pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=.88; % factor applied to weights of heavy characters
+math_spread:=.5; % extra openness of math symbols
+superness:=3/4; % parameter for superellipses
+superpull:=1/18; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olssdc10.mf b/fonts/gothic/oldlatin/olssdc10.mf
new file mode 100644
index 0000000000..f7e26d446e
--- /dev/null
+++ b/fonts/gothic/oldlatin/olssdc10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olssdc10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Sans Serif Demibold Condensed 10 pt
+% based on Computer Modern Sans Serif Demibold Condensed 10 pt
+% (cmssdc10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSSDC"; font_size 10pt#;
+
+u#:=19/36pt#; % unit width
+width_adj#:=15/36pt#; % width adjustment for certain characters
+serif_fit#:=-8/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-9/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=250/36pt#; % height of caps
+fig_height#:=250/36pt#; % height of numerals
+x_height#:=170/36pt#; % height of lowercase without ascenders
+math_axis#:=95/36pt#; % axis of symmetry for math symbols
+bar_height#:=95/36pt#; % height of crossbar in lowercase e
+comma_depth#:=40/36pt#; % depth of comma below baseline
+desc_depth#:=60/36pt#; % depth of lowercase descenders
+
+crisp#:=23/36pt#; % diameter of serif corners
+tiny#:=23/36pt#; % diameter of rounded corners
+fine#:=8/36pt#; % diameter of sharply rounded corners
+thin_join#:=8/36pt#; % width of extrafine details
+hair#:=40/36pt#; % lowercase hairline breadth
+stem#:=40/36pt#; % lowercase stem breadth
+curve#:=40/36pt#; % lowercase curve breadth
+ess#:=37/36pt#; % breadth in middle of lowercase s
+flare#:=31/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+cap_hair#:=40/36pt#; % uppercase hairline breadth
+cap_stem#:=44/36pt#; % uppercase stem breadth
+cap_curve#:=44/36pt#; % uppercase curve breadth
+cap_ess#:=42/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=25/36pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=1.5/36pt#; % vertical protrusion of beak serifs
+vair#:=23/36pt#; % vertical diameter of hairlines
+notch_cut#:=40/36pt#; % maximum breadth above or below notches
+bar#:=23/36pt#; % lowercase bar thickness
+slab#:=31/36pt#; % serif and arm thickness
+cap_bar#:=29/36pt#; % uppercase bar thickness
+cap_band#:=27/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=37/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=2/36pt#; % for small refinements of hairline height
+apex_corr#:=14/36pt#; % extra width at diagonal junctions
+
+o#:=7/36pt#; % amount of overshoot for curves
+apex_o#:=0pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=.91; % factor applied to weights of heavy characters
+math_spread:=.3; % extra openness of math symbols
+superness:=.74; % parameter for superellipses
+superpull:=1/18; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=true; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olssi10.mf b/fonts/gothic/oldlatin/olssi10.mf
new file mode 100644
index 0000000000..99771c614d
--- /dev/null
+++ b/fonts/gothic/oldlatin/olssi10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olssi10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Slanted Sans Serif 10 pt
+% based on Computer Modern Slanted Sans Serif 10 pt
+% (cmssi10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSSI"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=15/36pt#; % width adjustment for certain characters
+serif_fit#:=-7/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-10/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=250/36pt#; % height of caps
+fig_height#:=236/36pt#; % height of numerals
+x_height#:=160/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=79/36pt#; % height of crossbar in lowercase e
+comma_depth#:=45/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=0pt#; % diameter of rounded corners
+fine#:=0pt#; % diameter of sharply rounded corners
+thin_join#:=17/36pt#; % width of extrafine details
+hair#:=28/36pt#; % lowercase hairline breadth
+stem#:=28/36pt#; % lowercase stem breadth
+curve#:=28/36pt#; % lowercase curve breadth
+ess#:=28/36pt#; % breadth in middle of lowercase s
+flare#:=25/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=30/36pt#; % diameter of dots
+cap_hair#:=28/36pt#; % uppercase hairline breadth
+cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_curve#:=32/36pt#; % uppercase curve breadth
+cap_ess#:=32/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=.5/36pt#; % vertical protrusion of beak serifs
+vair#:=22/36pt#; % vertical diameter of hairlines
+notch_cut#:=18/36pt#; % maximum breadth above or below notches
+bar#:=21/36pt#; % lowercase bar thickness
+slab#:=23/36pt#; % serif and arm thickness
+cap_bar#:=22/36pt#; % uppercase bar thickness
+cap_band#:=20/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=25/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=5/36pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=0pt#; % amount of overshoot for diagonal junctions
+
+slant:=sind 12/cosd 12; % tilt ratio $(´Delta x/´Delta y)$
+fudge:=.96; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt 2; % parameter for superellipses
+superpull:=1/20; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olssi12.mf b/fonts/gothic/oldlatin/olssi12.mf
new file mode 100644
index 0000000000..898f541e4d
--- /dev/null
+++ b/fonts/gothic/oldlatin/olssi12.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olssi12.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Slanted Sans Serif 12 pt
+% based on Computer Modern Slanted Sans Serif 12 pt
+% (cmssi12.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSSI"; font_size 12pt#;
+
+u#:=23.5/36pt#; % unit width
+width_adj#:=17/36pt#; % width adjustment for certain characters
+serif_fit#:=-9/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-13/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=324/36pt#; % height of tallest characters
+asc_height#:=300/36pt#; % height of lowercase ascenders
+cap_height#:=300/36pt#; % height of caps
+fig_height#:=283/36pt#; % height of numerals
+x_height#:=192/36pt#; % height of lowercase without ascenders
+math_axis#:=108/36pt#; % axis of symmetry for math symbols
+bar_height#:=97/36pt#; % height of crossbar in lowercase e
+comma_depth#:=54/36pt#; % depth of comma below baseline
+desc_depth#:=84/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=0pt#; % diameter of rounded corners
+fine#:=0pt#; % diameter of sharply rounded corners
+thin_join#:=20/36pt#; % width of extrafine details
+hair#:=33/36pt#; % lowercase hairline breadth
+stem#:=33/36pt#; % lowercase stem breadth
+curve#:=33/36pt#; % lowercase curve breadth
+ess#:=33/36pt#; % breadth in middle of lowercase s
+flare#:=30/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=35/36pt#; % diameter of dots
+cap_hair#:=33/36pt#; % uppercase hairline breadth
+cap_stem#:=37/36pt#; % uppercase stem breadth
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=37/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.44pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=.6/36pt#; % vertical protrusion of beak serifs
+vair#:=26/36pt#; % vertical diameter of hairlines
+notch_cut#:=22/36pt#; % maximum breadth above or below notches
+bar#:=25/36pt#; % lowercase bar thickness
+slab#:=27/36pt#; % serif and arm thickness
+cap_bar#:=26/36pt#; % uppercase bar thickness
+cap_band#:=24/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=31/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=6/36pt#; % extra width at diagonal junctions
+
+o#:=9/36pt#; % amount of overshoot for curves
+apex_o#:=0pt#; % amount of overshoot for diagonal junctions
+
+slant:=sind 12/cosd 12; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=.98; % factor applied to weights of heavy characters
+math_spread:=-0.2; % extra openness of math symbols
+superness:=1/sqrt 2; % parameter for superellipses
+superpull:=1/20; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olssi17.mf b/fonts/gothic/oldlatin/olssi17.mf
new file mode 100644
index 0000000000..d1d6f6ec41
--- /dev/null
+++ b/fonts/gothic/oldlatin/olssi17.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olssi17.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Slanted Sans Serif 17 pt (more or less)
+% based on Computer Modern Slanted Sans Serif 17 pt
+% (cmssi17.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSSI"; font_size 17.28pt#;
+
+u#:=32.5/36pt#; % unit width
+width_adj#:=24/36pt#; % width adjustment for certain characters
+serif_fit#:=-12/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-17/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=466/36pt#; % height of tallest characters
+asc_height#:=432/36pt#; % height of lowercase ascenders
+cap_height#:=432/36pt#; % height of caps
+fig_height#:=408/36pt#; % height of numerals
+x_height#:=267.8/36pt#; % height of lowercase without ascenders
+math_axis#:=155.5/36pt#; % axis of symmetry for math symbols
+bar_height#:=136/36pt#; % height of crossbar in lowercase e
+comma_depth#:=78/36pt#; % depth of comma below baseline
+desc_depth#:=121/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=0pt#; % diameter of rounded corners
+fine#:=0pt#; % diameter of sharply rounded corners
+thin_join#:=28/36pt#; % width of extrafine details
+hair#:=47/36pt#; % lowercase hairline breadth
+stem#:=47/36pt#; % lowercase stem breadth
+curve#:=47/36pt#; % lowercase curve breadth
+ess#:=47/36pt#; % breadth in middle of lowercase s
+flare#:=42/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=50/36pt#; % diameter of dots
+cap_hair#:=47/36pt#; % uppercase hairline breadth
+cap_stem#:=52/36pt#; % uppercase stem breadth
+cap_curve#:=52/36pt#; % uppercase curve breadth
+cap_ess#:=52/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.6pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=.8/36pt#; % vertical protrusion of beak serifs
+vair#:=38/36pt#; % vertical diameter of hairlines
+notch_cut#:=32/36pt#; % maximum breadth above or below notches
+bar#:=36/36pt#; % lowercase bar thickness
+slab#:=40/36pt#; % serif and arm thickness
+cap_bar#:=38/36pt#; % uppercase bar thickness
+cap_band#:=35/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=46/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=7/36pt#; % extra width at diagonal junctions
+
+o#:=10/36pt#; % amount of overshoot for curves
+apex_o#:=0pt#; % amount of overshoot for diagonal junctions
+
+slant:=sind 12/cosd 12; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=-0.4; % extra openness of math symbols
+superness:=1/sqrt 2; % parameter for superellipses
+superpull:=1/20; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olssi8.mf b/fonts/gothic/oldlatin/olssi8.mf
new file mode 100644
index 0000000000..907171be30
--- /dev/null
+++ b/fonts/gothic/oldlatin/olssi8.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olssi8.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Slanted Sans Serif 8 pt
+% based on Computer Modern Slanted Sans Serif 8 pt
+% (cmssi8.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSSI"; font_size 8pt#;
+
+u#:=17/36pt#; % unit width
+width_adj#:=12/36pt#; % width adjustment for certain characters
+serif_fit#:=-6/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-8.5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=216/36pt#; % height of tallest characters
+asc_height#:=200/36pt#; % height of lowercase ascenders
+cap_height#:=200/36pt#; % height of caps
+fig_height#:=189/36pt#; % height of numerals
+x_height#:=128/36pt#; % height of lowercase without ascenders
+math_axis#:=72/36pt#; % axis of symmetry for math symbols
+bar_height#:=63/36pt#; % height of crossbar in lowercase e
+comma_depth#:=37/36pt#; % depth of comma below baseline
+desc_depth#:=56/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=0pt#; % diameter of rounded corners
+fine#:=0pt#; % diameter of sharply rounded corners
+thin_join#:=15/36pt#; % width of extrafine details
+hair#:=25/36pt#; % lowercase hairline breadth
+stem#:=25/36pt#; % lowercase stem breadth
+curve#:=25/36pt#; % lowercase curve breadth
+ess#:=25/36pt#; % breadth in middle of lowercase s
+flare#:=22/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=26/36pt#; % diameter of dots
+cap_hair#:=25/36pt#; % uppercase hairline breadth
+cap_stem#:=29/36pt#; % uppercase stem breadth
+cap_curve#:=29/36pt#; % uppercase curve breadth
+cap_ess#:=28/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.36pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=.4/36pt#; % vertical protrusion of beak serifs
+vair#:=19/36pt#; % vertical diameter of hairlines
+notch_cut#:=16/36pt#; % maximum breadth above or below notches
+bar#:=18/36pt#; % lowercase bar thickness
+slab#:=20/36pt#; % serif and arm thickness
+cap_bar#:=19/36pt#; % uppercase bar thickness
+cap_band#:=17/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=22/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=4/36pt#; % extra width at diagonal junctions
+
+o#:=6/36pt#; % amount of overshoot for curves
+apex_o#:=0pt#; % amount of overshoot for diagonal junctions
+
+slant:=sind 12/cosd 12; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=.93; % factor applied to weights of heavy characters
+math_spread:=.4; % extra openness of math symbols
+superness:=1/sqrt 2; % parameter for superellipses
+superpull:=1/20; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olssi9.mf b/fonts/gothic/oldlatin/olssi9.mf
new file mode 100644
index 0000000000..e206907df0
--- /dev/null
+++ b/fonts/gothic/oldlatin/olssi9.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olssi9.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Slanted Sans Serif 9 pt
+% based on Computer Modern Slanted Sans Serif 9 pt
+% (cmssi9.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSSI"; font_size 9pt#;
+
+u#:=18.5/36pt#; % unit width
+width_adj#:=13/36pt#; % width adjustment for certain characters
+serif_fit#:=-6.5/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-9/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=243/36pt#; % height of tallest characters
+asc_height#:=225/36pt#; % height of lowercase ascenders
+cap_height#:=225/36pt#; % height of caps
+fig_height#:=212/36pt#; % height of numerals
+x_height#:=144/36pt#; % height of lowercase without ascenders
+math_axis#:=81/36pt#; % axis of symmetry for math symbols
+bar_height#:=71/36pt#; % height of crossbar in lowercase e
+comma_depth#:=41/36pt#; % depth of comma below baseline
+desc_depth#:=63/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=0pt#; % diameter of rounded corners
+fine#:=0pt#; % diameter of sharply rounded corners
+thin_join#:=16/36pt#; % width of extrafine details
+hair#:=27/36pt#; % lowercase hairline breadth
+stem#:=27/36pt#; % lowercase stem breadth
+curve#:=27/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=24/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=28/36pt#; % diameter of dots
+cap_hair#:=27/36pt#; % uppercase hairline breadth
+cap_stem#:=31/36pt#; % uppercase stem breadth
+cap_curve#:=31/36pt#; % uppercase curve breadth
+cap_ess#:=31/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.38pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=.5/36pt#; % vertical protrusion of beak serifs
+vair#:=21/36pt#; % vertical diameter of hairlines
+notch_cut#:=17/36pt#; % maximum breadth above or below notches
+bar#:=20/36pt#; % lowercase bar thickness
+slab#:=22/36pt#; % serif and arm thickness
+cap_bar#:=21/36pt#; % uppercase bar thickness
+cap_band#:=19/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=24/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=2/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=4.5/36pt#; % extra width at diagonal junctions
+
+o#:=7/36pt#; % amount of overshoot for curves
+apex_o#:=0pt#; % amount of overshoot for diagonal junctions
+
+slant:=sind 12/cosd 12; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=.95; % factor applied to weights of heavy characters
+math_spread:=.2; % extra openness of math symbols
+superness:=1/sqrt 2; % parameter for superellipses
+superpull:=1/20; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olssq8.mf b/fonts/gothic/oldlatin/olssq8.mf
new file mode 100644
index 0000000000..9503ea3904
--- /dev/null
+++ b/fonts/gothic/oldlatin/olssq8.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olssq8.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Sans Serif Quotation Style 8 point
+% based on Computer Modern Sans Serif Quotation Style 8 point
+% (cmssq8.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSSQ"; font_size 8pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=2/36pt#; % width adjustment for certain characters
+serif_fit#:=-10/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-14/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=220/36pt#; % height of tallest characters
+asc_height#:=200/36pt#; % height of lowercase ascenders
+cap_height#:=197/36pt#; % height of caps
+fig_height#:=190/36pt#; % height of numerals
+x_height#:=150/36pt#; % height of lowercase without ascenders
+math_axis#:=80/36pt#; % axis of symmetry for math symbols
+bar_height#:=80/36pt#; % height of crossbar in lowercase e
+comma_depth#:=40/36pt#; % depth of comma below baseline
+desc_depth#:=40/36pt#; % depth of lowercase descenders
+
+crisp#:=18/36pt#; % diameter of serif corners
+tiny#:=18/36pt#; % diameter of rounded corners
+fine#:=8/36pt#; % diameter of sharply rounded corners
+thin_join#:=8/36pt#; % width of extrafine details
+hair#:=23/36pt#; % lowercase hairline breadth
+stem#:=23/36pt#; % lowercase stem breadth
+curve#:=23/36pt#; % lowercase curve breadth
+ess#:=23/36pt#; % breadth in middle of lowercase s
+flare#:=21/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=28/36pt#; % diameter of dots
+cap_hair#:=23/36pt#; % uppercase hairline breadth
+cap_stem#:=27/36pt#; % uppercase stem breadth
+cap_curve#:=27/36pt#; % uppercase curve breadth
+cap_ess#:=27/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=20/36pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=0pt#; % vertical protrusion of beak serifs
+vair#:=18/36pt#; % vertical diameter of hairlines
+notch_cut#:=23/36pt#; % maximum breadth above or below notches
+bar#:=18/36pt#; % lowercase bar thickness
+slab#:=19/36pt#; % serif and arm thickness
+cap_bar#:=19/36pt#; % uppercase bar thickness
+cap_band#:=19/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=23/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=0pt#; % vertical drop of sloped serifs
+stem_corr#:=.5/36pt#; % for small refinements of stem breadth
+vair_corr#:=.5/36pt#; % for small refinements of hairline height
+apex_corr#:=4/36pt#; % extra width at diagonal junctions
+
+o#:=6/36pt#; % amount of overshoot for curves
+apex_o#:=2/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=.95; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/10; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=true; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olssqi8.mf b/fonts/gothic/oldlatin/olssqi8.mf
new file mode 100644
index 0000000000..c0d60581eb
--- /dev/null
+++ b/fonts/gothic/oldlatin/olssqi8.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olssqi8.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Sans Serif Quotation Style Slanted 8 point
+% based on Computer Modern Sans Serif Quotation Style Slanted 8 point
+% (cmssqi8.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLSSQI"; font_size 8pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=2/36pt#; % width adjustment for certain characters
+serif_fit#:=-10/36pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=-14/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=220/36pt#; % height of tallest characters
+asc_height#:=200/36pt#; % height of lowercase ascenders
+cap_height#:=197/36pt#; % height of caps
+fig_height#:=190/36pt#; % height of numerals
+x_height#:=150/36pt#; % height of lowercase without ascenders
+math_axis#:=80/36pt#; % axis of symmetry for math symbols
+bar_height#:=80/36pt#; % height of crossbar in lowercase e
+comma_depth#:=40/36pt#; % depth of comma below baseline
+desc_depth#:=40/36pt#; % depth of lowercase descenders
+
+crisp#:=18/36pt#; % diameter of serif corners
+tiny#:=18/36pt#; % diameter of rounded corners
+fine#:=8/36pt#; % diameter of sharply rounded corners
+thin_join#:=8/36pt#; % width of extrafine details
+hair#:=23/36pt#; % lowercase hairline breadth
+stem#:=23/36pt#; % lowercase stem breadth
+curve#:=23/36pt#; % lowercase curve breadth
+ess#:=23/36pt#; % breadth in middle of lowercase s
+flare#:=21/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=28/36pt#; % diameter of dots
+cap_hair#:=23/36pt#; % uppercase hairline breadth
+cap_stem#:=27/36pt#; % uppercase stem breadth
+cap_curve#:=27/36pt#; % uppercase curve breadth
+cap_ess#:=27/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=20/36pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=0pt#; % protrusion of lowercase serifs
+cap_jut#:=0pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=0pt#; % vertical protrusion of beak serifs
+vair#:=18/36pt#; % vertical diameter of hairlines
+notch_cut#:=23/36pt#; % maximum breadth above or below notches
+bar#:=18/36pt#; % lowercase bar thickness
+slab#:=19/36pt#; % serif and arm thickness
+cap_bar#:=19/36pt#; % uppercase bar thickness
+cap_band#:=19/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=23/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=0pt#; % vertical drop of sloped serifs
+stem_corr#:=.5/36pt#; % for small refinements of stem breadth
+vair_corr#:=.5/36pt#; % for small refinements of hairline height
+apex_corr#:=4/36pt#; % extra width at diagonal junctions
+
+o#:=6/36pt#; % amount of overshoot for curves
+apex_o#:=2/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=sind 12/cosd 12; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=.95; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/10; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=true; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=false; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=true; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/oltt10.mf b/fonts/gothic/oldlatin/oltt10.mf
new file mode 100644
index 0000000000..7c850b8ec7
--- /dev/null
+++ b/fonts/gothic/oldlatin/oltt10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE oltt10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Typewriter Text for use with 10 point
+% based on Computer Modern Typewriter Text for use with 10 point
+% (cmtt10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLTT"; font_size 10pt#;
+
+u#:=21/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=0pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=250/36pt#; % height of tallest characters
+asc_height#:=220/36pt#; % height of lowercase ascenders
+cap_height#:=220/36pt#; % height of caps
+fig_height#:=220/36pt#; % height of numerals
+x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=110/36pt#; % axis of symmetry for math symbols
+bar_height#:=79/36pt#; % height of crossbar in lowercase e
+comma_depth#:=50/36pt#; % depth of comma below baseline
+desc_depth#:=80/36pt#; % depth of lowercase descenders
+
+crisp#:=22/36pt#; % diameter of serif corners
+tiny#:=22/36pt#; % diameter of rounded corners
+fine#:=21/36pt#; % diameter of sharply rounded corners
+thin_join#:=21/36pt#; % width of extrafine details
+hair#:=25/36pt#; % lowercase hairline breadth
+stem#:=25/36pt#; % lowercase stem breadth
+curve#:=25/36pt#; % lowercase curve breadth
+ess#:=22/36pt#; % breadth in middle of lowercase s
+flare#:=32/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=36/36pt#; % diameter of dots
+cap_hair#:=25/36pt#; % uppercase hairline breadth
+cap_stem#:=25/36pt#; % uppercase stem breadth
+cap_curve#:=25/36pt#; % uppercase curve breadth
+cap_ess#:=25/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=25/36pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=34/36pt#; % protrusion of lowercase serifs
+cap_jut#:=34/36pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=34/36pt#; % vertical protrusion of beak serifs
+vair#:=22/36pt#; % vertical diameter of hairlines
+notch_cut#:=25/36pt#; % maximum breadth above or below notches
+bar#:=22/36pt#; % lowercase bar thickness
+slab#:=22/36pt#; % serif and arm thickness
+cap_bar#:=22/36pt#; % uppercase bar thickness
+cap_band#:=22/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=25/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=0pt#; % vertical drop of sloped serifs
+stem_corr#:=0pt#; % for small refinements of stem breadth
+vair_corr#:=0pt#; % for small refinements of hairline height
+apex_corr#:=10/36pt#; % extra width at diagonal junctions
+
+o#:=4/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=0.81; % factor applied to weights of heavy characters
+math_spread:=-1; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=0; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=0; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=true; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=true; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/oltt12.mf b/fonts/gothic/oldlatin/oltt12.mf
new file mode 100644
index 0000000000..01da76e581
--- /dev/null
+++ b/fonts/gothic/oldlatin/oltt12.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE oltt12.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Typewriter Text for use with 12 point
+% based on Computer Modern Typewriter Text for use with 12 point
+% (cmtt12.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLTT"; font_size 12pt#;
+
+u#:=24.7/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=0pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=300/36pt#; % height of tallest characters
+asc_height#:=264/36pt#; % height of lowercase ascenders
+cap_height#:=264/36pt#; % height of caps
+fig_height#:=264/36pt#; % height of numerals
+x_height#:=186/36pt#; % height of lowercase without ascenders
+math_axis#:=132/36pt#; % axis of symmetry for math symbols
+bar_height#:=95/36pt#; % height of crossbar in lowercase e
+comma_depth#:=60/36pt#; % depth of comma below baseline
+desc_depth#:=96/36pt#; % depth of lowercase descenders
+
+crisp#:=25/36pt#; % diameter of serif corners
+tiny#:=25/36pt#; % diameter of rounded corners
+fine#:=22/36pt#; % diameter of sharply rounded corners
+thin_join#:=22/36pt#; % width of extrafine details
+hair#:=28/36pt#; % lowercase hairline breadth
+stem#:=28/36pt#; % lowercase stem breadth
+curve#:=28/36pt#; % lowercase curve breadth
+ess#:=25/36pt#; % breadth in middle of lowercase s
+flare#:=35/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=39/36pt#; % diameter of dots
+cap_hair#:=28/36pt#; % uppercase hairline breadth
+cap_stem#:=28/36pt#; % uppercase stem breadth
+cap_curve#:=28/36pt#; % uppercase curve breadth
+cap_ess#:=28/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=28/36pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=39/36pt#; % protrusion of lowercase serifs
+cap_jut#:=39/36pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=39/36pt#; % vertical protrusion of beak serifs
+vair#:=25/36pt#; % vertical diameter of hairlines
+notch_cut#:=28/36pt#; % maximum breadth above or below notches
+bar#:=25/36pt#; % lowercase bar thickness
+slab#:=25/36pt#; % serif and arm thickness
+cap_bar#:=25/36pt#; % uppercase bar thickness
+cap_band#:=25/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=28/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=0pt#; % vertical drop of sloped serifs
+stem_corr#:=0pt#; % for small refinements of stem breadth
+vair_corr#:=0pt#; % for small refinements of hairline height
+apex_corr#:=11/36pt#; % extra width at diagonal junctions
+
+o#:=5/36pt#; % amount of overshoot for curves
+apex_o#:=4/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=0.86; % factor applied to weights of heavy characters
+math_spread:=-1; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=0; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=0; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=true; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=true; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/oltt8.mf b/fonts/gothic/oldlatin/oltt8.mf
new file mode 100644
index 0000000000..695c108c40
--- /dev/null
+++ b/fonts/gothic/oldlatin/oltt8.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE oltt8.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Typewriter Text for use with 8 point
+% based on Computer Modern Typewriter Text for use with 8 point
+% (cmtt8.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLTT"; font_size 8pt#;
+
+u#:=17/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=0pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=200/36pt#; % height of tallest characters
+asc_height#:=176/36pt#; % height of lowercase ascenders
+cap_height#:=176/36pt#; % height of caps
+fig_height#:=176/36pt#; % height of numerals
+x_height#:=124/36pt#; % height of lowercase without ascenders
+math_axis#:=88/36pt#; % axis of symmetry for math symbols
+bar_height#:=63/36pt#; % height of crossbar in lowercase e
+comma_depth#:=40/36pt#; % depth of comma below baseline
+desc_depth#:=64/36pt#; % depth of lowercase descenders
+
+crisp#:=19/36pt#; % diameter of serif corners
+tiny#:=19/36pt#; % diameter of rounded corners
+fine#:=18/36pt#; % diameter of sharply rounded corners
+thin_join#:=18/36pt#; % width of extrafine details
+hair#:=22/36pt#; % lowercase hairline breadth
+stem#:=22/36pt#; % lowercase stem breadth
+curve#:=22/36pt#; % lowercase curve breadth
+ess#:=19/36pt#; % breadth in middle of lowercase s
+flare#:=28/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=31/36pt#; % diameter of dots
+cap_hair#:=22/36pt#; % uppercase hairline breadth
+cap_stem#:=22/36pt#; % uppercase stem breadth
+cap_curve#:=22/36pt#; % uppercase curve breadth
+cap_ess#:=22/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=22/36pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=27/36pt#; % protrusion of lowercase serifs
+cap_jut#:=27/36pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=27/36pt#; % vertical protrusion of beak serifs
+vair#:=19/36pt#; % vertical diameter of hairlines
+notch_cut#:=22/36pt#; % maximum breadth above or below notches
+bar#:=19/36pt#; % lowercase bar thickness
+slab#:=19/36pt#; % serif and arm thickness
+cap_bar#:=19/36pt#; % uppercase bar thickness
+cap_band#:=19/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=22/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=0pt#; % vertical drop of sloped serifs
+stem_corr#:=0pt#; % for small refinements of stem breadth
+vair_corr#:=0pt#; % for small refinements of hairline height
+apex_corr#:=8/36pt#; % extra width at diagonal junctions
+
+o#:=3/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=0.81; % factor applied to weights of heavy characters
+math_spread:=-1; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=0; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=0; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=true; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=true; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/oltt9.mf b/fonts/gothic/oldlatin/oltt9.mf
new file mode 100644
index 0000000000..b92354fcb6
--- /dev/null
+++ b/fonts/gothic/oldlatin/oltt9.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE oltt9.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Typewriter Text for use with 9 point
+% based on Computer Modern Typewriter Text for use with 9 point
+% (cmtt9.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLTT"; font_size 9pt#;
+
+u#:=18.9/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=0pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=225/36pt#; % height of tallest characters
+asc_height#:=198/36pt#; % height of lowercase ascenders
+cap_height#:=198/36pt#; % height of caps
+fig_height#:=198/36pt#; % height of numerals
+x_height#:=139.5/36pt#; % height of lowercase without ascenders
+math_axis#:=99/36pt#; % axis of symmetry for math symbols
+bar_height#:=71/36pt#; % height of crossbar in lowercase e
+comma_depth#:=45/36pt#; % depth of comma below baseline
+desc_depth#:=72/36pt#; % depth of lowercase descenders
+
+crisp#:=21/36pt#; % diameter of serif corners
+tiny#:=21/36pt#; % diameter of rounded corners
+fine#:=20/36pt#; % diameter of sharply rounded corners
+thin_join#:=20/36pt#; % width of extrafine details
+hair#:=24/36pt#; % lowercase hairline breadth
+stem#:=24/36pt#; % lowercase stem breadth
+curve#:=24/36pt#; % lowercase curve breadth
+ess#:=21/36pt#; % breadth in middle of lowercase s
+flare#:=30/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=33/36pt#; % diameter of dots
+cap_hair#:=24/36pt#; % uppercase hairline breadth
+cap_stem#:=24/36pt#; % uppercase stem breadth
+cap_curve#:=24/36pt#; % uppercase curve breadth
+cap_ess#:=24/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=24/36pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=31/36pt#; % protrusion of lowercase serifs
+cap_jut#:=31/36pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=31/36pt#; % vertical protrusion of beak serifs
+vair#:=21/36pt#; % vertical diameter of hairlines
+notch_cut#:=24/36pt#; % maximum breadth above or below notches
+bar#:=21/36pt#; % lowercase bar thickness
+slab#:=21/36pt#; % serif and arm thickness
+cap_bar#:=21/36pt#; % uppercase bar thickness
+cap_band#:=21/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=24/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=0pt#; % vertical drop of sloped serifs
+stem_corr#:=0pt#; % for small refinements of stem breadth
+vair_corr#:=0pt#; % for small refinements of hairline height
+apex_corr#:=9/36pt#; % extra width at diagonal junctions
+
+o#:=3.5/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=0.81; % factor applied to weights of heavy characters
+math_spread:=-1; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=0; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=0; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=true; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=true; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/olvtt10.mf b/fonts/gothic/oldlatin/olvtt10.mf
new file mode 100644
index 0000000000..58cc330109
--- /dev/null
+++ b/fonts/gothic/oldlatin/olvtt10.mf
@@ -0,0 +1,80 @@
+% THIS IS THE OLD LATIN SOURCE FILE olvtt10.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Variable-Width Typewriter Text for use with 10 point
+% based on Computer Modern Variable-Width Typewriter Text for use with 10 point
+% (cmvtt10.mf by D E Knuth)
+if unknown cmbase: input cmbase fi
+
+font_identifier:="OLVTT"; font_size 10pt#;
+
+u#:=21/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=0pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=250/36pt#; % height of tallest characters
+asc_height#:=220/36pt#; % height of lowercase ascenders
+cap_height#:=220/36pt#; % height of caps
+fig_height#:=220/36pt#; % height of numerals
+x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=110/36pt#; % axis of symmetry for math symbols
+bar_height#:=79/36pt#; % height of crossbar in lowercase e
+comma_depth#:=50/36pt#; % depth of comma below baseline
+desc_depth#:=80/36pt#; % depth of lowercase descenders
+
+crisp#:=22/36pt#; % diameter of serif corners
+tiny#:=22/36pt#; % diameter of rounded corners
+fine#:=21/36pt#; % diameter of sharply rounded corners
+thin_join#:=21/36pt#; % width of extrafine details
+hair#:=25/36pt#; % lowercase hairline breadth
+stem#:=25/36pt#; % lowercase stem breadth
+curve#:=25/36pt#; % lowercase curve breadth
+ess#:=22/36pt#; % breadth in middle of lowercase s
+flare#:=32/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=36/36pt#; % diameter of dots
+cap_hair#:=25/36pt#; % uppercase hairline breadth
+cap_stem#:=25/36pt#; % uppercase stem breadth
+cap_curve#:=25/36pt#; % uppercase curve breadth
+cap_ess#:=25/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=25/36pt#; % thickness of lines in math symbols
+
+dish#:=0pt#; % amount erased at top or bottom of serifs
+bracket#:=0pt#; % vertical distance from serif base to tangent
+jut#:=34/36pt#; % protrusion of lowercase serifs
+cap_jut#:=34/36pt#; % protrusion of uppercase serifs
+beak_jut#:=0pt#; % horizontal protrusion of beak serifs
+beak#:=34/36pt#; % vertical protrusion of beak serifs
+vair#:=22/36pt#; % vertical diameter of hairlines
+notch_cut#:=25/36pt#; % maximum breadth above or below notches
+bar#:=22/36pt#; % lowercase bar thickness
+slab#:=22/36pt#; % serif and arm thickness
+cap_bar#:=22/36pt#; % uppercase bar thickness
+cap_band#:=22/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=25/36pt#; % max breadth above/below uppercase notches
+serif_drop#:=0pt#; % vertical drop of sloped serifs
+stem_corr#:=0pt#; % for small refinements of stem breadth
+vair_corr#:=0pt#; % for small refinements of hairline height
+apex_corr#:=10/36pt#; % extra width at diagonal junctions
+
+o#:=4/36pt#; % amount of overshoot for curves
+apex_o#:=3/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(¥Delta x/¥Delta y)$
+fudge:=0.81; % factor applied to weights of heavy characters
+math_spread:=-1; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=0; % extra openness inside bowls
+beak_darkness:=0; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=true; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=true; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+generate oroman % switch to the driver file
diff --git a/fonts/gothic/oldlatin/oroman.mf b/fonts/gothic/oldlatin/oroman.mf
new file mode 100644
index 0000000000..13f68e597f
--- /dev/null
+++ b/fonts/gothic/oldlatin/oroman.mf
@@ -0,0 +1,75 @@
+% THIS IS THE OLD LATIN SOURCE FILE oroman.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% The Old Latin Roman family of fonts
+% based on roman.mf and
+% used with The Computer Modern Roman family of fonts
+% (by D. E. Knuth, 1979--1985)
+
+if ligs>1: font_coding_scheme:="TeX text";
+ spanish_shriek=oct"074"; spanish_query=oct"076";
+else: font_coding_scheme:=if ligs=0: "TeX typewriter text"
+ else: "TeX text without f-ligatures" fi;
+ spanish_shriek=oct"016"; spanish_query=oct"017"; fi
+
+mode_setup; font_setup;
+
+input romanu; % upper case (majuscules)
+input oromanl; % lower case (minuscules)
+input greeku; % upper case Greek letters
+input romand; % numerals
+input romanp; % ampersand, question marks, currency sign
+input romspl; % lowercase specials (dotless \i, ligature \ae, etc.)
+input romspu; % uppercase specials (\AE, \OE, \O)
+input punct; % punctuation symbols common to roman and italic text
+input accent; % accents common to roman and italic text
+if ligs>1: input oromlig; fi % letter ligatures
+if ligs>1: input oromligs; fi % letter ligatures langes Es
+if ligs>0: input comlig; fi % ligatures common with italic text
+if ligs<=1: input romsub; fi % substitutes for ligatures
+
+ligtable "!": "`" =: spanish_shriek;
+ligtable "?": "`" =: spanish_query;
+font_slant slant; font_x_height x_height#;
+if monospace: font_normal_space 9u#; % no stretching or shrinking
+ font_quad 18u#;
+ font_extra_space 9u#;
+% added for "rundes es" normaly defined in oromligs.mf
+ ligtable "s": ":"=:oct"363";
+else: font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+ k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2u#; % three degrees of kerning
+ ligtable "k": if serifs: "v": "a" kern -u#, fi\\"w": "e" kern k#,
+ "a" kern k#, "o" kern k#, "c" kern k#;
+ ligtable "P": "A" kern kk#,
+ "y": "o" kern k#, "e" kern k#, "a" kern k#, "." kern kk#, "," kern kk#;
+ ligtable "F": "V": "W": if serifs: "o" kern kk#, "e" kern kk#, "u" kern kk#,
+ "r" kern kk#, "a" kern kk#, "A" kern kkk#,
+ else: "o" kern k#, "e" kern k#, "u" kern k#,
+ "r" kern k#, "a" kern k#, "A" kern kk#, fi
+ "K": "X": "O" kern k#, "C" kern k#, "G" kern k#, "Q" kern k#;
+ ligtable "T": "y" kern if serifs: k# else: kk# fi,
+ "Y": "e" kern kk#, "o" kern kk#,
+ "r" kern kk#, "a" kern kk#, "A" kern kk#, "u" kern kk#;
+ ligtable "O": "D": "X" kern k#, "W" kern k#, "A" kern k#,
+ "V" kern k#, "Y" kern k#;
+ if serifs: ligtable "h": "m": "n":
+ "t" kern k#, "u" kern k#, "b" kern k#, "y" kern k#, "v" kern k#, "w" kern k#;
+ ligtable "c": "h" kern k#, "k" kern k# if ligs>1:, "t"=:oct"343" fi; fi
+% for tiny font like 5pt or smallcaps
+ if ligs=1: ligtable "s": ":"=:oct"363"; fi
+ ligtable "o": "b": "p": "e" kern -k#, "o" kern -k#, "x" kern k#,
+ "d" kern -k#, "c" kern -k#, "q" kern -k#,
+ "a": if serifs: "v" kern k#, "j" kern u#, else: "r" kern k#, fi
+ "t": "y" kern k#,
+ "u": "w" kern k#;
+ ligtable "A": if serifs: "R": fi\\ "t" kern k#,
+ "C" kern k#, "O" kern k#, "G" kern k#, "U" kern k#, "Q" kern k#,
+ "L": "T" kern kk#, "Y" kern kk#, "V" kern kkk#, "W" kern kkk#;
+ ligtable "g": "j" kern -k#; % logjam
+ ligtable "I": "I" kern -k#; fi % Richard III
+ % there are ligature/kern programs for |"f"| in the {\tt oromlig} file
+ % and for |"-"|, |"`"|, and |"'"| in the {\tt comlig} file
+bye.
diff --git a/fonts/gothic/oldlatin/oromanl.mf b/fonts/gothic/oldlatin/oromanl.mf
new file mode 100644
index 0000000000..3aee1b7174
--- /dev/null
+++ b/fonts/gothic/oldlatin/oromanl.mf
@@ -0,0 +1,843 @@
+% THIS IS THE OLD LATIN SOURCE FILE oromanl.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin Roman lower case
+% based on Computer Modern Roman lower case
+% (romanl.mf by D E Knuth):
+% These letters were originally coded by D. E. Knuth in November, 1979,
+% inspired by the Monotype faces used in {\sl The Art of Computer Programming}.
+% Sans serif designs by Richard Southall were added in April, 1982.
+% The programs were revised for the new \MF\ conventions in 1985.
+
+% Character codes \0141 through \0172 are generated.
+
+cmchar "The letter a";
+beginchar("a",9u#,x_height#,0);
+bh#:=min(bar_height#,1.14x_height#-bar_height#); define_pixels(bh);
+italcorr 1/3[bh#,x_height#]*slant+.5stem#-serif_fit#-2u#;
+adjust_fit(0,serif_fit# if serifs: if hair#+.5stem#>1.5u#:-.25u# fi\\fi);
+pickup fine.nib; top y3r=h+vround 1.5oo;
+if serifs: pos1(flare,180); pos2(hair,180);
+ pos3(vair,90); lft x1r=hround max(u,2.1u-.5flare); x3=.5w-.5u;
+ y1=min(bh+.5flare+2vair+2,.9[bh,h]-.5flare);
+ bulb(3,2,1); % bulb
+else: pos1(5/7[vair,flare],95); x1l=good.x 1.5u; x1r:=good.x x1r;
+ pos3(1/8[vair,thin_join],90);
+ x3=.5w-.2u; top y1r=vround .82[bh,top y3r];
+ filldraw stroke term.e(3,1,left,.9,4); fi % terminal
+pos4(stem,0); rt x4r=hround(w-2.5u+.5stem); y4=1/3[bh,h];
+pos5(stem,0); x5=x4; y5=max(.55bh,2vair);
+filldraw stroke super_arc.e(3,4)&z4e..z5e; % arc and stem
+pos6(.3[thin_join,vair],90); x6=x4; bot y6=bh;
+pos7(hround(curve-2stem_corr),180);
+lft x7r=hround max(.5u,1.5u-.5curve); y7=1/3[top y8l,top y6r];
+pos8(vair,270); x8l=.5w-.75u; bot y8r=-oo;
+pos9(thin_join,360); z9l=z5l;
+(x,y8r)=whatever[z8l,z9l]; x8r:=max(x,x8-u);
+{{interim superness:=more_super;
+ filldraw stroke z9e{down}...z8e{left}...{up}z7e&super_arc.e(7,6)}}; % bowl
+if serifs: numeric shaved_stem; shaved_stem=hround(stem-3stem_corr);
+ if hair#+.5stem#>1.5u#: pickup tiny.nib;
+ pos5'(shaved_stem,0); rt x5'r=fine.rt x5r; y5'=y5;
+ pos10(shaved_stem,0); x10=x5'; y10=.2[.5tiny,bh];
+ pos11(shaved_stem,0); rt x11r=hround(w-.25u); bot y11=0;
+ pos12(shaved_stem,0); x11=x12; top y12=slab+eps;
+ filldraw z5'l---z10l...z11l{right}--z11r
+ --z12r{left}...z10r+.75(z12-z11)---z5'r--cycle; % foot
+ else: pickup crisp.nib; pos5'(shaved_stem,0); rt x5'r=fine.rt x5r; y5'=y5;
+ pos10(shaved_stem,0); x10=x5'; y10=1/3bh;
+ pos11(.2[vair,stem],90); x11r=.5[x10r,x12r]; bot y11l=-vround .5oo;
+ pos12(hair,180); rt x12l=hround(w-.1u); y12=max(y10,y11+vair);
+ pos13(hair,180); x13=x12; top y13=max(vround .6bh,top y12);
+ (x',y11l)=whatever[z11r,z12r]; x11l:=max(x',x10);
+ filldraw stroke z5'e---z10e...z11e{right}...z12e---z13e; fi % hook
+else: numeric shaved_stem; shaved_stem=hround(stem-stem_corr);
+ pickup tiny.nib; pos5'(shaved_stem,0); rt x5'r=fine.rt x5r; y5'=y5;
+ pos10(shaved_stem,0); x10=x5'; bot y10=0;
+ filldraw stroke z5'e--z10e; fi % base of stem
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13); endchar;
+
+cmchar "The letter b";
+beginchar("b",10u#+serif_fit#,asc_height#,0);
+italcorr .5x_height#*slant+min(.5curve#-u#,-.25u#);
+adjust_fit(serif_fit#,0);
+pickup tiny.nib; pos1(stem',0); pos2(stem,0);
+pos0'(stem',0); pos0(stem,0); z0l=z0'l; x0'=x1; x0=x2;
+lft x1l=hround(2.5u-.5stem'); top y1=h;
+numeric edge; edge=rt x2r;
+pickup fine.nib; pos3(if hefty:thin_join else: hair fi,180);
+pos4(vair,90); pos5(curve,0); pos6(vair,-90); penpos7(x3l-x3r,-180);
+rt x3l=max(rt x3l-(lft x3r-tiny.lft x2l),1/3[rt x2,edge]);
+y3=1/8[bar_height,x_height];
+x4l=w-.5(w-serif_fit)+.5u; top y4r=x_height+oo;
+rt x5r=hround min(w-1.35u+.5curve,w-.6u); y5=.5x_height;
+x6l=x4l-.2u; bot y6r=-oo;
+x7=x3; y7=min(y3,y6+y4-y3+.6vair);
+(x,y4r)=whatever[z3l,z4l]; x4r:=min(x,.5[x4,x5r]);
+(x',y6r)=whatever[z7l,z6l]; x6r:=min(x',.5[x6,x5r]);
+filldraw stroke z3e{up}...pulled_arc.e(4,5)&pulled_arc.e(5,6)...{up}z7e; % bowl
+y0=ypart(((edge,h)--(edge,0))intersectionpoint(z3l{up}...{right}z4l));
+y2=ypart(((edge,h)--(edge,0))intersectionpoint(z6l{left}...{up}z7l));
+pickup tiny.nib; filldraw stroke z1e--z0'e--z0e--z2e; % stem
+pickup crisp.nib; pos8(hair,0); pos7'(stem,0);
+z7'=z2; x8l=x7'l; bot y8=0;
+filldraw stroke z7'e--z8e; % point
+if serifs: sloped_serif.l(1,0',a,1/3,jut,serif_drop); fi % upper serif
+penlabels(0,1,2,3,4,5,6,7,8); endchar;
+
+cmchar "The letter c";
+beginchar("c",8u#,x_height#,0);
+italcorr x_height#*slant-.2u#;
+adjust_fit(if monospace: .5u#,.5u# else: 0,0 fi);
+pickup fine.nib; pos2(vair',90); pos4(vair',270);
+x2=x4=.5(w+u); top y2r=vround(h+1.5oo); bot y4r=-oo;
+pos3(curve,180); lft x3r=hround max(.6u,1.35u-.5curve); y3=.5h;
+if serifs: pos1(hair,0); pos0(flare,0);
+ y1=min(bar_height+.5flare+2vair'+2,.9[bar_height,h]-.5flare);
+ rt x1r=hround(w-.7u); bulb(2,1,0); % bulb
+ pos5(hair,0); rt x5r=hround(w-.5u);
+ y5=max(good.y(.5bar_height-.9),y4l+vair');
+ (x,y4l)=whatever[z4r,z5l]; x4l:=min(x,x4l+.5u);
+ filldraw stroke pulled_super_arc.e(2,3)(.7superpull)
+ & pulled_super_arc.e(3,4)(.5superpull)
+ ..tension .9 and 1..{x5-x4,5(y5-y4)}z5e; % arc and lower terminal
+else: pos1(4/7[vair',flare],80);
+ rt x1r=hround(w-.6u); top y1r=vround .82[bar_height,top y2r];
+ filldraw stroke term.e(2,1,right,.8,4); % upper terminal
+ pos5(.6[vair',flare],275); rt x5r=hround(w-.5u);
+ y5r=good.y(y5r+1/3bar_height-y5); y5l:=good.y y5l; x5l:=good.x x5l;
+ forsuffixes e=l,r: path p.e; p.e=z4e{right}..tension .9 and 1..z5e;
+ if angle direction 1 of p.e>75:
+ p.e:=z4e{right}..tension atleast.9 and 1..{dir 75}z5e; fi endfor
+ filldraw stroke pulled_super_arc.e(2,3)(.7superpull)
+ & pulled_super_arc.e(3,4)(.5superpull) & p.e; fi % arc and lower terminal
+penlabels(0,1,2,3,4,5); endchar;
+
+cmchar "The letter d";
+beginchar("d",10u#+serif_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); pos2(stem,0);
+pos0'(stem',0); pos0(stem,0); z0r=z0'r; x0'=x1; x0=x2;
+rt x1r=hround(w-2.5u+.5stem'); top y1=h;
+numeric edge; edge=lft x2l;
+pickup fine.nib; pos3(if hefty:thin_join else: hair fi,0);
+pos4(vair,90); pos5(curve,180); pos6(vair,270); penpos7(x3r-x3l,360);
+lft x3l=min(lft x3l-(rt x3r-tiny.rt x2r),1/3[lft x2,edge]);
+y3=1/8[bar_height,x_height];
+x4l=.5(w-serif_fit)-.3u; top y4r=x_height+oo;
+lft x5r=hround max(1.35u-.5curve,.6u); y5=.5x_height;
+x6l=x4l-.2u; bot y6r=-oo;
+x7=x3; y7=min(y3,y6+y4-y3+.6vair);
+(x,y4r)=whatever[z3l,z4l]; x4r:=max(x,.5[x5r,x4]);
+(x',y6r)=whatever[z7l,z6l]; x6r:=max(x',.5[x5r,x6]);
+filldraw stroke z3e{up}...pulled_arc.e(4,5)
+ & pulled_arc.e(5,6)...{up}z7e; % bowl
+y0=ypart(((edge,h)--(edge,0))intersectionpoint(z3l{up}...{left}z4l));
+pickup tiny.nib; bot y2=if serifs:-min(oo,serif_drop) else: 0 fi;
+filldraw stroke z1e--z0'e--z0e--z2e; % stem
+if serifs: sloped_serif.l(1,0',a,1/3,jut,serif_drop); % upper serif
+ sloped_serif.r(2,0,b,1/3,jut,min(oo,serif_drop)); fi % lower serif
+penlabels(0,1,2,3,4,5,6,7); endchar;
+
+cmchar "The letter e";
+beginchar("e",7.25u#+max(.75u#,.5curve#),x_height#,0);
+italcorr .5[bar_height#,x_height#]*slant+.5min(curve#-1.5u#,0);
+adjust_fit(if monospace: .25u#,.5u# else: 0,0 fi);
+numeric left_curve,right_curve;
+left_curve=right_curve+6stem_corr=curve if not serifs: -3stem_corr fi;
+if right_curve<tiny.breadth: right_curve:=tiny.breadth; fi
+if left_curve<tiny.breadth: left_curve:=tiny.breadth; fi
+pickup tiny.nib; pos1(right_curve,0);
+pos2(vair,90); pos3(left_curve,180);
+y1=good.y bar_height; top y2r=h+vround 1.5oo; y0l=bot y1;
+rt x1r=hround min(w-.5u,w-u+.5right_curve);
+lft x3r=hround max(.5u,1.25u-.5left_curve); x2=.5w+.25u;
+{{interim superness:=more_super;
+ filldraw stroke super_arc.e(1,2)}}; % right bowl
+y3=.5[y2,y4]; bot y4r=-oo; x4=x2+.25u;
+if serifs: pos4(vair',270); pos5(hair,360);
+ y5=max(good.y(.5bar_height-.9),y4l+vair); x5r=x1r;
+ (x,y4l)=whatever[z4r,z5]; x4l:=min(x,x4l+.5u);
+ filldraw stroke pulled_arc.e(2,3) & pulled_arc.e(3,4)
+ ...{x5-x4,5(y5-y4)}z5e; % left bowl, arc, and terminal
+else: pos4(vair,270);
+ filldraw stroke super_arc.e(2,3) & super_arc.e(3,4); % left bowl and arc
+ pickup fine.nib; pos4'(vair,270); z4=z4';
+ pos5(.5[vair,flare],275); rt x5r=hround(w-.6u);
+ y5r=good.y(y5r+1/3bar_height-y5); y5l:=good.y y5l; x5l:=good.x x5l;
+ filldraw stroke term.e(4',5,right,1,4); fi % terminal
+path testpath; testpath=super_arc.r(2,3) & super_arc.r(3,4);
+y1'r=y0r=y0l+.6[thin_join,vair]; y1'l=y0l; x1'l=x1'r=x1;
+forsuffixes $=l,r:
+ x0$=xpart(((0,y0$)--(x1,y0$)) intersectionpoint testpath); endfor
+fill stroke z0e--z1'e; % crossbar
+penlabels(0,1,2,3,4,5); endchar;
+
+cmchar "The letter f";
+beginchar("f",5.5u#,asc_height#,0);
+italcorr asc_height#*slant+if serifs:flare#-.25u# else: 1.25u# fi;
+adjust_fit(stem_shift#,if monospace: .5u# else:-stem_shift# fi);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pickup fine.nib; numeric bulb_diam;
+if serifs: bulb_diam=hround .8[stem,flare];
+ pos2(bulb_diam,0); y2+.5bulb_diam=.9[x_height,h+oo];
+ if monospace: rt x2r=hround(w-.5u)+1 else: lft x2l=hround(w-.75u+.5) fi;
+else: pos2(5/7[vair,flare],90); top y2r=h;
+ rt x2=hround(if monospace:w-.5u else:w+.75u fi); fi
+f_stroke(1,2,a,b,c,jut,if not monospace:1.25fi\\ jut); % stem, terminal, serif
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1;
+pos3(bar,90); pos4(bar,90);
+rt x4=hround(w-if monospace:.75u+1 else:1/3u fi);
+filldraw stroke z3e--z4e; % bar
+penlabels(1,2,3,4); endchar;
+
+iff not variant_g: cmchar "The letter g";
+beginchar("g",9u#,x_height#,desc_depth#);
+italcorr x_height#*slant+.25u#;
+adjust_fit(0,0);
+numeric light_vair,light_curve,loop_top,loop_side;
+light_vair=Vround(.5[thin_join,vair]+vair_corr);
+light_curve=max(fine.breadth,hround(curve-3stem_corr));
+loop_top=if serifs: Vround .77[vair,fudged.stem] else: vair fi;
+loop_side=hround .64[vair,fudged.stem];
+pickup fine.nib; pos1(light_vair,90);
+pos2(light_curve,180); pos3(light_vair,270);
+pos4(light_curve,360); pos11(loop_top,90);
+y11r=good.y(y11r+.15bar_height-y11); x1=x3=.5[x2,x4]; y2=y4=.5[y1,y3];
+lft x2r=hround(1.75u-.5light_curve); rt x4r=hround(w-2.75u+.5light_curve);
+top y1r=h+oo; y3r=good.y(y3r+.27[top y11r,bot y1l]-y3);
+filldraw stroke pulled_arc.e(1,2) & pulled_arc.e(2,3); % left half of bowl
+filldraw stroke pulled_arc.e(3,4) & pulled_arc.e(4,1); % right half of bowl
+x0=superness[x1r,x4r]; y0=superness[y4r,y1r]; % NE point on the super bowl
+x8'=superness[x3r,x2r]; y8'=superness[y2r,y3r]; % SW point on the super bowl
+x8''=superness[x3,x2]; y8''=superness[y2,y3];
+pos0(thin_join,angle(z0-z8')+90);
+pos8(thin_join,angle(z0-z8')-90); z8=.618[z8',z8''];
+if serifs: pos5(vair,90);
+ pos6(hair,0); pos7(.5[hair,flare],0); x5=.75[x0,x6]; top y5r=h+o;
+ rt x6r=hround(w-.25u); y6+(.5[hair,flare])/2=.95[bar_height,h]+oo;
+ filldraw stroke z0e..{right}z5e; bulb(5,6,7); % ear
+else: pos5(vair',100); top y5r=h+oo;
+ rt x5l=hround(w-.25u); y5l:=good.y y5l;
+ filldraw z0l{z5-z0}..z5l--z5r{left}..{curl 1}z0r--cycle; fi % ear
+pos10(loop_top,90); x10=x8+.75u; y10=y11;
+pos12(loop_side,0); pos13(light_vair,-90);
+pos14(loop_side,-180); pos10'(.5[thin_join,vair],-270);
+rt x12r=hround max(w-1.25u+.5loop_side,w-.5u); y12=y14=.5[y11,y13];
+x11=x13=max(.5w,x10+eps); bot y13r=-d-oo-1; x14=w-x12; z10'l=z10l;
+filldraw stroke z8e{z8-z0}..z10e---z11e; % link
+filldraw stroke {{interim superness:=hein_super; super_arc.e(11,12)}}
+ & super_arc.e(12,13) & super_arc.e(13,14) & super_arc.e(14,10'); % loop
+penlabels(0,1,2,3,4,5,6,7,8,10,11,12,13,14); labels(8',8''); endchar;
+
+iff variant_g: cmchar "Variant letter g";
+beginchar("g",10u#+serif_fit#,x_height#,desc_depth#);
+italcorr x_height#*slant-serif_fit#+.5stem#-2u# if serifs:+.5u# fi;
+adjust_fit(0,serif_fit# if serifs: -.5u# fi);
+pickup tiny.nib; pos1(stem',0); pos2(stem,0);
+pos0'(stem',0); pos0(stem,0); z0r=z0'r; x0'=x1; x0=x2;
+rt x1r=hround(w-2.5u+.5stem');
+numeric edge; edge=lft x2l;
+path edge_path; edge_path=(edge,h)--(edge,0);
+pickup fine.nib; pos3(if hefty:thin_join else: hair fi,0);
+pos4(vair,90); pos5(curve,180); pos6(vair,270); penpos7(x3r-x3l,360);
+lft x3l=min(lft x3l-(rt x3r-tiny.rt x2r),2/3[lft x2,edge]); y3=bar_height;
+x4l=.5(w-serif_fit)-.3u; top y4r=x_height+oo;
+lft x5r=hround max(1.35u-.5curve,.6u); y5=.5x_height;
+x6l=x4l-.2u; bot y6r=vround 1/3vair;
+lft x7l=edge; y7=min(y3,y6+y4-y3+.6vair);
+(x,y4r)=whatever[z3l,z4l]; x4r:=max(x,.5[x5r,x4]);
+(x',y6r)=whatever[z7l,z6l]; x6r:=max(x',.5[x5r,x6]);
+filldraw stroke z3e{up}...{left}z4e&super_arc.e(4,5)
+ &super_arc.e(5,6)&z6e{right}...{up}z7e; % bowl
+y1=ypart(edge_path intersectionpoint(z3l{up}...{left}z4l));
+y0=ypart(edge_path intersectionpoint(z7l{down}...{left}z6l));
+pickup tiny.nib; bot y2=if serifs: -.25d else: 0 fi;
+filldraw stroke z1e--z0'e--z0e--z2e; % stem
+pickup crisp.nib;
+pos8(hround(hair-stem_corr),0); pos7'(stem',0);
+z7'=z1; x8r=x7'r; top y8=h+oo;
+filldraw stroke z7'e--z8e; % point
+if serifs: pickup tiny.nib;
+ pos9(vair,-90); x9=.5[x2,x10]; bot y9r=-d-o-1;
+ pos10(hair,-180); lft x10r=hround u; y10=-.75d+.5flare;
+ pos11(flare,-180); z11r=z10r;
+ bulb(9,10,11); filldraw stroke super_arc.e(2,9); % tail
+else: pickup fine.nib; pos2'(stem,0); z2'=z2;
+ z2''r=z2'r; z2''=z2'; z2''l=(x2'l,0);
+ pos9(vair,-90); x9=4.5u; bot y9r=-d-o-1;
+ pos10(.5[vair,flare],-90); lft x10=hround 1.25u;
+ y10r=good.y -5/6d; y10l:=good.y y10l;
+ filldraw stroke z2'e..z2''e&super_arc.e(2'',9)
+ & term.e(9,10,left,.9,4); fi % tail
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar;
+
+cmchar "The letter h";
+beginchar("h",10u#,asc_height#,0);
+italcorr .5[bar_height#,x_height#]*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(serif_fit#+stem_shift#,serif_fit#-stem_shift#);
+pickup tiny.nib; pos1(stem,0); pos2(stem,0);
+pos1'(stem',0); pos2'(stem',0); pos3(stem,0);
+lft x1l=hround(2.5u-.5stem); x1l=x1'l=x2l=x2'l; x3=w-x1;
+top y1=h; bot y2=0; y1=y1'; y2=y2';
+filldraw stroke z1'e--z2'e; % left stem
+h_stroke(2,a,3,4); % arch and right stem
+if serifs: sloped_serif.l(1',2',b,1/3,jut,serif_drop); % upper left serif
+ numeric inner_jut; pickup tiny.nib;
+ if rt x2r+jut+.5u+1<=lft x4l-jut: inner_jut=jut;
+ else: rt x2r+jut+.5u+1=lft x4l-inner_jut; fi
+ dish_serif(2,1,c,1/3,jut,d,1/3,jut); % lower left serif
+ dish_serif(4,3,e,1/3,inner_jut,f,1/3,jut); fi % lower right serif
+penlabels(1,2,3,4); endchar;
+
+cmchar "The letter i";
+numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
+beginchar("i",5u#,min(asc_height#,10/7x_height#+.5dot_diam#),0);
+define_whole_blacker_pixels(dot_diam);
+italcorr h#*slant-serif_fit# + .5dot_diam# -2u#;
+adjust_fit(serif_fit#+stem_shift# if monospace:+.25u#fi,serif_fit#-stem_shift#);
+pickup tiny.nib; pos1(stem',0); pos2(stem',0);
+if odd(w-stem'): change_width; fi
+lft x1l=hround(.5w-.5stem'); x1=x2;
+top y1=x_height if serifs: +min(oo,serif_drop) fi; bot y2=0;
+filldraw stroke z1e--z2e; % stem
+pos3(dot_diam,0); pos4(dot_diam,90);
+if serifs: x3r=max(x1r,hround(x1+.5dot_diam-.2jut)-.5tiny)
+else: x3=x1-.5 fi;
+top y4r=h+1;
+if bot y4l-top y1<slab: y4l:=min(y4r-eps,y1+tiny+slab); fi
+x3=x4; y3=.5[y4l,y4r]; dot(3,4); % dot
+if serifs: sloped_serif.l(1,2,a,1/3,.95jut,serif_drop); % upper serif
+ dish_serif(2,1,b,1/3,jut,c,1/3,.9jut); fi % lower serif
+penlabels(1,2,3,4); endchar;
+
+cmchar "The letter j";
+numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
+beginchar("j",5.5u#,min(asc_height#,10/7x_height#+.5dot_diam#),desc_depth#);
+define_whole_blacker_pixels(dot_diam);
+italcorr h#*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(serif_fit#+2stem_shift# if monospace:+\\.5u# fi,
+ serif_fit#-2stem_shift# if monospace:-.5u# fi);
+pickup tiny.nib; pos1(stem',0); pos2(stem',0);
+rt x1r=hround(.5w+.25u+.5stem'); x1=x2;
+top y1=x_height if serifs: +min(oo,serif_drop) fi; bot y2=-1/3d;
+filldraw stroke z1e--z2e; % stem
+pos3(dot_diam,0); pos4(dot_diam,90);
+x3r=x1r; top y4r=h+1;
+if bot y4l-top y1<slab: y4l:=min(y4r-eps,y1+tiny+slab); fi
+x3=x4; y3=.5[y4l,y4r]; dot(3,4); % dot
+if serifs: sloped_serif.l(1,2,a,1/3,1.1jut,serif_drop); % upper serif
+ pickup tiny.nib; pos5(vair,-90); pos6(hair,-180); pos7(flare,-180);
+ x5=.5[x2,x6r]; bot y5r=-d-oo; y6-.5flare=-.88d;
+ if monospace: lft x6r=0 else: z6r=z7r; rt x7l=floor .75u fi;
+ (x,y5r)=whatever[z5l,z2l]; x5r:=max(x,.5[x6r,x5]);
+ filldraw stroke z2e{down}...z5e{left}; bulb(5,6,7); % arc and bulb
+else: pickup fine.nib; pos2'(stem',0); z2'=z2;
+ pos6(.2[vair,stem'],-90); pos7(vair,-90);
+ lft x7r=hround -.75u; bot y7r=vround 5/6(-d-oo);
+ (x,y7l)=whatever[z7r,z3]; x7l:=x;
+ z5r=z2'r; (x2'l,y5l)=whatever[z7l,z5r]; x5l=x2'l; y5=y5r;
+ x6r=.5[x7r,x5r]; x6l:=.5[x7l,x5l]; bot y6r=-d-oo;
+ filldraw stroke z2'e..{down}z5e & super_arc.e(5,6)
+ & z6e{left}..z7e; fi % arc and terminal
+penlabels(1,2,3,4,5,6,7); endchar;
+
+cmchar "The letter k";
+beginchar("k",9.5u#,asc_height#,0);
+italcorr x_height#*slant-.2u#;
+adjust_fit(serif_fit#,serif_fit#); pickup tiny.nib;
+numeric right_jut,stem[],alpha[];
+stem1=max(tiny.breadth,hround(fudged.stem-stem_corr));
+stem2=max(tiny.breadth,hround(fudged.stem-2stem_corr));
+stem3=max(tiny.breadth,hround(fudged.hair if hefty:-\\4stem_corr fi));
+stem4=max(tiny.breadth,hround(fudged.stem-3stem_corr));
+if serifs: right_jut=.6jut; else: right_jut=.4tiny; fi
+pos1(stem1,0); pos2(stem2,0); top y1=h; bot y2=0;
+lft x1l=lft x2l=hround(2.5u-.5stem1);
+top y3=x_height; rt x3r=hround(r-letter_fit-.7u-right_jut)+eps;
+bot y6=0; rt x6r=hround(r-letter_fit-.3u-right_jut)+eps;
+x4=x11=x1; y4=.7bar_height; y11=y3;
+alpha1=diag_ratio(1,.5(stem3-tiny),y3-y4,x3r-x4);
+alpha2=diag_ratio(1,.5(stem4-tiny),y11-y6,x6r-x1);
+penpos3(alpha1*(stem3-tiny),0); penpos4(whatever,-90);
+z5=.5[z5l,z5r]; penpos6(alpha2*(stem4-tiny),0);
+forsuffixes $=l,r: y3'$=x_height; y6'$=0; z4$=z3'$+whatever*(z3-z4);
+ z5$=z6'$+whatever*(z11-z6)=whatever[z3,z4]; endfor
+z3'r=z3r+penoffset z3-z4 of currentpen+whatever*(z3-z4);
+% we have also |z3'l=z3l+penoffset z4-z3 of currentpen+whatever*(z3-z4)|;\]
+z6'r=z6r+penoffset z11-z6 of currentpen+whatever*(z11-z6);
+z6'l=z6l+penoffset z6-z11 of currentpen+whatever*(z11-z6);
+fill z4r--diag_end(4r,3'r,1,.5,3'l,4l)--z4l--cycle; % upper diagonal
+fill z5l--diag_end(5l,6'l,.5,1,6'r,5r)--z5r--cycle; % lower diagonal
+pos0(stem1,0); pos0'(stem2,0); y0=y0'; x0=x1; x0'=x2;
+rt z0r=whatever[z3,z4]; filldraw stroke z1e..z0e--z0'e..z2e; % stem
+if serifs: numeric inner_jut;
+ if rt x2r+jut+.5u+1<=lft x6l-jut: inner_jut=jut;
+ else: rt x2r+inner_jut+.5u+1=lft x6l-inner_jut; fi
+ sloped_serif.l(1,0,a,1/3,jut,serif_drop); % upper stem serif
+ dish_serif(2,0',b,1/3,jut,c,1/3,inner_jut); % lower stem serif
+ dish_serif(3,4,d,2/3,1.4jut,e,1/2,right_jut)(dark); % upper diagonal serif
+ dish_serif(6,5,f,1/2,inner_jut,g,1/3,right_jut)(dark);fi % lower diagonal serif
+penlabels(0,1,2,3,4,5,6,11); endchar;
+
+cmchar "The letter l";
+beginchar("l",5u#,asc_height#,0); l_width#:=5u#+2serif_fit#;
+italcorr asc_height#*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(serif_fit#+stem_shift#,serif_fit#-stem_shift#);
+pickup tiny.nib; pos1(stem',0); pos2(stem',0);
+if odd(w-stem'): change_width; fi
+lft x1l=hround(.5w-.5stem'); x1=x2; top y1=h; bot y2=0;
+filldraw stroke z1e--z2e; % stem
+if serifs: sloped_serif.l(1,2,a,1/3,jut,serif_drop); % upper serif
+ dish_serif(2,1,b,1/3,jut,c,1/3,jut); fi % lower serif
+penlabels(1,2); endchar;
+
+cmchar "The letter m";
+beginchar("m",15u#,x_height#,0);
+italcorr .5[bar_height#,x_height#]*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(serif_fit#+stem_shift#,serif_fit#-stem_shift#);
+numeric shaved_stem; shaved_stem=hround(mfudged.stem-2stem_corr);
+pickup tiny.nib; pos1(mfudged.stem,0); pos2(mfudged.stem,0);
+pos1'(shaved_stem,0); pos2'(shaved_stem,0);
+pos3(mfudged.stem,0); pos5(mfudged.stem,0);
+lft x1l=hround(2.5u-.5stem); x1l=x1'l=x2l=x2'l; % stem, sic
+lft x3l=hround(.5w-.5mfudged.stem); x5-x3=x3-x1;
+if not monospace: r:=hround(x5+x1)+r-w; fi % change width for better fit
+top y1=h+min(oo,serif_drop); bot y2=0; y1=y1'; y2=y2';
+filldraw stroke z1'e--z2'e; % left stem
+h_stroke(2,a,3,4); % left arch and middle stem
+h_stroke(4,b,5,6); % right arch and right stem
+if serifs: sloped_serif.l(1',2',c,1/3,jut,serif_drop); % upper left serif
+ numeric inner_jut; pickup tiny.nib;
+ if rt x2r+jut+.5u+1<=lft x4l-jut: inner_jut=jut;
+ else: rt x2r+jut+.5u+1=lft x4l-inner_jut; fi
+ dish_serif(2,1,d,1/3,jut,e,1/3,jut); % lower left serif
+ dish_serif(4,3,f,1/3,inner_jut,g,1/3,jut); % lower middle serif
+ dish_serif(6,5,h,1/3,inner_jut,i,1/3,jut); fi % lower right serif
+penlabels(1,2,3,4,5,6); endchar;
+
+cmchar "The letter n";
+beginchar("n",10u#,x_height#,0);
+italcorr .5[bar_height#,x_height#]*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(serif_fit#+stem_shift#,serif_fit#-stem_shift#);
+pickup tiny.nib; pos1(stem,0); pos2(stem,0);
+numeric shaved_stem; shaved_stem=hround(stem-2stem_corr);
+pos1'(shaved_stem,0); pos2'(shaved_stem,0); pos3(stem,0);
+lft x1l=hround(2.5u-.5stem); x1l=x1'l=x2l=x2'l; x3=w-x1;
+top y1=h+min(oo,serif_drop); bot y2=0; y1=y1'; y2=y2';
+filldraw stroke z1'e--z2'e; % left stem
+h_stroke(2,a,3,4); % arch and right stem
+if serifs: sloped_serif.l(1',2',b,1/3,jut,serif_drop); % upper left serif
+ numeric inner_jut; pickup tiny.nib;
+ if rt x2r+jut+.5u+1<=lft x4l-jut: inner_jut=jut;
+ else: rt x2r+jut+.5u+1=lft x4l-inner_jut; fi
+ dish_serif(2,1,c,1/3,jut,d,1/3,jut); % lower left serif
+ dish_serif(4,3,e,1/3,inner_jut,f,1/3,jut); fi % lower right serif
+penlabels(1,2,3,4); endchar;
+
+cmchar "The letter o";
+beginchar("o",9u#,x_height#,0);
+italcorr .7x_height#*slant;
+adjust_fit(if monospace: .5u#,.5u# else: 0,0 fi);
+penpos1(vair,90); penpos3(vair',-90);
+penpos2(curve,180); penpos4(curve,0);
+x2r=hround max(.5u,1.25u-.5curve);
+x4r=w-x2r; x1=x3=.5w; y1r=h+vround 1.5oo; y3r=-oo;
+y2=y4=.5h-vair_corr; y2l:=y4l:=.52h;
+penstroke pulled_arc.e(1,2) & pulled_arc.e(2,3)
+ & pulled_arc.e(3,4) & pulled_arc.e(4,1) & cycle; % bowl
+penlabels(1,2,3,4); endchar;
+
+cmchar "The letter p";
+beginchar("p",10u#+serif_fit#,x_height#,desc_depth#);
+italcorr .5x_height#*slant+min(.5curve#-.85u#,-.1u#);
+adjust_fit(serif_fit#,0);
+pickup tiny.nib; pos1(stem',0); pos2(stem,0);
+pos0'(stem',0); pos0(stem,0); z0l=z0'l; x0'=x1; x0=x2;
+lft x1l=hround(2.5u-.5stem'); top y1=h if serifs: +min(oo,serif_drop) fi;
+numeric edge; edge=rt x2r;
+pickup fine.nib; pos3(if hefty:thin_join else: hair fi,180);
+pos4(vair',90); pos5(curve,0); pos6(vair,-90); penpos7(x3l-x3r,-180);
+rt x3l=max(rt x3l-(lft x3r-tiny.lft x2l), 1/3[rt x2,edge]);
+y3=1/8[bar_height,x_height];
+x4l=w-.5(w-serif_fit)+.5u; top y4r=x_height+oo;
+rt x5r=hround min(w-1.35u+.5curve,w-.6u); y5=.5x_height;
+x6l=x4l-.2u; bot y6r=-oo;
+x7=x3; y7=min(y3,y6+y4-y3+.6vair);
+(x,y4r)=whatever[z3l,z4l]; x4r:=min(x,.5[x5r,x4]);
+(x',y6r)=whatever[z7l,z6l]; x6r:=min(x',.5[x5r,x6]);
+filldraw stroke z3e{up}...{right}z4e&super_arc.e(4,5)
+ &super_arc.e(5,6)&z6e{left}...{up}z7e; % bowl
+y0=ypart(((edge,h)--(edge,0))intersectionpoint(z3l{up}...{right}z4l));
+pickup tiny.nib; bot y2=-d;
+filldraw stroke z1e--z0'e--z0e--z2e; % stem
+pickup crisp.nib; pos8(hair,0); pos7'(stem,0);
+z7'=z2; x8l=x7'l; bot y8=0;
+filldraw stroke z7'e--z8e; % point
+if serifs: sloped_serif.l(1,0',a,1/3,jut,serif_drop); % upper serif
+ dish_serif(2,0,b,1/3,jut,c,1/3,jut); fi % lower serif
+penlabels(0,1,2,3,4,5,6,7,8); endchar;
+
+cmchar "The letter q";
+beginchar("q",10u#+serif_fit#,x_height#,desc_depth#);
+italcorr x_height#*slant-serif_fit#+.5stem#-2u# if serifs:+.5u# fi;
+adjust_fit(0,serif_fit# if serifs: -.5u# fi);
+pickup tiny.nib; pos1(stem',0); pos2(stem,0);
+pos0'(stem',0); pos0(stem,0); z0r=z0'r; x0'=x1; x0=x2;
+rt x1r=hround(w-2.5u+.5stem');
+numeric edge; edge=lft x2l;
+pickup fine.nib; pos3(if hefty:thin_join else: hair fi,0);
+pos4(vair',90); pos5(curve,180); pos6(vair,270); penpos7(x3r-x3l,360);
+lft x3l=min(lft x3l-(rt x3r-tiny.rt x2r),2/3[lft x2,edge]); y3=bar_height;
+x4l=.5(w-serif_fit)-.3u; top y4r=x_height+oo;
+lft x5r=hround max(1.35u-.5curve,.6u); y5=.5x_height;
+x6l=x4l-.2u; bot y6r=-oo; y7=min(y3,y6+y4-y3+.6vair);
+lft x7l=min(lft x7l-(rt x7r-tiny.rt x2r),1/3[lft x2,edge]);
+(x,y4r)=whatever[z3l,z4l]; x4r:=max(x,.5[x5r,x4]);
+(x',y6r)=whatever[z7l,z6l]; x6r:=max(x',.5[x5r,x6]);
+filldraw stroke z3e{up}...{left}z4e&super_arc.e(4,5)
+ &super_arc.e(5,6)&z6e{right}...{up}z7e; % bowl
+y1=ypart(((edge,h)--(edge,0))intersectionpoint(z3l{up}...{left}z4l));
+y0=ypart(((edge,h)--(edge,0))intersectionpoint(z6l{right}...{up}z7l));
+pickup tiny.nib; bot y2=-d;
+filldraw stroke z1e--z0'e--z0e--z2e; % stem
+pickup crisp.nib;
+pos8(hround(hair-stem_corr),0); pos7'(stem',0);
+z7'=z1; x8r=x7'r; top y8=h+oo;
+filldraw stroke z7'e--z8e; % point
+if serifs: dish_serif(2,0,b,1/3,jut,c,1/3,jut); fi % lower serif
+penlabels(0,1,2,3,4,5,6,7,8); endchar;
+
+cmchar "The letter r";
+numeric r_flare#; r_flare#=.75[if serifs: stem# else: vair# fi,flare#];
+define_whole_blacker_pixels(r_flare);
+beginchar("r",if serifs:max(7u#,5.5u#+r_flare#) else:6.5u# fi,x_height#,0);
+italcorr x_height#*slant if not serifs: +.25u# fi;
+adjust_fit(serif_fit#,0);
+pickup fine.nib; top y4r=h+oo;
+if serifs: pos4(vair,90); pos5(hair,0);
+ x4=w-max(1.75u,.25u+r_flare);
+ rt x5r=hround(w-.5u+.5); y5+.5r_flare=.9[bar_height,h]+oo;
+ pos6(r_flare,0); bulb(4,5,6); % bulb
+else: pos4(r_flare,90); rt x4=hround(w-.25u); fi
+pos3(thin_join,180); rt x3l=hround(2.5u-.5stem')+stem'; top y3=bar_height;
+filldraw stroke z3e{up}...{right}z4e; % arc
+pickup tiny.nib; pos0(stem',0); pos2(stem',0);
+pos1(hround(stem-3stem_corr),0); top y1=h+min(oo,serif_drop);
+pos0'(hround(stem-3stem_corr),0); y0=y0'=y3; x1l=x0l=x0'l=x2l;
+lft x1l=hround(2.5u-.5stem'); bot y2=0;
+filldraw stroke z1e--z0'e--z0e--z2e; % stem
+if serifs: sloped_serif.l(1,0',a,1/3,jut,serif_drop); % upper serif
+ dish_serif(2,0,b,1/3,jut,c,1/3,1.25jut); fi % lower serif
+penlabels(1,2,3,4,5,6); endchar;
+
+cmchar "The letter langes Es";
+beginchar("s",5.5u#,asc_height#,0);
+italcorr asc_height#*slant+if serifs:flare#-.25u# else: 1.25u# fi;
+adjust_fit(stem_shift#,if monospace: .5u# else:-stem_shift# fi);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pickup fine.nib; numeric bulb_diam;
+if serifs: bulb_diam=hround .8[stem,flare];
+ pos2(bulb_diam,0); y2+.5bulb_diam=.9[x_height,h+oo];
+ if monospace: rt x2r=hround(w-.5u)+1 else: lft x2l=hround(w-.75u+.5) fi;
+else: pos2(5/7[vair,flare],90); top y2r=h;
+ rt x2=hround(if monospace:w-.5u else:w+.75u fi); fi
+f_stroke(1,2,a,b,c,jut,if not monospace:1.25fi\\ jut); % stem, terminal, serif
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1;
+pos3(bar,90); pos4(bar,90);
+rt x4=x1;
+filldraw stroke z3e--z4e; % bar
+penlabels(1,2,3,4); endchar;
+
+cmchar "The letter kurzes Es";
+beginchar(oct"363",7.1u#,x_height#,0);
+italcorr x_height#*slant-if serifs:.55u# else:.3u# fi;
+adjust_fit(if monospace: .5u#,.4u# else: 0,if serifs:0 else:-.2u# fi fi);
+numeric theta; theta=90-angle(40u,h); slope:=-h/40u; % angle at middle
+numeric s_slab; s_slab=if serifs:vair else:Vround .1[vair,stem] fi;
+numeric ess'; ess'=max(fine.breadth,ess);
+pickup fine.nib; pos2(max(fine.breadth,s_slab-vround vair_corr),-100);
+pos0(ess',theta); pos7(s_slab,-90); x2l=x0=x7=.5w;
+top y2l=h+vround 1.5oo; bot y7r=-oo;
+y0-.5ess'=y7l+if serifs:.54 else: .52 fi\\(y2r-y7l-ess');
+lft x3l=hround .6u; rt x6r=hround(w-.6u);
+x3r-x3l=x6r-x6l=hround .5[s_slab,ess']-fine;
+ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r); y3=y3r;
+ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r); y6=y6r;
+interim superness:=more_super;
+filldraw stroke super_arc.e(2,3) & z3e{down}
+ ..z4e---z5e..z6e{down} & super_arc.e(6,7); % main stroke
+if serifs: pos1(hair,180); pos8(hair,180);
+ rt x1l=hround(w-1.05u); lft x8r=hround .6u;
+ bot y1=min(bot y2r,vround 1/5[top y5r,h]);
+ top y8=max(top y7l,vround 5/6 bot y4l);
+ filldraw stroke z1e{up}....{left}z2e; % upper arc
+ filldraw stroke z7e{left}....{x8-x7,5(y8-y7)}z8e; % lower arc
+ path upper_arc, lower_arc;
+ upper_arc=z1{up}....{left}z2; lower_arc=z7{left}....{x8-x7,5(y8-y7)}z8;
+ pos10(.3[fine.breadth,cap_hair],0); pos9(.3[fine.breadth,cap_hair],0);
+ x10r=x1l; top y10=top y2l; x9l=x8r; bot y9=bot y7r;
+ x1l-x1'=x8'-x8r=1.6cap_curve-fine; y1'=y1; y8'=y8;
+ numeric t; t=xpart(upper_arc intersectiontimes(z10l--z1'));
+ filldraw z1l--z10r--z10l--subpath(t,0) of upper_arc--cycle; % upper barb
+ t:=xpart(lower_arc intersectiontimes(z9r--z8'));
+ filldraw z8r--z9l--z9r--subpath(t,1) of lower_arc--cycle; % lower barb
+else: pos1(4/7[s_slab,flare],-100); pos8(flare,-100);
+ x1l=good.x(x1l+w-u-rt x1); lft x8r=hround .5u;
+ top y1l=vround(.93h+1.5oo); bot y8r=vround .1h-oo;
+ filldraw stroke term.e(2,1,right,.9,4); % upper arc and terminal
+ filldraw stroke term.e(7,8,left,1,4); fi % lower arc and terminal
+penlabels(0,1,1',2,3,4,5,6,7,8,8',9,10); endchar;
+
+cmchar "The letter t";
+beginchar("t",6u#+max(u#,.5stem#),
+ min(asc_height#,if hefty:9/7 else:10/7 fi\\ x_height#),0);
+italcorr x_height#*slant if serifs: -.9u# else: -.4u# fi;
+adjust_fit(0,if serifs: 0 else: -.5u# fi);
+numeric shaved_stem; shaved_stem=hround(stem if hefty:-\\2stem_corr fi);
+pickup fine.nib; pos2(shaved_stem,180);pos3(shaved_stem,180);
+lft x2r=lft x3r=hround(2.5u-.5shaved_stem);
+y2=y8; y3=max(.5bar_height,2vair);
+pickup crisp.nib; pos8(bar,90);
+rt x8=hround(w-1.3u); top y8r=x_height; lft x7=hround 1/3u; y7l=y8l;
+if hefty: pos7(bar,90);
+ filldraw stroke z7e--z8e; % crossbar
+ pickup tiny.nib; pos1(hround(shaved_stem-stem_corr),0);
+ rt x1r=fine.rt x2l; top y1=h;
+ penpos2'(x1r-x1l,0); x2'=x1; y2'=y2;
+ filldraw stroke z1e--z2'e; % upper terminal
+else: pos7(vair,90); pos1(hair,0);
+ rt x1r=fine.rt x2l; top y1=h;
+ filldraw z1l{down}...{left}z7r--z7l--z8l
+ --z8r--(x1r,y8r)--z1r--cycle; fi % upper terminal and crossbar
+pickup fine.nib; interim superness:=more_super;
+pos4(vair',-90); bot y4r=-oo; rt x5r=hround(w-u);
+if serifs: pos5(hair,0); y5=y3; x4l=.5[x3l,x5l];
+ (x,y4r)=whatever[z4l,z5l]; x4r:=max(x,.5[x3r,x4]);
+ filldraw stroke z2e..super_arc.e(3,4)...{up}z5e; % stem and hook
+ pickup crisp.nib; pos6(hair,0); pos5'(hair,0);
+ x6=x5=x5'; top y6=max(vround .75bar_height,top y5); y5=y5';
+ filldraw stroke z5'e--z6e; % terminal
+else: pos5(vair,-75); top y5l=vround .2[top y4l,bar_height];
+ x5l:=good.x x5l; x4l=1/3[x3l,x5l]; x4r:=1/3[x3r,x5r]; y3l:=y3l+.2vair;
+ filldraw stroke z2e..super_arc.e(3,4); % stem and hook
+ path p; p=stroke z4e{right}..tension .9 and atleast 1..z5e; % terminal
+ if (xpart(z5l-precontrol 1 of p)<0) or (xpart(z5r-postcontrol 2 of p)<0):
+ filldraw stroke z4e{right}...{up}z5e;
+ else: filldraw p; fi fi;
+penlabels(1,2,3,4,5,6,7,8); endchar;
+
+cmchar "The letter u";
+beginchar("u",10u#,x_height#,0);
+italcorr x_height#*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(serif_fit#+stem_shift#,serif_fit#-stem_shift#);
+numeric light_vair; light_vair=vair if hefty: -vround 2vair_corr fi;
+if light_vair<fine.breadth: light_vair:=fine.breadth; fi
+pickup tiny.nib; pos1(stem,0); pos2(stem,0);
+pos3(stem,0); pos4(stem',0);
+lft x1l=hround(2.5u-.5stem); x1=x2; x3=w-x1; x3r=x4r;
+if serifs: top y1=h+min(oo,serif_drop); bot y4=-min(oo,serif_drop);
+else: top y1=h; bot y4=0; fi
+pos0(stem,0); pos0'(stem',0); x0=x3; x0'=x4; y0=y0';
+penpos2'(stem-fine,-180); z2'=z2; y3=y1; y2=.5bar_height;
+penpos5(max(eps,light_vair-fine),-90); penpos6(thin_join-fine,0);
+y6=y0=2/3bar_height;
+filldraw stroke z1e--z2e; % left stem
+filldraw stroke z3e..z0e--z0'e..z4e; % right stem
+pickup fine.nib; bot y5r=-oo; x5l=.5w-.25u; lft x6l=tiny.lft x0l;
+(x,y5r)=whatever[z5l,z6l]; x5r:=max(x,.5[x5,x2'r]);
+filldraw stroke {{interim superness:=hein_super;
+ pulled_arc.e(2',5)}} & z5e{right}...{up}z6e; % arc
+if serifs: sloped_serif.l(1,2,a,1/3,jut,serif_drop); % upper left serif
+ sloped_serif.l(3,0,b,1/3,jut,serif_drop); % upper right serif
+ sloped_serif.r(4,0',c,1/3,jut,min(oo,serif_drop)); fi % lower right serif
+penlabels(1,2,3,4,5); labels(6); endchar;
+
+cmchar "The letter v";
+beginchar("v",if serifs: 9.5u# else:9u# fi,x_height#,0);
+italcorr x_height#*slant+.25u#;
+adjust_fit(serif_fit# if monospace:+\\.5u#,.5u#+ else:,fi\\ serif_fit#);
+numeric left_stem,right_stem,outer_jut,alpha;
+left_stem=fudged.stem-stem_corr;
+right_stem=min(fudged.hair if hefty:-2stem_corr fi,left_stem);
+outer_jut=.75jut; x1l=w-x4r=l+letter_fit+outer_jut+.25u; y1=y4=h;
+x2-x1=x4-x3; x2l+apex_corr=x3l; y2=y3=-apex_oo;
+alpha=diag_ratio(2,right_stem,y1-y2,x4r-x1l-apex_corr);
+penpos1(alpha*left_stem,0); penpos2(alpha*left_stem,0);
+penpos3(alpha*right_stem,0); penpos4(alpha*right_stem,0);
+z0=whatever[z1r,z2r]=whatever[z3l,z4l];
+if y0>notch_cut: y0:=notch_cut;
+ fill z0+.5right{up}...{z4-z3}diag_end(3l,4l,1,1,4r,3r)
+ --diag_end(4r,3r,1,1,2l,1l)--diag_end(2l,1l,1,1,1r,2r){z2-z1}
+ ...{down}z0+.5left--cycle; % left and right diagonals
+else: fill z0--diag_end(0,4l,1,1,4r,3r)--diag_end(4r,3r,1,1,2l,1l)
+ --diag_end(2l,1l,1,1,1r,0)--cycle; fi % left and right diagonals
+if serifs: numeric inner_jut; pickup tiny.nib;
+ prime_points_inside(1,2); prime_points_inside(4,3);
+ if rt x1'r+jut+.5u+1<=lft x4'l-jut: inner_jut=jut;
+ else: rt x1'r+inner_jut+.5u+1=lft x4'l-inner_jut; fi
+ dish_serif(1',2,a,1/3,outer_jut,b,1/2,inner_jut); % left serif
+ dish_serif(4',3,c,.6,inner_jut,d,1/2,outer_jut)(dark); fi % right serif
+penlabels(0,1,2,3,4); endchar;
+
+cmchar "The letter w";
+beginchar("w",13u#,x_height#,0);
+italcorr x_height#*slant+.25u#;
+adjust_fit(serif_fit#,serif_fit#);
+numeric stem[],outer_jut,upper_notch,alpha,mid_corr;
+outer_jut=.7jut; x1l=w-x8r=l+letter_fit+outer_jut+.25u;
+stem1=fudged.stem-stem_corr;
+stem4=min(fudged.hair if hefty:-2stem_corr fi,stem1);
+stem2=if hefty:.1[vair,stem4] else: stem4 fi;
+stem3=max(stem2,stem1-3stem_corr);
+x2-x1=x4-x3=x6-x5=x8-x7; x2l+apex_corr=x3l; x6l+apex_corr=x7l;
+y1=y8=h; y2=y3=y6=y7=-apex_oo;
+y4=y5=if monospace: vround .6 fi\\ h; upper_notch=y4-notch_cut;
+mid_corr=if monospace or hefty:-.3apex_corr else: .5jut fi;
+alpha=diag_ratio(4,stem2-stem3+stem4,y1-y2,x8r-x1l+mid_corr-2apex_corr);
+penpos1(alpha*stem1,0); penpos2(alpha*stem1,0);
+penpos3(alpha*stem2,0); penpos4(alpha*stem2,0);
+penpos5(alpha*stem3,0); penpos6(alpha*stem3,0);
+penpos7(alpha*stem4,0); penpos8(alpha*stem4,0);
+x4l-x1l=floor(x4l-x1l+.5(x5r+mid_corr-x4r)); % |x5r| $\approx$ |x4r+mid_corr|
+z23=whatever[z1r,z2r]=whatever[z3l,z4l];
+z45=whatever[z3r,z4r]=whatever[z5l,z6l];
+z67=whatever[z5r,z6r]=whatever[z7l,z8l];
+fill diag_end(1l,2l,1,1,3r,4r){z4-z3}
+ ...if y45<upper_notch:(x45,upper_notch)+.5left{up}
+ --(x45,upper_notch)+.5right{down} else: z45&z45 fi
+ ...{z6-z5}diag_end(5l,6l,1,1,7r,8r)--diag_end(7r,8r,1,1,8l,7l){z7-z8}
+ ...if y67>notch_cut:(x67,notch_cut)+.5right{down}
+ --(x67,notch_cut)+.5left{up} else: z67&z67 fi
+ ...{z5-z6}special_diag_end(6,5,4,3){z3-z4}
+ ...if y23>notch_cut:(x23,notch_cut)+.5right{down}
+ --(x23,notch_cut)+.5left{up} else: z23&z23 fi
+ ...{z1-z2}diag_end(2r,1r,1,1,1l,2l)--cycle; % diagonals
+if serifs: numeric inner_jut[]; pickup tiny.nib;
+ prime_points_inside(1,2); prime_points_inside(5,6); prime_points_inside(8,7);
+ if monospace: inner_jut1=inner_jut4=1.5jut;
+ elseif hefty: inner_jut1=inner_jut4=jut;
+ else: fill diag_end(6r,5r,1,1,5l,6l)--.9[z5l,z6l]
+ ..{z5-z6}.1[z5r,z6r]--cycle; % middle stem
+ inner_jut2=.7inner_jut1; inner_jut4=1.1inner_jut3;
+ if rt x1'r+jut+.5u+1<=lft x5'l-.7jut: inner_jut1=jut;
+ else: rt x1'r+inner_jut1+.5u+1=lft x5'l-inner_jut2; fi
+ if rt x5'r+jut+.5u+1<=lft x8'l-1.1jut: inner_jut3=jut;
+ else: rt x5'r+inner_jut3+.5u+1=lft x8'l-inner_jut4; fi
+ dish_serif(5',6,e,1/3,inner_jut2,f,1/2,inner_jut3); fi % middle serif
+ dish_serif(1',2,a,1/3,outer_jut,b,1/2,inner_jut1); % left serif
+ dish_serif(8',7,c,.6,inner_jut4,d,1/2,outer_jut)(dark); fi % right serif
+penlabels(0,1,2,3,4,5,6,7,8,23,45,67); endchar;
+
+cmchar "The letter x";
+beginchar("x",if serifs:9.5u# else:9u# fi,x_height#,0);
+italcorr x_height#*slant-.05u#;
+adjust_fit(serif_fit# if monospace:+\\.5u#,.5u#+ else:,fi\\ serif_fit#);
+numeric stem[],outer_jut,xjut,alpha[];
+stem1=fudged.stem-4stem_corr; stem2=min(fudged.hair,stem1);
+outer_jut=.75jut; xjut= if serifs: (stem1-stem2)/4 else: 0 fi;
+x1l=l+letter_fit+.1u+outer_jut; x2r=r-letter_fit-.3u-outer_jut-xjut;
+x3l=l+letter_fit+outer_jut+xjut; x4r=r-letter_fit-outer_jut;
+y1=y2=h; y3=y4=0;
+alpha1=diag_ratio(1,stem1,h,x4r-x1l);
+alpha2=diag_ratio(1,stem2,h,x2r-x3l);
+penpos1(alpha1*stem1,0); penpos2(alpha2*stem2,0);
+penpos3(alpha2*stem2,0); penpos4(alpha1*stem1,0);
+if hefty: z0=whatever[z1,z4]=whatever[z2,z3];
+ x12=x34=x0; y13=y24=y0;
+ z12=whatever[z2l,z3l]; z13=whatever[z2l,z3l];
+ z24=whatever[z2r,z3r]; z34=whatever[z2r,z3r];
+ forsuffixes $=13,24,34: z$'=.2[z$,z0]; endfor
+ fill diag_end(12,1r,.5,1,1l,13')--z13'--diag_end(13',3l,1,.5,3r,34')--z34'
+ --diag_end(34',4l,.5,1,4r,24')--z24'
+ --diag_end(24',2r,1,.5,2l,12)--z12--cycle; % diagonals
+else: fill diag_end(4r,1r,.5,1,1l,4l)
+ --diag_end(1l,4l,.5,1,4r,1r)--cycle; % left diagonal
+ fill diag_end(2l,3l,.5,1,3r,2r)
+ --diag_end(3r,2r,.5,1,2l,3l)--cycle; fi % right diagonal
+if serifs: numeric inner_jut[]; pickup tiny.nib;
+ prime_points_inside(1,4); prime_points_inside(2,3);
+ prime_points_inside(3,2); prime_points_inside(4,1);
+ if rt x1'r+jut+.5u+1<=lft x2'l-jut-xjut: inner_jut1=jut;
+ else: rt x1'r+inner_jut1+.5u+1=lft x2'l-inner_jut1-xjut; fi
+ if rt x3'r+jut+.5u+1<=lft x4'l-jut-xjut: inner_jut2=jut;
+ else: rt x3'r+inner_jut2+.5u+1=lft x4'l-inner_jut2-xjut; fi
+ dish_serif(1',4,a,1/3,outer_jut,b,2/3,inner_jut1); % upper left serif
+ dish_serif(4',1,c,2/3,inner_jut2,d,1/3,outer_jut); % lower right serif
+ dish_serif(2',3,e,2/3,inner_jut1+xjut,
+ f,1/2,outer_jut+xjut)(dark); % upper right serif
+ dish_serif(3',2,g,1/2,outer_jut+xjut,
+ h,2/3,inner_jut2+xjut)(dark); fi % lower left serif
+penlabels(0,1,2,3,4,12,13,24,34); endchar;
+
+cmchar "The letter y";
+beginchar("y",if serifs:9.5u# else:9u# fi,x_height#,desc_depth#);
+italcorr x_height#*slant+.25u#;
+adjust_fit(serif_fit# if monospace:+\\.5u#,.5u#+ else:,fi\\ serif_fit#);
+numeric left_stem,right_stem,bot_stem,bot_vair,outer_jut;
+left_stem=fudged.stem-stem_corr;
+right_stem=fudged.hair if hefty:-2stem_corr fi;
+bot_stem=fudged.hair if hefty:-8stem_corr fi;
+bot_vair=Vround(if serifs: vair else:.5[vair,bot_stem] fi);
+outer_jut=.75jut;
+x1l=w-x4r=l+letter_fit+outer_jut+.25u; y1=y4r=h; y2=y3=0; x2l=x3l;
+numeric alpha,alpha[]; x9=3u; y9=bot_vair-d-oo;
+alpha1=diag_ratio(2,bot_stem,y1-y3,x4r-x1l-apex_corr);
+alpha2=diag_ratio(1,bot_stem,y1-y9,x4r-x9);
+if alpha1<alpha2: x2l-x1l=x4r-x3r+apex_corr; alpha=alpha1;
+else: alpha=alpha2; z3l=whatever[z9,z4r-(alpha*bot_stem,0)]; fi
+penpos3(alpha*bot_stem,0); penpos4(alpha*right_stem,0);
+alpha3=(y1++(x2l-x1l))/y1;
+penpos1(alpha3*left_stem,0); penpos2(alpha3*left_stem,0);
+z0=whatever[z1r,z2r]=z4l+whatever*(z3r-z4r);
+if y0>notch_cut: y0:=notch_cut;
+ fill z0+.5right{up}...{z4r-z3r}diag_end(0,4l,1,1,4r,3r)
+ --z3r--z2l--diag_end(2l,1l,1,1,1r,2r){z2-z1}
+ ...{down}z0+.5left--cycle; % left and right diagonals
+else: fill z0--diag_end(0,4l,1,1,4r,3r)--z3r--z2l
+ --diag_end(2l,1l,1,1,1r,0)--cycle; fi % left and right diagonals
+penpos5(alpha*bot_stem,0); z5r=whatever[z3r,z4r]; y5-.5vair=-.5d;
+if serifs: numeric light_bulb; light_bulb=hround 7/8[hair,flare]; clearpen;
+ penpos6(vair,-90); penpos7(hair,-180); penpos8(light_bulb,-180);
+ x6=2u; y6r=-d-oo; y8-.5light_bulb=-.85d; x8r=hround .35u;
+ fill stroke z3e---z5e...{left}z6e; bulb(6,7,8); % arc and bulb
+ numeric inner_jut; pickup tiny.nib;
+ prime_points_inside(1,2); prime_points_inside(4,3);
+ if rt x1'r+jut+.5u+1<=lft x4'l-jut: inner_jut=jut;
+ else: rt x1'r+inner_jut+.5u+1=lft x4'l-inner_jut; fi
+ dish_serif(1',2,a,1/3,outer_jut,b,1/2,inner_jut); % left serif
+ dish_serif(4',3,c,.6,inner_jut,d,1/2,outer_jut)(dark); % right serif
+else: penpos6(bot_vair,-90); x6=2.5u; y6r=-d-oo;
+ fill stroke z3e---z5e...{left}z6e; % arc
+ pickup fine.nib; pos6'(bot_vair,-90); z6'=z6;
+ pos7(2/3[bot_vair,flare],-85);
+ lft x7l=hround u; bot y7r=vround-.96d-oo; y7l:=good.y y7l;
+ filldraw stroke term.e(6',7,left,1,4); fi % arc and terminal
+penlabels(0,1,2,3,4,5,6,7,8,9); endchar;
+
+cmchar "The letter z";
+beginchar("z",8u#,x_height#,0);
+italcorr x_height#*slant-.5serif_fit#-.3u#;
+adjust_fit(0,.5serif_fit#);
+numeric arm_thickness[],z_stem;
+if hefty: arm_thickness1=Vround(vair-vair_corr); arm_thickness2=vair;
+ z_stem=.6[vair,stem];
+else: arm_thickness1=vair; arm_thickness2=vair'; z_stem=.9[vair,stem]; fi
+pickup tiny.nib; rt x1r=rt x2r=hround(w-.8u); lft x3l=lft x4l=hround .5u;
+top y1=h; y2=min(y1,h-2/3arm_thickness1);
+bot y4=0; y3=max(y4,2/3arm_thickness2);
+numeric alpha; alpha=diag_ratio(1,z_stem-tiny,y2-y3,x2r-x3l-slant*(y2-y3));
+penpos1(alpha*(z_stem-tiny),0); penpos2(alpha*(z_stem-tiny),0);
+penpos3(alpha*(z_stem-tiny),0); penpos4(alpha*(z_stem-tiny),0);
+pair delta; delta=penoffset z3-z2 of currentpen;
+fill top lft z1l--z2l+delta---z3l+delta..lft z3l---lft z4l..bot z4l
+ ---bot rt z4r--z3r-delta---z2r-delta..rt z2r---rt z1r..top z1r
+ ---cycle; % diagonal
+pickup crisp.nib; pos5(arm_thickness1,90); pos6(hair,180);
+top y5r=h; x5=x1; lft x6r=hround .75u; y6=good.y(y5l-beak/1.4)-eps;
+arm(5,6,a,beak_darkness,-.4beak_jut); % upper arm and beak
+pos7(arm_thickness2,-90); pos8(hair,0);
+bot y7r=0; x7=x4; rt x8r=hround(w-.75u); y8=good.y(y7l+beak/1.2)+eps;
+arm(7,8,b,beak_darkness,.6beak_jut); % lower arm and beak
+penlabels(1,2,3,4,5,6,7,8); endchar;
diff --git a/fonts/gothic/oldlatin/oromlig.mf b/fonts/gothic/oldlatin/oromlig.mf
new file mode 100644
index 0000000000..fff520a6b0
--- /dev/null
+++ b/fonts/gothic/oldlatin/oromlig.mf
@@ -0,0 +1,168 @@
+% THIS IS THE OLD LATIN SOURCE FILE oromlig.mf BY T. TERASHITA.
+% IT MUST NOT BE MODIFIED IN ANY WAY UNLESS THE FILE NAME IS CHANGED!
+
+% Old Latin ligatures part 1 (part 2 is oromligs.mf)
+% based on romlig.mf by D E Knuth.
+% This file describes five roman ligatures that begin with `f'
+% and puts them in code positions \0013--\0017.
+
+numeric itc#; % modified italic correction on `f' and `ff'
+itc#=if serifs: max(0,flare#-.25u#) else: 1.25u# fi;
+
+ligtable "f": "i"=:oct"014", "f"=:oct"013", "l"=:oct"015",
+ "'" kern itc#, "?" kern itc#, "!" kern itc#, ")" kern itc#, "]" kern itc#;
+ligtable oct"013": "i"=:oct"016", "l"=:oct"017",
+ "'" kern itc#, "?" kern itc#, "!" kern itc#, ")" kern itc#, "]" kern itc#;
+
+cmchar "The ligature ff";
+beginchar(oct"013",10.5u#+2letter_fit#,asc_height#,0);
+italcorr asc_height#*slant+if serifs:flare#-.25u# else: 1.25u# fi;
+adjust_fit(0,0);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); rt x11r=hround(w-3u+.5stem');
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround .8[stem,flare];
+ pos2(bulb_diam,0); pos12(bulb_diam,0);
+ rt x2r=hround(rt x11r-stem_corr); lft x12l=hround(w-.75u+.5);
+ y2+.5bulb_diam=.85[x_height,h+oo]; y12+.5bulb_diam=.9[x_height,h+oo];
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 6.25u;
+ pos12(5/7[vair,flare],90); y12=y2; rt x12=hround(w+.75u); fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,1.25jut); % right stem, arc, terminal, serif
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1;
+pos3(bar,90); pos4(bar,90);
+rt x4=hround(w-1/3u);
+if hefty: pos3'(bar,90); x3'-x1=x4-x11; y3'=y3;
+ pos4'(bar,90); x4'=x11; y4'=y4;
+ filldraw stroke z3e--z3'e; filldraw stroke z4'e--z4e; % bars
+else: filldraw stroke z3e--z4e; fi % bar
+penlabels(1,2,3,4,11,12); endchar;
+
+cmchar "The ligature fi";
+beginchar(oct"014",10u#+2letter_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5if serifs:stem# else:dot_size# fi-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); rt x11r=hround(w-2.5u+.5stem');
+pos12(stem',0); x11=x12; bot y12=0;
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size];
+ pos2(bulb_diam,0); x2r=x12r;
+ y2+.5bulb_diam=.8[x_height,h+oo]; top y11=x_height+min(oo,serif_drop);
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: bulb_diam=max(stem,dot_size);
+ pos2(6/7[vair,flare],90); top y2r=h; rt x2=hround 5.3u;
+ pickup tiny.nib; pos13(bulb_diam,0); pos14(bulb_diam,90);
+ x13=x11-.5; top y14r=min(10/7x_height+.5bulb_diam,h)+1; top y11=x_height;
+ if bot y14l-x_height<tiny: y14l:=min(y14r-eps,y11+2tiny); fi
+ x13=x14; y13=.5[y14l,y14r]; dot(13,14); % dot
+fi; % this is the ligature we're drawing
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+pickup tiny.nib; filldraw stroke z11e--z12e; % right stem
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x11; % bar will overlap upper right serif
+ sloped_serif.l(11,12,d,1/3,jut,min(oo,serif_drop)); % upper right serif
+ dish_serif(12,11,e,1/3,inner_jut,f,1/3,jut); % lower right serif
+else: rt x4= hround 5.3u; fi
+pickup crisp.nib; filldraw stroke z3e--z4e; % bar
+penlabels(1,2,3,4,11,12,13,14); endchar;
+
+cmchar "The ligature fl";
+beginchar(oct"015",10u#+2letter_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); rt x11r=hround(w-2.5u+.5stem');
+pos12(stem',0); x11=x12; bot y12=0; top y11=h;
+filldraw stroke z11e--z12e; % right stem
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround .8[stem,flare];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ y2+.5bulb_diam=.9[x_height,h+oo];
+ sloped_serif.l(11,12,d,1/3,eps,max(serif_drop,oo)); % erase excess at top
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.3u; fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x11;
+ dish_serif(12,11,e,1/3,inner_jut,f,1/3,jut); % lower right serif
+else: rt x4= hround 5.3u; fi
+pickup crisp.nib; filldraw stroke z3e--z4e; % bar
+penlabels(1,2,3,4,11,12); endchar;
+
+cmchar "The ligature ffi";
+beginchar(oct"016",15u#+4letter_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5if serifs:stem# else:dot_size# fi-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); lft x11l=hround(.5w-.5stem');
+pos21(stem',0); rt x21r=hround(w-2.5u+.5stem');
+pos22(stem',0); x21=x22; bot y22=0;
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ pos12(bulb_diam,0); x12r=x21r;
+ top y21=x_height+min(oo,serif_drop);
+ y2+.5bulb_diam=.8[x_height,h+oo]; y12=y2;
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: bulb_diam=max(stem,dot_size);
+ pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.75u;
+ pos12(6/7[vair,flare],90); y12=y2; rt x12=hround(.5w+2.8u);
+ pickup tiny.nib; pos23(bulb_diam,0); pos24(bulb_diam,90);
+ x23=x21-.5; top y24r=min(10/7x_height+.5bulb_diam,h)+1; top y21=x_height;
+ if bot y24l-x_height<tiny: y24l:=min(y24r-eps,y21+2tiny); fi
+ x23=x24; y23=.5[y24l,y24r]; dot(23,24); fi % dot
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,inner_jut); % middle ditto
+pickup tiny.nib; filldraw stroke z21e--z22e; % right stem
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround.5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x21; % bar will overlap upper right serif
+ sloped_serif.l(21,22,g,1/3,jut,min(oo,serif_drop)); % upper right serif
+ dish_serif(22,21,h,1/3,inner_jut,i,1/3,jut); % lower right serif
+else: rt x4=hround(.5w+2.8u); fi
+pickup crisp.nib;
+if hefty: pos3'(bar,90); x3'-x1=x4-x11; y3'=y3;
+ pos4'(bar,90); x4'=x11; y4'=y4;
+ filldraw stroke z3e--z3'e; filldraw stroke z4'e--z4e; % bars
+else: filldraw stroke z3e--z4e; fi % bar
+penlabels(1,2,3,4,11,12,21,22,23,24); endchar;
+
+cmchar "The ligature ffl";
+beginchar(oct"017",15u#+4letter_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); lft x11l=hround(.5w-.5stem');
+pos21(stem',0); rt x21r=hround(w-2.5u+.5stem');
+pos22(stem',0); x21=x22; bot y22=0; top y21=h;
+filldraw stroke z21e--z22e; % right stem
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround .8[stem,flare];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ pos12(bulb_diam,0); x12r=x21r-stem_corr;
+ y2+.5bulb_diam=.85[x_height,h+oo]; y12+.5bulb_diam=.9[x_height,h+oo];
+ sloped_serif.l(21,22,g,1/3,eps,max(serif_drop,oo)); % erase excess at top
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.75u;
+ pos12(5/7[vair,flare],90); y12=y2; rt x12=hround(.5w+2.8u); fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,inner_jut); % middle ditto
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround.5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: dish_serif(22,21,h,1/3,inner_jut,i,1/3,jut); % lower right serif
+ pickup crisp.nib; x4=x21;
+else: rt x4=hround(.5w+2.8u); fi
+if hefty: pos3'(bar,90); x3'-x1=x4-x11; y3'=y3;
+ pos4'(bar,90); x4'=x11; y4'=y4;
+ filldraw stroke z3e--z3'e; filldraw stroke z4'e--z4e; % bars
+else: filldraw stroke z3e--z4e; fi % bar
+penlabels(1,2,3,4,11,12,21,22); endchar;
diff --git a/fonts/gothic/oldlatin/oromligs.mf b/fonts/gothic/oldlatin/oromligs.mf
new file mode 100644
index 0000000000..10c95c0864
--- /dev/null
+++ b/fonts/gothic/oldlatin/oromligs.mf
@@ -0,0 +1,773 @@
+% Old Latin ligatures part 2 oromligs.mf (part 1 is oromlig.mf)
+% This file describes five roman ligatures
+% that begin with ``langes Es'' or end with ``t''
+% and puts them in code positions \0213--.
+
+% This file should be read just after ``oromlig.mf'',
+% because the next two lines are in oromlig.mf:
+% > numeric itc#; % modified italic correction on `f' and `ff'
+% > itc#=if serifs: max(0,flare#-.25u#) else: 1.25u# fi;
+
+ligtable "s": "i"=:oct"214", "f"=:oct"213", "l"=:oct"215",
+ "s"=:oct"253", ":"=:oct"363", "t"=:oct"334",
+ "'" kern itc#, "?" kern itc#, "!" kern itc#, ")" kern itc#, "]" kern itc#;
+ligtable oct"213": "i"=:oct"216", "l"=:oct"217",
+% "t"=:oct"336", % ligature of sft, which should not be used in old text
+ "'" kern itc#, "?" kern itc#, "!" kern itc#, ")" kern itc#, "]" kern itc#;
+ligtable oct"253": "i"=:oct"256", "l"=:oct"257", "t"=:oct"376",
+ "'" kern itc#, "?" kern itc#, "!" kern itc#, ")" kern itc#, "]" kern itc#;
+
+% Combinations "langes Es" and "f"
+
+cmchar "The ligature langes sf";
+beginchar(oct"213",10.5u#+2letter_fit#,asc_height#,0);
+italcorr asc_height#*slant+if serifs:flare#-.25u# else: 1.25u# fi;
+adjust_fit(0,0);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); rt x11r=hround(w-3u+.5stem');
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround .8[stem,flare];
+ pos2(bulb_diam,0); pos12(bulb_diam,0);
+ rt x2r=hround(rt x11r-stem_corr); lft x12l=hround(w-.75u+.5);
+ y2+.5bulb_diam=.85[x_height,h+oo]; y12+.5bulb_diam=.9[x_height,h+oo];
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 6.25u;
+ pos12(5/7[vair,flare],90); y12=y2; rt x12=hround(w+.75u); fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,1.25jut); % right stem, arc, terminal, serif
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1;
+pos3(bar,90); pos4(bar,90);
+rt x4=hround(w-1/3u);
+pos3'(bar,90); x3'=x1; y3'=y3;
+pos4'(bar,90); x4'-x11=x3-x1; y4'=y4;
+filldraw stroke z3e--z3'e; filldraw stroke z4'e--z4e; % bars
+penlabels(1,2,3,4,11,12); endchar;
+
+cmchar "The ligature langes si";
+beginchar(oct"214",10u#+2letter_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5if serifs:stem# else:dot_size# fi-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); rt x11r=hround(w-2.5u+.5stem');
+pos12(stem',0); x11=x12; bot y12=0;
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size];
+ pos2(bulb_diam,0); x2r=x12r;
+ y2+.5bulb_diam=.8[x_height,h+oo]; top y11=x_height+min(oo,serif_drop);
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: bulb_diam=max(stem,dot_size);
+ pos2(6/7[vair,flare],90); top y2r=h; rt x2=hround 5.3u;
+ pickup tiny.nib; pos13(bulb_diam,0); pos14(bulb_diam,90);
+ x13=x11-.5; top y14r=min(2x_height,h+1); top y11=x_height;
+ if bot y14l-x_height<tiny: y14l:=min(y14r-eps,y11+2tiny); fi
+ x13=x14; y13=.5[y14l,y14r]; dot(13,14); % dot
+fi; % this is the ligature we're drawing
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+pickup tiny.nib; filldraw stroke z11e--z12e; % right stem
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x1;
+ sloped_serif.l(11,12,d,1/3,jut,min(oo,serif_drop)); % upper right serif
+ dish_serif(12,11,e,1/3,inner_jut,f,1/3,jut); % lower right serif
+else: rt x4=x1; fi
+pickup crisp.nib; filldraw stroke z3e--z4e; % bar
+penlabels(1,2,3,4,11,12,13,14); endchar;
+
+cmchar "The ligature langes sl";
+beginchar(oct"215",10u#+2letter_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); rt x11r=hround(w-2.5u+.5stem');
+pos12(stem',0); x11=x12; bot y12=0; top y11=h;
+filldraw stroke z11e--z12e; % right stem
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround .8[stem,flare];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ y2+.5bulb_diam=.9[x_height,h+oo];
+ sloped_serif.l(11,12,d,1/3,eps,max(serif_drop,oo)); % erase excess at top
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.3u; fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x1;
+ dish_serif(12,11,e,1/3,inner_jut,f,1/3,jut); % lower right serif
+else: rt x4=x1; fi
+pickup crisp.nib; filldraw stroke z3e--z4e; % bar
+penlabels(1,2,3,4,11,12); endchar;
+
+cmchar "The ligature langes sfi";
+beginchar(oct"216",15u#+4letter_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5if serifs:stem# else:dot_size# fi-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); lft x11l=hround(.5w-.5stem');
+pos21(stem',0); rt x21r=hround(w-2.5u+.5stem');
+pos22(stem',0); x21=x22; bot y22=0;
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ pos12(bulb_diam,0); x12r=x21r;
+ top y21=x_height+min(oo,serif_drop);
+ y2+.5bulb_diam=.8[x_height,h+oo]; y12=y2;
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: bulb_diam=max(stem,dot_size);
+ pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.75u;
+ pos12(6/7[vair,flare],90); y12=y2; rt x12=hround(.5w+2.8u);
+ pickup tiny.nib; pos23(bulb_diam,0); pos24(bulb_diam,90);
+ x23=x21-.5; top y24r=min(10/7x_height+.5bulb_diam,h)+1; top y21=x_height;
+ if bot y24l-x_height<tiny: y24l:=min(y24r-eps,y21+2tiny); fi
+ x23=x24; y23=.5[y24l,y24r]; dot(23,24); fi % dot
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,inner_jut); % middle ditto
+pickup tiny.nib; filldraw stroke z21e--z22e; % right stem
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround.5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x21; % bar will overlap upper right serif
+ sloped_serif.l(21,22,g,1/3,jut,min(oo,serif_drop)); % upper right serif
+ dish_serif(22,21,h,1/3,inner_jut,i,1/3,jut); % lower right serif
+else: rt x4=hround(.5w+2.8u); fi
+pickup crisp.nib;
+pos3'(bar,90); x3'=x1; y3'=y3;
+pos4'(bar,90); x4'-x11=x3-x1; y4'=y4;
+filldraw stroke z3e--z3'e; filldraw stroke z4'e--z4e; % bars
+penlabels(1,2,3,4,11,12,21,22,23,24); endchar;
+
+cmchar "The ligature langes sfl";
+beginchar(oct"217",15u#+4letter_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); lft x11l=hround(.5w-.5stem');
+pos21(stem',0); rt x21r=hround(w-2.5u+.5stem');
+pos22(stem',0); x21=x22; bot y22=0; top y21=h;
+filldraw stroke z21e--z22e; % right stem
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround .8[stem,flare];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ pos12(bulb_diam,0); x12r=x21r-stem_corr;
+ y2+.5bulb_diam=.85[x_height,h+oo]; y12+.5bulb_diam=.9[x_height,h+oo];
+ sloped_serif.l(21,22,g,1/3,eps,max(serif_drop,oo)); % erase excess at top
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.75u;
+ pos12(5/7[vair,flare],90); y12=y2; rt x12=hround(.5w+2.8u); fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,inner_jut); % middle ditto
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround.5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: dish_serif(22,21,h,1/3,inner_jut,i,1/3,jut); % lower right serif
+ pickup crisp.nib; x4=x21;
+else: rt x4=hround(.5w+2.8u); fi
+pos3'(bar,90); x3'=x1; y3'=y3;
+pos4'(bar,90); x4'-x11=x3-x1; y4'=y4;
+filldraw stroke z3e--z3'e; filldraw stroke z4'e--z4e; % bars
+penlabels(1,2,3,4,11,12,21,22); endchar;
+
+% Combinations "f" and "langes Es"
+
+cmchar "The ligature langes fs";
+beginchar(oct"233",10.5u#+2letter_fit#,asc_height#,0);
+italcorr asc_height#*slant+if serifs:flare#-.25u# else: 1.25u# fi;
+adjust_fit(0,0);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); rt x11r=hround(w-3u+.5stem');
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround .8[stem,flare];
+ pos2(bulb_diam,0); pos12(bulb_diam,0);
+ rt x2r=hround(rt x11r-stem_corr); lft x12l=hround(w-.75u+.5);
+ y2+.5bulb_diam=.85[x_height,h+oo]; y12+.5bulb_diam=.9[x_height,h+oo];
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 6.25u;
+ pos12(5/7[vair,flare],90); y12=y2; rt x12=hround(w+.75u); fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,1.25jut); % right stem, arc, terminal, serif
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1;
+pos3(bar,90); pos4(bar,90);
+rt x4=hround(w-1/3u);
+pos4'(bar,90); x4'=x11; y4'=y4;
+filldraw stroke z3e--z4'e; % bar
+penlabels(1,2,3,4,11,12); endchar;
+
+cmchar "The ligature langes fsi";
+beginchar(oct"236",15u#+4letter_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5if serifs:stem# else:dot_size# fi-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); lft x11l=hround(.5w-.5stem');
+pos21(stem',0); rt x21r=hround(w-2.5u+.5stem');
+pos22(stem',0); x21=x22; bot y22=0;
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ pos12(bulb_diam,0); x12r=x21r;
+ top y21=x_height+min(oo,serif_drop);
+ y2+.5bulb_diam=.8[x_height,h+oo]; y12=y2;
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: bulb_diam=max(stem,dot_size);
+ pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.75u;
+ pos12(6/7[vair,flare],90); y12=y2; rt x12=hround(.5w+2.8u);
+ pickup tiny.nib; pos23(bulb_diam,0); pos24(bulb_diam,90);
+ x23=x21-.5; top y24r=min(10/7x_height+.5bulb_diam,h)+1; top y21=x_height;
+ if bot y24l-x_height<tiny: y24l:=min(y24r-eps,y21+2tiny); fi
+ x23=x24; y23=.5[y24l,y24r]; dot(23,24); fi % dot
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,inner_jut); % middle ditto
+pickup tiny.nib; filldraw stroke z21e--z22e; % right stem
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround.5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x21; % bar will overlap upper right serif
+ sloped_serif.l(21,22,g,1/3,jut,min(oo,serif_drop)); % upper right serif
+ dish_serif(22,21,h,1/3,inner_jut,i,1/3,jut); % lower right serif
+else: rt x4=hround(.5w+2.8u); fi
+pickup crisp.nib;
+pos4'(bar,90); x4'=x11; y4'=y4;
+filldraw stroke z3e--z4'e; % bar
+penlabels(1,2,3,4,11,12,21,22,23,24); endchar;
+
+cmchar "The ligature langes fsl";
+beginchar(oct"237",15u#+4letter_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); lft x11l=hround(.5w-.5stem');
+pos21(stem',0); rt x21r=hround(w-2.5u+.5stem');
+pos22(stem',0); x21=x22; bot y22=0; top y21=h;
+filldraw stroke z21e--z22e; % right stem
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround .8[stem,flare];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ pos12(bulb_diam,0); x12r=x21r-stem_corr;
+ y2+.5bulb_diam=.85[x_height,h+oo]; y12+.5bulb_diam=.9[x_height,h+oo];
+ sloped_serif.l(21,22,g,1/3,eps,max(serif_drop,oo)); % erase excess at top
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.75u;
+ pos12(5/7[vair,flare],90); y12=y2; rt x12=hround(.5w+2.8u); fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,inner_jut); % middle ditto
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround.5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: dish_serif(22,21,h,1/3,inner_jut,i,1/3,jut); % lower right serif
+ pickup crisp.nib; x4=x21;
+else: rt x4=hround(.5w+2.8u); fi
+pos4'(bar,90); x4'=x11; y4'=y4;
+filldraw stroke z3e--z4'e; % bar
+penlabels(1,2,3,4,11,12,21,22); endchar;
+
+% Combinations "langes Es" and "langes Es"
+
+cmchar "The ligature lange ss";
+beginchar(oct"253",10.5u#+2letter_fit#,asc_height#,0);
+italcorr asc_height#*slant+if serifs:flare#-.25u# else: 1.25u# fi;
+adjust_fit(0,0);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); rt x11r=hround(w-3u+.5stem');
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround .8[stem,flare];
+ pos2(bulb_diam,0); pos12(bulb_diam,0);
+ rt x2r=hround(rt x11r-stem_corr); lft x12l=hround(w-.75u+.5);
+ y2+.5bulb_diam=.85[x_height,h+oo]; y12+.5bulb_diam=.9[x_height,h+oo];
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 6.25u;
+ pos12(5/7[vair,flare],90); y12=y2; rt x12=hround(w+.75u); fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,1.25jut); % right stem, arc, terminal, serif
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1;
+pos3(bar,90); pos4(bar,90);
+rt x4=x11;
+pos3'(bar,90); x3'=x1; y3'=y3;
+pos4'(bar,90); x4'-x11=x3-x1; y4'=y4;
+filldraw stroke z3e--z3'e; filldraw stroke z4'e--z4e; % bars
+penlabels(1,2,3,4,11,12); endchar;
+
+cmchar "The ligature lange ssi";
+beginchar(oct"256",15u#+4letter_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5if serifs:stem# else:dot_size# fi-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); lft x11l=hround(.5w-.5stem');
+pos21(stem',0); rt x21r=hround(w-2.5u+.5stem');
+pos22(stem',0); x21=x22; bot y22=0;
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ pos12(bulb_diam,0); x12r=x21r;
+ top y21=x_height+min(oo,serif_drop);
+ y2+.5bulb_diam=.8[x_height,h+oo]; y12=y2;
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: bulb_diam=max(stem,dot_size);
+ pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.75u;
+ pos12(6/7[vair,flare],90); y12=y2; rt x12=hround(.5w+2.8u);
+ pickup tiny.nib; pos23(bulb_diam,0); pos24(bulb_diam,90);
+ x23=x21-.5; top y24r=min(10/7x_height+.5bulb_diam,h)+1; top y21=x_height;
+ if bot y24l-x_height<tiny: y24l:=min(y24r-eps,y21+2tiny); fi
+ x23=x24; y23=.5[y24l,y24r]; dot(23,24); fi % dot
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,inner_jut); % middle ditto
+pickup tiny.nib; filldraw stroke z21e--z22e; % right stem
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround.5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x11; % bar will overlap upper right serif
+ sloped_serif.l(21,22,g,1/3,jut,min(oo,serif_drop)); % upper right serif
+ dish_serif(22,21,h,1/3,inner_jut,i,1/3,jut); % lower right serif
+else: rt x4=x11; fi
+pickup crisp.nib;
+pos3'(bar,90); x3'=x1; y3'=y3;
+pos4'(bar,90); x4'-x11=x3-x1; y4'=y4;
+filldraw stroke z3e--z3'e; filldraw stroke z4'e--z4e; % bars
+penlabels(1,2,3,4,11,12,21,22,23,24); endchar;
+
+cmchar "The ligature lange ssl";
+beginchar(oct"257",15u#+4letter_fit#,asc_height#,0);
+italcorr asc_height#*slant-serif_fit#+.5stem#-2u#;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); lft x11l=hround(.5w-.5stem');
+pos21(stem',0); rt x21r=hround(w-2.5u+.5stem');
+pos22(stem',0); x21=x22; bot y22=0; top y21=h;
+filldraw stroke z21e--z22e; % right stem
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround .8[stem,flare];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ pos12(bulb_diam,0); x12r=x21r-stem_corr;
+ y2+.5bulb_diam=.85[x_height,h+oo]; y12+.5bulb_diam=.9[x_height,h+oo];
+ sloped_serif.l(21,22,g,1/3,eps,max(serif_drop,oo)); % erase excess at top
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.75u;
+ pos12(5/7[vair,flare],90); y12=y2; rt x12=hround(.5w+2.8u); fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,inner_jut); % middle ditto
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround.5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: dish_serif(22,21,h,1/3,inner_jut,i,1/3,jut); % lower right serif
+ pickup crisp.nib; x4=x11;
+else: rt x4=x11; fi
+pos3'(bar,90); x3'=x1; y3'=y3;
+pos4'(bar,90); x4'-x11=x3-x1; y4'=y4;
+filldraw stroke z3e--z3'e; filldraw stroke z4'e--z4e; % bars
+penlabels(1,2,3,4,11,12,21,22); endchar;
+
+% Combinations "f" and "t"
+
+cmchar "The ligature ft";
+beginchar(oct"314",12u#+2letter_fit#,asc_height#,0);
+italcorr x_height#*slant if serifs: -.9u# else: -.4u# fi;
+adjust_fit(0,if serifs: 0 else: -.5u# fi);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); rt x11r=hround(w-4.5u+.5stem');
+pos12(stem',0); x11=x12; bot y12=0;
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size];
+ pos2(hround(shaved_stem-stem_corr),0); x2=x12;
+ y2+.5bulb_diam=.8[x_height,h+oo]; top y11=x_height+min(oo,serif_drop);
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: bulb_diam=max(stem,dot_size);
+ pos2(6/7[vair,flare],90); top y2r=h; rt x2=hround 5.3u;
+fi; % this is the ligature we're drawing
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x11; % bar will overlap upper right serif
+else: x4=x11; fi
+pickup crisp.nib; filldraw stroke z3e--z4e; % bar
+numeric shaved_stem; shaved_stem=hround(stem if hefty:-\\2stem_corr fi);
+pickup fine.nib; pos22(shaved_stem,180);pos23(shaved_stem,180);
+x22=x23=x11;
+y22=y28; y23=max(.5bar_height,2vair);
+pickup crisp.nib; pos28(bar,90);
+rt x28=hround(w-1.3u); top y28r=x_height; x27-x22=x3-x1; y27l=y28l;
+pos27(bar,90);
+filldraw stroke z27e--z28e; % crossbar
+pickup tiny.nib; pos21(hround(shaved_stem-stem_corr),0);
+rt x21r=fine.rt x22l; top if serifs: y21=y2 else: y21=9/7x_height fi;
+penpos22'(x21r-x21l,0); x22'=x21; y22'=y22;
+filldraw stroke z21e--z22'e; % upper terminal
+pickup fine.nib; interim superness:=more_super;
+pos24(vair',-90); bot y24r=-oo; rt x25r=hround(w-u);
+if serifs: pos25(hair,0); y25=y23; x24l=.5[x23l,x25l];
+ (x,y24r)=whatever[z24l,z25l]; x24r:=max(x,.5[x23r,x24]);
+ filldraw stroke z22e..super_arc.e(23,24)...{up}z25e; % stem and hook
+ pickup crisp.nib; pos26(hair,0); pos25'(hair,0);
+ x26=x25=x25'; top y26=max(vround .75bar_height,top y25); y25=y25';
+ filldraw stroke z25'e--z26e; % terminal
+else: pos25(vair,-75); top y25l=vround .2[top y24l,bar_height];
+ x25l:=good.x x25l; x24l=1/3[x23l,x25l]; x24r:=1/3[x23r,x25r];
+ y23l:=y23l+.2vair;
+ filldraw stroke z22e..super_arc.e(23,24); % stem and hook
+ path p; p=stroke z24e{right}..tension .9 and atleast 1..z25e; % terminal
+ if (xpart(z25l-precontrol 1 of p)<0) or (xpart(z25r-postcontrol 2 of p)<0):
+ filldraw stroke z24e{right}...{up}z25e;
+ else: filldraw p; fi fi;
+penlabels(1,2,3,4,11,12,13,14,21,22,23,24,25,26,27,28); endchar;
+
+cmchar "The ligature fft";
+beginchar(oct"316",17u#+4letter_fit#,asc_height#,0);
+italcorr x_height#*slant if serifs: -.9u# else: -.4u# fi;
+adjust_fit(0,if serifs: 0 else: -.5u# fi);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); x11=7.5u;
+pos21(stem',0); rt x21r=hround(w-4.5u+.5stem');
+pos22(stem',0); x21=x22; bot y22=0;
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ pos12(hround(shaved_stem-stem_corr),0); x12=x21;
+ top y21=x_height+min(oo,serif_drop);
+ y2+.5bulb_diam=.8[x_height,h+oo]; y12=y2;
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: bulb_diam=max(stem,dot_size);
+ pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.75u;
+ pos12(6/7[vair,flare],90); y12=y2; rt x12=hround(.5w+2.8u); fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,inner_jut); % middle ditto
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround.5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x21; % bar will overlap upper right serif
+else: rt x4=hround(.5w+2.8u); fi
+pickup crisp.nib;
+if hefty: pos3'(bar,90); x3'-x1=.8(x2-x1); y3'=y3;
+ pos4'(bar,90); x4'=x11; y4'=y4;
+ filldraw stroke z3e--z3'e; filldraw stroke z4'e--z4e; % bars
+else: filldraw stroke z3e--z4e; fi % bar
+numeric shaved_stem; shaved_stem=hround(stem if hefty:-\\2stem_corr fi);
+pickup fine.nib; pos32(shaved_stem,180);pos33(shaved_stem,180);
+x32=x33=x21;
+y32=y38; y33=max(.5bar_height,2vair);
+pickup crisp.nib; pos38(bar,90);
+rt x38=hround(w-1.3u); top y38r=x_height; x37-x32=x3-x1; y37l=y38l;
+pos37(bar,90);
+filldraw stroke z37e--z38e; % crossbar
+pickup tiny.nib; pos31(hround(shaved_stem-stem_corr),0);
+rt x31r=fine.rt x32l; top if serifs: y31=y2 else: y31=9/7x_height fi;
+penpos32'(x31r-x31l,0); x32'=x31; y32'=y32;
+filldraw stroke z31e--z32'e; % upper terminal
+pickup fine.nib; interim superness:=more_super;
+pos34(vair',-90); bot y34r=-oo; rt x35r=hround(w-u);
+if serifs: pos35(hair,0); y35=y33; x34l=.5[x33l,x35l];
+ (x,y34r)=whatever[z34l,z35l]; x34r:=max(x,.5[x33r,x34]);
+ filldraw stroke z32e..super_arc.e(33,34)...{up}z35e; % stem and hook
+ pickup crisp.nib; pos36(hair,0); pos35'(hair,0);
+ x36=x35=x35'; top y36=max(vround .75bar_height,top y35); y35=y35';
+ filldraw stroke z35'e--z36e; % terminal
+else: pos35(vair,-75); top y35l=vround .2[top y34l,bar_height];
+ x35l:=good.x x35l; x34l=1/3[x33l,x35l]; x34r:=1/3[x33r,x35r];
+ y33l:=y33l+.2vair;
+ filldraw stroke z32e..super_arc.e(33,34); % stem and hook
+ path p; p=stroke z34e{right}..tension .9 and atleast 1..z35e; % terminal
+ if (xpart(z35l-precontrol 1 of p)<0) or (xpart(z35r-postcontrol 2 of p)<0):
+ filldraw stroke z34e{right}...{up}z35e;
+ else: filldraw p; fi fi;
+penlabels(1,2,3,4,11,12,21,22,23,24,31,32,33,34,35,36,37,38); endchar;
+
+% Combinations "langes Es" and ("t" or "ft")
+
+cmchar "The ligature langes st";
+beginchar(oct"334",12u#+2letter_fit#,asc_height#,0);
+italcorr x_height#*slant if serifs: -.9u# else: -.4u# fi;
+adjust_fit(0,if serifs: 0 else: -.5u# fi);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); rt x11r=hround(w-4.5u+.5stem');
+pos12(stem',0); x11=x12; bot y12=0;
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size];
+ pos2(hround(shaved_stem-stem_corr),0); x2=x12;
+ y2+.5bulb_diam=.8[x_height,h+oo]; top y11=x_height+min(oo,serif_drop);
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: bulb_diam=max(stem,dot_size);
+ pos2(6/7[vair,flare],90); top y2r=h; rt x2=hround 5.3u;
+fi; % this is the ligature we're drawing
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x1; % bar will overlap upper right serif
+else: x4=x1; fi
+pickup crisp.nib; filldraw stroke z3e--z4e; % bar
+numeric shaved_stem; shaved_stem=hround(stem if hefty:-\\2stem_corr fi);
+pickup fine.nib; pos22(shaved_stem,180);pos23(shaved_stem,180);
+x22=x23=x11;
+y22=y28; y23=max(.5bar_height,2vair);
+pickup crisp.nib; pos28(bar,90);
+rt x28=hround(w-1.3u); top y28r=x_height; x27-x22=x3-x1; y27l=y28l;
+pos27(bar,90);
+filldraw stroke z27e--z28e; % crossbar
+pickup tiny.nib; pos21(hround(shaved_stem-stem_corr),0);
+rt x21r=fine.rt x22l; top if serifs: y21=y2 else: y21=9/7x_height fi;
+penpos22'(x21r-x21l,0); x22'=x21; y22'=y22;
+filldraw stroke z21e--z22'e; % upper terminal
+pickup fine.nib; interim superness:=more_super;
+pos24(vair',-90); bot y24r=-oo; rt x25r=hround(w-u);
+if serifs: pos25(hair,0); y25=y23; x24l=.5[x23l,x25l];
+ (x,y24r)=whatever[z24l,z25l]; x24r:=max(x,.5[x23r,x24]);
+ filldraw stroke z22e..super_arc.e(23,24)...{up}z25e; % stem and hook
+ pickup crisp.nib; pos26(hair,0); pos25'(hair,0);
+ x26=x25=x25'; top y26=max(vround .75bar_height,top y25); y25=y25';
+ filldraw stroke z25'e--z26e; % terminal
+else: pos25(vair,-75); top y25l=vround .2[top y24l,bar_height];
+ x25l:=good.x x25l; x24l=1/3[x23l,x25l]; x24r:=1/3[x23r,x25r];
+ y23l:=y23l+.2vair;
+ filldraw stroke z22e..super_arc.e(23,24); % stem and hook
+ path p; p=stroke z24e{right}..tension .9 and atleast 1..z25e; % terminal
+ if (xpart(z25l-precontrol 1 of p)<0) or (xpart(z25r-postcontrol 2 of p)<0):
+ filldraw stroke z24e{right}...{up}z25e;
+ else: filldraw p; fi fi;
+penlabels(1,2,3,4,11,12,13,14,21,22,23,24,25,26,27,28); endchar;
+
+cmchar "The ligature langes sft";
+beginchar(oct"336",17u#+4letter_fit#,asc_height#,0);
+italcorr x_height#*slant if serifs: -.9u# else: -.4u# fi;
+adjust_fit(0,if serifs: 0 else: -.5u# fi);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); x11=7.5u;
+pos21(stem',0); rt x21r=hround(w-4.5u+.5stem');
+pos22(stem',0); x21=x22; bot y22=0;
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ pos12(hround(shaved_stem-stem_corr),0); x12=x21;
+ top y21=x_height+min(oo,serif_drop);
+ y2+.5bulb_diam=.8[x_height,h+oo]; y12=y2;
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: bulb_diam=max(stem,dot_size);
+ pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.75u;
+ pos12(6/7[vair,flare],90); y12=y2; rt x12=hround(.5w+2.8u); fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,inner_jut); % middle ditto
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround.5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x21; % bar will overlap upper right serif
+else: rt x4=hround(.5w+2.8u); fi
+pickup crisp.nib;
+pos3'(bar,90); x3'=x1; y3'=y3;
+pos4'(bar,90); x4'-x11=x3-x1; y4'=y4;
+filldraw stroke z3e--z3'e; filldraw stroke z4'e--z4e; % bars
+numeric shaved_stem; shaved_stem=hround(stem if hefty:-\\2stem_corr fi);
+pickup fine.nib; pos32(shaved_stem,180);pos33(shaved_stem,180);
+x32=x33=x21;
+y32=y38; y33=max(.5bar_height,2vair);
+pickup crisp.nib; pos38(bar,90);
+rt x38=hround(w-1.3u); top y38r=x_height; x37-x32=x3-x1; y37l=y38l;
+pos37(bar,90);
+filldraw stroke z37e--z38e; % crossbar
+pickup tiny.nib; pos31(hround(shaved_stem-stem_corr),0);
+rt x31r=fine.rt x32l; top if serifs: y31=y2 else: y31=9/7x_height fi;
+penpos32'(x31r-x31l,0); x32'=x31; y32'=y32;
+filldraw stroke z31e--z32'e; % upper terminal
+pickup fine.nib; interim superness:=more_super;
+pos34(vair',-90); bot y34r=-oo; rt x35r=hround(w-u);
+if serifs: pos35(hair,0); y35=y33; x34l=.5[x33l,x35l];
+ (x,y34r)=whatever[z34l,z35l]; x34r:=max(x,.5[x33r,x34]);
+ filldraw stroke z32e..super_arc.e(33,34)...{up}z35e; % stem and hook
+ pickup crisp.nib; pos36(hair,0); pos35'(hair,0);
+ x36=x35=x35'; top y36=max(vround .75bar_height,top y35); y35=y35';
+ filldraw stroke z35'e--z36e; % terminal
+else: pos35(vair,-75); top y35l=vround .2[top y34l,bar_height];
+ x35l:=good.x x35l; x34l=1/3[x33l,x35l]; x34r:=1/3[x33r,x35r];
+ y33l:=y33l+.2vair;
+ filldraw stroke z32e..super_arc.e(33,34); % stem and hook
+ path p; p=stroke z34e{right}..tension .9 and atleast 1..z35e; % terminal
+ if (xpart(z35l-precontrol 1 of p)<0) or (xpart(z35r-postcontrol 2 of p)<0):
+ filldraw stroke z34e{right}...{up}z35e;
+ else: filldraw p; fi fi;
+penlabels(1,2,3,4,11,12,21,22,23,24,31,32,33,34,35,36,37,38); endchar;
+
+% Variations "fft"
+
+cmchar "The ligature langes fst";
+beginchar(oct"356",17u#+4letter_fit#,asc_height#,0);
+italcorr x_height#*slant if serifs: -.9u# else: -.4u# fi;
+adjust_fit(0,if serifs: 0 else: -.5u# fi);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); x11=7.5u;
+pos21(stem',0); rt x21r=hround(w-4.5u+.5stem');
+pos22(stem',0); x21=x22; bot y22=0;
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ pos12(hround(shaved_stem-stem_corr),0); x12=x21;
+ top y21=x_height+min(oo,serif_drop);
+ y2+.5bulb_diam=.8[x_height,h+oo]; y12=y2;
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: bulb_diam=max(stem,dot_size);
+ pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.75u;
+ pos12(6/7[vair,flare],90); y12=y2; rt x12=hround(.5w+2.8u); fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,inner_jut); % middle ditto
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround.5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x21; % bar will overlap upper right serif
+else: rt x4=hround(.5w+2.8u); fi
+pickup crisp.nib;
+pos4'(bar,90); x4'=x11; y4'=y4;
+filldraw stroke z3e--z4'e; % bar
+numeric shaved_stem; shaved_stem=hround(stem if hefty:-\\2stem_corr fi);
+pickup fine.nib; pos32(shaved_stem,180);pos33(shaved_stem,180);
+x32=x33=x21;
+y32=y38; y33=max(.5bar_height,2vair);
+pickup crisp.nib; pos38(bar,90);
+rt x38=hround(w-1.3u); top y38r=x_height; x37-x32=x3-x1; y37l=y38l;
+pos37(bar,90);
+filldraw stroke z37e--z38e; % crossbar
+pickup tiny.nib; pos31(hround(shaved_stem-stem_corr),0);
+rt x31r=fine.rt x32l; top if serifs: y31=y2 else: y31=9/7x_height fi;
+penpos32'(x31r-x31l,0); x32'=x31; y32'=y32;
+filldraw stroke z31e--z32'e; % upper terminal
+pickup fine.nib; interim superness:=more_super;
+pos34(vair',-90); bot y34r=-oo; rt x35r=hround(w-u);
+if serifs: pos35(hair,0); y35=y33; x34l=.5[x33l,x35l];
+ (x,y34r)=whatever[z34l,z35l]; x34r:=max(x,.5[x33r,x34]);
+ filldraw stroke z32e..super_arc.e(33,34)...{up}z35e; % stem and hook
+ pickup crisp.nib; pos36(hair,0); pos35'(hair,0);
+ x36=x35=x35'; top y36=max(vround .75bar_height,top y35); y35=y35';
+ filldraw stroke z35'e--z36e; % terminal
+else: pos35(vair,-75); top y35l=vround .2[top y34l,bar_height];
+ x35l:=good.x x35l; x34l=1/3[x33l,x35l]; x34r:=1/3[x33r,x35r];
+ y33l:=y33l+.2vair;
+ filldraw stroke z32e..super_arc.e(33,34); % stem and hook
+ path p; p=stroke z34e{right}..tension .9 and atleast 1..z35e; % terminal
+ if (xpart(z35l-precontrol 1 of p)<0) or (xpart(z35r-postcontrol 2 of p)<0):
+ filldraw stroke z34e{right}...{up}z35e;
+ else: filldraw p; fi fi;
+penlabels(1,2,3,4,11,12,21,22,23,24,31,32,33,34,35,36,37,38); endchar;
+
+cmchar "The ligature lange sst";
+beginchar(oct"376",17u#+4letter_fit#,asc_height#,0);
+italcorr x_height#*slant if serifs: -.9u# else: -.4u# fi;
+adjust_fit(0,if serifs: 0 else: -.5u# fi);
+pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem');
+pos11(stem',0); x11=7.5u;
+pos21(stem',0); rt x21r=hround(w-4.5u+.5stem');
+pos22(stem',0); x21=x22; bot y22=0;
+pickup fine.nib; numeric bulb_diam, inner_jut;
+if serifs: bulb_diam=hround 1/4[.8[stem,flare],dot_size];
+ pos2(bulb_diam,0); x2r=x11r-stem_corr;
+ pos12(hround(shaved_stem-stem_corr),0); x12=x21;
+ top y21=x_height+min(oo,serif_drop);
+ y2+.5bulb_diam=.8[x_height,h+oo]; y12=y2;
+ if rt x1r+jut+.5u+2<=lft x11l-jut: inner_jut=jut;
+ else: rt x1r+inner_jut+.5u+2=lft x11l-inner_jut; fi
+else: bulb_diam=max(stem,dot_size);
+ pos2(5/7[vair,flare],90); top y2r=h; rt x2=hround 5.75u;
+ pos12(6/7[vair,flare],90); y12=y2; rt x12=hround(.5w+2.8u); fi
+f_stroke(1,2,a,b,c,jut,inner_jut); % left stem, arc, terminal, serif
+f_stroke(11,12,d,e,f,inner_jut,inner_jut); % middle ditto
+pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround.5u-1;
+pos3(bar,90); pos4(bar,90);
+if serifs: x4=x11; % bar will overlap upper right serif
+else: rt x4=x11; fi
+pickup crisp.nib;
+pos3'(bar,90); x3'=x1; y3'=y3;
+pos4'(bar,90); x4'-x11=x3-x1; y4'=y4;
+filldraw stroke z3e--z3'e; filldraw stroke z4'e--z4e; % bars
+numeric shaved_stem; shaved_stem=hround(stem if hefty:-\\2stem_corr fi);
+pickup fine.nib; pos32(shaved_stem,180);pos33(shaved_stem,180);
+x32=x33=x21;
+y32=y38; y33=max(.5bar_height,2vair);
+pickup crisp.nib; pos38(bar,90);
+rt x38=hround(w-1.3u); top y38r=x_height; x37-x32=x3-x1; y37l=y38l;
+pos37(bar,90);
+filldraw stroke z37e--z38e; % crossbar
+pickup tiny.nib; pos31(hround(shaved_stem-stem_corr),0);
+rt x31r=fine.rt x32l; top if serifs: y31=y2 else: y31=9/7x_height fi;
+penpos32'(x31r-x31l,0); x32'=x31; y32'=y32;
+filldraw stroke z31e--z32'e; % upper terminal
+pickup fine.nib; interim superness:=more_super;
+pos34(vair',-90); bot y34r=-oo; rt x35r=hround(w-u);
+if serifs: pos35(hair,0); y35=y33; x34l=.5[x33l,x35l];
+ (x,y34r)=whatever[z34l,z35l]; x34r:=max(x,.5[x33r,x34]);
+ filldraw stroke z32e..super_arc.e(33,34)...{up}z35e; % stem and hook
+ pickup crisp.nib; pos36(hair,0); pos35'(hair,0);
+ x36=x35=x35'; top y36=max(vround .75bar_height,top y35); y35=y35';
+ filldraw stroke z35'e--z36e; % terminal
+else: pos35(vair,-75); top y35l=vround .2[top y34l,bar_height];
+ x35l:=good.x x35l; x34l=1/3[x33l,x35l]; x34r:=1/3[x33r,x35r];
+ y33l:=y33l+.2vair;
+ filldraw stroke z32e..super_arc.e(33,34); % stem and hook
+ path p; p=stroke z34e{right}..tension .9 and atleast 1..z35e; % terminal
+ if (xpart(z35l-precontrol 1 of p)<0) or (xpart(z35r-postcontrol 2 of p)<0):
+ filldraw stroke z34e{right}...{up}z35e;
+ else: filldraw p; fi fi;
+penlabels(1,2,3,4,11,12,21,22,23,24,31,32,33,34,35,36,37,38); endchar;
+
+cmchar "The ligature ct";
+beginchar(oct"343",15u#+max(u#,.5stem#),asc_height#,0);
+italcorr x_height#*slant if serifs: -.9u# else: -.4u# fi;
+adjust_fit(0,if serifs: 0 else: -.5u# fi);
+numeric shaved_stem; shaved_stem=hround(stem if hefty:-\\2stem_corr fi);
+pickup fine.nib; pos2(vair',90); pos4(vair',270);
+x2=x4=.5(8u+u); top y2r=vround(x_height+1.5oo); bot y4r=-oo;
+pos3(curve,180); lft x3r=hround max(.6u,1.35u-.5curve); y3=.5x_height;
+if serifs: pos1(hair,0); pos0(flare,0);
+ y1=min(bar_height+.5flare+2vair'+2,.9[bar_height,x_height]-.5flare);
+ rt x1r=hround(8u-.7u); bulb(2,1,0); % bulb
+ pos5(hair,0); rt x5r=hround(8u-.5u);
+ y5=max(good.y(.5bar_height-.9),y4l+vair');
+ (x,y4l)=whatever[z4r,z5l]; x4l:=min(x,x4l+.5u);
+ filldraw stroke pulled_super_arc.e(2,3)(.7superpull)
+ & pulled_super_arc.e(3,4)(.5superpull)
+ ..tension .9 and 1..{x5-x4,5(y5-y4)}z5e; % arc and lower terminal
+else: pos1(4/7[vair',flare],80);
+ rt x1r=hround(8u-.6u); top y1r=vround .82[bar_height,top y2r];
+ filldraw stroke term.e(2,1,right,.8,4); % upper terminal
+ pos5(.6[vair',flare],275); rt x5r=hround(8u-.5u);
+ y5r=good.y(y5r+1/3bar_height-y5); y5l:=good.y y5l; x5l:=good.x x5l;
+ forsuffixes e=l,r: path p.e; p.e=z4e{right}..tension .9 and 1..z5e;
+ if angle direction 1 of p.e>75:
+ p.e:=z4e{right}..tension atleast.9 and 1..{dir 75}z5e; fi endfor
+ filldraw stroke pulled_super_arc.e(2,3)(.7superpull)
+ & pulled_super_arc.e(3,4)(.5superpull) & p.e; fi % arc and lower terminal
+pickup fine.nib; pos22(shaved_stem,180);pos23(shaved_stem,180);
+lft x22r=lft x23r=hround(9u+2.5u-.5shaved_stem);
+y22=y28; y23=max(.5bar_height,2vair);
+pickup crisp.nib; pos28(bar,90);
+rt x28=hround(w-1.3u); top y28r=x_height; lft x27=hround 9u+1/3u; y27l=y28l;
+if hefty: pos27(bar,90);
+ filldraw stroke z27e--z28e; % crossbar
+ pickup tiny.nib; pos21(hround(shaved_stem-stem_corr),0);
+ rt x21r=fine.rt x22l; top y21=9/7x_height;
+ penpos22'(x21r-x21l,0); x22'=x21; y22'=y22;
+ filldraw stroke z21e--z22'e; % upper terminal
+else: pos27(vair,90); pos21(hair,0);
+ rt x21r=fine.rt x22l; top y21=10/7x_height;
+ filldraw z21l{down}...{left}z27r--z27l--z28l
+ --z28r--(x21r,y28r)--z21r--cycle; fi % upper terminal and crossbar
+pickup fine.nib; interim superness:=more_super;
+pos24(vair',-90); bot y24r=-oo; rt x25r=hround(w-u);
+if serifs: pos25(hair,0); y25=y23; x24l=.5[x23l,x25l];
+ filldraw stroke z22e..super_arc.e(23,24)...{up}z25e; % stem and hool
+ pickup crisp.nib; pos26(hair,0); pos25'(hair,0);
+ x26=x25=x25'; top y26=max(vround .75bar_height,top y25); y25=y25';
+ filldraw stroke z25'e--z26e; % terminal
+else: pos25(vair,-75); top y25l=vround .2[top y24l,bar_height];
+ x25l:=good.x x25l; x24l=1/3[x23l,x25l]; x24r:=1/3[x23r,x25r]; y23l:=y23l+.2vair;
+ filldraw stroke z22e..super_arc.e(23,24); % stem and hook
+ path p; p=stroke z24e{right}..tension .9 and atleast 1..z25e; % terminal
+ if (xpart(z25l-precontrol 1 of p)<0) or (xpart(z25r-postcontrol 2 of p)<0):
+ filldraw stroke z24e{right}...{up}z25e;
+ else: filldraw p; fi fi;
+pickup tiny.nib;
+if hefty:
+ pos31(4/7[vair',flare],80); x31=x1; y31=y1;
+ pos32(hair,-90); x32=8.5u; y32=h;
+ pos33(hround(shaved_stem-stem_corr),-180); x33=x21; y33=y21;
+else:
+ pos31(2hair,0); x31l=x0l+.5fine; y31=y0;
+ pos32(hair,-90); x32=8.5u; y32=h;
+ pos33(hair,-180); x33=x21; y33=y21; fi;
+filldraw stroke z31e..z32e..{down}z33e;
+penlabels(0,1,2,3,4,5,21,22,23,24,25,26,27,28,31,32,33); endchar;
diff --git a/fonts/gothic/oldlatin/test_alphabet.tex b/fonts/gothic/oldlatin/test_alphabet.tex
new file mode 100644
index 0000000000..fa7aa5e49f
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_alphabet.tex
@@ -0,0 +1,5 @@
+Forstwissenschaft Waldinspector\\
+sf si sl sfi sfl fs fsi fsl ss ssi ssl
+ft fft st sft fst sst ct s:
+ff fi fl ffi ffl\\
+the quick red fox jumped over the slazy brown dogs:
diff --git a/fonts/gothic/oldlatin/test_ol_all.pdf b/fonts/gothic/oldlatin/test_ol_all.pdf
new file mode 100644
index 0000000000..436961d5a0
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_ol_all.pdf
Binary files differ
diff --git a/fonts/gothic/oldlatin/test_ol_all.tex b/fonts/gothic/oldlatin/test_ol_all.tex
new file mode 100644
index 0000000000..2ac123be3b
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_ol_all.tex
@@ -0,0 +1,59 @@
+\documentclass[10pt,a4paper]{article}
+\font\olb=olb10 scaled 1000
+\font\olbx=olbx10 scaled 1000
+\font\olbxs=olbxsl10 scaled 1000
+\font\oldunh=oldunh10 scaled 1000
+\font\olff=olff10 scaled 1000
+\font\olfib=olfib8 scaled 1200
+\font\olr=olr10 scaled 1000
+\font\olsl=olsl10 scaled 1000
+\font\olsltt=olsltt10 scaled 1000
+\font\olss=olss10 scaled 1000
+\font\olssbx=olssbx10 scaled 1000
+\font\olssdc=olssdc10 scaled 1000
+\font\olssi=olssi10 scaled 1000
+\font\olssq=olssq8 scaled 1200
+\font\olssqi=olssqi8 scaled 1200
+\font\oltt=oltt10 scaled 1000
+\font\olvtt=olvtt10 scaled 1000
+\newcommand{\Ligature}{%
+\input test_alphabet.tex
+}
+\begin{document}
+
+Computer Modern Roman:\\{\Ligature}
+
+Bold Roman:\\{\olb \Ligature}
+
+Bold Extended Roman:\\{\olbx \Ligature}
+
+Bold Extended Slanted Roman:\\{\olbxs \Ligature}
+
+Dunhil Roman:\\{\oldunh \Ligature}
+
+Funny Roman:\\{\olff \Ligature}
+
+Roman Fibonacci:\\{\olfib \Ligature}
+
+Roman:\\{\olr \Ligature}
+
+Slanted Roman:\\{\olsl \Ligature}
+
+Slanted Typewriter Text:\\{\olsltt \Ligature}
+
+Sans Serif:\\{\olss \Ligature}
+
+Sans Serif Bold Extended:\\{\olssbx \Ligature}
+
+Sans Serif Demibold Condensed:\\{\olssdc \Ligature}
+
+Slanted Sans Serif:\\{\olssi \Ligature}
+
+Sans Serif Quotation Style:\\{\olssq \Ligature}
+
+Sans Serif Quotation Style Slanted:\\{\olssqi \Ligature}
+
+Typewriter Text:\\{\oltt \Ligature}
+
+Variable-Width Typewriter Text:\\{\olvtt \Ligature}
+\end{document}
diff --git a/fonts/gothic/oldlatin/test_ol_bf.pdf b/fonts/gothic/oldlatin/test_ol_bf.pdf
new file mode 100644
index 0000000000..4127eba260
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_ol_bf.pdf
Binary files differ
diff --git a/fonts/gothic/oldlatin/test_ol_bf.tex b/fonts/gothic/oldlatin/test_ol_bf.tex
new file mode 100644
index 0000000000..f3d9ebb53e
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_ol_bf.tex
@@ -0,0 +1,36 @@
+\documentclass[10pt,a4paper]{article}
+\font\olb=olb10 scaled 1000
+\font\olbxfive=olbx5 scaled 1000
+\font\olbxsix=olbx6 scaled 1000
+\font\olbxseven=olbx7 scaled 1000
+\font\olbxeight=olbx8 scaled 1000
+\font\olbxnine=olbx9 scaled 1000
+\font\olbxten=olbx10 scaled 1000
+\font\olbxtwelve=olbx12 scaled 1000
+\font\olbxs=olbxsl10 scaled 1000
+\newcommand{\Ligature}{%
+\input test_alphabet.tex
+}
+\begin{document}
+
+Computer Modern Roman 10pt:\\{\Ligature}
+
+Bold Roman 10pt:\\{\olb \Ligature}
+
+Bold Extended Roman 5pt:\\{\olbxfive \Ligature}
+
+Bold Extended Roman 6pt:\\{\olbxsix \Ligature}
+
+Bold Extended Roman 7pt:\\{\olbxseven \Ligature}
+
+Bold Extended Roman 8pt:\\{\olbxeight \Ligature}
+
+Bold Extended Roman 9pt:\\{\olbxnine \Ligature}
+
+Bold Extended Roman 10pt:\\{\olbxten \Ligature}
+
+Bold Extended Roman 12pt:\\{\olbxtwelve \Ligature}
+
+Bold Extended Slanted Roman 10pt:\\{\olbxs \Ligature}
+
+\end{document}
diff --git a/fonts/gothic/oldlatin/test_ol_rm.pdf b/fonts/gothic/oldlatin/test_ol_rm.pdf
new file mode 100644
index 0000000000..1fb2e46b4d
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_ol_rm.pdf
Binary files differ
diff --git a/fonts/gothic/oldlatin/test_ol_rm.tex b/fonts/gothic/oldlatin/test_ol_rm.tex
new file mode 100644
index 0000000000..119b3c8782
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_ol_rm.tex
@@ -0,0 +1,42 @@
+\documentclass[10pt,a4paper]{article}
+\font\oldunh=oldunh10 scaled 1000
+\font\olfib=olfib8 scaled 1000
+\font\olrfive=olr5 scaled 1000
+\font\olrsix=olr6 scaled 1000
+\font\olrseven=olr7 scaled 1000
+\font\olreight=olr8 scaled 1000
+\font\olrnine=olr9 scaled 1000
+\font\olrten=olr10 scaled 1000
+\font\olrtens=olr10s scaled 1000
+\font\olrtwelve=olr12 scaled 1000
+\font\olrseventeen=olr17 scaled 1000
+\newcommand{\Ligature}{%
+\input test_alphabet.tex
+}
+\begin{document}
+
+Computer Modern Roman 10pt:\\{\Ligature}
+
+Dunhil Roman 10pt:\\{\oldunh \Ligature}
+
+Roman Fibonacci 8pt:\\{\olfib \Ligature}
+
+Roman 5pt:\\{\olrfive \Ligature}
+
+Roman 6pt:\\{\olrsix \Ligature}
+
+Roman 7pt:\\{\olrseven \Ligature}
+
+Roman 8pt:\\{\olreight \Ligature}
+
+Roman 9pt:\\{\olrnine \Ligature}
+
+Roman 10pt:\\{\olrten \Ligature}
+
+Roman 10pt Sperrsatz:\\{\olrtens \Ligature}
+
+Roman 12pt:\\{\olrtwelve \Ligature}
+
+Roman 17pt:\\{\olrseventeen \Ligature}
+
+\end{document}
diff --git a/fonts/gothic/oldlatin/test_ol_sl.pdf b/fonts/gothic/oldlatin/test_ol_sl.pdf
new file mode 100644
index 0000000000..b695bb6c52
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_ol_sl.pdf
Binary files differ
diff --git a/fonts/gothic/oldlatin/test_ol_sl.tex b/fonts/gothic/oldlatin/test_ol_sl.tex
new file mode 100644
index 0000000000..92b5e7e177
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_ol_sl.tex
@@ -0,0 +1,24 @@
+\documentclass[10pt,a4paper]{article}
+\font\olsleight=olsl8 scaled 1000
+\font\olslnine=olsl9 scaled 1000
+\font\olslten=olsl10 scaled 1000
+\font\olsltwelve=olsl12 scaled 1000
+\font\olsltt=olsltt10 scaled 1000
+\newcommand{\Ligature}{%
+\input test_alphabet.tex
+}
+\begin{document}
+
+Computer Modern Roman:\\{\Ligature}
+
+Slanted Roman 8pt:\\{\olsleight \Ligature}
+
+Slanted Roman 9pt:\\{\olslnine \Ligature}
+
+Slanted Roman10pt:\\{\olslten \Ligature}
+
+Slanted Roman 12pt:\\{\olsltwelve \Ligature}
+
+Slanted Typewriter Text 10pt:\\{\olsltt \Ligature}
+
+\end{document}
diff --git a/fonts/gothic/oldlatin/test_ol_ss.pdf b/fonts/gothic/oldlatin/test_ol_ss.pdf
new file mode 100644
index 0000000000..46fb075052
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_ol_ss.pdf
Binary files differ
diff --git a/fonts/gothic/oldlatin/test_ol_ss.tex b/fonts/gothic/oldlatin/test_ol_ss.tex
new file mode 100644
index 0000000000..bdc780c2c0
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_ol_ss.tex
@@ -0,0 +1,51 @@
+\documentclass[10pt,a4paper]{article}
+\font\olsseight=olss8 scaled 1000
+\font\olssnine=olss9 scaled 1000
+\font\olssten=olss10 scaled 1000
+\font\olsstwelve=olss12 scaled 1000
+\font\olssseventeen=olss17 scaled 1000
+\font\olssbx=olssbx10 scaled 1000
+\font\olssdc=olssdc10 scaled 1000
+\font\olssieight=olssi8 scaled 1000
+\font\olssinine=olssi9 scaled 1000
+\font\olssiten=olssi10 scaled 1000
+\font\olssitwelve=olssi12 scaled 1000
+\font\olssiseventeen=olssi17 scaled 1000
+\font\olssq=olssq8 scaled 1000
+\font\olssqi=olssqi8 scaled 1000
+\newcommand{\Ligature}{%
+\input test_alphabet.tex
+}
+\begin{document}
+
+Computer Modern Roman:\\{\Ligature}
+
+Sans Serif 8pt:\\{\olsseight \Ligature}
+
+Sans Serif 9pt:\\{\olssnine \Ligature}
+
+Sans Serif 10pt:\\{\olssten \Ligature}
+
+Sans Serif 12pt:\\{\olsstwelve \Ligature}
+
+Sans Serif 17pt:\\{\olssseventeen \Ligature}
+
+Sans Serif Bold Extended 10pt:\\{\olssbx \Ligature}
+
+Sans Serif Demibold Condensed 10pt:\\{\olssdc \Ligature}
+
+Slanted Sans Serif 8pt:\\{\olssieight \Ligature}
+
+Slanted Sans Serif 9pt:\\{\olssinine \Ligature}
+
+Slanted Sans Serif 10pt:\\{\olssiten \Ligature}
+
+Slanted Sans Serif 12pt:\\{\olssitwelve \Ligature}
+
+Slanted Sans Serif 17pt:\\{\olssiseventeen \Ligature}
+
+Sans Serif Quotation Style 8pt:\\{\olssq \Ligature}
+
+Sans Serif Quotation Style Slanted 8pt:\\{\olssqi \Ligature}
+
+\end{document}
diff --git a/fonts/gothic/oldlatin/test_ol_tt.pdf b/fonts/gothic/oldlatin/test_ol_tt.pdf
new file mode 100644
index 0000000000..188e31bd2a
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_ol_tt.pdf
Binary files differ
diff --git a/fonts/gothic/oldlatin/test_ol_tt.tex b/fonts/gothic/oldlatin/test_ol_tt.tex
new file mode 100644
index 0000000000..f102645fa6
--- /dev/null
+++ b/fonts/gothic/oldlatin/test_ol_tt.tex
@@ -0,0 +1,24 @@
+\documentclass[10pt,a4paper]{article}
+\font\oltteight=oltt8 scaled 1000
+\font\olttnine=oltt9 scaled 1000
+\font\olttten=oltt10 scaled 1000
+\font\oltttwelve=oltt12 scaled 1000
+\font\olvtt=olvtt10 scaled 1000
+\newcommand{\Ligature}{%
+\input test_alphabet.tex
+}
+\begin{document}
+
+Computer Modern Roman:\\{\Ligature}
+
+Typewriter Text 8pt:\\{\oltteight \Ligature}
+
+Typewriter Text 9pt:\\{\olttnine \Ligature}
+
+Typewriter Text 10pt:\\{\olttten \Ligature}
+
+Typewriter Text 12pt:\\{\oltttwelve \Ligature}
+
+Variable-Width Typewriter Text 10pt:\\{\olvtt \Ligature}
+
+\end{document}
diff --git a/fonts/gothic/ps/yfonts b/fonts/gothic/ps/yfonts
new file mode 120000
index 0000000000..7f9a8ec808
--- /dev/null
+++ b/fonts/gothic/ps/yfonts
@@ -0,0 +1 @@
+../../ps-type1/yfonts \ No newline at end of file
diff --git a/fonts/gothic/sueterlin/README b/fonts/gothic/sueterlin/README
new file mode 100644
index 0000000000..9441df6393
--- /dev/null
+++ b/fonts/gothic/sueterlin/README
@@ -0,0 +1,15 @@
+I, Berthold Ludewig, put the files
+
+suet14.mf
+schwell.mf
+su-lig.mf
+su-low.mf
+su-upp.mf
+su-spec.mf
+suet.tex
+mfall.bat
+
+In the public domain, as a gift to the Tex community. You may freely
+use, modify and distribute it.
+
+
diff --git a/fonts/gothic/sueterlin/mfall.bat b/fonts/gothic/sueterlin/mfall.bat
new file mode 100644
index 0000000000..6008858820
--- /dev/null
+++ b/fonts/gothic/sueterlin/mfall.bat
@@ -0,0 +1,12 @@
+mf \mode=lowres;mag=1.0;input suet14
+gftopk suet14.gf c:\tex\fonts\pk\300\suet14.pk
+mf \mode=lowres;mag=1.44;input suet14
+gftopk suet14.gf c:\tex\fonts\pk\432\suet14.pk
+mf \mode=lowres;mag=2.488;input suet14
+gftopk suet14.gf c:\tex\fonts\pk\746\suet14.pk
+mf \mode=lowres;mag=1.0;input schwell
+gftopk schwell.gf c:\tex\fonts\pk\300\schwell.pk
+mf \mode=lowres;mag=1.44;input schwell
+gftopk schwell.gf c:\tex\fonts\pk\432\schwell.pk
+mf \mode=lowres;mag=2.488;input schwell
+gftopk schwell.gf c:\tex\fonts\pk\746\schwell.pk
diff --git a/fonts/gothic/sueterlin/schwell.mf b/fonts/gothic/sueterlin/schwell.mf
new file mode 100644
index 0000000000..37dcba9a1c
--- /dev/null
+++ b/fonts/gothic/sueterlin/schwell.mf
@@ -0,0 +1,100 @@
+% SUET Zeichensatz in schraeggestellter Form
+%
+%
+% ---------------------
+%
+% Wuensche, Fehler und Anregungen bitte an:
+%
+% B. Ludewig, Uni Siegen, HRZ, Hoelderlinstr. 3, 5900 Siegen.
+%
+% Ludewig@hrz.uni-siegen.dbp.de
+% oder
+% GZ006@DSIHRZ51.BITNET
+%
+% plain
+
+font_identifier "SCHWELL"; font_size 14pt#;
+font_coding_scheme:="SUETTERLIN Text";
+
+mode_setup;
+boolean serifs,monospace;
+%
+xpt#:=pt#;
+monospace:=false;
+serifs:=true;
+%
+ut#:=0.5;
+ut=ut#*hppp;
+% % <-----hier kann gedreht werden
+numeric top,mid,base,bot,an_top,an_mid,an_bot,ang;
+numeric Z_anf,I_anf,o_bogen,L_o,U_bogen,g_bogen,G_bogen,z_bogen;
+numeric alpha,beta,gamma,delta,mi_alpha,mi_beta,mi_gamma,mi_delta;
+ang:=20;
+alpha=-45-ang;mi_alpha=-45+180-ang;
+beta=85-ang;mi_beta=85+180-ang;
+gamma=50-ang;mi_gamma=50+180-ang;
+delta=30-ang;mi_delta=30+180-ang;
+%
+%
+top:=21ut; mid:=8ut; bas:=0ut; bot:=-14ut;
+%
+an_top=7ut; an_mid=4ut; an_bot=1ut;
+%
+Z_anf=17ut; I_anf=18ut; O_bogen=5ut; L_o=4.5ut; U_bogen=3ut;
+g_bogen=-12ut; G_bogen=-11ut;z_bogen=-10ut;
+%
+pen su_pen;
+su_pen := pencircle xscaled .151ut yscaled 2.5ut rotated -45;
+
+pen su_pen_small;
+%su_pen_small := pencircle scaled 1.51ut;
+su_pen_small := pencircle scaled 2.01ut;
+
+pen su_pen_big;
+su_pen_big := pencircle scaled 4.51ut;
+
+def makex(suffix i)(expr xnull,ang,yy)=
+ if yy=0: wi:=x.i:=xnull;
+ else: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull; fi
+enddef;
+def makewi(suffix i)(expr xnull,ang,yy)=
+ if yy=0: wi:=x.i:=xnull;
+ else: if yy=mid: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull-1.2*hppp;
+ else: if yy=an_top: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull-1.0*hppp;
+ else: if yy=an_mid: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull-0.5*hppp;
+ else: if yy=an_bot: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull-0.1*hppp;
+ fi fi fi fi fi
+enddef;
+
+def makebox (text r) =
+ for y=-7ut step 1ut until 21ut: r((0,y),(28ut,y)); endfor;
+ for x=-2ut step 1ut until 28ut: r((x,-7ut),(x,21ut)); endfor;
+ for y=bas+.5,bas-.5,an_bot+.5,an_mid+.5,an_top+.5,mid-.5,mid+.5,
+ Z_anf,Z_anf+.5,I_anf,I_anf+.5,O_bogen,O_bogen+.5,L_o,L_o+.5,
+ U_bogen,U_bogen+.5,g_bogen,g_bogen+.5,G_bogen,G_bogen+.5,
+ z_bogen,z_bogen+.5: r((0,y),(28ut,y)); endfor;
+ z90=(32ut,mid);makelabel("mid",z90);makelabel("top",(32ut,top));
+ makelabel("an_mid",(32ut,an_mid));makelabel("an_bot",(32ut,an_bot));
+ makelabel("an_top",(32ut,an_top));makelabel("bot",(32ut,bot));
+ makelabel("Z_anf",(32ut,Z_anf)); makelabel("I_anf",(32ut,I_anf));
+ makelabel("O_bo",(32ut,O_bogen)); makelabel("L_o",(32ut,L_o));
+ makelabel("U_bo",(32ut,U_bogen)); makelabel("g_bo",(32ut,g_bogen));
+ makelabel("G_bo",(32ut,G_bogen)); makelabel("z_bo",(32ut,z_bogen));
+ makelabel("0",(0,24ut)); makelabel("5",(5ut,24ut)); makelabel("10",(10ut,24ut));
+ makelabel("15",(15ut,24ut)); makelabel("20",(20ut,24ut));
+ makelabel("25",(25ut,24ut));
+ makelabel(str[w],(w,-10ut));
+enddef;
+
+%
+input su-low;
+input su-spec;
+input su-upp;
+%
+font_quad 33pt#;
+font_normal_space 6.6pt#;
+font_normal_stretch 3pt#;
+font_normal_shrink 1pt#;
+%
+input su-lig;
+end.
diff --git a/fonts/gothic/sueterlin/su-lig.mf b/fonts/gothic/sueterlin/su-lig.mf
new file mode 100644
index 0000000000..6fb1647dcf
--- /dev/null
+++ b/fonts/gothic/sueterlin/su-lig.mf
@@ -0,0 +1,232 @@
+
+boundarychar:=oct"040";
+
+ligtable "c":
+ "h" =:| 30; % ch - Ligatur
+
+ligtable "Z": "k": "f": "E": "T": 29: %ST=29!
+ "a" |=:| 130,
+ "b" |=:| 130,
+ "c" |=:| 130,
+ 30 |=:| 130,
+ "d" |=:| 130,
+ "e" |=:| 130,
+ "f" |=:| 130,
+ "g" |=:| 130,
+ "h" |=:| 130,
+ "i" |=:| 130,
+ "j" |=:| 130,
+ "k" |=:| 130,
+ "l" |=:| 130,
+ "m" |=:| 130,
+ "n" |=:| 130,
+ "o" |=:| 130,
+ "p" |=:| 130,
+ "q" |=:| 130,
+ "r" |=:| 130,
+ "s" |=:| 130,
+ "t" |=:| 130,
+ "u" |=:| 130,
+ "v" |=:| 130,
+ "w" |=:| 130,
+ "x" |=:| 130,
+ "y" |=:| 130,
+ "z" |=:| 135,
+ 228 |=:| 130, %ae
+ 246 |=:| 130, %oe
+ 252 |=:| 130, %ue
+ 255 |=:| 130, %sz
+ 027 |=:| 130, %tz
+ 028 |=:| 130; % s am Ende
+
+ligtable "t":
+ "a" |=:| 130,
+ "b" |=:| 130,
+ "c" |=:| 130,
+ 30 |=:| 130,
+ "d" |=:| 130,
+ "e" |=:| 130,
+ "f" |=:| 130,
+ "g" |=:| 130,
+ "h" |=:| 130,
+ "i" |=:| 130,
+ "j" |=:| 130,
+ "k" |=:| 130,
+ "l" |=:| 130,
+ "m" |=:| 130,
+ "n" |=:| 130,
+ "o" |=:| 130,
+ "p" |=:| 130,
+ "q" |=:| 130,
+ "r" |=:| 130,
+ "s" |=:| 130,
+ "t" |=:| 130,
+ "u" |=:| 130,
+ "v" |=:| 130,
+ "w" |=:| 130,
+ "x" |=:| 130,
+ "y" |=:| 130,
+ "z" =: 27,
+ 228 |=:| 130, %ae
+ 246 |=:| 130, %oe
+ 252 |=:| 130, %ue
+ 255 |=:| 130, %sz
+ 027 |=:| 130, %tz
+ 028 |=:| 130; % s am Ende
+
+ligtable "a": 228: 255: 28: "A": "C": "D": "F": "H": "I": "J": "K": "L": "M":
+ 196: 220: 214: % AE, UE, OE
+ "N": "O": "P": "Q": "R": "U": "V": "W": "X": "Y":
+ % a,sz,s am Ende,A,C,D,F,H,I,....
+ "a" |=:| 128,
+ 228 |=:| 128,
+ "b" |=:| 128,
+ "c" |=:| 128,
+ 30 |=:| 128,
+ "d" |=:| 128,
+ "e" |=:| 128,
+ "f" |=:| 128,
+ "g" |=:| 128,
+ "h" |=:| 128,
+ "i" |=:| 128,
+ "j" |=:| 128,
+ "k" |=:| 128,
+ "l" |=:| 128,
+ "m" |=:| 128,
+ "n" |=:| 128,
+ "o" |=:| 128,
+ 246 |=:| 128,
+ "p" |=:| 128,
+ "q" |=:| 128,
+ "r" |=:| 128,
+ "s" |=:| 128,
+ "t" |=:| 128,
+ "u" |=:| 128,
+ 252 |=:| 128,
+ "v" |=:| 128,
+ "w" |=:| 128,
+ "x" |=:| 128,
+ "y" |=:| 128,
+ "z" |=:| 133,
+ 255 |=:| 128, %sz
+ 027 |=:| 128, %tz
+ 028 |=:| 128; % s am Ende
+
+ligtable "S": % wegen St-Ligatur
+ "a" |=:| 128,
+ "b" |=:| 128,
+ "c" |=:| 128,
+ 30 |=:| 128,
+ "d" |=:| 128,
+ "e" |=:| 128,
+ "f" |=:| 128,
+ "g" |=:| 128,
+ "h" |=:| 128,
+ "i" |=:| 128,
+ "j" |=:| 128,
+ "k" |=:| 128,
+ "l" |=:| 128,
+ "m" |=:| 128,
+ "n" |=:| 128,
+ "o" |=:| 128,
+ "p" |=:| 128,
+ "q" |=:| 128,
+ "r" |=:| 128,
+ "s" |=:| 128,
+ "t" =: 29,
+ "u" |=:| 128,
+ "v" |=:| 128,
+ "w" |=:| 128,
+ "x" |=:| 128,
+ "y" |=:| 128,
+ "z" |=:| 133,
+ 228 |=:| 128, %ae
+ 246 |=:| 128, %oe
+ 252 |=:| 128, %ue
+ 255 |=:| 128, %sz
+ 027 |=:| 128, %tz
+ 028 |=:| 128; % s am Ende
+
+ligtable "b": "B": "o": "r": 246: % b, s am Ende, sz, o und oe,
+ "a" |=:| 129,
+ "b" |=:| 129,
+ "c" |=:| 129,
+ 30 |=:| 129,
+ "d" |=:| 129,
+ "e" |=:| 129,
+ "f" |=:| 129,
+ "g" |=:| 129,
+ "h" |=:| 129,
+ "i" |=:| 129,
+ "j" |=:| 129,
+ "k" |=:| 129,
+ "l" |=:| 129,
+ "m" |=:| 129,
+ "n" |=:| 129,
+ "o" |=:| 129,
+ "p" |=:| 129,
+ "q" |=:| 129,
+ "r" |=:| 129,
+ "s" |=:| 129,
+ "t" |=:| 129,
+ "u" |=:| 129,
+ "v" |=:| 129,
+ "w" |=:| 129,
+ "x" |=:| 129,
+ "y" |=:| 129,
+ "z" |=:| 132,
+ 246 |=:| 129, %oe
+ 252 |=:| 129, %ue
+ 228 |=:| 129, %ae
+ 255 |=:| 129, %sz
+ 027 |=:| 129, %tz
+ 028 |=:| 129; % s am Ende
+
+ligtable "s":
+ " " =:| 28, % s gefolgt von Blanc
+ "." =:| 28,
+ "," =:| 28,
+ ";" =:| 28,
+ "!" =:| 28,
+ ")" =:| 28,
+ "/" =:| 28,
+ "?" =:| 28,
+ "+" =:| 28,
+ "-" =:| 28,
+ "=" =:| 28,
+ ":" =:| 28;
+%
+ligtable ||: "(": % Blanc, ( gefolgt von ..
+ "a" |=:| 128,
+ "b" |=:| 128,
+ "c" |=:| 128,
+ 30 |=:| 128,
+ "d" |=:| 128,
+ "e" |=:| 128,
+ "f" |=:| 128,
+ "g" |=:| 128,
+ "h" |=:| 128,
+ "i" |=:| 128,
+ "j" |=:| 128,
+ "k" |=:| 128,
+ "l" |=:| 128,
+ "m" |=:| 128,
+ "n" |=:| 128,
+ "o" |=:| 128,
+ "p" |=:| 128,
+ "q" |=:| 128,
+ "r" |=:| 128,
+ "s" |=:| 128,
+ "t" |=:| 128,
+ "u" |=:| 128,
+ "v" |=:| 128,
+ "w" |=:| 128,
+ "x" |=:| 128,
+ "y" |=:| 128,
+ "z" |=:| 133,
+ 246 |=:| 128, %oe
+ 252 |=:| 128, %ue
+ 228 |=:| 128, %ae
+ 255 |=:| 128, %sz
+ 027 |=:| 128, %tz
+ 028 |=:| 128; % s am Ende
diff --git a/fonts/gothic/sueterlin/su-low.mf b/fonts/gothic/sueterlin/su-low.mf
new file mode 100644
index 0000000000..f770370012
--- /dev/null
+++ b/fonts/gothic/sueterlin/su-low.mf
@@ -0,0 +1,796 @@
+ % su-low.mf -Input-File Zeichensatz
+
+
+% a
+makewi(7,10ut,ang,an_bot);
+beginchar("a",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y4=mid;
+y2=y6=bas;
+y5=y7=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3, 5ut,ang,y3);
+makex(4,7.5ut,ang,y4);
+makex(5,5.5ut,ang,y5);
+makex(6,7ut,ang,y6);
+makex(7, 10ut,ang,y7);
+%
+draw z1{dir mi_gamma}..z2{right}..z3{dir beta};
+draw z3{z5-z4}..z4{z4-z5};
+draw z4{z5-z4}..z5..z6{right}..{dir gamma}z7;
+labels(range 1 thru 7);
+endchar;
+
+
+% a-Umlaut
+makewi(7,10ut,ang,an_bot);
+beginchar(228,wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y3=y4=mid;
+y2=y6=bas;
+y5=y7=an_bot;
+y8=y9=3/7(top-mid)+mid;
+makex(1,0ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3, 5ut,ang,y3);
+makex(4,7.5ut,ang,y4);
+makex(5,5.5ut,ang,y5);
+makex(6,7ut,ang,y6);
+makex(7, 10ut,ang,y7);
+makex(8,2ut,ang,y8);
+makex(9,5.5ut,ang,y9);
+%
+draw z1{dir mi_gamma}..z2{right}..z3{dir beta};
+draw z3{z5-z4}..z4{z4-z5};
+draw z4{z5-z4}..z5..z6{right}..{dir gamma}z7;
+draw z8..z8+(1ut,3ut);draw z9..z9+(1ut,3ut);
+labels(range 1 thru 9);
+endchar;
+
+% b
+makewi(10,7.5ut,ang,an_bot);
+beginchar("b",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y9=y11=mid;
+y2=Z_anf;
+y3=y5=I_anf;
+y4=top;
+y6=y8=an_mid;
+y7=bas;
+y10=an_top;
+
+makex(1, 0ut,ang,y1);
+makex(2, 2.7ut,ang,y2);
+makex(3, 3.5ut,ang,y3);
+makex(4, 2ut,ang,y4);
+makex(5, -.8ut,ang,y5);
+makex(6,-2.5ut,ang,y6);
+makex(7, 2ut,ang,y7);
+makex(8, 5.6ut,ang,y8);
+makex(9, 5ut,ang,y9);
+makex(10, 7.5ut,ang,y10);
+%
+draw z1{dir gamma}..z3{up}..z4{left}..z5{dir mi_beta}..z6{dir mi_beta}..z7{right}..z8{up}..z9;
+draw z9..z10{right};
+labels(range 1 thru 10);
+endchar;
+
+% c
+makewi(5,8.5ut,ang,an_bot);
+beginchar("c",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y5=mid;
+y2=an_top;
+y4=bas;
+makex(1,0ut,ang,y1);
+makex(2,2.0ut,ang,y2);
+makex(3, 4ut,ang,y3);
+makex(4,-2ut,ang,y4);
+makex(5,8.5ut,ang,y5);
+%
+draw z1..z2{right}..z3{up};
+draw z1{z4-z1}..z4;
+draw z4..z5;
+labels(range 1 thru 5);
+endchar;
+
+
+% % c fuer ch-Ligatur c
+makewi(5,8.5ut,ang,an_bot);
+beginchar(30,wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y5=mid;
+y2=an_top;
+y4=bas;
+makex(1,0ut,ang,y1);
+makex(2,2.0ut,ang,y2);
+makex(3, 4ut,ang,y3);
+makex(4,-2ut,ang,y4);
+makex(5,8.5ut,ang,y5);
+%
+%draw z1..z2{right}..z3{up};
+draw z1{z4-z1}..z4;
+draw z4..z5;
+labels(range 1 thru 5);
+endchar;
+
+
+% d
+makewi(5,10ut,ang,an_bot);
+beginchar("d",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y5=mid;
+y34=I_anf;
+y2=bas;
+y3=13/14*mid;
+y4=top;
+makex(1,0ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3,5ut,ang,y3);
+makex(34,.5ut,ang,y34);
+makex(4,2.3ut,ang,y4);
+makex(5,10ut,ang,y5);
+%
+draw z1{dir mi_gamma}..z2{right}..z3..z4{left}..z34..{right}z3..z5;
+labels(range 1 thru 7,34);
+endchar;
+
+% e
+makewi(5,10.5ut,ang,mid);
+beginchar("e",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y5=mid;
+y2=y4=bas;
+makex(1,0ut,ang,y1);
+makex(2,-2ut,ang,y2);
+makex(3,2.7ut,ang,y3);
+makex(4,0.5ut,ang,y4);
+makex(5,10.5ut,ang,y5);
+%
+draw z1..z2;
+draw z3..z4;
+draw z4..z5;
+labels(range 1 thru 7);
+endchar;
+
+% f
+makewi(8,4ut,ang,an_mid);
+beginchar("f",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=mid;
+y2=Z_anf;
+y3=y5=I_anf;
+y4=top;
+y6=bot;
+y7=an_mid+1/7(mid-an_mid);
+y8=an_mid;
+makex(1,0ut,ang,y1);
+makex(2, 2ut,ang,y2);
+makex(3,3.3ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,0ut,ang,y5);
+makex(6,-4.5ut,ang,y6);
+makex(7,-3.5ut,ang,y7);
+makex(8,4ut,ang,y8);
+%
+draw z1{dir gamma}..z3{up}..z4{left}..z5{z6-z5}..z6;
+draw z7..z8{dir delta};
+labels(range 1 thru 8);
+endchar;
+
+% g
+makewi(8,14ut,ang,mid);
+beginchar("g",wi/hppp,14ut#,7ut#);
+pickup su_pen;
+y1=y3=y4=y8=mid;
+y2=bas;
+y5=g_bogen;
+y6=bot;
+y7=1/2z_bogen;
+y23=5/7mid;
+makex(1,0ut,ang,y1);
+makex(2,.5ut,ang,y2);
+makex(3, 5 ut,ang,y3);
+makex(4,7.7 ut,ang,y4);
+makex(5, 4.3ut,ang,y5);
+makex(6, 2.2 ut,ang,y6);
+makex(7, 2 ut,ang,y7);
+makex(8, 14 ut,ang,y8);
+makex(23,4.7ut,ang,y23);
+%
+draw z1{dir mi_gamma}..z2{right}..z23..z3{up};
+draw z3{down}..z4{dir beta};
+draw z4{dir mi_beta}..z5{dir mi_beta}..z6{left}..z7{dir gamma}..z8;
+labels(range 1 thru 8,23);
+endchar;
+
+
+% h
+makewi(9,6.5ut,ang,mid);
+beginchar("h",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=y9=mid;
+y2=Z_anf;
+y3=y5=I_anf;
+y4=top;
+y6=G_bogen;
+y8=bas;
+y7=bot;
+makex(1,0ut,ang,y1);
+makex(2,2 ut,ang,y2);
+makex(3,3ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,-.4ut,ang,y5);
+makex(6,-3.7ut,ang,y6);
+makex(7,-6ut,ang,y7);
+makex(8, -5.7ut,ang,y8);
+makex(9, 6.5ut,ang,y9);
+%
+draw z1{dir gamma}..z3{dir beta}..z4{left}..z5{dir mi_beta}..z6{dir mi_beta}..
+ z7{left}..z8{dir gamma}..z9{dir gamma};
+ makelabel("T",z9);
+labels(range 1 thru 9);
+endchar;
+
+% i
+makewi(3,8ut,ang,mid);
+beginchar("i",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y3=mid;
+y2=bas;
+y4=4/7(top-mid)+mid;
+y5=6/7(top-mid)+mid;
+makex(1,0ut,ang,y1);
+makex(2,-2.7ut,ang,y2);
+makex(3,8ut,ang,y3);
+makex(4,1ut,ang,y4);
+makex(5,1.5ut,ang,y5);
+%
+draw z1..z2 ;
+draw z2..z3;
+draw z4{dir gamma}..z5{dir beta};
+labels(range 1 thru 7);
+endchar;
+
+% j
+makewi(5,7ut,ang,mid);
+beginchar("j",wi/hppp,21ut#,7ut#);
+% makelabel(str[w/hppp],(w/hppp,-10ut));
+pickup su_pen;
+y1=y5=mid;
+y2=g_bogen;
+y4=1/2z_bogen;
+y3=bot;
+y6=4/7(top-mid)+mid;
+y7=6/7(top-mid)+mid;
+makex(1,0ut,ang,y1);
+makex(2,-3.2ut,ang,y2);
+makex(3,-5.5ut,ang,y3);
+makex(4,-5ut,ang,y4);
+makex(5,7ut,ang,y5);
+makex(6,.8ut,ang,y6);
+makex(7,1.3ut,ang,y7);
+%
+draw z1{dir mi_beta}..z2{dir mi_beta}..z3{left}..z4{dir gamma}..z5{dir gamma};
+draw z6{dir gamma}..z7{dir beta};
+labels(range 1 thru 7);
+endchar;
+
+% k
+makewi(7,5ut,ang,an_mid);
+beginchar("k",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=mid;
+y2=y8=top;
+y3=Z_anf;
+y4=y6=an_mid+(3/14 an_mid);
+y5=bas;
+y7=an_mid;
+y9=I_anf;
+makex(1,0ut,ang,y1);
+makex(2,3.7 ut,ang,y2);
+makex(3,3ut,ang,y3);
+makex(4,1.3ut,ang,y4);
+makex(5,0ut,ang,y5);
+makex(6,-3ut,ang,y6);
+makex(7,5ut,ang,y7);
+makex(8,7.2ut,ang,y8);
+makex(9,7.8ut,ang,y9);
+%
+draw z1{dir gamma}..z2{dir beta};
+draw z2{dir mi_beta}..z5;
+draw z3{dir beta+dir 10}..z8{right}..z9..z4;
+draw z6..z7{dir delta};
+labels(range 1 thru 9);
+endchar;
+
+% l
+makewi(9,10ut,ang,an_bot);
+beginchar("l",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y9=mid;
+y2=Z_anf;
+y3=y5=I_anf;
+y4=top;
+y6=1/2 an_bot+an_bot;
+y7=bas;
+y8=an_bot-3/14 an_bot;
+makex(1,0ut,ang,y1);
+makex(2,2ut,ang,y2);
+makex(3,3.3ut,ang,y3);
+makex(4,1.8ut,ang,y4);
+makex(5,0ut,ang,y5);
+makex(6,-2.5ut,ang,y6);
+makex(7,-1.3ut,ang,y7);
+makex(8,1ut,ang,y8);
+makex(9,10ut,ang,y9);
+%
+draw z1{dir gamma}..z3{up}..z4{left}..z5{dir mi_beta}..z6{dir mi_beta}..
+ z7{right}..z8{dir gamma}..z9{dir gamma};
+labels(range 1 thru 9);
+endchar;
+
+% m
+makewi(7,24ut,ang,mid);
+beginchar("m",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y5=y7=mid;
+y2=y4=y6=bas;
+makex(1,0ut,ang,y1);
+makex(2,-2ut,ang,y2);
+makex(3,8ut,ang,y3);
+makex(4,5.7ut,ang,y4);
+makex(5,16ut,ang,y5);
+makex(6,13.7ut,ang,y6);
+makex(7,24ut,ang,y7);
+%
+draw z1..z2 ; draw z2..z3; draw z3..z4; draw z3..z4; draw z4..z5;
+draw z5..z6; draw z6..z7;
+labels(range 1 thru 7);
+endchar;
+
+% n
+makewi(5,16.2ut,ang,mid);
+beginchar("n",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y5=mid;
+y2=y4=bas;
+makex(1,0ut,ang,y1);
+makex(2,-2.5ut,ang,y2);
+makex(3,8.2ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,16.2ut,ang,y5);
+%
+draw z1..z2;
+draw z2..z3;
+draw z3..z4;
+draw z4..z5;
+labels(range 1 thru 5);
+endchar;
+
+
+% o
+makewi(6,8ut,ang,an_top);
+beginchar("o",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y5=mid;
+y6=an_top;
+y2=y4=2an_bot;
+y3=bas;
+makex(1,0ut,ang,y1);
+makex(2,-3.8ut,ang,y2);
+makex(3,-.5ut,ang,y3);
+makex(4,4ut,ang,y4);
+makex(5,3.3ut,ang,y5);
+makex(6,8ut,ang,y6);
+%
+draw z1{dir mi_gamma}..z2{dir mi_beta}..z3{right}..z4{dir beta}..z5;
+draw z5..z6{right};
+labels(range 1 thru 8);
+endchar;
+
+
+% o-Umlaut
+makewi(6,8ut,ang,an_top);
+beginchar(246,wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y5=mid;
+y6=an_top;
+y2=y4=2an_bot;
+y3=bas;
+y7=y8=3/7(top-mid)+mid;
+makex(1,0ut,ang,y1);
+makex(2,-3.8ut,ang,y2);
+makex(3,-.5ut,ang,y3);
+makex(4,4ut,ang,y4);
+makex(5,3.3ut,ang,y5);
+makex(6,8ut,ang,y6);
+makex(7,1.5ut,ang,y7);
+makex(8,4ut,ang,y8);
+%
+draw z1{dir mi_gamma}..z2{dir mi_beta}..z3{right}..z4{dir beta}..z5;
+draw z5..z6{right};
+draw z7..z7+(1ut,3ut);draw z8..z8+(1ut,3ut);
+labels(range 1 thru 8);
+endchar;
+
+% p
+makewi(9,13ut,ang,mid);
+beginchar("p",wi/hppp,14ut#,7ut#);
+pickup su_pen;
+y1=y4=y9=mid;
+y2=mid-2/7(mid);
+y5=mid-3/14(mid);
+y6=y8=3/2an_bot;
+y7=bas;
+y3=bot;
+makex(1,0ut,ang,y1);
+makex(2,-.7ut,ang,y2);
+makex(3,-3.5ut,ang,y3);
+makex(4,3ut,ang,y4);
+makex(5,5.5ut,ang,y5);
+makex(6,-.4ut,ang,y6);
+makex(7,1.7ut,ang,y7);
+makex(8,3.8ut,ang,y8);
+makex(9,13ut,ang,y9);
+%
+draw z1..z3;
+draw z2{dir beta}..z4{right}..z5{dir mi_beta}..z6;
+draw z6{right}..z7{right}..z8{dir gamma}..z9{dir gamma};
+labels(range 1 thru 9);
+endchar;
+
+% q
+makewi(7,16.1ut,ang,mid);
+beginchar("q",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y4=y7=mid;
+y2=y6=bas;
+y5=bot;
+makex(1,0ut,ang,y1);
+makex(2,1ut,ang,y2);
+makex(3,5.3ut,ang,y3);
+makex(4,8.5ut,ang,y4);
+makex(5,5.0ut,ang,y5);
+makex(6,6.1ut,ang,y6);
+makex(7,16.1ut,ang,y7);
+%
+draw z1{dir mi_gamma}..z2{right}..z3{dir beta};
+draw z3..z4{dir gamma};
+draw z4..z5;
+draw z6..z7;
+labels(range 1 thru 7);
+endchar;
+
+% r
+makewi(5,10.3ut,ang,an_top);
+beginchar("r",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y4=mid;
+y5=an_top;
+y2=y3=bas;
+makex(1,0ut,ang,y1);
+makex(2,-2.5ut,ang,y2);
+makex(3,4.5ut,ang,y3);
+makex(4,5.7ut,ang,y4);
+makex(5,10.3ut,ang,y5);
+%
+draw z1..z2{dir mi_gamma};
+draw z2{dir gamma}..z3{dir mi_beta};
+draw z3{dir mi_alpha}..z4{dir beta};
+draw z4..z5{right};
+labels(range 1 thru 5);
+endchar;
+
+% s-am Ende
+makewi(4,2ut,ang,an_bot); % rundes s
+beginchar(28,wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=an_top;
+y2=mid;
+y3=an_top-1/14 mid;
+y4=y6=an_bot;
+y5=bas;
+y7=I_anf;
+y8=top;
+y9=Z_anf;
+%
+makex(1,-.5ut,ang,y1);
+makex(2,2ut,ang,y2);
+makex(3,4.1ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,-.5ut,ang,y5);
+makex(6,-2.2ut,ang,y6);
+makex(8,3.2ut,ang,y8);
+makex(7,0ut,ang,y7);
+makex(9,4.5ut,ang,y9);
+%
+draw z1{dir gamma}..z2{right}..z3{dir mi_beta}..z4..z5{left}..z6{dir beta}..
+ z7{dir beta}..z8{right}..z9{dir mi_beta};
+labels(range 1 thru 9);
+endchar;
+
+% s
+makewi(5,9.2ut,ang,an_bot);
+beginchar("s",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=y5=mid;
+y2=top;
+y3=bot;
+y4=bas;
+makex(1,0ut,ang,y1);
+makex(2,3.3ut,ang,y2);
+makex(3,-1.5ut,ang,y3);
+makex(4,0ut,ang,y4);
+makex(5,9.2ut,ang,y5);
+%
+draw z1{dir gamma}..z2{dir beta};
+draw z2{dir mi_beta}..z3;
+draw z4..z5;
+labels(range 1 thru 5);
+endchar;
+
+
+% sz
+makewi(10,6ut,ang,an_bot);
+beginchar(255,wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=mid;
+y2=top;
+y3=bot;
+y4=y6=Z_anf;
+y5=15/14I_anf;
+y7=mid;
+y8=an_mid;
+y9=1/2an_bot;
+y10=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,3.3ut,ang,y2);
+makex(3,-1.5ut,ang,y3);
+makex(4,2.7ut,ang,y4);
+makex(5,5.5ut,ang,y5);
+makex(6,8ut,ang,y6);
+makex(7,4ut,ang,y7);
+makex(8,8ut,ang,y8);
+makex(9,1.5ut,ang,y9);
+makex(10,6ut,ang,y10);
+%
+draw z1{dir gamma}..z2{dir beta};
+draw z2{dir mi_beta}..z3;
+draw z4{dir beta}..z5{right}..z6{dir mi_beta}..z7{left};
+draw z7{right}..z8{dir mi_beta}..z9;
+labels(range 1 thru 10);
+endchar;
+
+% t
+makewi(5,4ut,ang,an_mid);
+beginchar("t",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=mid;
+y2=top;
+y3=bas;
+y4=an_mid+1/14an_mid;
+y5=an_mid;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,-.7ut,ang,y3);
+makex(4,-3ut,ang,y4);
+makex(5,4ut,ang,y5);
+%
+draw z1{dir gamma}..z2{dir beta};
+draw z2..z3;
+draw z4..z5{dir delta};
+labels(range 1 thru 5);
+endchar;
+
+% u
+makewi(5,16.2ut,ang,mid);
+beginchar("u",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y3=y5=mid;
+y2=y4=bas;
+y6=5/7(top-mid)+mid;
+y7=4/7(top-mid)+mid;
+makex(1,0ut,ang,y1);
+makex(2,-2.5ut,ang,y2);
+makex(3,8.2ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,16.2ut,ang,y5);
+makex(6,2.2ut,ang,y6);
+makex(7,8.5ut,ang,y7);
+%
+draw z1..z2;
+draw z2..z3;
+draw z3..z4;
+draw z4..z5;
+draw z6..z7{dir gamma};
+labels(range 1 thru 7);
+endchar;
+
+
+% u-Umlaut
+makewi(5,16.2ut,ang,mid);
+beginchar(252,wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y3=y5=mid;
+y2=y4=bas;
+y6=3/7(top-mid)+mid;
+y7=3/7(top-mid)+mid;
+makex(1,0ut,ang,y1);
+makex(2,-2.5ut,ang,y2);
+makex(3,8.2ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,16.2ut,ang,y5);
+makex(6,2.5ut,ang,y6);
+makex(7,6.5ut,ang,y7);
+%
+draw z1..z2;
+draw z2..z3;
+draw z3..z4;
+draw z4..z5;
+draw z6..z6+(1ut,3ut);draw z7..z7+(1ut,3ut);
+labels(range 1 thru 7);
+endchar;
+% v
+makewi(6,15.5ut,ang,an_bot);
+beginchar("v",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y4=y6=mid;
+y2=y7=bas;
+y3=5/6an_top;
+y5=an_mid+1/7an_mid;
+makex(1,0ut,ang,y1);
+makex(2,-2.5ut,ang,y2);
+makex(3,2.9ut,ang,y3);
+makex(4,6.3ut,ang,y4);
+makex(5,8ut,ang,y5);
+makex(6,15.5ut,ang,y6);
+makex(7,4.3ut,ang,y7);
+%
+draw z1..z2{dir mi_gamma};
+draw z2{dir gamma}..z7;
+draw z7..z3{dir beta}..z4{right}..z5{dir mi_beta}..z7;
+draw z7..z6;
+labels(range 1 thru 7);
+endchar;
+
+% w
+makewi(9,22ut,ang,mid);
+beginchar("w",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y3=y7=y9=mid;
+y2=y4=y5=bas;
+y6=y8=an_mid+2/7(mid-an_mid);
+makex(1,0ut,ang,y1);
+makex(2,-2.5ut,ang,y2);
+makex(3,8ut,ang,y3);
+makex(4,5.5ut,ang,y4);
+makex(5,12ut,ang,y5);
+makex(6,10.5ut,ang,y6);
+makex(7,14.2ut,ang,y7);
+makex(8,15.7ut,ang,y8);
+makex(9,22ut,ang,y9);
+%
+draw z1..z2;
+draw z2..z3;
+draw z3..z4{dir mi_gamma};
+draw z4{dir gamma}..z5;
+draw z5..z6{dir beta}..z7{right}..z8{dir mi_beta}..z5;
+draw z5..z9;
+labels(range 1 thru 9);
+endchar;
+
+% x
+makewi(12,15.3ut,ang,mid);
+beginchar("x",wi/hppp,14ut#,7ut#);
+pickup su_pen;
+y1=y7=y12=mid;
+y2=y6=y8=an_mid;
+y3=y5=an_bot;
+y4=bas;
+y9=y11=g_bogen;
+y10=bot;
+makex(1,0ut,ang,y1);
+makex(2,0.8ut,ang,y2);
+makex(3,2.2ut,ang,y3);
+makex(4,4.2ut,ang,y4);
+makex(5,6.2ut,ang,y5);
+makex(6,7.3ut,ang,y6);
+makex(7,4.8ut,ang,y7);
+makex(8,0ut,ang,y8);
+makex(9,-0.9ut,ang,y9);
+makex(10,2ut,ang,y10);
+makex(11,4.8ut,ang,y11);
+makex(12,15.3ut,ang,y12);
+%
+draw z1{down}..z2..z3..z4{right}..z5..z6{dir beta}..z7{left}..
+ z8..z9..z10{right}..z11;
+draw z5..z12;
+labels(range 1 thru 12);
+endchar;
+
+% y
+makewi(10,17ut,ang,mid);
+beginchar("y",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y5=y10=mid;
+y2=y3=bas;
+y4=y6=an_mid+2/7(mid-an_mid);
+y7=G_bogen;
+y8=bot;
+y9=z_bogen;
+makex(1,0ut,ang,y1);
+makex(2,-2.6ut,ang,y2);
+makex(3,3.5ut,ang,y3);
+makex(4,2.8ut,ang,y4);
+makex(5,6.2ut,ang,y5);
+makex(6,8ut,ang,y6);
+makex(7,7ut,ang,y7);
+makex(8,5ut,ang,y8);
+makex(9,4.3ut,ang,y9);
+makex(10,17ut,ang,y10);
+%
+draw z1..z2{dir mi_gamma};
+draw z2{dir gamma}..z3;
+draw z3..z4{up}..z5{right}..z7{dir mi_beta}..z8{left}..z9{dir gamma}..z10;
+labels(range 1 thru 10);
+endchar;
+
+% z
+makewi(8,13.5ut,ang,mid);
+beginchar("z",wi/hppp,14ut#,7ut#);
+pickup su_pen;
+y1=y8=mid;
+y2=an_top-2/5(an_top-an_mid);
+y3=an_mid;
+y4=bas;
+y5=bot;
+y6=g_bogen;
+y7=z_bogen;
+makex(1,0ut,ang,y1);
+makex(2,5ut,ang,y2);
+makex(3,1ut,ang,y3);
+makex(4,5ut,ang,y4);
+makex(5,1.3ut,ang,y5);
+makex(6,-.6ut,ang,y6);
+makex(8,13.5ut,ang,y8);
+makex(7,1ut,ang,y7);
+%
+draw z1{right}..z2{dir mi_beta}..z3{left};
+draw z3{right}..z4{dir mi_beta}..z5{left}..z7{dir gamma}..z8;
+labels(range 1 thru 8);
+endchar;
+
+% tz
+makewi(12,18ut,ang,mid);
+beginchar(27,wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=y5=y12=mid;
+y2=top;
+y3=bas;
+y4=an_mid;
+y6=an_mid+3/14(mid-an_mid);
+y7=an_mid-3/10(an_mid-an_bot);
+y8=an_bot;
+y9=y11=G_bogen;
+y10=bot;
+makex(1,0ut,ang,y1);
+makex(2,3.3ut,ang,y2);
+makex(3,-.4ut,ang,y3);
+makex(4,0ut,ang,y4);
+makex(5,7.5ut,ang,y5);
+makex(6,10ut,ang,y6);
+makex(7,6.5ut,ang,y7);
+makex(8,9.6ut,ang,y8);
+makex(9,9ut,ang,y9);
+makex(10,6ut,ang,y10);
+makex(11,4.5ut,ang,y11);
+makex(12,18ut,ang,y12);
+%
+draw z1{dir gamma}..z2{dir beta};
+draw z2..z3;
+draw z4{dir gamma}..z5{right}..z6{dir mi_beta}..z7{left};
+draw z7{right}..z8..z9{dir mi_beta}..z10{left}..z11{dir gamma}..z12;
+labels(range 1 thru 12);
+endchar;
diff --git a/fonts/gothic/sueterlin/su-spec.mf b/fonts/gothic/sueterlin/su-spec.mf
new file mode 100644
index 0000000000..347f81b9db
--- /dev/null
+++ b/fonts/gothic/sueterlin/su-spec.mf
@@ -0,0 +1,555 @@
+% su-spec.mf -Input-File Zeichensatz
+
+makewi(8,13ut,ang,top);
+beginchar("0",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=an_bot;
+y4=bas;
+makex(1,7ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3,1ut,ang,y3);
+makex(4,4ut,ang,y4);
+makex(5,6.5ut,ang,y5);
+makex(6,9ut,ang,y6);
+makex(7,8ut,ang,y7);
+makex(8,12ut,ang,y8);
+%
+draw z1{dir gamma-dir 10}..z2..z3..z4{right}..z5..z6..z7;
+draw z7..z8{dir gamma};
+labels(range 1 thru 8);
+endchar;
+
+
+makewi(2,8ut,ang,mid);
+beginchar("1",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=mid;
+y3=bas;
+y2=top;
+makex(1,0ut,ang,y1);
+makex(2,7ut,ang,y2);
+makex(3,3ut,ang,y3);
+%
+draw z1..z2;
+draw z2..z3;
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(2,10ut,ang,mid);
+beginchar("2",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=Z_anf;
+y2=top;
+y3=mid;
+y4=an_mid;
+y5=y6=bas;
+y7=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,3.3ut,ang,y4);
+makex(5,-2ut,ang,y5);
+makex(6,4.5ut,ang,y6);
+makex(7,7.3ut,ang,y7);
+%
+draw z1..z2{right}..z3..z4..z5{dir mi_beta};
+draw z5{dir gamma}..z6{right}..z7;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,9ut,ang,mid);
+beginchar("3",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=an_bot;
+y2=bas;
+y3=an_mid;
+y4=an_top;
+y5=y7=Z_anf;
+y6=top;
+makex(1,-2ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3,6ut,ang,y3);
+makex(4,3ut,ang,y4);
+makex(5,8ut,ang,y5);
+makex(6,5ut,ang,y6);
+makex(7,0ut,ang,y7);
+%
+draw z7..z6{right}..z5..z4{left};
+draw z4{right}..z3..z2{left}..z1;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,10ut,ang,mid);
+beginchar("4",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=top;
+y2=an_mid;
+y3=1/2(mid-an_top)+an_top;
+y4=mid;
+y5=bas;
+makex(1,7ut,ang,y1);
+makex(2,0ut,ang,y2);
+makex(3,12ut,ang,y3);
+makex(4,8.3ut,ang,y4);
+makex(5,3.5ut,ang,y5);
+%
+draw z1..z2;
+draw z2{right}..z3;
+draw z4..{dir mi_beta}z5;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,11ut,ang,mid);
+beginchar("5",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y6=top;
+y2=y3=an_top;
+y4=bas;
+y5=an_bot;
+makex(1,5ut,ang,y1);
+makex(2,1ut,ang,y2);
+makex(3,8ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,-1ut,ang,y5);
+makex(6,10ut,ang,y6);
+%
+draw z1..z2;
+draw z2{dir gamma}..z3..z4{left}..z5;
+draw z1..z6{dir gamma};
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(1,12ut,ang,mid);
+beginchar("6",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=I_anf;
+y2=top;
+y3=O_bogen;
+y4=bas;
+y5=an_mid;
+y6=an_top;
+makex(1,11ut,ang,y1);
+makex(2,8.5ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,3ut,ang,y4);
+makex(5,8ut,ang,y5);
+makex(6,6ut,ang,y6);
+%
+draw z1..z2{left}..z3{dir mi_beta}..z4{right}..z5..
+ z6{left}..z3{dir mi_beta};
+labels(range 1 thru 6);
+endchar;
+
+
+makewi(2,10ut,ang,mid);
+beginchar("7",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=I_anf;
+y2=top;
+y3=bas;
+y4=an_top=y5;
+makex(1,0ut,ang,y1);
+makex(2,9ut,ang,y2);
+makex(3,3.5ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,8ut,ang,y5);
+%
+draw z1{dir beta}..z2{dir beta};
+draw z2..z3;
+draw z4..z5{dir beta-dir 90};
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(9,13ut,ang,mid);
+beginchar("8",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y8=y9=top;
+y2=y7=mid;
+y3=an_top;
+y4=y6=an_mid;
+y5=bas;
+makex(1,7ut,ang,y1);
+makex(2,3.4ut,ang,y2);
+makex(3,5ut,ang,y3);
+makex(4,7.5ut,ang,y4);
+makex(5,4ut,ang,y5);
+makex(6,0ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,9ut,ang,y8);
+makex(9,12ut,ang,y9);
+%
+draw z1{left}..z2..z3..z4..z5{left}..z6..z3..z7..z8;
+draw z8..z9{dir beta};
+labels(range 1 thru 9);
+endchar;
+
+
+makewi(2,10ut,ang,mid);
+beginchar("9",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=y3=mid;
+y4=top;
+y2=an_top;
+y5=y7=an_bot;
+y6=bas;
+makex(1,7.5ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,1.2ut,ang,y3);
+makex(4,5.2ut,ang,y4);
+makex(5,4.5ut,ang,y5);
+makex(6,1.3ut,ang,y6);
+makex(7,-1.5ut,ang,y7);
+%
+draw z1{dir mi_beta}..z2{left}..z3..z4{right}..z1{dir mi_beta}..
+ z5..z6{left}..z7;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,4ut,ang,mid);
+beginchar(131,wi/hppp,14ut#,0ut); % uebergang an_top{gamma} -> z
+pickup su_pen;
+y1=an_top;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+%
+draw z1{dir gamma}..z2{right};
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,4ut,ang,mid);
+beginchar(132,wi/hppp,14ut#,0ut); % uebergang an_top{right} -> z
+pickup su_pen;
+y1=an_top;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+%
+draw z1{right}..z2{right};
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(3,12ut,ang,mid);
+beginchar(133,wi/hppp,14ut#,0ut); % uberggang blank -> z
+pickup su_pen;
+y1=bas;
+y2=an_top;
+y3=mid;
+makex(1,0ut,ang,y1);
+makex(2,8.5ut,ang,y2);
+makex(3,12ut,ang,y3);
+%
+draw z1..z2..z3{right};
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(3,7ut,ang,mid);
+beginchar(135,wi/hppp,14ut#,0ut); % uberggang an_mid -> z
+pickup su_pen;
+y1=an_mid;
+y2=an_top;
+y3=mid;
+makex(1,0ut,ang,y1);
+makex(2,3.5ut,ang,y2);
+makex(3,7ut,ang,y3);
+%
+draw z1..z2..z3{right};
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(2,9ut,ang,mid);
+beginchar(128,wi/hppp,14ut#,0ut); %uebergang an_bot -> mid
+pickup su_pen;
+y1=an_bot;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,9ut,ang,y2);
+%
+draw z1..z2;
+labels(range 1 thru 7);
+endchar;
+
+makewi(2,4ut,ang,mid);
+beginchar(129,wi/hppp,14ut#,0ut); % uebergang an_top -> mid
+pickup su_pen;
+y1=an_top;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,4ut,ang,y2);
+%
+draw z1{right}..{dir gamma}z2;
+labels(range 1 thru 7);
+endchar;
+
+makewi(2,7ut,ang,mid);
+beginchar(130,wi/hppp,14ut#,0ut); % uebergang an_mid -> mid
+pickup su_pen;
+y1=an_mid;
+y2=mid;
+makex(1,0ut,ang,y1);
+makex(2,7ut,ang,y2);
+%
+draw z1{dir delta}..{dir gamma}z2;
+labels(range 1 thru 7);
+endchar;
+
+makewi(4,9ut,ang,mid);
+beginchar("+",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=an_top;
+y2=an_bot;
+y3=y4=an_mid;
+makex(1,5.3ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,8.8ut,ang,y4);
+%
+draw z1..z2;
+draw z3..z4;
+labels(range 1 thru 4);
+endchar;
+
+
+makewi(4,9ut,ang,mid);
+beginchar("*",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=an_top;
+y2=an_bot;
+y3=y4=an_mid;
+y5=y6=6/7y1;
+y7=y8=9/7y2;
+makex(1,5.3ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,8.8ut,ang,y4);
+makex(5,2ut,ang,y5);
+makex(6,8ut,ang,y6);
+makex(7,1ut,ang,y7);
+makex(8,6.8ut,ang,y8);
+%
+draw z1..z2;
+draw z3..z4;
+draw z5..z8;
+draw z6..z7;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,8ut,ang,mid);
+beginchar("-",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=y2=an_mid;
+makex(1,0ut,ang,y1);
+makex(2,8ut,ang,y2);
+%
+draw z1..z2;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,12.5ut,ang,mid);
+beginchar(134,wi/hppp,14ut#,0ut); % --
+pickup su_pen;
+y1=y2=an_mid;
+makex(1,0ut,ang,y1);
+makex(2,12.5ut,ang,y2);
+%
+draw z1..z2;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,9ut,ang,mid);
+beginchar(";",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=an_mid;
+y2=an_bot;
+y3=1/7bot;
+makex(1,2.5ut,ang,y1);
+makex(2,2.5ut,ang,y2);
+makex(3,1.5ut,ang,y3);
+%
+draw z2{dir mi_beta+dir 10}..z3{dir mi_beta};
+pickup su_pen_small;
+drawdot z1;
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(2,9ut,ang,mid);
+beginchar(",",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y2=an_bot;
+y3=1/7bot;
+makex(2,2.5ut,ang,y2);
+makex(3,1.5ut,ang,y3);
+%
+draw z2{dir mi_beta+dir 10}..z3{dir mi_beta};
+pickup su_pen_small;
+drawdot z2;
+labels(range 2 thru 3);
+endchar;
+
+
+makewi(2,3ut,ang,mid);
+beginchar(".",wi/hppp,14ut#,0ut);
+y2=bas;
+makex(2,2ut,ang,y2);
+%
+pickup su_pen_small;
+drawdot z2;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,9ut,ang,top);
+beginchar("!",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=Z_anf;
+y2=an_mid;
+y3=bas;
+makex(1,4ut,ang,y1);
+makex(2,1ut,ang,y2);
+makex(3,0.5ut,ang,y3);
+%
+draw z1..z2;
+pickup su_pen_small;
+drawdot z3;
+labels(range 1 thru 3);
+endchar;
+
+
+makewi(2,4ut,ang,mid);
+beginchar(":",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=6/7an_top;;
+y2=an_bot;
+makex(1,1.5ut,ang,y1);
+makex(2,.3ut,ang,y2);
+%
+pickup su_pen_small;
+drawdot z1; drawdot z2;
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,8ut,ang,top);
+beginchar("?",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=Z_anf;
+y2=top;
+y3=mid;
+y4=an_mid;
+y5=1/2an_bot;
+makex(1,1ut,ang,y1);
+makex(2,5.5ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,3.3ut,ang,y4);
+makex(5,3ut,ang,y5);
+%
+draw z1..z2{right}..z3..z4{dir mi_beta};
+pickup su_pen_small;
+drawdot z5;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,7ut,ang,mid);
+beginchar("=",wi/hppp,14ut#,0ut);
+pickup su_pen;
+y1=4/3an_mid=y2;
+y3=y4=2/3an_mid;
+makex(1,0ut,ang,y1);
+makex(2,6.5ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,6.5ut,ang,y4);
+%
+draw z1..z2{dir 5};
+draw z3..z4{dir 5};
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(2,6ut,ang,mid);
+beginchar("(",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=top;
+y2=bas;
+makex(1,5ut,ang,y1);
+makex(2,1ut,ang,y2);
+%
+draw z1{dir mi_gamma}..z2;
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,6ut,ang,mid);
+beginchar(")",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=top;
+y2=bas;
+makex(1,5ut,ang,y1);
+makex(2,1ut,ang,y2);
+%
+draw z1..z2{dir mi_gamma};
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,6ut,ang,mid);
+beginchar("/",wi/hppp,21ut#,0ut);
+pickup su_pen;
+y1=top;
+y2=bas;
+makex(1,5ut,ang,y1);
+makex(2,1ut,ang,y2);
+%
+draw z1..z2;
+labels(range 1 thru 2);
+endchar;
+
+
+makewi(2,6ut,ang,mid);
+beginchar(16,wi/hppp,21ut#,0ut); % einleitende Anfuehrungszeichen
+pickup su_pen;
+y1=an_bot;
+y2=an_bot;
+y3=y4=bas-1.5ut;
+makex(1,1ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,1ut,ang,y3);
+makex(4,3ut,ang,y4);
+%
+draw z1{dir mi_gamma+dir 20}..z3{dir mi_gamma};
+draw z2{dir mi_gamma+dir 20}..z4{dir mi_gamma};
+labels(range 1 thru 4);
+endchar;
+
+makewi(2,6ut,ang,mid);
+beginchar(17,wi/hppp,21ut#,0ut); %schliessendes Anfuehrungszeichen
+pickup su_pen;
+y1=y2=top;
+y3=top-1/2(top-mid)=y4;
+makex(1,1ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,1ut,ang,y3);
+makex(4,3ut,ang,y4);
+%
+draw z1{dir mi_gamma+dir 20}..z3{dir mi_gamma};
+draw z2{dir mi_gamma+dir 20}..z4{dir mi_gamma};
+labels(range 1 thru 4);
+endchar;
+
diff --git a/fonts/gothic/sueterlin/su-upp.mf b/fonts/gothic/sueterlin/su-upp.mf
new file mode 100644
index 0000000000..6eeed919fb
--- /dev/null
+++ b/fonts/gothic/sueterlin/su-upp.mf
@@ -0,0 +1,849 @@
+
+% su-upp.mf -Input-File Zeichensatz
+
+
+
+makewi(11,16ut,ang,an_bot); %A
+beginchar("A",wi/hppp,21ut#,0ut#); %A
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=O_bogen;
+y4=y10=bas;
+y9=y11=an_bot;
+makex(1,7.5ut,ang,y1);
+makex(2,.5ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,4.5ut,ang,y4);
+makex(5,10.2ut,ang,y5);
+makex(6,12ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,16ut,ang,y8);
+makex(9,12ut,ang,y9);
+makex(10,13.5ut,ang,y10);
+makex(11,16ut,ang,y11);
+%
+draw z1{left}..z2..z3..z4{right}..z5..z6..z7;
+draw z7..z8{dir gamma};
+draw z8..z9{dir mi_beta}..z10..z11{dir gamma};
+labels(range 1 thru 11);
+endchar;
+
+
+makewi(11,16ut,ang,an_bot); %A
+beginchar(196,wi/hppp,27ut#,0ut#); %AE
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=O_bogen;
+y4=y10=bas;
+y9=y11=an_bot;
+makex(1,7.5ut,ang,y1);
+makex(2,.5ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,4.5ut,ang,y4);
+makex(5,10.2ut,ang,y5);
+makex(6,12ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,16ut,ang,y8);
+makex(9,12ut,ang,y9);
+makex(10,13.5ut,ang,y10);
+makex(11,16ut,ang,y11);
+%
+draw z1{left}..z2..z3..z4{right}..z5..z6..z7;
+draw z7..z8{dir gamma};
+draw z8..z9{dir mi_beta}..z10..z11{dir gamma};
+y12=y13=top+6ut;
+makex(12,6ut,ang,y12);
+makex(13,10ut,ang,y13);
+draw z12..z12+(-.5ut,-3ut);
+draw z13..z13+(-.5ut,-3ut);
+labels(range 1 thru 13);
+endchar;
+
+
+
+makewi(13,16ut,ang,an_top); %B
+beginchar("B",wi/hppp,21ut#,0ut#); %B
+pickup su_pen;
+y1=Z_anf;
+y2=y12=mid;
+y3=y5=I_anf;
+y4=top;
+y6=y8=an_bot;
+y7=y10=bas;
+y9=L_o;
+y11=an_mid;
+y13=an_top;
+makex(1,2.5ut,ang,y1);
+makex(2,6.6ut,ang,y2);
+makex(3,10.4ut,ang,y3);
+makex(4,8.2ut,ang,y4);
+makex(5,6.7ut,ang,y5);
+makex(6,4ut,ang,y6);
+makex(7,1.7ut,ang,y7);
+makex(8,0ut,ang,y8);
+makex(9,2ut,ang,y9);
+makex(10,9ut,ang,y10);
+makex(11,13.2ut,ang,y11);
+makex(12,12.5ut,ang,y12);
+makex(13,16ut,ang,y13);
+%
+draw z1..z2{right}..z3..z4{left}..z5{dir mi_beta}..z6..z7{left}..
+ z8..z9{right}..z10{right}..z11..z12;
+draw z12..z13{right};
+labels(range 1 thru 13);
+endchar;
+
+makewi(9,13ut,ang,an_bot); %C
+beginchar("C",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=y2=top;
+y3=mid;
+y4=y6=y9=an_bot;
+y5=y8=bas;
+y7=L_o;
+makex(1,13ut,ang,y1);
+makex(2,8ut,ang,y2);
+makex(3,5ut,ang,y3);
+makex(4,4ut,ang,y4);
+makex(5,1.9ut,ang,y5);
+makex(6,0ut,ang,y6);
+makex(7,2.3ut,ang,y7);
+makex(8,9ut,ang,y8);
+makex(9,13ut,ang,y9);
+%
+draw z1{dir mi_gamma}..z2{left}..z3{dir mi_beta}..z4{dir mi_beta}..
+ z5{left}..z6..z7{right}..z8{right}..z9{dir gamma};
+labels(range 1 thru 9);
+endchar;
+
+
+makewi(12,18ut,ang,an_bot); %D
+beginchar("D",wi/hppp,14ut#,0ut#); %D
+pickup su_pen;
+y1=y5=bas;
+y2=y4=y6=an_mid;
+y3=y11=mid;
+y7=I_anf;
+y8=top;
+y9=Z_anf;
+y10=13/14mid;
+y12=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,1.3ut,ang,y2);
+makex(3,7.4ut,ang,y3);
+makex(4,9.1ut,ang,y4);
+makex(5,13.5ut,ang,y5);
+makex(6,17ut,ang,y6);
+makex(7,17.4ut,ang,y7);
+makex(8,15.2ut,ang,y8);
+makex(9,12.2ut,ang,y9);
+makex(10,16ut,ang,y10);
+makex(11,20ut,ang,y11);
+makex(12,18ut,ang,y12);
+%
+draw z1..z2{dir beta}..z3{right}..z4..z5{right}..z6{dir beta}..z7..
+ z8{left}..z9..z10{right}..z11;
+labels(range 1 thru 12);
+endchar;
+
+
+
+makewi(10,7.5ut,ang,an_mid); %E
+beginchar("E",wi/hppp,21ut#,7ut#); %E
+pickup su_pen;
+y1=y3=Z_anf;
+y2=mid;
+y5=I_anf;
+y4=top;
+y6=y8=G_bogen;
+y7=bot;
+y9=15/14an_mid;
+y10=an_mid;
+makex(1,1.9ut,ang,y1);
+makex(2,7ut,ang,y2);
+makex(3,10.6ut,ang,y3);
+makex(4,8.8ut,ang,y4);
+makex(5,6.5ut,ang,y5);
+makex(6,3.3ut,ang,y6);
+makex(7,6ut,ang,y7);
+makex(8,9.6ut,ang,y8);
+makex(9,.5ut,ang,y9);
+makex(10,7.5ut,ang,y10);
+%
+draw z1..z2{right}..z3..z4{left}..z5..z6..z7{right}..z8{dir beta};
+draw z9..z10{dir delta};
+labels(range 1 thru 10);
+endchar;
+
+
+
+makewi(9,9ut,ang,an_bot); %F
+beginchar("F",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=y2=top;
+y3=I_anf;
+y4=an_bot;
+y5=bas;
+y6=1/2an_bot;
+y7=mid-3/28mid;
+y8=mid;
+y9=an_bot;
+makex(1,17ut,ang,y1);
+makex(2,11.8ut,ang,y2);
+makex(3,9.3ut,ang,y3);
+makex(4,5.5ut,ang,y4);
+makex(5,3ut,ang,y5);
+makex(6,0ut,ang,y6);
+makex(7,5ut,ang,y7);
+makex(8,12ut,ang,y8);
+makex(9,9ut,ang,y9);
+%
+draw z1{dir mi_beta}..z2{left}..z3{dir mi_beta}..z4..z5{left}..z6;
+draw z7{right}..z8{dir beta-dir 90};
+labels(range 1 thru 9);
+endchar;
+
+
+makewi(12,21ut,ang,mid); %G
+beginchar("G",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=y12=mid;
+y3=y5=O_bogen;
+y4=bas;
+y9=y11=G_bogen;
+y10=bot;
+makex(1,7.4ut,ang,y1);
+makex(2,1.4ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,4.6ut,ang,y4);
+makex(5,10ut,ang,y5);
+makex(6,12ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,16ut,ang,y8);
+makex(9,11ut,ang,y9);
+makex(10,8.3ut,ang,y10);
+makex(11,7ut,ang,y11);
+makex(12,21ut,ang,y12);
+%
+draw z1..z2{z3-z2}..z3..z4{right}..z5{z6-z5}..z6..z7;
+draw z7..z8{dir gamma};
+draw z8{dir mi_beta}..z9{dir mi_beta}..z10{left}..z11{dir gamma}..z12{dir gamma};
+labels(range 1 thru 12);
+endchar;
+
+makewi(13,14ut,ang,an_bot); %H
+beginchar("H",wi/hppp,21ut#,7ut#); %H
+pickup su_pen;
+y3=y1=Z_anf;
+y8=mid;
+y2=mid+5/14(top-mid);
+y5=I_anf;
+y4=top;
+y6=y7=bas;
+y9=an_top;
+y10=y12=g_bogen;
+y11=bot;
+y13=an_bot;
+makex(1,2ut,ang,y1);
+makex(2,6.8ut,ang,y2);
+makex(3,10ut,ang,y3);
+makex(4,8.2ut,ang,y4);
+makex(5,6.2ut,ang,y5);
+makex(6,2.3ut,ang,y6);
+makex(7,9.3ut,ang,y7);
+makex(8,11.2ut,ang,y8);
+makex(9,13.5ut,ang,y9);
+makex(10,12ut,ang,y10);
+makex(11,9.8ut,ang,y11);
+makex(12,8.2ut,ang,y12);
+makex(13,14ut,ang,y13);
+%
+draw z1..z2{right}..z3..z4{left}..z5..z6{dir mi_beta};
+draw z6{dir beta}..z7;
+draw z7{dir mi_alpha}..z8{right}..z9..z10..z11{left}..z12..z13{dir gamma};
+labels(range 1 thru 12);
+endchar;
+
+
+makewi(7,6.5ut,ang,an_bot); %I
+beginchar("I",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=I_anf;
+y2=y3=top;
+y4=U_bogen;
+y5=bas;
+y6=1/2an_bot;
+y7=an_bot;
+makex(1,1ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,9ut,ang,y3);
+makex(4,6.7ut,ang,y4);
+makex(5,3.5ut,ang,y5);
+makex(6,0ut,ang,y6);
+makex(7,6.5ut,ang,y7);
+%
+draw z1{dir beta}..z2{right}..z3{dir gamma};
+draw z3{dir mi_beta}..z4{dir mi_beta}..z5{left}..z6;
+labels(range 1 thru 7);
+endchar;
+
+
+makewi(7,7.3ut,ang,an_bot); %J
+beginchar("J",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=I_anf;
+y2=y3=top;
+y4=y6=g_bogen;
+y5=bot;
+y7=an_bot;
+makex(1,1ut,ang,y1);
+makex(2,4ut,ang,y2);
+makex(3,9.5ut,ang,y3);
+makex(4,5.7ut,ang,y4);
+makex(5,3.6ut,ang,y5);
+makex(6,2.4ut,ang,y6);
+makex(7,7.3ut,ang,y7);
+%
+draw z1{dir beta}..z2{right}..z3{dir gamma};
+draw z3{dir mi_beta}..z4{dir mi_beta}..z5{left}..z6{dir beta}..z7{dir gamma};
+labels(range 1 thru 7);
+endchar;
+
+makewi(14,18ut,ang,an_bot); %K
+beginchar("K",wi/hppp,21ut#,0ut#); %K
+pickup su_pen;
+y1=y2=top;
+y3=I_anf;
+y4=y6=y12=y14=an_bot;
+y5=y13=bas;
+y7=y11=an_mid;
+y8=Z_anf;
+y9=mid;
+y10=1/2(mid-an_mid)+an_mid;
+makex(1,16.5ut,ang,y1);
+makex(2,11.5ut,ang,y2);
+makex(3,9ut,ang,y3);
+makex(4,5ut,ang,y4);
+makex(5,2.7ut,ang,y5);
+makex(6,.4ut,ang,y6);
+makex(7,0ut,ang,y7);
+makex(8,13ut,ang,y8);
+makex(9,14.3ut,ang,y9);
+makex(10,10ut,ang,y10);
+makex(11,12.7ut,ang,y11);
+makex(12,13.8ut,ang,y12);
+makex(13,15.9ut,ang,y13);
+makex(14,18ut,ang,y14);
+%
+draw z1{dir mi_beta}..z2{left}..z3{dir mi_beta}..z4..z5{left}..z6..z7{dir beta}..
+ z8{dir beta-dir 90}..z9{dir mi_beta}..z10{left};
+draw z10{right}..z11..z12..z13{right}..z14{dir gamma};
+labels(range 1 thru 14);
+endchar;
+
+makewi(11,13ut,ang,an_bot); %L
+beginchar("L",wi/hppp,21ut#,0ut#); %L
+pickup su_pen;
+y1=Z_anf;
+y2=mid;
+y3=y5=I_anf;
+y4=top;
+y6=y8=y11=an_bot;
+y7=y10=bas;
+y9=L_o;
+makex(1,2.4ut,ang,y1);
+makex(2,6.5ut,ang,y2);
+makex(3,10.2ut,ang,y3);
+makex(4,8.1ut,ang,y4);
+makex(5,6.5ut,ang,y5);
+makex(6,4ut,ang,y6);
+makex(7,1.7ut,ang,y7);
+makex(8,0ut,ang,y8);
+makex(9,2.4ut,ang,y9);
+makex(10,9ut,ang,y10);
+makex(11,13ut,ang,y11);
+%
+draw z1..z2{right}..z3..z4{left}..z5{dir mi_beta}..z6..
+ z7{left}..z8..z9{right}..z10{right}..z11{dir gamma};
+labels(range 1 thru 11);
+endchar;
+
+
+
+makewi(18,28ut,ang,an_bot); %M
+beginchar("M",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=y8=y14=y15=top;
+y3=y7=y9=y13=I_anf;
+y4=y6=y10=y18=an_bot;
+y12=3/2an_bot;
+y5=y11=y17=bas;
+y16=U_bogen;
+makex(1,1ut,ang,y1);
+makex(2,5.2ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,4.1ut,ang,y5);
+makex(6,2ut,ang,y6);
+makex(7,6.3ut,ang,y7);
+makex(8,12.2ut,ang,y8);
+makex(9,16.1ut,ang,y9);
+makex(10,16.5ut,ang,y10);
+makex(11,13.8ut,ang,y11);
+makex(12,11.6ut,ang,y12);
+makex(13,17.2ut,ang,y13);
+makex(14,20.5ut,ang,y14);
+makex(15,26.7ut,ang,y15);
+makex(16,23.5ut,ang,y16);
+makex(17,25.0ut,ang,y17);
+makex(18,28ut,ang,y18);
+%
+draw z1..z2{right}..z3..z4{dir mi_beta}..z5{left}..z6..z7..z8{right}..
+ z9..z10..z11{left}..z12..z13..z14{right}..z15{dir gamma};
+draw z15{dir mi_beta}..z16{dir mi_beta}..z17{right}..z18{dir gamma};
+labels(range 1 thru 18);
+endchar;
+
+
+makewi(12,16ut,ang,an_bot); %N
+beginchar("N",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=y8=y9=top;
+y3=y7=I_anf;
+y4=y6=y12=an_bot;
+y5=y11=bas;
+y10=U_bogen;
+makex(1,1ut,ang,y1);
+makex(2,5.2ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,6.3ut,ang,y4);
+makex(5,4.2ut,ang,y5);
+makex(6,1.5ut,ang,y6);
+makex(7,6ut,ang,y7);
+makex(8,10.3ut,ang,y8);
+makex(9,15.4ut,ang,y9);
+makex(10,12.3ut,ang,y10);
+makex(11,13.5ut,ang,y11);
+makex(12,16ut,ang,y12);
+%
+draw z1..z2{right}..z3..z4{dir mi_beta}..z5{left}
+ ..z6..z7{dir gamma}..z8{right}..z9{dir gamma};
+draw z9{dir mi_beta}..z10{dir mi_beta}..z11{right}..z12{dir gamma};
+labels(range 1 thru 12);
+endchar;
+
+
+makewi(5,11ut,ang,an_bot); %O
+beginchar("O",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=O_bogen;
+y4=bas;
+makex(1,7.5ut,ang,y1);
+makex(2,1.3ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,4.5ut,ang,y4);
+makex(5,11ut,ang,y5);
+makex(6,11.8ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,17ut,ang,y8);
+%
+draw z1{dir mi_gamma-dir 10}..z2..z3..z4{right}..z5..z6..z7;
+draw z7..z8{dir gamma};
+labels(range 1 thru 8);
+endchar;
+
+
+makewi(5,11ut,ang,an_bot); %OE
+beginchar(214,wi/hppp,27ut#,0ut#);
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=O_bogen;
+y4=bas;
+makex(1,7.5ut,ang,y1);
+makex(2,1.3ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,4.5ut,ang,y4);
+makex(5,11ut,ang,y5);
+makex(6,11.8ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,17ut,ang,y8);
+%
+draw z1{dir mi_gamma-dir 10}..z2..z3..z4{right}..z5..z6..z7;
+draw z7..z8{dir gamma};
+y12=y13=top+6ut;
+makex(12,6ut,ang,y12);
+makex(13,10ut,ang,y13);
+draw z12..z12+(-.5ut,-3ut);
+draw z13..z13+(-.5ut,-3ut);
+labels(range 1 thru 8,12,13);
+endchar;
+
+makewi(11,10.3ut,ang,an_bot); %P
+beginchar("P",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=I_anf;
+y2=y4=y7=top;
+y5=bot;
+y6=mid;
+y8=Z_anf;
+y9=y10=3/2an_bot;
+y11=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,2ut,ang,y2);
+makex(4,9ut,ang,y4);
+makex(5,4.6ut,ang,y5);
+makex(6,8ut,ang,y6);
+makex(7,14.7ut,ang,y7);
+makex(8,17.4ut,ang,y8);
+makex(9,6.2ut,ang,y9);
+makex(10,3ut,ang,y10);
+makex(11,10.3ut,ang,y11);
+%
+draw z1{dir beta}..z2{right}..z4{dir gamma};
+draw z4{dir mi_beta}..z5;
+draw z6{dir beta}..z7{right}..z8{dir mi_beta}..z9;
+draw z10..z11{dir gamma};
+labels(range 1 thru 11);
+endchar;
+
+
+makewi(10,13ut,ang,an_bot); %Q
+beginchar("Q",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=y7=y8=top;
+y2=y6=mid;
+y3=y5=O_bogen;
+y4=bas;
+y9=bot;
+makex(1,7.5ut,ang,y1);
+makex(2,1.5ut,ang,y2);
+makex(3,0ut,ang,y3);
+makex(4,4.6ut,ang,y4);
+makex(5,11ut,ang,y5);
+makex(6,11.8ut,ang,y6);
+makex(7,9ut,ang,y7);
+makex(8,16ut,ang,y8);
+makex(9,11.5ut,ang,y9);
+%
+draw z1{dir mi_gamma-dir 10}..z2..z3..z4{right}..z5..z6{z6-z5}..z7;
+draw z7..z8{dir gamma};
+draw z8..z9;
+labels(range 1 thru 10);
+endchar;
+
+makewi(13,17.5ut,ang,an_bot); %R
+beginchar("R",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=y7=top;
+y3=y5=y11=y13=an_bot;
+y4=y12=bas;
+y6=y23=y8=I_anf;
+y9=mid;
+y10=an_top;
+makex(1,1ut,ang,y1);
+makex(2,4.8ut,ang,y2);
+makex(23,7ut,ang,y23);
+makex(3,6.3ut,ang,y3);
+makex(4,4ut,ang,y4);
+makex(5,1.7ut,ang,y5);
+makex(6,5.8ut,ang,y6);
+makex(7,10.5ut,ang,y7);
+makex(8,14.3ut,ang,y8);
+makex(9,8ut,ang,y9);
+makex(10,10.7ut,ang,y10);
+makex(11,13.5ut,ang,y11);
+makex(12,15.5ut,ang,y12);
+makex(13,17.5ut,ang,y13);
+%
+draw z1{dir beta}..z2{right}..z23..z3{dir mi_beta}..z4{left}..z5..z6..
+ z7{right}..z8{dir mi_beta}..z9{left};
+draw z9{right}..z10{z11-z10}..z11..z12{right}..z13{dir gamma};
+labels(range 1 thru 13,23);
+endchar;
+
+
+makewi(10,8ut,ang,an_bot); %S
+beginchar("S",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=y8=y9=top;
+y3=y7=I_anf;
+y4=y6=an_bot;
+y5=y10=bas;
+y11=5/7an_mid;
+y12=an_mid;
+makex(1,1ut,ang,y1);
+makex(2,5ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,4.ut,ang,y5);
+makex(6,1.3ut,ang,y6);
+makex(7,6ut,ang,y7);
+makex(8,10.2ut,ang,y8);
+makex(9,15.7ut,ang,y9);
+makex(10,12ut,ang,y10);
+makex(11,10ut,ang,y11);
+makex(12,17ut,ang,y12);
+%
+draw z1{dir beta}..z2{right}..z3..z4{dir mi_beta}..z5{left}..z6..z7..z8{right}..z9{dir gamma};
+labels(range 1 thru 9);
+endchar;
+
+
+makewi(6,13ut,ang,an_mid); %T
+beginchar("T",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=I_anf;
+y2=y3=top;
+y4=bas;
+y5=6/7an_mid;
+y6=an_mid;
+makex(1,1.3ut,ang,y1);
+makex(2,3.5ut,ang,y2);
+makex(3,9.5ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,4ut,ang,y5);
+makex(6,13ut,ang,y6);
+%
+draw z1{dir beta}..z2{right}..z3{dir gamma};
+draw z3..z4;
+draw z5..z6{dir delta};
+labels(range 1 thru 6);
+endchar;
+
+
+makewi(12,17ut,ang,an_bot); %ST
+beginchar(29,wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=y8=y9=top;
+y3=y7=I_anf;
+y4=y6=an_bot;
+y5=y10=bas;
+y11=5/7an_mid;
+y12=an_mid;
+makex(1,1ut,ang,y1);
+makex(2,5ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,6ut,ang,y4);
+makex(5,4.ut,ang,y5);
+makex(6,1.3ut,ang,y6);
+makex(7,6ut,ang,y7);
+makex(8,10.2ut,ang,y8);
+makex(9,15.7ut,ang,y9);
+makex(10,12ut,ang,y10);
+makex(11,10ut,ang,y11);
+makex(12,17ut,ang,y12);
+%
+draw z1{dir beta}..z2{right}..z3..z4{dir mi_beta}..z5{left}..z6..z7..z8{right}..z9{dir gamma};
+draw z9..z10;
+draw z11..z12{dir delta};
+labels(range 1 thru 12);
+endchar;
+
+
+
+makewi(11,16ut,ang,an_bot); %U
+beginchar("U",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=y3=Z_anf;
+y2=y7=y8=top;
+y4=y6=y9=U_bogen;
+y5=y10=bas;
+y11=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,4.2ut,ang,y3);
+makex(4,1.2ut,ang,y4);
+makex(5,4ut,ang,y5);
+makex(6,9ut,ang,y6);
+makex(7,12ut,ang,y7);
+makex(8,16ut,ang,y8);
+makex(9,12.6ut,ang,y9);
+makex(10,14ut,ang,y10);
+makex(11,16ut,ang,y11);
+%
+draw z1{dir beta}..z2{right}..z3{dir mi_beta}..z4{dir mi_beta}..z5{right}..z6..z7{dir beta};
+draw z7..z8{dir beta};
+draw z8{dir mi_beta}..z9{dir mi_beta}..z10{right}..z11{dir gamma};
+labels(range 1 thru 11);
+endchar;
+
+makewi(11,16ut,ang,an_bot); %UE
+beginchar(220,wi/hppp,27ut#,0ut#);
+pickup su_pen;
+y1=y3=Z_anf;
+y2=y7=y8=top;
+y4=y6=y9=U_bogen;
+y5=y10=bas;
+y11=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,3ut,ang,y2);
+makex(3,4.2ut,ang,y3);
+makex(4,1.2ut,ang,y4);
+makex(5,4ut,ang,y5);
+makex(6,9ut,ang,y6);
+makex(7,12ut,ang,y7);
+makex(8,16ut,ang,y8);
+makex(9,12.6ut,ang,y9);
+makex(10,14ut,ang,y10);
+makex(11,16ut,ang,y11);
+%
+draw z1{dir beta}..z2{right}..z3{dir mi_beta}..z4{dir mi_beta}..z5{right}..z6..z7{dir beta};
+draw z7..z8{dir beta};
+draw z8{dir mi_beta}..z9{dir mi_beta}..z10{right}..z11{dir gamma};
+y12=y13=top+6ut;
+makex(12,6ut,ang,y12);
+makex(13,10ut,ang,y13);
+draw z12..z12+(-.5ut,-3ut);
+draw z13..z13+(-.5ut,-3ut);
+labels(range 1 thru 13);
+endchar;
+
+
+
+makewi(9,12ut,ang,an_bot); %V
+beginchar("V",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=y3=y6=y8=Z_anf;
+y2=y7=top;
+y4=y5=bas;
+makex(1,0ut,ang,y1);
+makex(2,4.3ut,ang,y2);
+makex(3,6.3ut,ang,y3);
+makex(4,3ut,ang,y4);
+makex(5,10.2ut,ang,y5);
+makex(6,9ut,ang,y6);
+makex(7,11.7ut,ang,y7);
+makex(8,14ut,ang,y8);
+%
+draw z1{dir gamma}..z2{right}..z3{dir mi_beta}..z4{dir mi_beta};
+draw z4{dir beta}..z5{z5-z3};
+draw z5{z3-z5}..z6{dir beta}..z7{right}..z8..z5;
+labels(range 1 thru 8);
+endchar;
+
+
+makewi(11,18ut,ang,bas); %W
+beginchar("W",wi/hppp,21ut#,0ut#);
+pickup su_pen;
+y1=Z_anf; y67=y112=mid;
+y2=y8=y13=top;
+y3=y7=y9=y12=y14=I_anf;
+y4=y6=an_bot;
+y5=y10=y11=bas;
+makex(1,1ut,ang,y1); makex(67,2.5ut,ang,y67);
+makex(2,5ut,ang,y2); makex(112,15.5ut,ang,y112);
+makex(3,7.5ut,ang,y3);
+makex(4,6.4ut,ang,y4);
+makex(5,4ut,ang,y5);
+makex(6,1.7ut,ang,y6);
+makex(7,5.2ut,ang,y7);
+makex(8,10.5ut,ang,y8);
+makex(9,13.4ut,ang,y9);
+makex(10,10ut,ang,y10);
+makex(11,16ut,ang,y11);
+makex(12,15.9ut,ang,y12);
+makex(13,19ut,ang,y13);
+makex(14,21.5ut,ang,y14);
+%
+draw z1..z2{right}..z3..z4..z5{left}..z6..z67..z7..z8{right}..z9..z10{dir mi_beta};
+draw z10{dir beta}..z11;
+draw z11..z112..z12..z13{right}..z14..z11;
+labels(range 1 thru 14,67,112);
+endchar;
+
+
+
+makewi(14,13ut,ang,an_bot); %X
+beginchar("X",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=y3=Z_anf;
+y2=y10=top;
+y4=y6=y12=U_bogen;
+y5=y13=bas;
+y7=an_mid;
+y8=mid;
+y9=y11=I_anf;
+y14=an_bot;
+makex(1,2.7ut,ang,y1);
+makex(2,6ut,ang,y2);
+makex(3,8ut,ang,y3);
+makex(4,5.7ut,ang,y4);
+makex(5,3.7ut,ang,y5);
+makex(6,1.3ut,ang,y6);
+makex(7,1ut,ang,y7);
+makex(8,9.2ut,ang,y8);
+makex(9,15ut,ang,y9);
+makex(10,13ut,ang,y10);
+makex(11,10.2ut,ang,y11);
+makex(12,8ut,ang,y12);
+makex(13,10ut,ang,y13);
+makex(14,13ut,ang,y14);
+%
+draw z1{dir beta}..z2{right}..z3{z4-z3}..z4..z5{left}..z6..z7{dir beta}
+ ..z8..z9{dir beta}..z10{left}..z11{dir mi_beta}..z12{dir mi_beta}..z13{right}..z14{dir gamma};
+labels(range 1 thru 14);
+endchar;
+
+
+makewi(12,15.8ut,ang,an_bot); %Y
+beginchar("Y",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=y7=top;
+y3=y6=y8=I_anf;
+y4=y5=bas;
+y9=y11=g_bogen;
+y10=bot;
+y12=an_bot;
+makex(1,0ut,ang,y1);
+makex(2,5.5ut,ang,y2);
+makex(3,7ut,ang,y3);
+makex(4,3.2ut,ang,y4);
+makex(5,9.8ut,ang,y5);
+makex(6,9ut,ang,y6);
+makex(7,11.8ut,ang,y7);
+makex(8,14.3ut,ang,y8);
+makex(9,13.3ut,ang,y9);
+makex(10,11.2ut,ang,y10);
+makex(11,10ut,ang,y11);
+makex(12,15.8ut,ang,y12);
+%
+draw z1{dir beta}..z2{right}..z3{dir mi_beta}..z4{dir mi_beta};
+draw z4{dir beta}..z5;
+draw z5..z6{dir beta}..z7{right}..z8..z9{dir mi_beta}..z10{left}..z11{dir beta}..z12{dir gamma};
+labels(range 1 thru 12);
+endchar;
+
+makewi(7,10.5ut,ang,an_mid); %Z
+beginchar("Z",wi/hppp,21ut#,7ut#);
+pickup su_pen;
+y1=Z_anf;
+y2=top;
+y3=11/14*mid;
+y4=y6=g_bogen;
+y5=bot;
+y7=an_mid;
+makex(1,1ut,ang,y1);
+makex(2,5.5ut,ang,y2);
+makex(3,3.5ut,ang,y3);
+makex(4,2ut,ang,y4);
+makex(5,3.5ut,ang,y5);
+makex(6,6.3ut,ang,y6);
+makex(7,10.5ut,ang,y7);
+%
+draw z1{dir beta}..z2{right}..z3{left};
+draw z3{right}..z6..z5{left}..z4..{dir delta}z7;
+labels(range 1 thru 7);
+endchar;
+
diff --git a/fonts/gothic/sueterlin/suet.pdf b/fonts/gothic/sueterlin/suet.pdf
new file mode 100644
index 0000000000..90ab433c9d
--- /dev/null
+++ b/fonts/gothic/sueterlin/suet.pdf
Binary files differ
diff --git a/fonts/gothic/sueterlin/suet.tex b/fonts/gothic/sueterlin/suet.tex
new file mode 100644
index 0000000000..ee61fb3b02
--- /dev/null
+++ b/fonts/gothic/sueterlin/suet.tex
@@ -0,0 +1,90 @@
+\documentstyle[12pt]{article}
+\newfont{\suet}{suet14}
+\newfont{\schwell}{schwell}
+\newfont{\schwellv}{schwell scaled \magstep5}
+\newfont{\suetv}{suet14 scaled \magstep5}
+\parindent=0pt\addtolength{\textwidth}{2cm}\addtolength{\textheight}{2cm}
+\setlength{\hoffset}{-1cm}\setlength{\voffset}{-1cm}
+\sloppy\frenchspacing
+\pagestyle{empty}
+
+\begin{document}
+
+\begin{center}
+{\Large Deutsche Schreibschrift in \TeX{}}
+\end{center}
+
+Der deutsche P\"adagoge und Grafiker Ludwig S\"utterlin (1865-1917) schuf
+die nach ihm benannte ``S\"utterlin-Schrift''.
+
+ Die Schrift wurde 1915 in Preu\ss{}en und sp\"ater auch in anderen
+deutschen L\"andern an den Schulen eingef\"uhrt. Die kurze Bl\"utezeit der
+S\"utterlin-Schrift endete schon 1942 mit der Einf\"uhrung der Lateinischen
+Schreibschrift an den deutschen Schulen.
+
+ Heute wird die S\"utterlin-Schrift an unseren Schulen bestenfalls
+im Kunstunterricht gelehrt.
+
+ F\"ur den \TeX{}-Freund ist diese Schrift, wie auch andere
+Schreibschriften, eine interessante Anwendung der erweiterten Ligaturen von
+\TeX{} 3.x bzw. METAFONT 2.x. Buchstabenverbindungen und Sonderbehandlungen am
+Ende eines Wortes lassen sich relativ einfach meistern.
+Lediglich das lange s am Ende einer Silbe erfordert einen ``Eingriff von Hand''.
+
+ Die Schrift ``SUET14'' ist die eigentliche Grundform der deutschen
+Schreibschrift. Hier wurde eine Feder mit einer runden Spitze verwendet;
+die grobe Richtung der Schrift ist fast aufrecht.
+
+ Bei der Schrift ``SCHWELL'' wurde der Versuch gemacht, die Schrift durch
+die Ver\"anderung einiger Winkel zu neigen, und Unter- und Oberl\"angen
+mehr zu betonen. Zus\"atzlich wurde eine breite schr\"aggestellte Feder
+benutzt, um den sogenannten Schwellzug nachzuahmen.
+
+ In der Hoffnung, da\ss{} der Zeichensatzvorschlag von Cork recht bald
+zum neuen Standard wird, sind die Sonderzeichen nach diesem Schema kodiert. Das
+hat zur Folge, da\ss{} die Eingabe zur Zeit noch sehr gew\"ohnungsbed\"urftig
+ist (z.B. \verb+^^ff+ f\"ur \ss{} und \verb+^^fc+ f\"ur \"u).
+Der \TeX{}-Kenner hat hier aber auch elegantere L\"osungen in seiner Trickkiste.
+
+\bigskip
+ Hier noch einige Beispiele:
+\bigskip
+
+
+\baselineskip=20pt
+
+SUET14, magstep 0
+
+{\suet Schrift Fahne F^^e4hnchen b^^f6se Boot Dach Au^^1cgang Stadt Katze
+Aschenkasten ^^d6ffentlichkeit ^^c4rgernis ^^dcbelkeit B^^fcttenpapier}
+
+\medskip
+
+
+
+SCHWELL, magstep 0
+
+
+{\schwell Schrift Fahne F^^e4hnchen b^^f6se Boot Dach Au^^1cgang Stadt Katze
+Aschenkasten ^^d6ffentlichkeit ^^c4rgernis ^^dcbelkeit B^^fcttenpapier}
+
+
+\newpage
+
+SUET14, magstep 5
+
+\baselineskip=54pt
+
+{\suetv Schrift Fahne F^^e4hnchen b^^f6se Boot Dach Au^^1cgang Stadt Katze
+Aschenkasten ^^d6ffentlichkeit ^^c4rgernis ^^dcbelkeit B^^fcttenpapier}
+
+\medskip
+
+
+SCHWELL, magstep 5
+
+{\schwellv Schrift Fahne F^^e4hnchen b^^f6se Boot Dach Au^^1cgang Stadt Katze
+Aschenkasten ^^d6ffentlichkeit ^^c4rgernis ^^dcbelkeit B^^fcttenpapier}
+
+\end{document}
+
diff --git a/fonts/gothic/sueterlin/suet14.mf b/fonts/gothic/sueterlin/suet14.mf
new file mode 100644
index 0000000000..b0ab5d24cd
--- /dev/null
+++ b/fonts/gothic/sueterlin/suet14.mf
@@ -0,0 +1,97 @@
+% SUET Zeichensatz
+%
+%
+% ---------------------
+%
+% Wuensche, Fehler und Anregungen bitte an:
+%
+% B. Ludewig, Uni Siegen, HRZ, Hoelderlinstr. 3, 5900 Siegen.
+%
+% Ludewig@hrz.uni-siegen.dbp.de
+% oder
+% GZ006@DSIHRZ51.BITNET
+%
+% plain
+
+font_identifier "SUET14"; font_size 14pt#;
+font_coding_scheme:="SUETTERLIN Text";
+
+mode_setup;
+boolean serifs,monospace;
+%
+xpt#:=pt#;
+monospace:=false;
+serifs:=true;
+%
+ut#:=0.4;
+ut=ut#*hppp;
+% % <-----hier kann gedreht werden
+numeric top,mid,base,bot,an_top,an_mid,an_bot,ang;
+numeric Z_anf,I_anf,o_bogen,L_o,U_bogen,g_bogen,G_bogen,z_bogen;
+numeric alpha,beta,gamma,delta,mi_alpha,mi_beta,mi_gamma,mi_delta;
+ang:=0;
+alpha=-45-ang;mi_alpha=-45+180-ang;
+beta=80-ang;mi_beta=80+180-ang;
+gamma=50-ang;mi_gamma=50+180-ang;
+delta=30-ang;mi_delta=30+180-ang;
+%
+%
+top:=21ut; mid:=14ut; bas:=0ut; bot:=-7ut;
+%
+an_top=12ut; an_mid=7ut; an_bot=2ut;
+%
+Z_anf=17ut; I_anf=18ut; O_bogen=5ut; L_o=4.5ut; U_bogen=3ut;
+g_bogen=-5ut; G_bogen=-4ut;z_bogen=-3ut;
+%
+pen su_pen;
+su_pen := pencircle xscaled 1.2ut yscaled 1.2ut;
+
+pen su_pen_small;
+%su_pen_small := pencircle scaled 1.51ut;
+su_pen_small := pencircle scaled 1.31ut;
+
+pen su_pen_big;
+su_pen_big := pencircle scaled 4.51ut;
+
+def makex(suffix i)(expr xnull,ang,yy)=
+ if yy=0: wi:=x.i:=xnull;
+ else: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull; fi
+enddef;
+
+def makewi(suffix i)(expr xnull,ang,yy)=
+ if yy=0: wi:=x.i:=xnull;
+ else: wi:=x.i:=((sind ang*yy)/cosd ang)+xnull; fi
+enddef;
+
+def makebox (text r) =
+ for y=-7ut step 1ut until 21ut: r((0,y),(28ut,y)); endfor;
+ for x=-2ut step 1ut until 28ut: r((x,-7ut),(x,21ut)); endfor;
+ for y=bas+.5,bas-.5,an_bot+.5,an_mid+.5,an_top+.5,mid-.5,mid+.5,
+ Z_anf,Z_anf+.5,I_anf,I_anf+.5,O_bogen,O_bogen+.5,L_o,L_o+.5,
+ U_bogen,U_bogen+.5,g_bogen,g_bogen+.5,G_bogen,G_bogen+.5,
+ z_bogen,z_bogen+.5: r((0,y),(28ut,y)); endfor;
+ z90=(32ut,mid);makelabel("mid",z90);makelabel("top",(32ut,top));
+ makelabel("an_mid",(32ut,an_mid));makelabel("an_bot",(32ut,an_bot));
+ makelabel("an_top",(32ut,an_top));makelabel("bot",(32ut,bot));
+ makelabel("Z_anf",(32ut,Z_anf)); makelabel("I_anf",(32ut,I_anf));
+ makelabel("O_bo",(32ut,O_bogen)); makelabel("L_o",(32ut,L_o));
+ makelabel("U_bo",(32ut,U_bogen)); makelabel("g_bo",(32ut,g_bogen));
+ makelabel("G_bo",(32ut,G_bogen)); makelabel("z_bo",(32ut,z_bogen));
+ makelabel("0",(0,24ut)); makelabel("5",(5ut,24ut)); makelabel("10",(10ut,24ut));
+ makelabel("15",(15ut,24ut)); makelabel("20",(20ut,24ut));
+ makelabel("25",(25ut,24ut));
+ makelabel(str[w],(w,-10ut));
+enddef;
+
+%
+input su-low;
+input su-spec;
+input su-upp;
+%
+font_quad 33pt#;
+font_normal_space 6.6pt#;
+font_normal_stretch 3pt#;
+font_normal_shrink 1pt#;
+%
+input su-lig;
+end.
diff --git a/fonts/gothic/yfrak/yfrabase.mf b/fonts/gothic/yfrak/yfrabase.mf
new file mode 100644
index 0000000000..d7a84eebc2
--- /dev/null
+++ b/fonts/gothic/yfrak/yfrabase.mf
@@ -0,0 +1,73 @@
+def n_foot(suffix $) =
+w':=7.806u; penpos$.1(hair,90); penpos$.2(hair,0);
+penpos$.3(hair,-90);
+y$.1=y$.3=0.5foot; y$.2=-apex_o;
+x$.1=x$l-1/20w'; x$.3=x$r+1/20w';
+x$.2=x$;
+filldraw z$.2r{dir75}..z$.3r{dir15}--
+z$.3l{dir165}..z$r{up}--z$l{down}..
+z$.1r{dir195}--z$.1l{dir-15}..z$.2l{dir-65}
+--z$.2r & cycle;
+enddef;
+
+def e_umlaut(suffix $) =
+penpos$.1(2u,45); z$.1=z$;
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.2=z$.1r; z$.3=z$.1l; rt x$.4=rt x$.2; top y$.4=y$;
+draw z$.3--z$.2..z$.3..z$.4;
+enddef;
+
+def pointpoint =
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+enddef;
+
+
+
+
+def old_e_umlaut(suffix $) =
+numeric ww;
+ww:=2u; penpos$.1(hair,147);
+penpos$.2(1.5hair,90); penpos$.3(2.5hair,0);
+penpos$.4(1.2hair,-90);
+penpos$.5(hair,-147);
+penpos$.6(hair,-57); penpos$.7(hair,-57);
+z$.1=z$+(0.4ww,-0.2ww);
+z$.2l=z$-(0.111ww,0.556ww);
+z$.3l=z$-(0.5ww,apex_o);
+z$.4l=(x$,y$+0.556ww);
+z$.6-z$=whatever*dir33; x$.6r=x$+0.5ww;
+z$.5l=z$.6l; z$.7=whatever[z$,z$.6];
+x$.7=x$.3;
+penstroke z$.1e..z$.2e{left}..z$.3e{up}
+..z$.4e{right}..z$.5e;
+penstroke z$.7e--z$.6e
+enddef;
+
+def umlaut (suffix $) =
+y0=0; 0.5[x0,x0']=x$-2u;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height);
+z61=(x0+1.522stem,1.387x_height);
+z62=(x0+1.956stem,1.324x_height);
+z60'=(x0'+stem,1.090x_height);
+z61'=(x0'+1.522stem,1.387x_height);
+z62'=(x0'+1.956stem,1.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle
+enddef;
diff --git a/fonts/gothic/yfrak/yfrak.mf b/fonts/gothic/yfrak/yfrak.mf
new file mode 100644
index 0000000000..eac47e0b30
--- /dev/null
+++ b/fonts/gothic/yfrak/yfrak.mf
@@ -0,0 +1,137 @@
+if unknown cmbase: input cmbase fi
+input yfrabase; % -sl 15-3-1991
+
+font_identifier:="yfrak"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+lower_u#:=20/36pt#;
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=167/36pt#; % height of lowercase without ascenders
+%x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=7/36pt#; % lowercase hairline breadth
+%hair#:=9/36pt#; % lowercase hairline breadth
+%stem#:=25/36pt#; % lowercase stem breadth
+stem#:=24/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+%cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_hair#:=8/36pt#;
+cap_amount#:=8/36pt#;
+%cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_stem#:=32/36pt#;
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=5/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+numeric usual_right, usual_left;
+usual_right#:=0.5u#;
+usual_left#:=0.3u#;
+
+granularity:=1.01;
+%aspect_ratio:=2/3aspect_ratio;
+
+mode_setup;
+font_setup;
+cap_amount:=8/36pt;
+foot:=0.207x_height;
+num_height:=1.242x_height;
+cap_kern:=4/36pt;
+boolean ligature; ligature:=false;
+numeric alpha; alpha:=0;
+numeric coef, gencoef; gencoef:=1;
+
+%granularity:=1.01;
+
+%readfrom("yfrakbase"); % -sl 15-3-1991
+%currenttransform:=identity xscaled 1.1;
+if proofing>1: generate ycurrent; fi % switch to the driver file%
+%generate yfrakmisc;
+generate yfrakmis; % -sl 15-3-1991
+%generate yfraklower;
+generate yfraklow; % -sl 15-3-1991
+%generate yfrakupper; % switch to the driver file
+generate yfrakupp; % -sl 15-3-1991
+generate yfraknum;
+%currenttransform:=identity;
+%generate yfrakother;
+generate yfrakoth; % -sl 15-3-1991
+
+font_slant slant; font_x_height x_height#;
+font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+
+%ligtable "a": "e"=:oct"032";
+ligtable "c": "h"=:oct"205", "k"=:oct"206";
+ligtable "f": "f"=:oct"204";
+ligtable "s": ":"=:oct"215", "s"=:oct"201", "t"=:oct"202", "z"=:oct"032",
+"f"=:oct"203", "b" kern 1.03u#, "d" kern 1.03u#, "h" kern 1.03u#, "k" kern 1.03u#,
+"l" kern 1.03u#, "i" kern 0.4u#, "j" kern 0.4u#;
+ligtable "t": "z"=:oct"213";
+ligtable oct"042": "a"=:oct"212", "e"=:oct"221", "o"=:oct"232", "u"=:oct"237",
+"s"=:oct"032";
+ligtable "*": "a"=:oct"211", "e"=:oct"220", "o"=:oct"231", "u"=:oct"236";
+ligtable "`": "`"=:oct"134";
+ligtable "'": "'"=:oct"042";
+ligtable "-": "-"=:oct"173";
+ligtable oct"173": "-"=:oct"174";
+ligtable oct"201": "b" kern 1.03u#, "d" kern 1.03u#, "h" kern 1.03u#, "k" kern 1.03u#
+, "l" kern 1.03u#, "i" kern 0.4u#, "j" kern 0.4u#;
+
+end.
diff --git a/fonts/gothic/yfrak/yfrak.tfm b/fonts/gothic/yfrak/yfrak.tfm
new file mode 100644
index 0000000000..5cde435a5f
--- /dev/null
+++ b/fonts/gothic/yfrak/yfrak.tfm
Binary files differ
diff --git a/fonts/gothic/yfrak/yfraklow.mf b/fonts/gothic/yfrak/yfraklow.mf
new file mode 100644
index 0000000000..4039ed91c9
--- /dev/null
+++ b/fonts/gothic/yfrak/yfraklow.mf
@@ -0,0 +1,593 @@
+numeric nombre; nombre:= 5gencoef[1,1.155556];
+
+.cmchar "The Fraktur letter a";
+.beginchar("a",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]);
+penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51);
+penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h)));
+penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0);
+penpos12(whatever,-90); penpos11''(hair,-30);
+z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]);
+z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]);
+z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4];
+x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem;
+z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])];
+y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o;
+z10=whatever[z8l,z9l]; y10=0.228h;
+z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]);
+z11''r=(gencoef[0.78w,0.814w],-apex_o);
+z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l);
+z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r;
+z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l];
+y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7];
+penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]);
+filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r..
+z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke
+z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down}
+..z7..z10{z9-z8} & z10--z8' & cycle; .endchar;
+
+nombre:= 4.722gencoef[1,1.129412];
+
+.cmchar "The Fraktur letter b";
+.beginchar("b",nombre*lower_u#,1.376x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(stem,0);
+z1=(gencoef[0.241w,0.208w],gencoef[foot,0.322x_height]); z2=(x1,x_height);
+z3=(1/4[x2l,x2r],x_height+gencoef[foot,0.9foot]); z3'=(x2r,gencoef[y3,y2r]);
+z3''=(x2l,gencoef[0.633(y3-y2)+y2,y2l]); penpos4(gencoef[hair,2hair],74);
+z4=(gencoef[0.5x2l,0],gencoef[1.259x_height,1.205x_height]);
+penpos5(gencoef[hair,1.5hair],-90); z5l=(x2r+gencoef[0.875stem,0.396w],h);
+penstroke z1e--z2e; filldraw z2l--z3''{up}..z4l--z4r--
+z3{dir45}..z5l{right}--z5r{left} ...z3'{down}--z2r--z2l & cycle;
+penpos5'(gencoef[hair,1.5hair],gencoef[-40,-90]);
+z5'l=(0,gencoef[0.097x_height,0.219x_height]); penpos6(hair,gencoef[-42,-30]);
+penpos7(hair,gencoef[-42,-30]); z6r=(gencoef[0.441w,0.521w],-apex_o);
+z7-z6=whatever*((w,gencoef[0.36x_height,0.479x_height])-z6);
+x7=gencoef[0.653w,0.698w]; z6'=whatever[z6,z7]; y6'=gencoef[y6l+apex_o,y6l];
+penpos8(1.167stem,42); z8r=(w,gencoef[0.545x_height,0.664x_height]);
+penpos11(hair,gencoef[-42,-61]); penpos10(hair,gencoef[-42,-61]);
+z10l=(gencoef[x8l,0.729w],x_height+apex_o);
+z10-z11=whatever*(z7-z6-(0,gencoef[0,0.1x_height])); x11=x1;
+penpos9(5/4stem,angle(z10-z11)); z9=whatever[z11l,z10l];
+y9r=y10l+gencoef[-apex_o,0]; penstroke z11e--z10e; penstroke
+z6e---z7e...z8e{up}.. z9e; filldraw z5'l..z1l{up}--z1r--z7l--
+z6'{dir138}..z5'r--z5'l & cycle; .endchar;
+
+nombre:= 3.639gencoef[1,1.145038];
+
+.cmchar "The Fraktur letter c";
+.beginchar("c",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(gencoef[hair,1.5hair],gencoef[-30,-48]); penpos2(gencoef[hair,1.5hair],
+gencoef[-30,-48]);
+z2-z1=whatever*((w,gencoef[0.78h,0.5h]));
+z1r=(gencoef[0.565w,0.586667w],-apex_o); x2r=w; z1'=whatever[z1,z2];
+y1'=gencoef[y1l+apex_o,y1r]; x1':=gencoef[x1',x1r]; z3=whatever[z1l,z2l];
+x3=gencoef[0.809w,x2l]; z4=(gencoef[2/3w,0.64w],0.176h);
+penpos5(1.083stem,angle((w,gencoef[0.4h,0.452h])));
+z5=(gencoef[0.26w,0.226667w],0.214h); penpos6(stem,0); z6l=(0,0.5h);
+penpos9(gencoef[hair,1.5hair],gencoef[-68,-22]);
+penpos8(gencoef[hair,1.5hair],gencoef[-68,-22]);
+penpos8.5(gencoef[hair,1.5hair],gencoef[-68,-22]);
+z9l=(gencoef[0.832w,0.546667w],h+apex_o);
+z9-z8=whatever*((w,gencoef[0.25h,0.404h])); x8l=gencoef[0.458w,0.2666w];
+z7=whatever[z8l,z9l]; x7=gencoef[0.145w,x8l];
+penpos10(gencoef[stem,1.3stem],angle((w,gencoef[0.25h,0.883562h])));
+z10r=whatever[z9l,z9r]; x10r=w+gencoef[0,apex_o]; z10l-z8.5=whatever*(z10r-z9);
+z8.5=whatever[z8,z9]; penstroke z1e--z2e; filldraw z1'..z5l..z6l{up}--z6r{down}
+..z5r..z4..z3{z2-z1}--z2l--z2r--z1' & cycle; filldraw z6l{up}..z7 &
+z7--z9l--z10r-- z10l--z8.5r & z8.5r{z8-z9}..(x6r,0.738h)..z6r{down}-- z6l &
+cycle; .endchar;
+
+nombre:= 4.944gencoef[1,1.073034];
+
+.cmchar "The Fraktur letter d";
+.beginchar("d",nombre*lower_u#,gencoef[1.269x_height#,1.37x_height#],0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(stem,0);
+z1=(gencoef[0.227w,0.2094w],gencoef[foot,0.274x_height]); z1'=(x1r,foot);
+z2=(x1,gencoef[0.817x_height,0.795x_height]); penpos4(hair,-90);
+z4=(gencoef[0.5x1l,0],gencoef[0.11x_height,0.188x_height]); penpos5(hair,-38);
+z5r=(gencoef[x1r+0.7stem,0.6073w],-apex_o);
+penpos6(whatever,gencoef[-18,-38]);
+z6l-z5l=whatever*((w,gencoef[0.356x_height,x_height]));
+z6r-z5r=whatever*((w,gencoef[0.356x_height,x_height]));
+z6-z1'=whatever*((w,gencoef[-0.2x_height,-0.1x_height]));
+penpos7(gencoef[1.271stem,0.65stem],gencoef[50,39]); z7r=(w,0.579x_height);
+penpos8(stem,angle((w,1.04h))); z8=(gencoef[0.545w,0.52w],0.959x_height);
+penpos9(gencoef[0.946stem,0.8stem],25);
+z9l=(gencoef[0,-2apex_o],gencoef[1.093x_height,1.178x_height]);
+z10=(gencoef[0.303w,0.209w],h); penpos11(hair,-90);
+z11l=gencoef[(0.416w,h-apex_o),z10]; penpos3(hair,-57);
+z3=z8;
+%z3l-z2l=whatever*((w,gencoef[0.39x_height,0.198x_height]));
+%y3l=x_height-gencoef[2apex_o,0.075x_height];
+%y3l=x_height-2apex_o;
+penstroke z1e--z2e; penstroke
+z5e---z6e...z7e{up}..z8e ..z9e{up}; filldraw z2l--z3l--z3r{z2l-z3l}..
+z2r{down}--z2l & cycle; filldraw z4r..{z5r-z5l}z5r--z6--z1'--z1r--
+z1l{down}..z4l--z4r & cycle; filldraw z9l{up}..z10{right}..z11l
+--z11r{left}..z9r{down}--z9l & cycle; .endchar;
+
+nombre:= 3.65gencoef[1,1.230769];
+
+.cmchar "The Fraktur letter e";
+.beginchar("e",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1l=(0,0.486h);
+penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]);
+penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]);
+z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w];
+x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8];
+y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l];
+x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h);
+penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69);
+y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h);
+z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0];
+z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6));
+z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e;
+filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69);
+z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w];
+z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e;
+filldraw z7'{dir135}..z1l{up}..z2 &
+z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10
+..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e; .endchar;
+
+.cmchar "The Fraktur letter f";
+.beginchar("f",4.539lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#);
+w':=w; penpos1.1(hair,0); z1.1=(0.318w',-d); penpos1.2(1.313stem,0); z1.2=(x1.1,0.795x_height);
+penpos1.4(3/4stem,-90); z1.4r=(0.857w',y1.2); z1.3=(0,y1.2); z1.12=whatever[z1.1l,z1.2l];
+z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height; z1.12'=z1.12-(0.5apex_o,0);
+z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4; penpos1.5(0.917stem,0);
+z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112; z1.6l-z1.5l=whatever*dir72;
+penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22); penpos1.11(hair,-22);
+z1.11r=(w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'; penpos1.8(whatever,68);
+z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w',1.366x_height); filldraw z1.1r..z1.13'..z1.2r...
+z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle; filldraw
+z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw
+z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle;
+.endchar;
+
+nombre:= 5.611gencoef[1,1.168317];
+
+.cmchar "The Fraktur letter g";
+.beginchar("g",nombre*lower_u#,x_height#,gencoef[2.389lower_u#,3.4446lower_u#]);
+.adjust_fit(usual_left#-gencoef[0.315u#,0.3u#],usual_right#);
+penpos1(hair,gencoef[0,30]); penpos2(gencoef[hair,1.2hair],gencoef[90,110]);
+z1l=(gencoef[0,0.1w],gencoef[0.059h,-0.532d]); z2l=(gencoef[0.426w,0.568w],-d);
+z3=gencoef[(0.743w,0),(0.78w,-0.42d)];
+z4=(w-gencoef[apex_o,0],gencoef[0.107h,-0.161d]); penpos5(whatever,0);
+z5=gencoef[(0.733w,0.455h),(0.763w,0.199h)]; x5r=gencoef[0.8627w,0.86w];
+penpos6(hair,gencoef[-57,-20]); z6r=(gencoef[w,0.932w],0.845h);
+penpos7(4/3stem,gencoef[46,50]); z7r=gencoef[(0.673w,h+apex_o),(0.466w,h)];
+penpos8(hair,gencoef[-24,angle(z6-z7r)]); z8l=z7l; z8'=whatever[z8l,z8r];
+x8'=gencoef[0.688w,0.67w]; penpos9(gencoef[1.292stem,1.1stem],36);
+z9=(gencoef[0.228w,0.186441w],0.462h); penpos10(gencoef[hair,1.25hair],-50);
+z10r=gencoef[(0.277w,-0.239d),(0.339w,0)]; penpos11(gencoef[hair,1.25hair],-50);
+z11-z10=whatever*dir(gencoef[40,32]); x11=gencoef[0.8w,0.763w];
+z13=whatever[z10l,z11l]; x13=gencoef[0.488w,0.466w]; penstroke
+z2e{left}..z1e{gencoef[up,dir135]}; filldraw z2l{right}..z4 & flex(z4,z5r,z6r) &
+z6r--z6l{left}.. {z6l-z6r}z7r---z7l...z9l{down}..z10r--z13 &
+z13..z9r{up}..z8r{z7r-z7l} & z8r--z8' & z8'..z5l{down}
+..z3{down}..z2r{left}--z2l & cycle; penstroke z10e--z11e; .endchar;
+
+.cmchar "The Fraktur letter h";
+.beginchar("h",5.472lower_u#,1.376x_height#,2.556lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot);
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e; filldraw
+z2l---z3''...z4l--z4r-- z3{dir45}..z5l{right}--z5r{left} ...z3'---z2r--z2l &
+cycle; penpos5'(hair,-40); z5'l=(0,0.097x_height); penpos6(hair,-37);
+penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.6w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; penpos8(1.292stem,39);
+z8r=(w,0.478x_height); penpos11(hair,-50); penpos10(hair,-50); x10r=x8l;
+y10l=x_height+apex_o; z10-z11=whatever*((w,0.559x_height)); x11=x1;
+penpos9(1.229stem,angle((w,0.559x_height))); z9=whatever[z11,z10];
+y9r=y10r-apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z11e--z10e; penstroke z6e---z7e; penpos7'(1.2hair,-40); z7'r=(0.426w,-d);
+penstroke z7'e{dir50}...z8e{up}.. z9e; filldraw z5'l..z1l{up}--z1r-- z15--z7l--
+z6'{dir138}..z5'r--z5'l & cycle; .endchar;
+
+.cmchar "The Fraktur letter i";
+.beginchar("i",2.889lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,-44); penpos2(hair,-44); penpos3(hair,-44); z1l=(0,0.834h);
+z2-z1=whatever*((w,0.37h)); y2l=h+apex_o; z3=whatever[z2l,z2r]; x3r=x5r+0.5stem;
+z4=(0.606w,0.931h); penpos5(stem,0); z5=(0.433w,0.759h); z6=(x5,0.238h);
+penpos6(stem,0); z7=(x6l,0.079h); z8-z7=whatever*dir-40; y8=-apex_o;
+penpos9(hair,-38); z9r-z8=whatever*dir52; x9r=w; z10=(0.788w,0.152h);
+z5'=whatever[z1,z2]; x5'=x5l; penstroke z5e--z6e; penstroke z1e--z2e; filldraw
+z5r{up}..z3r--z2--z5'--z5l{down} --z5r & cycle; filldraw z8--z9r--z9l{z8-z9r}
+..z6r{up}--z6l{down}..{z8-z7}z8 & cycle; penpos11(hair,0); z11r=(x2l,1.076h);
+z12=(0.56w,1.279h); z13=(0.73w,1.238h); filldraw z11l{up}..z12{right}..
+z13{down}..{z1-z2}z11r--z11l & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter j";
+.beginchar("j",2.944lower_u#,x_height#,1.611lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,47); penpos2(1.3hair,-90); z2r=(0.16w,-d); penpos5(stem,0);
+z5=(0.523w,0.124h); penpos3(2/3stem,0); z3l=(x5l,0.048h); penpos6(stem,0);
+z6=(x5,0.824h); penpos7(hair,-90); z7=(0.906w,0.91h); penpos8(hair,-48);
+penpos9(hair,-48); z8l=(0.481w,h+apex_o); z8-z9=whatever*((w,0.3448h)); x9l=0;
+z9'=whatever[z9r,z8r]; y9'=y9l+apex_o; z1r=(x5r+0.5stem,-0.207d);penstroke
+z2e..z3e{up}; penstroke z5e--z6e; filldraw z1r{dir137}..z5r{up}--z5l
+--z3l--z3r..z1l{dir-43}--z1r & cycle; filldraw z6r{up}..z7r{right}--z7l...
+z8r---z8l--z9l--z9r--z9'.. z6l{down}--z6r & cycle; penpos11(hair,0);
+z11r=(x8l,1.076h); z12=(0.571w,1.279h); z13=(0.744w,1.238h); filldraw
+z11l{up}..z12{right}..z13{down} ..{z9-z8}z11r--z11l & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter k";
+.beginchar("k",3.861lower_u#,1.366x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=1.223w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot);
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e;
+penpos5''(hair,-90); z5''=z5+(hair,-eps); filldraw z2l---z3''...z4l--z4r--
+z3{dir45}..z5l{right}..z5''l--z5''r..z5r{left} ...z3'---z2r--z2l & cycle;
+penpos5'(hair,-40); z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37);
+y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.8w; z6'=whatever[z6,z7];
+y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l &
+cycle; penpos1.4(3/4stem,-90); z1.4=(0.928w,.859x_height); z1.3=(0,y1.4r);
+z1.35=(x2l,y1.4l); filldraw z1.3--z1.35--z1.4l--z1.4r-- z1.3 & cycle;
+penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43);
+z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(w,0.579[y1.4l,y5l]); penstroke z1.6e--z1.6'e; penstroke
+z1.5e{dir72}..z1.8e{up}..z1.7e{left}; filldraw z1.6r--z1.7l--z1.7r--z1.6l
+--z1.6r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter l";
+.beginchar("l",3lower_u#,1.366x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=1.574w; penpos1(stem,0); z1=(0.241w',foot); penpos5'(hair,-40);
+z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o;
+x6r=x1r; z7-z6=whatever*dir48; x7=w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e; filldraw
+z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle; penpos2(stem,0);
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x7,h); penstroke z1e--z2e; filldraw
+z2l---z3''...z4l--z4r-- z3{dir50}..z5l{right}--z5r{left} ...z3'---z2r--z2l &
+cycle;
+.endchar;
+
+nombre:=7.806gencoef[1,1.227586];
+
+.cmchar "The Fraktur letter m";
+.beginchar("m",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+boolean itsm; itsm:=true;
+w':=w; if itsm: z0=(0.356w',0) else: z0=(0,0) fi; penpos1(stem,0);
+penpos2(stem,0); penpos3(stem,0); penpos4(stem,0); penpos5(stem,0);
+penpos6(stem,0); z1=(0.135w',foot); z3=(0.491w',foot); n_foot(1);
+z2=(x1,0.846h); z4=(x3,y2); z5=z3+z0; z6=z4+z0; penpos10(hair,-54);
+penpos11(hair,-54); penpos12(hair,-54); penpos13(hair,-54);
+z2r-z10l=whatever*dir36; x10r=x2r; z11-z10=whatever*dir36; y11l=h+apex_o;
+z14=whatever[z10r,z11r]; y14=0.881h; penpos16(2/3hair,-90);
+z16=(x6r+1/20w',y14); penstroke z1e--z2e; penstroke z5e--z6e; if itsm: penstroke
+z3e--z4e; n_foot(3); fi z12=z10+z0; z13=z11+z0; z15=z14+z0; x14'=x4l;
+z14'-z14=whatever*(z4r-z11); z15'=z14'+z0; if itsm: filldraw
+z14--z14'--z4l--z4r-- z11l--z10l--z10r--z14 & cycle; fi filldraw
+z12l--z13l---z13r...z16l{right} --z16r{left}..z6r--z6l--z15'--z15-- z12r--z12l &
+cycle; penpos18(hair,-37); penpos17(hair,-37); z17=(0.354[x5l,x5r],-apex_o);
+x18r=x5+0.157w'; y18l=foot; z20'=whatever[z17l,z18l]; x20'=x5r;
+z20=0.5[z20',z18l]; z19=(x5l,2/3foot); z17'=whatever[z17,z18]; y17'=0; filldraw
+z17'--z19--z5l--z5r{down} ..z20{z18r-z18l}--z17' & cycle; penstroke z17e--z18e;
+z8=(0,y2); z9=(x2,h+apex_o); z7=(x1l,0.194[y2,y1]); filldraw
+z7{up}..z8--z9..z2r{down} --z7 & cycle;
+.endchar;
+
+nombre:=5.028gencoef[1,1.227586];
+
+.cmchar "The Fraktur letter n";
+.beginchar("n",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+boolean itsm; itsm:=false;
+w':=1.553w; if itsm: z0=(0.356w',0) else: z0=(0,0) fi; penpos1(stem,0);
+penpos2(stem,0); penpos3(stem,0); penpos4(stem,0); penpos5(stem,0);
+penpos6(stem,0); z1=(0.135w',foot); z3=(0.491w',foot); n_foot(1);
+z2=(x1,0.846h); z4=(x3,y2); z5=z3+z0; z6=z4+z0; penpos10(hair,-54);
+penpos11(hair,-54); penpos12(hair,-54); penpos13(hair,-54);
+z2r-z10l=whatever*dir36; x10r=x2r; z11-z10=whatever*dir36; y11l=h+apex_o;
+z14=whatever[z10r,z11r]; y14=0.881h; penpos16(2/3hair,-90);
+z16=(x6r+1/20w',y14); penstroke z1e--z2e; penstroke z5e--z6e; if itsm: penstroke
+z3e--z4e; n_foot(3); fi z12=z10+z0; z13=z11+z0; z15=z14+z0; x14'=x4l;
+z14'-z14=whatever*(z4r-z11); z15'=z14'+z0; if itsm: filldraw
+z14--z14'--z4l--z4r-- z11l--z10l--z10r--z14 & cycle; fi filldraw
+z12l--z13l---z13r...z16l{right} --z16r{left}..z6r--z6l--z15'--z15-- z12r--z12l &
+cycle; penpos18(hair,-37); penpos17(hair,-37); z17=(0.354[x5l,x5r],-apex_o);
+x18r=x5+0.157w'; y18l=foot; z20'=whatever[z17l,z18l]; x20'=x5r;
+z20=0.5[z20',z18l]; z19=(x5l,2/3foot); z17'=whatever[z17,z18]; y17'=0; filldraw
+z17'--z19--z5l--z5r{down} ..z20{z18r-z18l}--z17' & cycle; penstroke z17e--z18e;
+z8=(0,y2); z9=(x2,h+apex_o); z7=(x1l,0.194[y2,y1]); filldraw
+z7{up}..z8--z9..z2r{down} --z7 & cycle; .endchar;
+
+nombre:=4.75gencoef[1,1.140351];
+
+.cmchar "The Fraktur letter o";
+.beginchar("o",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]);
+x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31);
+z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0);
+z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22);
+z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l;
+penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]);
+z2-z1=whatever*((w,0.786h)); x8'=x8r;
+y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e..
+z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw
+z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw
+z7l--z7'--z7r--z7l & cycle; .endchar;
+
+nombre:=5.056gencoef[1,1.131868];
+
+.cmchar "The Fraktur letter p";
+.beginchar("p",nombre*lower_u#,x_height#,3.361lower_u#);
+.adjust_fit(usual_left#+gencoef[0,0.5u#],usual_right#);
+penpos1(stem,0); z1=(gencoef[0.242w,0.223w],foot); penpos2(stem,0);
+z2=(x1,0.834h); penpos3(hair,-27); z3=(x2l,1.05h);
+penpos4(stem,53); z4l=(-apex_o,0.86h); penpos5(hair,0);
+z5=(x1,-d); penstroke z5e--z1e--z2e; z6=(x1l,0.69h); filldraw z6{up}..
+z4l{up}--z4r{down}..{dir-45}z2r--z6 & cycle; penstroke
+z4e{up}..z3e{dir53};
+penpos8(hair,-49); penpos7(hair,-49);
+z8l=(gencoef[0.714w,0.7w],h+gencoef[apex_o,0]);
+z8-z7=whatever*dir(gencoef[41,35]); x7=x1; penstroke z7e--z8e;
+z11=(-0.5u,0.15h); z9-z11=whatever*dir-20; x9=gencoef[0.527w,0.592w];
+penpos9(hair,-20); penpos10(hair,-20); z10-z9=whatever*dir57.5;
+y10r=gencoef[0.1h,0.12h]; z12-z10=whatever*(z11-z9); z12-z11=whatever*(z10-z9);
+penpos13(stem,33); penpos14(5/4stem,41); z13r=(w,gencoef[0.5h,0.548h]);
+z14r=z8l; penstroke z9e---z10e...z13e...z14e {dir131}; filldraw
+z11--z12--z10r--z9r--z11 & cycle; .endchar;
+
+nombre:=4.639gencoef[1,1.269461];
+
+.cmchar "The Fraktur letter q";
+.beginchar("q",nombre*lower_u#,x_height#,3.361lower_u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,0); z1=(0.745w,-d); penpos2(stem,0); z2=(x1,foot); z3=(x2r,0.728h);
+z4=(w,0.879h); penpos5(hair,-33); penpos6(hair,-33); z5l=(0.485w,h+apex_o);
+z5-z6=whatever*dir52; x6=0.335w; penpos7(1.542stem,62); z7l=(0,0.445h);
+penpos8(1.125stem,45); z8l=(0.388w,-2apex_o); penpos9(hair,-45);
+penpos10(hair,-45); z9r=z8; z10-z9=whatever*dir45; x10=x2; penstroke z1e--z2e;
+z3'-z6=whatever*(z5r-z5l); x3'=x2l; filldraw z2r---z3...z4 & z4...z5r---z5l
+--z6l--z3'--z2l--z2r & cycle; penstroke z8e{(0,0.552h)-z8}..z7e{up}... z6e---z5e;
+penstroke z9e--z10e;
+.endchar;
+
+nombre:=3.944gencoef[1,1.281690];
+
+.cmchar "The Fraktur letter r";
+.beginchar("r",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+w':=1.197w;
+penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90);
+z5l=(x2r+0.875stem,h); penpos5'(hair,-40); z5'l=(0,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r;
+z7-z6=whatever*dir48; x7=0.817w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z8r=(w,0.478x_height); penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*dir40;
+x11=x1; penpos9(1.229stem,40); z9=whatever[z11,z10]; y9r=y10r-apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e;
+penpos7'(1.2hair,-40); z7'r=(0.426w,-d); filldraw z5'l..z1l{up}--z1r--
+z15--z7l-- z6{dir138}..z5'r--z5'l & cycle; penpos22(stem,0); z22=(x1,0.841h);
+z29=(x22,h+apex_o); z28=(0,y22); z27=(x22l,0.721h); filldraw
+z1l---z27...z28--z29... z22r---z1r--z1l & cycle; penpos30(hair,-70);
+penpos32(hair,-70); penpos31(1.083stem,45); z22r-z32l=whatever*dir45; x32r=x22r;
+z30-z32=whatever*dir45; y30l=h+apex_o; z31r=(w,y32);
+z33-z31l=whatever*(z30-z31r); z33=whatever[z32,z30]; penstroke z32e--z30e;
+filldraw z30--z31r--z31l--z33-- z30 & cycle; .endchar;
+
+.cmchar "The Fraktur letter long s";
+.beginchar("s",4.539lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-1.932lower_u#);
+w':=w; penpos1.1(hair,0); z1.1=(0.318w',-d); penpos1.2(1.313stem,0); z1.2=(x1.1,0.795x_height);
+penpos1.4(3/4stem,-90); z1.4r=(0.857w',y1.2); z1.3=(0,y1.2); z1.12=whatever[z1.1l,z1.2l];
+z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height; z1.12'=z1.12-(0.5apex_o,0);
+z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4; penpos1.5(0.917stem,0);
+z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112; z1.6l-z1.5l=whatever*dir72;
+penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22); penpos1.11(hair,-22);
+z1.11r=(w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'; penpos1.8(whatever,68);
+z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w',1.366x_height); filldraw z1.1r..z1.13'..z1.2r...
+z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle; filldraw
+z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e;
+.endchar;
+
+nombre:=5.039gencoef[1,1.168688];
+
+.cmchar "The Fraktur letter short s"; .beginchar(oct"215",nombre*lower_u#,1.286x_height#,0);
+.adjust_fit(usual_left#,usual_right#); penpos0(hair,angle((w,x_height))-90);
+penpos0'(hair,angle((w,x_height))-90); z0l=(0,0.103x_height); x0'r=0.86w;
+z0'-z0=whatever*((w,x_height)); penstroke z0e--z0'e;
+penpos5(1.083stem,angle((w,gencoef[0.797x_height,0.63x_height])));
+penpos6(1.083stem,angle(z0'-z0)); z5l=(0.54w,-apex_o); z6l=z0r; penstroke z5e{dir142}..z6e;
+penpos1(hair,angle((w,0.797x_height))-90); penpos2(hair,angle((w,0.797x_height))-90);
+penpos3(1.083stem,39); z3r=(w,0.441x_height); z1r=z5l; z2r=z5r; z4=whatever[z0r,z0'r]; x4=0.595w;
+penpos4(5/4stem,angle(z0'-z0)); penstroke z1e--z2e{z2-z1}..z3e..z4e{dir(angle(z0'-z0)+90)};
+penpos7(hair,angle(z0'-z0)-90); z7r=z6; penpos8(1.125stem,angle((w,0.5x_height)));
+z8r=whatever[z0,z0']; x8r=0.433w; penpos9(1.292stem,54); z9l=(0,0.69x_height); filldraw
+z7--z8r--z8l{down}..z7l{z0-z0'}--z7 & cycle; penstroke z8e{up}..z9e{dir144}; penpos10(hair,-36);
+z10l=z9; z11=whatever[z9l,z9r]; y11=x_height+apex_o; penpos12(1.083stem,54); z12r=z11;
+penpos14(hair,-36); z14l=z12; penstroke z10e--z14e; z13-z12l=whatever*dir-21;
+z13=whatever[z0l,z0'l]; penpos15(0.538stem,-29); z15r=whatever[z0,z0']; y15r=y11; penpos16(hair,90);
+penpos17(hair,144); z16r=(0.568w,h); z17=(0.198w,1.124x_height); penstroke
+z15e{up}..z16e{left}..z17e; filldraw z12l--z13--z0'r & z0'r{z0'-z0}..z15r{up}--z15l{down}
+..z11{z12-z13}--z12l & cycle; .endchar;
+
+.cmchar "The Fraktur letter t";
+.beginchar("t",3.444lower_u#,1.186x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#-0.3u#);
+w':=1.371w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,0.828x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74);
+z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e;
+penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle;
+penpos1.4(3/4stem,-90); z1.4=(0.928w,.859x_height); z1.3=(0,y1.4r); z1.35=(x2l,y1.4l); filldraw
+z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)];
+penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,h); filldraw z1.3--z30l--z30r..z2r{down}
+--(x2r,y1.3)--z1.3 & cycle;
+.endchar;
+
+nombre:=6.15gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter u";
+.beginchar("u",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h);
+penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90);
+penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r;
+z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58;
+z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke
+z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle;
+penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}--
+z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l
+& cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot);
+z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o);
+z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height);
+penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l];
+z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r
+--z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e;
+penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o);
+z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up}
+..z15--z14r--z14l--z13 & cycle;
+.endchar;
+
+nombre:=5.444gencoef[1,1.122449];
+
+.cmchar "The Fraktur letter v";
+.beginchar("v",nombre*lower_u#,1.203x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.334w,1.05foot); penpos2(stem,0); z2=(x1,0.561x_height);
+penpos3(stem,50); z3=(0.158w,0.897x_height); penpos3'(1.042stem,37);
+z3'l=(0,0.928x_height); penpos4(hair,-44); z4l=(0.265w,h); penstroke
+z1e---z2e...z3e{dir140}.. z3'e{up}..z4e{dir46}; penpos5(hair,-90);
+penpos6(hair,0); penpos7(hair,-11); z5=(0.133w,0.11x_height);
+z6=(0.582w,-apex_o); z7r-z6r=whatever*dir58; z7-z1r=whatever*dir-11;
+z7'=whatever[z6l,z7l]; x7'=0.7w; filldraw z1l{down}..z5l--z5r{z1r-z5r}
+..z6l--z6r--z7r--z7l--z7'..{left}z1r--z1l & cycle; penpos8(1.125stem,44);
+z8r=(w,0.576x_height); penpos11(hair,-44); penpos12(hair,-44);
+z11=(0.735w,gencoef[1.055x_height,x_height]); z11-z12=whatever*dir46; x12=0.3w;
+penstroke z12e--z11e; penpos10(1.521stem,46); z10r=z11; penpos9(1.042stem,46);
+z9=(0.648w,0.928x_height); penstroke z6e---z7e...z8e..z9e; filldraw
+z9r{z10-z9}..z10r{z11-z12} --z10l{z11-z12}..z9l{z9-z10}-- z9r & cycle;
+.endchar;
+
+nombre:=7.111gencoef[1,1.2];
+
+.cmchar "The Fraktur letter w";
+.beginchar("w",nombre*lower_u#,1.083x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.154w,foot); n_foot(1); penpos2(stem,0);
+z2=(x1,0.831x_height); penstroke z1e--z2e; penpos3(hair,-53); penpos4(hair,-54);
+z3r=z2r; z4-z3=whatever*dir37; y4l=x_height+apex_o; z3'=whatever[z3l,z4l];
+x3'=x1r; penpos5(stem,40); z5l=(0,0.955x_height); penpos6(hair,-50);
+z6l=(0.145w,h); penstroke z3e--z4e; filldraw
+z2r--z3'..z5r-(0,2apex_o){up}..z6r{dir60} --z6l{z5l-z5r}..z5l{down}..z2l--z2r &
+cycle; penpos7(stem,0); penpos8(stem,0); z7=(0.531w,foot); z8=(x7,y2);
+penpos9(hair,-35); penpos10(hair,-35);
+z10-z7r=whatever*((0,0.621x_height)-(w,0)); z9r=(0.668w,-apex_o);
+z10-z9=whatever*((w,0.359x_height)-z9); z9-z11=whatever*(z10-z7r); x11=0.402w;
+filldraw z11..z7l{up}--z7r--z10r-- z9r--z11 & cycle; penstroke z7e--z8e;
+penpos14(1.083stem,47); z14r=(w,gencoef[0.462x_height,0.685x_height]);
+penpos11'(hair,-53); penpos12(hair,-53); z11'r=z8r; z12-z11'=whatever*dir37;
+y12l=x_height+apex_o; penstroke z11'e--z12e; penpos13(1.083stem,37); z13r=z12;
+penstroke z9e---z10e... z14e..z13e{dir(gencoef[110,130])};
+z11.5=whatever[z11'l,z12l]; x11.5=x8r; z8'=whatever[z3r,z4r];
+z8l-z8'=whatever*(z11.5-z4); filldraw z8'--z4--z11.5--z8r--z8l --z8' & cycle;
+.endchar;
+
+nombre:=3.944gencoef[1,1.194030];
+
+.cmchar "The Fraktur letter x";
+.beginchar("x",nombre*lower_u#,x_height#,0.5x_height#);
+.adjust_fit(usual_left#+u#,usual_right#); w':=1.197w;
+penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90);
+z5l=(x2r+0.875stem,h); penpos5'(hair,-40); z5'l=(x1l,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r;
+z7-z6=whatever*dir48; x7=0.817w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z8r=(w,0.478x_height); penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*dir40;
+x11=x1; penpos9(1.229stem,40); z9=whatever[z11,z10]; y9r=y10r-apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke z6e---z7e;
+penpos7'(1.2hair,-40); z7'r=(0.426w,-d); filldraw z5'l..z1l{up}--z1r--
+z15--z7l-- z6{dir138}..z5'r--z5'l & cycle; penpos22(stem,0); z22=(x1,0.841h);
+z29=(x22,h+apex_o); z28=(0,y22); z27=(x22l,0.721h); filldraw
+z1l---z27...z28--z29... z22r---z1r--z1l & cycle; penpos30(hair,-70);
+penpos32(hair,-70); penpos31(1.083stem,45); z22r-z32l=whatever*dir45;
+x32r=x22r; z30-z32=whatever*dir45; y30l=h+apex_o; z31r=(w,y32);
+z33-z31l=whatever*(z30-z31r); z33=whatever[z32,z30]; penstroke z32e--z30e;
+filldraw z30--z31r--z31l--z33-- z30 & cycle;
+z40=(x1l,1.5foot); z40'=(x1r,1/3foot);
+penpos41(0.8stem,180); penpos42(1.5hair,-120); penpos43(hair,-142);
+ z41l=(apex_o,-0.129d); z42l=(x1r,-0.557143d); x43l=w; y43r=-d;
+filldraw z40{down}..z41r{down}--z41l{up}..z40'{right}--z40 & cycle;
+penstroke z41e{down}..z42e..z43e{dir-60}; .endchar;
+
+
+nombre:=5.472gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter y";
+.beginchar("y",nombre*lower_u#,x_height#,2.556lower_u#);
+.adjust_fit(usual_left#,usual_right#);
+w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot);
+z2=(x1,0.846x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3);
+z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74); z4=(0.5x2l,1.259x_height);
+penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e; z2.8=(0,y2);
+z2.9=(x2,h+apex_o); z2.7=(x1l,0.194[y2,y1]); filldraw
+z2.7{up}..z2.8--z2.9..z2r{down} --z2.7 & cycle; penpos5'(hair,-40);
+z5'l=(0,0.097x_height); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o;
+x6r=x1r; z7-z6=whatever*dir48; x7=0.6w; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z8r=(w,0.478x_height); penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o;
+z10-z11=whatever*((w,0.559x_height)); x11=x1; penpos9(1.229stem,40);
+z9=whatever[z11,z10]; y9r=y10r-apex_o; z15=whatever[z6l,z7l];
+z15-z1r=whatever*dir-30; penstroke z11e--z10e; penstroke z6e---z7e;
+penpos7'(1.2hair,-40); z7'r=(0.426w,-d); penstroke z7'e{dir50}...z8e{up}.. z9e;
+filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6'{dir138}..z5'r--z5'l & cycle;
+.endchar;
+
+nombre:=3.444gencoef[1,1.330645];
+
+.cmchar "The Fraktur letter z";
+.beginchar("z",nombre*lower_u#,x_height#,gencoef[2.15lower_u#,3.07lower_u#]);
+.adjust_fit(usual_left#,usual_right#); penpos1(hair,122);
+penpos2(gencoef[hair,1.5hair],180); penpos3(0.625stem,-42);
+penpos4(1.313stem,37); z1l=gencoef[(w,0.524h),(0.945w,0.459h)]; z2r=(0,-0.1d);
+z3r=(gencoef[0.548w,0.509w],-d); z4r=(w,gencoef[0.103h,0]); penstroke
+z1e..z2e{down}..z3e{right}..z4e{up}; penpos5(hair,-90);
+z5=gencoef[(0,0.414h),(0.145w,0.390h)]; z6-z5=whatever*dir38;
+x6=gencoef[0.484w,0.454w]; filldraw z5r{right}..z4l{down}-- z4r{up}..z6--z5r &
+cycle; penpos7(4/3stem,43); z7=gencoef[(0.629w,0.734h),(0.618w,0.699h)];
+z8=(gencoef[0.532w,0.4w],h+apex_o); z9=(gencoef[0.081w,0.107782w],0.793h);
+penpos9'(hair,-90); z9'l=z9; penstroke z5e{z6-z5r}..z7e{up}; filldraw
+z7l{up}..z9'r{z9-z8}--z9--z8.. z7r{down}--z7l & cycle; .endchar;
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/fonts/gothic/yfrak/yfrakmis.mf b/fonts/gothic/yfrak/yfrakmis.mf
new file mode 100644
index 0000000000..55cf511569
--- /dev/null
+++ b/fonts/gothic/yfrak/yfrakmis.mf
@@ -0,0 +1,574 @@
+.cmchar "The Fraktur ligature ch";
+.beginchar(oct"205",3.639lower_u#+4.772lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w:=3.639u; penpos101(hair,-30); penpos102(hair,-30); z102l=(w+0.438u-0.5stem,foot);
+z101r=(0.565w,-apex_o); z101'=whatever[z101,z102]; y101'=y101l+apex_o; z103=whatever[z101l,z102l];
+x103=0.809w; z104=(2/3w,0.176h); penpos105(1.083stem,angle((w,0.4h))); z105=(0.26w,0.214h);
+penpos106(stem,0); z106l=(0,0.5h); penpos109(hair,-68); penpos108(hair,-68); penpos108.5(hair,-68);
+z109l=(0.832w,h+apex_o); z109-z108=whatever*((w,0.25h)); x108l=0.458w; z107=whatever[z108l,z109l];
+x107=0.145w; penpos110(stem,angle((w,0.25h))); z110r=whatever[z109l,z109r]; x110r=w;
+z110l-z108.5=whatever*(z110r-z109); z108.5=whatever[z108,z109]; penstroke z101e--z102e; filldraw
+z101'..z105l..z106l{up}--z106r{down} ..z105r...z103---z102l--z102r--z101' & cycle; filldraw
+z106l{up}..z107 & z107--z109l--z110r-- z110l--z108.5r &
+z108.5r{z108-z109}..(x106r,0.738h)..z106r{down}-- z106l & cycle; z0=(w-0.7u,0); w:=5.472u;
+h:=1.376x_height; d:=2.556u; w':=0.863w; penpos1(stem,0); penpos2(stem,0); z1l=z102l;
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5[x0,x2l],1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h);
+penstroke z1e--z2e; filldraw z2l---z3''...z4l--z4r-- z3{dir45}..z5l{right}--z5r{left}
+...z3'---z2r--z2l & cycle; penpos5'(hair,-40); penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o;
+x6r=x1r; z7-z6=whatever*dir48; x7=0.6w+x0; z6'=whatever[z6,z7]; y6'=y6l+apex_o;
+penpos8(1.292stem,39); z5'=whatever[z101,z102]; z8r=(w,0.478x_height)+z0; penpos11(hair,-50);
+penpos10(hair,-50); x10r=x8l; y10l=x_height+apex_o; z10-z11=whatever*((w,0.559x_height)); x11=x1;
+penpos9(1.229stem,angle((w,0.559x_height))); z9=whatever[z11,z10]; y9r=y10r-apex_o;
+z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; z5'r-z6'=whatever*(z1r-z15); penstroke z11e--z10e;
+penstroke z6e---z7e; penpos7'(1.2hair,-40); z7'r=(0.426w,-d)+z0; penstroke z7'e{dir50}...z8e{up}..
+z9e; filldraw z5'l--z1l--z1r-- z15--z7l--
+z6'--z5'r--z5'l & cycle; .endchar;
+
+.cmchar "The Fraktur ligature ck";
+.beginchar(oct"206",3.639lower_u#+3.161lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w:=3.639u; penpos101(hair,-30); penpos102(hair,-30); z102l=(w+0.438u-0.5stem,foot);
+z101r=(0.565w,-apex_o); z101'=whatever[z101,z102]; y101'=y101l+apex_o; z103=whatever[z101l,z102l];
+x103=0.809w; z104=(2/3w,0.176h); penpos105(1.083stem,angle((w,0.4h))); z105=(0.26w,0.214h);
+penpos106(stem,0); z106l=(0,0.5h); penpos109(hair,-68); penpos108(hair,-68); penpos108.5(hair,-68);
+z109l=(0.832w,h+apex_o); z109-z108=whatever*((w,0.25h)); x108l=0.458w; z107=whatever[z108l,z109l];
+x107=0.145w; penpos110(stem,angle((w,0.25h))); z110r=whatever[z109l,z109r]; x110r=w;
+z110l-z108.5=whatever*(z110r-z109); z108.5=whatever[z108,z109]; penstroke z101e--z102e; filldraw
+z101'..z105l..z106l{up}--z106r{down} ..z105r...z103---z102l--z102r--z101' & cycle; filldraw
+z106l{up}..z107 & z107--z109l--z110r-- z110l--z108.5r &
+z108.5r{z108-z109}..(x106r,0.738h)..z106r{down}-- z106l & cycle; z0=(w-0.7u,0);
+w:=3.861u; h:=1.366x_height; w':=1.223w; penpos1(stem,0); penpos2(stem,0); z1l=z102l;
+z2=(x1,x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5[x0,x2l],1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h);
+penstroke z1e--z2e; penpos5''(hair,-90); z5''=z5+(hair,-eps); filldraw z2l---z3''...z4l--z4r--
+z3{dir45}..z5l{right}..z5''l--z5''r..z5r{left} ...z3'---z2r--z2l & cycle; penpos5'(hair,-40);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.8w+x0;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; z5'r-z6'=whatever*(z1r-z15); z5'=whatever[z101,z102]; filldraw z5'l..z1l{up}--z1r--
+z15--z7l-- z6r---z6l...z5'r--z5'l & cycle; penpos1.4(3/4stem,-90); z1.4=(x0+0.928w,.859x_height);
+z1.3=(x0,y1.4r); z1.35=(x2l,y1.4l); filldraw z1.3--z1.35--z1.4l--z1.4r-- z1.3 & cycle;
+penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43);
+z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(x0+w,0.579[y1.4l,y5l]); penstroke z1.6e--z1.6'e; penstroke
+z1.5e{dir72}..z1.8e{up}..z1.7e{left}; filldraw z1.6r--z1.7l--z1.7r--z1.6l --z1.6r & cycle;
+.endchar;
+
+.cmchar "The Fraktur ligature st";
+.beginchar(oct"202",6.5lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#);
+w':=0.698w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2);
+z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height;
+z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112;
+z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22);
+penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw
+z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle;
+filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+w':=0.726w; z100=(x0.14,0); penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot)+z100;
+z2=(x1,0.828x_height); z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2);
+penpos4(hair,74); z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke
+z1e--z2e; penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height)+z100;
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=x100+0.53w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle;
+penpos1.4(3/4stem,-90); z1.4=(0.928x100+0.4916w,.859x_height); z1.3=(x100,y1.4r);
+z1.35=(x2l,y1.4l); filldraw z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0);
+z1.5=0.219[z1.4l,(x2r,y1.4l)]; penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]);
+penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47; x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43);
+z1.6'l=z1.7r; penpos1.8(stem,60);
+z1.8r=(x100+0.529w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,1.186x_height); filldraw
+z1.3--z30l--z30r..z2r{down} --(x2r,y1.3)--z1.3 & cycle; penpos30'(hair,180); z30'=z30;
+penpos30''(hair,-90); z30''r=(x30l,h); penstroke z0.11e{z0.11-z0.9}.. z30''e..z30'e{z1.3-z30l};
+.endchar;
+
+.cmchar "The Fraktur ligature ss";
+.beginchar(oct"201",6.928lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-1.932u#);
+w':=0.655w;
+penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0); z0.2=(x0.1,0.795x_height);
+penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l];
+z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0);
+z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4; penpos0.5(0.917stem,0);
+z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72;
+penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22);
+z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w'; penpos0.8(whatever,68);
+z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r...
+z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw
+z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0);
+z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2);
+z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height;
+z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4;
+penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112;
+z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22);
+penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100;
+penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw
+z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle;
+filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e;
+.endchar;
+
+.cmchar "The Fraktur ligature sf";
+.beginchar(oct"203",6.928lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#);
+w':=0.655w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2);
+z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height;
+z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112;
+z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22);
+penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw
+z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle;
+filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0);
+z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2);
+z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height;
+z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4;
+penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112;
+z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22);
+penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100;
+penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw
+z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle;
+filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw
+z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle;
+.endchar;
+
+.cmchar "The Fraktur ligature ff";
+.beginchar(oct"204",6.928lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#-0.85u#);
+w':=0.655w; penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2); z0.3=(0,y0.2);
+z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r]; y0.12=y0.13=0.512x_height;
+z0.12'=z0.12-(0.5apex_o,0); z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68); z0.6-z0.5r=whatever*dir112;
+z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0); z0.7l=z0.5l; penpos0.9(hair,-22);
+penpos0.11(hair,-22); z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r; z0.14=(0.673w',1.366x_height); filldraw
+z0.1r..z0.13'..z0.2r... z0.5r---z0.6l & z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle;
+filldraw z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw z0.6l{dir72}..z0.14{right}..
+z0.8r{dir-22}--z0.8l{dir158}.. z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r,0); penpos1.1(hair,0); z1.1=(0.318w'+x100,-d); penpos1.2(1.313stem,0);
+z1.2=(x1.1,0.795x_height); penpos1.4(3/4stem,-90); z1.4r=(0.857w'+x100,y1.2); z1.3=(x100,y1.2);
+z1.12=whatever[z1.1l,z1.2l]; z1.13=whatever[z1.1r,z1.2r]; y1.12=y1.13=0.512x_height;
+z1.12'=z1.12-(0.5apex_o,0); z1.13'=z1.13+(0.5apex_o,0); z1.35=whatever[z1.12,z1.2l]; y1.35=y1.4;
+penpos1.5(0.917stem,0); z1.5=(x1.1,y1.4l); penpos1.6(hair,-68); z1.6-z1.5r=whatever*dir112;
+z1.6l-z1.5l=whatever*dir72; penpos1.7(hair,0); z1.7l=z1.5l; penpos1.9(hair,-22);
+penpos1.11(hair,-22); z1.11r=(x100+w',1.321x_height); z1.11-z1.9=whatever*dir68; x1.9=0.831w'+x100;
+penpos1.8(whatever,68); z1.8l=z1.9l; y1.8r=y1.11r; z1.14=(0.673w'+x100,1.366x_height); filldraw
+z1.1r..z1.13'..z1.2r... z1.5r---z1.6l & z1.6l--z1.35--z1.2l.. z1.12'..z1.1l--z1.1r & cycle;
+filldraw z1.3..z1.6{z1.6-z1.5l}--z1.2l--z1.3 & cycle; filldraw z1.6l{dir72}..z1.14{right}..
+z1.8r{dir-22}--z1.8l{dir158}.. z1.6r{z1.5l-z1.6}--z1.6l & cycle; penstroke z1.9e--z1.11e; filldraw
+z1.5--z1.4l--z1.4r--z1.2--z1.5 & cycle; filldraw z0.5--z0.4l--z0.4r--z0.2--z0.5 & cycle;
+.endchar;
+
+.cmchar "The Fraktur ligature sz";
+.beginchar(oct"032",5.444lower_u#,1.366x_height#,3.167lower_u#);
+.adjust_fit(0,0.05alpha*w#+usual_right#+0.5u#); w':=0.834w;
+penpos0.1(hair,0); z0.1=(0.318w',-d); penpos0.2(1.313stem,0);
+z0.2=(x0.1,0.795x_height); penpos0.4(3/4stem,-90); z0.4r=(0.857w',y0.2);
+z0.3=(0,y0.2); z0.12=whatever[z0.1l,z0.2l]; z0.13=whatever[z0.1r,z0.2r];
+y0.12=y0.13=0.512x_height; z0.12'=z0.12-(0.5apex_o,0);
+z0.13'=z0.13+(0.5apex_o,0); z0.35=whatever[z0.12,z0.2l]; y0.35=y0.4;
+penpos0.5(0.917stem,0); z0.5=(x0.1,y0.4l); penpos0.6(hair,-68);
+z0.6-z0.5r=whatever*dir112; z0.6l-z0.5l=whatever*dir72; penpos0.7(hair,0);
+z0.7l=z0.5l; penpos0.9(hair,-22); penpos0.11(hair,-22);
+z0.11r=(w',1.321x_height); z0.11-z0.9=whatever*dir68; x0.9=0.831w';
+penpos0.8(whatever,68); z0.8l=z0.9l; y0.8r=y0.11r;
+z0.14=(0.673w',1.366x_height); filldraw z0.1r..z0.13'..z0.2r... z0.5r---z0.6l &
+z0.6l--z0.35--z0.2l.. z0.12'..z0.1l--z0.1r & cycle; filldraw
+z0.3..z0.6{z0.6-z0.5l}--z0.2l--z0.3 & cycle; filldraw
+z0.6l{dir72}..z0.14{right}.. z0.8r{dir-22}--z0.8l{dir158}..
+z0.6r{z0.5l-z0.6}--z0.6l & cycle; penstroke z0.9e--z0.11e;
+z100=(x0.2r-hair,hair); w':=0.633w; d':=0.679w; penpos1(hair,122);
+penpos2(hair,180); penpos3(0.625stem,-42); penpos4(1.313stem,37);
+z1l=(w',0.524h)+z100; z2r=(x0.2,-0.1d'+y100); z3r=(0.548w',-0.8d')+z100;
+z4r=(w'+u,0.103x_height)+z100; penstroke z2e{down}..z3e{right} ..z4e{up};
+penpos5(hair,-90); z5=(0,0.414x_height)+z100; z6-z5=whatever*dir38;
+x6=0.484w'+x100; filldraw z5r{right}..z4l{down}-- z4r{up}..z6--z5r &
+cycle; penpos7(4/3stem,43); z7=(0.629w',0.734x_height)+z100;
+z8=(0.532w',x_height+apex_o)+z100; z9=(0.081w',0.793x_height)+z100;
+penpos9'(hair,-90); z9'l=z9; penstroke z5e{z6-z5r}..z7e{up}; filldraw
+z7l{up}..z9'r{z9-z8}--z9--z8.. z7r{down}--z7l & cycle; .endchar;
+
+.cmchar "The Fraktur ligature tz";
+.beginchar(oct"213",4.75lower_u#,1.186x_height#,3.167lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#+u#);
+w':=0.994w; penpos1(stem,0); penpos2(stem,0); z1=(0.241w',foot); z2=(x1,0.828x_height);
+z3=(1/4[x2l,x2r],x_height+foot); z3'=(x2r,y3); z3''=(x2l,0.633(y3-y2)+y2); penpos4(hair,74);
+z4=(0.5x2l,1.259x_height); penpos5(hair,-90); z5l=(x2r+0.875stem,h); penstroke z1e--z2e;
+penpos5''(hair,-90); z5''=z5+(hair,-eps); penpos5'(hair,-40); z5'l=(0,0.097x_height);
+penpos6(hair,-37); penpos7(hair,-37); y6r=-apex_o; x6r=x1r; z7-z6=whatever*dir48; x7=0.632w;
+z6'=whatever[z6,z7]; y6'=y6l+apex_o; z15=whatever[z6l,z7l]; z15-z1r=whatever*dir-30; penstroke
+z6e---z7e; filldraw z5'l..z1l{up}--z1r-- z15--z7l-- z6r---z6l...z5'r--z5'l & cycle;
+penpos1.4(3/4stem,-90); z1.4=(x1r,.859x_height); z1.3=(0,y1.4r); z1.35=(x2l,y1.4l); filldraw
+z1.3--(x1,y1.35)--z1.4l--z1.4r-- z1.3 & cycle; penpos1.5(hair,0); z1.5=0.219[z1.4l,(x2r,y1.4l)];
+penpos1.6(hair,-43); z1.6r=(x2r,0.283[y1.4l,y5l]); penpos1.7(stem,57); z1.7r-z1.6l=whatever*dir47;
+x1.7r=0.636[x2r,x1.4]; penpos1.6'(hair,-43); z1.6'l=z1.7r;
+penpos1.8(stem,60); z1.8r=(w,0.579[y1.4l,y5l]); penpos30(hair,0); z30l=(x1r,h); filldraw
+z1.3--z30l--z30r..z2r{down} --(x2r,y1.3)--z1.3 & cycle; z100=(x1r-hair,hair); w':=0.725w;
+d':=0.679d; penpos0.1(hair,122); penpos0.2(hair,180); penpos0.3(0.625stem,-42);
+penpos0.4(1.313stem,37); z0.1l=(w',0.524h)+z100; z0.2r=(0,-0.1d')+z100; z0.3r=(0.548w',-d')+z100;
+z0.4r=(w'+u,0.103x_height)+z100; penstroke z0.2e{down}..z0.3e{right} ..z0.4e{up};
+penpos0.5(hair,-90); z0.5=(0,0.414x_height)+z100; z0.6-z0.5=whatever*dir38; x0.6=0.484w'+x100;
+filldraw z0.5r{right}..z0.4l{down}-- z0.4r{up}..z0.6--z0.5r & cycle; penpos0.7(4/3stem,43);
+z0.7=(0.629w',0.734x_height)+z100; z0.8=(0.532w',x_height+apex_o)+z100;
+z0.9=(0.081w',0.793x_height)+z100; penpos0.9'(hair,-90); z0.9'l=z0.9; penstroke
+z0.5e{z0.6-z0.5r}..z0.7e{up}; filldraw z0.7l{up}..z0.9'r{z0.9-z0.8}--z0.9--z0.8..
+z0.7r{down}--z0.7l & cycle; filldraw (x1r,y1.4l){right}.. z0.8{z0.8-z0.9}--z0.9--(x1r,y1.4l) &
+cycle;
+.endchar;
+
+numeric nombre; nombre:= 5gencoef[1,1.155556];
+
+.cmchar "The Fraktur letter a with little-e Umlaut";
+.beginchar(oct"211",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]);
+penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51);
+penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h)));
+penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0);
+penpos12(whatever,-90); penpos11''(hair,-30);
+z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]);
+z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]);
+z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4];
+x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem;
+z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])];
+y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o;
+z10=whatever[z8l,z9l]; y10=0.228h;
+z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]);
+z11''r=(gencoef[0.78w,0.814w],-apex_o);
+z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l);
+z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r;
+z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l];
+y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7];
+penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]);
+filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r..
+z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke
+z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down}
+..z7..z10{z9-z8} & z10--z8' & cycle; z100=(x9l,1.214x_height);
+e_umlaut(100);.endchar;
+
+nombre:= 3.65gencoef[1,1.230769];
+
+.cmchar "The Fraktur letter e with little-e Umlaut";
+.beginchar(oct"220",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1l=(0,0.486h);
+penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]);
+penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]);
+z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w];
+x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8];
+y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l];
+x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h);
+penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69);
+y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h);
+z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0];
+z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6));
+z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e;
+filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69);
+z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w];
+z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e;
+filldraw z7'{dir135}..z1l{up}..z2 &
+z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10
+..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e; z100=(0.569w,1.214x_height);
+e_umlaut(100);
+.endchar;
+
+nombre:=4.75gencoef[1,1.140351];
+
+.cmchar "The Fraktur letter o with little-e Umlaut";
+.beginchar(oct"231",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]);
+x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31);
+z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0);
+z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22);
+z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l;
+penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]);
+z2-z1=whatever*((w,0.786h)); x8'=x8r;
+y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e..
+z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw
+z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw
+z7l--z7'--z7r--z7l & cycle; z100=(x4,1.214x_height);
+e_umlaut(100);
+.endchar;
+
+nombre:=6.15gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter u with little-e Umlaut";
+.beginchar(oct"236",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h);
+penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90);
+penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r;
+z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58;
+z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke
+z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle;
+penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}--
+z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l
+& cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot);
+z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o);
+z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height);
+penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l];
+z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r
+--z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e;
+penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o);
+z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up}
+..z15--z14r--z14l--z13 & cycle; z100=(x2l-hair,1.214x_height);
+e_umlaut(100);
+.endchar;
+
+numeric nombre; nombre:= 5gencoef[1,1.155556];
+
+.cmchar "The Fraktur letter a with Umlaut";
+.beginchar(oct"212",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#-gencoef[0.5u#,0]);
+penpos1(stem,0); penpos2(stem,0); penpos3(gencoef[hair,2hair],-51);
+penpos4(hair,-52); penpos5(hair,-52); penpos6(whatever,angle((w,0.35h)));
+penpos8(whatever,0); penpos9(hair,gencoef[-30,-50]); penpos11(whatever,0);
+penpos12(whatever,-90); penpos11''(hair,-30);
+z1=(gencoef[0.7w,0.779w],gencoef[0.345h,0.24h]);
+z2=(x1,gencoef[0.807h,0.74h]); z3r=(gencoef[0.911w,w],gencoef[0.925h,0.829h]);
+z4l=(gencoef[x2l,0.452w],h+apex_o); z5=whatever[(0,gencoef[0.74h,0.685h]),z4];
+x5l=gencoef[1/3w,0.288w]; z6l=(0,gencoef[0.462h,0.342h]); x6r=1.083stem;
+z9=(gencoef[0.694w,0.764w],y1); z8l=whatever[z9l,(w,gencoef[0.623h,0.404h])];
+y8=-apex_o; z9r-z8r=whatever*(z9l-z8l); z8'=whatever[z8l,z9l]; y8'=y8+apex_o;
+z10=whatever[z8l,z9l]; y10=0.228h;
+z7=(gencoef[0.439w,0.481w],gencoef[0.203h,0.171h]);
+z11''r=(gencoef[0.78w,0.814w],-apex_o);
+z12r-z11''r=whatever*((gencoef[x9l,0.6w],y9l)-z8l);
+z12l-z11''l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); x12=w; z11r=z11''r;
+z12l-z11l=whatever*((gencoef[x9l,0.6w],y9l)-z8l); z11'=whatever[z11l,z12l];
+y11'=y11+apex_o; z12'=whatever[z11l,z12l]; y12'=gencoef[0.217h,y7];
+penpos2'(stem,0); z2'=(x2,gencoef[y2,0.651h]);
+filldraw z11'..z1l{up}--z2l--z5r-- z4l{0.7[z2l,z3r]-z4l}..z3l--z3r..
+z2'r{down}---z1r...z12'--z12l--z12r --z11r--z11l--z11' & cycle; penstroke
+z6e{up}...z5e---z4e; penstroke z8e--z9e; filldraw z8'..z6l{up}--z6r{down}
+..z7..z10{z9-z8} & z10--z8' & cycle; z100=(x9l,1.214x_height);
+umlaut(100);.endchar;
+
+nombre:= 3.65gencoef[1,1.230769];
+
+.cmchar "The Fraktur letter e with Umlaut";
+.beginchar(oct"221",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1l=(0,0.486h);
+penpos7(gencoef[hair,1.2hair],gencoef[-45,-56]);
+penpos8(gencoef[hair,1.2hair],gencoef[-45,-56]);
+z8-z7=whatever*((w,gencoef[0.45h,0.356h])); x8r=gencoef[w,0.9w];
+x7r=gencoef[x1r,0.4125w]; y7r=-apex_o; z7'=whatever[z7,z8];
+y7'=gencoef[y7l,y7r]; x7':=gencoef[x7',x7r]; z9=whatever[z7l,z8l];
+x9=gencoef[0.8w,x8l]; z2=(gencoef[0.092w,0.07475w],0.828h);
+penpos3(gencoef[hair,1.2hair],-69); penpos4(gencoef[hair,1.2hair],-69);
+y3l=h+apex_o; penpos6(gencoef[hair,1.2hair],-69); z6r=(x1r,0.5h);
+z3l-z2=whatever*((w,gencoef[0.3h,0.25h])); x4r=w-gencoef[apex_o,0];
+z4-z6=whatever*((w,gencoef[0.3h,0.226h])); penpos5(1.083stem,angle(z4-z6));
+z5r=z4r; z5'=whatever[z2,z3l]; z5'-z5l=whatever*(z3-z4); penstroke z6e--z4e;
+filldraw z5l--z5'--z3l--z4r--z5l & cycle; penpos2'(gencoef[hair,1.2hair],-69);
+z3-z2'=whatever*(z4-z6); x2'r=gencoef[x1r,0.5w];
+z10=whatever[(0,0),(w,gencoef[0.301h,0.363h])]; y10=0.193h; penstroke z2'e--z3e;
+filldraw z7'{dir135}..z1l{up}..z2 &
+z2..z2'l{z4-z6}--z2'r{gencoef[down,z6-z4]}..{down}z1r..z10
+..z9{z8-z7}--z8l-- z8r--z7' & cycle; penstroke z7e--z8e; z100=(0.569w,1.214x_height);
+umlaut(100);
+.endchar;
+
+nombre:=4.75gencoef[1,1.140351];
+
+.cmchar "The Fraktur letter o with Umlaut";
+.beginchar(oct"232",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,-37); penpos2(hair,-37); z9=(0,gencoef[0.117h,0.19863h]);
+x1r=gencoef[0.5w,0.561224w]; y1r=-apex_o; penpos3(1.083stem,31);
+z3r=(w,gencoef[0.479h,0.589h]); penpos7(stem,0);
+z7=(gencoef[0.211w,0.184w],gencoef[0.866h,0.829h]); penpos4(1.083stem,22);
+z4-z7l=whatever*dir22; y4r=h+apex_o; penpos5'(hair,-68); z5'l=z7l;
+penpos6(hair,-68); z6l=z4; penpos8(stem,0); z8=(x7,gencoef[foot,0.267h]);
+z2-z1=whatever*((w,0.786h)); x8'=x8r;
+y8'=foot; z2-z8r=whatever*(z1-z9); penstroke z1e---z2e...z3e..
+z4e{dir122}; penstroke z5'e--z6e; penstroke z8e--z7e; filldraw
+z9..z8l{up}--z8r--z2l--z1l--z9 & cycle; z7'=whatever[z5',z6]; x7'=x7r; filldraw
+z7l--z7'--z7r--z7l & cycle; z100=(x4,1.214x_height);
+umlaut(100);
+.endchar;
+
+nombre:=6.15gencoef[1,1.107527];
+
+.cmchar "The Fraktur letter u with Umlaut";
+.beginchar(oct"237",nombre*lower_u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.727w,foot); penpos2(stem,0); z2=(x1,0.838h);
+penpos3(2/3hair,90); penpos4(2/3hair,0); penpos5(2/3hair,-90);
+penpos3'(1.5stem,0); z3'=(x1,0.5[y2,h+apex_o]); z3=z3'l; z5=z3'r;
+z4=(x1,h+apex_o); penpos16(hair,-32); penpos17(hair,-32); z17-z16=whatever*dir58;
+z16r=(0.795w,-apex_o); x17r=w; z18=whatever[z16,z17]; y18=0.179h; penstroke
+z1e--z2e; filldraw z1l--z16--z18{dir148}.. (x1r,0.31h){up}--z1l & cycle;
+penstroke z16e--z17e; filldraw z2l{up}..z3l{dir165}--
+z3r{dir15}..z4l{dir75}--z4r{dir-75} ..z5l{dir-15}--z5r{dir195}..z2r{down} --z2l
+& cycle; penpos11(stem,0); penpos12(stem,0); z11=(0.257w,foot);
+z12=(x11,0.71x_height); penpos7(hair,-41); penpos6(hair,-41); z7r=(x11r,-apex_o);
+z6r=whatever[z7r,z1l]; x6=x1; penpos9(hair,90); z9=(0.063w,0.11x_height);
+penpos8(whatever,0); z8r=z7r; x8l=x7l; z10=whatever[z7l,z6l];
+z10-z11r=whatever*dir-41; filldraw z9l{right}..z8l--z8r--z6r
+--z6l--z10--z11r--z11l{down}..z9r{dir195} --z9l & cycle; penstroke z11e--z12e;
+penpos14(hair,-38); z14l=(0,0.805x_height); z13=(0.217w,h+apex_o);
+z15-z14r=whatever*(z13-z14l); x15=0.097w; filldraw z13..z12r{down}--z12l{up}
+..z15--z14r--z14l--z13 & cycle; z100=(x2l-hair,1.214x_height);
+umlaut(100);
+.endchar;
+
+.cmchar "The Fraktur hyphen";
+.beginchar(oct"055",4u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.5stem,-90);
+penpos2(0.5stem,-90);
+penpos3(0.5stem,-90);
+penpos4(0.5stem,-90); penpos5(stem,-90);
+z2-z1=whatever*dir35;
+z4-z3=whatever*dir35;
+z3r=z5l; z5r=z1l; x1=0;
+x2=x4=w;
+y1r=foot;
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+.endchar;
+
+def par_s(suffix $) =
+h':=cap_height; w':=0.379h';
+z$.1=z$+(0.5w',0.5h');
+penpos$.1(stem,30);
+penpos$.2(2hair,0);
+penpos$.3(hair,-90);
+penpos$.4(hair,180);
+penpos$.5(hair,90);
+z$.2l=z$+(0,0.8h'); z$.3l=(x$.1,y$+h');
+z$.4=z$+(0.84w',0.886h');
+z$.5=(x$.4r,y$+0.826h');
+penstroke z$.2e{up}..z$.3e
+{right} if panw: ..z$.4e{down}..z$.5e{left} fi;
+penpos$.6(2hair,90); z$.6l=z$.5l;
+if panw:
+filldraw z$.6r..z$.6l..z$.6r & cycle;
+fi
+penpos$.1'(stem,-150);
+penpos$.2'(2hair,180);
+penpos$.3'(hair,90);
+penpos$.4'(hair,0);
+penpos$.5'(hair,-90);
+z$.1=z$.1';
+z$.2'r=z$+(w',0.2h'); z$.3'r=(x$.1,y$);
+z$.4'=z$+(0.16w',0.114h');
+z$.5'=(x$.4'r,y$+0.174h');
+penpos$.2''(2hair,0); z$.2''=z$.2';
+z$.25=(z$.2''{up}..z$.2{up})
+intersectionpoint (z$+(0,0.5h')--
+z$+(w',0.5h'));
+penpos$.25(stem,30);
+penstroke z$.2''e{up}..z$.25e..
+z$.2e{up};
+penstroke z$.2'e{down}..z$.3'e
+{left} if katw: ..z$.4'e{up}..z$.5'e{right} fi;
+penpos$.6'(2hair,-90); z$.6'l=z$.5'l;
+if katw:
+filldraw z$.6'r..z$.6'l..z$.6'r & cycle;
+fi
+enddef;
+
+.cmchar "The Fraktur paragraph sign";
+.beginchar(oct"074",7.4u#,cap_height#,3.167u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+boolean panw, katw;
+panw:=true; katw:=false;
+z0=(0.17h,0); par_s(0);
+panw:=false; katw:=true;
+z1=(0,-0.3h); par_s(1);
+.endchar;
+
+.cmchar "The Fraktur paragraph sign";
+.beginchar(oct"244",7.4u#,cap_height#,3.167u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+boolean panw, katw;
+panw:=true; katw:=false;
+z0=(0.17h,0); par_s(0);
+panw:=false; katw:=true;
+z1=(0,-0.3h); par_s(1);
+.endchar;
+
+.cmchar "The Fraktur Mitlaut J proposed by Sanders in 1879";
+.beginchar("$",8.541u#,cap_height#,2.497u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,28); penpos2(cap_hair,-17.5); penpos3(0.889cap_stem,-116); penpos4(cap_stem,-126);
+penpos5(cap_hair,-44); penpos6(1.056cap_stem,53); penpos7(1.056cap_stem,21); penpos8(cap_hair,-90);
+penpos9(cap_hair,180); z1=(0.115w,-0.886d); z2r=(x1,-0.519d); z3=(0.234w,-0.1d); z4r=(0.517w,-d);
+z5=(0.795w,-0.329d); z6r=(0.966w,0.196h); z7=(0.636w,0.56h); z8=(0.808w,0.683h); z9l=(x6r,0.554h);
+penstroke z1e..z2e{up}..z3e{right} ..z4e{right}..z5e..z6e{up}..z7e{up} ..z8e{right}..z9e{down};
+penpos10(1.037cap_stem,50); penpos11(cap_hair,-45); penpos12(0.889cap_stem,43);
+penpos13(1.185cap_stem,-146); penpos14(0.741cap_stem,-119); penpos15(cap_hair,0);
+penpos16(cap_hair,28); z10l=z11r=(0.1w,0.515h); z12l=(0,0.69h); z13l=(0.506w,h+apex_o);
+z14r=z8l+(0,0.035h); z15r=(w,0.875h); z16=(x15l,0.924h); filldraw z11l{z12r-z11l}..z12l{up}--
+z12r{down}..z10r--z10l--z11l & cycle; penstroke z12e{up}..z13e{right}..
+z14e{right}..z15e{up}..z16e{dir118}; penpos20(hair,-41); penpos21(hair,-41);
+penpos22(2/3cap_stem,-90); penpos23(0.593cap_stem,-113); z20l=(0,0.235h); z21=(x8,0.48y8);
+z22=(0.261w,0.328h); z23=(0.586w,0.251h); penstroke z20e..z22e{right}..z23e{right} ..z21e;
+.endchar;
+
+.cmchar "The Fraktur symbol for etc"; .beginchar(oct"311",8.194lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#); penpos1(hair,-52);
+penpos2(hair,-52); penpos3(stem,48); penpos4(stem,48); penpos5(hair,-42); penpos6(1.2stem,34);
+penpos8(hair,-49); z1r=(0.22w,-apex_o); z2-z1=whatever*dir38; x2=0.458w; z3l=z1r;
+z4l-z1r=whatever*dir140; x4l=0; z5l=z4; y6=0.707h; x6r=x2r; z7=(0.231w,h+apex_o);
+z9=(0.163w,0.841h); z8l=(0,0.793h); penstroke z1e--z2e; penstroke z3e--z4e; penstroke
+z5e{z4r-z4l}..z6e{up}; filldraw z6r{up}..z7{dir160} & z7-- z8l--z8r{z7-z8l}..z9{right}..z6l{down}
+--z6r & cycle; penpos10(hair,-59); penpos11(hair,-59); penpos12(whatever,50); penpos13(1.2stem,30);
+penpos14(stem,11.5); penpos15(hair,-75); penpos16(0.857stem,14); penpos17(0.857stem,14);
+z11r=(0.695w,-apex_o); z10-z11=whatever*dir31; x10r=w; z12l=z11r; z12r=whatever[z11l,z10l];
+z13=(0.631w,0.49h); z14=(0.678w,0.859h); z16r=(w,y8l); z15-z16r=whatever*dir105; y15l=h+apex_o;
+z17r=z15; penstroke z11e--z10e; penstroke z12e..z13e{up}..z14e.. z15e{z16r-z16l}; penstroke
+z16e--z17e;
+.endchar;
+
+.cmchar "Scandinavian circle accent";
+.beginchar(oct"027",9u#,cap_height#,0);
+.adjust_fit(0,0);
+penpos0.1(2u,45); z0.1=z0=(0.5w,1.283x_height);
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z0.2=z0.1r; z0.3=z0.1l; rt x0.4=rt x0.2; top y0.4=y0;
+draw z0.2..z0.3..z0.2;
+penlabels(1,2,3,4); .endchar;
+
+.cmchar "The Fraktur letter dotless j";
+.beginchar(oct"021",2.944lower_u#,x_height#,1.611lower_u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,47); penpos2(1.3hair,-90); z2r=(0.16w,-d); penpos5(stem,0);
+z5=(0.523w,0.124h); penpos3(2/3stem,0); z3l=(x5l,0.048h); penpos6(stem,0);
+z6=(x5,0.824h); penpos7(hair,-90); z7=(0.906w,0.91h); penpos8(hair,-48);
+penpos9(hair,-48); z8l=(0.481w,h+apex_o); z8-z9=whatever*((w,0.3448h)); x9l=0;
+z9'=whatever[z9r,z8r]; y9'=y9l+apex_o; z1r=(x5r+0.5stem,-0.207d);penstroke
+z2e..z3e{up}; penstroke z5e--z6e; filldraw z1r{dir137}..z5r{up}--z5l
+--z3l--z3r..z1l{dir-43}--z1r & cycle; filldraw z6r{up}..z7r{right}--z7l...
+z8r---z8l--z9l--z9r--z9'.. z6l{down}--z6r & cycle; penpos11(hair,0);
+z11r=(x8l,1.076h); z12=(0.571w,1.279h); z13=(0.744w,1.238h);
+.endchar;
+
+.cmchar "The Fraktur letter dotless i";
+.beginchar(oct"020",2.889lower_u#,x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(hair,-44); penpos2(hair,-44); penpos3(hair,-44); z1l=(0,0.834h);
+z2-z1=whatever*((w,0.37h)); y2l=h+apex_o; z3=whatever[z2l,z2r]; x3r=x5r+0.5stem;
+z4=(0.606w,0.931h); penpos5(stem,0); z5=(0.433w,0.759h); z6=(x5,0.238h);
+penpos6(stem,0); z7=(x6l,0.079h); z8-z7=whatever*dir-40; y8=-apex_o;
+penpos9(hair,-38); z9r-z8=whatever*dir52; x9r=w; z10=(0.788w,0.152h);
+z5'=whatever[z1,z2]; x5'=x5l; penstroke z5e--z6e; penstroke z1e--z2e; filldraw
+z5r{up}..z3r--z2--z5'--z5l{down} --z5r & cycle; filldraw z8--z9r--z9l{z8-z9r}
+..z6r{up}--z6l{down}..{z8-z7}z8 & cycle; penpos11(hair,0); z11r=(x2l,1.076h);
+z12=(0.56w,1.279h); z13=(0.73w,1.238h);
+.endchar;
+
diff --git a/fonts/gothic/yfrak/yfraknum.mf b/fonts/gothic/yfrak/yfraknum.mf
new file mode 100644
index 0000000000..56ef6327e9
--- /dev/null
+++ b/fonts/gothic/yfrak/yfraknum.mf
@@ -0,0 +1,194 @@
+.cmchar "The Fraktur numeral 1";
+.beginchar("1",2.778u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos2(w,0); z2=(0.5w,0);
+penpos1(stem,0); z1=(0.5w,foot);
+penpos3(hair,90); penpos4(hair,90);
+z3l=z2l; z4l=z2r; penpos5(stem,0);
+z5=(x1,0.79h); penpos6(hair,0);
+z6r=(x5r,h); penpos7(1.5hair,90);
+z7=(0,0.9h);
+filldraw z4l--z4r...z1r---z6r--
+z6l..z7r{left}--z7l{right}...
+z5l---z1l...z3r--z2l--z4l & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 2";
+.beginchar("2",5.694u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.625stem,-90); penpos2(stem,-90);
+penpos3(4/3stem,-115);
+z1r=(0,0); z2r=(0.722w,0.026h);
+x3l=w; y3r=-apex_o;
+penstroke z1e..z2e{right}..z3e;
+penpos4(0.917stem,20);
+z4r=(0.966w,0.721h);
+z5=(0.478w,0.848h);
+z6=(0.244w,h+apex_o);
+z7=(0.093w,0.822h);
+penpos8(hair,13); z8=(0.146w,3/4h);
+penstroke z1e{dir44}..z4e{up};
+filldraw z8r..z5{right}..z4l{down}
+--z4r{up}..z6{dir173} & z6--z7--z8l--z8r &
+cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 3";
+.beginchar("3",5.5u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.5hair,-90); penpos2(stem,18);
+penpos3(1.833stem,35);
+penpos4(hair,-90); penpos5(0.625stem,0);
+z1r=(0,-apex_o); z2=(0.788w,0.353h);
+z4r=(0.167w,0.489h); z5r=(w,h);
+z3l=z4r;
+penstroke z1e{dir12}..z2e{up}..z3e{left};
+penstroke z4e{dir30}..z5e{up};
+penpos7(0.917stem,-90);
+penpos8(0.417stem,-17);
+penpos9(hair,0);
+z8l=(0,0.796h); z9l-z8l=whatever*dir73;
+y9=h+apex_o; z7l=(0.273w,h-apex_o);
+z6=(z4l{dir30}..z5l{up}) intersectionpoint
+((0,y7r+apex_o)--(w,y7r+apex_o));
+filldraw z8l--z9l--z9r..z7l{right}...
+z5l---z5r--z6..z7r{left}..z8r{z8l-z9l}
+--z8l & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 4";
+.beginchar("4",7.361u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(stem,0); penpos2(stem,0);
+z1=(0.619w,foot); z2=(x1,0.831h);
+z3=(x1,h); z4=(0,0.444h);
+penpos6(0.521stem,90); z6=(0.796w,0.45h);
+y5=y6l; (x2r,h)-z5=whatever*dir50;
+z4'=(1/45w,y6r); z3'-z4'=whatever*dir50;
+x3'=x2l; penpos9(hair,90);
+penpos10(hair,-90); z9l=(x1-stem,0);
+z10r=(x1+stem,0);
+z8=(w,0.521h); z7=(0.921w,0.376h);
+filldraw z9l--z9r...z1l---z2l--
+z2r---z1r...z10l--z10r--z9l & cycle;
+z3''=whatever[z5,(x2r,h)]; x3''=x2l;
+filldraw z2l--z3''--z5--z4'---z3'...
+z3{right}..{down}z2r--z2l & cycle;
+filldraw z6l---z5...z4{up}..z4'{z3'-z4'}
+& z4'---z6r...z8{right}--z7..
+z6l{left} & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 5";
+.beginchar("5",5.528u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.458stem,-60); penpos2(1.125stem,25);
+penpos3(1.125stem,65); penpos4(1.167stem,53);
+penpos5(1.5hair,-25); penpos6(0.958stem,-77);
+z1=(0.221w,-apex_o); z2=(0.729w,0.417h);
+z3=(0.462w,0.578h); z4l=(0,0.618h);
+z5=(0.161w,0.814h); z6l=(0.349w,h);
+z7=(0.673w,0.98h); z8=(w,h);
+z9=(0.851w,0.828h);
+penstroke z1e{dir30}..z2e{up}..
+z3e{dir169}..z4e{up}..z5e{dir65}..z6e{right};
+filldraw z6l{right}..z7..z8 & z8--z9 &
+z9..{left}z6r--z6l & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 6";
+.beginchar("6",6.056u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.4hair,-42); penpos2(1.208stem,40);
+penpos3(1.125stem,54); penpos4(1.2hair,-36);
+penpos5(stem,30); penpos7(hair,-45);
+z1l=(0.716w,h+apex_o); z2l=(0,0.342h);
+z3l=(0.674w,-apex_o);
+penstroke z3e..z2e{up}..z1e{dir48};
+z4r=z3; z5r=(w,0.362h); z6=(0.573w,0.753h);
+z6-z7l=whatever*dir45; y7l=0.555h;
+z8=(0.477w,0.566h);
+filldraw z4r---z3r...z5r{up}..z6{dir135}
+--z7l--z7r{z6-z7l}..z8{right}..z5l{down}
+..z4l{z3l-z3r}--z4r & cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 7";
+.beginchar("7",5.906u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.417stem,0); z1=(0.466w,0);
+penpos2(hair,-57); y2l=h; x2r=w;
+penstroke z1e{up}..z2e{dir64};
+penpos3(hair,-20); penpos5(stem,-90);
+z3l=(0,0.776h); z5l=(0.24w,h);
+z4-z3l=whatever*dir70; y4=h+apex_o;
+z6=(z5r--(w,y5r)) intersectionpoint
+(z1{up}..z2{dir64});
+filldraw z3r{z4-z3l}...z5r---z6--
+z2--z2l---z5l...z4 & z4--z3l--z3r &
+cycle;
+.endchar;
+
+.cmchar "The Fraktur numeral 8";
+.beginchar("8",6.722u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.042stem,61.5);
+penpos2(hair,110);
+z1=z2=(0.5w,0.51h);
+penpos3(0.917stem,24);
+z3l=(0.083w,0.721h);
+penpos5(0.917stem,-204);
+z5l=(w-x3l,y3l);
+penpos4(hair,-90); z4l=(0.5w,h+apex_o);
+penpos6(stem,180); z6r=(0,0.245h);
+penpos7(2hair,-90); z7r=(0.5w,-apex_o);
+penpos8(stem,0); z8r=(w,y6);
+penstroke z1e{dir151.5}..z3e{up}..
+z4e{right}..z5e{down}..z2e{dir200}..
+z6e{down}..z7e{right}..z8e{up}..
+z1e{dir151.5};
+.endchar;
+
+.cmchar "The Fraktur numeral 9";
+.beginchar("9",6.056u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.4hair,-42); penpos2(1.208stem,40);
+penpos3(1.125stem,54); penpos4(1.2hair,-36);
+penpos5(stem,30); penpos7(hair,-45);
+z1l=(0.716w,h+apex_o); z2l=(0,0.342h);
+z3l=(0.674w,-apex_o);
+penstroke z3e..z2e{up}..z1e{dir48};
+z4r=z3; z5r=(w,0.362h); z6=(0.573w,0.753h);
+z6-z7l=whatever*dir45; y7l=0.555h;
+z8=(0.477w,0.566h);
+filldraw z4r---z3r...z5r{up}..z6{dir135}
+--z7l--z7r{z6-z7l}..z8{right}..z5l{down}
+..z4l{z3l-z3r}--z4r & cycle;
+transform gurisma;
+gurisma=identity
+rotatedaround ((0.5w,0.5h),180);
+picture krufo;
+krufo:= currentpicture transformed
+gurisma;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The Fraktur numeral 0";
+.beginchar("0",7.332u#,1.2x_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.059stem,-143);
+penpos2(stem,-140);
+penpos3(1.05stem,-136);
+penpos4(1.1stem,-142);
+penpos5(hair,128);
+penpos6(hair,127);
+z1l=(0.535w,h+apex_o); z4r=(w-x1l,-apex_o);
+z2l=(w,0.528h); x3r=0; y3=y2l+apex_o;
+z5l=z4; z6r=z1;
+penstroke z1e{dir-25}..z2e{down}..
+z5e{z4r-z4l};
+penstroke z6e{z1r-z1l}..z3e{down}..
+z4e{dir-31};
+.endchar;
+
diff --git a/fonts/gothic/yfrak/yfrakoth.mf b/fonts/gothic/yfrak/yfrakoth.mf
new file mode 100644
index 0000000000..b0f939e8e0
--- /dev/null
+++ b/fonts/gothic/yfrak/yfrakoth.mf
@@ -0,0 +1,528 @@
+.cmchar "The Fraktur comma";
+.beginchar(",",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+%penstroke z1e--z2e;
+penpos10(0.11785*(x_height+2apex_o),-30);
+z10l=(x2l-apex_o,-1.3y2r);
+filldraw z10l--z2l+(2hair,0){up}..{down}
+z1r--z10r--z10l & cycle;
+.endchar;
+
+.cmchar "The Fraktur colon";
+.beginchar(":",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+penstroke z5e--z6e;
+.endchar;
+
+.cmchar "The Fraktur semicolon";
+.beginchar(";",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+penstroke z5e--z6e;
+penpos10(hair,-30); z10l=(x2l,-y2r);
+filldraw z10l{z1r-z10r}..z2l{z2-z1}
+& z2l--z1r--z10r--z10l & cycle;
+.endchar;
+
+.cmchar "The Fraktur point";
+.beginchar(".",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+pointpoint;
+.endchar;
+
+.cmchar "Grave accent";
+.beginchar(oct"022",9u#,min(asc_height#,2x_height#),0);
+.adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1-.5stem=hround 2u; x2=2/3[x1,w-x1];
+ y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ lft x1l=hround 1.5u; rt x2r=hround(.5w+.25u+.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Acute accent";
+.beginchar(oct"023",9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant-if serifs: 1.5 fi u#;
+.adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1+.5stem=hround(w-2u); x2=2/3[x1,w-x1];
+ y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ rt x1r=hround(w-1.5u); lft x2l=hround(.5w-.25u-.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Hachek (check) accent";
+.beginchar(oct"024",9u#,.75[x_height#,min(asc_height#,2x_height#)],0);
+h':=vround min(asc_height,2x_height); % height of circumflex being inverted
+if serifs: italcorr h#*slant+.5hair#-1.75u#;
+ .adjust_fit(0,0);
+ pickup crisp.nib; pos2'(.5[vair,curve],90); top y2'r=h;
+ pos2(.5[vair,curve],90); x2=.5w;
+ x1=w-x3=good.x 2.25u; top y1=top y3=h; y1-y2=.5(y2'-x_height);
+ pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90);
+ filldraw stroke z1e--z2e--z3e; % diagonals
+else: italcorr h#*slant-.5stem#+.5vair#-.75u#;
+ .adjust_fit(0,0);
+ pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3;
+ pos2(stem,0); bot y2=vround(1/12[x_height,h']+o); x2=.5w;
+ top y1=top y3=h+o; lft x1l=hround(rt x2r-3.25u-.5vair);
+ z0=whatever[z1r,z2r]=whatever[z2l,z3l];
+ y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l;
+ filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi % diagonals
+penlabels(0,1,2,3,4); .endchar;
+
+.cmchar "Breve accent";
+.beginchar(oct"025",9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant+.5vair#-1.5u#;
+.adjust_fit(0,0);
+pickup crisp.nib; pos1(vair,-180); pos3(vair,0);
+top y1=top y3=h; lft x1r=w-rt x3r=hround(2u-.5vair);
+numeric mid_thickness; mid_thickness=vround 1/3[vair,stem];
+pos2(mid_thickness,-90); x2=.5w;
+bot y2r=vround max(x_height+o+tiny,1/3[x_height,h]+o-.5mid_thickness);
+filldraw stroke z1e{down}...z2e{right}...{up}z3e; % stroke
+penlabels(1,2,3); .endchar;
+
+.cmchar "Macron (bar) accent";
+numeric macron_breadth#; macron_breadth#=.2[vair#,stem#];
+.beginchar(oct"026",6u#,.4[x_height#,asc_height#]+macron_breadth#,0);
+italcorr h#*slant-.75u#;
+.adjust_fit(0,0);
+numeric macron_breadth; macron_breadth:=Vround .2[vair,stem];
+pickup if serifs: crisp.nib else: fine.nib fi;
+pos1(2/3stem,70); pos2(2/3stem,70);
+top y1r=top y2r=h+o; lft x1r=w-rt x2l=hround 1.25u;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Cedilla accent";
+.beginchar(oct"030",8u#,0,.875desc_depth#);
+.adjust_fit(0,0);
+x1=.5w+.5u;
+if serifs: pickup crisp.nib; pos1(eps,0); pos2(stem,0);
+ pos3(vair,90); pos4(stem,0); pos5(vair,-90);
+ x1=x2; z3l=z2l; x4=x2+1.5u; x5=x3-1.5u;
+ bot y1=-o; bot y2=-vround 2/7d-o; y4=.5[y3,y5]; bot y5=-d-o;
+ filldraw stroke z1e--z2e; % stem
+ filldraw stroke z3e{right}...z4e{down}...{left}z5e; % hook
+else: pickup fine.nib; pos1(vair,0); top y1=-o-2;
+ pos2(.5[vair,stem],0); bot y2=-d-o; x2=x1-1.25u;
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2,3,4,5); .endchar;
+
+.cmchar "Circumflex (hat) accent";
+.beginchar(oct"136",9u#,min(asc_height#,2x_height#),0);
+if serifs: italcorr .5[x_height#,h#]*slant+.5hair#-1.75u#;
+ .adjust_fit(0,0);
+ pickup crisp.nib; pos2(.5[vair,curve],90); top y2r=h; x2=.5w;
+ x1=w-x3=good.x 2.25u; y1=y3=.5[x_height,y2];
+ pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90);
+ filldraw stroke z1e--z2e--z3e; % diagonals
+else: italcorr 2/3[x_height#,h#]*slant-.5stem#+.5vair#-.75u#;
+ .adjust_fit(0,0);
+ pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3;
+ pos2(stem,0); top y2=h; x2=.5w; bot y1=bot y3=vround 2/3[h,x_height]-eps;
+ lft x1l=hround(rt x2r-3.25u-.5vair); % same slope as in the acute accent
+ z0=whatever[z1r,z2r]=whatever[z2l,z3l];
+ y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l;
+ filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi % diagonals
+penlabels(0,1,2,3,4); .endchar;
+
+iff ligs>0: .cmchar "Dot accent";
+numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
+.beginchar(oct"137",5u#,min(asc_height#,10/7x_height#+.5dot_diam#),0);
+define_whole_blacker_pixels(dot_diam);
+italcorr h#*slant+.5dot_diam#-2u#;
+.adjust_fit(0,0);
+pickup tiny.nib; pos1(dot_diam,0); pos2(dot_diam,90);
+x1=x2=.5w; top y2r=h+1;
+if bot y2l<x_height+o+slab: y2l:=min(y2r-eps,x_height+o+slab+.5tiny); fi
+y1=.5[y2l,y2r]; dot(1,2); % dot
+penlabels(1,2); .endchar;
+
+iff ligs>0: .cmchar "Long Hungarian umlaut accent";
+.beginchar(oct"175",9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant-u#;
+.adjust_fit(0,0);
+x3-x1=x4-x2=hround 3u; y3=y1; y4=y2;
+if serifs: pickup crisp.nib; x3+.5stem=hround(w-1.5u); x2=2.5u;
+ y1+.5stem=h; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ pos3(stem,theta); pos4(hair,theta);
+ filldraw circ_stroke z1e--z2e; % left diagonal
+ filldraw circ_stroke z3e--z4e; % right diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ pos3(stem,0); pos4(vair,0);
+ rt x3r=hround(w-1.5u); lft x4l=hround(.5w+u-.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; % left diagonal
+ filldraw stroke z3e--z4e; fi % right diagonal
+penlabels(1,2,3,4); .endchar;
+
+.cmchar "Tilde (squiggle) accent";
+.beginchar(oct"176",9u#,min(asc_height#,10/7x_height#+.5dot_size#),0);
+italcorr h#*slant-u#;
+.adjust_fit(0,0);
+if serifs: numeric theta; theta=angle(1/6(6u-vair),1/4(h-x_height));
+ pickup crisp.nib; numeric mid_width; mid_width=.4[vair,stem];
+ pos1(vair,theta+90); pos2(vair,theta+90);
+ pos3(vair,theta+90); pos4(vair,theta+90);
+ z2-z1=z4-z3=(mid_width-crisp)*dir theta;
+ lft x1r=w-rt x4l=hround 1.5u; top y4r=h;
+ bot y1l=vround(bot y1l+min(2/3[x_height,h],y3l-.25vair)-top y1r);
+ pair delta; ypart delta=3(y3l-y1l); delta=whatever*dir theta;
+ filldraw z1l..controls(z1l+delta)and(z3l-delta)..z3l..z4l
+ --z4r..controls(z4r-delta)and(z2r+delta)..z2r..z1r--cycle; % stroke
+else: pickup fine.nib; pos1(vair,180); pos2(vair,90);
+ pos3(.5[vair,slab],90); pos4(vair,90); pos5(vair,180);
+ lft x1r=w-rt x5l=hround 1.5u; x2-x1=x3-x2=x4-x3=x5-x4;
+ bot y1=bot y4l=vround(.75[x_height,h]-vair);
+ top y2r=top y5=h; y3=.5[y2,y4];
+ filldraw stroke z1e{up}...z2e{right}..z3e..{right}z4e...{up}z5e; fi % stroke
+penlabels(1,2,3,4,5); .endchar;
+
+.cmchar "Opening Gaensefuesschen";
+.beginchar(oct"134",9u#,asc_height#,0);
+italcorr asc_height#*slant+dot_size#-4.1u#;
+.adjust_fit(0,0);
+x2+.5dot_size=hround(w-.6u); y2-.5dot_size=0;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+comma(1,a,dot_size,.25u,comma_depth); % left dot and tail
+comma(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2); .endchar;
+
+
+.cmchar "Closing Gaensefuesschen";
+.beginchar(oct"042",9u#,asc_height#,0);
+italcorr asc_height#*slant-.1u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround .6u;
+ y1+.5dot_size=h-comma_depth;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+ammoc(1,a,dot_size,.25u,comma_depth); % left dot and tail
+ammoc(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2);
+.endchar;
+
+.cmchar "En dash";
+.beginchar(oct"173",9u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(0,0);
+pickup crisp.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Em dash";
+.beginchar(oct"174",18u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(letter_fit#,letter_fit#);
+pickup crisp.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Hash mark (number sign)";
+if monospace: compute_spread(.6x_height#,.7x_height#);
+else: compute_spread(.45x_height#,.55x_height#); fi
+.beginchar("#",15u#,asc_height#,asc_depth#);
+italcorr (math_axis#+.5(spread#+rule_thickness#))*slant-.5u#;
+.adjust_fit(0,0);
+pickup rule.nib; lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
+y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
+draw z1--z2; % upper bar
+draw z3--z4; % lower bar
+lft x6=hround 3u; rt x7=hround(w-3u); x5-x6=x7-x8;
+x8=good.x if monospace: .6 else: .5 fi\\w;
+top y5=top y7=h+eps; bot y6=bot y8=-d-eps;
+y15=y1; z15=whatever[z5,z6]; y36=y3; z36=whatever[z5,z6];
+y27=y2; z27=whatever[z7,z8]; y48=y4; z48=whatever[z7,z8];
+draw z5--if x5>x6+1:(good.x(x15+.5),y1)--(good.x(x15-.5),y1)
+ --(good.x(x36+.5),y3)--(good.x(x36-.5),y3)--fi\\z6; % left diagonal
+draw z7--if x7>x8+1:(good.x(x27+.5),y2)--(good.x(x27-.5),y2)
+ --(good.x(x48+.5),y4)--(good.x(x48-.5),y4)--fi\\z8; % right diagonal
+labels(1,2,3,4,5,6,7,8,15,27,36,48); .endchar;
+
+.cmchar "Per cent sign";
+.beginchar("%",15u#,
+ body_height#,body_height#-asc_height#);
+italcorr if hefty: .4asc_height#*slant-.5u# else: h#*slant-u# fi;
+.adjust_fit(0,0); pickup fine.nib;
+numeric left_curve,right_curve;
+left_curve=hround 5/6[fudged.hair,fudged.stem];
+right_curve=max(fine.breadth,hround(fudged.hair if hefty:-2stem_corr fi));
+pos1(vair,90); pos2(left_curve,180); pos3(vair,270); pos4(right_curve,360);
+top y1r=h; lft x2r=hround u; rt x4r=hround(.5w-1.5u);
+bot y3r=floor(if monospace: .7 else: .5 fi\\ asc_height);
+x1=x3=.5[x2,x4]; y2=y4=.5[y1,y3];
+filldraw stroke pulled_super_arc.e(1,2)(superpull)
+ & pulled_super_arc.e(2,3)(superpull); % left half of upper bowl
+filldraw stroke super_arc.e(3,4) & super_arc.e(4,1); % right half of upper bowl
+pos5(vair,90); pos6(left_curve,180); pos7(vair,270); pos8(right_curve,360);
+bot y7r=-d; rt x8r=hround(w-u); lft x6r=hround(.5w+1.5u);
+top y5r=vround(if monospace: .3 else: .5 fi\\ asc_height);
+x5=x7=.5[x6,x8]; y6=y8=.5[y5,y7];
+filldraw stroke pulled_super_arc.e(5,6)(superpull)
+ & pulled_super_arc.e(6,7)(superpull); % left half of lower bowl
+filldraw stroke super_arc.e(7,8) & super_arc.e(8,5); % right half of lower bowl
+pickup rule.nib; top y9=h; bot y10=-d;
+if hefty: x9=good.x(x5-eps); x10=good.x(x1+eps);
+ draw z9--z10; % diagonal
+else: rt x9=hround(w-2.5u); lft x10=hround 2.5u; draw z9--z10; % diagonal
+ pickup fine.nib; pos9(rule_thickness,angle(z9-z10)+90);
+ pos11(vair,angle(z1r-z4r)-90); pos12(vair,angle(z9-z10)+90);
+ path p; p=super_arc.r(1,4); z11r=point 2/3 of p; z12r=z9r;
+ filldraw stroke z11e{direction 2/3 of p}...{z9-z10}z12e; fi % link
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12); .endchar;
+
+.cmchar "Apostrophe";
+.beginchar("'",5u#,asc_height#,0);
+italcorr asc_height#*slant+.5dot_size#-2u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround(.5w-.5dot_size); y1+.5dot_size=h;
+if monospace: comma(1,a,dot_size,.28u,vround 1.5comma_depth); % large comma
+else: comma(1,a,dot_size,.25u,comma_depth); fi % comma with increased jut
+penlabels(1); .endchar;
+
+.cmchar "Left parenthesis";
+.beginchar("(",7u# if monospace: -u# fi,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+rt x1r=rt x3r=hround(w-u); lft x2l=hround(x1-4u if monospace: +4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Right parenthesis";
+.beginchar(")",7u# if monospace: -u# fi,body_height#,paren_depth#);
+italcorr math_axis#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+lft x1l=lft x3l=hround u; rt x2r=hround(x1+4u if monospace: -4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Asterisk";
+.beginchar("*",9u#,
+ if low_asterisk:math_axis#+.5x_height# else: body_height# fi,0);
+italcorr h#*slant-.75u#;
+.adjust_fit(0,0);
+numeric ast_flare; ast_flare=hround .7[thin_join,stem];
+x0=.5w; y0=h-.5x_height;
+for d=-150 step 60 until 150: z[d]=z0+.5dir d xscaled 7.5u yscaled x_height;
+ numeric theta; theta=angle(z[d]-z0);
+ fill z0+.5(0,-thin_join)rotated theta
+ ---z[d]+.5(-ast_flare,-ast_flare)rotated theta
+ ..z[d]..z[d]+.5(-ast_flare,ast_flare)rotated theta
+ ---z0+.5(0,thin_join)rotated theta--cycle; endfor % diagonal at angle |d|
+labels(0,[-150],[-90],[-30],30,90,150); .endchar;
+
+.cmchar "Plus sign";
+beginarithchar("+"); pickup rule.nib;
+x1=x2=good.x .5w; top y1=h+eps; .5[y1,y2]=math_axis;
+lft x3=hround u-eps; x4=w-x3; y3=y4=math_axis;
+draw z1--z2; % stem
+draw z3--z4; % crossbar
+labels(1,2,3,4); .endchar;
+
+.cmchar "Virgule (slash)";
+.beginchar("/",9u#,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+rt x1=hround(w-u)+eps; top y1=h+eps;
+lft x2=hround u-eps; bot y2=-d-eps;
+draw z1--z2; % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Equals sign";
+compute_spread(.45x_height#,.55x_height#);
+.beginchar("=",14u#,v_center(spread#+rule_thickness#));
+italcorr h#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
+y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
+draw z1--z2; % upper bar
+draw z3--z4; % lower bar
+labels(1,2,3,4); .endchar;
+
+.cmchar "Left bracket";
+numeric wd#; wd#=max(5u#,6u#);
+.beginchar("[",wd#,body_height#,paren_depth#);
+italcorr body_height#*slant;
+.adjust_fit(0,0);
+numeric top_thickness,side_thickness;
+if hefty: top_thickness=vair;
+ side_thickness=max(crisp.breadth,stem-2stem_corr);
+else: top_thickness=side_thickness=rule_thickness; fi;
+pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0);
+top y1=h; bot y2=-d; lft x1l=lft x2l=hround(2.5u-.5side_thickness)-1-eps;
+filldraw stroke z1e--z2e; % stem
+pos3(top_thickness,90); pos4(top_thickness,90);
+pos5(top_thickness,90); pos6(top_thickness,90);
+x3=x5=x1l; rt x4=rt x6=ceiling(w-.4u)+eps; y3r=y4r=y1; y5l=y6l=y2;
+filldraw stroke z3e--z4e; % upper bar
+filldraw stroke z5e--z6e; % lower bar
+penlabels(1,2,3,4,5,6); .endchar;
+
+.cmchar "Right bracket";
+numeric wd#; wd#=max(5u#,6u#);
+.beginchar("]",wd#,body_height#,paren_depth#);
+italcorr body_height#*slant-2u#+.5if hefty:stem# else:rule_thickness# fi;
+.adjust_fit(0,0);
+numeric top_thickness,side_thickness;
+if hefty: top_thickness=vair;
+ side_thickness=max(crisp.breadth,stem-2stem_corr);
+else: top_thickness=side_thickness=rule_thickness; fi;
+pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0);
+top y1=h; bot y2=-d; rt x1r=rt x2r=hround(w-2.5u+.5side_thickness)+1+eps;
+filldraw stroke z1e--z2e; % stem
+pos3(top_thickness,90); pos4(top_thickness,90);
+pos5(top_thickness,90); pos6(top_thickness,90);
+x3=x5=x1r; lft x4=lft x6=floor .4u-eps; y3r=y4r=y1; y5l=y6l=y2;
+filldraw stroke z3e--z4e; % upper bar
+filldraw stroke z5e--z6e; % lower bar
+penlabels(1,2,3,4,5,6); .endchar;
+
+.cmchar "Reverse apostrophe";
+.beginchar("`",5u#,asc_height#,0);
+italcorr asc_height#*slant+.5dot_size#-2u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround(.5w-.5dot_size); y1+.5dot_size=h-comma_depth;
+if monospace: ammoc(1,a,dot_size,.28u,vround 1.5comma_depth); % large ammoc
+else: ammoc(1,a,dot_size,.25u,comma_depth); fi % normal ammoc
+penlabels(1); .endchar;
+
+cmchar "Exclamation point";
+beginchar("!",5u#,asc_height#,0);
+italcorr asc_height#*slant-2u#-.5width_adj#+.5dot_size#;
+adjust_fit(0,0);
+pointpoint;
+pickup tiny.nib; pos103(dot_size,0); pos104(dot_size,90);
+lft x103l=hround(.5w-.5dot_size); bot y104l=0; z103=z104; % dot
+numeric bot_width;
+bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi;
+pickup fine.nib; pos101(dot_size,0); pos102(bot_width,0);
+x101=x102=x103; bot y102=.25[top y104r,x_height]+1;
+if square_dots: top y101=h;
+ filldraw stroke z101e--z102e; % stem
+else: top z100=(x101,h+o); y101+.5dot_size=h+o;
+ filldraw z101r...z100...z101l---z102l--z102r---cycle; fi % stem and bulb
+penlabels(0,1,2,3,4); endchar;
+
+cmchar "Question mark";
+beginchar("?",8.5u#,asc_height#,0);
+italcorr .8asc_height#*slant;
+adjust_fit(0,0);
+pointpoint;
+pickup tiny.nib; pos107(dot_size,0); pos108(dot_size,90);
+lft x107l=hround(.5w-.25u-.5dot_size); bot y108l=0; z107=z108; % dot
+numeric bot_width;
+bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi;
+pickup fine.nib; pos102(vair,90); pos103(curve,0);
+pos104(vair,-90); pos105(bot_width,0); pos106(bot_width,0);
+x102=x104=x105=x106=x107; rt x103r=hround(w-u); bot y106=1+.25[top y108r,x_height];
+top y102r=h+oo; y103=.75[y106,y102]; y104=.5[y106,y102]; y105=.1[y106,y102];
+{{interim superness:=more_super;
+filldraw stroke pulled_super_arc.e(102,103)(superpull)
+ & subpath (0,1) of super_arc.e(103,104) .. z105e---z106e\\}}; % arc and stem
+if serifs: pos101(hair,180); pos100(flare,180);
+ lft x101r=hround u; y101=y103; bulb(102,101,100); % bulb
+else: pos101(Vround 5/7[vair,flare],110);
+ lft x101r=hround u; top y101r=vround .9[y106,top y102r];
+ filldraw stroke term.e(102,101,left,101,104); fi % terminal
+penlabels(0,1,2,3,4,5,6,7,8); endchar;
+
+
+cmchar "Ampersand";
+beginchar("&",14u#,asc_height#,0);
+italcorr x_height#*slant-serif_fit# - if serifs: .4u# else: 1.5u# fi;
+adjust_fit(0,serif_fit#);
+pickup tiny.nib; pos2(slab,-90); x2=4u; bot y2r=-o;
+if not hefty:(x,y2l)=whatever[z2r,(w-5u,x_height)]; x2l:=x; fi
+if serifs: pos0(fudged.hair,0);
+ rt x0r+jut=hround(w-.9u); top y0=x_height;
+ pos1(fudged.hair,0); z1=whatever[z0,(.6[x0,x2],0)];
+ y1=max(y0-1.5bracket-.2x_height,2/3x_height);
+ filldraw stroke z0e---z1e...{left}z2e; % short diagonal
+else: pickup fine.nib; pos1(.25[slab,flare],-15); rt x1r=hround(w-2u);
+ y1r=good.y .75[bar_height,x_height]; x1l:=good.x x1l; y1l:=good.y y1l;
+ top z2'l=(x2l,tiny.top y2l); bot z2'r=(x2r,tiny.bot y2r);
+ filldraw stroke term.e(2',1,right,1,4); fi % short diagonal and terminal
+pickup tiny.nib; numeric slope,theta,reduced_hair;
+slope=(h-2vair-slab)/10.5u; theta=angle(-slope,1);
+reduced_hair=max(tiny.breadth,hround(fudged.hair if hefty:-2stem_corr fi));
+lft x3r=hround .75u; x5=.5[x3r,x6l]; lft x6r=hround .5(w-u);
+x3l-x3r=curve-tiny; pos6(reduced_hair,180);
+pos5(vair,theta); y5=.5h;
+ellipse_set(2l,3l,4l,5l); ellipse_set(2r,3r,4r,5r);
+pos7(vair,270); top y7l=h+o; x7=.45[x6r,x8r];
+pos8(fudged.stem,30); x8l=good.x(x8l+3.5u-x8); y8r=y6;
+ellipse_set(7l,6l,5',5l);
+filldraw stroke z2e{left}...z3e{up}...z4e---z5e...{up}z6e
+ ...z7e{left}...z8e{down}; % bowls
+pos10(slab,90); x10=w-3.5u; bot y10l=-o;
+pos9(fudged.stem,angle(z8-z10)-90);
+z9=.5[z8,z10]+(1.75u,0) rotated(angle(z8-z10)+90);
+filldraw stroke z8e{down}...z9e{z10-z8}...{right}z10e; % long diagonal
+if serifs: pickup crisp.nib; pos10'(slab,90); z10'=z10;
+ pos11(fudged.hair,180); rt x11l=hround(w-u); y11=.5bar_height;
+ filldraw stroke z10'e{right}...{up}z11e; % terminal
+ numeric inner_jut; if rt x6l+.5u<lft x0l-1.5jut: inner_jut=1.5jut;
+ else: rt x6l+.5u=lft x0l-inner_jut; fi
+ dish_serif(0,1,a,.6,inner_jut,b,.5,jut)(dark); % serif
+else: pickup fine.nib; pos10'(slab,90); z10'=z10;
+ pos11(Vround .5[slab,flare],90);
+ rt x11=hround(r-letter_fit-u); bot y11l=vround .07bar_height-o;
+ filldraw stroke term.e(10',11,right,1,4); fi % terminal
+penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar;
+
diff --git a/fonts/gothic/yfrak/yfrakupp.mf b/fonts/gothic/yfrak/yfrakupp.mf
new file mode 100644
index 0000000000..df5a8046e0
--- /dev/null
+++ b/fonts/gothic/yfrak/yfrakupp.mf
@@ -0,0 +1,1342 @@
+.cmchar "The Fraktur letter A";
+.beginchar("A",9.522u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+% made in Athens, Greece on Friday July 27, 1990
+penpos1(cap_hair,-51);
+penpos2(cap_hair,-51);
+z2-z1=whatever*dir39;
+x2r=w; z1r=(0.722w,-apex_o);
+penpos4'(cap_hair,39); z4'l=z1l;
+z4'r=z4;
+penpos5(cap_stem,0);
+z5=(x1r,0.223h);
+penpos13(cap_hair,-62); z13r=z5r;
+z13l-z14=whatever*dir26;
+z13r-z14'=whatever*dir26;
+y14=0; y14'=-apex_o;
+z6=whatever[z14',z13r]; x6=x5l;
+filldraw z14--z13l--z13r{down}..
+z2l{z2-z1}--z2r--z1r--z1l--z4--
+z6--z14'--z14 & cycle;
+filldraw z5l--z6--z5r--z5l & cycle;
+z1.1=whatever[z6,z4]; y1.1=y4+cap_hair;
+filldraw z1l{z2-z1}..z1.1{z6-z4}--
+z2--z1r--z1l & cycle;
+%
+%
+%
+penpos7(cap_stem,0); z7=(x5,0.862h);
+penpos8(cap_hair,-57);
+penpos9(cap_hair,-57);
+z8l=z7l; z9-z8=whatever*dir33;
+y9=h; z10=(0.937w,h+apex_o);
+z11=(0.99w,0.981h); z12=(0.953w,0.955h);
+z9'=whatever[z8r,z9r];
+x9'=0.4[x7r,x9r];
+penstroke z5e--z7e;
+filldraw z7r{up}..z9'{z9-z8}--
+z9r..z12{right}..z11{up}..z10{left}
+...z9l---z8l--z7r & cycle;
+%
+%
+%
+penpos15(cap_hair,-90); z15=(0,0.213h);
+z15r-z16=whatever*dir137;
+x16=0.936x14; z17=whatever[z14,z13l];
+x17=0.392w;
+penpos18(cap_hair,-43);
+z18-z17=whatever*dir133;
+y18r=y15l; penpos19(0.815cap_stem,0);
+x19=0.5w; y19=0.521h;
+z14''=(x14'-cap_hair,0);
+filldraw z15l{right}..z18l..z19l{up}
+--z19r{down}..z18r{dir-162}--
+z17--z14''{dir72}...z16---z15r--
+z15l & cycle;
+%
+%
+%
+penpos20'(1.037cap_stem,29.5);
+z20'=(0.405w,0.846h);
+penpos20(0.889cap_stem,50);
+z20=(x18r,0.904h);
+penpos21(1.25cap_hair,180);
+z21r=(0,3/4h);
+penpos22(1.148cap_stem,-162);
+z22l=(x20,0.678h);
+penpos23(cap_hair,180);
+z23=(0.284w,0.535h);
+penpos24(0.685cap_stem,66.6);
+z24l=(x22,0.367h);
+z25=(0.027w,0.426h); z26=(0.079w,0.473h);
+penstroke z19e{up}..z20'e{dir135}..
+z20e{left}..z21e{down}..z22e{dir-45}
+..z23e{down}..z24e{left};
+filldraw z24l{left}..z25{up}..z26{right}
+..z24r{right}--z24l & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter B";
+.beginchar("B",12.415u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.045w,0.096h); z2=(0.081w,0.141h);
+z3=(0,0.165h); z4=(x1,0.213h);
+penpos5(cap_stem,-142);
+z5=(0.179w,0.301h);
+penpos6(1.259cap_stem,-147);
+z6r=(0.538w,-apex_o);
+penpos7(cap_hair,-65);
+z7=(0.775w,0.103h);
+penpos8(0.907cap_stem,30);
+z8r=(w,0.4h);
+penpos9(1.741cap_stem,27);
+z9l=(x6r,0.6h);
+filldraw z1{right}..z2{up}..z4 &
+z4..z5r{right}..z6r{right} &
+z6r---z7r...z8r{up}..z9r{left}--
+z9l{right}..z8l{down}..z7l..z6l{left}
+..z5l{left}..z3{down}..z1{right} &
+cycle;
+%
+%
+%
+penpos10(1.222cap_stem,-153);
+z10r=0.883[z9l,z9r];
+penpos11(2/3cap_hair,-63);
+z11r=whatever[z9,z10]; x11=x10l+cap_hair;
+penpos13(1.056cap_stem,-125);
+z13l=(0.691w,h);
+z12=(z13l{right}..z10l{dir-63})
+intersectionpoint ((x10l-1.5hair,0)--
+(x10l-1.5hair,h));
+penpos14(cap_hair,0);
+penpos16(0.889cap_stem,17); z16r=z9l;
+z14=(x16,0.686h);
+filldraw z14l{dir78}..z13l{right}..z12..
+z11l{z10-z9}--z11r--z10r{dir117}..
+z13r{left}..{dir258}z14r--z14l & cycle;
+%
+%
+%
+penpos15'(cap_hair,-90);
+z15'l=z5l;
+penpos15(0.889cap_stem,0);
+z14-z15=whatever*dir85; y15=y5l+2cap_hair;
+penpos17(cap_stem,76);
+z17r=(0.256w,h+apex_o);
+penpos18(cap_hair,180);
+z18=(0.055w,0.745h);
+penpos19(1.185cap_stem,-145);
+z19=(0.148w,0.644h);
+penpos20(cap_hair,197);
+z20=(0.246w,0.548h);
+penpos21(cap_hair,118);
+z21=whatever[(0,0),z17]; x21=0.108w;
+penstroke z15'e{right}
+..z15e..z16e{up}..z17e{left}
+..z18e{down}..z19e{dir-45}..z20e{z20l-z19l}..
+z21e{dir202};
+.endchar;
+
+.cmchar "The Fraktur letter C";
+.beginchar("C",10.406u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.157w,0.08h); z2=(0.211w,0.138h);
+z3=(0.084w,0.141h);
+z5=(0.113w,0.209h); z4=0.4[z3,z5];
+penpos6(cap_hair,180);
+z6r=(0,0.117h); penpos7(cap_hair,-118);
+z7r=(0.189w,-apex_o);
+penpos8(cap_hair,-48);
+z8=(0.469w,0.136h);
+penpos9(1.074cap_stem,36);
+z9=(0.623w,0.367h); z10=(0.5w,0.721h);
+penpos10(0.889cap_stem,30);
+z11'=(0.736w,0.931h);
+z13=(0.803w,0.729h);
+z14=(w,0.777h); penpos11(cap_hair,
+angle(z13-z11'));
+z11l=z11'; z12-z11l=whatever*dir7;
+x12=0.912w; z16'-z12=whatever*(z13-z11);
+z16'=whatever[z13,z14];
+penpos15(cap_hair,angle(z13-z11));
+z15r=z14; z15l-z16=whatever*(z14-z13);
+z16=whatever[z12,z16'];
+penstroke z6e{down}..z7e{right}..
+z8e..z9e{up}..z10e{up}..z11e{z12-z11l};
+filldraw z11l--z12--z16--z15l--z15r
+--z13--z11l & cycle;
+filldraw z6l{up}..z4{right} &
+z4..z3{down}..z1{right}..z2{up}..
+z5{left}..z6r{down}--z6l & cycle;
+%
+%
+%
+penpos17(1.037cap_stem,90);
+z17l=(0.738w,-apex_o);
+penpos18(1.093cap_stem,38);
+z18=(0.17w,0.58h);
+penpos19(1.5cap_hair,-57);
+z19l=(0.45w,h+apex_o);
+penpos20(1.2cap_hair,-197);
+z20=(0.692w,0.824h);
+penpos21(cap_hair,-219);
+z21=(3/4[x9l,x9r],y10);
+penstroke z17e{left}..z18e{up}..
+z19e..z20e{down}..z21e;
+penpos22(cap_hair,-44);
+z22r-z17l=whatever*dir46;
+x22r=w;
+filldraw z17r{right}..z22l{z22r-z17l}
+--z22r--z17l--z17r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter D";
+.beginchar("D",12.168u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.073w,-apex_o);
+penpos2(0.6cap_stem,0);
+z2=(x1,0.04h); penpos4(1.204cap_stem,-148);
+z4=(0.229w,0.190h);
+penpos5(1.185cap_stem,-144);
+z5r=(0.545w,-apex_o);
+penpos6(cap_hair,-65); x6=0.787w;
+z6r-z5r=whatever*dir25;
+penpos7(0.815cap_stem,38);
+z7r=(w,0.418h); penpos8(0.926cap_stem,67.5);
+z8r=(0.41w,h+apex_o);
+penpos9(0.537cap_stem,-173);
+z9r=(0,0.685h); penpos10(2/3cap_hair,-90);
+z10=(0.242w,0.53h);
+penstroke z2e{up}..z4e{right}..z5e{right};
+penstroke z6e{dir25}..z7e{up}..z8e{left}
+..z9e{down}..z10e{right};
+filldraw z2l{down}..z1..z2r{up}--z2l
+& cycle;
+filldraw z5l{right}..z6l{dir25}--
+z6r--z5r--z5l & cycle;
+%
+%
+%
+z11=(0.171w,0.389h); z12=(0.197w,0.427h);
+penpos13(cap_hair,-90);
+z13=(x4l,0.3h); penpos14(cap_stem,0);
+z14=(0.462w,0.5[y11,y12]);
+penpos15(1.074cap_stem,34);
+z15=(0.353w,0.655h); z16=(0.488w,0.78h);
+penpos16(cap_hair,-90);
+penstroke z13e{right}..z14e{up}..
+z15e{up}..z16e{right};
+filldraw z11{up}..z12{right}..z13l{right}
+--z13r{left}..z11{up} & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter E";
+.beginchar("E",8.508u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(1.074cap_stem,62.5);
+z1l=(0.623w,-apex_o);
+penpos2(0.796cap_stem,16);
+z2l=(0,0.485h); penpos3(4/3cap_hair,-90);
+z3l=(0.485w,h+apex_o);
+penpos6(cap_stem,-151.5);
+penpos5(cap_stem,-151.5);
+x6l=w; y5l=h; z6-z5=whatever*dir-37;
+x5l=0.808w;
+penstroke z5e--z6e;
+penpos4(cap_hair,-151.5);
+z4r=z5r; penstroke z3e{right}..
+z4e{z6-z5};
+penpos16(cap_hair,-90);
+z16=(w,0.149h);
+filldraw z1l--z16r--z16l..z1r{left}
+--z1l & cycle;
+penstroke z1e{left}..z2e{up}..z3e{right};
+%
+%
+%
+penpos7(cap_hair,-164); z7=whatever[z2l,z2r];
+x7=0.31w;
+penpos8(0.444cap_stem,-51.5);
+z8=(0.492w,0.393h);
+penpos9(0.796cap_stem,6.5);
+z9=(x1l,y2-eps);
+penpos10(0.963cap_stem,34);
+z10=(0.441w,0.767h);
+penpos11(cap_hair,-37); z11l=z4r;
+penstroke z7e{dir-74}..z8e{right}..
+z9e{up}..z10e{up}..z11e{z5l-z5r};
+%
+%
+%
+penpos12(cap_hair,-55.5);
+z12l=(z9{up}..z10{up})
+intersectionpoint (z9l--(x9l,h));
+z13-z12l=whatever*dir31.5;
+x13=0.854w; penpos14(whatever,0);
+z15=(x13,0.53h); z14r=(w,0.639h);
+z14l-z12r=whatever*(z13-z12l);
+filldraw z12l--z13--z14r--z15--
+z14l--z12r--z12l & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter F";
+.beginchar("F",8.213u#,cap_height#,3.010u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(2/3cap_hair,68);
+z1=(0.34w,0.535h); penpos2(cap_hair,0);
+z2l=(0.036w,0.739h);
+penpos3(4/3cap_stem,-150);
+z3l=(0.614w,h+apex_o);
+penpos4(cap_stem,-128); z4l-z3l=whatever*dir-37;
+x4l=w; penpos5(cap_hair,-38);
+x5l=w; z5r=whatever[z4r,z4l];
+penstroke z1e{dir158}..z2e{up}..
+z3e{right};
+z5'=whatever[z3l,z4l]; z5'-z5l=whatever*(z4-z5r);
+filldraw z3l--z5'--z5l--z5r--z4r
+{z3l-z4l}...z3r{left}--z3l & cycle;
+%
+%
+%
+penpos6(cap_hair,-23); penpos7(cap_hair,-90);
+penpos8(0.778cap_stem,-219);
+penpos9(0.741cap_stem,-203);
+penpos10(cap_hair,-90);
+penpos11(cap_stem,17);
+penpos12(1.111cap_stem,30);
+penpos13(eps,-63);
+z6l=(0,0.351h); z7=(x2r+cap_hair,0.44h);
+x8l=x1; y8=0.339h; z9r=(x2l,0);
+z10r=(0.462w,-d); z11l=(0.709w,0);
+z12=(0.542w,0.652h);
+z13=(0.789w,0.821h);
+penstroke z6e{dir67}..z7e{right}..z8e{down}
+..z9e{down}..z10e{right}..z11e{up}..
+z12e{up}..z13e{dir27};
+%
+%
+%
+penpos14(cap_hair,-47);
+penpos15(cap_hair,-47);
+z14=(z11{up}..z12{up}) intersectionpoint
+((0,0.476h)--(w,0.476h));
+z15-z14=whatever*dir43;
+x15l=x4r; penpos16(0.833cap_stem,-137);
+z16l=z15l; penpos17(0.833cap_stem,-137);
+x17l=w; z17-z16=whatever*dir-47;
+penstroke z14e--z15e;
+penstroke z16e--z17e;
+.endchar;
+
+.cmchar "The Fraktur letter G";
+.beginchar("G",10.638u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,0);
+penpos2(0.5cap_stem,90);
+penpos3(cap_stem,180);
+penpos4(cap_hair,-90);
+penpos5(0.926cap_stem,14);
+penpos7(cap_hair,-51);
+penpos9(cap_hair,-51);
+z1=(0.595w,0.739h); z2r=(0.385w,h+apex_o);
+z3r=(0,0.517h); z4r=(0.537w,-apex_o);
+z5r=(w,0.392h); z6=(0.686w,0.628h);
+z7=(x4,0.566h); z9-z7=whatever*dir39;
+x9=0.963w; z8=whatever[z7r,z9r];
+x8=0.817w;
+penstroke z1e{up}..z2e{left}..z3e{down}
+..z4e{right}..z5e{up};
+filldraw z7r{z9-z7}..z6{right}..
+z5l{down}--z5r{up}..z8--z9r--z9l--
+z7l--z7r & cycle;
+%
+%
+%
+penpos11(1.148cap_stem,39);
+penpos12(1.148cap_stem,39);
+z11=whatever[z7l,z9l]; x11=0.856w;
+penpos10(cap_hair,-51);
+z10=whatever[z9l,z9r]; y10l=h+apex_o;
+z12-z11=whatever*dir129;
+z10l-z12=whatever*dir39;
+penpos13(cap_hair,-51); z13l=z12l;
+penstroke z11e--z12e;
+penstroke z13e--z10e;
+%
+%
+%
+penpos14(cap_hair,180); penpos15(0.5cap_stem,-45);
+penpos16(0.796cap_stem,21.5);
+penpos17(0.926cap_stem,43);
+penpos18(cap_hair,-37);
+penpos19(cap_hair,-37);
+z14=(0.3w,0.58h); z15=(0.441w,0.385h);
+z16=(0.5[x7,x1],0.507h);
+z17=(0.385w,0.776h); z18=(0.442w,0.873h);
+z19-z18=whatever*dir53; y19=1.032h;
+penstroke z14e{down}..z15e{right}..
+z16e{up}..z17e{up}...z18e---z19e;
+.endchar;
+
+.cmchar "The Fraktur letter H";
+.beginchar("H",10.275u#,cap_height#,1.996u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,111);
+penpos2(cap_hair,90);
+penpos3(cap_hair,0);
+penpos8(cap_hair,-45);
+penpos7(cap_hair,-45);
+penpos9(0.889cap_stem,0);
+penpos10(1.222cap_stem,48.5);
+penpos11(cap_hair,132);
+z1=(0.57w,-0.679d);
+z2l=(0.452w,-d); z3=(0.354w,-0.23d);
+z4=(0.503w,0.082h); z5=(0.621w,0.217h);
+z6=(0.71w,0.12h); z8l=(0.592w,-apex_o);
+z7r-z8r=whatever*dir45;
+x7r=0.809w; z9r=(w,0.429h);
+z10=(0.624w,3/4h); %z11=whatever[z1l,z1r];
+z11=(0.28w,0.543h);
+penstroke z1e..z2e{left}..z3e{up};
+filldraw z3r{up}..z4{right}..
+z8l{z8r-z7r}--z8r---z7r...z9r{up}--
+z9l{down}..z7l{z8r-z7r}..z6{left}..
+z5{dir123} & z5{dir211}..z3l{down}--
+z3r & cycle;
+penstroke z9e{up}..z10e{left}..
+z11e{dir222};
+%
+%
+%
+penpos12(1.259cap_stem,-131);
+penpos13(1.2cap_hair,-41);
+penpos14(1.074cap_stem,25);
+penpos15(cap_hair,-41);
+penpos18(cap_hair,-36);
+z12r=(0,0.141h); y13=0.2h; x13l=x11;
+z14=z11; z15=(x11,0.845h);
+z16=(0.478w,h); z17=(0.516w,0.837h);
+z18r-z17=whatever*dir54;
+y18r=h+apex_o;
+penstroke z12e{dir-41}..z13e{dir49}
+..z14e..z15e{dir49};
+filldraw z15r{dir49}..z17--z18r--
+z18l{z17-z18r}..z16{left}..z15l
+{dir229}--z15r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter I";
+.beginchar("I",8.541u#,cap_height#,2.497u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,28);
+penpos2(cap_hair,-17.5);
+penpos3(0.889cap_stem,-116);
+penpos4(cap_stem,-126);
+penpos5(cap_hair,-44);
+penpos6(1.056cap_stem,53);
+penpos7(1.056cap_stem,21);
+penpos8(cap_hair,-90);
+penpos9(cap_hair,180);
+z1=(0.115w,-0.886d); z2r=(x1,-0.519d);
+z3=(0.234w,-0.1d); z4r=(0.517w,-d);
+z5=(0.795w,-0.329d); z6r=(0.966w,0.196h);
+z7=(0.636w,0.56h); z8=(0.808w,0.683h);
+z9l=(x6r,0.554h);
+penstroke z1e..z2e{up}..z3e{right}
+..z4e{right}..z5e..z6e{up}..z7e{up}
+..z8e{right}..z9e{down};
+%
+%
+%
+penpos10(1.037cap_stem,50);
+penpos11(cap_hair,-45);
+penpos12(0.889cap_stem,43);
+penpos13(1.185cap_stem,-146);
+penpos14(0.741cap_stem,-119);
+penpos15(cap_hair,0);
+penpos16(cap_hair,28);
+z10l=z11r=(0.1w,0.515h);
+z12l=(0,0.69h); z13l=(0.506w,h+apex_o);
+z14r=z8l+(0,0.035h);
+z15r=(w,0.875h); z16=(x15l,0.924h);
+filldraw z11l{z12r-z11l}..z12l{up}--
+z12r{down}..z10r--z10l--z11l & cycle;
+penstroke z12e{up}..z13e{right}..
+z14e{right}..z15e{up}..z16e{dir118};
+.endchar;
+
+.cmchar "The Fraktur letter J";
+.beginchar("J",8.541u#,cap_height#,2.497u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,28);
+penpos2(cap_hair,-17.5);
+penpos3(0.889cap_stem,-116);
+penpos4(cap_stem,-126);
+penpos5(cap_hair,-44);
+penpos6(1.056cap_stem,53);
+penpos7(1.056cap_stem,21);
+penpos8(cap_hair,-90);
+penpos9(cap_hair,180);
+z1=(0.115w,-0.886d); z2r=(x1,-0.519d);
+z3=(0.234w,-0.1d); z4r=(0.517w,-d);
+z5=(0.795w,-0.329d); z6r=(0.966w,0.196h);
+z7=(0.636w,0.56h); z8=(0.808w,0.683h);
+z9l=(x6r,0.554h);
+penstroke z1e..z2e{up}..z3e{right}
+..z4e{right}..z5e..z6e{up}..z7e{up}
+..z8e{right}..z9e{down};
+%
+%
+%
+penpos10(1.037cap_stem,50);
+penpos11(cap_hair,-45);
+penpos12(0.889cap_stem,43);
+penpos13(1.185cap_stem,-146);
+penpos14(0.741cap_stem,-119);
+penpos15(cap_hair,0);
+penpos16(cap_hair,28);
+z10l=z11r=(0.1w,0.515h);
+z12l=(0,0.69h); z13l=(0.506w,h+apex_o);
+z14r=z8l+(0,0.035h);
+z15r=(w,0.875h); z16=(x15l,0.924h);
+filldraw z11l{z12r-z11l}..z12l{up}--
+z12r{down}..z10r--z10l--z11l & cycle;
+penstroke z12e{up}..z13e{right}..
+z14e{right}..z15e{up}..z16e{dir118};
+.endchar;
+
+.cmchar "The Fraktur letter K";
+.beginchar("K",9.478u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+cap_stem:=0.95cap_stem;
+%cap_hair:=0.95cap_hair;
+z1=(0,0.182h); z2=(0.177w,0.207h);
+z3=(0.033w,-apex_o);
+penpos4(cap_hair,-90);
+z4=(0.282w,0.045h); penpos5(cap_hair,0);
+z5=(0.4w,0.136h); z7=(0.434w,0.227h);
+z7'=(0.328w,0.556h);
+z8=(0.197w,0.732h); z6=(0.052w,0.566h);
+penpos9(1.25cap_hair,-90);
+z9l=(0.561w,h+apex_o);
+penpos9'(cap_hair,180);
+z9'l=(w-apex_o,0.707h);
+penpos10(cap_hair,140); z10=(0.813w,0.492h);
+filldraw z1--z3{dir30}..z4r{right}
+..z5r..z7{up}..z7'..z8{up}..z9r{right}
+--z9l{left}..z6{down} & z6{dir-52}
+..z5l..z4l{left}..z2{up}--z1 & cycle;
+penstroke z9e{right}..z9'e{down}..
+z10e;
+%
+%
+%
+penpos12(cap_hair,-78);
+penpos11(cap_hair,-78);
+z12l-z7'=whatever*dir12;
+z7'-z11l=whatever*dir12;
+x12=x10; x11=0.243w;
+penstroke z11e--z12e;
+penpos13(cap_hair,12); z13r=z7';
+penpos14(0.463cap_stem,-116);
+z14=(0.492w,0.8h);
+penpos16(1.074cap_stem,-168);
+z16=whatever[z11l,z12l]; x16l=x12-cap_hair;
+z12-z15=whatever*dir-78;
+penpos15(cap_hair,-78);
+y15=0.823h; z17-z15r=whatever*(z12-z11);
+z16l-z17=whatever*(z12-z15);
+filldraw z13r{dir102}..z14r{right}
+..z16r{dir-78}--z16l--z17--z15r--
+z15l{z13-z12}..z14l{left}..z13l{dir-78}
+--z13r & cycle;
+%
+%
+%
+penpos18(1.053cap_stem,-168);
+z18=0.5[z12r,z11r];
+penpos18'(1.053cap_stem,-168);
+z19=(0.767w,-apex_o); penpos21(cap_hair,-90);
+z21r-z19=whatever*dir45; x21=w;
+z20=(0.869w,0.149h);
+z18'-z18=whatever*dir-70; x18'l=x15;
+filldraw z18r---z18'r...z19--z21r--
+z21l{z19-z21r}..z20{left}...z18'l
+---z18l--z18r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter L";
+.beginchar("L",6.131u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+cap_stem:=1.022cap_stem;
+penpos1(cap_hair,0); penpos2(cap_hair,-60);
+penpos3(1.056cap_stem,30);
+penpos4(cap_stem,23); penpos5(0.481cap_stem,-67);
+penpos6(cap_hair,-149);
+penpos7(whatever,-140);
+penpos8(cap_hair,-147);
+penpos9(cap_hair,-90); penpos10(cap_hair,0);
+z1l=(0,0.082h); z2=(0.15w,0.207h);
+z3=(0.453w,0.37h); z4l=(0,0.731h);
+z5l=(0.539w,h+apex_o);
+z6=(0.829w,0.886h); z7l=(0.933w,0.739h);
+x7r=x3r;
+z8=(0.658w,0.53h); z9=(x6,0.476h);
+z10=(x7l,0.543h);
+penstroke z1e{up}..z2e..z3e{up}..
+z4e{up}..z5e{right}..z6e..z7e{down}
+..z8e..z9e{right}..z10e{up};
+%
+%
+%
+z11=(0.109w,0.111h); z13=(0.539w,-apex_o);
+z12=(0.731w,y11); penpos14(cap_hair,-21);
+z14r=(w,0.223h);
+z15'-z11=whatever*(z12-z13); x15'=w;
+z15=(z1{up}..z2..z3{up}) intersectionpoint
+((0.238w,0)--(0.238w,h));
+filldraw z1r{up}..z11{right}..z13{dir-25}
+& z13{dir25}..z14r{dir69}--z14l{dir249}
+..z12{left}..z15{left}& z15..z2..
+z1{down}--z1r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter M";
+.beginchar("M",13.432u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,-40); penpos2(cap_hair,-40);
+z1=(0.067w,0.035h); z2-z1=whatever*dir50;
+x2=0.176w; z3=(1/5w,-apex_o);
+penpos4(cap_hair,-41.5);
+z4r-z3=whatever*dir48.5;
+z4=whatever[z2l,z2r];
+penpos5(1.3cap_stem,48);
+% ant'i 1.111 pou j'aprepe n'anai
+z5=(0.4w,0.394h); penpos6(0.778cap_stem,44);
+z6=(0.148w,0.915h); penpos7(cap_hair,180);
+z7r=(0,0.782h); penpos8(1.111cap_stem,-147);
+z8l=(x6,0.649h); penpos9(2.2cap_hair,-171.5);
+penpos10(cap_hair,90); z9r=(x2l,0.46h);
+z10=(0.122w,0.378h); penpos11(cap_hair,58);
+z11=(0.047w,0.418h);
+z1'=whatever[z1r,z2r]; x1'=x1r+0.014117w;
+filldraw z1l--z2l--z4r--z3--z1'--z1r
+--z1l & cycle;
+penstroke z4e{z4r-z3}..z5e{up}..
+z6e{left}..z7e{down}..z8e..z9e{down}
+..z10e{left}..z11e;
+%
+%
+%
+penpos12(cap_hair,-40); penpos13(cap_hair,-40);
+z12=(0.329w,0.024h); z13-z12=whatever*dir50;
+x13=x5r; z13'=(0.466w,-apex_o);
+penpos14(cap_hair,-40); z14r-z13'=whatever*dir48;
+z14=whatever[z13l,z13r];
+penpos15(1.5cap_stem,-50);
+penpos16(0.741cap_stem,48);
+penpos17(cap_hair,180);
+z15=(0.647w,0.548h);
+x16=0.424w; y16r=h+apex_o;
+z17=(0.306w,0.843h);
+penstroke z12e--z13e;
+z12'=whatever[z12r,z13r]; x12'=x12r+0.014117w;
+filldraw z12'--z13'--z14r--z13l--
+z12' & cycle;
+penstroke z14e{z14r-z13'}..z15e{up}
+..z16e{left}..z17e{dir251};
+%
+%
+%
+penpos18(cap_hair,-46); penpos19(cap_hair,-46);
+penpos20(1.13cap_stem,37);
+penpos21(0.852cap_stem,-15);
+penpos22(cap_hair,-72);
+z18r=(0.814w,-apex_o);
+z19-z18=whatever*dir44;
+x19r=w; z20=(x18-eps,0.34h);
+z21=(x18r+eps,0.556h);
+z22=(0.906w,0.609h);
+z20'=0.7[z18l,z19l];
+penstroke z18e--z19e;
+filldraw z18l{up}..z20l{up}..z21l--
+z22l--z22r{z21l-z22l}..z21r..
+z20r{down}..z20'{dir-35}--z18l
+& cycle;
+%
+%
+%
+penpos23(1.148cap_stem,53);
+penpos24(0.944cap_stem,12);
+penpos27(2/3cap_hair,90);
+z23r=(w,0.670h); z24=(0.871w,0.84h);
+z25=(0.715w,0.947h); z26=(x25,0.87h);
+z27=(0.621w,0.824h);
+filldraw z23r{dir124}..z24r%{dir124}
+...z25---z27r--z27l{z25-z27r}..
+z26{right}..z24l%{dir-56}
+..z23l{dir-56}
+--z23r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter N";
+.beginchar("N",11.662u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,-45); penpos3(cap_hair,-45);
+penpos4(cap_hair,-90);
+penpos5(0.944cap_stem,0);
+penpos6(0.811cap_stem,64);
+penpos7(cap_hair,180);
+penpos8(1.094cap_stem,-132);
+penpos9(cap_hair,180); penpos10(cap_hair,90);
+penpos11(cap_hair,21);
+z1=(0.123w,0); z3-z1=whatever*dir52;
+x3=0.239w; 0.5[z1,z3]-z2=whatever*dir-45;
+x2=x1l-eps; z4r=(0.325w,-apex_o);
+z5=(0.55w,0.371h); z6=(x3,0.932h);
+z7r=(0,0.751h); z8=(0.197w,0.553h);
+z9=(x4,0.428h); z10=(x3,0.317h);
+z11=(0.125w,0.423h);
+penpos2(1/3cap_hair,52);
+filldraw z1l{dir71}..z2l--z2r
+..{dir31}z3l--z3r{z1-z3}..z4l{right}
+--z4r{left}..z1r{z1-z3}--z1l{z3-z1}
+& cycle;
+penstroke z4e{right}..z5e{up}..
+z6e{left}..z7e{down}..z8e{dir-22}..
+z9e{down}..z10e{left}..z11e;
+%
+%
+%
+penpos12(2/3cap_hair,0); penpos13(0.778cap_stem,-126);
+penpos14(0.944cap_stem,-162);
+penpos15(0.944cap_stem,-90);
+penpos16(cap_hair,0);
+penpos17(cap_hair,-32);
+penpos19(0.981cap_stem,0);
+penpos20(0.793cap_stem,0);
+penpos21(cap_hair,-90);
+z12=(0.516w,0.745h); y13l=h+apex_o;
+z14=(0.886w,0.751h);
+z15=(w,0.669h);
+z19=(0.769w,y5); x13=x19l;
+z16=(x19r,-apex_o);
+z17r-z16r=whatever*dir58;
+x17r=0.977w; z20=(0.798w,0.537h);
+z21r=z15r;
+filldraw z16r--z17r--z17l{z16r-z17r}
+..z19r{up}..z20r..z21r{dir18}--
+z21l{dir198}..z20l..z19l{down}..
+z16l--z16r & cycle;
+penstroke z12e{up}..z13e{right}..
+z14e{dir-71}..z15e{right};
+.endchar;
+
+.cmchar "The Fraktur letter O";
+.beginchar("O",12.01u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,41); penpos2(cap_hair,0);
+penpos3(cap_hair,-59);
+penpos5(1.037cap_stem,24);
+penpos6(1.074cap_stem,38);
+penpos7(cap_hair,-47); penpos8(2/3cap_hair,0);
+penpos4(1.315cap_stem,-146);
+penpos10(1.111cap_stem,70);
+penpos11(0.704cap_stem,22);
+penpos14(cap_hair,-46);
+z1r=(0.084w,0); z2l=(0,0.09h);
+z3=(0.234w,0.298h); z4=(0.184w,0.197h);
+z5=(0.332w,0.412h); z6=(0.179w,0.71h);
+z7=(0.263w,0.843h); z8=(0.389w,h+apex_o);
+z9=(x8,0.787h); z10=(0.595w,0.864h);
+z11r=(w,0.484h); z12=(0.637w,0.144h);
+z13=(2x10-x12,-apex_o);
+z14=(0.858w,0.227h);
+penstroke z1e..z2e{up}..z3e..z5e{up}
+..z6e{up}..z7e{dir43};
+penstroke z1e..z2e{up}..z4e{dir-19};
+filldraw z4r{dir-19}..{z13-(x4r,0.5y4r)}z13 &
+z13{dir27}..z14r..z11r{up}..z10r{left}..
+z8r{dir100}--z8l{down}..z7l{dir223}--
+z7r..z9..z10l{right}..z11l{down}..
+z14l..z12{left}..z4l{dir161}--z4r &
+cycle;
+.endchar;
+
+.cmchar "The Fraktur letter P";
+.beginchar("P",9.482u#,cap_height#,2.651u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,0); penpos2(cap_stem,0);
+penpos3(cap_stem,0);
+penpos4(0.926cap_stem,58);
+penpos5(cap_hair,180);
+penpos8(1.5cap_hair,-145);
+penpos9(cap_hair,114);
+z1=(0.427w,-d); z2=(0.453w,0.09h);
+z3=(x2,0.7h); z4r=(0.227w,h+apex_o);
+z5r=(0,0.778h); z6=(0.173w,0.67h);
+z7=(0.083w,0.564h); z8=(0.275w,0.524h);
+z9r=(x7,0.4h);
+penstroke z1e...z2e---z3e..z4e{left}
+..z5e{down};
+penstroke z8e{down}..z9e;
+filldraw z5r{down}..z7 & z7{right}..
+z8r{down}--z8l{up}..z6..z5l{up}--
+z5r & cycle;
+%
+%
+%
+penpos18(cap_hair,0); penpos19(cap_hair,-80);
+penpos16(1.037cap_stem,23);
+penpos15(cap_stem,35);
+penpos14(cap_hair,-56);
+z18r=z3r; z19=(0.74w,0.931h);
+z16=(0.793w,0.782h);
+z15r=(w,0.42h); z14=(0.687w,0.059h);
+penstroke z14e{dir33}..z15e{up}..
+z16e{up};
+penstroke z18e{up}..z19e{dir22.5};
+z17'=(0.917w,h-apex_o);
+filldraw z16l{up}..z19l & z19l{dir22.5}
+..z17'{right} & z17'..z16r{down}--
+z16l & cycle;
+%
+%
+%
+penpos10(cap_stem,64); penpos11(cap_stem,71);
+penpos12(cap_hair,-36);
+penpos13(cap_hair,-23);
+z10=(0.713w,0.027h); z11=(0.387w,0.16h);
+z12=(x6,0.059h); z13l=(x8,0.266h);
+filldraw z10r..z11r...z13r---z13l
+& z13l..z12l{dir234}--z12r{dir54}...
+z11l---z10l--z10r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter Q";
+.beginchar("Q",13.559u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+w':=12.01u;
+penpos1(cap_hair,41); penpos2(cap_hair,0);
+penpos3(cap_hair,-59);
+penpos5(1.037cap_stem,24);
+penpos6(1.074cap_stem,38);
+penpos7(cap_hair,-47); penpos8(2/3cap_hair,0);
+penpos4(1.315cap_stem,-146);
+penpos10(1.111cap_stem,70);
+penpos11(0.704cap_stem,22);
+penpos14(cap_hair,-46);
+penpos16(1.074cap_stem,-127);
+penpos17(cap_hair,-45);
+z1r=(0.084w',0); z2l=(0,0.09h);
+z3=(0.234w',0.298h); z4=(0.184w',0.197h);
+z5=(0.332w',0.412h); z6=(0.179w',0.71h);
+z7=(0.263w',0.843h); z8=(0.389w',h+apex_o);
+z9=(x8,0.787h); z10=(0.595w',0.864h);
+z11r=(0.925w,0.503h); z12=(0.637w',0.144h);
+z13=(2x10-x12,-apex_o);
+z14=(0.884w',0.227h);
+penpos15(1.3cap_stem,angle(z13-z14));
+z15l=z14; z16r=(0.825w,-apex_o);
+z17r=(w,0.144h);
+penstroke z1e..z2e{up}..z3e..z5e{up}
+..z6e{up}..z7e{dir43};
+penstroke z1e..z2e{up}..z4e{dir-19};
+filldraw z4r{dir-19}..{z13-(x4r,0.5y4r)}z13 &
+z13{dir27}..z14r..z11r{up}..z10r{left}..
+z8r{dir100}--z8l{down}..z7l{dir223}--
+z7r..z9..z10l{right}..z11l{down}..
+z14l..z12{left}..z4l{dir161}--z4r &
+cycle;
+penstroke z15e..z16e{dir-10} & z16e..z17e
+{dir45};
+.endchar;
+
+.cmchar "The Fraktur letter R";
+.beginchar("R",10.493u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#+0.3u#);
+penpos1(cap_hair,-49); penpos2(cap_hair,-49);
+penpos4(cap_hair,-90);
+z1l=(0,0.056h); z2=(0.253w,0.234h);
+z3=(apex_o,0.202h); z7=(0.036w,0.128h);
+z4r=(0.3w,-apex_o);
+z5=(0.181w,0.128h); z6=(0.084w,0.051h);
+filldraw z1l..z7..z3 & z3{dir-10}..
+z2l--z2r..z5..z4l{right}--z4r{left}
+..z6..z1r--z1l & cycle;
+penpos8(0.963cap_stem,19);
+penpos9(cap_stem,60); penpos10(cap_hair,180);
+penpos13(0.574cap_stem,-153);
+penpos14(cap_hair,90); penpos15(cap_hair,0);
+z8=(0.53w,0.375h); z9r=(0.247w,h+apex_o);
+z10r=(0,0.771h); z11=(0,0.614h);
+z12=(0.169w,0.641h); z13=(0.247w,0.481h);
+z14=(0.117w,0.348h); z15l=(0,0.468h);
+penstroke z4e{right}..z8e{up}..z9e
+{left}..z10e{down};
+penstroke z13e{down}..z14e{left}..
+z15e{up};
+filldraw z10r---z11..z13r{down}--
+z13l{up}..z12..z10l{up}--z10r &
+cycle;
+%
+%
+%
+penpos16(cap_hair,-90); penpos17(cap_hair,-90);
+penpos21(cap_hair,0); z16=(x8,0.585h);
+z17-z16=whatever*dir30;
+x17=0.934w; z21=(0.488w,3/4h);
+z20=(0.578w,0.936h); z22=(0.651w,0.91h);
+z19=(0.768w,h+apex_o);
+z23=whatever[z16l,z17l]; x23=x19;
+z18=(0.895w,0.867h);
+penstroke z16e--z17e;
+filldraw z21r{up}..z22{right}..
+z23{dir-76}--z17l{left}..z18..
+z19 & z19{z22-z19}..z20..z21l{down}
+--z21r & cycle;
+%
+%
+%
+penpos25(0.926cap_stem,-153);
+penpos26(1.074cap_stem,-174);
+penpos27(cap_hair,-32);
+z24=whatever[z16r,z17r]; x24=x23+0.18cap_stem;
+z25=(3/4w,0.612h); z26=(0.825w,0.205h);
+penpos26'(0.926cap_stem,-153); z26'r=z26r;
+y27r=0.189h; x27l=w; z28=(0.849w,-apex_o);
+z27'-z27l=whatever*(z28-z27r);
+x27'=w-cap_hair;
+filldraw z16r{z17-z16}...z25r
+---z26'r...z28 & z28--z27r--z27l &
+z27l---z27'...z26'l---
+z25l..z24--z16r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter S";
+.beginchar("S",12.813u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos0(0.032067w,-27); penpos0'(0.032067w,24);
+z0'r=z0l=(0.715w,0.745h);
+penpos1(1.5cap_hair,-156);
+penpos2(cap_hair,114);
+penpos7(cap_hair,114);
+penpos8(1.2cap_stem,-142);
+penpos9(cap_stem,-107);
+penpos10(0.926cap_stem,-123);
+penpos11(cap_hair,0);
+penpos16(0.722cap_stem,40);
+penpos17(cap_hair,-58);
+penpos18(cap_hair,-118);
+z1l=(w,0.952h); x2=0.93w;
+z3=(0.8w,0.859h); z5-z3=whatever*dir153;
+y5=h+apex_o; z4=z0r; z2l-z4=whatever*dir24;
+z6=whatever[z0r,z0l]; x6=0.462w;
+z7=(0.291w,0.931h); z8r=(0,0.505h);
+z9r=(0.562w,-apex_o);
+z10r=(0.76w,0.077h); z11=(0.933w,0.364h);
+z13=z0'l; z15-z13=whatever*dir204;
+x15=x14=0.407w; z12=(x9l,0.512h);
+z14-z12=whatever*(z15-z13);
+z16=(0.258w,0.649h);
+z17=(0.324w,0.782h); z18=(0.508w,0.739h);
+penstroke z7e{dir204}..z8e{down}..
+z9e{right}..z11e{up};
+penstroke z16e{up}..z17e{dir24}..
+z18e{dir-27};
+filldraw z1r{down}..z2r{z4-z2l}...
+z3---z5 & z5..z7r{dir204}--z7l
+{dir24}...z6---z4---z2l...z1l{up}
+& z1l--z1r & cycle;
+filldraw z11r{up}..z13{z6-z4} &
+z13---z15...z16r{up}--z16l{down}
+..z14{dir-27} & z14---z12...
+z11l{down}--z11r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter T";
+.beginchar("T",10.386u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0.041w,0.053h); z2=(0,0.104h);
+z3=(0.078w,y2); penpos4(1.037cap_stem,-133);
+z4=(0.165w,0.253h); z5=(0.592w,-apex_o);
+z6=(0.731w,0.123h); penpos7(cap_hair,0);
+z7r=(w,0.303h); penpos8(0.5cap_hair,-90);
+z8=(0.29w,0.271h); penpos9(1.185cap_stem,10);
+penpos10(1.148cap_stem,19);
+z9=(x5,0.415h); z10=(0.381w,0.691h);
+penpos11(0.5cap_hair,-90); z11=(0.677w,0.83h);
+penpos12(cap_hair,-112);
+penpos13(cap_hair,180);
+penpos14(1.111cap_stem,31);
+penpos14'(1.037cap_stem,57);
+z14'=(0.562w,0.939h);
+penpos15(1.185cap_stem,72);
+penpos16(cap_hair,-37.5);
+penpos17(cap_hair,-48);
+z12=(0.236w,0.6h); z13=(0.072w,0.761h);
+z14r=(0.436w,h+apex_o);
+z15=(0.858w,0.755h); z16=z15l;
+penpos15'(1.5cap_stem,72); z15'l=z15l;
+z17l=whatever[z16,z15r]; x17=0.956w;
+filldraw z1{right}..z3{up}..z4r{right}
+..z5{dir-29} & z5{dir22}..z7r{up}--
+z7l{down}..z6{left}..z4l{left}..
+z2{down}..z1{right} & cycle;
+penstroke z8e{right}..z9e{up}..z10e
+{up}..z11e{right};
+penstroke z15e{dir142.5}..z14'e..z14e{left}..z13e{down}
+..z12e{dir-22};
+penstroke z16e{z15r-z15l}..z17e
+{dir42};
+.endchar;
+
+.cmchar "The Fraktur letter U";
+.beginchar("U",10.608u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_stem,0); penpos2(whatever,39);
+penpos3(1.176cap_stem,48);
+penpos4(cap_hair,-42); penpos5(cap_hair,-42);
+penpos10(cap_hair,-47);
+penpos11(cap_hair,-47);
+penpos13(cap_stem,0);
+penpos14(cap_stem,0);
+penpos15(cap_hair,-90);
+penpos19(cap_hair,-41);
+z1=(0.258w,0.162h); z2r=(x1r,0.853h);
+x2l=x1l;
+z4l=(0,0.822h); z5-z4=whatever*dir48;
+y5l=h+apex_o; z3=whatever[z4r,z5r]; y3r=y5r-apex_o;
+z7=(x1l,0.26h); z8=(0.111w,y1);
+z9=(x1r,-apex_o); z8'=(0.278w,0.082h);
+z11r-z9=whatever*dir43; x11=0.737w;
+z12-z11l=whatever*(z9-z11r);
+x12=0.472w; z6-z12=whatever*(z8-z9);
+x6=x1r;
+penstroke z1e---z2e...z3e{dir138};
+penstroke z4e--z5e;
+filldraw z9--z11r--z11l--z12--z6--
+z7{down}..z8{dir231} &
+flex(z8,z8',z9) & cycle;
+%
+%
+%
+z13=(x11,y7); z14=(x13,y2r-cap_hair);
+z15=(0.573w,0.898h); z16=(0.737w,h+apex_o);
+z17=(0.886w,0.915h); z18=(x17,y1);
+z20=(0.786w,-apex_o);
+z21=(x13l,y1); x19r=w;
+z19r-z20=whatever*dir49;
+penstroke z13e--z14e;
+filldraw z15r{z16-z15l}..z14l{down}
+--z14r{up}..z17{right} & z17
+..z16 & z16..z15l--z15r & cycle;
+filldraw z20--z19r--z19l{z20-z19r}
+..z18{left}..z13r{up}--z13l--z21--
+z20 & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter V";
+.beginchar("V",10.303u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,41); penpos2(cap_hair,0);
+penpos3(0.926cap_stem,-117);
+penpos6(cap_hair,-63);
+penpos7(0.704cap_stem,30);
+penpos8(cap_stem,44);penpos9(cap_hair,-65);
+penpos10(cap_hair,-65);
+penpos11(0.852cap_stem,-138);
+penpos12(2/3cap_hair,-55);
+penpos13(cap_hair,-48); penpos14(0.907cap_stem,-12);
+penpos15(1.037cap_stem,35);
+penpos16(0.889cap_stem,46);
+penpos17(cap_hair,155);
+penpos17'(0.489cap_stem,-123);
+penpos18(0.889cap_stem,-118);
+penpos20(0.537cap_stem,-147);
+penpos21(cap_hair,90);
+penpos22(cap_hair,44);
+z1=(0.115w,0.046h); z2=(0.072w,0.117h);
+z3=(0.209w,0.228h); z4=(0.613w,-apex_o);
+z5=(0.755w,0.103h); z5'=(x4,0.172h);
+z6=(0.853w,0.114h);
+z7r=(w,0.293h); z8=(0.742w,0.543h);
+z9=(0.822w,0.655h);
+z10r=(w,3/4h); z10'=(x7,0.788h);
+z11l=(0.75w,h+apex_o);
+z15=(0.414w,0.875h); z13=(0.288w,0.242h);
+z14=(0.534w,0.527h); z12=z15+(0.1w,-0.1h);
+z16r=(0.252w,h+apex_o);
+z17=(0.044w,0.859h);
+z17'r=(0,0.742h); z19=(0.043w,0.628h);
+z18=(0.096w,0.674h);
+z20=(0.267w,0.549h); z21l=(0.173w,0.435h);
+z22=(x19,0.516h);
+penstroke z1e..z2e{up}..z3e{right};
+filldraw z3r{right}..z4{dir-44} &
+z4---z6r...z7r{up}--z7l{down}..
+z6l..z5{left}..z5'..z3l{left}--z3r &
+cycle;
+penstroke z7e{up}..z8e{up}..z9e..
+z10e;
+penstroke z13e{dir42}..z14e{up}..
+z15e..z16e{left}..z17e..z17'e{down};
+filldraw z17'r{down}..z19{z3-z19} & z19---
+z18r...z20r{down}--z20l{up}..z18l..
+z17'l{up}--z17'r & cycle;
+penstroke z20e{down}..z21e{left}..
+z22e;
+filldraw z12r{up}..z11r{right}..
+1/10[z9,z10]{right} & 1/10[z9,z10]--z10--z10l &
+z10l{left}..z10'..z11l{left}..z12l{down}
+--z12r & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter W";
+.beginchar("W",13.812u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(cap_hair,44); penpos2(cap_hair,22);
+penpos3(1.074cap_stem,-133);
+z1=(0.095w,0); z2=(0.055w,0.09h);
+z3=(0.16w,0.213h); z4=(0.366w,-apex_o);
+z5=(0.435w,0.118h); penpos6(cap_hair,-56);
+penpos7(4/3cap_stem,45);
+z6=(0.508w,0.126h); z7=(0.645w,0.41h);
+penpos9(1.222cap_stem,52);
+penpos10(cap_hair,0);
+z9=(0.532w,0.733h); z10=(0.604w,h+2apex_o);
+penstroke z1e..z2e..z3e{right};
+filldraw z3r{right}..z4{dir-30} &
+z4---z6r...z7r{dir72} & z7r{dir120}..
+z9r{up}..z10r--z10l..z9l{down}..
+z7l{down}..z6l{z4-z6r}...z3l{left}
+--z3r & cycle;
+%
+%
+%
+penpos11(cap_hair,-37); penpos12(0.778cap_stem,-140);
+penpos13(1.056cap_stem,-133);
+z11=(0.561w,0.865h); z12l=(0.735w,h+apex_o);
+z13l=(0.982w,0.756h);
+penstroke z11e{dir53}..z12e{right}..
+z13e{dir-60};
+%
+%
+%
+penpos14(cap_hair,-60); z14r=z13l+(apex_o,apex_o);
+penpos15(cap_stem,43); penpos16(0.741cap_stem,37.5);
+penpos17(cap_hair,-64); penpos18(1.222cap_stem,26);
+penpos17'(cap_hair,-64);
+z15=(0.808w,0.537h); z16r=(w,0.303h);
+z18l=(0.716w,-apex_o); z17r=z18; z17'r=z18r;
+z18.1-z18l=whatever*dir146;
+z18.2-z18r=whatever*dir146; x18.2=x18.1=0;
+z18'=(z6{z6r-z4}..z7{up}) intersectionpoint
+(z18l--z18.1);
+z18''=(z6{z6r-z4}..z7{up}) intersectionpoint
+(z18r--z18.2);
+filldraw z18l--z18'--z18''--z18r--z18l & cycle;
+penpos16'(whatever,54); z16'l=z16l; x16'r=w;
+penstroke z17e---z17'e...z16'e{up}..z15e{up}..
+z14e{dir36};
+%
+%
+%
+penpos19(cap_hair,-58); penpos22'(1.111cap_stem,44);
+penpos22(1.037cap_stem,41.5);
+penpos23(1.2cap_hair,-139);
+penpos24(cap_stem,-90); penpos25(0.556cap_stem,-140);
+penpos26(cap_hair,90); penpos27(cap_hair,37);
+z19=(0.224w,0.213h); x20=x5; z20-z19r=whatever*dir32;
+z21=(0.339w,0.483h); z22'=(0.326w,0.84h);
+z22r=(0.2w,h+apex_o); z23r=(0,0.767h);
+z24=(0.114w,0.654h); z25=(0.197w,0.551h);
+z26=(0.119w,0.437h); z27=(0.025w,0.5h);
+filldraw z19r--z20 & z20{up}..z22'r
+{dir129.5}--z22'l{dir-50.5}..z21{down}
+..z19l{z19r-z20}--z19r & cycle;
+penstroke z22'e{dir129.5}..z22e{left}
+..z23e{down}..z24e{right}..z25e{down}
+..z26e{left}..z27e{dir127};
+%
+%
+%
+penpos28(cap_hair,-32); penpos29(cap_hair,-90);
+penpos30(cap_hair,-141.5);
+z28=(0.357w,0.848h); z30=z11;
+z29=(0.5[x28,x30],0.958h);
+penstroke z28e..z29e..z30e;
+.endchar;
+
+.cmchar "The Fraktur letter X";
+.beginchar("X",9.418u#,cap_height#,0);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos0(cap_stem,0); z0=(0.5w,0.537h);
+z1=z0l; penpos5(cap_stem,-90); z5l=z0r;
+penpos2(cap_hair,0); z2r=(x0r,0.697h);
+penpos3(cap_hair,0); z3l=(x0l,0.253h);
+penpos6(cap_hair,-40); penpos7(cap_hair,-40);
+z6r=(0.758w,-apex_o); z7-z6=whatever*dir50;
+x7r=w; z7'=whatever[z6l,z7l];
+z6'=whatever[z6,z7]; y6'=apex_o;
+x7'=0.893w;
+penstroke z6e--z7e;
+filldraw z6'{left}...z3l---z1--z5l
+---z5r...z7'---z7l--z7--z6' & cycle;
+penpos12(cap_hair,-45); penpos13(cap_hair,-45);
+z13l=(0.289w,h+apex_o); z13-z12=whatever*dir45;
+x12l=apex_o; z13'=whatever[z12,z13];
+y13'=h-2apex_o;
+penstroke z12e--z13e;
+filldraw z12r{z13-z12}..z1{down}--
+z5l---z2r...z13'{dir148}--z12--z12r & cycle;
+%
+%
+%
+penpos15(0.852cap_stem,-116);
+penpos16(cap_hair,-21);
+penpos14(cap_hair,-21);
+z16=(0.852w,0.723h); z14-z16=whatever*dir69;
+y14=y15l+apex_o; z15=(0.77w,0.91h);
+penstroke z2e{up}..z15e{right};
+filldraw z15r{right}..z16l{z16-z14}
+--z16r--z14r--z14l{z1-z14l}
+..z15l{left}--z15r & cycle;
+%
+%
+%
+penpos9(cap_hair,-35); penpos10(cap_hair,-35);
+z9l=(0,0.069h); z10-z9=whatever*dir55;
+y10=0.229h; z8=(0.221w,-apex_o);
+z11=(0.297w,0.1h);
+filldraw z9r{dir20}..z8{right}..
+z3r{up}--z3l{down}..z11{left}..
+z10r{z10-z9}--z10l--z9l--z9r &
+cycle;
+%
+%
+%
+penpos20(cap_hair,0); penpos21(cap_hair,0);
+penpos22(cap_hair,0); penpos23(cap_hair,0);
+z21-z20=whatever*dir74;
+z23-z22=whatever*dir74;
+y22=y5r; y21=y5l; x22=0.772w;
+x21=0.235w; y23=y21+0.072h;
+y20=y22-0.072h;
+z20'=whatever[z20,z21]; z23'=whatever[z22,z23];
+y20'=y22; y23'=y21;
+penstroke z20e--z21e;
+penstroke z22e--z23e;
+filldraw z20'--z22--z23'--z21--z20' &
+cycle;
+z20''=whatever[z20',z22]; x20''=x20'+2cap_hair;
+z23''=whatever[z21,z23']; x23''=x23'-2cap_hair;
+filldraw z20r{z21-z20}..z20''{right}
+--z21--z20--z20r & cycle;
+filldraw z23''{right}..z23l{z23-z22}
+--z23--z22--z23'' & cycle;
+.endchar;
+
+.cmchar "The Fraktur letter Y";
+.beginchar("Y",10.556u#,cap_height#,2.181u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+z1=(0,0); z2=(0.079w,0.089h);
+z3=(2x2,0.025h); penpos4(0.611cap_stem,-35);
+penpos5(1.074cap_stem,13);
+penpos7'(1.111cap_stem,39);
+z4r=(0.338w,-d); z5r=(w,0.513h);
+z7'r=(0.778w,h); z6'=(0.656w,0.864h);
+penpos7(cap_hair,-51); penpos8(cap_hair,-51);
+z8=whatever[z7'l,z7'r]; y8r=h;
+z7=whatever[z7'l,z7'r]; y7=0.787h;
+filldraw z1{up}..z2{right}..z3{down}
+..z4l{right}--z4r{left}..z1{up} &
+cycle;
+penstroke z4e{right}..z5e{up}..z7'e
+{dir129};
+z6=(z5l{up}..z7'l{dir129}) intersectionpoint
+((0,0.8h)--(w,0.8h));
+filldraw z5l{up}..z6..z6'..z7r{z7-z8}--
+z7--z7'{dir-51}..z5{down}--z5l &
+cycle;
+penstroke z7e--z8e;
+%
+%
+%
+penpos11(cap_hair,-90); penpos9(cap_hair,-42);
+penpos10(cap_hair,-42); penpos22(1.148cap_stem,48);
+z9r=(0.359w,-apex_o); z10-z9=whatever*dir48;
+x10=0.719w; z22=whatever[z9,z10]; x22=0.479w;
+z11=(0.126w,0.215h); penpos12(2/3cap_hair,-42);
+z12-z22r=whatever*dir-42;
+x12=0.371w; penpos13(whatever,19);
+x13l=0.5w-0.5cap_stem; x13r=0.5w+0.5cap_stem;
+y13=0.585h;
+penstroke z9e--z10e;
+filldraw z11r{right}..z22l{dir-42}--
+z22r{dir138}--z12r{dir23}..z13r{up}
+--z13l{down}..z12l..z11l{left}--
+z11r & cycle;
+%
+%
+%
+penpos14(1.037cap_stem,32); penpos15(0.889cap_stem,42);
+penpos16(cap_hair,150); penpos17(0.389cap_stem,-134);
+penpos18(0.759cap_stem,-90);
+penpos19(cap_hair,180);
+penpos20(cap_hair,90);
+penpos21(1.5cap_hair,45);
+z14=(x13l,0.904h); z15r=(0.281w,h+apex_o);
+z16=(0.066w,0.883h); z17=(0.051w,0.822h);
+z18=(0.159w,0.713h); z19=(0.275w,0.606h);
+z20r=(0.189w,0.532h); z21=(0.087w,0.561h);
+penstroke z13e{up}..z14e{dir136}..
+z15e{left}..z16e..z17e{down}..z18e
+{right}..z19e{down}..z20e{left}..
+z21e{dir135};
+.endchar;
+
+.cmchar "The Fraktur letter Z";
+.beginchar("Z",8.407u#,cap_height#,2.528u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+penpos1(0.704cap_stem,0); z1l=(0.038w,0.213h);
+penpos2(0.815cap_stem,-147);
+penpos3(1.148cap_stem,-152.5);
+penpos4(cap_hair,90);
+penpos1'(cap_hair,-66);
+z2=(0.395w,0.4h); z3l=(w-x1l,0.096h);
+z4l=(0.586w,-0.763d); z1'=(0.237w,0.372h);
+penstroke z1e{up}..z1'e..z2e..
+z3e{down}..z4e{left};
+z5=(0.368w,-0.525d); z6=(0.305w,-0.575d);
+z7=(0.338w,-0.15d); z8=(0.523w,0.077h);
+z9=(0.406w,0.061h); penpos10(cap_hair,90);
+z10r=(0.248w,0.077h);
+z8'=(x8,-0.288d);
+penpos11(cap_hair,180); z11=(0.068w,-0.3d);
+penpos12(1.5cap_hair,-90); z12r=(0.218w,-d);
+filldraw z4l{left}..z5{left}..z6 &
+z6..z7{up}..z10l{left}--z10r{right}
+..z9{right}..z8 & z8---z8'...z4r{right}
+--z4l & cycle;
+penstroke z10e{left}..z11e{down}
+..z12e{right};
+%
+%
+%
+penpos14(cap_hair,-90); penpos15(0.778cap_stem,25);
+penpos16(cap_stem,90); penpos17(0.5cap_stem,159);
+z15r=(w,0.7h); z16r=(0.5w,h+apex_o);
+z17r=(0,x15r); z14=(0.5w,0.415h);
+penstroke z15e{up}..z16e{left}..
+z17e{down}..z14e{right}..z15e{up};
+%
+%
+%
+z0=(x16,y17r); z18-z0=whatever*dir201;
+z13-z0=whatever*dir221;
+x18=x13=0;
+unfilldraw z18--z0--z13--z18 &
+cycle;
+.endchar; \ No newline at end of file
diff --git a/fonts/gothic/yfrak/ysmfrak.mf b/fonts/gothic/yfrak/ysmfrak.mf
new file mode 100644
index 0000000000..366b7f9f43
--- /dev/null
+++ b/fonts/gothic/yfrak/ysmfrak.mf
@@ -0,0 +1,137 @@
+if unknown cmbase: input cmbase fi
+input yfrabase; % -sl 15-3-1991
+
+font_identifier:="ysmfrak"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+lower_u#:=20/36pt#;
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=167/36pt#; % height of lowercase without ascenders
+%x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=6/36pt#; % lowercase hairline breadth
+%hair#:=9/36pt#; % lowercase hairline breadth
+%stem#:=25/36pt#; % lowercase stem breadth
+stem#:=22/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+%cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_hair#:=7/36pt#;
+cap_amount#:=8/36pt#;
+%cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_stem#:=30/36pt#;
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=5/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+numeric usual_right, usual_left;
+usual_right#:=0.75u#;
+usual_left#:=0.45u#;
+
+granularity:=1.01;
+%aspect_ratio:=2/3aspect_ratio;
+
+mode_setup;
+font_setup;
+cap_amount:=8/36pt;
+foot:=0.207x_height;
+num_height:=1.242x_height;
+cap_kern:=4/36pt;
+boolean ligature; ligature:=false;
+numeric alpha; alpha:=0;
+numeric coef, gencoef; gencoef:=1;
+
+%granularity:=1.01;
+
+%readfrom("yfrakbase"); % -sl 15-3-1991
+%currenttransform:=identity xscaled 1.1;
+if proofing>1: generate ycurrent; fi % switch to the driver file%
+%generate yfraklower;
+generate yfraklow; % -sl 15-3-1991
+%generate yfrakmisc;
+generate yfrakmis; % -sl 15-3-1991
+%generate yfrakupper; % switch to the driver file
+generate yfrakupp; % -sl 15-3-1991
+generate yfraknum;
+%currenttransform:=identity;
+%generate yfrakother;
+generate yfrakoth; % -sl 15-3-1991
+
+font_slant slant; font_x_height x_height#;
+font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+
+%ligtable "a": "e"=:oct"032";
+ligtable "c": "h"=:oct"205", "k"=:oct"206";
+ligtable "f": "f"=:oct"204";
+ligtable "s": ":"=:oct"215", "s"=:oct"201", "t"=:oct"202", "z"=:oct"032",
+"f"=:oct"203", "b" kern 1.03u#, "d" kern 1.03u#, "h" kern 1.03u#, "k" kern 1.03u#,
+"l" kern 1.03u#, "i" kern 0.4u#, "j" kern 0.4u#;
+ligtable "t": "z"=:oct"213";
+ligtable oct"042": "a"=:oct"212", "e"=:oct"221", "o"=:oct"232", "u"=:oct"237",
+"s"=:oct"032";
+ligtable "*": "a"=:oct"211", "e"=:oct"220", "o"=:oct"231", "u"=:oct"236";
+ligtable "`": "`"=:oct"134";
+ligtable "'": "'"=:oct"042";
+ligtable "-": "-"=:oct"173";
+ligtable oct"173": "-"=:oct"174";
+ligtable oct"201": "b" kern 1.03u#, "d" kern 1.03u#, "h" kern 1.03u#, "k" kern 1.03u#
+, "l" kern 1.03u#, "i" kern 0.4u#, "j" kern 0.4u#;
+
+end.
diff --git a/fonts/gothic/yfrak/ysmfrak.tfm b/fonts/gothic/yfrak/ysmfrak.tfm
new file mode 100644
index 0000000000..65ba46b289
--- /dev/null
+++ b/fonts/gothic/yfrak/ysmfrak.tfm
Binary files differ
diff --git a/fonts/gothic/ygoth/ygotbase.mf b/fonts/gothic/ygoth/ygotbase.mf
new file mode 100644
index 0000000000..f450a47d0f
--- /dev/null
+++ b/fonts/gothic/ygoth/ygotbase.mf
@@ -0,0 +1,79 @@
+def podi(suffix $)=
+z$.1=z$l-(2apex_o,0);
+penpos$.2(stem,40); z$.2l=z$.1;
+penpos$.3(stem,40);
+z$.3r-z$.2r=whatever*dir-50;
+y$.3l=-apex_o;
+penstroke z$.3e--z$.2e
+enddef;
+
+def qeri(suffix $)=
+z$.1=z$r+(2apex_o,0);
+penpos$.2(stem,40); z$.2r=z$.1;
+penpos$.3(stem,40);
+z$.2r-z$.3r=whatever*dir-50;
+y$.3r=y$+foot+apex_o;
+penstroke z$.2e--z$.3e
+enddef;
+
+def panwqeri(suffix $)=
+z$.1=z$r+(2apex_o,0);
+penpos$.2(stem,40); z$.2r=z$.1;
+penpos$.3(stem,40);
+z$.2r-z$.3r=whatever*dir-50;
+y$.3r=y$+foot+apex_o;
+penstroke z$.2e--z$.3e;
+penpos$.4(hair,-50);
+z$.4l=z$.3r; z$.5=whatever[z$.3r,z$.3l];
+x$.5=x$l-1.233stem; x$.6=x$.5;
+z$.6-z$.4r=whatever*(z$.5-z$.3);
+filldraw z$.5--z$.4l--z$.4r--z$.6--z$.5
+& cycle;
+unfilldraw z$.5--(x$.5,y$.3l)
+--z$.3l--z$.5 & cycle;
+enddef;
+
+def katwpodi(suffix $)=
+z$.1=z$l-(2apex_o,0);
+penpos$.2(stem,40); z$.2l=z$.1;
+penpos$.3(stem,40);
+z$.3r-z$.2r=whatever*dir-50;
+y$.3l=-apex_o;
+penstroke z$.3e--z$.2e;
+penpos$.4(hair,-50);
+z$.4r=z$.3l; z$.5=whatever[z$.3r,z$.3l];
+x$.5=x$r+1.233stem; x$.6=x$.5;
+z$.6-z$.4l=whatever*(z$.5-z$.3);
+filldraw z$.5--z$.4r--z$.4l--z$.6--z$.5
+& cycle;
+unfilldraw z$.5--(x$.5,y$.3l)
+--z$.3l--z$.5 & cycle;
+enddef;
+
+def Umlaut(suffix $) =
+penpos$.1(stem,45); penpos$.2(stem,45);
+penpos$.3(stem,45); penpos$.4(stem,45);
+penpos$.5(stem,-45); penpos$.6(stem,-45);
+y$.1=y$.3;
+z$.5l=z$.1l; z$.5r=z$.2l;
+z$.6l=z$.3l; z$.6r=z$.4l;
+%
+%
+%
+0.5[y$.1,y$.2]=x_height+2apex_o+2/3stem;
+x$.3l-x$.2r=0;
+%
+%
+%
+0.5[x$.2r,x$.3l]=x$;
+penstroke z$.1e--z$.2e;
+penstroke z$.3e--z$.4e;
+enddef;
+
+def ygoth_dot (suffix $) =
+penpos$.1(stem,45); penpos$.2(stem,45);
+penpos$.3(stem,-45);
+z$.1l=z$.3l; z$.2l=z$.3r;
+z$=.5[z$.1l,z$.2r];
+penstroke z$.1e--z$.2e;
+enddef;
diff --git a/fonts/gothic/ygoth/ygoth.mf b/fonts/gothic/ygoth/ygoth.mf
new file mode 100644
index 0000000000..a4c68d7cdb
--- /dev/null
+++ b/fonts/gothic/ygoth/ygoth.mf
@@ -0,0 +1,134 @@
+if unknown cmbase: input cmbase fi
+input ygotbase; % -sl 15-3-1991
+
+font_identifier:="ygoth"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=170/36pt#; % height of lowercase without ascenders
+%x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=8/36pt#; % lowercase hairline breadth
+%hair#:=9/36pt#; % lowercase hairline breadth
+%stem#:=25/36pt#; % lowercase stem breadth
+stem#:=30/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+%cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_hair#:=8/36pt#;
+cap_amount#:=8/36pt#;
+%cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_stem#:=36/36pt#;
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=8/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+
+mode_setup;
+font_setup;
+cap_amount:=8/36pt;
+foot:=27/36pt;
+num_height:=1.242x_height;
+boolean ligature; ligature:=false;
+
+
+%readfrom("ygothbase"); % -sl 15-3-1991
+%readfrom("ygothgen_l"); % -sl 15-3-1991
+input ygothgen % -sl 15-3-1991
+%generate ycurrent; % switch to the driver file%
+%generate ygothupper; % switch to the driver file
+generate ygothupp; % -sl 15-3-1991
+%generate ygothlower;
+generate ygothlow; % -sl 15-3-1991
+generate ygothlig;
+generate ygothnum;
+%generate ygothmisc;
+generate ygothmis; % -sl 15-3-1991
+
+font_slant slant; font_x_height x_height#;
+font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+
+ligtable oct"140": "s"=:oct"052", "t"=:oct"075", "`"=:oct"137";
+ligtable oct"052": "i"=:oct"057";
+ligtable "a": "e"=:oct"032";
+ligtable "b": "e"=:oct"001", "a"=:oct"000", "o"=:oct"002";
+ligtable "c": "h"=:oct"003", "k"=:oct"004", "t"=:oct"005";
+ligtable "d": "e"=:oct"007", "a"=:oct"006", "o"=:oct"010";
+ligtable "h": "e"=:oct"012", "a"=:oct"011", "o"=:oct"022";
+ligtable "i": "j"=:oct"026";
+ligtable "f": "i"=:oct"014", "f"=:oct"013", "l"=:oct"015";
+ %"'" kern itc#, "?" kern itc#, "!" kern itc#, ")" kern itc#, "]" kern itc#;
+ligtable oct"013": "i"=:oct"016", "l"=:oct"017";
+ %"'" kern itc#, "?" kern itc#, "!" kern itc#, ")" kern itc#, "]" kern itc#;
+ligtable "l": "l"=:oct"035";
+ligtable "p": "p"=:oct"043", "e"=:oct"024","a"=:oct"023","o"=:oct"025";
+ligtable "q": "q"=:oct"044", "z"=:oct"027";
+ligtable "s": "s"=:oct"046", "t"=:oct"074", "z"=:oct"031", ":"=:oct"140",
+"i" kern -u#;
+ligtable "o": "e"=:oct"033";
+ligtable oct"046": "i"=:oct"053";
+ligtable "t": "z"=:oct"076";
+ligtable "v": "e"=:oct"036", "a"=:oct"030", "u"=:oct"037";
+ligtable "-": "-"=:oct"173";
+ligtable oct"173": "-"=:oct"174";
+ligtable "'": "'"=:oct"042";
+ligtable oct"042": "a"=:oct"133", "e"=:oct"134", "o"=:oct"135", "u"=:oct"136",
+"s"=:oct"031";
+end.
diff --git a/fonts/gothic/ygoth/ygoth.tfm b/fonts/gothic/ygoth/ygoth.tfm
new file mode 100644
index 0000000000..de8128cd3f
--- /dev/null
+++ b/fonts/gothic/ygoth/ygoth.tfm
Binary files differ
diff --git a/fonts/gothic/ygoth/ygothgen.mf b/fonts/gothic/ygoth/ygothgen.mf
new file mode 100644
index 0000000000..81f1538d81
--- /dev/null
+++ b/fonts/gothic/ygoth/ygothgen.mf
@@ -0,0 +1,452 @@
+def ygoth_a(suffix $) =
+w':=6.278u; penpos501(stem,0);
+z501=(x$+0.726w',foot);
+penpos502(stem,0);
+z502=(x501,0.732x_height);
+penstroke z501e--z502e;
+penpos511(stem,0); z511l=(x$+apex_o,y501);
+podi(511);
+if not ligature: podi(501); fi
+z512-z511l+(2apex_o,0)=whatever*dir-50;
+y512=-apex_o; penpos512'(hair,-50);
+z512'r=z512; z512.2-z512'l=whatever*(z501l-z512);
+x512.2=x501l;
+filldraw z512'r--z501l--z512.2--z512'l--z512'r & cycle;
+%
+%
+%
+penpos517(stem,0); z517=(x511,0.438x_height);
+penpos508(hair,-90); penpos509(hair,-90);
+z508r=z517r; z509r=(x501l,y508r);
+z510=whatever[z517l,z508l]; x510=x$;
+z510'=whatever[z510,z511]; x510'=x$+apex_o;
+filldraw z510--z508l--z508r--z510'--z510 & cycle;
+penstroke z508e--z509e; penstroke z511e--z517e;
+%
+%
+%
+penpos505(hair,125); z505=(x$+0.243w',0.830x_height);
+z504-z505r=whatever*dir35; y504=x_height+apex_o;
+penpos506(stem,40); z506r=z504;
+penpos503(stem,40); z503-z506=whatever*dir-30;
+x503=x501r; z506'=whatever[z506l,z503l];
+x506'=x$+0.5w'; penpos507(hair,180);
+y507=0.5[x_height,y517]; penpos505'(hair,125);
+z505'r=whatever[z505r,z504]; y505'r=0.9x_height;%0.856h;
+x507=x$+0.12w'; penpos509'(hair,-90);
+z509'=0.5[z508,z509];
+z503''=whatever[z503r,z506r]; x503''=x502r;
+if ligature: filldraw z503''--z504 & z504---z505'r...z507r...z509'r{right}
+& z509'r--z509'l & z509'l{left}...z507l...z505'l{z504-z505r}...
+z506'---(x502l,y503)---z503l--z503--z503'' & cycle;
+else:
+filldraw z503r--z504 & z504---z505'r...z507r...z509'r{right}
+& z509'r--z509'l & z509'l{left}...z507l...z505'l{z504-z505r}...
+z506'---(x502l,y503)---z503l--z503r & cycle; fi
+z520=1/3[z517r,z511r]; z521=1/3[z508r,z509r];
+filldraw z520{up}..z521{right} &
+z521--z508r--z520 & cycle;
+filldraw z502r--z503--(x502l,y503)--z502l--z502r & cycle;
+enddef;
+
+
+def ygoth_c (suffix $) =
+w':=4.306u; penpos401(stem,0); penpos402(stem,0);
+z401l=(x$+apex_o,foot);
+z402l=(x401l,0.748x_height);
+penpos403(stem,60); penpos404(stem,60);
+z404l=z401l-(apex_o,0); z403-z404=whatever*dir-30;
+y403l=-apex_o; penstroke z403e--z404e;
+penstroke z401e--z402e;
+penpos405(hair,-60); z405r-z403l=whatever*dir30;
+x405r=w'+apex_o; z403'=whatever[z404l,z403l];
+z403'-z405l=whatever*(z403l-z405r);
+z405'=whatever[z403',z405l];
+z405'-z404r=whatever*(z403r-z404r);
+filldraw z403l--z405r--z405l--z405'--z403r--z403l &
+cycle;
+%
+%
+%
+z406=(x$+0.581w',x_height+apex_o);
+z409=z402l-(apex_o,0);
+penpos407(stem,60); z406-z407r=whatever*dir150;
+x407r=x$+w'; z408'=whatever[z409,z406];
+z408'-z407l=whatever*(z406-z407r);
+z408=whatever[z408',z407l]; x408=x408'+apex_o;
+z410-z409=whatever*(z405r-z405l);
+x410=x402l; z408''=whatever[z408,z407l]; x408''=x402r;
+filldraw z410--z409 & flex(z409,z408,z406) & z406--z407r
+--z407l--z408''--z402r--z402l--z410 & cycle;
+penpos409.5(hair,-60); penpos408.5(hair,-60);
+penpos406.5(hair,-60); z409.5l=z409; z408.5l=z408;
+z406.5l=z406;
+penstroke z409.5e..z408.5e..z406.5e;
+enddef;
+
+def ygoth_e (suffix $) =
+w':=5u; penpos601(stem,0);
+z601l=(x$+apex_o,foot);
+z602'=(x$+0.5w',-apex_o); z601'=z601l-(apex_o,0);
+penpos602(stem,0); z602=(x601,0.804x_height);
+penpos603(stem,angle(z602'-z601')+90);
+z603l=z602';
+penpos604(stem,angle(z602'-z601')+90);
+z604l=z601'; penstroke z601e--z602e;
+penstroke z603e--z604e;
+penpos615(hair,-60); z615r=z602';
+z616-z615r=whatever*dir30; x616=x$+w'-apex_o;
+x616=x616'; z616'-z615l=whatever*(z616-z615r);
+z616''=whatever[z615,z616'];
+y616''=0.5[foot,y616'];
+filldraw z603r{z603-z604}...z616''---z616' &
+z616'--z616--z615r--z615l--z603r & cycle;
+%
+%
+%
+z606=(x$+0.611w',x_height+apex_o);
+z610-z606=whatever*dir-45; x610=x$+w';
+penpos622(hair,angle(z610-z606));
+penpos621(hair,angle(z610-z606));
+penpos620(hair,angle(z610-z606));
+penpos621'(hair,angle(z610-z606));
+z622=z602l-(apex_o,0); z620l=z606; z621'l=0.5[z622l,z620l];
+z621l=z621';
+penstroke z622e..z621e..z620e;
+z608=(x601r,0.637[y602,y601]); penpos609(hair,angle(z610-z606));
+penpos610'(hair,angle(z610-z606));
+z609r=z608; z610'r=z610;
+penstroke z609e--z610'e;
+penpos611(stem,angle(z610-z606)+90); z611r=z610;
+z630=whatever[z622l,z606];
+z630-z611l=whatever*(z606-z610);
+z631=(z630--z611l) intersectionpoint
+(z622..z621..z620);
+filldraw z631..z620--z610--z611l--z631 & cycle;
+z633=(z622..z621..z620) intersectionpoint
+(z601r--(x601r,x_height));
+filldraw z602r--z633..z602l--z602r & cycle;
+enddef;
+
+def ygoth_s (suffix $) =
+w':=4.389u; penpos201(stem,0);
+z201l=(x$+apex_o,foot); z202=(x201,1.144x_height);
+penpos202(stem,0);
+penstroke z201e--z202e; z201'=z201l-(apex_o,0);
+penpos205(hair,-60);
+z205r-z201'=whatever*dir-50; y205r=-apex_o;
+penpos206(hair,-60); z206-z205=whatever*dir30;
+y206=foot; penpos203(stem,50);
+z203l=z201'; z207-z203r=whatever*(z205r-z201');
+z207=whatever[z205r,z206r];
+filldraw z201'--z205r--z206r--z206l--z205l--z201' &
+cycle;
+filldraw z201'--z203r--z207--z205r--z201' & cycle;
+%
+%
+%
+penpos220(hair,-40); penpos221(hair,-40);
+penpos222(hair,-40);
+z222l=(2/3[x201l,x206],1.405x_height);
+penpos208(stem,angle(z222l-z202l)); z208r=z222l;
+z209-z222l=whatever*dir-40; x209=x$+w'-hair;
+z210-z209=whatever*dir240;
+z210-z208l=whatever*(z209-z222l);
+z211=whatever[z208l,z210]; x211=x202r;
+z220l=z202l; penpos221'(hair,-40); z221'l=z208l;
+z221l=z221';
+penstroke z220e..z221e..z222e;
+filldraw z221..z222 & z222--z209--
+z210--z221 & cycle;
+z211'=(z220..z221..z222) intersectionpoint
+(z201r--(x201r,2x_height));
+filldraw z202l..z211' & z211'--z202r--z202l
+& cycle;
+x251=x252=x201l; y250=y251=0.732x_height;
+y252=y251+4/5stem; x250=x251-hair;
+filldraw z250--z252--z251--z250 & cycle;
+enddef;
+
+def ygoth_makru_s (suffix $) =
+w':=4.389u; penpos201(stem,0);
+z201l=(x$+apex_o,foot); z202=(x201,1.144x_height);
+penpos202(stem,0);
+penstroke z201e--z202e; z201'=z201l-(apex_o,0);
+penpos205(hair,-60);
+z205r-z201'=whatever*dir-50; y205r=-apex_o;
+penpos206(hair,-60); z206-z205=whatever*dir30;
+y206=foot; penpos203(stem,50);
+z203l=z201'; z207-z203r=whatever*(z205r-z201');
+z207=whatever[z205r,z206r];
+penpos270(0.5hair,0); x270l=x201l; y270=-0.3x_height;
+penpos271(stem,0); z271=(x201,0);
+penstroke z270e--z271e--z201e;
+%
+%
+%
+penpos220(hair,-40); penpos221(hair,-40);
+penpos222(hair,-40);
+z222l=(2/3[x201l,x206],1.405x_height);
+penpos208(stem,angle(z222l-z202l)); z208r=z222l;
+z209-z222l=whatever*dir-40; x209=x$+w'-hair;
+z210-z209=whatever*dir240;
+z210-z208l=whatever*(z209-z222l);
+z211=whatever[z208l,z210]; x211=x202r;
+z220l=z202l; penpos221'(hair,-40); z221'l=z208l;
+z221l=z221';
+penstroke z220e..z221e..z222e;
+filldraw z221..z222 & z222--z209--
+z210--z221 & cycle;
+z211'=(z220..z221..z222) intersectionpoint
+(z201r--(x201r,2x_height));
+filldraw z202l..z211' & z211'--z202r--z202l
+& cycle;
+x251=x252=x201l; y250=y251=0.732x_height;
+y252=y251+4/5stem; x250=x251-hair;
+filldraw z250--z252--z251--z250 & cycle;
+enddef;
+
+def ygoth_h (suffix $) =
+w':=6.111u; d':=2.778u;
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(x$+0.243w',foot); z2=(x1,1.271x_height);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=x$+w'-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+podi(1);
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x3r+apex_o,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+z21=0.267[z2l,z2r];
+z20=(x6,0.5[1.431x_height,y2]);
+penpos20(3/4hair,-135);
+z22=(0.545[x21,x20],1.431x_height-apex_o);
+z21'=(x1r,1/4[y21,y6]);
+filldraw z21..z22..{down}z20l & z20l--z20r
+& z20r{up}..z21'{down} & z21'--z2r--z21 &
+cycle;
+penpos18(hair,angle(z6-z17));
+x18r=x$;y18r=1/3[1.431x_height,y21];
+z21''=(x1l,0.5[y21,y6]);
+filldraw z21''{up}..{z18-z21}z18l &
+z18l--z18r--z21--z2l--z21'' & cycle;
+%
+%
+%
+z40=z3r+(apex_o,-0.5y3r); z41=(x3l-0.6hair,0);
+penpos42(hair,90); z42l=(x1,-d');
+filldraw z3r{down}..z40 & z40{dir225}..
+z42l{left} & z42l--z42r & z42r{right}..
+z3l{up} & z3l--z3r & cycle;
+enddef;
+
+def ygoth_k (suffix $) =
+w':=6.111u; d':=2.778u;
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(x$+0.243w',foot); z2=(x1,1.271x_height);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; %z3r-z7=whatever*dir30;
+z3r=(x$+w'-apex_o,foot);
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e;
+%penstroke z3e--z4e;
+podi(1);
+%
+%
+%
+penpos5(1.1stem,30); z6=(x3l,x_height);
+z6-z17=whatever*dir30; x17=x1r;
+z5r-z6=whatever*dir-60; x5r=x3r;
+penpos6'(hair,-60);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+z21=0.267[z2l,z2r];
+z20=(0.821[x1r,x3l],0.5[1.431x_height,y2]);
+penpos20(3/4hair,-135);
+z22=(0.545[x21,x20],1.431x_height-apex_o);
+z21'=(x1r,1/4[y21,y6]);
+filldraw z21..z22..{down}z20l & z20l--z20r
+& z20r{up}..z21'{down} & z21'--z2r--z21 &
+cycle;
+penpos18(hair,angle(z6-z17));
+x18r=x$;y18r=1/3[1.431x_height,y21];
+z21''=(x1l,0.5[y21,y6]);
+filldraw z21''{up}..{z18-z21}z18l &
+z18l--z18r--z21--z2l--z21'' & cycle;
+%
+%
+%
+penpos30(hair,-60); z30r=z5r; x31=x32=x1r;
+z31-z30r=whatever*(z17-z6);
+z32-z30l=whatever*(z17-z6);
+filldraw z31--z32--z30l--z30r--z31 & cycle;
+penpos4.5(stem,0); penpos33(stem,angle(z30r-z31));
+x4.5=x3; z4.5-z33=whatever*dir-25;
+penpos33'(1.2hair,angle(z30r-z31));
+z33'r=z5l; z33r=z5l; podi(3);
+penstroke z3e--z4.5e;
+penpos34(stem,angle(z30r-z31));
+x34r=x$+w'+apex_o;
+z34r-z33r=whatever*dir-25;
+penstroke z34e--z33e;
+if y34r > y4.5:
+filldraw z4.5r--(x4.5r,y34r)--(x4.5l,y34r)
+--z4.5l--z4.5r & cycle; fi
+enddef;
+
+def ygoth_o (suffix $) =
+w':=6.111u;
+penpos801(stem,0); penpos802(stem,0);
+penpos803(stem,0); penpos804(stem,0);
+penpos808(stem,60); penpos809(stem,60);
+z801=(x$+0.243w',foot); z802=(x801,0.888x_height);
+z809l=z801l-(apex_o,0);
+x807=0.359[x801r,x803l]; y807=-apex_o;
+z808l=z807; z803r-z807=whatever*dir30;
+x803r=x$+w'-apex_o;
+z804r=(x803r,0.88x_height); %0.833
+z807'=whatever[z809r,z808r]; z807'=whatever[z807,z803r];
+z807''=whatever[z807,z803r]; x807''=x803l;
+penstroke z808e--z809e;
+penstroke z803e--z804e;
+filldraw z808r--z807'--z807--z808r & cycle;
+filldraw z807''--z803l--z803r--z807'' & cycle;
+penpos700(hair,angle(z803r-z807)-90);
+penpos701(hair,angle(z803r-z807)-90);
+z700r=z807; z701r=whatever[z807,z803r]; x701l=x803r;
+penstroke z700e--z701e;
+%
+%
+%
+penpos805(stem,60); z817=(x801r,0.824x_height);
+z806=(0.821[x801r,x803l],x_height);
+z805r=(x701r,y804);
+penpos806'(hair,angle(z806-z817)-90);
+z806'l=z806; z817'-z806'r=whatever*(z817-z806);
+x817'=x801r; z805.1=whatever[z817',z806'r];
+z805.1-z805l=whatever*(z806-z805r);
+filldraw z805r--z806--z817--z817'--z805.1--z805l--z805r
+& cycle;
+%
+%
+%
+penpos802'(stem,0); z802'r=z817';
+z831=whatever[z806,z805r]; x831=x801l;
+z830=whatever[z831,z805r];
+z830-z802'l=whatever*(z802'r-z806'r);
+x834=x$; z834=whatever[z805.1,z805l];
+z832=(x831-0.5hair,y831+hair);
+z833=(2(x832-x$),y834); z835=whatever[z802'l,z830];
+z835=whatever[z834,z805.1];
+penpos750(hair,angle(z830-z802'l)-90);
+z750l=0.5[z802'l,z830];
+filldraw z802'r--z806'r--z806--z830
+& flex(z830,z750r,z802'l) & z802'l--z802'r & cycle;
+penstroke z801e--z802'e;
+enddef;
+
+def ygoth_t (suffix $) =
+w':=4.389u; h':=1.242x_height;
+penpos501(stem,0);
+z501l=(x$+apex_o,foot); z502=(x501,x_height-foot);
+penpos502(stem,0);
+penstroke z501e--z502e; z501'=z501l-(apex_o,0);
+penpos505(hair,-60);
+z505r-z501'=whatever*dir-50; y505r=-apex_o;
+penpos506(hair,-60); z506-z505=whatever*dir30;
+y506=foot; penpos503(stem,50);
+z503l=z501'; z507-z503r=whatever*(z505r-z501');
+z507=whatever[z505r,z506r];
+filldraw z501'--z505r--z506r--z506l--z505l--z501' &
+cycle;
+filldraw z501'--z503r--z507--z505r--z501' & cycle;
+%
+%
+%
+penpos510(0.767stem,90); penpos521(hair,0);
+z510l=(x501r+stem,y502); z520=(x501l-0.5stem,y502);
+z522=(x501r,y510r); z521=(x501r,h');
+filldraw z510l--z520--z521l--z521r..z522{down}
+& z522--z510r--z510l & cycle;
+enddef;
+
+def ygoth_u (suffix $) =
+w':=5.5u;
+penpos601(stem,0); penpos602(stem,0);
+penpos603(stem,0); penpos604(stem,0);
+x601l=x$+hair;
+x602=x601; x604l=x603l=x601r+1.233stem;
+y601=y603=foot; y602=y604=x_height-foot;
+penstroke z601e--z602e;
+penstroke z603e--z604e;
+ podi(603); katwpodi(601);
+if not ligature: qeri(602); fi qeri(604);
+enddef;
+
+def ygoth_z (suffix $) =
+w':=4.306u; d':=3.333u;
+penpos701(hair,-40); penpos702(hair,-40);
+penpos703(hair,-40); penpos704(hair,-40);
+penpos705(1.1stem,50); penpos706(1.1stem,50);
+penpos707(1.3stem,50); penpos710(hair,-90);
+y701l=0.242x_height;
+x701l=x$-2apex_o; x702r=x$+w'+apex_o; y710r=-d';
+z702r-z701r=whatever*dir50;
+penstroke z701e--z702e;
+z704r-z702r=whatever*dir150;
+y704l=x_height+apex_o;
+z704l-z703l=whatever*(z701-z702);
+x703l=x701l; z705=0.5[z703r,z704r];
+z706r-z705r=whatever*(z702r-z704r);
+z706=whatever[z701l,z702l];
+z707=whatever[z701r,z702r];
+x707=1/3[x701l+2apex_o,x702r-apex_o];
+z709=(x702r,0.163x_height);
+z708=(0.632[x701l+2apex_o,x702r-apex_o],0);
+x710=0.123[x701l+2apex_o,x702r-apex_o];
+penstroke z703e--z704e;
+penstroke z706e--z705e;
+filldraw z710r{right}..z709{dir70}
+& z709..z707r{z702l-z702r}
+& z707r--z707l & z707l{z702r-z702l}..z708{down}..
+z710l{left} & z710l--z710r & cycle;
+z711=(z707l{z702r-z702l}..z708{down}..
+z710l{left}) intersectionpoint
+((x707,0)--z707);
+filldraw z711--z707--z701r & z701r{z707-z701r}..
+{z701r-z701l}z711 & cycle;
+z712=whatever[z705l,z706l];
+x712=x705; filldraw z712{z705l-z706l}..z703r{z703r-z704r}
+& z703r--z705--z712 & cycle;
+enddef; \ No newline at end of file
diff --git a/fonts/gothic/ygoth/ygothlig.mf b/fonts/gothic/ygoth/ygothlig.mf
new file mode 100644
index 0000000000..8973089b3b
--- /dev/null
+++ b/fonts/gothic/ygoth/ygothlig.mf
@@ -0,0 +1,1578 @@
+.cmchar "The gothic ligature sz";
+.beginchar(oct"031",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+1.6u#);
+z0=(hair,0); ygoth_makru_s(0); z50=(apex_o+stem,0);
+ygoth_z(50);
+.endchar;
+
+.cmchar "The gothic ligature fi";
+.beginchar(oct"014",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+1.3u#);
+z0=(hair,0); ygoth_s(0);
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penstroke z260e--z261e;
+penpos1(stem,0); penpos2(stem,0);
+z1l=(x206l,foot);
+z2=(x1,x_height-foot);
+podi(1); qeri(2); penstroke z1e--z2e;
+z261.5=0.5[z260,z261]; penpos261.5(stem,-90);
+unfilldraw z261.5r--z261r--z261l--z261.5l--
+z261.5r & cycle;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+penpos3'(x3-x210,0); penpos4'(x3-x210,0);
+z3'r=z3; z4'r=z4l;
+unfilldraw z3'r--z4'r--z4'l--z3'l--z3'r &
+cycle;
+.endchar;
+
+.cmchar "The gothic ligature ffi";
+.beginchar(oct"016",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#-u#,cap_serif_fit#+5.3u#);
+z0=(hair,0); ygoth_s(0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+%
+%
+%
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penstroke z260e--z261e;
+penpos1(stem,0); penpos2(stem,0);
+z1l=(x206l,foot);
+z2=(x1,x_height-foot);
+podi(1); qeri(2); penstroke z1e--z2e;
+z261.5=0.5[z260,z261]; penpos261.5(stem,-90);
+unfilldraw z261.5r--z261r--z261l--z261.5l--
+z261.5r & cycle;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penstroke z275e--z260e;
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+penpos3'(x3-x210,0); penpos4'(x3-x210,0);
+z3'r=z3; z4'r=z4l;
+unfilldraw z3'r--z4'r--z4'l--z3'l--z3'r &
+cycle;
+transform metatopish;
+metatopish=identity
+shifted (4u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic ligature fl";
+.beginchar(oct"015",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+2.7u#);
+z0=(hair,0); ygoth_s(0); z100=(x206l,0);
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penstroke z260e--z261e;
+%
+%
+%
+w':=4.278u; h':=1.431x_height;
+penpos301(stem,0); penpos302(stem,0);
+penpos303(stem,0); penpos304(stem,0);
+penpos308(stem,60); penpos309(stem,60);
+z301=(x206l+0.243w'-apex_o,foot); z302=(x301,0.888h');
+penstroke z301e--z302e; podi(301);
+%
+%
+%
+z321=0.267[z302l,z302r];
+z320l=(x206l-apex_o+1.243w',0.5[h',y302]);
+penpos320(3/4hair,-135);
+z322=(0.7[x321,x320],h'-apex_o);
+z321'=(x301r,1/4[y321,x_height]);
+penpos325(0.7hair,-90); z325l=z322;
+filldraw z321..z325l{right} & z325l--z325r &
+z325r{left}..z321'{down} & z321'--z302r--z321 &
+cycle;
+.endchar;
+
+.cmchar "The gothic ligature ffl";
+.beginchar(oct"017",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+5.5u#);
+z0=(hair,0); ygoth_s(0); z100=(x206l,0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penstroke z260e--z261e;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penstroke z275e--z260e;
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+%
+%
+%
+w':=4.278u; h':=1.431x_height;
+penpos301(stem,0); penpos302(stem,0);
+penpos303(stem,0); penpos304(stem,0);
+penpos308(stem,60); penpos309(stem,60);
+z301=(x206l+0.243w'-apex_o,foot); z302=(x301,0.888h');
+penstroke z301e--z302e; podi(301);
+%
+%
+%
+z321=0.267[z302l,z302r];
+z320l=(x206l-apex_o+1.243w',0.5[h',y302]);
+penpos320(3/4hair,-135);
+z322=(0.7[x321,x320],h'-apex_o);
+z321'=(x301r,1/4[y321,x_height]);
+penpos325(0.7hair,-90); z325l=z322;
+filldraw z321..z325l{right} & z325l--z325r &
+z325r{left}..z321'{down} & z321'--z302r--z321 &
+cycle;
+
+
+transform metatopish;
+metatopish=identity
+shifted (3u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic ligature ff";
+.beginchar(oct"013",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3u#);
+z0=(hair,0); ygoth_s(0); z100=(x206l,0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penstroke z260e--z261e;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penstroke z275e--z260e;
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+transform metatopish;
+metatopish=identity
+shifted (3u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic ligature tz";
+.beginchar(oct"076",4.389u#,1.242x_height#,0);
+.adjust_fit(2cap_serif_fit#+0.3u#,cap_serif_fit#+1.7u#);
+z0=(0,0); ygoth_t(0); z100=(x522,0);
+ygoth_z(100);
+z704'=whatever[z704l,z703l]; y704'=y510;
+filldraw z522{right}..z704l{z704-z703} &
+z704l--z704'--z522 & cycle;
+.endchar;
+
+.cmchar "The gothic ligature ss";
+.beginchar(oct"046",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.6u#,cap_serif_fit#+2.5u#);
+z0=(hair,0); ygoth_makru_s(0); z100=(x206l,0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+transform metatopish;
+metatopish=identity
+shifted (2.5u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic ligature ssi";
+.beginchar(oct"053",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.65u#,cap_serif_fit#+3.8u#);
+z0=(hair,0); ygoth_makru_s(0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+%
+%
+%
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penpos1(stem,0); penpos2(stem,0);
+z1l=(x206l,foot);
+z2=(x1,x_height-foot);
+podi(1); qeri(2); penstroke z1e--z2e;
+z261.5=0.5[z260,z261]; penpos261.5(stem,-90);
+unfilldraw z261.5r--z261r--z261l--z261.5l--
+z261.5r & cycle;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+penpos3'(x3-x210,0); penpos4'(x3-x210,0);
+z3'r=z3; z4'r=z4l;
+unfilldraw z3'r--z4'r--z4'l--z3'l--z3'r &
+cycle;
+transform metatopish;
+metatopish=identity
+shifted (2.5u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic ligature st";
+.beginchar(oct"074",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.3u#,cap_serif_fit#+1.6u#);
+z0=(0,0); ygoth_makru_s(0);
+z100=(x209-stem+0.5u,0); ygoth_t(100);
+.endchar;
+
+.cmchar "The gothic ligature ct";
+.beginchar(oct"005",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.2u#,cap_serif_fit#+2.9u#);
+z0=(0,0); ygoth_c(0);
+z100=(x405'+apex_o,0); ygoth_t(100);
+%
+%
+%
+penpos450(hair,90);
+penpos451(hair,angle(z520-z521l));
+penpos452(hair,0); z452=(x410,1/3[y521,y522]);
+z450r=z406; z451l=z521l;
+penstroke z450e..z452e..
+z451e{z510r-z521l};
+.endchar;
+
+.cmchar "The gothic ligature ch";
+.beginchar(oct"003",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+5u#);
+z0=(0,0); ygoth_c(0);
+z100=(x405'-hair,0); ygoth_h(100);
+.endchar;
+
+.cmchar "The gothic ligature ck";
+.beginchar(oct"004",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+5.4u#);
+z0=(0,0); ygoth_c(0);
+z100=(x405'-hair,0); ygoth_k(100);
+.endchar;
+
+
+.cmchar "The gothic ligature ll";
+.beginchar(oct"035",4.278u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+2u#);
+penpos301(stem,0); penpos302(stem,0);
+penpos303(stem,0); penpos304(stem,0);
+penpos308(stem,60); penpos309(stem,60);
+z301=(0.243w,foot); z302=(x301,0.888h);
+penstroke z301e--z302e; podi(301);
+%
+%
+%
+z321=0.267[z302l,z302r]; z320l=(w,0.5[h,y302]);
+penpos320(3/4hair,-135);
+z322=(0.7[x321,x320],h-apex_o);
+z321'=(x301r,1/4[y321,x_height]);
+penpos325(0.7hair,-90); z325l=z322;
+filldraw z321..z325l{right} & z325l--z325r &
+z325r{left}..z321'{down} & z321'--z302r--z321 &
+cycle;
+transform metatopish;
+metatopish=identity
+shifted (x320r-x301l-hair,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+penpos318(hair,45);
+x318r=0;y318r=1/3[h,y321];
+z321''=(x301l,0.5[y321,x_height]);
+filldraw z321''{up}..{z318-z321}z318l &
+z318l--z318r--z321--z302l--z321'' & cycle;
+%
+%
+%
+penpos328(hair,180);
+z328r=z302l+(x320r-x301l-hair,0);
+penstroke z325e{right}..z328e;
+.endchar;
+
+.cmchar "The gothic ligature oldstyle ssi";
+.beginchar(oct"057",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.5u#,cap_serif_fit#+4u#);
+z0=(hair,0); ygoth_s(0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+%
+%
+%
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penpos1(stem,0); penpos2(stem,0);
+z1l=(x206l,foot);
+z2=(x1,x_height-foot);
+podi(1); qeri(2); penstroke z1e--z2e;
+z261.5=0.5[z260,z261]; penpos261.5(stem,-90);
+unfilldraw z261.5r--z261r--z261l--z261.5l--
+z261.5r & cycle;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+penpos3'(x3-x210,0); penpos4'(x3-x210,0);
+z3'r=z3; z4'r=z4l;
+unfilldraw z3'r--z4'r--z4'l--z3'l--z3'r &
+cycle;
+transform metatopish;
+metatopish=identity
+shifted (2.5u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic ligature oldstyle st";
+.beginchar(oct"075",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.3u#,cap_serif_fit#+1.6u#);
+z0=(0,0); ygoth_s(0);
+z100=(x209-stem+0.5u,0); ygoth_t(100);
+.endchar;
+
+.cmchar "The gothic ligature oldstyle ss";
+.beginchar(oct"052",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#+0.5u#,cap_serif_fit#+2.5u#);
+z0=(hair,0); ygoth_s(0); z100=(x206l,0);
+transform metatopish;
+metatopish=identity
+shifted (x201l-x206l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+%
+%
+%
+penpos275(4/5stem,-90); z275=(2x201l-x206l,y261);
+penpos276(stem,angle(z222l-z202l));
+z276l=whatever[z211+(x201l-x206l,0),z210+(x201l-x206l,0)];
+x276r=x201r;
+filldraw z276r--z209+(x201l-x206l,0)--
+z210+(x201l-x206l,0)--z276l--z276r & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+unfilldraw z220l..z221l..z222l--
+(x201l,y222)--z220l & cycle;
+transform metatopish;
+metatopish=identity
+shifted (2.5u,0);
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic scandinavian o-slash";
+.beginchar(oct"034",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#-0.5u#,cap_serif_fit#);
+z0=(0,0); ygoth_o(0);
+z40=whatever[z809r,z808r]; x40=x801r;
+z41=whatever[z805l,z805.1]; x41=x803l;
+penpos40'(hair,angle(z41-z40)-90);
+z40'l=whatever[z40,z41]; y40'r=-2apex_o;
+penpos41'(hair,angle(z41-z40)-90);
+z41'l-z40'l=whatever*(z41-z40'r);;
+y41'l=x_height+2apex_o;
+penstroke z40'e--z41'e;
+.endchar;
+
+.cmchar "The gothic ligature oe";
+.beginchar(oct"033",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#-0.6u#,cap_serif_fit#+3.1u#);
+z0=(0,0); ygoth_o(0); z217=(x803l-apex_o,0);
+ygoth_e(217);
+unfilldraw z601l--z601'--(x601',y604r)--
+(x601l,y604r)--z601l & cycle;
+.endchar;
+
+.cmchar "The gothic ligature ae";
+.beginchar(oct"032",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+2.4u#);
+z0=(0,0); ligature:=true;
+ygoth_a(0); z217=(x502l-apex_o,0);
+ygoth_e(217);
+.endchar;
+
+.cmchar "The gothic ligature be";
+.beginchar(oct"001",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+z21=0.267[z2l,z2r]; z20=(x6,0.5[h,y2]);
+penpos20(3/4hair,-135);
+z22=(0.545[x21,x20],h-apex_o);
+z21'=(x1r,1/4[y21,y6]);
+filldraw z21..z22..{down}z20l & z20l--z20r
+& z20r{up}..z21'{down} & z21'--z2r--z21 &
+cycle;
+penpos18(hair,angle(z6-z17));
+x18r=0;y18r=1/3[h,y21];
+z21''=(x1l,0.5[y21,y6]);
+filldraw z21''{up}..{z18-z21}z18l &
+z18l--z18r--z21--z2l--z21'' & cycle;
+z500=whatever[z5l,z5r]; x500=x501=x3r;
+z501=whatever[z6,z5r];
+unfilldraw z500--z5r--z501--z500 & cycle;
+z217=(x3l-apex_o,0); ygoth_e(217);
+unfilldraw z601l--z601'--(x601',y604r)--
+(x601l,y604r)--z601l & cycle;
+.endchar;
+
+.cmchar "The gothic ligature de";
+.beginchar(oct"007",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3.15u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+filldraw z2'r--z6'r--z6--z31--z34--z35
+--z2'l--z2'r & cycle;
+filldraw z34{up}..z32 & z32..{down}z33 &
+z33--z34 & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos150(1.2hair,angle(z5.1-z35));
+z150l=z35;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+z500=whatever[z5l,z5r]; x500=x501=x3r;
+z501=whatever[z6,z5r];
+unfilldraw z500--z5r--z501--z500 & cycle;
+z217=(x3l-apex_o,0); ygoth_e(217);
+unfilldraw z601l--z601'--(x601',y604r)--
+(x601l,y604r)--z601l & cycle;
+.endchar;
+
+.cmchar "The gothic ligature he";
+.beginchar(oct"012",6.111u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#+0.2u#,cap_serif_fit#+3.15u#);
+z0=(0,0); ygoth_h(0);
+z500=whatever[z5l,z5r]; x500=x501=x3r;
+z501=whatever[z6,z5r];
+unfilldraw z500--z5r--z501--z500 & cycle;
+z217=(x3l-apex_o,0); ygoth_e(217);
+unfilldraw z601l--z601'--(x601',y604r)--
+(x601l,y604r)--z601l & cycle;
+.endchar;
+
+.cmchar "The gothic ligature pp";
+.beginchar(oct"043",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3.7u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,h-foot);
+z9l=z1l-(3apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+%
+%
+%
+penpos200(stem,0); z200=(x2,-0.271x_height);
+z21=0.267[z200l,z200r]; z20=(x6,0.5[-d,y200]);
+penpos20(3/4hair,-45);
+z22=(0.545[x21,x20],-d+apex_o);
+z21'=(x1r,1/4[y21,0]);
+filldraw z21..z22..{up}z20r & z20r--z20l
+& z20l{down}..z21'{up} & z21'--z200r--z21 &
+cycle;
+penpos18(hair,angle(z9-z8));
+x18r=0;y18r=1/3[-d,y21];
+z21''=(x1l,0.5[y21,0]);
+filldraw z21''{down}..{z18-z21}z18r &
+z18r--z18l--z21--z200l--z21'' & cycle;
+penstroke z200e--z1e;
+transform metatopish;
+metatopish=identity
+shifted (-x1l+x3l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+qeri(2);
+.endchar;
+
+.cmchar "The gothic ligature qq";
+.beginchar(oct"044",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#-0.5u#,cap_serif_fit#+4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101r=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r+hair,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+penpos150(0.9hair,angle(z30-z2'l)-90);
+z150l=0.5[z2'l,z30];
+filldraw z2'r--z6'r--z6--z30
+& flex(z30,z150r,z2'l) & z2'l--z2'r & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos200(stem,0); z200=(x3,-0.271x_height);
+z210=0.267[z200r,z200l]; z201=(x7,0.5[-d,y200]);
+penpos201(3/4hair,45);
+z220=(0.545[x201,x210],-d+apex_o);
+z210'=(x3l,1/4[y210,0]);
+filldraw z210..z220..{up}z201l & z201l--z201r
+& z201r{down}..z210'{up} & z210'--z200r--z210 &
+cycle;
+penpos180(hair,angle(z17-z6));
+x180r=w; y180r=1/3[-d,y210];
+z210''=(x3r,0.5[y210,0]);
+filldraw z210''{down}..{z180-z210}z180l &
+z180l--z180r--z210--z200r--z210'' & cycle;
+penstroke z200e--z3e;
+transform metatopish;
+metatopish=identity
+shifted (-x1l+x3l,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+.endchar;
+
+.cmchar "The gothic ligature ij";
+.beginchar(oct"026",2.889u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#+0.5u#,cap_serif_fit#+2.2u#);
+penpos101(stem,0); penpos102(stem,0);
+x101l=x102l=apex_o; y101=foot; y102=x_height-foot;
+podi(101); qeri(102); penstroke z101e--z102e;
+%
+%
+%
+z105.1=z102r+(2apex_o,0);
+penpos105.2(stem,40); z105.2r=z105.1;
+penpos105.3(stem,40);
+z105.2r-z105.3r=whatever*dir-50;
+y105.3r=y102+foot+apex_o;
+z103=z105.3r+(0,0.5hair);
+penpos104(0.8stem,0); y104=1.379x_height;
+x104r=x102r+hair;
+filldraw z103--z104l--z104r--z103 & cycle;
+%
+%
+%
+penpos1(stem,0); penpos2(stem,0);
+x1l=x2l=x101r+1.233stem; y1=foot; y2=x_height-foot;
+panwqeri(2); penstroke z1e--z2e;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+%
+%
+%
+z40=z1r+(apex_o,-0.5y1r); z41=(x1l-0.6hair,0);
+penpos42(hair,90); z42l=(x1l-1.733stem,-d);
+filldraw z1r{down}..z40 & z40{dir225}..
+z42l{left} & z42l--z42r & z42r{right}..
+z1l{up} & z1l--z1r & cycle;
+.endchar;
+
+.cmchar "The gothic letter a with Umlaut";
+.beginchar(oct"133",6.278u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-.2u#);
+z0=(0,0); ligature:= false; ygoth_a(0);
+z100=z506r;Umlaut(100);
+.endchar;
+
+.cmchar "The gothic letter e with Umlaut";
+.beginchar(oct"134",4.306u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+0.8u#);
+z0=(0,0); ygoth_e(0); Umlaut(606);
+.endchar;
+
+.cmchar "The gothic letter o with Umlaut";
+.beginchar(oct"135",4.306u#,x_height#,0);
+.adjust_fit(cap_serif_fit#-0.6u#,cap_serif_fit#+2u#);
+z0=(0,0); ygoth_o(0); Umlaut(830);
+.endchar;
+
+.cmchar "The gothic letter u with Umlaut";
+.beginchar(oct"136",5.5u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+0.2u#);
+z0=(0,0); ygoth_u(0);
+z100=(0.5[x601r,x603l]-2/3hair,0);
+Umlaut(100);
+.endchar;
+
+.cmchar "The gothic dotless i";
+.beginchar(oct"020",2.889u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#+0.3u#,cap_serif_fit#-.7u#);
+penpos1(stem,0); penpos2(stem,0);
+x1l=x2l=apex_o; y1=foot; y2=x_height-foot;
+podi(1); qeri(2); penstroke z1e--z2e;
+.endchar;
+
+.cmchar "The gothic dotless j";
+.beginchar(oct"021",2.889u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#+0.3u#,cap_serif_fit#-u#);
+penpos1(stem,0); penpos2(stem,0);
+x1l=x2l=apex_o; y1=foot; y2=x_height-foot;
+qeri(2); penstroke z1e--z2e;
+%
+%
+%
+z40=z1r+(apex_o,-0.5y1r); z41=(x1l-0.6hair,0);
+penpos42(hair,90); z42l=(x1l-1.733stem,-d);
+filldraw z1r{down}..z40 & z40{dir225}..
+z42l{left} & z42l--z42r & z42r{right}..
+z1l{up} & z1l--z1r & cycle;
+.endchar;
+
+.cmchar "The gothic ligature ba";
+.beginchar(oct"000",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4.2u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height+apex_o);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+z21=0.267[z2l,z2r]; z20=(x6,0.5[h,y2]);
+penpos20(3/4hair,-135);
+z22=(0.545[x21,x20],h-apex_o);
+z21'=(x1r,1/4[y21,y6]);
+filldraw z21..z22..{down}z20l & z20l--z20r
+& z20r{up}..z21'{down} & z21'--z2r--z21 &
+cycle;
+penpos18(hair,angle(z6-z17));
+x18r=0;y18r=1/3[h,y21];
+z21''=(x1l,0.5[y21,y6]);
+filldraw z21''{up}..{z18-z21}z18l &
+z18l--z18r--z21--z2l--z21'' & cycle;
+z0=(x7',0); ygoth_a(0);
+.endchar;
+
+.cmchar "The gothic ligature bo";
+.beginchar(oct"002",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3.7u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height+apex_o);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+z21=0.267[z2l,z2r]; z20=(x6,0.5[h,y2]);
+penpos20(3/4hair,-135);
+z22=(0.545[x21,x20],h-apex_o);
+z21'=(x1r,1/4[y21,y6]);
+filldraw z21..z22..{down}z20l & z20l--z20r
+& z20r{up}..z21'{down} & z21'--z2r--z21 &
+cycle;
+penpos18(hair,angle(z6-z17));
+x18r=0;y18r=1/3[h,y21];
+z21''=(x1l,0.5[y21,y6]);
+filldraw z21''{up}..{z18-z21}z18l &
+z18l--z18r--z21--z2l--z21'' & cycle;
+z0=(x8r,0); ygoth_o(0);
+.endchar;
+
+.cmchar "The gothic ligature da";
+.beginchar(oct"006",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4.4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+filldraw z2'r--z6'r--z6--z31--z34--z35
+--z2'l--z2'r & cycle;
+filldraw z34{up}..z32 & z32..{down}z33 &
+z33--z34 & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos150(1.2hair,angle(z5.1-z35));
+z150l=z35;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+z0=(x7',0); ygoth_a(0);
+.endchar;
+
+.cmchar "The gothic ligature do";
+.beginchar(oct"010",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+filldraw z2'r--z6'r--z6--z31--z34--z35
+--z2'l--z2'r & cycle;
+filldraw z34{up}..z32 & z32..{down}z33 &
+z33--z34 & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos150(1.2hair,angle(z5.1-z35));
+z150l=z35;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+z0=(x8r,0); ygoth_o(0);
+.endchar;
+
+.cmchar "The gothic ligature ho";
+.beginchar(oct"022",6.111u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3.8u#);
+z0=(0,0); ygoth_h(0);
+z50=(x8r,0); ygoth_o(50);
+.endchar;
+
+.cmchar "The gothic ligature ha";
+.beginchar(oct"011",6.111u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4.3u#);
+z0=(0,0); ygoth_h(0);
+z50=(x7',0); ygoth_a(50);
+.endchar;
+
+.cmchar "The gothic ligature pa";
+.beginchar(oct"023",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4.4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,h-foot);
+qeri(2); z9l=z1l-(3apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+%
+%
+%
+penpos200(stem,0); z200=(x2,-0.271x_height);
+z21=0.267[z200l,z200r]; z20=(x6,0.5[-d,y200]);
+penpos20(3/4hair,-45);
+z22=(0.545[x21,x20],-d+apex_o);
+z21'=(x1r,1/4[y21,0]);
+filldraw z21..z22..{up}z20r & z20r--z20l
+& z20l{down}..z21'{up} & z21'--z200r--z21 &
+cycle;
+penpos18(hair,angle(z9-z8));
+x18r=0;y18r=1/3[-d,y21];
+z21''=(x1l,0.5[y21,0]);
+filldraw z21''{down}..{z18-z21}z18r &
+z18r--z18l--z21--z200l--z21'' & cycle;
+penstroke z200e--z1e;
+z50=(x7',0); ygoth_a(50);
+.endchar;
+
+.cmchar "The gothic ligature po";
+.beginchar(oct"025",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,h-foot);
+qeri(2); z9l=z1l-(3apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+%
+%
+%
+penpos200(stem,0); z200=(x2,-0.271x_height);
+z21=0.267[z200l,z200r]; z20=(x6,0.5[-d,y200]);
+penpos20(3/4hair,-45);
+z22=(0.545[x21,x20],-d+apex_o);
+z21'=(x1r,1/4[y21,0]);
+filldraw z21..z22..{up}z20r & z20r--z20l
+& z20l{down}..z21'{up} & z21'--z200r--z21 &
+cycle;
+penpos18(hair,angle(z9-z8));
+x18r=0;y18r=1/3[-d,y21];
+z21''=(x1l,0.5[y21,0]);
+filldraw z21''{down}..{z18-z21}z18r &
+z18r--z18l--z21--z200l--z21'' & cycle;
+penstroke z200e--z1e;
+z50=(x8r,0); ygoth_o(50);
+.endchar;
+
+.cmchar "The gothic ligature pe";
+.beginchar(oct"024",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3.4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,h-foot);
+qeri(2); z9l=z1l-(3apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+%
+%
+%
+penpos200(stem,0); z200=(x2,-0.271x_height);
+z21=0.267[z200l,z200r]; z20=(x6,0.5[-d,y200]);
+penpos20(3/4hair,-45);
+z22=(0.545[x21,x20],-d+apex_o);
+z21'=(x1r,1/4[y21,0]);
+filldraw z21..z22..{up}z20r & z20r--z20l
+& z20l{down}..z21'{up} & z21'--z200r--z21 &
+cycle;
+penpos18(hair,angle(z9-z8));
+x18r=0;y18r=1/3[-d,y21];
+z21''=(x1l,0.5[y21,0]);
+filldraw z21''{down}..{z18-z21}z18r &
+z18r--z18l--z21--z200l--z21'' & cycle;
+penstroke z200e--z1e;
+z50=(x7',0); ygoth_e(50);
+.endchar;
+
+.cmchar "The gothic ligature ve";
+.beginchar(oct"036",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+3.4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,x_height-foot);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+penpos202(hair,-45); x202l=x1l;
+y202l=1.333x_height;
+z203=(x1r,0.5[y2,x_height]);
+z204=(x1l,y2-0.5stem);
+penpos205(stem,45); x205=x1l;
+y205l=x_height-hair;
+penstroke z2e{up}..z205e{dir(angle(z205r-z205l)+90)}
+..z202e{dir45};
+z50=(x7',0); ygoth_e(50);
+.endchar;
+
+.cmchar "The gothic ligature va";
+.beginchar(oct"030",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4.3u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,x_height-foot);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+penpos202(hair,-45); x202l=x1l;
+y202l=1.333x_height;
+z203=(x1r,0.5[y2,x_height]);
+z204=(x1l,y2-0.5stem);
+penpos205(stem,45); x205=x1l;
+y205l=x_height-hair;
+penstroke z2e{up}..z205e{dir(angle(z205r-z205l)+90)}
+..z202e{dir45};
+z50=(x7',0); ygoth_a(50);
+.endchar;
+
+.cmchar "The gothic ligature vu";
+.beginchar(oct"037",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+4u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,x_height-foot);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+penpos202(hair,-45); x202l=x1l;
+y202l=1.333x_height;
+z203=(x1r,0.5[y2,x_height]);
+z204=(x1l,y2-0.5stem);
+penpos205(stem,45); x205=x1l;
+y205l=x_height-hair;
+penstroke z2e{up}..z205e{dir(angle(z205r-z205l)+90)}
+..z202e{dir45}; ligature:=true;
+z50=(x8r+0.5u,0); ygoth_u(50);
+.endchar;
+
+.cmchar "The gothic ligature qz";
+.beginchar(oct"027",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#-.5u#,cap_serif_fit#+4.3u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101r=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r+hair,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+penpos150(0.9hair,angle(z30-z2'l)-90);
+z150l=0.5[z2'l,z30];
+filldraw z2'r--z6'r--z6--z30
+& flex(z30,z150r,z2'l) & z2'l--z2'r & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos200(stem,0); z200=(x3,-0.271x_height);
+z210=0.267[z200r,z200l]; z201=(x7,0.5[-d,y200]);
+penpos201(3/4hair,45);
+z220=(0.545[x201,x210],-d+apex_o);
+z210'=(x3l,1/4[y210,0]);
+filldraw z210..z220..{up}z201l & z201l--z201r
+& z201r{down}..z210'{up} & z210'--z200r--z210 &
+cycle;
+penpos180(hair,angle(z17-z6));
+x180r=w; y180r=1/3[-d,y210];
+z210''=(x3r,0.5[y210,0]);
+filldraw z210''{down}..{z180-z210}z180l &
+z180l--z180r--z210--z200r--z210'' & cycle;
+penstroke z200e--z3e;
+z0=(x3r,0); ygoth_z(0);
+.endchar; \ No newline at end of file
diff --git a/fonts/gothic/ygoth/ygothlow.mf b/fonts/gothic/ygoth/ygothlow.mf
new file mode 100644
index 0000000000..bd893026f2
--- /dev/null
+++ b/fonts/gothic/ygoth/ygothlow.mf
@@ -0,0 +1,768 @@
+
+.cmchar "The gothic letter a";
+.beginchar("a",6.278u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-0.3u#);
+z0=(0,0); ygoth_a(0); .endchar;
+
+.cmchar "The gothic letter b";
+.beginchar("b",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+z21=0.267[z2l,z2r]; z20=(x6,0.5[h,y2]);
+penpos20(3/4hair,-135);
+z22=(0.545[x21,x20],h-apex_o);
+z21'=(x1r,1/4[y21,y6]);
+filldraw z21..z22..{down}z20l & z20l--z20r
+& z20r{up}..z21'{down} & z21'--z2r--z21 &
+cycle;
+penpos18(hair,angle(z6-z17));
+x18r=0;y18r=1/3[h,y21];
+z21''=(x1l,0.5[y21,y6]);
+filldraw z21''{up}..{z18-z21}z18l &
+z18l--z18r--z21--z2l--z21'' & cycle;
+.endchar;
+
+.cmchar "The gothic letter c";
+.beginchar("c",4.306u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+z0=(0,0); ygoth_c(0);
+.endchar;
+
+.cmchar "The gothic letter d";
+.beginchar("d",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+filldraw z2'r--z6'r--z6--z31--z34--z35
+--z2'l--z2'r & cycle;
+filldraw z34{up}..z32 & z32..{down}z33 &
+z33--z34 & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos150(1.2hair,angle(z5.1-z35));
+z150l=z35;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+unfilldraw z2'r{up}..{z30-z35}z150r & z150r
+--z5.1--z2'r & cycle;
+.endchar;
+
+.cmchar "The gothic letter e";
+.beginchar("e",4.306u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+.7u#);
+z0=(0,0); ygoth_e(0);
+.endchar;
+
+.cmchar "The gothic letter f";
+.beginchar("f",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-.2u#);
+z0=(hair,0); ygoth_s(0);
+penpos260(4/5stem,-90); penpos261(4/5stem,-90);
+y260r=y261r=0.732x_height;
+x260=x0+apex_o+stem;
+x261=x0+apex_o+2stem;
+penstroke z260e--z261e;
+.endchar;
+
+.cmchar "The gothic letter g";
+.beginchar("g",7.556u#,x_height#,3u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-0.3u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+x1l=x2l=apex_o; x3l=x4l=0.574w;
+penpos5(1.083stem,63); penpos6(1.083stem,63);
+penpos20(2hair,-51); penpos21(2hair,-45);
+penpos22(2hair,-28);
+y1=0.108x_height; %y2=0.788x_height;
+y3=0.235x_height; y4=0.843x_height;
+y5r=x_height; x5l=x2r; y2=y5l;
+z6r=(w,0.915x_height); y20l=y2; x20=x1l;
+z21r=z2r; z22l=whatever[z5r,z5l]; y22l=h+apex_o;
+penpos6'(1.083stem,63);
+z6'l=whatever[z5l,z6l]; x6'=x6-hair;
+penstroke z1e--z2e; penstroke z3e--z4e;
+penstroke z6'e--z5e; penstroke z20e..z21e..z22e;
+penpos6''(1.083stem,63);
+z6''=whatever[z6l,z6r]; z6''l=1/5[z6l,z6r];
+penstroke z6'e{z6-z5}..z6''e;
+%
+%
+%
+penpos16(stem,65); z16l=(0,y1);
+penpos7(hair,-41);
+z7r=(x1l,-d); penpos8(hair,-41); z8l=z3l;
+z7'=whatever[z7l,z8l]; y7'=-d;
+filldraw z7'--z8l--z8r--z7r--z7' & cycle;
+z15'=whatever[z16l,(x1r,0)];
+z15'=whatever[z7r,z8r]; z15-z16r=
+whatever*(z15'-z16l); z15=whatever[z7r,z8r];
+filldraw z16l--z16r--z15--z15'--z16l &
+cycle;
+penpos9(stem,30); z9l=z3l;
+x12=x6r; z12-z9r=whatever*dir-60;
+penpos10(whatever,45); z10r=z12;
+z10l-z9l=whatever*(z12-z9r);
+z13''=whatever[z7l,z8l]; x13''=x1r;
+penpos11'(hair,-45);
+z11'r=z12; z11''=whatever[z9l,z10l];
+z11''-z11'l=whatever*(z10l-z10r);
+penpos13'(stem,angle(z11''-z13'')+90);
+z13'r=z13''; z11-z13'l=whatever*(z11''-z13'');
+z11=whatever[z10l,z10r];
+z13=whatever[z7l,z8l];
+z13=whatever[z13'l,z11];
+filldraw z13--z11--z12--z11'l--z11''--
+z13'r--z13 & cycle;
+penstroke z10e--z9e;
+filldraw z7r{z15-z7r}..z13'l{z11-z13}
+& z13'l--z13--z7r & cycle;
+.endchar;
+
+.cmchar "The gothic letter h";
+.beginchar("h",6.111u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+0.2u#);
+z0=(0,0); ygoth_h(0);
+.endchar;
+
+.cmchar "The gothic letter i";
+.beginchar("i",2.889u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#+0.6u#,cap_serif_fit#-.7u#);
+penpos1(stem,0); penpos2(stem,0);
+x1l=x2l=apex_o; y1=foot; y2=x_height-foot;
+podi(1); qeri(2); penstroke z1e--z2e;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+.endchar;
+
+.cmchar "The gothic letter j";
+.beginchar("j",2.889u#,1.431x_height#,2.778u#);
+.adjust_fit(cap_serif_fit#+0.6u#,cap_serif_fit#-.85u#);
+penpos1(stem,0); penpos2(stem,0);
+x1l=x2l=apex_o; y1=foot; y2=x_height-foot;
+qeri(2); penstroke z1e--z2e;
+%
+%
+%
+z5.1=z2r+(2apex_o,0);
+penpos5.2(stem,40); z5.2r=z5.1;
+penpos5.3(stem,40);
+z5.2r-z5.3r=whatever*dir-50;
+y5.3r=y2+foot+apex_o;
+z3=z5.3r+(0,0.5hair);
+penpos4(0.8stem,0); y4=1.379x_height;
+x4r=x2r+hair;
+filldraw z3--z4l--z4r--z3 & cycle;
+%
+%
+%
+z40=z1r+(apex_o,-0.5y1r); z41=(x1l-0.6hair,0);
+penpos42(hair,90); z42l=(x1l-1.733stem,-d);
+filldraw z1r{down}..z40 & z40{dir225}..
+z42l{left} & z42l--z42r & z42r{right}..
+z1l{up} & z1l--z1r & cycle;
+.endchar;
+
+.cmchar "The gothic letter k";
+.beginchar("k",6.111u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+.4u#);
+z0=(0,0); ygoth_k(0);
+.endchar;
+
+.cmchar "The gothic letter l";
+.beginchar("l",4.278u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-u#);
+penpos301(stem,0); penpos302(stem,0);
+penpos303(stem,0); penpos304(stem,0);
+penpos308(stem,60); penpos309(stem,60);
+z301=(0.243w,foot); z302=(x301,0.888h);
+penstroke z301e--z302e; podi(301);
+%
+%
+%
+z321=0.267[z302l,z302r]; z320l=(w,0.5[h,y302]);
+penpos320(3/4hair,-135);
+z322=(0.7[x321,x320],h-apex_o);
+z321'=(x301r,1/4[y321,x_height]);
+penpos325(0.7hair,-90); z325l=z322;
+filldraw z321..z325l{right} & z325l--z325r &
+z325r{left}..z321'{down} & z321'--z302r--z321 &
+cycle;
+penpos318(hair,45);
+x318r=0;y318r=1/3[h,y321];
+z321''=(x301l,0.5[y321,x_height]);
+filldraw z321''{up}..{z318-z321}z318l &
+z318l--z318r--z321--z302l--z321'' & cycle;
+.endchar;
+
+.cmchar "The gothic letter m";
+.beginchar("m",9u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos5(stem,0); penpos6(stem,0);
+x1l=hair;
+x2=x1; x4l=x3l=x1r+1.233stem;
+x6l=x5l=x3r+1.233stem;
+y1=y3=y5=foot; y2=y4=y6=x_height-foot;
+penstroke z1e--z2e; penstroke z3e--z4e;
+penstroke z5e--z6e;
+podi(1); podi(3); podi(5);
+qeri(2); panwqeri(4); panwqeri(6);
+.endchar;
+
+.cmchar "The gothic letter n";
+.beginchar("n",5.5u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+.2u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+x1l=hair;
+x2=x1; x4l=x3l=x1r+1.233stem;
+y1=y3=foot; y2=y4=x_height-foot;
+penstroke z1e--z2e; penstroke z3e--z4e;
+podi(1); podi(3);
+qeri(2); panwqeri(4);
+.endchar;
+
+.cmchar "The gothic letter o";
+.beginchar("o",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#-.4u#,cap_serif_fit#+0.2u#);
+z0=(0,0); ygoth_o(0);
+.endchar;
+
+.cmchar "The gothic letter p";
+.beginchar("p",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,h-foot);
+qeri(2); z9l=z1l-(3apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+%
+%
+%
+penpos200(stem,0); z200=(x2,-0.271x_height);
+z21=0.267[z200l,z200r]; z20=(x6,0.5[-d,y200]);
+penpos20(3/4hair,-45);
+z22=(0.545[x21,x20],-d+apex_o);
+z21'=(x1r,1/4[y21,0]);
+filldraw z21..z22..{up}z20r & z20r--z20l
+& z20l{down}..z21'{up} & z21'--z200r--z21 &
+cycle;
+penpos18(hair,angle(z9-z8));
+x18r=0;y18r=1/3[-d,y21];
+z21''=(x1l,0.5[y21,0]);
+filldraw z21''{down}..{z18-z21}z18r &
+z18r--z18l--z21--z200l--z21'' & cycle;
+penstroke z200e--z1e;
+.endchar;
+
+.cmchar "The gothic letter q";
+.beginchar("q",6.111u#,x_height#,0.431x_height#);
+.adjust_fit(cap_serif_fit#-.3u#,cap_serif_fit#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,0.888h);
+z9l=z1l-(apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.88x_height); %0.833
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101r=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r+hair,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos2'(stem,0); z2'r=z17';
+z31=whatever[z6,z5r]; x31=x1l;
+z30=whatever[z31,z5r];
+z30-z2'l=whatever*(z2'r-z6'r);
+x34=0; z34=whatever[z5.1,z5l];
+z32=(x31-0.5hair,y31+hair);
+z33=(2x32,y34); z35=whatever[z2'l,z30];
+z35=whatever[z34,z5.1];
+penpos150(0.9hair,angle(z30-z2'l)-90);
+z150l=0.5[z2'l,z30];
+filldraw z2'r--z6'r--z6--z30
+& flex(z30,z150r,z2'l) & z2'l--z2'r & cycle;
+penstroke z1e--z2'e;
+%
+%
+%
+penpos200(stem,0); z200=(x3,-0.271x_height);
+z210=0.267[z200r,z200l]; z201=(x7,0.5[-d,y200]);
+penpos201(3/4hair,45);
+z220=(0.545[x201,x210],-d+apex_o);
+z210'=(x3l,1/4[y210,0]);
+filldraw z210..z220..{up}z201l & z201l--z201r
+& z201r{down}..z210'{up} & z210'--z200r--z210 &
+cycle;
+penpos180(hair,angle(z17-z6));
+x180r=w; y180r=1/3[-d,y210];
+z210''=(x3r,0.5[y210,0]);
+filldraw z210''{down}..{z180-z210}z180l &
+z180l--z180r--z210--z200r--z210'' & cycle;
+penstroke z200e--z3e;
+.endchar;
+
+.cmchar "The gothic letter r";
+.beginchar("r",4.389u#,x_height#,0);
+.adjust_fit(2cap_serif_fit#+0.3u#,cap_serif_fit#);
+penpos1(stem,0); z1l=(apex_o,foot);
+z2'=(0.5w,-apex_o); z1'=z1l-(2apex_o,0);
+penpos2(stem,0); z2=(x1,0.804x_height);
+penpos3(stem,angle(z2'-z1')+90);
+z3l=z2';
+penpos4(stem,angle(z2'-z1')+90);
+z4l=z1'; penstroke z1e--z2e; qeri(2);
+penstroke z3e--z4e;
+penpos15(hair,-60); z15r=z2';
+z16-z15r=whatever*dir30; x16=w-apex_o;
+x16=x16'; z16'-z15l=whatever*(z16-z15r);
+z16''=whatever[z15,z16'];
+y16''=0.5[foot,y16'];
+filldraw z3r{z3-z4}...z16''---z16' &
+z16'--z16--z15r--z15l--z3r & cycle;
+%
+%
+%
+penpos10(hair,-60); z10r=(x1r,2/3x_height);
+penpos11(1.1stem,27); z11r=(w,0.739x_height);
+z12-z10l=whatever*dir60; y12=x_height+hair;
+z13-z11r=whatever*(z10l-z12);
+z14-z11l=whatever*(z12-z11r);
+z14-z10r=whatever*(z12-z10l);
+z13=whatever[z14,z11l];
+filldraw z10l--z12--z11r--z13--z14--z10r--
+z10l & cycle;
+z15'=whatever[z10l,z12]; x15'=x10r;
+unfilldraw z15'--(x15',x_height)--z12--z15'
+& cycle;
+.endchar;
+
+.cmchar "The gothic letter long s";
+.beginchar("s",4.389u#,11.944u#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+z0=(hair,0); ygoth_s(0);
+.endchar;
+
+.cmchar "The gothic letter short s";
+.beginchar(oct"140",5.2u#,x_height#,0);
+.adjust_fit(cap_serif_fit#+.7u#,cap_serif_fit#+.3u#);
+penpos1(hair,-45); penpos2(hair,-45);
+z1r=(0,foot); z2l=(w,0.9h);
+penstroke z1e--z2e;
+%
+% panw meroc
+%
+penpos3(stem,angle(z2-z1)); z3=whatever[z1l,z2l];
+penpos4(stem,angle(z2-z1));
+z4-z3=whatever*(z1l-z1r);
+z4l=(-2apex_o,0.458h);
+penstroke z3e--z4e;
+y5=y4l; penpos5(stem,0); x5l=0;
+penpos6(stem,0); x6=x5; y6=h-foot;
+penstroke z5e--z6e;
+penpos7(stem,60); x7=0.5w; y7r=h;
+z7l-z9=whatever*dir147;
+z7r-z8=whatever*dir147;
+z9=whatever[z1l,z2l]; z8=whatever[z1l,z2l];
+penpos10(hair,-66); z10l=whatever[z7l,z9];
+x10l=x6r; penpos11(hair,-90); z11l=z6l;
+penpos12(hair,angle(z8-z7r)); z12l=z7r;
+filldraw z9--z7l--z7r--z8--z9 & cycle;
+penstroke z11e{z6r-z6l}..{z7r-z7l}z12e;
+z13=whatever[z7l,z7r]; y13=h+apex_o;
+z13'=0.3[z7r,z8];
+filldraw z7r--z13 & z13..{z8-z12}z13'
+& z13'--z7r & cycle;
+penpos14(0.4stem,0);
+x14l=x2l; y14=h+hair;
+filldraw z2l{z2l-z1l}..z14l{dir110} &
+flex(z14l,z14+(0,apex_o),z14r) &
+z14r{down}..z2r{z1r-z2r} & z2r--z2l & cycle;
+z10'=whatever[z7l,z9]; x10'=0;
+z10''=(z10'--z9) intersectionpoint
+(z11{right}..z12{z7r-z7l});
+filldraw z10''..z7r{z7r-z7l} & z7r--z7l--
+z10'' & cycle;
+%
+% katw meroc
+%
+penpos20(stem,60); z20r=(w+2apex_o,0.542h);
+z21-z20r=whatever*(z12-z8);
+z22-z20l=whatever*(z12-z8);
+z21=whatever[z1r,z2r];
+z22=whatever[z1r,z2r];
+filldraw z20r--z21--z22--z20l--z20r & cycle;
+penpos23(stem,0); x23r=w; y23=y20r;
+penpos24(stem,0); x24=x23; y24=0.216h;%0.216h;
+penstroke z24e--z23e;
+penpos25(hair,-50); x25l=x24r;
+z25r-z24r=whatever*dir30;
+penpos26(hair,-50); z26r=whatever[z24r,z25r];
+y26r=-apex_o; penstroke z26e--z25e;
+z31=whatever[z1r,z2r];
+z31-z26r=whatever*dir140;
+penpos27(stem,50); z27l=z26r;
+z29-z27r=whatever*(z31-z27l);
+z29=whatever[z1r,z2r];
+z28=whatever[z26r,z25r];
+z28=whatever[z29,z27r];
+filldraw z31--z26r--z28--z29--z31 & cycle;
+z32=whatever[z26,z25]; x32=x24l;
+filldraw z32--z24r--z24l--z32 & cycle;
+penpos30(0.6stem,45); x30r=x4l;
+y30r=-hair;
+filldraw z30r{dir135}..z1r{z2r-z1r} &
+z1r--z1l & z1l{z1r-z2r}..{dir290}z30l
+& z30l--z30r & cycle;
+.endchar;
+
+.cmchar "The gothic letter t";
+.beginchar("t",4.389u#,1.242x_height#,0);
+.adjust_fit(2cap_serif_fit#,cap_serif_fit#-u#);
+z0=(0,0); ygoth_t(0);
+.endchar;
+
+.cmchar "The gothic letter u";
+.beginchar("u",5.5u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+.2u#);
+z0=(0,0); ligature:=false;
+ygoth_u(0);
+.endchar;
+
+.cmchar "The gothic letter v";
+.beginchar("v",6.111u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,x_height-foot);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+penpos202(hair,-45); x202l=x1l;
+y202l=1.333x_height;
+z203=(x1r,0.5[y2,x_height]);
+z204=(x1l,y2-0.5stem);
+penpos205(stem,45); x205=x1l;
+y205l=x_height-hair;
+penstroke z2e{up}..z205e{dir(angle(z205r-z205l)+90)}
+..z202e{dir45};
+.endchar;
+
+.cmchar "The gothic letter w";
+.beginchar("w",10.7u#,x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-.8u#);
+w:=6.111u;
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+penpos8(stem,60); penpos9(stem,60);
+z1=(0.243w,foot); z2=(x1,x_height-foot);
+z9l=z1l-(2apex_o,0);
+x7=0.359[x1r,x3l]; y7=-apex_o;
+z8l=z7; z3r-z7=whatever*dir30;
+x3r=w-apex_o;
+z4r=(x3r,0.833x_height);
+z7'=whatever[z9r,z8r]; z7'=whatever[z7,z3r];
+z7''=whatever[z7,z3r]; x7''=x3l;
+penstroke z1e--z2e; penstroke z8e--z9e;
+penstroke z3e--z4e;
+filldraw z8r--z7'--z7--z8r & cycle;
+filldraw z7''--z3l--z3r--z7'' & cycle;
+penpos100(hair,angle(z3r-z7)-90);
+penpos101(hair,angle(z3r-z7)-90);
+z100r=z7; z101r=whatever[z7,z3r]; x101l=x3r;
+penstroke z100e--z101e;
+%
+%
+%
+penpos5(stem,60); z17=(x1r,0.824x_height);
+z6=(0.821[x1r,x3l],x_height);
+z5r=(x101r,y4);
+penpos6'(hair,angle(z6-z17)-90);
+z6'l=z6; z17'-z6'r=whatever*(z17-z6);
+x17'=x1r; z5.1=whatever[z17',z6'r];
+z5.1-z5l=whatever*(z6-z5r);
+filldraw z5r--z6--z17--z17'--z5.1--z5l--z5r
+& cycle;
+%
+%
+%
+transform metatopish;
+metatopish=identity
+shifted (x3-x1,0);
+addto currentpicture also currentpicture
+transformed metatopish;
+z201=whatever[z9r,z7'];
+z201=whatever[z100l,z101l];
+z200=whatever[z100l,z101l];
+x200=x3l;
+unfilldraw z200--z201--(x201,y9r)--
+(x200,y9r)--z200 & cycle;
+%
+%
+%
+penpos6.5(hair,angle(z6-z17)-90);
+z6.5l=whatever[z17,z6'l];
+y6.5l=x_height+hair;
+penstroke z6'e--z6.5e;
+penpos202(hair,-45); x202l=x1l;
+y202l=1.333x_height;
+z203=(x1r,0.5[y2,x_height]);
+z204=(x1l,y2-0.5stem);
+penpos205(stem,45); x205=x1l;
+y205l=x_height-hair;
+penstroke z2e{up}..z205e{dir(angle(z205r-z205l)+90)}
+..z202e{dir45};
+.endchar;
+
+.cmchar "The gothic letter x";
+.beginchar("x",4.389u#,x_height#,0);
+.adjust_fit(2cap_serif_fit#+.3u#,cap_serif_fit#);
+penpos1(stem,0); z1l=(apex_o,foot);
+z2'=(0.5w,-apex_o); z1'=z1l-(apex_o,0);
+penpos2(stem,0); z2=(x1,0.804x_height);
+penpos3(stem,angle(z2'-z1')+90);
+z3l=z2';
+penpos4(stem,angle(z2'-z1')+90);
+z4l=z1'; penstroke z1e--z2e; qeri(2);
+penstroke z3e--z4e;
+penpos15(hair,-60); z15r=z2';
+z16-z15r=whatever*dir30; x16=w-apex_o;
+x16=x16'; z16'-z15l=whatever*(z16-z15r);
+z16''=whatever[z15,z16'];
+y16''=0.5[foot,y16'];
+filldraw z3r{z3-z4}...z16''---z16' &
+z16'--z16--z15r--z15l--z3r & cycle;
+%
+%
+%
+penpos10(hair,-60); z10r=(x1r,2/3x_height);
+penpos11(1.1stem,27); z11r=(w,0.739x_height);
+z12-z10l=whatever*dir60; y12=x_height+hair;
+z13-z11r=whatever*(z10l-z12);
+z14-z11l=whatever*(z12-z11r);
+z14-z10r=whatever*(z12-z10l);
+z13=whatever[z14,z11l];
+filldraw z10l--z12--z11r--z13--z14--z10r--
+z10l & cycle;
+z15'=whatever[z10l,z12]; x15'=x10r;
+unfilldraw z15'--(x15',x_height)--z12--z15'
+& cycle;
+%
+%
+%
+penpos100(1.2hair,angle(z3r-z4r));
+penpos101(hair,angle(z3r-z4r));
+z100l=z4l; z100-z101=whatever*(z4r-z4l);
+y101=-.8stem; penstroke z101e--z100e;
+.endchar;
+
+.cmchar "The gothic letter y";
+.beginchar("y",5.5u#,x_height#,3.056u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+.1u#);
+penpos1(stem,0); penpos2(stem,0);
+penpos3(stem,0); penpos4(stem,0);
+x1l=hair;
+x2=x1; x4l=x3l=x1r+1.233stem;
+y1=foot; y2=y4=x_height-foot;
+y3=0.242x_height;
+penstroke z1e--z2e; penstroke z3e--z4e;
+qeri(2); panwqeri(4);
+penpos101(hair,-70); penpos100(hair,-70);
+x101l=x4r; y101r=y3;
+z101-z100=whatever*dir18;
+x100r=x1r;
+penstroke z100e--z101e;
+z100.5=whatever[z100,z101]; x100.5=x4l;
+filldraw z100.5--z3l--z3r--z100.5 & cycle;
+penpos102(1.2hair,180);
+penpos103(hair,-90); penpos104(hair,0);
+z102=(x1l-0.1stem,-.5d);
+z104=(0.361[x1r,x3l],-0.611d);
+x103=0.522[x102,x104]; y103r=-d;
+filldraw z1l{down}..z102r..z103r..z104r{up}
+& z104r--z104l & z104l{down}..z103l..z102l
+..z100r{z101-z100} & z100r--z1r--z1l &
+cycle;
+penpos200(stem,0); z200r=z104r;
+filldraw z200r..z200l..z200r..cycle;
+.endchar;
+
+.cmchar "The gothic letter z";
+.beginchar("z",4.306u#,x_height#,3.333u#);
+.adjust_fit(cap_serif_fit#+.2u#,cap_serif_fit#+.2u#);
+z0=(0,0); ygoth_z(0);
+.endchar;
+
diff --git a/fonts/gothic/ygoth/ygothmis.mf b/fonts/gothic/ygoth/ygothmis.mf
new file mode 100644
index 0000000000..b35cbc9bcb
--- /dev/null
+++ b/fonts/gothic/ygoth/ygothmis.mf
@@ -0,0 +1,177 @@
+.cmchar "The gothic point";
+.beginchar(".",5u#,1.431x_height#,0);
+.adjust_fit(0,0);
+z1=(0.5w,-apex_o+0.707stem);
+ygoth_dot(1);
+.endchar;
+
+.cmchar "The gothic colon";
+.beginchar(":",5u#,1.431x_height#,0);
+.adjust_fit(0,0);
+z1=(0.5w,-apex_o+0.707stem);
+ygoth_dot(1);
+z2=(0.5w,x_height+apex_o-0.707stem);
+ygoth_dot(2)
+.endchar;
+
+.cmchar "The gothic semicolon";
+.beginchar(";",5u#,1.431x_height#,0);
+.adjust_fit(0,0);
+z1=(0.5w,-apex_o+0.707stem);
+ygoth_dot(1);
+z2=(0.5w,x_height+apex_o-0.707stem);
+ygoth_dot(2)
+penpos3(hair,-90); penpos4(stem,45);
+z3l=(0.5w-0.707stem,-stem);
+z4l=(0.5w,-apex_o);
+penstroke z3e..z4e{up};
+.endchar;
+
+.cmchar "The gothic comma";
+.beginchar(",",5u#,1.431x_height#,0);
+.adjust_fit(0,0);
+z2=(0.5w,-apex_o+0.707stem);
+ygoth_dot(2)
+penpos3(hair,-90); penpos4(stem,45);
+z3l=(0.5w-0.707stem,-stem);
+z4l=(0.5w,-apex_o);
+penstroke z3e..z4e{up};
+.endchar;
+
+.cmchar "The gothic exclamation point";
+.beginchar("!",5u#,1.431x_height#,0);
+.adjust_fit(0,0);
+z1=(0.5w,-apex_o+0.707stem);
+ygoth_dot(1);
+z2=(0.5w,cap_height+apex_o-0.707stem);
+ygoth_dot(2);
+penpos3(1.414stem,0); penpos4(hair,0);
+x3=x4=0.5w; y3=y2; y4=y1+1.414stem;
+penstroke z4e--z3e;
+.endchar;
+
+.cmchar "The gothic question mark";
+.beginchar("?",7.591u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,25); z1=(0.171w,0.514h);
+z1'=(0.293w,0.88h); z2=(0.5w,cap_height+apex_o);
+penpos4(cap_stem,0);
+z4l=(0.673w,0.676h);%x_height);
+penpos5(hair,0); penpos6(hair,-15);
+z7=(0.38w,0.077h); z3=(x2,0.82h);
+z8=(0.624w,0.225h); z6=(0,0);
+z5=(0.5w,-apex_o+2.121stem);
+penpos9(1.15cap_stem,-128);
+x9l=w; y9r=-apex_o;
+z10=(0.5w,-apex_o+0.707stem);
+ygoth_dot(10);
+penpos50(0.5cap_stem,-45); penpos51(cap_stem,45);
+z50l=z2; z51r=z2;
+penstroke z1e{dir115}...z50e{dir45};
+penstroke z5e{up}..z4e{up}..z51e{dir135};
+.endchar;
+
+.cmchar "Left parenthesis";
+.beginchar("(",7u#,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+rt x1r=rt x3r=hround(w-u); lft x2l=hround(x1-4u if monospace: +4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Right parenthesis";
+.beginchar(")",7u#,body_height#,paren_depth#);
+italcorr math_axis#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+lft x1l=lft x3l=hround u; rt x2r=hround(x1+4u if monospace: -4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Opening Gaensefuesschen";
+.beginchar(oct"137",7u#+max(2u#,dot_size#),asc_height#,0);
+italcorr asc_height#*slant+dot_size#-4.1u#;
+.adjust_fit(0,0);
+x2+.5dot_size=hround(w-.6u); y2-.5dot_size=0;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+comma(1,a,dot_size,.25u,comma_depth); % left dot and tail
+comma(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2); .endchar;
+
+
+.cmchar "Closing Gaensefuesschen";
+.beginchar(oct"042",7u#+max(2u#,dot_size#),asc_height#,0);
+italcorr asc_height#*slant-.1u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround .6u;
+ y1+.5dot_size=h-comma_depth;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+ammoc(1,a,dot_size,.25u,comma_depth); % left dot and tail
+ammoc(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2);
+.endchar;
+
+.cmchar "The gothic apostrophe";
+.beginchar("'",2hair#+stem#,1.431x_height#,0);
+.adjust_fit(0,0);
+penpos1(0.5stem,0);
+penpos2(stem,0);
+z1l=(hair,h-foot-0.707stem); z2l=(x1l,h);
+penstroke z1e--z2e;
+.endchar;
+
+.cmchar "The gothic hyphen";
+.beginchar("-",2u#,1.431x_height#,0);
+.adjust_fit(cap_serif_fit#+0.3u#,cap_serif_fit#);
+penpos1(stem,-90); penpos2(stem,-90);
+penpos3(stem,-90); penpos4(stem,-90);
+x1=x2=0; x3=x4=w; z3-z1=whatever*dir40;
+z4-z2=whatever*dir40;
+0.5[y2,y3]=.5x_height; y1-y2=2.5stem;
+penstroke z1e--z3e; penstroke z2e--z4e;
+.endchar;
+
+
+.cmchar "Closing quotes";
+.beginchar(oct"042",7u#+max(2u#,dot_size#),asc_height#,0);
+italcorr asc_height#*slant+dot_size#-4.1u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround .6u; y2+.5dot_size=h;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+comma(1,a,dot_size,.25u,comma_depth); % left dot and tail
+comma(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2); .endchar;
+
+.cmchar "Opening quotes";
+.beginchar(oct"137",7u#+max(2u#,dot_size#),asc_height#,0);
+italcorr asc_height#*slant-.1u#;
+.adjust_fit(0,0);
+x2+.5dot_size=hround(w-.6u); y1+.5dot_size=h-comma_depth;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+ammoc(1,a,dot_size,.25u,comma_depth); % left dot and tail
+ammoc(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2); .endchar;
+
+.cmchar "En dash";
+.beginchar(oct"173",9u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(0,0);
+pickup crisp.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Em dash";
+.beginchar(oct"174",18u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(letter_fit#,letter_fit#);
+pickup crisp.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
diff --git a/fonts/gothic/ygoth/ygothnum.mf b/fonts/gothic/ygoth/ygothnum.mf
new file mode 100644
index 0000000000..f2d1580652
--- /dev/null
+++ b/fonts/gothic/ygoth/ygothnum.mf
@@ -0,0 +1,229 @@
+.cmchar "The gothic numeral 1";
+.beginchar("1",4.591u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_stem,0); penpos2(cap_stem,0);
+x1=x2=0.68w; y1=0.211h; y2=0.827h;
+y6=y1; x6=x1r+0.235cap_stem;
+penpos5(hair,-45); y5=0; x5=0.08w;
+penpos4(cap_hair,-26); y4=h; x4r=x1r;
+penpos3(hair,-72); x3=0; y3=0.704h;
+penpos7(cap_stem,0); x7=x1; y7=0.289h;
+z8=(z3{dir18}..{dir64}z4) intersectionpoint
+(z7l--(x7l,h));
+penstroke z3e{dir18}..{dir64}z4e;
+filldraw z1l--z8..z4--z4r--z1r--z1l &
+cycle;
+filldraw z5l{z1-z5}..z7l{up} & z7l--z7r &
+z7r{down}..z6 & z6{left}..{z5-z1}z5r &
+z5r--z5l & cycle;
+.endchar;
+
+.cmchar "The gothic numeral 2";
+.beginchar("2",7.591u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,25); z1=(0.171w,0.514h);
+z1'=(0.293w,0.88h); z2=(0.624w,h+apex_o);
+penpos4(cap_stem,180); z4r=(0.673w,0.676h);
+penpos5(cap_hair,-32); penpos6(hair,-15);
+z7=(0.38w,0.077h); z3=(0.424w,0.82h);
+z8=(0.624w,0.225h); z6=(0,0);
+z5=(0.229w,0.225h);
+penpos9(1.15cap_stem,-128);
+x9l=w; y9r=-apex_o;
+filldraw z6l{dir75}..z5l..z4r{up}..z3{left}
+..z1r{dir-65} & z1r--z1l &
+z1l{dir115}...z1'---z2 & z2{dir-40}..
+z4l{down}..z5r..z6r{dir-105} & z6r--z6l &
+cycle;
+filldraw z6l{dir75}..z8{right}..z9l &
+z9l--z9r & z9r..z7{left}..z6r{dir-105} &
+z6r--z6l & cycle;
+.endchar;
+
+.cmchar "The gothic numeral 3";
+.beginchar("3",7.517u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,0); z1=(0.177w,0.729h);
+z1'=(0.281w,0.9h); z2=(0.645w,h+apex_o);
+penpos3(1.15cap_stem,-164);
+z3=(0.837w,0.676h); penpos4(cap_hair,-90);
+z4=(0.232w,0.521h); z5=(w-1.13cap_stem,0.232h);
+z6=(w,0.303h); penpos7(cap_hair,90);
+z7l=(0.448w,-apex_o); z8=(0,0.134h);
+penpos10(hair,-45); x10l=x1;
+z10l-z8=whatever*dir57;
+filldraw z1l{up}...z1'---z2 &
+z2..{dir-74}z3l & z3l..{left}z4r &
+z4r--z4l & z4l{right}..z3r &
+z3r{dir106}..z1r{down} & z1r--z1l & cycle;
+filldraw z4l{right}..z6{down}..z7l..z8
+& z8--z10l--z10r & z10r{dir-95}..z7r..
+z5{up}..z4r{left} & z4r--z4l & cycle;
+.endchar;
+
+.cmchar "The gothic numeral 4";
+.beginchar("4",8.813u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,-47); z2=(0,0.345h);
+z1r-z2=whatever*dir47; y1r=h;
+z2'-z1l=whatever*(z2-z1r); x2'=x2;
+penpos4(stem,-90); x4=.5[x1r,w]; y4r=y2;
+z3=whatever[z2,z1r]; y3=y4l;
+penpos7(cap_stem,0); x7r=x1r;
+y7=0.197h; z6=whatever[z2,z1r];
+x6=x7l; penpos5(hair,-30);
+x5r=w; z5r-z4r=whatever*dir55;
+penpos8(cap_hair,-90);
+z8=(0.273w,0); z9=(x8+1/3cap_stem,y8r);
+penpos10(cap_hair,-90); z10=(0.782w,0.077h);
+filldraw z2'--z1l--z1r---z7r...z10l &
+z10l--z10r & z10r{left}...z9---z8r &
+z8r--z8l{right}..z7l{up}--z6--z2--z2' &
+cycle;
+filldraw z2--z3---z4l...z5l{z5-z4r} &
+z5l--z5r--z4r--z2 & cycle;
+.endchar;
+
+.cmchar "The gothic numeral 5";
+.beginchar("5",7.332u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,-68); penpos2(1.17cap_stem,62);
+z1=(w,h); z1r=z2r;
+penpos5(1.5cap_hair,-10); z5l=(0.354w,h+apex_o);
+penpos6(hair,-34);
+z6=(0.0707w,0.458h);
+z2'-z5l=whatever*(z5r-z5l);
+z2'=whatever[z2l,z2r];
+z4'-z2l=whatever*(z5-z2');
+z4'=whatever[z6r,z5r];
+penpos7(cap_stem,-90); z7=(0.439w,0.637h);
+z9=(w,0.394h); z8=(0.783w,0.285h);
+penpos10(1.5cap_hair,90);
+z10l=(x7,-apex_o); penpos11(1.06cap_stem,40);
+z11l=(-apex_o,0.183h); penpos12(hair,-50);
+z12l=z11r;
+z3=2/3[z5,z2'];
+penstroke z6e--z5e; filldraw z4'--z5r---
+z3...z1l & z1l--z1r--z2l--z4' & cycle;
+filldraw z6r{dir56}..z7r..z8{down}..z10r
+{left}..z12r{up} & z12r--z11r--z11l &
+z11l..z10l{right}..z9{up}..z7l..z6l{dir-124}
+& z6l--z6r & cycle;
+.endchar;
+
+.cmchar "The gothic numeral 6";
+.beginchar("6",7.332u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,90); z1=(0.889w,h);
+penpos2(1.059cap_stem,-153);
+z2r=(0,0.465h); penpos3(1.1cap_stem,-133);
+z3r=(0.535w,-apex_o); penpos4(cap_hair,-43);
+z4r=z3; penpos5(1.059cap_stem,35);
+z5r=(w,0.387h);
+z6=(0.394w,0.549h); z7=(0.586w,0.746h);
+penpos8(cap_hair,-50);
+z7-z8l=whatever*dir40; x8=x2;
+penstroke z1e{left}..z2e..z3e;
+filldraw z4r---z3l...z5r{up}..z7 &
+z7--z8l--z8r{z7-z8l}..z6{right}..z5l{down}..
+z4l{z3r-z3l} & z4l--z4r & cycle;
+.endchar;
+
+.cmchar "The gothic numeral 7";
+.beginchar("7",7.591u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos4(1.765cap_stem,23); x4=0.39w;
+y4l=-hair; penpos5(hair,-45); z5r=(w,h);
+penpos1(cap_hair,-20); penpos2(cap_hair,-20);
+z1l=(0,0.729h); z2-z1=whatever*dir70;
+y2r=h; penpos3(1.078cap_stem,70);
+z3=whatever[z1,z2]; y3r=h;
+z6=(z3l--(w,y3l)) intersectionpoint
+(z4..z5{dir45});
+z3'=0.284[z3l,z6];
+filldraw z1r{z2-z1}..z3'{right} &
+z3'--z2r--z2l--z1l--z1r & cycle;
+filldraw z3l--z6..z5r--z3r--z3l & cycle;
+filldraw z4r{z3'-z4r}..z5r{dir45} &
+z5r--z5l & z5l{dir225}..z4l & z4l--z4r &
+cycle;
+.endchar;
+
+.cmchar "The gothic numeral 8";
+.beginchar("8",7.332u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(1.176cap_stem,-142);
+penpos2(0.824cap_stem,-147);
+penpos3(cap_hair,117);
+penpos4(0.824cap_stem,-151);
+penpos5(1.412cap_stem,-126);
+z1l=(0.465w,h+apex_o); z2l=(w-hair,0.796h);
+z3=(0.5w,0.531h); z4r=(0,0.248h);
+z5r=(2/3w,-apex_o);
+penstroke z1e{dir-10}..
+z2e{down}..z3e{dir203}..
+z4e{down}..z5e{right};
+penpos6(cap_hair,-36); z6r=z5;
+penpos7(0.824cap_stem,41); x7r=w; y7l=y4;
+z8=z3; penpos8(cap_stem,75);
+penpos9(0.853cap_stem,45);
+x9l=hair; y9=y2r; penpos10(cap_hair,-52);
+z10l=z1r; z11=(z1r..z2r{down})
+intersectionpoint ((x1l,0)--(x1l,h));
+penstroke z6e{z5l-z5r}..z7e{up}..z8e{dir165}
+..z9e{up}..z10e{z1l-z1r};
+filldraw z10r{z1l-z1r}..z11..z2r{down} &
+z2r--z2 & z2{up}..z1 & z1--z10l--z10r &
+cycle; .endchar;
+
+.cmchar "The gothic numeral 9";
+.beginchar("9",7.332u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(hair,90); z1=(0.889w,h);
+penpos2(1.059cap_stem,-153);
+z2r=(0,0.465h); penpos3(1.1cap_stem,-133);
+z3r=(0.535w,-apex_o); penpos4(cap_hair,-43);
+z4r=z3; penpos5(1.059cap_stem,35);
+z5r=(w,0.387h);
+z6=(0.394w,0.549h); z7=(0.586w,0.746h);
+penpos8(cap_hair,-50);
+z7-z8l=whatever*dir40; x8=x2;
+penstroke z1e{left}..z2e..z3e;
+filldraw z4r---z3l...z5r{up}..z7 &
+z7--z8l--z8r{z7-z8l}..z6{right}..z5l{down}..
+z4l{z3r-z3l} & z4l--z4r & cycle;
+transform metatopish;
+metatopish=identity
+reflectedabout ((0,0.5h),(w,0.5h));
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+transform metatopish;
+metatopish=identity
+reflectedabout ((0.5w,0),(0.5w,h));
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The gothic numeral 0";
+.beginchar("0",7.332u#,1.242x_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(1.059cap_stem,-143);
+penpos2(cap_stem,-140);
+penpos3(1.05cap_stem,-136);
+penpos4(1.1cap_stem,-142);
+penpos5(cap_hair,128);
+penpos6(cap_hair,127);
+z1l=(0.535w,h+apex_o); z4r=(w-x1l,-apex_o);
+z2l=(w,0.528h); x3r=0; y3=y2l+apex_o;
+z5l=z4; z6r=z1;
+penstroke z1e{dir-25}..z2e{down}..
+z5e{z4r-z4l};
+penstroke z6e{z1r-z1l}..z3e{down}..
+z4e{dir-31};
+.endchar;
diff --git a/fonts/gothic/ygoth/ygothupp.mf b/fonts/gothic/ygoth/ygothupp.mf
new file mode 100644
index 0000000000..27b06293d6
--- /dev/null
+++ b/fonts/gothic/ygoth/ygothupp.mf
@@ -0,0 +1,2399 @@
+.cmchar "The gothic letter A";
+.beginchar("A",10.65u#,1.065cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+x1=x2=.75w; y1=0.157h; y2=0.762h;
+penpos1(cap_stem,0);
+penpos2(cap_stem,0);
+penpos3(stem,-90);
+x3=x1l; y3=0.4h; x4=0.15w;
+y4=y1-cap_hair; penpos4(cap_hair,-30);
+x5=x1; z5-z4=whatever*dir60;
+penpos5(cap_hair,-30);
+penpos6(cap_hair,60);
+penpos7(cap_curve,-120);
+z7l=z5l; y6r=y3r;
+z6=whatever[z5l,z4l];
+penstroke z6e{dir150}...{dir-30}z7e;
+penstroke z4e--z5e;
+penstroke z1e--z2e;
+y3.1=y3r; y3.2=y3l;
+z3.1=whatever[z4r,z5r];
+z3.2=whatever[z4r,z5r];
+filldraw z3r--z3.1 & z3.1--z3.2
+& z3.2--z3l & z3l--z3r & cycle;
+penpos8(cap_stem,60);
+penpos9(cap_stem,60);
+y8l=0; x8l=0.45w;
+z9-z8=whatever*dir150;
+z9=whatever[z4r,z5r];
+penstroke z8e...z9e;
+y1.1=0; x1.1=0.8w;
+penpos1.2(cap_hair,-42);
+z1.2r-z1.1=whatever*dir48;
+x1.2r=w=x1.3;
+z1.3-z1.2l=whatever*(z1.2r-z1.1);
+x1.4=x1r; x1.5=x1l;
+z1.5-z8l=whatever*(z1.2r-z1.1);
+y1.4=y1.3;
+filldraw z1l--z1.1 & z1.1--z1.2r
+& z1.2r--z1.3 & z1.3--z1.2l...
+z1.4{up} & z1.4--z1r & z1r--z1l
+& cycle;
+x1.6=x1l;
+z1.6-z8r=whatever*(z1.5-z8l);
+filldraw z8l--z1.5 & z1.5--z1.6
+& z1.6--z8r & z8r--z8l & cycle;
+x5.1=x1.1;
+z5.1=whatever[z5r,z5l];
+x5.3=x5.2=w; y5.2=0.5[y5.1,h];
+y5.3=y5.2-0.5cap_hair;
+x2.1=x2l; z2.1=whatever[z4r,z5r];
+filldraw z5r--z5.1 &
+z5.1{z5.1-(0,y3l)}...{right}z5.2
+& z5.2--z5.3 & z5.3{left}...
+{down}z2r & z2r--z2l &
+z2l--z2.1 & z2.1--z5r & cycle;
+x4.1=x4; y4.1=0;
+filldraw z4l{z4l-z5l}...
+z4.1{right}...z4r{dir120} &
+z4r--z4l & cycle;
+x10=x3.2;
+y10=y2;
+x5.15=x5.1; y5.15=0.75[y2,y5.1];
+filldraw z10{z5.1-z10}...
+z2.1{right} & z2.1--z5.15 &
+z5.15{left}...z10{dir225} &
+cycle;
+transform katebasma;
+katebasma=identity
+shifted (0,-apex_o);
+%transform megalwma;
+%megalwma=identity scaled 1.065;
+picture krufo;
+%krufo= currentpicture transformed
+%megalwma;
+krufo:= currentpicture transformed
+katebasma;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+
+.cmchar "The gothic letter B";
+.beginchar("B",10.72u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+x1=x2=0.39w; y2=0.85h;
+y1=y7=y18=1/6h;
+penpos1(cap_stem,0);
+penpos2(cap_stem,0);
+penstroke z1e--z2e;
+penpos3(cap_hair,0);
+penpos2'(cap_stem,180); z2'=z2;
+x3l=0; y3=y2;
+x3.5=0.5[x3,x2];
+penpos3.5(0.5[cap_hair,cap_stem],
+-90); y3.5l=h+apex_o;
+penstroke z3e{dir60}...z3.5e...
+z2'e{down};
+penpos4(1.2cap_hair,-90);
+penpos9(1.2cap_hair,-90);
+x4=x3r;
+y4r=0.56h;
+y9l=y12.2-2cap_hair=0.56h;
+z4.1-z4l=whatever*(z2r-z4r);
+y4.1=y2;
+filldraw z4r--z2r--z4.1--z4l--z4r &
+cycle;
+penpos5(1.2cap_hair,-90); z5l=z2r;
+penpos6(whatever,angle(z2r-z4r)-90);
+z6l=whatever[z4r,z5l];
+z6r-z5r=whatever*(z5l-z4r);
+y6l=h+apex_o;
+filldraw z5l--z6l--z6r--z5r--z5l
+& cycle;
+x7=0.54w; penpos7(0.9cap_hair,0);
+z8.1=whatever[z4r,z6l];
+x8.1=x7l; x8.2=x7r;
+z8.2=whatever[z4r,z6l];
+filldraw z7r--z8.2--z8.1--z7l--z7r
+& cycle;
+penpos11(1.118cap_stem,
+angle(z6l-z4r));
+z11=whatever[z4r,z6l]; x11r=x6l;
+x9l=x7l;
+z10.1-z6=whatever*(z6r-z6l);
+z10.1-z9l=whatever*(z6l-z4r);
+z10.4=whatever[z9l,z10.1];
+z10.4-z11l=whatever*(z10.1-z6);
+filldraw z10.4--z11l--z11r--z10.1
+--z10.4 & cycle;
+z10.2-z9r=whatever*(z10.1-z9l);
+z10.2=whatever[z6,z10.1];
+z12.1=whatever[z9r,z10.2];
+z12.1=whatever[z11l,z10.4];
+filldraw z9l--z10.1--z10.2--z9r
+--z9l & cycle;
+x12.2=w;
+z12.4=(x7l,y9l);
+%z12.4=whatever[z9l,z10.1];
+%x12.4=x7r;
+x12.2-x12.3=1.2cap_stem;
+z12.3-z12.4=whatever*(z12.2-z12.1);
+filldraw z12.4--z12.1--z12.2--z12.3
+--z12.4 & cycle;
+x1.1=x1l; y1.1=0.247h;
+x13.2=x1l; y13.2=0.56h;
+z13.1-z13.2=
+whatever*dir(angle(z6l-z4r)+100);
+z13.1=whatever[z4r,z5l];
+filldraw z4l{dir-30}...z1.1{down}
+& z1.1--z13.2--z13.1--z4l &
+cycle;
+unfill z4l{dir-30}...z1.1{down}
+& z1.1--(x4l,y1.1)--z4l &
+cycle;
+z15=(0,-apex_o); z17=(0.73w,-apex_o);
+x18=w; z19=(x12.3,y18);
+filldraw z15{dir80}...{right}(x1,y1.1)
+...(w,-apex_o){dir-50} &
+(w,-apex_o)--z17 & z17{dir135}...
+z15{dir225} & cycle;
+x18.2=x18.1=x12.3+cap_stem;
+y18.2=7/8[y18,y12.2];
+y18.1=1/8[y18,y12.2];
+filldraw z12.3--(x12.3,y12.2)--z12.2 &
+z12.2{left}...z18.2{down}--
+z18.1{down}...z18{right} &
+z18--(w,-apex_o)--(0.8w,-apex_o)
+--z12.3 & cycle;
+unfilldraw z17{dir60}...z18{right}
+& z18--(w,-apex_o)--z17 &
+cycle;
+unfilldraw z17{dir60}...z18{right}
+& z18--(w,-apex_o)--z17 &
+cycle;
+.endchar;
+
+.cmchar "The gothic letter C";
+.beginchar("C",11.39u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#-0.5u#);
+penpos1(0.765cap_stem,0);
+z1l=(0,0.5h);
+penpos2(cap_stem,37.5);
+z2l=(2/3w,-apex_o);
+penpos3(cap_hair,-40);
+penpos4(cap_hair,0);
+z4r-z2r=whatever*dir153;
+x4=0.5w; %x3r=x4r;
+penpos2'(cap_stem,37.5);
+x2'r=0.36w-0.5cap_stem;
+z2'-z2=whatever*(z4r-z2r);
+z4'=(x4,h); penpos4'(cap_hair,0);
+%penstroke z4e--z4'e;
+penpos2.1(cap_hair,angle(z2'-z2));
+z2.1=z2'l;
+z5=whatever[z2'l,z2'r];
+z6=whatever[z2'l,z2'r];
+x5=x4r; x6=0.86w;
+penpos5(whatever,-90);
+z5l-z2.1l=whatever*(z5-z2.1);
+penpos6(whatever,-27.5);
+z6l-z2.1l=whatever*(z6-z2.1);
+z7.1=whatever[z5l,z6l];
+x7.1=x2'r; x7.2=x7.1+1.2cap_stem;
+z7.2=whatever[z5l,z6l];
+z14'=(x2l,h);
+z3l=z14';
+penpos8.1(1.2cap_hair,-40);
+z8.1=(x7.1,0.8h);
+penstroke z2e..z2'e..z1e{up}...
+z8.1e---z3e{dir24};
+z8.2=(z1{up}..z3{dir34})
+intersectionpoint (z7.2--(x7.2,h));
+penpos12(1.2cap_stem,angle(z8.2-z8.1));
+ z12r=z14';
+%
+%
+%
+filldraw z7.1--z7.2--z8.2--z8.1--
+z7.1 & cycle;
+x7.3=x7.2+slab; y7.3=0.5[y7.1,y7.2];
+filldraw z7.1--
+z7.3 & z7.3..{z8.2-z7.2}z7.2
+& z7.2--z7.1 & cycle;
+%
+%
+%
+x9=w-slab; penpos9(cap_hair,-90);
+z9r=whatever[z2l,z2r];
+z9.1=whatever[z2.1,z2l];
+z9.1-z9l=whatever*(z2l-z9r);
+filldraw z9.1--z2l--z9r--z9l--
+z9.1 & cycle;
+z9.2=whatever[z9.1,z9l];
+x9.2=0.5[x2,x9];
+z9.4=whatever[z9.1,z9];
+z9.4=whatever[z4r,z2r];
+filldraw z7.1{z2r-z4r}..
+z9l{z9-z9.2} & z9l--z2l--z7.1
+& cycle;
+%
+%
+%
+penpos11'(cap_stem,-27.5);
+z11'l=whatever[z5l,z6l];
+y11'r=y1+0.8slab;
+z10=whatever[z6l,z6r];
+z10-z11'r=whatever*(z6r-z5r);
+z10.1=whatever[z6,z10];
+z10.2=whatever[z11'r,z10];
+x10.1=x10.2=w;
+penpos13(0.8cap_hair,angle(z6-z5));
+z13=whatever[z6r,z5r];
+z13r=z6r;
+%
+%
+%
+z13.1-z3l=whatever*(z3r-z3l);
+x13.1=x9-cap_hair;
+z13.2-z13.1=whatever*(z12r-z12l);
+z13.2-z12l=whatever*(z13.1-z3);
+filldraw z12l--z13.2--z13.1--z12r
+--z12l & cycle;
+z13.3=0.5[z13.2,z13.1];
+z13.4=1/3[z6r,z5r];
+z14=whatever[z12r,z13.1];
+y14=h+apex_o;
+penpos15(cap_hair,-90);
+x15=x9; z15r=whatever[z13.2,z13.1];
+z15.1=whatever[z12r,z13.1];
+z15.1-z15l=whatever*(z13.2-z13.1);
+filldraw z13.1--z15r--z15l--
+z15.1--z13.1 & cycle;
+%
+%
+%
+x20=x2l=x20'; y20=y2;
+z20'=whatever[z12,z13.3];
+penpos20(cap_hair,0);
+penpos20'(cap_hair,0);
+penstroke z20e--z20'e;
+z30=whatever[z13.2,z13.1];
+z30-z8.2=whatever*(z13.1-z14);
+z31=(x7.1,y7.2);
+filldraw z31{down}..z2' & z2'--
+z7.1--z31 & cycle;
+%
+%
+%
+z30'-z13.2=whatever*(z13.1-z14');
+z15r-z30'=whatever*dir(angle(z12l-z13.2)+90);
+filldraw z13.2--z30'--z15r--z13.2
+& cycle;
+.endchar;
+
+
+.cmchar "The gothic letter D";
+.beginchar("D",12.055u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_stem,0);
+penpos2(cap_stem,0);
+penpos3(cap_stem,90);
+penpos4(cap_stem,90);
+z1r=(w,-apex_o); z2r=(w,h-1.5cap_stem);
+z3r=(w-1.5cap_stem,h); z4r=(0.19w,h);
+penpos5(0.5cap_hair,0);
+z5l=(0,h+2apex_o);
+penstroke z1e--z2e{up}...z3e{left}
+--z4e{left}...z5e{up};
+penpos6(0.8cap_hair,-45);
+x6l=0; y6r=-apex_o;
+z6.4=(0.83w,-apex_o);
+z6.3=(w,0.8cap_stem-apex_o);
+x6.2=0.5w; y6.2=0.28h;
+x6.1=0.433w;
+z6.1-z6l=whatever*dir30;
+filldraw z6r{dir30}...z6.4{dir-45}
+& z6.4--z6.3 & z6.3{dir140}...
+z6.2{left}...z6.1---z6l &
+z6l--z6r & cycle;
+unfilldraw z6.4{dir60}...
+(w,cap_stem){right} &
+(w,cap_stem)--(w,-apex_o)--
+z6.4 & cycle;
+unfilldraw z6.4{dir60}...
+(w,cap_stem){right} &
+(w,cap_stem)--(w,-apex_o)--
+z6.4 & cycle;
+x7=x8=0.5w; x9=x10=0.6w;
+y8=y10=y3l; y7=y9=0.225h;
+penpos7(0.9cap_hair,0);
+penpos8(0.9cap_hair,0);
+penpos9(0.9cap_hair,0);
+penpos10(0.9cap_hair,0);
+penstroke z7e--z8e;
+penstroke z9e--z10e;
+x11=x12=0.5[x9r,x1l];
+y11=0.59h; y12=0.44h;
+penpos11(0.9cap_hair,-90);
+penpos12(0.9cap_hair,-90);
+x11.1=x12.1=x9r; x11.2=x12.2=x1l;
+penpos11.1(0.9cap_hair,-90);
+penpos11.2(0.9cap_hair,-90);
+penpos12.1(0.9cap_hair,-90);
+penpos12.2(0.9cap_hair,-90);
+y11.1r=y11l=y11.2r;
+y12.1l=y12r=y12.2l;
+penstroke z11.1e...{right}z11e...
+z11.2e;
+penstroke z12.1e...{right}z12e...
+z12.2e;
+penpos6'(cap_hair,-45);
+z6'r=z6l; penpos13(0.9cap_hair,-45);
+z13-z6'l=whatever*(z6.1-z6l);
+x13=1/3cap_stem; penpos14(cap_stem,0);
+penpos15(cap_stem,0);
+penpos16(0.9cap_hair,-45);
+y14=y12; y15=y11;
+x14=x15=1/3w; z16r=z8l;
+x13.1=x14l;
+z13.1-z13r=whatever*(z6.1-z6l);
+filldraw z13r{dir45}--z13.1..
+z14r{up}--z15r{up}..z16r{dir45}
+& z16r--z16l & z16l{dir225}..
+z15l{down}--z14l{down}..z13l{dir225}
+& z13l--z13r & cycle;
+x17=0.6cap_stem; y17=y12l;
+x17.1=0.5[x17,x14l]; y17.1=1/3[y11,y12];
+filldraw z13l{dir45}..z14{up}..
+z17.1{left}..z17{down} & z17{up}..
+(x14l-2apex_o,0.5[y13.1,y15])
+{down}..
+z13l{dir225} & cycle;
+z20=(z6.3{dir140}...
+z6.2{left}...z6.1---z6l)
+intersectionpoint (z1l--z2l);
+penpos20(.5cap_stem,0);
+%filldraw z20r..z20l..cycle;
+
+.endchar;
+
+.cmchar "The gothic letter E";
+.beginchar("E",11.39u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(0.765cap_stem,0);
+z1l=(0,0.5h);
+penpos2(cap_stem,37.5);
+z2l=(2/3w,-apex_o);
+penpos3(cap_hair,-66);
+penpos4(cap_hair,0);
+z4r-z2r=whatever*dir153;
+x4=0.6w; x3r=x4r; y3r=0.9h;
+penpos2'(cap_stem,37.5);
+x2'r=0.36w-0.5cap_stem;
+z2'-z2=whatever*(z4r-z2r);
+penstroke z2e--z2'e..z1e{up}..
+z3e{dir34};
+z4'=(x4,h); penpos4'(cap_hair,0);
+penstroke z4e--z4'e;
+penpos2.1(cap_hair,angle(z2'-z2));
+z2.1=z2'l;
+z5=whatever[z2'l,z2'r];
+z6=whatever[z2'l,z2'r];
+x5=x4r; x6=0.86w;
+penpos5(whatever,-90);
+z5l-z2.1l=whatever*(z5-z2.1);
+penpos6(whatever,-27.5);
+z6l-z2.1l=whatever*(z6-z2.1);
+filldraw z5r--z6r--z6l--z5l--z5r
+& cycle;
+z7.1=whatever[z5l,z6l];
+x7.1=x2'r; x7.2=x7.1+1.2cap_stem;
+z7.2=whatever[z5l,z6l];
+x8.1=x7.1; x8.2=x7.2;
+z3-z8.1=whatever*dir24;
+z8.2=whatever[z8.1,z3];
+filldraw z7.1--z7.2--z8.2--z8.1--
+z7.1 & cycle;
+x7.3=x7.2; y7.3=0.5[y7.1,y7.2];
+filldraw z7.1{z7.2-z7.1}..{right}
+z7.3 & z7.3--z7.2--z7.1 & cycle;
+x9=w-slab; penpos9(cap_hair,-90);
+z9r=whatever[z2l,z2r];
+z9.1=whatever[z2.1,z2l];
+z9.1-z9l=whatever*(z2l-z9r);
+filldraw z9.1--z2l--z9r--z9l--
+z9.1 & cycle;
+z9.2=whatever[z9.1,z9l];
+x9.2=0.5[x2,x9];
+z9.4=whatever[z9.1,z9];
+z9.4=whatever[z4r,z2r];
+filldraw z4r{z2r-z4r}..
+z9.2{z9-z9.2} & z9.2--z9.4--z4r
+& cycle;
+penpos11'(cap_stem,-27.5);
+z11'l=whatever[z5l,z6l];
+y11'r=y1+0.8slab;
+z10=whatever[z6l,z6r];
+z10-z11'r=whatever*(z6r-z5r);
+filldraw z11'l--z11'r--z10
+--z6r--z11'l & cycle;
+z10.1=whatever[z6,z10];
+z10.2=whatever[z11'r,z10];
+x10.1=x10.2=w;
+unfilldraw z10.1--z10--z10.2--
+z10.1 & cycle;
+penpos12(whatever,angle(z8.2-z8.1));
+z12l=z3l; y12r=h;
+penpos13(0.8cap_hair,angle(z6-z5));
+z13=whatever[z6r,z5r];
+z13r=z6r; z13.2=whatever[z3r,z13l];
+y13.2=y6r;
+z13.1-z13.2=whatever*(z12r-z12l);
+z13.1-z12r=whatever*(z13.2-z3r);
+filldraw z3r--z13.2--z13.1--z12r
+--z12l--z3r & cycle;
+z13.3=0.5[z13.2,z13.1];
+z13.4=1/3[z6r,z5r];
+filldraw z13.4--z6r & z6r{up}..
+{z13.1-z13.3}z13.3 &
+z13.3--z13.2 & z13.2{down}..
+{z5r-z6r}z13.4 & cycle;
+z14=whatever[z12r,z13.1];
+y14=h+apex_o;
+filldraw z12{z12r-z12l}..{dir60}
+z14 & z14--z12r--z12 & cycle;
+penpos15(cap_hair,-90);
+x15=w; z15r=whatever[z13.2,z13.1];
+z15.1=whatever[z12r,z13.1];
+z15.1-z15l=whatever*(z13.2-z13.1);
+if x15>x13.1: filldraw z13.1--z15r--z15l--
+z15.1--z13.1 & cycle; fi
+
+
+.endchar;
+
+
+.cmchar "The gothic letter F";
+.beginchar("F",13.6u#,cap_height#,2.5u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(0.5cap_hair,0);
+y1=-d+apex_o; x1l=0;
+z2=(0.085w,0.5y1);
+penpos6(0.8cap_stem,0);
+penpos7(0.5cap_stem,0);
+penpos8(0.8cap_stem,0);
+x7=0.555w; y7=2/3u;
+z6r=z7l; z8l=z7r;
+x3=0.5x6l; y3=0;
+x4=0.75[x3,x6l]; y4=0.2y1;
+y5=-d-apex_o; x5=3/4x6l;
+x10=0.5[x6l,x6]; y10=-3/5d;
+penpos10(0.9cap_hair,-90);
+penpos9(0.8cap_stem,0);
+penpos6'(0.8cap_stem,0);
+penpos9'(0.8cap_stem,0);
+x9=x9'=x8; x6'=x6;
+y6'=y9'=0.82h; y9=0.2h;
+filldraw z1r{dir60}..z2{right}..
+z5{right}..z9r{up}--z9'r &
+z9'r--z9'l--z8l & z8l{down}..
+z10r{z10r-z8r} & z10r--z10l &
+z10l{z8l-z10l}..z6r{up}--z6'r
+& z6'r--z6'l--z6l & z6l{down}..
+z4{left}..z3{left}..z1l{dir270} &
+z1l--z1r & cycle;
+%
+% mpara
+%
+penpos11(0.9cap_stem,-90);
+penpos12(0.9cap_stem,-90);
+y11=y12=0.538h; x11=x6l; x12=x8r;
+penpos13(0.8cap_hair,-60);
+y13=y11r-0.45cap_stem;
+x13=0.127w; z11.1=whatever[z11l,z12l];
+z12.1=whatever[z11l,z12l];
+x11-x11.1=x12.1-x12=0.18w;
+z12.2=whatever[z11r,z12r];
+x12.2=0.8[x12,x12.1];
+filldraw z13r{dir45}..z11r{right}
+--z11l--z11.1--
+z13l--z13r & cycle;
+filldraw z12r--z12.2
+& z12.2--z12.1--z12l--z12r & cycle;
+%
+% panw meroc
+%
+numeric jhta; jhta:=32;
+penpos14(cap_stem,90-jhta); y14r=h+apex_o;
+x14r=x9r+cap_hair;
+penpos15(cap_stem,90-jhta); x15r=w-apex_o;
+z15r-z14r=whatever*dir(180-jhta);
+penpos17(0.8cap_hair,-jhta);
+z17r=whatever[z15l,z15r];
+x17r=w; z16=whatever[z14l,z15l];
+z9'r-z16=whatever*(z15l-z15r);
+z18=whatever[z14r,z15r];
+x18=0.75[x14r,x15r];
+filldraw z6'l{right}..z14r{z14r-z14l}
+& z14r--z18{z15r-z14r}..
+{z15r-z15l}z17l & z17l--z17r--z15l
+--z16--z9'r--z6'l & cycle;
+%
+%
+%
+z19=z6'l+(-0.4cap_hair,0.4cap_hair);
+penpos19(0.1cap_hair,45);
+z19.1=z6'l+(0,-cap_hair);
+z19.2=z6'l+(cap_hair,0);
+filldraw z19.1{up}..{z19-z6'l}z19l
+& z19l--z19r & z19r{z6'l-z19}..
+z19.2{right} & z19.2--z19.1 &
+cycle;
+%
+%
+%
+penpos20(0.5cap_stem,0);
+penpos21(0.5cap_stem,0);
+x20=x21=x7; y20=y9'-cap_hair;
+y21=y20-0.5cap_hair;
+filldraw z21l{up}..z20{right}..
+z21r{down} & z21r--z9'l--z6'r--
+z21l & cycle;
+.endchar;
+
+
+.cmchar "The gothic letter G";
+.beginchar("G",12.6u#,cap_height#,0); %prin htan 11.6u#
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(0.8cap_hair,111);
+penpos2(0.9cap_stem,-150);
+penpos3(0.8cap_hair,-57.5);
+penpos4(cap_stem,0);
+penpos5(1.765cap_stem,48);
+z1=(0.43w,0.87h); z2=(0.115w,0.318h);
+z3=(0.742w,0.141h);
+z4r=(w,0.427h);
+z6=(0.517w,-apex_o);
+y5=0.6h; x5l=x6+cap_hair;
+filldraw z1r..z2r..z6 & z6..z3r
+..z4r{up}..z5r & z5r--z5l &
+z5l{z5r-z5l}..z4l..z3l..z2l..z1l
+& z1l--z1r & cycle;
+%
+%
+%
+penpos6'(cap_hair,0);
+penpos7(cap_hair,0);
+x6'l=x7l=x6; y7=y1r;
+y6'=y6+0.5cap_stem;
+penstroke z6'e--z7e;
+penpos8(cap_hair,-42);
+penpos9(cap_hair,-42);
+z8r=z5l; z9r=whatever[z5l,z5r];
+x9r=w-slab;
+penstroke z8e--z9e;
+penpos11(cap_hair,48); z11l=z5r;
+penpos10(whatever,48);
+z10l=z1r; y10r=h+apex_o;
+z11.1=whatever[z11,z9r];
+z11.1-z10r=whatever*(z11r-z1r);
+z11.2=0.5[z10r,z11.1];
+filldraw z1r--z11r--z9r--z9l &
+z9l{z8l-z9l}..z11.2{z10r-z11.1}
+--z10r & z10r--z1r & cycle;
+%
+%
+%
+x14=0.3445w=x14';
+penpos14(1.05cap_stem,0);
+penpos14'(1.05cap_stem,0);
+penpos12(cap_hair,-60);
+penpos13(cap_hair,-60);
+z12l=z2; z13r-z12r=whatever*(z2l-z2r);
+x13r=x14r+apex_o;
+penstroke z12e--z13e;
+z14.1=whatever[z12l,z13l];
+x14.1=x14l; y14=y13r;
+y14'=h;
+z15=(z1r..z2r..z6)
+intersectionpoint (z14l--z14'l);
+x15.05=x15; y15.05=0.5[y15,y1];
+z15'=whatever[z1,z15.05];
+x15'=0.5[x15,x1];
+x13.1=x14r; y13.1=y13l+cap_hair;
+filldraw z2l{z2l-z2r}..z14l{up}
+& z14l--z15--z15'--z1r--z13.1
+& z13.1{down}..z13r & z13r--z12r
+--z2l & cycle;
+%
+% grammoulec
+%
+z20=(z5l{z5r-z5l}..z4l..z3l..
+z2l..z1l) intersectionpoint
+(z6'r--(x6'r,1/3h));
+y16=2/3[y20,y8r];
+y18=1/3[y20,y8r];
+x16=x18=x20;
+penpos16(cap_hair,-90);
+penpos17(cap_hair,-90);
+penpos18(cap_hair,-90);
+penpos19(cap_hair,-90);
+x17=x19=0.5[x4l,x4];
+z17-z16=whatever*(z13-z12);
+z19-z18=whatever*(z13-z12);
+penstroke z18e--z19e;
+penstroke z16e--z17e;
+%
+%
+%
+z21=whatever[z6'l,z7l];
+z21=whatever[z11r,z1r];
+filldraw z1l{dir21}...z21{z11r-z21}
+& z21--z10l--z1l & cycle;
+.endchar;
+
+
+.cmchar "The gothic letter H";
+.beginchar("H",11.444u#,cap_height#,2.61u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(0.45cap_stem,0);
+penpos2(0.9cap_stem,0);
+penpos3(0.9cap_stem,0);
+x1=0.367w; z2r=z1l; z3l=z1r;
+y1=0.323h;
+penpos4(0.9cap_stem,0);
+penpos5(0.9cap_stem,0);
+x4=x3; x5=x2; y5=0.706h;
+y4=0.8h;
+penstroke z2e--z5e;
+penstroke z3e--z4e;
+penpos6(0.6cap_hair,-90);
+penpos7(cap_hair,-90);
+x6=5/6[x4l,x4r]; x7=0.84w;
+y6l=y7l=h;
+penstroke z5e{up}..z6e{right};
+penstroke z4e{up}..z7e{right};
+%
+%
+%
+penpos8(cap_hair,-90);
+z10=(x2r,0.426h); z9-z10=whatever*dir45;
+x9=x7; z8l=whatever[z10,z9];
+x8=x4r;
+penpos10'(1.12cap_stem,angle(z9-z8l));
+z10'r=z9; penpos11(cap_stem,0);
+x11r=w; y11=y10;
+penpos12(cap_hair,-45);
+y12l=0; x12l=0.607w;
+penstroke z12e{dir45}..z11e{up}..z10'e;
+z10''-z8r=whatever*(z10'-z8l);
+x10''=x10';
+filldraw z8l--z10'--z10''--z8r--
+z8l & cycle;
+%
+% dexi stroggulo
+%
+penpos12'(0.9cap_stem,0);
+x12'=x12l; y12'=-d-apex_o+0.45cap_stem;
+filldraw z12l{dir225}..z12'l{down}
+..z12'r{up}..z12r{z12l-z12r}
+& z12r--z12l & cycle;
+%
+% aristero stroggulo
+%
+penpos13(0.9cap_stem,90);
+y13=-apex_o-0.45cap_stem;
+x13=0.5cap_hair+0.45cap_stem;
+x13'=x13-apex_o; y13'=-apex_o;
+x14=0; y14=2/3y13;
+x15=x13; x16=x2l;
+penpos20(0.6cap_hair,-90);
+y20r=0.1636h; x20=2/3[x2l,x2r];
+y16=0.5[y20r,y2]; y15=0.5[y14,y16];
+x17=x3r; y17=2/3[y20r,y3];
+z18=(x3l,y20r); z19=(x12',y18);
+penpos21(cap_hair,-90);
+y21r=y19+apex_o; x21=x9-0.7cap_stem;
+z23=(x20,0.5y19);
+z22'=whatever[z3l,z18];
+z22'-z21r=whatever*(z10-z9);
+z22=(z13'..z23{right}..z12'r)
+intersectionpoint (z21r--z22');
+%
+filldraw z13'..z23{right}..z22
+& z22--z21r--z21l & z21l{z22-z21r}
+..z19{left}--z18 & z18--z17--z3r
+--z3l & z3l{down}..z20r{dir215}
+& z20r--z20l & z20l{z1-z20l}..
+z2r{up} & z2r--z2l--z16 &
+z16{down}..z15..z14{down}..
+z13l{right}..z13r{left}--z13'
+& cycle;
+%
+% pterugia
+%
+penpos24(0.5cap_hair,0);
+penpos25(0.75cap_stem,-90);
+penpos26(0.62cap_stem,-90);
+x24l=0; y25l=h+apex_o;
+y26=0.5[y24,y25l];
+y24=0.85h; x25=1/8w; x26=0.271w;
+penstroke z24e{up}..z25e{right}..
+z26e..z6e{right};
+x27=0; y27=0.547h; y28=2/3[y27,y5];
+x28=0.5x5l; x30=x29=x5l; y29=5/6[y27,y28];
+y32=y2;
+x30-x32=min(cap_stem,x30-0.5cap_hair);
+x31=0.5[x32,x30]; y31=y10;
+y30=3/3[y32,y31];
+x33=0.43[x32,x30]; y33=1/5[y32,y31];
+filldraw z16{up}..z33..z32 &
+z32{up}..z31..z30 &
+z30{up}..z27{left} &
+z27{up}..z28..z29{dir-30} & z29--z16
+& cycle;
+%
+% grammoulec
+%
+penpos34(0.8cap_hair,-90);
+penpos35(0.8cap_hair,-90);
+penpos36(0.8cap_hair,-90);
+penpos37(0.8cap_hair,-90);
+penpos38(0.8cap_hair,-90);
+penpos39(0.8cap_hair,-90);
+x34=x35=x17; x36=x37=w-cap_stem;
+x38=x39=1/2[x34,x36];
+y34l=y36r=y27;
+y38l=y34r; y39r=y35l;
+y35r=y37l=y32;
+penstroke z34e..z38e..z36e;
+penstroke z35e..z39e..z37e;
+
+.endchar;
+
+
+.cmchar "The gothic letter I";
+.beginchar("I",10.555u#,cap_height#,2.167u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos2(1/3cap_stem,-58);
+y2r=-d-apex_o; x2r=0.321w;
+x3=0.442w; y3=-apex_o;
+penpos4(1/3cap_stem,-53); y4l=0;
+x4l=0.637w; x5=0.579w;
+y5=0.144h; penpos5(0.7cap_stem,0);
+y5.1=y5.4=0.386h; y5.2=y5.3=0.45h;
+penpos6(1/3cap_stem,-51);
+penpos7(1/3cap_stem,-30);
+y6r=y7r=0.83h; x7r=x5.4=0.86w;
+x5.3=x5.4-0.9cap_stem;
+x5.1=x3; x5.2=x5.1+0.9cap_stem;
+x6r=0.758w;
+penpos8(0.5cap_hair,-45);
+z8=(w,h);
+filldraw z2r..z5r..z5.2..z6r..z8r
+& z8r--z8l & z8l..z6l..z5.1..z5l..
+z3..z2l & z2l--z2r & cycle;
+filldraw z2r..z4r..z5.4..z7r..
+z8r & z8r--z8l & z8l..z7l..z5.3
+..z4l..z2l & z2l--z2r & cycle;
+%
+% panw meroc
+%
+penpos9(cap_hair,0); x9l=0;
+y9=y6r; penpos10(0.88cap_stem,-90);
+y10l=h+apex_o; x10=0.276w;
+penpos11(cap_stem,-90);
+y11r=y9; x11=x5.2;
+penstroke z9e{up}..z10e..z11e..
+z8e;
+%
+% mpalla
+%
+penpos12(cap_stem,90); x12=0.134w;
+y12r=y9-apex_o;
+filldraw z12r..z12l..cycle;
+filldraw z12l{left}..z9l{up} &
+z9l--z9r & z9r{down}..z12{right}
+& z12--z12l & cycle;
+%
+% katw meroc
+%
+penpos1(cap_hair,0); z1=(0,-d);
+z13=(0.279w,0.031h);
+filldraw z1r..z2r{z2r-z2l} &
+z2r--z3 & z3..z13{left}..z1l{down}
+& z1l--z1r & cycle;
+%
+% pterugia
+%
+x14=0.5[x5.1,x5.2]; y14=y15=y5.2;
+x15=x17=0.2w; y17=1/4h;
+x18=1/2[x17,x5l]; y18=1/4[y17,y5.1];
+filldraw z15{dir77}..z14--z5l
+& z5l{up}..z18..z17 &
+z17{dir76}..z5.1{right} &
+z5.1..z15{dir198} & cycle;
+.endchar;
+
+
+.cmchar "The gothic letter J, which is the same as I";
+.beginchar("J",10.555u#,cap_height#,2.167u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos2(1/3cap_stem,-58);
+y2r=-d-apex_o; x2r=0.321w;
+x3=0.442w; y3=-apex_o;
+penpos4(1/3cap_stem,-53); y4l=0;
+x4l=0.637w; x5=0.579w;
+y5=0.144h; penpos5(0.7cap_stem,0);
+y5.1=y5.4=0.386h; y5.2=y5.3=0.45h;
+penpos6(1/3cap_stem,-51);
+penpos7(1/3cap_stem,-30);
+y6r=y7r=0.83h; x7r=x5.4=0.86w;
+x5.3=x5.4-0.9cap_stem;
+x5.1=x3; x5.2=x5.1+0.9cap_stem;
+x6r=0.758w;
+penpos8(0.5cap_hair,-45);
+z8=(w,h);
+filldraw z2r..z5r..z5.2..z6r..z8r
+& z8r--z8l & z8l..z6l..z5.1..z5l..
+z3..z2l & z2l--z2r & cycle;
+filldraw z2r..z4r..z5.4..z7r..
+z8r & z8r--z8l & z8l..z7l..z5.3
+..z4l..z2l & z2l--z2r & cycle;
+%
+% panw meroc
+%
+penpos9(cap_hair,0); x9l=0;
+y9=y6r; penpos10(0.88cap_stem,-90);
+y10l=h+apex_o; x10=0.276w;
+penpos11(cap_stem,-90);
+y11r=y9; x11=x5.2;
+penstroke z9e{up}..z10e..z11e..
+z8e;
+%
+% mpalla
+%
+penpos12(cap_stem,90); x12=0.134w;
+y12r=y9-apex_o;
+filldraw z12r..z12l..cycle;
+filldraw z12l{left}..z9l{up} &
+z9l--z9r & z9r{down}..z12{right}
+& z12--z12l & cycle;
+%
+% katw meroc
+%
+penpos1(cap_hair,0); z1=(0,-d);
+z13=(0.279w,0.031h);
+filldraw z1r..z2r{z2r-z2l} &
+z2r--z3 & z3..z13{left}..z1l{down}
+& z1l--z1r & cycle;
+%
+% pterugia
+%
+x14=0.5[x5.1,x5.2]; y14=y15=y5.2;
+x15=x17=0.2w; y17=1/4h;
+x18=1/2[x17,x5l]; y18=1/4[y17,y5.1];
+filldraw z15{dir77}..z14--z5l
+& z5l{up}..z18..z17 &
+z17{dir76}..z5.1{right} &
+z5.1..z15{dir198} & cycle;
+.endchar;
+
+.cmchar "The gothic letter K";
+.beginchar("K",13.111u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+z1=(0,0); x2=1/3w; x3=0.37w;
+x4=0.40w; x5=0.52w; x6=0.614w;
+y2=0.3h; y3=0.506h; y4=0.7h;
+y5=0.886h;
+penpos1(cap_hair,-63);
+penpos2(cap_stem,-23);
+penpos3(cap_stem,-10);
+penpos4(0.765cap_stem,-21);
+penpos5(1/3cap_stem,-41);
+penpos6(cap_hair,-58);
+penpos1'(0.05cap_hair,-63);
+z1'l=z1l;
+y6l=h+apex_o;
+penstroke z1'e..z2e..z3e..z4e..
+z5e..z6e{dir32};
+penpos7(cap_hair,-33);
+penpos8(0.88cap_stem,-115);
+x7=slab; x8=0.26w; x8.1=0.345w;
+x8.2=0.466w; y7=0.785h; y8=0.919h;
+y8.1=0.796h; y8.2=0.92h;
+filldraw z7r..z8r..z8.1..z6l{dir32} &
+ z6l{dir212}..z8.2..z8l..z7l
+& z7l--z7r & cycle;
+penpos10(cap_hair,-23);
+penpos10'(1.5cap_hair,-23);
+penpos11(cap_hair,-10);
+penpos11'(1.5cap_hair,-10);
+penpos12(cap_hair,-21);
+penpos12'(1.5cap_hair,-21);
+penpos13(cap_hair,-41);
+penpos13'(cap_hair,-41);
+penpos14(cap_hair,-58);
+penpos9(cap_hair,-65);
+z2r=z10'l; z10'r=z10l;
+z3r=z11'l; z11'r=z11l;
+z4r=z12'l; z12'r=z12l;
+z5r=z13'l; z13'r=z13l;
+x14=0.684w; x9=0.3w; y14l=h;
+y9r=0.06h;
+penstroke z9e..z10e..z11e..z12e
+..z13e..z14e;
+%
+%
+%
+x15=x10r; y15=0.1w;
+penpos15(0.8cap_stem,-90);
+penpos16(1.176cap_stem,-126.5);
+y16r=-apex_o; x16l=x14;
+filldraw z1r..z9r..z15r..z16r
+& z16r--z16l & z16l..z15l{left}
+..z1l
+& z1l--z1r & cycle;
+%
+% panw podi
+%
+penpos17(cap_hair,-60);
+penpos18(cap_hair,-60);
+z18r=z12r; z17l=z11r;
+x20=0.773w;
+penpos20(cap_hair,-60);
+penpos19(cap_hair,-60);
+z20-z18=whatever*dir30;
+z19-z17=whatever*(z20-z18);
+z19=whatever[z20l,z20r];
+z17''=whatever[z17r,z19r];
+x17''=0;
+z17'=(z9..z10..z11..z12..z13..z14)
+intersectionpoint (z17''--z19r);
+filldraw z17'--z11--z11r--z17r--
+z17' & cycle;
+penstroke z18e--z20e;
+penstroke z17e--z19e;
+penpos21(cap_stem,angle(z19-z17));
+penpos22(cap_stem,angle(z19-z17));
+z21=2/3[z17,z19];
+z22-z21=whatever*(z20l-z20r);
+z22=whatever[z18,z20];
+penstroke z21e--z22e;
+%
+% katw podi
+%
+penpos22'(1.09cap_stem,angle(z19-z17));
+penpos23(1.09cap_stem,angle(z19-z17));
+penpos24(1.09cap_stem,angle(z19-z17));
+z22'l=z17r; x23=x14; y23=y17r;
+x24=0.82w; y24=y16l;
+penstroke z22'e{z22'r-z22'l}..
+z23e{z24-z23}--z24e;
+z25=(0.86w,-apex_o);
+penpos26(cap_hair,-90);
+z26r-z25=whatever*(z16l-z16r);
+x26=w;
+filldraw z24r{z24-z23}..
+z26l{z26r-z25} & z26l--z26r &
+z26r--z25 & z25{left}..z24l
+{z23-z24} & z24l--z24r & cycle;
+penpos27(cap_hair,angle(z16l-z16r)-90);
+z27r=z16;
+z29=whatever[z23,z24];
+z29-z16=whatever*(z16l-z16r);
+z28=whatever[z23,z24];
+z28-z27l=whatever*(z29-z16);
+filldraw z27r--z29--z28--z27l--
+z27r & cycle;
+%
+% pterugia
+%
+z2''=z2; penpos2''(0.7cap_hair,
+angle(z2r-z2l));
+x27.1=x8r; y27.1=y10;
+x28.1=0.093w+cap_hair; y28.1=0.377h;
+x29.1=0.127w+cap_hair; y29.1=0.605h;
+filldraw z1l{z10-z1}..z27.1{up}..
+z28.1{left} & z28.1{dir60}..z2''r
+& z2''r--z2''l &
+ z2''l..z29.1{left} & z29.1{dir60}..
+z3 & z3--z2..z1r{z1-z10} &
+ z1r--z1l & cycle;
+
+
+.endchar;
+
+
+.cmchar "The gothic letter L";
+.beginchar("L",11.27u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+z1=(0,0); x2=0.43w; x3=0.46w;
+x4=0.495w; x5=0.66w; x6=0.74w;
+y2=0.31h; y3=0.515h; y4=0.71h;
+y5=0.933h;
+penpos1(cap_hair,-67.5);
+penpos2(cap_stem,-10);
+penpos3(1.06cap_stem,-7.5);
+penpos4(0.823cap_stem,-9);
+penpos5(1/3cap_stem,-36);
+penpos6(cap_hair,-55);
+penpos1'(0.05cap_hair,-67.5);
+z1'l=z1l;
+y6l=h+apex_o;
+penstroke z1'e{dir22.5}..z2e..z3e..z4e..
+z5e..z6e{dir35};
+penpos7(cap_hair,-30);
+penpos8(0.85cap_stem,-100);
+x7=1/8w; x8=0.35w; x8.1=x3;
+x8.2=0.625w; y7=0.77h; y8l=h+apex_o;
+y8.1=0.86h; y8.2=0.955h;
+filldraw z7r..z8r..z8.1..z6l{dir35} &
+ z6l{dir215}..z8.2..z8l..z7l{dir240}
+& z7l--z7r & cycle;
+penpos10(0.56cap_stem,-14);
+penpos10'(1.4cap_hair,-14);
+penpos11(0.91cap_stem,-7.5);
+penpos11'(1.5cap_hair,-7.5);
+penpos12(0.82cap_stem,-9);
+penpos12'(1.3cap_hair,-9);
+penpos13(0.56cap_stem,-36);
+penpos13'(0.7cap_hair,-36);
+penpos14(0.75cap_hair,-90);
+penpos9(cap_hair,-90);
+z2r=z10'l; z10'r=z10l;
+z3r=z11'l; z11'r=z11l;
+z4r=z12'l; z12'r=z12l;
+z5r=z13'l; z13'r=z13l;
+x14=w-slab; x9=0.325w; y14l=h-slab;
+y9r=0.085h;
+penstroke z9e..z10e..z11e..z12e
+..z13e..z14e{right};
+%
+%
+%
+x15=x5r; y15=0.134w;
+penpos15(0.82cap_stem,-90);
+penpos16(1.06cap_stem,-126.5);
+y16r=-apex_o; x16l=x14;
+penpos30(cap_hair,angle(z16l-z16r)-90);
+z30r=whatever[z16l,z16r];
+x30r=w+apex_o;
+filldraw z1r..z9r..z15r..z16r
+& z16r--z30r--z30l
+& z30l{z16r-z16l}..z15l{left}
+..z1l
+& z1l--z1r & cycle;
+%
+%
+% pterugia
+%
+z2''=z2; penpos2''(0.7cap_hair,
+angle(z2r-z2l));
+z27.1=(z1l{dir22.5}..z2l..z3l..
+z4l..z5l..z6.)
+intersectionpoint (z9r--(x9r,h));
+x28.1=x7r+cap_hair; y28.1=0.4h;
+x29.1=x7r+0.5cap_hair; y29.1=0.58h;
+filldraw z27.1{up}..
+z28.1{left} & z28.1{dir60}..z2''r
+& z2''r--z2''l &
+ z2''l..z29.1{left} & z29.1{dir60}..
+z3 & z3--z2--z27.1 & cycle;
+%
+%
+%
+
+.endchar;
+
+.cmchar "The gothic letter M";
+.beginchar("M",16.39u#,cap_height#,2u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+numeric theta; theta=-45;
+penpos1(cap_stem,0);
+penpos2(cap_stem,0);
+penpos3(cap_stem,0);
+penpos4(cap_stem,0);
+penpos4''(cap_stem,0);
+z4''=(x4,y4+cap_hair);
+penpos5(2/3cap_stem,0);
+penpos7(2/3cap_stem,0);
+x1=x3=0.525w;
+x2=x4=0.86w;
+x5=x7=1/4w;
+y1=y2=y5=0.2h;
+y3=0.7h; y4=0.7h; y7=0.623h;
+penstroke z5e--z7e;
+penstroke z1e--z3e;
+penstroke z2e--z4e;
+penpos6(cap_hair,0);
+penpos6'(1.5cap_hair,0);
+penpos8(cap_hair,0);
+penpos8'(1.5cap_hair,0);
+z6'l=z5r; z6l=z6'r;
+z8'l=z7r; z8l=z8'r;
+penstroke z6e--z8e;
+penpos11(cap_hair,-90);
+z11=z3r; penpos1'(1.7cap_stem,0);
+x1'=x1; y1'=0.5y1;
+z14=(0.534w,-apex_o);
+penpos13(cap_hair,0);
+x13=0.5[x1r,x2l]; z13'=z13;
+y13=y1; penpos13'(cap_hair,90-theta);
+penpos15(cap_hair,90-theta);
+z15l=whatever[z14,z13'l];
+x15r=0.5[x13,x2l];
+z15'=whatever[z1'l,z14];
+z15'=whatever[z13'r,z15r];
+filldraw z1l{down}..z1'l{left}
+& z1'l--z14--z1'r &
+z1'r{left}..z1r{up} &
+z1r--z1l & cycle;
+filldraw z15'--z14--z15l--
+z15r--z15' & cycle;
+z13.1=whatever[z13l,z15'];
+x13.1=x1r;
+z13.2=0.5[z13.1,z13l];
+filldraw z1r{down}..
+z13.2{z15r-z15'} & z13.2--
+z14--z1'--z1r & cycle;
+y12=h+apex_o;
+z12-z11l=whatever*(z15r-z14);
+x11.1=x13r;
+z11.1-z11=whatever*(z12-z11l);
+z11.2=whatever[z11,z11.1];
+ x11.2=x13l;
+filldraw z13r--z11.1--z11.2
+--z13l--z13r & cycle;
+z11.3=0.5[z11.1,z11.2];
+z16-z12=whatever*(z4l-z11.3);
+z16-z4''r=whatever*(z12-z11l);
+penpos18(cap_hair,theta);
+z18r=whatever[z4''r,z16];
+x18r=w-apex_o;
+penpos18'(cap_hair,theta);
+z18'r=z4''r;
+penstroke z18'e--z18e;
+z11.4-z11r=whatever*(z11.3-z11);
+z11.4-z4''l=whatever*(z12-z16);
+filldraw z11r--z11.4--z4''l--
+z4''r--z16--z12--z11l--z11r &
+cycle;
+z9=(0.271w,0.8h+cap_hair);
+%z17-z9=whatever*(z12-z11l);
+y17=h+apex_o;x180=x11;
+y180=y11+cap_stem;
+z180-z17=whatever*(z16-z12);
+penpos19(cap_hair,-90);
+penpos19'(cap_hair,-60);
+x19=x19'=x17;
+y19=y19'=0.9h+cap_hair;
+z3'=z3l+(0,-3cap_hair);
+%x20=0.5[x6r,x1l];
+%y20=3/4[y8,y19];
+z20=(z8r{up}..z19'r)
+intersectionpoint
+((0,y9-cap_hair)--
+(w,y9-cap_hair));
+filldraw z8r{up}..z20
+..z19'r & z19'r--z19'l &
+z19'l..z8l{down} &
+z8l--z8r & cycle;
+filldraw z7r{up}..z19r &
+z19r--z19l & z19l--z17---z9...z7l{down}
+& z7l--z7r & cycle;
+%
+%
+%
+filldraw z3l{up}
+..z9{z9-z17}
+& z9--z17--z180--z3r--z3l
+& cycle;
+z21=(x2l,y1');
+z22-z21=whatever*(z14-z1'l);
+y22=y14;
+penpos23(cap_hair,-45);
+z23r-z22=whatever*dir45;
+x23r=w;
+filldraw z2l--z21--z22--
+z23r--z23l & z23l{z22-z23r}..
+{up}z2r & z2r--z2l & cycle;
+y24=y26=0.462h-0.4cap_stem;
+y25=y27=y24+0.8cap_stem;
+x25=x1l-0.15cap_stem;
+x27=x13r+0.6cap_stem;
+x24=x1l-0.6cap_stem;
+x26=x13r+0.15cap_stem;
+filldraw z24--z25--z27--z26--
+z24 & cycle;
+z10=(0,-d); penpos10(cap_hair,0);
+penpos30(cap_stem,-90);
+x30=x5l;
+y30r=2/3y10;
+penpos31(0.5cap_stem,-90);
+x31=0.5[x10,x5]; y31r=0;
+penstroke z10e{up}..z31e{right}..
+z5e{up};
+penstroke z10e{up}..z30e{right}
+..z6e{up};
+y33=y24; z31'=z31+(2cap_hair,0);
+z34=(z9{z9-z17}..z31'{down})
+intersectionpoint
+((0,y25)--z25);
+y32=y33-0.5cap_hair;
+x32=2cap_hair; x33=0.5[x32,x34];
+%
+%
+%
+filldraw z5l{up}..z33..z32
+& z32{up}..z34{right} &
+z34{dir80}..z9{z17-z9} & z9--z5l
+& cycle;
+filldraw z4''l--z4''r--z4r--z4l--z4''l
+& cycle;
+.endchar;
+
+.cmchar "The gothic letter N";
+.beginchar("N",12.78u#,cap_height#,2u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_hair,0); z1l=(0,-d);
+penpos2(cap_stem,0); x2=0.323w;
+y2=0.43h; y3=0.834h;
+x5=0.572w; x3=x2l;
+y5=h+apex_o; z4=whatever[z3,z5];
+x4=x2r; y6=y3; x6=0.7w;
+penpos6(cap_stem,47);
+z7=(0.753w,0.533h);
+%z8=(0.893w,0.646h);
+z8=(0.893w,0.6h);
+z8'=(0.57w,y3);
+penpos9(2/3cap_stem,-22);
+x9=0.77w; y9=y2;
+penpos10(cap_hair,-35);
+z10=(0.557w,-0.556d);
+penpos11'(1.5cap_amount,0);
+penpos11(cap_hair,0);
+z12.1=whatever[z3,z5];
+z12.2=whatever[z3,z5];
+z12.3=whatever[z3,z5];
+z11'l=(x2r,0.2h);
+z11l=z11'r;
+x12.1=x4; x12.2=x11'r;
+x12.3=x11r; z3'=(x2,y3);
+filldraw z2l--z3--z4--z2r--z2l &
+cycle; filldraw
+z5{dir-31}..z8{down}..z10r{dir234} &
+z10r--z10l & z10l{dir54}..z7{up}
+..z8'..z3' & z3'--z3--z5 & cycle;
+filldraw z11l--z12.2--z12.3--
+z11r--z11l & cycle;
+z14=(0.275w,-0.5cap_amount);
+penpos14(1.08cap_stem,-90);
+penstroke z1e{up}..z14e{right}..z11e{up};
+penpos15(2/3cap_stem,0);
+z15r=z11'l;
+penstroke z1e{up}..z15e{up}..
+z2e{up};
+penpos13(1.32cap_stem,-121);
+z13r=(x8-0.5cap_amount,-apex_o);
+penstroke z10e{dir54}..z13e{dir-30};
+penpos16(cap_hair,-31);
+z16r=whatever[z13r,z13l];
+x16r=w;
+penpos16'(cap_hair,-31);
+z16'r=z13r;
+penstroke z16'e--z16e;
+penpos20(cap_hair,-90);
+penpos21(cap_hair,-90);
+penpos22(cap_hair,-90);
+penpos23(cap_hair,-90);
+penpos24(cap_hair,-90);
+penpos25(cap_hair,-90);
+z23=(x11r,y2); x20=x23;
+x22=x25=x7;
+x21=x24=0.5[x23,x25];
+y21=y24+cap_stem; y21l=y20r;
+y24r=y23l; y25l=y24r;
+y22r=y20l;
+penstroke z20e..z21e..z22e;
+penstroke z23e..z24e..z25e;
+z26=(0.083w,0.623h);
+filldraw (x2l,0.48h){up}..z26 &
+z26{dir40}..(x2r,0.48h){down} &
+(x2r,0.48h)--(x2l,0.48h) &
+cycle;
+z27=(x26,0.47h);
+filldraw z15l{up}..z27{left} & z27{dir40}
+..z2r & z2r--z15l & cycle;
+z28=(x26+0.5cap_amount,0.265h);
+filldraw z15l{up}..z28{dir210} &
+z28{dir60}..(x15r,y28) & (x15r,y28)--
+z15l & cycle;
+.endchar;
+
+.cmchar "The gothic letter O";
+.beginchar("O",12.86u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_stem,-90);
+x1=0.6w; y1r=-apex_o;
+penpos2(0.8cap_stem,180);
+y2=0.467w; x2r=0;
+penpos7(0.8cap_stem,0); y7=0.53h;
+x7r=w; penpos5(cap_hair,0);
+z5r=z1;
+x4.1=x1-cap_hair; y4.1=h;
+z4.2=(z7r{up}..z4.1{dir158})
+intersectionpoint
+((x1,0)--(x1,h));
+z3.1=(0.0756w,0.628h);
+z3.1-z3.2=whatever*(z4.1-z4.2);
+z3.2-z4.2=whatever*(z3.1-z4.1);
+z3.3=whatever[z3.2,z4.2];
+x3.3=0.216w;
+penstroke z2e{down}..z1e{dir-16};
+filldraw z2l{up}...z3.3{z4.2-z3.3}
+---z4.2 & z4.2--z4.1 &
+z4.1---z3.1...z2r{down} &
+z2r--z2l & cycle;
+filldraw z5r--z4.2--z4.1--z5l--
+z5r & cycle;
+%
+%
+%
+penpos1'(cap_hair,-90);
+z1'r=z1;
+penpos2'(0.4cap_stem,180);
+z2'r=z2;
+penpos6(1.1cap_stem,63);
+z6r=(x4.1-cap_hair,h+apex_o);
+penpos8(cap_hair,angle(z4.2-z3.2)-90);
+z8=(0.78w,0.161h);
+filldraw z1l{dir-16}...
+z8l{z4.2-z3.2}..
+z7l{up}..z6l{left} & z6l--z6r &
+z6r..z7r{down}...
+z8r{z3.2-z4.2}..{dir-117}z1r &
+z1r--z1l & cycle;
+z10=(z2l{down}..z1l{dir-16})
+intersectionpoint ((0.3w,0)--
+(0.3w,h));
+z11-z10=whatever*(z4.1-z3.1);
+x11=x10+cap_stem;
+z12=whatever[z3.2,z4.2];
+z13=whatever[z3.2,z4.2];
+x12=x10; x13=x11;
+filldraw z10--z11--z13--z12--z10
+& cycle;
+z15'=whatever[z10,z11];
+x15'=0;
+z15=(z2r{down}..z1r{dir-16})
+intersectionpoint
+(z15'--z11);
+penpos15''(0.1cap_hair,-90);
+z15''r=z15;
+z14=(x10,0.5[y10,y2]);
+filldraw z15''l{z11-z10}..z14{up}
+& z14--z10 & z10--z15''r &
+z15''r--z15''l & cycle;
+z16=whatever[z4.1,z3.1];
+z17=whatever[z4.1,z3.1];
+y17=y6l; x16=x11;
+filldraw z6l{left}--z17 &
+z17---z16...z6r{z6r-z6l} &
+z6r--z6l & cycle;
+z11.1=whatever[z10,z11];
+x11.1=x11+2/3cap_hair;
+z11.2=(x11,y2);
+filldraw z11.2{down}..z11.1 &
+z11.1--z11--z11.2 & cycle;
+%
+% 2 grammoulec
+%
+penpos20(cap_hair,-90);
+penpos21(cap_hair,-90);
+penpos22(cap_hair,-90);
+penpos23(cap_hair,-90);
+z22r=(x1,y2); z20r=(x1,0.29h);
+z23'-z22r=whatever*(z3.2-z4.2);
+z21'-z20r=whatever*(z3.2-z4.2);
+x21'=x23'=0;
+z23''=whatever[z23',z22r];
+z21''=whatever[z21',z20r];
+x21''=x23''=w;
+z23r=(z8{z4.2-z3.2}..z7{up}..
+z6) intersectionpoint
+(z23'--z23'');
+z21r=(z8{z4.2-z3.2}..z7{up}..
+z6) intersectionpoint
+(z21'--z21'');
+penstroke z22e--z23e;
+penstroke z20e--z21e;
+.endchar;
+
+.cmchar "The gothic letter P";
+.beginchar("P",12.33u#,cap_height#,2.72u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos4(cap_stem,0);
+z4r=(0.48w,-d);
+penpos4'(0.5cap_stem,-90);
+z4'r=z4l;
+penpos6(4/3cap_amount,0);
+penpos5(cap_hair,0);
+z6l=z4r; z5l=z6r;
+penpos4''(0.5cap_stem,-90);
+z4''r=z5r;
+penpos3(cap_stem,0);
+penpos7(cap_hair,0);
+x3=x4; x7=x5;
+y3=0.8h; y7=h;
+penstroke z4e--z3e;
+penstroke z5e--z7e;
+penstroke z4'e--z4''e;
+penpos17(cap_hair,90); x17=x5r;
+y17=y3;
+y18=y17; x18=x17+1.5cap_amount;
+y16=h+apex_o; x16=0.765w;
+penpos19(1.06cap_stem,43);
+y19=y18+1/4cap_amount;
+x19=0.8w;
+penpos20(cap_stem,0);
+x20r=w; y20=0.423h;
+x15=0.9685w; y15=0.193h;
+z13=(0.8w,-apex_o);
+z14=0.5[z13,z15]+(0,3/4cap_amount);
+penpos12(0.85cap_stem,-90);
+x12=x4; y12=0.175h;
+z11=(0.23w,0.242h);
+z10=(x11-0.3cap_amount,y11-0.8cap_stem);
+penpos9(cap_hair,0);
+z9=(0.108w,0);
+penpos19.5(1.09cap_stem,22);
+x19.5=0.63[x19,x20];
+y19.5=0.433[y19,y20];
+filldraw z17r--z16 & z16..
+z19.5r..z20r..z15 & z15..z14..z13 &
+z13..z20l{dir94}..z19l{dir125}..z18..z17l &
+z17l--z17r & cycle;
+z14'=(z9l{dir82}..z11..
+z12l..z14) intersectionpoint
+(z13..z20l{dir94}..
+z19l{dir123}..z18..z17l);
+z14.5=0.5[z14',z14];
+filldraw z9l{dir82}..z11..z12l..z14.5
+& z14.5--z13 & z13..z12r..z10..
+z9r{dir262} & z9r--z9l & cycle;
+unfilldraw (x6l,0)--(x6l,y20)--
+(x6r,y20)--(x6r,0)--(x6l,0) &
+cycle;
+penpos1(cap_hair,0);
+z1l=(0,y3);
+z1'=(0.5[x1r,x3l],y1+3cap_amount);
+z2=0.5[z3r,(x3r,h+apex_o)];
+z2'=(0.266w,h);
+filldraw z1r..z1'..z3l & z3l--
+z3r--z2 & z2..z2'..z1l &
+z1l--z1r & cycle;
+penpos21(1.32cap_stem,50);
+penpos23(0.5cap_hair,-40);
+z21l=(0.063w,0.5w); z23l=z21l;
+z21.2=(x4r,y20); z21.1=(x4l,y11);
+filldraw z21.2--z21r--z21l--z23r &
+z23r{dir30}..z21.1{down} &
+z21.1--z21.2 & cycle;
+%
+%
+%
+x25=x28=x5r;
+y25=0.59h; y28=0.386h;
+penpos25(cap_hair,-90);
+penpos26(cap_hair,-90);
+penpos27(cap_hair,-90);
+penpos28(cap_hair,-90);
+penpos29(cap_hair,-90);
+penpos30(cap_hair,-90);
+x30=x20l+apex_o;
+y30l=y28r;
+y25l=y27r; x27=x30;
+x26=x29=0.5[x25,x27];
+y26l=y25r; y29r=y28l;
+penstroke z25e..z26e..z27e;
+penstroke z28e..z29e..z30e;
+.endchar;
+
+
+.cmchar "The gothic letter Q";
+.beginchar("Q",12.86u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_stem,-90);
+x1=0.6w; y1r=-apex_o;
+penpos2(0.8cap_stem,180);
+y2=0.467w; x2r=0;
+penpos7(0.8cap_stem,0); y7=0.53h;
+x7r=w; penpos5(cap_hair,0);
+z5r=z1;
+x4.1=x1-cap_hair; y4.1=h;
+z4.2=(z7r{up}..z4.1{dir158})
+intersectionpoint
+((x1,0)--(x1,h));
+z3.1=(0.0756w,0.628h);
+z3.1-z3.2=whatever*(z4.1-z4.2);
+z3.2-z4.2=whatever*(z3.1-z4.1);
+z3.3=whatever[z3.2,z4.2];
+x3.3=0.216w;
+penstroke z2e{down}..z1e{dir-16};
+filldraw z2l{up}...z3.3{z4.2-z3.3}
+---z4.2 & z4.2--z4.1 &
+z4.1---z3.1...z2r{down} &
+z2r--z2l & cycle;
+filldraw z5r--z4.2--z4.1--z5l--
+z5r & cycle;
+%
+%
+%
+penpos1'(cap_hair,-90);
+z1'r=z1;
+penpos2'(0.4cap_stem,180);
+z2'r=z2;
+penpos6(1.1cap_stem,63);
+z6r=(x4.1-cap_hair,h+apex_o);
+penpos8(cap_hair,angle(z4.2-z3.2)-90);
+z8=(0.78w,0.161h);
+filldraw z1l{dir-16}...
+z8l{z4.2-z3.2}..
+z7l{up}..z6l{left} & z6l--z6r &
+z6r..z7r{down}...
+z8r{z3.2-z4.2}..{dir-117}z1r &
+z1r--z1l & cycle;
+z10=(z2l{down}..z1l{dir-16})
+intersectionpoint ((0.3w,0)--
+(0.3w,h));
+z11-z10=whatever*(z4.1-z3.1);
+x11=x10+cap_stem;
+z12=whatever[z3.2,z4.2];
+z13=whatever[z3.2,z4.2];
+x12=x10; x13=x11;
+filldraw z10--z11--z13--z12--z10
+& cycle;
+z15'=whatever[z10,z11];
+x15'=0;
+z15=(z2r{down}..z1r{dir-16})
+intersectionpoint
+(z15'--z11);
+penpos15''(0.1cap_hair,-90);
+z15''r=z15;
+z14=(x10,0.5[y10,y2]);
+filldraw z15''l{z11-z10}..z14{up}
+& z14--z10 & z10--z15''r &
+z15''r--z15''l & cycle;
+z16=whatever[z4.1,z3.1];
+z17=whatever[z4.1,z3.1];
+y17=y6l; x16=x11;
+filldraw z6l{left}--z17 &
+z17---z16...z6r{z6r-z6l} &
+z6r--z6l & cycle;
+z11.1=whatever[z10,z11];
+x11.1=x11+2/3cap_hair;
+z11.2=(x11,y2);
+filldraw z11.2{down}..z11.1 &
+z11.1--z11--z11.2 & cycle;
+%
+% 2 grammoulec
+%
+penpos20(cap_hair,-90);
+penpos21(cap_hair,-90);
+penpos22(cap_hair,-90);
+penpos23(cap_hair,-90);
+z22r=(x1,y2); z20r=(x1,0.29h);
+z23'-z22r=whatever*(z3.2-z4.2);
+z21'-z20r=whatever*(z3.2-z4.2);
+x21'=x23'=0;
+z23''=whatever[z23',z22r];
+z21''=whatever[z21',z20r];
+x21''=x23''=w;
+z23r=(z8{z4.2-z3.2}..z7{up}..
+z6) intersectionpoint
+(z23'--z23'');
+z21r=(z8{z4.2-z3.2}..z7{up}..
+z6) intersectionpoint
+(z21'--z21'');
+penstroke z22e--z23e;
+penstroke z20e--z21e;
+%
+% Q
+%
+z33=(x7l-cap_hair,-apex_o);
+z34-z33=whatever*dir45;
+x34=w;
+penpos33'(cap_stem,angle(z34-z33));
+z33'l=z33;
+z33-z33''=whatever*dir-50;
+x33''=0;
+z33'r-z33.1''=whatever*(z33-z33'');
+x33.1''=0;
+z30=(z1..z8..z7{up})
+intersectionpoint (z33''--z33);
+z31=(z1..z8..z7{up})
+intersectionpoint (z33.1''--z33'r);
+filldraw z30--z31--z33'r--z33--
+z30 & cycle;
+penpos35(cap_hair,-90);
+z35r=z34;
+filldraw z31{z33'r-z31}..z35l{
+z34-z33} & z35l--z35r & z35r--
+z33 & z33--z31 & cycle;
+z100=(z1r{dir63}..z33{z33-z30})
+intersectionpoint
+(0.5[z1r,z33]--(0.5[x1r,x33],h));
+filldraw z1..
+%z100+(0,0.5cap_hair)..
+z33{z33-z30} & z33--z30--z1
+ & cycle;
+.endchar;
+
+.cmchar "The gothic letter R";
+.beginchar("R",10.72u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#+2.05u#);
+x1=x2=0.39w; y2=0.85h;
+y1=y7=y18=1/6h;
+penpos1(cap_stem,0);
+penpos2(cap_stem,0);
+penstroke z1e--z2e;
+penpos3(cap_hair,0);
+penpos2'(cap_stem,180); z2'=z2;
+x3l=0; y3=y2;
+x3.5=0.5[x3,x2];
+penpos3.5(0.5[cap_hair,cap_stem],
+-90); y3.5l=h+apex_o;
+penstroke z3e{dir60}...z3.5e...
+z2'e{down};
+penpos4(1.2cap_hair,-90);
+penpos9(1.2cap_hair,-90);
+x4=x3r;
+y4r=0.56h;
+y9l=y12.2-2cap_hair=0.5h;
+z4.1-z4l=whatever*(z2r-z4r);
+y4.1=y2;
+filldraw z4r--z2r--z4.1--z4l--z4r &
+cycle;
+penpos5(1.2cap_hair,-90); z5l=z2r;
+penpos6(whatever,angle(z2r-z4r)-90);
+z6l=whatever[z4r,z5l];
+z6r-z5r=whatever*(z5l-z4r);
+y6l=h+apex_o;
+filldraw z5l--z6l--z6r--z5r--z5l
+& cycle;
+x7=0.54w; penpos7(0.9cap_hair,0);
+z8.1=whatever[z4r,z6l];
+x8.1=x7l; x8.2=x7r;
+z8.2=whatever[z4r,z6l];
+filldraw z7r--z8.2--z8.1--z7l--z7r
+& cycle;
+penpos11(1.118cap_stem,
+angle(z6l-z4r));
+z11=whatever[z4r,z6l]; x11r=x6l;
+x9l=x7l;
+z10.1-z6=whatever*(z6r-z6l);
+z10.1-z9l=whatever*(z6l-z4r+(0,1/3cap_stem));
+z10.4=whatever[z9l,z10.1];
+z10.4-z11l=whatever*(z10.1-z6);
+filldraw z10.4--z11l--z11r--z10.1
+--z10.4 & cycle;
+z10.2-z9r=whatever*(z10.1-z9l);
+z10.2=whatever[z6,z10.1];
+z12.1=whatever[z9r,z10.2];
+z12.1=whatever[z11l,z10.4];
+filldraw z9l--z10.1--z10.2--z9r
+--z9l & cycle;
+x12.2=w;
+z12.4=(x7l,y9l);
+x12.2-x12.3=1.2cap_stem;
+z12.3-z12.4=whatever*(z12.2-z12.1);
+x1.1=x1l; y1.1=0.247h;
+x13.2=x1l; y13.2=0.56h;
+z13.1-z13.2=
+whatever*dir(angle(z6l-z4r)+100);
+z13.1=whatever[z4r,z5l];
+filldraw z4l{dir-30}...z1.1{down}
+& z1.1--z13.2--z13.1--z4l &
+cycle;
+unfill z4l{dir-30}...z1.1{down}
+& z1.1--(x4l,y1.1)--z4l &
+cycle;
+z15=(0,-apex_o); z17=(0.73w,-apex_o);
+x18=w; z19=(x12.3,y18);
+%
+%
+%
+penpos40(1.09cap_stem,-114);
+z40r=(x7r+0.5cap_stem,-apex_o);
+filldraw z15{dir80}%...{right}(x1,y1.1)
+...z40l{dir-24} &
+z40l--z40r & z40r{dir156}...
+z15{dir225} & cycle;
+penpos41(cap_hair,-24);
+penpos41'(0.5cap_stem,-114);
+z41'r=z40l; z41r=z41'l;
+penpos40'(cap_hair,-24);
+z40'r=z40;
+penstroke z40'e--z41e;
+x18.2=x18.1=x12.3+cap_stem;
+y18.2=7/8[y18,y12.2];
+y18.1=1/8[y18,y12.2];
+z101=0.5[z9r,z10.2];
+z104=(1.09w,1.1176cap_stem);
+penpos105(cap_hair,-37);
+z105r=(1.192w,0.193h);
+z106=(w,-apex_o);
+z107=whatever[z106,z40l];
+x107=x106-0.44cap_stem;
+penpos103(0.9cap_stem,-157);
+penpos102(cap_stem,-138);
+z102l=z101+(0.6cap_amount,-0.7cap_amount);
+z103l=(w+1.1cap_hair,0.18h);
+z100=whatever[z9r,z101];
+x100=x7r;
+filldraw z101..z102l..z103l..
+z104..z105l{dir52} &
+z105l--z105r & z105r--z106 &
+z106---z107...%z103r---
+z102r{dir(angle(z102l-z102r)+90)}
+...z100 & z100--
+z100+(0,0.3cap_amount)--z101 & cycle;
+.endchar;
+
+.cmchar "The gothic letter S";
+.beginchar("S",12.28u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(1.32cap_stem,44);
+penpos2(cap_stem,70);
+penpos2'(0.82cap_stem,90);
+penpos3(cap_hair,-16);
+penpos4(0.5cap_stem,180);
+penpos5(cap_hair,-90);
+penpos6(1.3cap_hair,-24);
+penpos7(1.148cap_stem,50);
+penpos8(0.975cap_stem,90);
+penpos9(1.1cap_stem,90);
+penpos10(0.56cap_stem,0);
+penpos11(cap_hair,-39);
+penpos12(cap_hair,-46);
+penpos13(0.65cap_stem,0);
+penpos14(cap_stem,90);
+penpos15(1.07cap_stem,90);
+penpos16(0.56cap_stem,0);
+penpos3'(cap_hair,-16);
+penpos20(cap_stem,-106);
+penpos19(1.2cap_hair,-50);
+x1=0.718w; x2=0.55w; x3=0.367w;
+x2'=0.252w; x4r=0;
+x5=0.164w; x6=0.725w;
+x7=0.734w; x8=x1l; x9=x2';
+x10=x4l; x11r=x5; z12r=z1;
+x13r=w; x14=x1r-1/4cap_amount;
+x15=0.302w; x16=x10r; x17=x10;
+ x18=x15; x20=0.595w;
+z3'-z3=whatever*dir74;
+y3'l=h+apex_o;
+y1l=-apex_o; y2=0.114h;
+y3=0.143h; y2'=0.157h;
+y4=0.027h; y5=-0.067h; y6=0.211h;
+y7=0.374h; y8r=0.462h;
+y9=0.365h; y10=0.52h;
+y11=0.659h; y13=y10; y14=0.652h;
+y15=0.628h; y16=0.789h;
+y17=0.839h;
+z19l=0.285[z17,z18];
+y18=h+apex_o; y20=y19;
+penpos5'(cap_hair,-66);
+z5'=(0.5w,0);
+penstroke z3e--z3'e;
+penstroke z1e{dir141}..z2'e..z4e..
+z5e{right}..z5'e..z6e{dir66}..z7e..z8e{left}..z9e..z10e..
+z11e{dir51};
+filldraw z1--z1r{z1r-z1l}...z13r{up}..
+z14r{left}..z15r..z16r..%z19r..
+z20r{z20l-z18} & z20r--z20l--z18
+& z18---z17...z16l{down}..
+z15l{right}..z14l{right}..
+z13l..z12l{z1l-z1r} &
+z12l--z1 & cycle;
+.endchar;
+
+.cmchar "The gothic letter T";
+.beginchar("T",12.82u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_hair,121);
+penpos3(cap_stem,211);
+penpos5(cap_hair,-45);
+x3l=0.288w; x1=0.455w; x5r=w-0.6cap_amount;
+y1=0.9h; y3l=0.324h; y5=0.277h;
+z4=(0.613w,-apex_o);
+filldraw z1r..z3r..
+{dir-15}z4 & z4{dir25}..z5r &
+z5r--z5l & z5l..z3l..z1l &
+z1l--z1r & cycle;
+penpos6(cap_hair,0);
+penpos7(cap_stem,-90);
+penpos8(0.853cap_stem,-90);
+penpos9(cap_hair,-35);
+x6l=0; x9=w; x7=0.347w;
+x8=0.779w;
+y6=0.7h; y7l=h+apex_o;
+y8l=0.915h; y9=h-cap_amount;
+penstroke z6e{up}..z7e..z8e..z9e;
+%
+%
+%
+penpos10(cap_hair,0);
+penpos10'(cap_hair,0);
+x10l=x10'l=0.64w;
+z10'=whatever[z7,z8];
+y10=0.5cap_stem;
+penstroke z10e--z10'e;
+%
+%
+%
+z20=(z6r{up}..z7r..z8r..z9r)
+intersectionpoint
+(z5l..z3l..z1l);
+penpos11(cap_stem,0);
+penpos12(cap_stem,0);
+y11=0.44h;
+x11l=x12l=x20;
+z12=whatever[z7,z8];
+z21=(z1..z3..z5)
+intersectionpoint
+((0.3w,0)--(0.3w,y11));
+penpos21(1.2cap_hair,-50);
+penstroke z21e{dir40}..z11e{up}
+--z12e;
+.endchar;
+
+.cmchar "The gothic letter U";
+.beginchar("U",13.72u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_hair,90);
+penpos4(cap_hair,-90);
+z2=(0.053w,0.404h);
+z2'=(x2+cap_stem,0.462h);
+z3=(0.409w,-apex_o);
+z3'=(x3,0.123h);
+z1=(0.555w,0.888h);
+z4=(0.735w,0.215h);
+filldraw z1r{left}..z2..z3{dir-18}
+& z3--z4r--z4l &
+z4l{dir209}..z3'..z2'..z1l{right}
+& z1l--z1r & cycle;
+%
+%
+%
+penpos5(cap_hair,0);
+penpos6(cap_hair,0);
+z5r=whatever[z3,z4r];
+x5r=x1; z6=(x5,h+apex_o);
+penstroke z5e--z6e;
+%
+%
+%
+z7=(z1{left}..0.5[z2,z2']..
+0.5[z3,z3']..z4)
+intersectionpoint
+((0.255w,0)--(0.255w,y2));
+penpos7(cap_hair,-50);
+penpos8(cap_stem,0);
+y8=0.561h; x8r=x5l-cap_amount;
+penpos9(cap_hair,-43);
+y9=0.928h; x9=x5;
+penstroke z7e{dir41}..z8e{up}
+..z9e{dir48};
+%
+%
+%
+x10=0; y10=0.673h;
+penpos10(cap_hair,0);
+penpos11(cap_stem,-90);
+x11=0.19w; y11l=h+apex_o;
+penpos12(0.588cap_stem,-90);
+z12=(0.457w,0.906h);
+penstroke z10e{up}..z11e{right}..
+z12e..z6e{up};
+%
+%
+%
+penpos20(cap_stem,0);
+penpos21(cap_stem,0);
+z20l=z4l;
+z21=(x20,0.841h);
+penstroke z20e--z21e;
+%
+%
+%
+z25=(x20l,0.405y20);
+z26=(x25+0.824cap_stem,-apex_o);
+penpos27(cap_hair,-45);
+z27r-z26=whatever*dir47;
+x27r=w;
+filldraw z20l--z25--z26--z27r--
+z27l & z27l{z26-z27}..{up}z20r
+& z20r--z20l & cycle;
+%
+%
+%
+penpos24(cap_hair,145);
+z24=(0.291[x5r,x20l],0.789h);
+z23=(x20l,h+apex_o);
+z22=z21r+(0.6cap_hair,cap_hair);
+filldraw z21l{up}..z24l{z24r-z23}
+& z24l--z24r--z23--z22 &
+z22..{down}z21r & z21r--z21l
+& cycle;
+%
+%
+%
+z250=(x1,0.574h);
+z270=(x1,0.413h);
+z260=(x20l,y250);
+z280=(x20l,y270);
+penpos250(cap_hair,-90);
+penpos260(cap_hair,-90);
+penpos270(cap_hair,-90);
+penpos280(cap_hair,-90);
+penpos290(cap_hair,-90);
+penpos300(cap_hair,-90);
+x290=x300=0.5[x250,x260];
+y290l=y250r; y300r=y270l;
+penstroke z250e..z290e..z260e;
+penstroke z270e..z300e..z280e;
+.endchar;
+
+.cmchar "The gothic letter V";
+.beginchar("V",15.44u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_hair,0);
+penpos2(0.765cap_stem,-90);
+penpos4(cap_hair,-100);
+x1=0; y1=y3=0.83h; y2l=h+apex_o;
+x2=0.094w; x3=0.205w;
+h-y3'=0.4cap_stem; x3'=0.288w;
+y4l=h; x4=0.549w;
+filldraw z1r{up}..z2r..z3..
+z4r{dir-13} & z4r--z4l &
+z4l{dir167}..z3'..z2l..z1l{down}
+& z1l--z1r & cycle;
+%
+%
+%
+penpos5(cap_hair,-90);
+penpos6(1.118cap_stem,20);
+penpos7(0.882cap_stem,0);
+y5r=0; x5=0.197w; y6=0.516h;
+x6=1/3w; z7=(0.3w,0.744h);
+penstroke z5e{right}..z6e..z7e
+..z4e{dir-13};
+%
+%
+%
+penpos8(cap_hair,-90); x8=x6;
+y8=0; z9=(0.78w,0.657h);
+z9'=(x9+1.5cap_hair,y9);
+z10=(0.586w,h-1.06cap_stem);
+z11=(0.545[x10,x9],h);
+z13=(w,y10-0.5cap_amount);
+z12=(0.5[x9',w],h-0.6cap_amount);
+z10'=(0.345[x10,x9],y10+0.7cap_amount);
+filldraw z5r..z8r..z9'{up}..
+z11{left}..z10{down} &
+z10{dir27}..z10'{right}..z9{down}..z8l..z5l
+& z5l--z5r & cycle;
+filldraw z9{up}..z12{right}..z13{down}
+& z13{dir146}..z9'{down} & z9'--z9 &
+cycle;
+%
+%
+%
+penpos14(cap_hair,0);
+penpos15(cap_hair,18);
+penpos16(cap_hair,0);
+z14l=(0.46w,0.408h);
+z15l=(0.432w,0.628h);
+z16l=(0.387w,0.87h);
+penstroke z5e{right}..z14e{up}..
+z15e..z16e{up}..z4e{dir-13};
+%
+%
+%
+x17=0.152[x14r,x9];
+x18=0.405[x14r,x9];
+y17=0.691h; y18=0.556h;
+filldraw z15{z15r-z15l}..z17{right}
+..z18{dir241} & z18{dir152}..
+z14r{down} & z14r--z14..z15 &
+cycle;
+.endchar;
+
+.cmchar "The gothic letter W";
+.beginchar("W",14.556u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(1.2cap_hair,-42.5);
+penpos2(cap_stem,0);
+penpos3(cap_hair,180);
+y1l=0; x3=0; y3=y2=0.7h;
+x2r=0.349w; x1l=0.05w;
+z2'=(0.143w,0.897h);
+penpos2'(cap_stem,60);
+penstroke z1e{dir47.5}..z2e{up}..z2'e..
+z3e{down};
+%
+%
+%
+penpos4(cap_hair,-34);
+penpos5(1.06cap_stem,0);
+penpos6(1.4cap_stem,35);
+z4r=(0.42w,0); z6r=(0.6w,h+apex_o);
+z5r=(0.672w,0.632h);
+penstroke z4e{dir56}..z5e{up}..z6e{dir125};
+%
+%
+%
+penpos7(cap_hair,-44);
+penpos8(1.06cap_stem,0);
+penpos9(1.4cap_stem,35);
+y7r=0; x8r=w; y9r=h+apex_o;
+x7r=0.626w; y8=0.655h; x9r=w-0.4cap_stem;
+penstroke z7e{dir46}..z8e{up}..
+z9e{dir125};
+%
+%
+%
+z10'=(x2r,0.161h);
+z10=(z1l{dir47.5}..z10'..z7r)
+intersectionpoint
+(z4{dir56}..z5{up});
+filldraw z1r{dir47.5}..z4r{z4r-z4l}
+& z4r--z10 & z10..z10'..
+z1l{dir227.5} & z1l--z1r &
+cycle;
+%
+%
+%
+z11'=(x5r,0.175h);
+z11.1=(0.935w,0);
+z11=(z7{dir46}..z8{up})
+intersectionpoint (z4l{dir56}..
+z11'..z11.1);
+filldraw z4r{dir56}..z7r{z7r-z7l}
+& z7r--z11 & z11..z11'..
+z4l{dir236} & z4l--z4r & cycle;
+%
+%
+%
+penpos6.1(cap_hair,-55);
+penpos6.2(cap_hair,-55);
+penpos9.1(cap_hair,-55);
+penpos9.2(cap_hair,-55);
+z6.1l=z6; z9.1l=z9;
+z6.2l=whatever[z6l,z6r];
+z9.2l=whatever[z9l,z9r];
+x6.2=x2; x9.2=x5;
+penstroke z6.2e--z6.1e;
+penstroke z9.2e--z9.1e;
+%
+%
+%
+penpos100(cap_hair,-90);
+penpos110(cap_hair,-90);
+penpos120(cap_hair,-90);
+penpos130(cap_hair,-90);
+penpos140(cap_hair,-90);
+penpos150(cap_hair,-90);
+penpos160(cap_hair,-90);
+penpos170(cap_hair,-90);
+penpos180(cap_hair,-90);
+penpos190(cap_hair,-90);
+penpos200(cap_hair,-90);
+x100=x2; y100=0.677h; z120=z5;
+y110l=y120-cap_amount;
+x110=0.47[x100,x120];
+y130=y110; y140=y120; x140=x8;
+x130=0.47[x120,x140];
+penstroke z100e..z110e..z120e;
+penstroke z120e..z130e..z140e;
+%
+z150=(x2l,0.309h);
+y170l=y180r=y150;
+x170=x180=x6.1r;
+z200=((0,y180r)--(w,y180r))
+intersectionpoint
+(z7{dir46}..z8{up});
+y190=y160=y180l+cap_hair;
+x160=0.536[x150,x170];
+x190=0.532[x180,x200];
+penstroke z150e..z160e..z170e;
+penstroke z170e..z190e..z200e;
+%
+%
+%
+z21=(x3l,0.404h);
+z20=(x1r,y21+0.5cap_amount);
+z22=(0.095w,0.552h);
+filldraw z1l{dir47.5}..z20{left}
+..z21 & z21{up}..z22{right}..
+z1r{dir227.5} & z1r--z1l & cycle;
+.endchar;
+
+.cmchar "The gothic letter X";
+.beginchar("X",8.556u#,cap_height#,1.11u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+z1=(0.442w,0.202h);
+penpos1(cap_stem,0);
+penpos2(cap_stem,0);
+x2=x1; y2=0.843h;
+penstroke z1e--z2e;
+z3=(0,-d); penpos3(0.5cap_hair,-45);
+z4=(x1l,0.108h);
+z5=(0.61w,-apex_o);
+penpos6(cap_hair,-45);
+z6r-z5=whatever*(z4-z3r);
+x6r=w-cap_amount;
+z5'-z6l=whatever*(z5-z6r);
+z5'=whatever[z4,z5];
+z7-z1r=whatever*(z5-z4);
+z7=whatever[z5',z6l];
+filldraw z3r--z4--z5--z6r--
+z6l--z7--z1r--z1l--z3l--z3r
+& cycle;
+%
+%
+%
+penpos8(cap_hair,-34);
+x8=cap_amount; y8=0.74h;
+z9=(x2l-0.5cap_hair,h+apex_o);
+z9'=whatever[z9,z2r];
+z9'-z8r=whatever*(z9-z8l);
+penpos9.5(1.1cap_stem,angle(z9'-z8r));
+z9.5r=z9';
+z10=z9.5l;
+z10'-z10=whatever*(z2r-z9);
+x10'=x2l;
+filldraw z8l--z9--z2r--z10'--
+z10--z8r--z8l & cycle;
+%
+%
+%
+penpos11(cap_hair,-49);
+penpos11'(cap_hair,-49);
+penpos12(1.176cap_stem,-145);
+penpos13(1.176cap_stem,-145);
+x11=x2; y11=0.717h;
+z11'l=z2r;
+z12.5=whatever[z11l,z11'l];
+y12.5=h+apex_o;
+z13l=(w,y2);
+z12l=0.5[z12.5,z13l];
+z12.3=0.3[z12.5,z13l];
+z12.1=whatever[z11l,z12.5];
+y12.1=y12.3;
+filldraw z11l--z11'l---z12.1...
+z12.3---z12l--z13l & z13l--z13r
+& z13r---z12r...z11'r---z11r &
+z11r--z11l & cycle;
+%
+%
+%
+z4.1=whatever[z3r,z4];
+z4.2=whatever[z4,z5];
+y4.1=y4.2=0.5y4;
+filldraw z4.1{z4-z3r}..
+z4.2{z5-z4} & z4.2--z4--z4.1 &
+cycle;
+%
+%
+%
+penpos14(1.4cap_hair,-90);
+penpos15(1.4cap_hair,-90);
+penpos16(1.4cap_hair,-90);
+penpos17(1.4cap_hair,-90);
+penpos14'(1.4cap_amount,-90);
+x14=x16=x8; x15=x17=x13;
+x14'=0;
+y14'=0.475h;
+y14r=y15r=y14'l;
+y16l=y17l=y14'r;
+penstroke z14e--z15e;
+penstroke z16e--z17e;
+.endchar;
+
+.cmchar "The gothic letter Y";
+.beginchar("Y",9.167u#,cap_height#,4/3u#);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(cap_stem,0);
+penpos4(cap_hair,0);
+penpos5(cap_hair,90);
+penpos6(cap_hair,130);
+penpos7(cap_hair,90);
+penpos8(cap_hair,0);
+penpos9(cap_hair,-90);
+x1=0.285w; y1=0.8h;%762
+z2=(x1l,0.535y1);
+z4l=(0,0.045h);
+z3=(0.5x2,0.629[y2,y4]);
+y5l=-d; x5=0.218w;
+z6l=(0.491w,0);
+z7=(0.679w,0.1h);
+z8=(0.788w,0.5y4);
+z9r=(0.63w,-d);
+z9'=(x9,y9r+2cap_hair);
+z11=(w,0.283h);
+z12=z11+(0,1.2cap_hair);
+z10=(x2,0.12h);
+z12-z13=whatever*(z11-z10);
+x13=x1r;
+z12'=whatever[z12,z13];
+x12'=x11-cap_hair;
+filldraw z9'..z9r..z9'..cycle;
+filldraw z9r{right}..z8r..z7r..
+z6r..z5r..z4r{up}...z10---z11 &
+z11--z12'--z13--z1r--z1l---
+z2...z3...z4l{down}..z5l..z6l..
+z7l..z8l..z9l{left} &
+z9l--z9r & cycle;
+%
+%
+%
+z17=(0.788w,h+apex_o);
+z14=(0,0.9h);%avant:848
+y15=h+apex_o;
+z15-z14=whatever*(z17-z1r);
+z16=whatever[z1r,z17];
+x16=x1r+2cap_amount;
+z18-z17=whatever*(z16-z15);
+x18=w; penpos18'(cap_stem,0);
+x18'r=w-cap_amount;
+y18'=y18;
+z19=whatever[z12,z13];
+z19''=whatever[z12,z13];
+x19''=x18'r;
+x19=x18'l;
+filldraw z19--z18'l--z18'r--
+z19''--z19 & cycle;
+penpos15'(cap_hair,angle(z15-z14));
+z15'r=z15;
+z15.1-z15'l=whatever*(z16-z15);
+x15.1=x13.2=x16+cap_hair;
+z15.2=whatever[z15,z16];
+x15.2=x15.1;
+filldraw z15.1--z15'l--z15'r--
+z15.2--z15.1 & cycle;
+filldraw z14--z15--z16--z1r--
+z1l & z1l{up}..{left}z14 &
+cycle;
+x13.1=x16; z13.1=whatever[z13,z12];
+z13.2=whatever[z13,z12];
+z16'=whatever[z16,z17]; x16'=x13.2;
+filldraw z13.1--z16--z16'--z13.2
+--z13.1 & cycle;
+%
+%
+%
+penpos20(1.1cap_stem,angle(z17-z16));
+z20r=z17;
+z21-z20l=whatever*(z18-z17);
+x21=x19;
+penpos17'(cap_hair,angle(z18-z17));
+z17'l=z17;
+z16''-z17'r=whatever*(z16-z17);
+x16''=x16;
+filldraw z16--z17--z17'r--z16''
+--z16 & cycle;
+filldraw z20r--z18 & z18..
+{down}(x19'',y18-0.5cap_stem) &
+(x19'',y18-0.5cap_stem)--z18'r--
+z18'l--z21--z20l--z20r & cycle;
+z11.5=whatever[z10,z11];
+x11.5=x19;
+filldraw z11..{up}
+(x19'',y11+0.5cap_stem)
+& (x19'',y11+0.5cap_stem)--
+z19''--z19--z11.5--
+z11 & cycle;
+%
+%
+%
+x31=x33=x19; x30=x32=x13.2;
+x35=x37=x2; x34=x36=-apex_o;
+penpos30(cap_hair,-90);
+penpos31(cap_hair,-90);
+penpos32(cap_hair,-90);
+penpos33(cap_hair,-90);
+penpos34(0.5cap_hair,-90);
+penpos36(0.5cap_hair,-90);
+penpos35(0.647cap_stem,-90);
+penpos37(0.647cap_stem,-90);
+y31=0.3[y18,y19];
+y33=0.6[y18,y19];
+z31-z30=whatever*dir20;
+z33-z32=whatever*dir20;
+y34=y35=0.5[y30,y31];
+y36=y37=0.5[y32,y33];
+penstroke z30e--z31e;
+penstroke z32e--z33e;
+penstroke z34e--z35e;
+penstroke z36e--z37e;
+.endchar;
+
+.cmchar "The gothic letter Z";
+.beginchar("Z",10.667u#,cap_height#,0);
+.adjust_fit(cap_serif_fit#,cap_serif_fit#);
+penpos1(1.414cap_hair,-90);
+penpos2(1.414cap_hair,-90);
+penpos3(1.414cap_hair,-90);
+penpos4(1.414cap_hair,-90);
+penpos5(1.414cap_hair,-90);
+penpos6(1.414cap_hair,-90);
+x1=x2=x5=cap_amount;
+x3=x4=x6=w;
+y2r=-apex_o;
+y5r=y2l; y1r=y5l;
+y3l=h+apex_o; y6l=y3r; y4l=y6r;
+penstroke z1e--z3e;
+penstroke z2e--z4e;
+%
+%
+%
+z7=(0.281w,0.076h);
+z8=(0.505w,0.22h);
+z9=(0.708w,-apex_o);
+z10=(0.839w,0.103h);
+penpos11(cap_hair,0);
+x11r=w; y11=0.224h;
+penpos12(0.91cap_stem,0);
+z12r=z11r;
+filldraw z2r{z4-z2}..z7..z9..
+z11r{up}
+& z11r--z11l & z11l{down}..z10
+..z8..z2l{z2-z4} & z2l--z2r &
+cycle;
+filldraw z12r..z12l..z12r..cycle;
+%
+%
+%
+y17=y14=0.673h;
+penpos14(cap_hair,180);
+penpos15(0.88cap_stem,0);
+penpos16(cap_hair,90);
+penpos17(cap_hair,0);
+x14=0.297w;
+x17l=0; z15r=z14l;
+filldraw z15r..z15l..z15r..cycle;
+x16=0.148w; y16=0.565h;
+z18=(0.255w,0.843h);
+z19=(0.349w,h+apex_o);
+z20=(0.656w,0.758h);
+z21=(0.781w,0.892h);
+filldraw z14r{down}..z16r..z17r
+..z18..z20..z3r{z3-z1} & z3r--z3l
+& z3l{z1-z3}..z21..z19..z17l..
+z16l..z14l{up} & z14l--z14r &
+cycle;
+.endchar;
diff --git a/fonts/gothic/yinit-otf/README.md b/fonts/gothic/yinit-otf/README.md
new file mode 100644
index 0000000000..48f8ff8cc2
--- /dev/null
+++ b/fonts/gothic/yinit-otf/README.md
@@ -0,0 +1,15 @@
+yinit-otf
+=========
+
+This package is a conversion of the yinit font into OTF.
+
+Original METAFONT files for yinit are in the [yinit](https://www.ctan.org/pkg/yinit) package. The conversion has been made by the excellent [mf2pt1](https://www.ctan.org/pkg/mf2pt1) with only tiny bugfixes afterwards.
+
+To use this font in LaTeX:
+
+```
+\usepackage{fontspec}
+\setmainfont{Yinit}
+```
+
+The copyright is (C) Yannis Haralambous, 1994, Public Domain. \ No newline at end of file
diff --git a/fonts/gothic/yinit-otf/Yinit.otf b/fonts/gothic/yinit-otf/Yinit.otf
new file mode 100644
index 0000000000..66a03f5e0e
--- /dev/null
+++ b/fonts/gothic/yinit-otf/Yinit.otf
Binary files differ
diff --git a/fonts/gothic/yinit/README b/fonts/gothic/yinit/README
new file mode 100644
index 0000000000..1ff6c90dcf
--- /dev/null
+++ b/fonts/gothic/yinit/README
@@ -0,0 +1,43 @@
+yinit font
+==========
+
+Old German decorative capital letters (only)
+
+Version: 2019-01-24
+Public Domain
+
+Created by Yannis Haralambous ca. 1994 as Metafont font.
+
+The yinit.pdf font chart was created by running (more or less):
+ mf '\mode:=ljfour;input yinit' && gftopk yinit.600pk
+ echo '\table\end' | tex testfont
+ dvips testfont && ps2pdf testfont.ps yinit.pdf
+There is no other documentation (available or needed).
+
+Historical note 1: Andreas Schrell made a modified driver file,
+yinitas.mf, and a LaTeX file initials.sty. These are now available on
+CTAN separate from this directory (they used to be merged together).
+
+Historical note 2: since inception, TeX Live contained a stub driver
+file, yinitdd.mf, which merely generated the letter D. At Yannis'
+suggestion, it has now been removed.
+
+Historical note 3: yinit was re-uploaded to CTAN in January 2015 by
+Karl Berry, including this README, after discussions with Yannis about
+the license and other points above. No changes to the actual font,
+either metrics or glyphs, but because of the license clarification,
+the release date/version is explicitly mentioned above.
+
+
+Changes after 2015
+==================
+
+20190124
+
+In agreement with Yannis Haralambous, the following changes were made
+to allow using yinit fonts with dropcaps package. The changes are
+- changing the font identifier to YINIT from CMR
+- changing the font size to the correct value instead of 10pt#
+
+Development has moved to Github: https://github.com/TeX-Live/yinit
+
diff --git a/fonts/gothic/yinit/yinit.mf b/fonts/gothic/yinit/yinit.mf
new file mode 100644
index 0000000000..62b17c5ea4
--- /dev/null
+++ b/fonts/gothic/yinit/yinit.mf
@@ -0,0 +1,112 @@
+% This is the yinit.mf driver file.
+% Whole font released to the public domain.
+if unknown cmbase: input cmbase fi
+input yintbase % -sl 15-3-1991
+
+font_identifier:="YINIT";
+
+u#:=160/36pt#;
+v#:=160/36pt#;
+font_size 8.7u#;
+
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=40/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=40pt#; % height of tallest characters
+asc_height#:=40pt#; % height of lowercase ascenders
+cap_height#:=40pt#; % height of caps
+fig_height#:=40pt#; % height of numerals
+x_height#:=800/36pt#; % height of lowercase without ascenders
+math_axis#:=720/36pt#; % axis of symmetry for math symbols
+bar_height#:=320/36pt#; % height of crossbar in lowercase e
+comma_depth#:=560/36pt#; % depth of comma below baseline
+desc_depth#:=560/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=32/36pt#; % diameter of rounded corners
+fine#:=28/36pt#; % diameter of sharply rounded corners
+thin_join#:=28/36pt#; % width of extrafine details
+numeric m; m:=1;
+hair#:=2/36u#;
+stem#:=200/36pt#; % lowercase stem breadth
+curve#:=240/36pt#; % lowercase curve breadth
+ess#:=216/36pt#; % breadth in middle of lowercase s
+flare#:=264/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=288/36pt#; % diameter of dots
+cap_hair#:=88/36pt#; % uppercase hairline breadth
+cap_stem#:=256/36pt#; % uppercase stem breadth
+cap_curve#:=296/36pt#; % uppercase curve breadth
+cap_ess#:=280/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=1.6pt#; % thickness of lines in math symbols
+
+dish#:=8/36pt#; % amount erased at top or bottom of serifs
+bracket#:=160/36pt#; % vertical distance from serif base to tangent
+jut#:=224/36pt#; % protrusion of lowercase serifs
+cap_jut#:=296/36pt#; % protrusion of uppercase serifs
+beak_jut#:=80/36pt#; % horizontal protrusion of beak serifs
+beak#:=560/36pt#; % vertical protrusion of beak serifs
+vair#:=64/36pt#; % vertical diameter of hairlines
+notch_cut#:=80pt#; % maximum breadth above or below notches
+bar#:=88/36pt#; % lowercase bar thickness
+slab#:=88/36pt#; % serif and arm thickness
+cap_bar#:=88/36pt#; % uppercase bar thickness
+cap_band#:=88/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=80pt#; % max breadth above/below uppercase notches
+serif_drop#:=32/36pt#; % vertical drop of sloped serifs
+stem_corr#:=8/36pt#; % for small refinements of stem breadth
+vair_corr#:=8/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=64/36pt#; % amount of overshoot for curves
+apex_o#:=64/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+mode_setup;
+font_setup;
+u:=160/36pt;
+v:=160/36pt; uv:=u;
+boolean zero_depth;
+zero_depth:=true;
+%readfrom("yinitbase"); % -sl 15-3-1991
+generate yinitA;
+generate yinitB;
+generate yinitC;
+generate yinitD;
+generate yinitE;
+generate yinitF;
+generate yinitG;
+generate yinitH;
+generate yinitJ;
+generate yinitK;
+generate yinitL;
+generate yinitM;
+generate yinitN;
+generate yinitO;
+generate yinitP;
+generate yinitQ;
+generate yinitR;
+generate yinitS;
+generate yinitT;
+generate yinitU;
+generate yinitV;
+generate yinitW;
+generate yinitX;
+generate yinitY;
+generate yinitZ;
+end.
diff --git a/fonts/gothic/yinit/yinit.pdf b/fonts/gothic/yinit/yinit.pdf
new file mode 100644
index 0000000000..b6a3b938d3
--- /dev/null
+++ b/fonts/gothic/yinit/yinit.pdf
Binary files differ
diff --git a/fonts/gothic/yinit/yinitA.mf b/fonts/gothic/yinit/yinitA.mf
new file mode 100644
index 0000000000..533331665c
--- /dev/null
+++ b/fonts/gothic/yinit/yinitA.mf
@@ -0,0 +1,139 @@
+.cmchar "The letter A";
+.beginchar("A",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+penpos1(hair,90); penpos1'(hair,-270); penpos2(hair,0); penpos3(hair,-40);
+penpos4(hair,-40); penpos7(1.5hair,180); penpos8(hair,-135); penpos13(hair,-62);
+z1=(.3u,-.2v); z2=(0,.2v); z3=(.5u,v); z4=(1.35u,1.75v); z5=(1.45u,2.4v);
+z6=(.9u,2.8v); z7=(0,2.1v); z8=z3; z9=(1.7u,.5v); z10=(3.3u,1.25v);
+z11=(4.1u,2.9v); z12=(4.1u,4.8v); z13=(4.9u,7.2v); z14=(3.4u,5v); z15=(3.5u,3v);
+z16=(3u,1.45v); z17=z9+(0,vround(1.5hair)); z32=(.1u,2v); z31=(1.3u,3.15v);
+z30=(2.2u,2.7v); z29=(2.6u,2.7v); z1'=(.5[x2,x1],-.2v); penstroke
+z1e{left}...z2e{up}...z3e...z4e; fill z4r{z4-z3}...{right}z29 &
+z29{left}...{z31-z29}z30...{left}z31.. {down}z7r & z7r--z7l &
+z7l{up}...z6{right}...z5{z4-z6}...{z3-z4}z4l & z4l--z4r & cycle; penstroke
+z7e{down}..{(1.6u,0)-(0,1.5v)}z8e; fill
+z8r{(1.6u,0)-(0,1.5v)}...z9{right}...{(5u,2.9v)-(2.1u,0)}z10...
+z11{up}...z12{up}...z13r{(6.7u,8v)-(0,5v)} & z13r--z13l &
+z13l{(0,5.3v)-(7u,8v)}...z14{down}...z15{down}...z16{(2u,0)-(5u,4.1v)}
+...z17{left}...z8l{(0,1.5v)-(1.6u,0)} & z8l--z8r & cycle; z33=(6.45u,7.65v);
+z34=(8.55u,5.75v); z35=(6.6u,3.4v); z36=(4.9u,5v); z37=z33-(0,1.2v);
+z38=z34-(u,.35v); z39=z35+(0,.9v); z40=z36+(.8u,0); z41=z37-(0,.65v);
+z42=z38-(.6u,0); z43=(6.7u,5v); penpos33(hair,-90); penpos34(hair,-180);
+penpos35(hair,-270); penpos36(hair,0); penpos37(hair,-90); penpos38(hair,-180);
+penpos39(hair,-270); penpos40(hair,0); penpos41(hair,-90); penpos42(hair,-180);
+penpos43(hair,-270); penstroke
+z13e...z33e...z34e...z35e...z36e...z37e...z38e...z39e...z40e...z41e...
+z42e...z43e; z44=(6.8u,7.8v); z45=(7.25u,7.8v); z46=(7.9u,8.05v); z47=(8u,7.6v);
+z48=(6.9u,6.75v); z49=(5.1u,7.6v); z50=(3.2u,8.25v); z51=(.95u,6.1v);
+z52=(2.7u,4.5v); z53=(4.45u,6v); z54=(4u,7v); z55=(3.25u,7.35v); z56=(2.6u,7v);
+z57=(2.7u,6.5v); z59=(2.2u,5.65v); z60=(1.9u,5.9v); penpos44(hair,-110);
+penpos45(.35u,-30); penpos46(hair,-110); penpos47(hair,-180);
+penpos48(.35u,-270); penpos49(.85u,45); penpos50(.5v,-270);
+penpos51(1.5hair,-180); penpos52(hair,-90); penpos53(hair,0); penpos54(hair,50);
+penpos55(hair,90); penpos56(.45u,-195); penpos57(.65u,-120);
+penpos58(.65u,-180); z58r=z57r; penpos59(1.5hair,-270); penpos60(hair,0);
+penstroke z44e{(7.5u,6.4v)-(5.4u,9v)}...z45e{dir45}...
+z46e{(7.5u,6.4v)-(5.4u,9v)}...z47e{down}...z48e...z49e...z50e...z51e...z52e...
+z53e...z54e...z55e...z56e...z57e...z58e...z59e...z60e; z61=(6.8u,6.6v);
+z62=(6.5u,5.5v); z63=(6.5u,2.6v); z64=(8.4u,1.9v); z64'=z64-(hair,0);
+z65=(7u,0.2v); z66=(6.7u,0.7v); z67=(5.8u,2v); z68=(5.8u,5v); z69=(7.6u,1.25v);
+unfill z61{(0,0.7v)-(5u,5v)}...z62{down}---z63{down}...z69{right}...
+z64'{up}--z64 & z64{down}... z65{down} &
+z65{up}...z66{(0,3.3v)-(8.5u,0)}...z67{up}...z68{(6.5u,10v)-
+(5.1u,0)}...z61{(5u,5v)-(0,0.7v)} & cycle; z70=(4.5u,2.65v); z71=(4.1u,3.25v);
+z72=(4.6u,3.7v); z73=(5.1u,3.6v); z74=(5.7u,4.1v); z75=(5.3u,4.5v);
+penpos70(hair,90); penpos71(hair,0); penpos72(.45v,-105); penpos73(.45v,-105);
+penpos74(hair,0); penpos75(hair,90); penstroke
+z70e{left}...z71e{up}...z72e...z73e...z74e{up}...{left}z75e; z76=(7.65u,3.7v);
+z76'=(6.2u,2.75v); z77=(4.1u,0.8v); z78=(4.9u,0); z138=(5.4u,1.1v);
+z79=(5.6u,0.7v); z80=(5.05u,1.3v); z81=(4.65u,.7v); z82=(4.95u,.45v);
+z83=(5.3u,.7v); z84=(5.05u,.9v); penpos76(hair,-233); penpos76'(hair,-244);
+penpos77(hair,-180); penpos138(hair,45); penpos78(hair,-90); penpos79(hair,0);
+penpos80(hair,90); penpos81(hair,180); penpos82(hair,-90); penpos83(hair,0);
+penpos84(hair,90); penstroke
+z76e...z76'e...z77e...z78e...z79e...z138e...z80e...z81e...z82e...z83e...z84e;
+z85=(-.1u,1.1v); z86=(1.7u,0.2v); z87=(3.8u,1.4v); z88=(4.5u,3.9v);
+z89=(4.65u,6v); z90=(6.4u,7.15v); z90'=(7.5u,6.7v); z89'=(7.9u,6.1v);
+penpos85(hair,-135); penpos86(hair,-90); penpos87(hair,-35); penpos88(hair,0);
+penpos89(hair,-35); penpos90(hair,-90); penpos90'(hair,-135);
+penpos89'(hair,-180); penstroke
+z85e...z86e...z87e...z88e...z89e...z90e...z90'e...z89'e; z91=(1u,2.2v);
+z92=(.75u,2.4v); z93=(0.35u,1.7v); z94=(1.5u,0.9v); z95=(2.9u,2.75v);
+z95'=(2.6u,4.2v); z96=(2.5u,4.6v); penpos91(hair,0); penpos92(hair,90);
+penpos93(hair,180); penpos94(1.5hair,-90); penpos95(.5u,0); penpos95'(u,33);
+penpos96(1.7u,34); penpos95.3(hair,90); penpos95.4(hair,-90); z95.3r=z96l;
+z95.4l=z96r; penstroke z91e...z92e...z93e...z94e{right}; filldraw
+z94r{right}..z95r..z95'r ..z95.4r{z96r-z96l}--z95.4l--
+z95.3r--z95.3l{z96r-z96l}..z95'l ..z95l..z94l{left}--z94r & cycle;
+z97=(1.2u,1.2v); z97'=(2.3u,2.4v); z98=(1.1u,4.3v); z98'=(-.1u,3.6v);
+z99=(.3u,3.1v); z99'=(.3u,3.6v); penpos97(hair,-90); penpos97'(hair,0);
+penpos98(hair,90); penpos98'(hair,180); penpos99(hair,-90); penpos99'(hair,90);
+penstroke z97e{right}...z97'e...z98e...z98'e...z99e...z99'e; z100=(7.25u,0);
+z101=(7.4u,0.4v); z101'=(8.3u,0.3v); z102'=(8.1u,0); z102=(8.65u,1.9v);
+z103=(7.9u,2.7v); z103'=(7.1u,2.1v); z104=(7.7u,1.45v); z104'=(7.8u,2.45v);
+z105=(7.45u,2.2v); z105'=(7.8u,1.9v); z106=(8u,2.05v); z107=(8.15u,2.1v);
+z108=(6.9u,2.1v); z109=(6.9u,4.1v); z110=(8u,5.4v); z111=(8.8u,4.6v);
+z112=(8.6u,4v); z113=(8.1u,3.3v); z114=(8.3u,3v); z115=(8.1u,3.8v);
+z116=(7.5u,4.3v); z117=(8u,4.8v); z118=(8.4u,4.4v); z119=(8u,4.1v);
+z120=(7.6u,3.2v); z121=(7.9u,2.9v); z100'=(8.3u,1.1v); penpos100(hair,-20);
+penpos101(hair,-53); penpos101'(hair,-180); penpos102'(hair,-270);
+penpos102(hair,0); penpos103(hair,90); penpos103'(hair,-180);
+penpos104(hair,-90); penpos104'(hair,90); penpos105(3hair,-180);
+penpos105'(0.2v,-90); penpos106(hair,-44); penpos107(hair,-116);
+penpos108(hair,0); penpos109(hair,0); penpos110(hair,-90); penpos111(hair,-180);
+penpos112(hair,-225); penpos113(hair,-180); penpos114(hair,-90);
+penpos115(hair,90); penpos116(hair,0); penpos117(hair,-90);
+penpos118(hair,-180); penpos119(hair,90); penpos120(hair,-90);
+penpos121(hair,-180); penpos100'(hair,-45); penstroke
+z100e...z101e{(1,1)-(0,0)}...z101'e...{left}z102'e; z640=z64; penpos640(hair,0);
+penstroke z101e{(1,1)-(0,0)}...z100'e...z102e...z103e...z103'e...
+z104e...z640e...z104'e...z105e...z105'e...z106e...z107e; z108'=z104;
+penpos108'(hair,90); penstroke
+z108'e{left}...z108e{up}...z109e{up}...z110e...z111e...z112e
+...z113e...{right}z114e; penstroke z112e...z115e...z116e...z117e...z118e...z119e;
+penstroke z108e{up}...z120e{right}...{down}z121e; z122=(2.2u,4.2v);
+z123=(0.6u,5.4v); z124=(0.4u,6.4v); z125=(0.7u,7.5v); z126=(1.65u,8.5v);
+z127=(0.9u,8.3v); z128=(0.6u,8.5v); z129=(0.4u,8.4v); z130=(0.1u,8.2v);
+z131=(-0.1u,8.5v); z132=(5u,8.35v); z133=(5.4u,8.6v); z134=(5.9u,7.9v);
+z135=(6.4u,8.55v); z136=(6.75u,8.3v); z137=(6.5u,8v); z139=(5.1u,1.7v);
+z140=(5.4u,1.95v); z135'=(7.7u,7.9v); z136'=(6.9u,7.25v); penpos122(hair,71);
+penpos123(hair,25); penpos124(hair,0); penpos125(hair,-26); penpos126(hair,0);
+penpos127(hair,0); penpos128(2.5hair,90); penpos129(0.3u,150);
+penpos130(2hair,90); penpos131(hair,0); penpos132(hair,180); penpos133(hair,90);
+penpos134(hair,20);penpos135(hair,-90); penpos136(hair,-180);
+penpos137(hair,90); penpos139(hair,0); penpos140(hair,-90);
+penpos135'(hair,-180); penpos136'(hair,90); penstroke z122e...z123e...z124e{up};
+penstroke z125e{dir70}...{up}z126e; penstroke
+z124e{up}...z125e...z127e...z128e...z129e...z130e...{up}z131e; penstroke
+z134e{(4u,10v)-(10u,3.8v)}...z133e...{down}z132e; penstroke
+z135'e{down}...z136'e...z134e{(4u,10v)-(10u,3.8v)}
+...z135e...z136e...{left}z137e; penstroke
+z79e{up}...z138e...z139e...{right}z140e; z141=(3.2u,7v); z142=(3.7u,6.1v);
+z143=(3.2u,5.4v); z144=(2.3u,5.2v); z145=(1.35u,6.3v); z146=(3u,7.7v);
+z147=(4.5u,7.1v); penpos141(hair,-90); penpos142(hair,-180);
+penpos143(hair,-240); penpos144(hair,90); penpos145(hair,0);
+penpos146(hair,-90); penpos147(hair,-131); penstroke
+z141e{right}...z142e...z143e...z144e...z145e...z146e...
+{(6.7u,5v)-(1.2u,10v)}z147e; kouki(126,1,1); kouki(132,6,1); kouki(137,5,1);
+kouki(141,7,1); kouki(60,2,1.5); kouki(99',7,1); kouki(75,7,2);
+kouki(70,6,2.25); kouki(140,8,1); kouki(84,7,1); kouki(102',5,1.5);
+kouki(121,3,1.5); kouki(114,6,1); kouki(119,5,1.5); kouki(89',3,1);
+kouki(1,6,1.5); z148=(5.8u,8.7v); z149=(4.7u,1.6v); mpalla(148,1);
+mpalla(149,1.5); mpalla(123,2); z150.1=(4.3u,4.95v); z150.2=(5.1u.,4.95v);
+z150.3=(5.1u,4.7v); z150.4=(4.3u,4.7v); filldraw
+z150.1--z150.2--z150.3--z150.4--cycle; z34.1=z34+(-.15u,.1v);
+z34.2=z34+(.15u,.1v); z34.3=z34+(.15u,-.1v); z34.4=z34+(-.15u,-.1v); filldraw
+z34.1--z34.2--z34.3--z34.4--cycle; z200=z79; ka(200,180); z201=(6.2u,0);
+ka(201,-90); z202=(x201,0.8v); ka(202,90); z203=(x79+0.4u,0.65[y201,y202]);
+ka(203,180); kouki(203,4,1); z201'=(x201+0.3u,y203); ka(201',0); penstroke
+z200e{down}..z201e{right}.. z202e{left}..z203e{down}; z204=z77; ka(204,180);
+z205=(3.6u,0); ka(205,90); z206=(x205-0.05v,y83+0.05v);
+z207=(x205+0.05u,0.35[y205,y206]); ka(206,-90); ka(207,90); kouki(207,5,1);
+penstroke z204e{down}..z205e{left}.. z206e{right}..z207e{left}; z220=(5.45u,3v);
+z221=(u,3.7v); z225=(x34,y135); z226=(x34+0.1u,y135-0.6v);
+z227=(x34,y125-0.5v); z228=(x34+0.1u,y227+0.5v); ka(225,-90); ka(226,90);
+ka(227,90); ka(228,-90); kouki(226,5,1); kouki(228,7,1); z47''=z47; ka(47'',0);
+penstroke z228e{right}..z227e{left} ..z47''e{up}..z225e{right}..z226e{left};
+z230=(x112,0.5[y101',y100']); mpalla(230,1.5); penlabels(range 1 thru 230);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitB.mf b/fonts/gothic/yinit/yinitB.mf
new file mode 100644
index 0000000000..388ed97484
--- /dev/null
+++ b/fonts/gothic/yinit/yinitB.mf
@@ -0,0 +1,135 @@
+.cmchar "The letter B"; .beginchar("B",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); z1=(.9u,.9v); z2=(1.3u,1.1v); z3=(1.1u,1.4v);
+z4=(0.9u,1.7v); z5=(1.3u,1.9v); z6=(1.85u,1.3v); z7=(1.1u,.5v); z8=(0.2u,1.1v);
+z8'=(0,1.5v); z9=(1.4u,2.8v); z10=(2.8u,2.2v); z10'=(4.35u,.7v); z11=(6.3u,v);
+z12=(7.55u,3.95v); z13=(4.9u,4.2v); z14=(4.3u,3.5v); z15=(5.5u,1.7v);
+z16=(6.8u,3v); z17=(6u,3.9v); z18=(5.2u,3.3v); z19=(5.4u,2.9v);
+z20=(5.75u,2.95v); z21=(6.05u,2.7v); z22=(5.9u,2.45v); penpos1(hair,-110);
+penpos2(.3u,0); penpos3(.4u,74); penpos4(.3u,0); penpos5(1.5hair,-90);
+penpos6(hair,-180); penpos7(hair,90); penpos8(1.5hair,12); penpos8'(hair,0);
+penpos9(.2v,-84); penpos10(.5[u,v],-144); penpos10'(0.55u,-119);
+penpos11(1.5hair,-61); penpos12(.9u,30); penpos13(.2v,-225);
+penpos14(hair,-180); penpos15(hair,-90); penpos16(hair,0); penpos17(1.2hair,90);
+penpos18(.3u,-180); penpos19(.6v,-90); penpos20(0.5v,-73); penpos21(.2u,-180);
+penpos22(hair,110); penstroke
+z1e{(2.6u,0)-(0,1.4v)}...z2e...z3e...z4e...z5e...z6e...z7e...
+z8e...z9e{right}...z10e...z10'e...z11e...z12e...z13e...z14e...z15e...z16e...
+z17e...z18e...z19e...z20e...z21e...{(2u,0)-(9.8u,5v)}z22e; z23=(1.85u,2.25v);
+z24=(4.8u,0.05v); z25=(5.3u,0.07v); z26=(5.7u,0.15v); z27=(8.6u,3.15v);
+z28=(7.2u,5.35v); z29=(6.8u,5.4v); z30=(6.5u,5.3v); z31=(2.3u,1.3v);
+z32=(1.3u,0); z33=(0.9u,0.2v); z34=(2.6u,0.8v); z23'=(2.2u,1.7v);
+z34'=(2.5u,0.5v); z35=(2.1u,0.2v); z35'=(3u,-0.1v); z36=(3.1u,0.4v);
+z37=(3.3u,0.4v); penpos23(hair,-144); penpos24(hair,-90); penpos25(hair,-90);
+penpos26(hair,-75); penpos27(hair,0); penpos28(hair,82); penpos29(hair,90);
+penpos30(hair,98); penpos31(hair,-180); penpos32(hair,90); penpos33(hair,33);
+penpos34(hair,-180); penpos34'(hair,-180); penpos35(hair,90);
+penpos35'(hair,-90); penpos36(hair,-90); penpos37(hair,-45);
+penpos23'(hair,-144); penstroke
+z23e{(3.3u,0)-(0,5v)}...z23'e...z24e...z25e...z26e...z27e...z28e...z29e...
+{(0,4.5v)-(3.9u,5v)}z30e; penstroke
+z23'e{(3.7u,0)-(0,4.3v)}...z31e...z32e...{(0,1.8v)-(u,0)}z33e; penstroke
+z23'e{(3.5u,0)-(0,4.5v)}...z34e...z34'e...{left}z35e; penstroke
+z34'e...{right}z35'e; penstroke
+z23'e{(3.3u,0)-(0,5v)}...{right}z36e..z36e...z37e; z38=(6.25u,0.3v);
+z39=(7.55u,1.3v); z40=(8.4u,0.65v); z41=(7.8u,0); z42=(7.4u,0.4v);
+z43=(7.75u,0.75v); z44=(7.9u,0.5v); z45=(6.65u,1.7v); z46=(5.9u,2.35v);
+z47=(5.2u,1.75v); z48=(4.85u,1.05v); z49=(5.75u,1.25v); z50=(6.05u,1.65v);
+penpos38(hair,-35); penpos39(hair,-90); penpos40(hair,-180); penpos41(hair,90);
+penpos42(hair,0); penpos43(hair,-90); penpos44(hair,-180); penpos45(hair,0);
+penpos46(hair,90); penpos47(hair,-180); penpos48(hair,90); penpos49(hair,-90);
+penpos50(hair,0); penstroke
+z38e{(10u,5.6v)-(6u,0)}...z39e...z40e...z41e...z42e...z43e...z44e;
+kouki(44,3,1.25); penstroke z41e{left}...{up}z38e &
+z38e{(10u,5.6v)-(6u,0)}...z45e...z46e..z47e ...{left}z48e; kouki(48,5,1);
+penstroke z47e{down}...z49e...{up}z50e; kouki(50,1,1.5); mpalla(24,1);
+mpalla(25,1); mpalla(26,1); z51=(1.85u,3.7v); z52=(1.5u,3.9v); z53=(1.15u,3.5v);
+z54=(1.7u,3.1v); z55=(2.3u,3.75v); z56=(1.45u,4.55v); z57=(0.3u,3.5v);
+z58=(1.6u,2.2v); z59=(3.1u,3.4v); z60=(3.45u,4.8v); z61=(2.45u,6.25v);
+z62=(2.05u,6.35v); z63=(2.6u,2.4v); z64=(4.3u,5.5v); z65=(2.5u,7.75v);
+z66=(1.6u,7.5v); z67=(0.7u,7.5v); z68=(0.35u,8.75v); z68'=(0.7u,8.85v);
+z69=(1.1u,8.6v); z70=(1.4u,8.35v); z71=(1.6u,8.5v); z60'=(3.1u,5.7v);
+penpos51(hair,0); penpos52(hair,90); penpos53(hair,-180); penpos54(hair,-90);
+penpos55(hair,0); penpos56(hair,90); penpos57(hair,-180); penpos58(hair,-90);
+penpos59(0.1u,-45); penpos60(0.5u,0); penpos61(1.2u,37); penpos62(1.8u,37);
+penpos63(hair,-42); penpos64(0.75u,0); penpos65(0.9v,90); penpos66(0.9v,110);
+penpos67(0.7v,62); penpos68(1.5hair,-45); penpos68'(hair,-90);
+penpos69(0.35u,-150); penpos70(2hair,-90); penpos71(hair,0); penpos60'(0.7u,38);
+penstroke z51e{up}...z52e...z53e...z54e...z55e...z56e...z57e...z58e...z59e...
+z60e...z60'e...z61e...{(0,7.6v)-(4.6u,5v)}z62e; penstroke
+z63e{(5u,4.75v)-(0,0)}...z64e...z65e...z66e...z67e...z68e...z68'e...
+z69e...z70e...{up}z71e; kouki(51,3,2); z72=(7.8u,5.8v); z73=(8.05u,5.6v);
+z74=(8.4u,5.9v); z75=(8u,6.3v); z76=(7.1u,5v); z77=(4.7u,2.7v); z78=(2.9u,4.8v);
+z79=(3.9u,7v); z80=(5.6u,7.9v); z81=(6.65u,7.65v); z82=(7.05u,6.95v);
+z83=(7.3u,6.35v); penpos72(hair,-180); penpos73(hair,-90); penpos74(hair,0);
+penpos75(hair,90); penpos76(hair,-180); penpos77(hair,90); penpos78(hair,0);
+penpos79(hair,-39); penpos80(0.5v,-90); penpos81(0.875u,-134);
+penpos82(1.1u,-144); penpos83(1.5u,-141); penstroke
+z72e{down}...z73e...z74e...z75e{left}...z76e{down}...z77e{left}...
+z78e{up}...{(7.6u,10v)-(0,3.7v)}z79e; kouki(72,2,1.3); z84l=z82l; z84r=z83;
+z85=(8.15u,7.15v); z86=(8.35u,7.7v); z87=(7.9u,8.3v); z88=(7.6u,8v);
+z89=(7.7u,7.95v); z90=(8.1u,7.8v); z91=(7.7u,7.5v); z92=(7.2u,8v);
+z93'=(8.45u,8.4v); z93=(7.9u,8.7v); z94=(8.6u,7.7v); z94'=z30;
+penpos85(2hair,-53); penpos86(hair,0); penpos87(hair,90); penpos88(1.5hair,-180);
+penpos89(0.3v,-90); penpos90(hair,-180); penpos91(hair,90); penpos92(hair,0);
+penpos93(hair,-90); penpos93'(hair,-135); penpos94(hair,-180);
+penpos94'(hair,-236); penstroke
+z85e{(10u,9.5v)-(0,0.6v)}...z86e{up}..z87e{left}..z88e...z89e...z90e{down}..
+z91e{left}..z92e...z93e...z93'e...z94e...{(0,1.1v)-(10u,7.9v)}z94'e; z93.2=z93';
+z92'=z93.2+(-.1u,.6v); penpos93.2(hair,39); penpos92'(hair,-90); penstroke
+z93.2e{(7.2,10)-(10,6.5)}...{right}z92'e; kouki(92',8,1); z95=(6.35u,5.6v);
+penpos95'(hair,-225); z95'r=z13r; penpos95(1.5hair,128.5); penstroke
+z95e{(0,0.4v)-(10u,8.6v)}...z95'e; filldraw
+z79l{(7.6u,10v)-(0,3.7v)}...z80l...z81l...
+z82l{(8.9u,5v)-(5.7u,10v)}...{(10u,8.2v)-(0,2.6v)}z85l & z85l--z85r & z85r--z95l
+& z95l--z95r & z95r{z83r-z95l}...{(6.4u,10v)-(7.25u,0)}z82r...z81r...z80r...
+{(0,3.7v)-(7.6u,10v)}z79r & z79r--z79l & cycle; z100=(2.7u,2.3v);
+z101=(4.5u,4.25v); z102=(5.05u,6.1v); z103=(4.6u,7.6v); z104=(2.35u,8.8v);
+z105=(0.2u,6.7v); z106=(1.9u,5.1v); z107=(3u,6.5v); z108=(2.2u,7.1v);
+z109=(1.3u,6.3v); z110=(1.9u,5.75v); z111=(2.4u,6.3v); z112=(2u,6.7v);
+z113=(1.7u,6.5v); penpos100(hair,-51); penpos101(hair,-30); penpos102(hair,0);
+penpos103(hair,25); penpos104(hair,90); penpos105(hair,180);
+penpos106(hair,-90); penpos107(hair,0); penpos108(hair,90); penpos109(hair,180);
+penpos110(hair,-90); penpos111(hair,0); penpos112(hair,90); penpos113(hair,180);
+kouki(113,4,1); penstroke
+z100e{(6.4u,5v)-(0,.3v)}...z101e...z102e...z103e...z104e...z105e...
+z106e...z107e...z108e...z109e...z110e...z111e...z112e...{down}z113e;
+z106'=(7.65u,6.25v); mpalla(106',2); z114=(6.1u,6.1v); z115=(4.2u,5.2v);
+z116=(5.3u,4.1v); z117=(6.2u,5.1v); z118=(5.6u,5.7v); z120=(5.35u,6.9v);
+z121=(5.8u,7.25v); z122=(6.2u,6.8v); z123=(5.85u,6.6v); z114'=(5.4u,8.9v);
+z115'=(5.7u,8.65v); z116'=(5.5u,8.3v); z117'=(4.1u,9.1v); z29'=z76;
+z119=(5.3u,5.3v); penpos29'(hair,0); penpos114(hair,65); penpos115(hair,-180);
+penpos116(hair,-90); penpos117(hair,0); penpos118(hair,90); penpos119(hair,180);
+penpos120(hair,0); penpos121(hair,-90); penpos122(hair,-180);
+penpos123(hair,90); penpos114'(hair,-90); penpos115'(hair,-180);
+penpos116'(hair,90); penpos117'(hair,20); penstroke
+z103e{(4.7u,10v)-(5.7u,5v)}---z117'e; penstroke
+z103e{(4.7u,10v)-(5.7u,5v)}...z114'e...z115'e...{left}z116'e; kouki(116',5,1);
+penstroke z29'e{up}...z114e...z115e...z116e...z117e...z118e... {down}z119e;
+kouki(119,4,2); mpalla(106,1.5); z125=(2.25u,2.65v); z126=(1.85u,5.55v);
+z127=(1.05u,4.8v); z128=(1.6u,4.2v); z129=(2.1u,4.7v); z130=(1.8u,5v);
+mpalla(27,1.5); penpos125(hair,-38); penpos126(hair,90); penpos127(hair,180);
+penpos128(hair,-90); penpos129(hair,0); penpos130(hair,90); kouki(130,7,1.5);
+penstroke z125e{(4.3u,5v)-(0,0)}...z78e...
+z126e...z127e...z128e...z129e...{left}z130e; penstroke
+z114e{(0,8v)-(9.3u,5v)}...z120e...z121e...{left}z123e; kouki(123,5,1.5);
+z131=(3.7u,3.1v); z132=(3.9u,2.6v); z133=(3.6u,2.3v); z134=(3.4u,2.4v);
+z135=(0.3u,7.8v); z136=(-0.2u,7.5v); z137=(-0.5u,7.7v); z138=(7.8u,1.3v);
+z139=(8.6u,1.8v); penpos131(hair,-131); penpos132(hair,-180);
+penpos133(hair,90); penpos134(hair,0); kouki(134,2,1.2); penpos135(hair,-230);
+penpos136(hair,90); penpos137(hair,0); kouki(137,2,1.2); penpos138(hair,-42);
+penpos139(hair,-90); kouki(139,8,1.5); penstroke
+z131e{(7u,0)-(0,6.7v)}...z132e...z133e...{up}z134e; penstroke
+z135e{(0,0)-(5u,5v)}...z136e...{up}z137e; penstroke
+z138e{(10u,3.5v)-(6.6u,0)}...{right}z139e; z200=(-0.3u,2.9v);
+z201=z200+(-0.15u,0.5v); z202=z200+(1.3u,0.5v); triaina(200,201,202,0.6);
+z210=(1.1u,6.8v); z211=z210+(0.6u,-1.2v); z212=z210+(-1.8u,-1.1v);
+triaina(210,211,212,0.4); z207=(3.75u,8.3v); z208=z207+(-0.15u,0.55v);
+z209=z207+(1.1u,0.3v); triaina(207,208,209,0.8); kouki(35',6,1.2);
+z220=0.5[z14,z10'l]; mpalla(220,2); z240=z114; penpos240(0.25u,-35);
+penpos241(0.6v,55); z241=z114; z240.1=z241r; z240.2=z241l;
+penpos240.1(0.25u,-35); penpos240.2(0.25u,-35); penstroke z240.1e--z240.2e;
+z250=((8.4u,0)--(8.4u,9v)) intersectionpoint (z27{up}..z28..z29);
+z251=(8.3u,5.1v); ka(250,45); ka(251,0); penstroke z250e{dir110}..z251e{up};
+kouki(251,2,1.2); kouki(35,5,1); penlabels(range 1 thru 250);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitC.mf b/fonts/gothic/yinit/yinitC.mf
new file mode 100644
index 0000000000..8f5ecd77ea
--- /dev/null
+++ b/fonts/gothic/yinit/yinitC.mf
@@ -0,0 +1,122 @@
+.cmchar "The letter C";
+.beginchar("C",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.4u,6.6v); z2=(1.75u,3.85v); z3=(2.7u,1.7v); z4=(4.7u,.85v); z5=(6.6u,1.5v);
+z6=(7.55u,3.4v); z7=(6.65u,4.3v); z8=(6.2u,4v); penpos1(hair,116);
+penpos2(.65u,-180); penpos3(.9*.5[u,v],-135); penpos4(.9v,-90);
+penpos5(.6*.5[u,v],-55); penpos6(1.5hair,0); penpos7(hair,90);
+penpos8(hair,180); kouki(7,7,3); penstroke
+z1e{(0,4.9v)-(5u,7.4v)}...z2e...z3e...z4e...z5e...z6e...{left}z7e; z9=(4u,7.2v);
+z10=(1.05u,3.5v); z11=(4.65u,0); z12=(7.9u,2.9v); z13=(7.9u,3.55v);
+z14=(2.7u,7.2v); z15=(2.4u,7.1v); z16=(2.7u,6.8v); z17=(3.15u,6.55v);
+z18=(2.6u,5.95v); z19=(1.8u,6.75v); z20=(2.65u,7.7v); z21=(4u,6.5v);
+z22=(2.5u,5.05v); z23=(0.85u,6.55v); z24=(2.9u,8.55v); z25=(5.3u,7.4v);
+z26=(6.1u,4.7v); z27=(4.25u,2.5v); z28=(3.1u,3.3v); z29=(3.5u,3.8v);
+z30=(3.95u,3.6v); penpos9(hair,95); penpos10(hair,180); penpos11(hair,-90);
+penpos12(hair,0); penpos13(hair,4); penstroke
+z9e{(0,6.15v)-(10u,8.1v)}...z10e...z11e...z12e... {(7.2u,9v)-(8.1u,0)}z13e;
+penpos14(hair,90); penpos15(1.5hair,180); penpos16(.3u,-90);
+penpos17(1.5hair,180); penpos18(hair,90); penpos19(hair,0); penpos20(hair,-90);
+penpos21(hair,-90); penpos22(hair,90); penpos23(hair,0); penpos24(hair,-90);
+penpos25(hair,-146); penpos26(hair,-180); mpalla(20,2); mpalla(26,1.5);
+penpos27(hair,90); penpos28(1.2hair,0); penpos29(0.35v,-90); penpos30(0.5u,-180);
+penpos29'(0.5u,-135); z29'r=z29r; penstroke
+z14e{left}...z15e{down}...z16e{right}...z17e{down}...z18e...z19e...
+z20e...z21e...z22e...z23e...z24e...z25e...z26e{down}...z27e...{up}z28e; filldraw
+z28r{up}...{down}z30r...{up}z30l...{down}z28l & z28l--z28r & cycle;
+z31=(4.3u,7.7v); z32=(6u,8.5v); z33=(7.4u,7.4v); z34=(5.8u,6.55v);
+penpos31(hair,-58); penpos33(.15v,-63); penpos34(hair,-243); filldraw
+flex(z31l,(5.6u,8.1v),z32) & flex(z32,(6.45u,7.75v),z33l) & z33l--z33r &
+z33r--z34l & z34l--z34r & flex(z34r,(5.9u,7.4v),z31r) & z31r--z31l & cycle;
+z38=(3.9u,7.2v); z39=(4.1u,6v); z40=(5.1u,5.25v); z41=(5.5u,4.4v);
+penpos38(0.45u,180); penpos39(0.95u,-132); penpos40(0.95u,-132);
+penpos41(0.7u,-173); z31'=z31; penpos31'(hair,122); penstroke
+z31'e{z31-z32}...z38e...z39e...z40e...z41e...{left}z27e; z42=(3.3u,4.9v);
+z43=(3.8u,4.8v); z44=(4.75u,3.6v); penpos42(1.4*.5[u,v],45); penpos43(0.7v,65);
+penpos44(0.3u,0); filldraw flex(z42l,z42+(0.05u,-0.05v),z42r) & z42r{down}...
+{(7.8u,3v)-(0,7.4v)}z43r...{down}z44r & z44r--z44l & z44l{up}...z43l...
+{(0,3.3v)-(10u,7.2v)}z42l & cycle; z45=(4u,2.7v); z46=(3.3u,3.3v);
+penpos45(hair,-90); penpos46(hair,180); penstroke z46e{down}...z45e...{up}z44e;
+z47=(3.9u,3.7v); z48=(5.3u,2v); z48'=(7.4u,2.5v); z49=(8.8u,1.35v);
+z50=(7.85u,0.3v); z51=(7u,1.2v); z52=(7.7u,1.85v); z53=(8.35u,1.25v);
+z54=(7.85u,0.7v); z55=(7.45u,1.1v); z56=(7.6u,1.2v); z57=(7.8u,1.15v);
+z58=(7.95u,1.15v); z59=(8.05u,1.4v); penpos47(hair,180); penpos48(hair,-90);
+penpos48'(hair,-90); penpos49(hair,-180); penpos50(hair,90); penpos51(hair,0);
+penpos52(hair,-90); penpos53(hair,-180); penpos54(hair,90); penpos55(hair,0);
+penpos56(0.3v,-90); penpos57(0.25v,-135); penpos58(0.2v,-90); penpos59(hair,0);
+penstroke z34e{z34-z33}...z47e...z48e{right}...{right}z48'e...z49e...z50e...
+z51e...z52e...z53e...z54e...{up}z55e; kordella(55,59); z60.1=(0,0.5v);
+z61=(0.55u,0); z62=(1.25u,0.75v); z63=(u,2.15v); z64=(2u,3.3v); z65=(3.5u,2v);
+z66=(1.9u,0.55v); z67=(0.55u,2.2v); z68=(3.4u,4.25v); z69=(4.8u,3.4v); z68'=z68;
+z70=(1.8u,4.1v); z71=(0.25u,5.2v); z72=(0.8u,5.7v); z73=(1.2u,5.3v);
+z74=(0.85u,4.95v); z75=(0.55u,5.25v); z60=(0.5u,0.95v); z60'=z60;
+z76=(0.8u,5.45v); penpos60(hair,90); penpos60'(hair,-90); kouki(60',8,2);
+penpos60.1(hair,-180); penpos61(hair,-90); penpos62(hair,0); penpos63(hair,0);
+penpos64(hair,-90); penpos65(hair,-180); penpos66(hair,90); penpos67(hair,0);
+penpos68(hair,-90); penpos69(hair,-148); penpos68'(hair,90); penpos70(hair,90);
+penpos71(hair,0); penpos72(hair,-90); penpos73(hair,180); penpos74(hair,90);
+penpos75(hair,0); penpos76(hair,-90); kouki(76,8,1); penstroke
+z60e{left}...z60.1e...z61e...z62e{up}...{up}z63e...z64e...z65e...z66e...
+z67e{up}...{right}z68e...{(7.7u,0)-(3.9u,5v)}z69e; penstroke
+z68'e{left}...z70e{left}...z71e...z72e...z73e...z74e...z75e... {right}z76e;
+z77=(6.3u,3v); z78=(5.9u,3.3v); z79=(5.6u,3v); z80=(5.85u,2.75v);
+z81=(4.9u,5.4v); z82=(6.75u,6.15v); z83=(8.55u,6.7v); z84=(8.2u,7.2v);
+z85=(7.75u,6.75v); z86=(8u,6.5v); z87=(7.85u,5.1v); z88=(7.15u,4.45v);
+z89=(6.6u,5v); z90=(7.1u,5.5v); z91=(7.45u,5.1v); z92=(7.1u,4.8v);
+z93=(6.85u,6.65v); z94=(7.55u,7v); z95=(8.25u,8.1v); z96=(7.3u,9v);
+z97=(6.65u,8.5v); z98=(7.25u,7.8v); z99=(8.7u,8.65v); z100=(9u,8.3v);
+penpos77(hair,0); penpos78(hair,90); penpos79(hair,180); penpos80(hair,-90);
+kouki(80,6,1.2); penstroke z48e{right}...{up}z77e...z78e...z79e...{right}z80e;
+penpos81(hair,-45); penpos82(hair,-90); penpos83(hair,0); penpos84(hair,90);
+penpos85(hair,180); penpos86(hair,-90); kouki(86,6,1.2); penstroke
+z81e{(1,1)-(0,0)}...{right}z82e...z83e{up}...z84e...z85e...{right}z86e;
+penpos87(hair,-180); penpos88(hair,90); penpos89(hair,0); penpos90(hair,-90);
+penpos91(hair,180); penpos92(hair,90); kouki(92,5,1.3); penstroke
+z82e{right}...z87e{down}...z88e...z89e... z90e...z91e...{left}z92e;
+penpos93(hair,-69); penpos94(hair,-60); penpos95(hair,0); penpos96(hair,90);
+penpos97(hair,180); penpos98(hair,-90); penpos99(hair,-90); penpos100(hair,180);
+kouki(100,3,1.4); z93'=0.5[z93,z94]; penpos93'(hair,-65); mpalla(93',1.8);
+penstroke z81e{(1,1)-(0,0)}...z93e...z94e...{up}z95e...z96e...z97e...z98e{right}
+...{right}z99e...{down}z100e; z101=(5.3u,6.15v); z102=(5.2u,8.8v); z101'=z31;
+z103=(5.5u,8.55v); z104=(5.3u,8.3v); z26'=z26; penpos26'(hair,0);
+penpos101(hair,45); penpos101'(hair,0); penpos102(hair,-90);
+penpos103(hair,180); penpos104(hair,90); kouki(104,5,1); penstroke
+z26'e{up}...z101e...{up}z101'e...z102e{right}...z103e...{left}z104e;
+mpalla(93,1.2); mpalla(94,1.2); z105=(7.85u,8.1v); z106=(7.4u,8.5v);
+z107=(7.15u,8.2v); penpos105(1.1hair,0); penpos106(hair,90);
+penpos107(hair,180);kouki(107,4,1.5); penstroke
+z33e{z33-z34}...z105e...z106e...{down}z107e; z108=(8.5u,3.45v);
+z109=(8.8u,3.9v); z110=(8.5u,4.15v); z111=(8.3u,3.95v); z112=(8.25u,3.1v);
+z113=(8.6u,2.75v); penpos108(hair,-90); penpos109(hair,0); penpos110(hair,90);
+penpos111(hair,-180); kouki(111,4,1); z108'=z7; penpos108'(hair,-90);
+penpos112(hair,-141); penpos113(hair,-90); penstroke
+z108'e{right}...z108e{right}...z109e...z110e...{down}z111e; penstroke
+z108'e{right}...z112e...{right}z113e; kouki(113,6,1); mpalla(112,1);
+z114=(4.1u,8.3v); z115=(3.4u,8.55v); z116=(0.7u,8.2v); z117=(0.1u,8.8v);
+z118=(0.2u,7.15v); z119=(0.6u,6.15v); z120=(0.15u,6.6v); z116'=(1.2u,8.3v);
+z117'=(1.2u,8.05v);penpos116'(hair,90); penpos117'(hair,90); penpos114(hair,64);
+penpos115(hair,76.5); penpos116(hair,90); penpos117(hair,0);
+penpos118(hair,180); penpos119(hair,90); penpos120(hair,0); z114'=.5[z114,z115];
+mpalla(114',1.5); mpalla(114,1.2); mpalla(115,1.2); penstroke
+z114e{(0,9.9v)-(10u,6v)}...{(0,9.05v)-(10u,7.5v)}z115e...z116'e...{left}z116e
+...{up}z117e; z118'=z117+(0.8u,0.4v); penpos118'(hair,0); kordella(117,118');
+penstroke
+z114e{(0,9.9v)-(10u,6v)}...{(0,9.05v)-(10u,7.5v)}z115e...z117'e...{down}z118e;
+kouki(118,4,1); z20'=z20; penpos20'(hair,90); penstroke
+z20'e{left}...z119e{left}...z120e{up}; kouki(120,2,1.3); z200=(1.45u,3.1v);
+z201=(0.85u,2.4v); z202=(0.6u,3.9v); triaina(200,201,202,0.8); z210=(1.3u,7.5v);
+z211=(0.6u,7.05v); z212=(0.6u,8.55v); triaina(210,211,212,0.5); z220=(8.2u,6v);
+z221=(8.75u,5.7v); z222=(7.75u,5.2v); triaina(220,221,222,0.7);
+z230=(8.8u,5.2v); ka(230,-90); penstroke z82e{right}..z230e{right};
+kouki(230,6,1); z231=(8.7u,0.2v); ka(231,-90); penstroke
+z53e{down}..z231e{right}; kouki(231,6,1); z232=((3.1u,0)--(3.1u,8v))
+intersectionpoint (z10{down}..z11{right}); ka(232,90); z233=(2.4u,0.15v);
+ka(233,180); penstroke z232e{left}..z233e{down}; kouki(233,4,1); z240=z27;
+ka(240,-90); z241=(4.1u,1.6v); ka(241,90); penstroke z240e{right}.. z241e{left};
+kouki(241,5,1); z242=z22; ka(242,-90); z243=(3u,5.6v); ka(243,0); kouki(243,1,1);
+mpalla(25,1.2); z244=(2.3u,4.7v); ka(244,0); kouki(244,2,1); penstroke
+z68'e{left}..z244e{up}; penstroke z242e{right}..z243e{up}; z245=(7.05u,3.5v);
+z246=(6.6u,4v); ka(245,0); ka(246,90); penstroke z48e{right}..z245e{up}..
+z246e{left}; penlabels(range 1 thru 230);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitD.mf b/fonts/gothic/yinit/yinitD.mf
new file mode 100644
index 0000000000..83ecb2b11e
--- /dev/null
+++ b/fonts/gothic/yinit/yinitD.mf
@@ -0,0 +1,121 @@
+.cmchar "The letter D";
+.beginchar("D",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); % 9911558 ajhna
+z1=(2.5u,8.1v); mpalla(1,1.5); z2=(2.5u,8v); z3=(2.1u,7.8v); z4=(1.75u,8.25v);
+z5=(0.75u,7.8v); z6=(2.1u,6.65v); z7=(2.7u,6.8v); z8=(4.4u,7.5v);
+z8'=(6.85u,6.7v); z9=(7.65u,5v); z10=(6.5u,1.4v); z11=(4.8u,0.7v);
+z12=(3.3u,1.55v); z13=(1.8u,2.25v); z14=(0.65u,1.2v); z15=(1.35u,0.4v);
+z16=(1.85u,0.8v); z17=(1.75u,1.05v); z18=(1.5u,1.1v); z19=(1.35u,1.3v);
+z20=(1.5u,1.45v); ka(2,-180); penpos3(0.35v,43); penpos4(0.4v,41);
+penpos5(0.1u,180); penpos6(0.75v,-90); penpos7(0.9v,-65); penpos8(0.95v,-73);
+penpos8'(0.9uv,-134); penpos9(0.75u,-180); ka(10,133); penpos11(0.5v,90);
+penpos12(0.9uv,45); penpos13(0.4v,90); ka(14,180); ka(15,-90);
+penpos16(0.25u,0); penpos17(0.35uv,45); penpos18(0.25v,90); penpos19(0.15u,0);
+ka(20,-90); penstroke
+z2e{down}...z3e...z4e...z5e...z6e...z7e...z8e...z9e...z10e...z11e...
+z12e...z13e...z14e...z15e...z16e...z17e...z18e...z19e...{right}z20e;
+z21=(4.85u,5.9v); z22=(5u,5.8v); z23=(5.35u,6.2v); z24=(4.3u,6.3v);
+z25=(3.8u,5.55v); z26=(4.1u,4.95v); z27=(4.75u,4.15v); z28=(5u,3.3v);
+z29=(3.5u,1.4v); penpos21(hair,180); penpos22(0.25v,-90); penpos23(0.35u,0);
+penpos24(2hair,117); penpos25(0.55u,180); penpos26(0.8uv,-144);
+penpos27(0.8uv,-144); penpos28(0.55u,180); penpos29(hair,121); penstroke
+z21e{down}...z22e...z23e...z24e...z25e...z26e...z27e...z28e...
+{(1.2u,0)-(9u,4.8v)}z29e; z30=(2.95u,4.15v); z30.2=(3.5u,3.85v);
+z31=(3.3u,1.55v); penpos30(1.35uv,36.5); penpos30.2(0.7uv,45.5);
+penpos31(hair,133); z30'=z30+(0.1u,0); filldraw flex(z30l,z30',z30r) &
+z30r{down}...z30.2r...{(1.8u,0)-(9u,7v)}z31l & z31l--z31r &
+z31r{(9u,7v)-(1.8u,0)}...z30.2l...z30l & cycle; z32=(2.7u,1.3v);
+z33=(1.6u,2.5v); z34=(2.5u,3.35v); z35=(3.1u,3.05v); z36=(2.8u,2.7v); ka(32,90);
+ka(33,0); penpos34(0.12v,-90); penpos35(0.3u,180); penpos36(0.5v,90);
+mpalla(36,2.5); penstroke
+z31e{(0.7u,0)-(9u,4.8v)}...z32e...z33e...z34e...{down}z35e...{left}z36e;
+z37=(5.8u,8.5v); z38=(5.4u,8.1v); z39=(4.7u,8.5v); z40=(3.9u,8.2v);
+z41=(3.35u,8v); z42=(2.3u,8.5v); z43=(1.45u,8.8v); z44=(0.05u,7.65v);
+z45=(0,7.2v); z46=(1.9u,5.5v); z66'=(4.25u,6.6v); z47=(5u,6.7v); z48=(7.05u,4v);
+z49=(5.5u,1.2v); ka(37,180); z37'=z37; ka(37',0); kouki(37',1,1.2); ka(38,90);
+ka(39,90); ka(40,126); ka(41,90); ka(42,60); mpalla(42,1.1); ka(43,90);
+ka(44,170); ka(45,180); ka(46,-90); ka(66',-75); ka(47,-90); ka(48,180);
+ka(49,108); penstroke
+z37e{down}...z38e{left}...z39e{left}...z40e...z41e{left}...z42e...
+z43e...z44e...z45e...z46e...{(9u,8v)-(0,5.3v)}z66'e...z47e...z48e...
+{(2u,0)-(9u,2.4v)}z49e; mpalla(44,1.2); mpalla(45,1); mpalla(66',1);
+z50=(1.35u,7.3v); z51=(1.5u,7.1v); z52=(1.7u,7.5v); z53=(1.35u,7.7v);
+z54=(0.7u,6.9v); z55=(1.4u,6.05v); z55.2=(0.2u,5.5v); z55.3=(0.5u,5.1v);
+z55.4=(0.8u,5.4v); z55.5=(0.6u,5.55v); z55'=z55; ka(55,-112); ka(55',68);
+ka(55.2,180); ka(55.3,-90); ka(55.4,0); ka(55.5,90); kouki(55.5,7,1); penstroke
+z55'e{(0,6.6v)-(9u,3.2v)}...z55.2e{down}...z55.3e{right}...z55.4e{up}
+...{left}z55.5e; z56=(2.15u,5.9v); mpalla(56,1); z57=(0.6u,4.3v);
+z58=(0.7u,4.2v); z59=(u,4.5v); z60=(0.6u,4.8v); z61=(0.25u,4.4v);
+z62=(0.95u,3.7v); z63=(1.8u,4.3v); mpalla(63,1.2); z64=(2.25u,4.8v);
+z65=(3.2u,5v); z67=(3.4u,4.2v); ka(50,180); z50'=z50; ka(50',0);
+kouki(50',2,1); ka(51,-90); ka(52,0); ka(53,90); ka(54,180); ka(56,-90);
+z66=z66'; ka(66,-71); penstroke
+z50e{down}...z51e...z52e...z53e...z54e...z55e...z56e... {(9u,8v)-(0,5.3v)}z66'e;
+ka(57,180); ka(58,-90); ka(59,0); ka(60,90); ka(61,180); ka(62,-90); ka(63,-40);
+ka(64,-40); ka(67,32); ka(65,0); z57'=z57; ka(57',0); kouki(57',2,1); penstroke
+z57e{down}...z58e...z59e...z60e...z61e...z62e...z63e---z64e...
+{(9u,8v)-(0,5.3v)}z66'e; penstroke
+z67e{(0,8.2v)-(7u,0)}...z65e...{(9u,8v)-(0,5.3v)}z66'e; z68=(1.35u,0.75v);
+z69=(0.9u,1.2v); z70=(1.5u,1.7v); z71=(2.3u,0.9v); z72=(1.3u,0);
+z73=(0.15u,1.4v); mpalla(73,1.2); z74=(2.1u,3v); z75=(4.5u,1.3v); z76=(3.5u,0);
+z77=(2.8u,0.65v); ka(68,90); ka(69,0); ka(70,-90); ka(71,180); ka(72,90);
+ka(73,0); ka(74,-90); ka(75,180); ka(76,90); ka(77,0); kouki(77,2,1);
+z76'=z76+(0,0.2v); mpalla(76',2); penstroke
+z68e{left}...z69e...z70e...z71e...z72e...z73e...z74e...z75e...
+{left}z76e...{up}z77e; z78=(3.7u,1.2v); z78'=(5u,2.25v); z79=(6.6u,2.9v);
+z80=(8.35u,1.2v); mpalla(80,1.2); z81=(7.15u,0); z82=(5.95u,v); z83=(6.8u,2.1v);
+z84=(7.6u,1.5v); z85=(7.2u,v); z86=(6.7u,1.3v); z87=(5.95u,4.1v);
+z88=(7.2u,6.3v); z89=(7.8u,7.8v); z90=(7.2u,8.5v); z91=(6.7u,8.3v);
+z92=(6.2u,8.1v); z93=(6.9u,7.9v); z94=(5.6u,4v); z95=z89; z96=(8.8u,7v);
+z97=(8.3u,6.2v); z98=(7.7u,6.7v); z98'=z98+(0.15u,0); mpalla(98',1.5);
+z99=(8.1u,7.2v); z100=(8.35u,6.9v); ka(78,-54); ka(78',-54); ka(79,-90);
+ka(80,180); ka(81,90); ka(82,0); ka(83,-90); ka(84,180); ka(85,90); ka(86,0);
+penstroke
+z78e{(9u,5v)-(2u,0)}...z78'e{(9u,5v)-(2u,0)}...z79e...z80e...z81e{left}...
+z82e...z83e...z84e...z85e...{up}z86e; ka(87,-11); ka(88,-35); ka(89,0);
+ka(90,90); ka(91,135); ka(92,90); ka(93,-90); ka(94,0); ka(95,-90); ka(96,180);
+ka(97,90); ka(98,0); ka(99,-90); ka(100,180); penstroke
+z78'e{(9u,5v)-(2u,0)}...z87e...z88e...z89e...z90e...
+{(0,2v)-(7.5u,9v)}z91e...{left}z92e; kouki(92,5,1); penstroke
+z91e{(0,2v)-(7.5u,9v)}...{right}z93e; kouki(93,6,1.2); penstroke
+z78'e{(9u,5v)-(2u,0)}...{up}z94e...z95e{right}...z96e...z97e...z98e
+...z99e...{down}z100e; z101=(5.3u,3v); z102=(6.35u,4.1v); z103=(5.25u,5.5v);
+z104=(4.25u,5.8v); z105=(4.5u,6.15v); z106=(4.5u,4.8v); z107=(5.4u,4.05v);
+z108=(6.3u,3.9v); z109=(6.5u,3.6v); z110=(6.75u,3.4v); z111=(6.6u,3.2v);
+ka(101,-90); ka(102,0); ka(103,90); ka(104,0); ka(105,-90); ka(106,180);
+ka(107,-90); ka(108,-126); ka(109,-90); ka(110,180); ka(111,90); z101'=z101;
+ka(101',90); penstroke z101'e{left}...{(0,8v)-(7.3u,0)}z67e; penstroke
+z101e{right}...z102e{up}...z103e{left}...z104e...{right}z105e; kouki(105,8,1);
+penstroke z103e{left}...z106e...z107e{right}...{(9u,1.2v)-(u,9v)}z108e;
+penstroke z101e{right}...z109e...z110e...{left}z111e; kouki(111,5,1);
+z112=(7.6u,2.6v); z113=(8.3u,2.4v); z114=(8.6u,2.8v); z115=(8.25u,3.15v);
+z116=(7.95u,2.85v); z117=(8.2u,2.6v); ka(112,-122); ka(113,-90); ka(114,0);
+ka(115,90); ka(116,180); ka(117,-90); kouki(117,6,1.1); penstroke
+z112e...z113e...z114e...z115e...z116e...{right}z117e; z118=(8.05u,1.6v);
+z119=(7.85u,0.5v); z120=(8.5u,0); z121=(8.8u,0.3v); z122=(8.65u,0.45v);
+ka(118,180); ka(119,180); ka(120,-90); ka(121,0); ka(122,90); kouki(122,7,1.1);
+penstroke z112e...z118e...z119e...z120e...z121e...{left}z122e;
+z123=(0.8u,2.45v); z124=(1.4u,3.5v); z125=(0.8u,4.15v); z126=(0.25u,3.6v);
+z127=(0.6u,3.2v); z128=(0.8u,3.4v); z128'=(0.65u,3.55v); ka(123,-49); ka(124,0);
+ka(125,90); ka(126,180); ka(127,-90); ka(128,0); ka(128',90); kouki(128',7,1);
+penstroke z123e{(7.9u,9v)-(0,1.7v)}...z124e...z125e...z126e...z127e...z128e
+...{left}z128'e; z129=(5.3u,1.9v); z130=(5.65u,1.6v); ka(129,-90); ka(130,180);
+penstroke z78e...z129e...{down}z130e; kouki(130,3,1); z131=(5.7u,2.55v);
+z132=(6.2u,2.25v); z133=(6u,2.05v); ka(131,-90); ka(132,180); ka(133,90);
+kouki(133,5,1.2); penstroke z78'e...z131e...z132e...{left}z133e; mpalla(85,1.3);
+z200=(2.3u,3.65v); z201=(3.05u,4.45v); z202=(1.65u,5.7v);
+triaina(201,200,202,0.3); z203=z11; ka(203,180); z204=(5.4u,0.1v); ka(204,-90);
+penstroke z203e{down}..z204e{right}; kouki(204,6,1); z205=(8.2u,1.05v);
+z206=(7.8u,0.4v); z207=(7u,1.75v); triaina(205,206,207,0.6); z208=(8u,6.1v);
+z209=(8.7u,5.2v); z210=(7.8u,4v); ka(208,-90); ka(209,180); ka(210,90);
+penstroke z102e{up}..z208e{right}.. z209e{down}..z210e{left}; z211=(8.5u,3.6v);
+mpalla(211,1.3); z212=(6.55u,3.95v); z213=(6.55u,4.5v); z214=(7.5u,3.95v);
+triaina(212,213,214,0.7); z215=(5.2u,5.05v); ka(215,90); penstroke
+z107e{right}..z215e{left}; z216=(4.9u,1.45v); mpalla(216,1.3); z217=z40;
+ka(217,90); z218=(3.2u,8.75v); ka(218,0); penstroke z217e{dir210} ..z218e{up};
+kouki(218,2,1.1); z219=(8.9u,8.5v); ka(219,0); penstroke z95e{right}..
+z219e{up}; kouki(219,1,1.3); z220=(6.05u,5.8v); mpalla(220,1); z221=(7.8u,5.6v);
+z222=(8.4u,5.2v); ka(221,-90); ka(222,180); penstroke z221e{right}..z222e{down};
+kouki(222,3,1);
+penlabels(range 1 thru 225); .endchar;
+
diff --git a/fonts/gothic/yinit/yinitE.mf b/fonts/gothic/yinit/yinitE.mf
new file mode 100644
index 0000000000..2d3a337843
--- /dev/null
+++ b/fonts/gothic/yinit/yinitE.mf
@@ -0,0 +1,100 @@
+.cmchar "The letter E";
+.beginchar("E",8.9u#-1mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(1.5u,1.6v); z2=(1.8u,1.5v); z3=(2.2u,1.8v); z4=(2.2u,2.25v);
+z5=(2.6u,2.3v);z6=(3u,1.5v); z7=(2u,0.55v); z8=(0.7u,1.8v); z9=(2u,3.3v);
+z10=(3.6u,2.8v); z11=(4.7u,1.5v); z12=(6.7u,0.8v); z13=(8.15u,2.2v);
+z14=(7.2u,3.25v); z15=(6.45u,2.8v); z16=(6.7u,2.3v); z17=(7u,1.95v);
+z18=(6.7u,1.7v); z19=(4.45u,1.75v); z20=(4.5u,1.65v); z21=(5.75u,4v);
+z22=(5.55u,4.6v); z23=(4.05u,5.7v); z24=(3.7u,6.5v); z25=(4.4u,7.5v);
+z26=(6.05u,7.3v); z27=(6.45u,6.7v);z28=(5.25u,5v); z29=(7.1u,4.95v);
+z30=(7.3u,4.55v); penpos1(hair,180); z1'=z1; ka(1',0); kouki(1',2,1.2);
+penpos2(0.2v,-90); penpos3(0.5u,9.5); penpos4(0.55u,-20); penpos5(0.2v,-90);
+ka(6,180); ka(7,90); ka(8,0); penpos9(0.45v,-90); penpos10(0.85uv,-138);
+penpos11(0.8uv,-142);penpos12(0.45v,-90); penpos13(1.2hair,0); ka(14,90);
+penpos15(0.4u,180); penpos16(0.5uv,-109); penpos17(0.2u,180); ka(18,90);
+penstroke z1e...z2e{right}... z3e{up}...z4e...z5e...z6e...z7e...
+z8e...z9e...z10e...z11e...z12e... z13e{up}...{left}z14e...z15e{down}...z16e...
+z17e{down}...{left}z18e; penpos19(hair,-41); ka(20,-50); penpos21(0.6u,0);
+penpos22(0.75uv,40); penpos23(0.9uv,58); penpos24(0.5u,0);
+penpos25(1.5hair,-64); penpos26(0.6uv,-145); penpos27(2uv,-145); penstroke
+z20e{(9u,5.5v)-(2.6u,0)}... z21e...z22e...z23e...z24e...z25e... {z27-z26}z26e;
+z19.1=(5u,3.3v); z19.2=(3.7u,4.6v); z19.3=(3.2u,4.5v); penpos19.1(0.4u,0);
+penpos19.2(0.75uv,63); penpos19.3(1.6uv,43); penstroke z19e{(9u,7v)-(3.1u,0)}...
+z19.1e{up}...z19.2e{(0,5.1v)-(9u,3.9v)} ...{z19.3-z19.2}z19.3e; ka(28,-58);
+penpos29(0.55uv,-139); penpos30(1.5uv,-139); penstroke z28e{(9u,7.4v)-(0,2v)}...
+{z30-z29}z29e; penpos27.1(1.5hair,-235); z27.1l=z27r; penpos27.2(hair,-55);
+z27.2r=z27l; filldraw z26l{z27-z26}...{z27.2-z27.1} z27.2l & z27.2l--z27.2r &
+z27.2r--z27.1l & z27.1l--z27.1r & z27.1r{z27.2-z27.1} ...{z26-z27}z26r &
+z26r--z26l & cycle; penpos30.1(1.5hair,-49); z30.1r=z30l; filldraw
+z29l{z30-z29}...{z30l-z30r} z30.1l & z30.1l--z30.1r & z30.1r--z30r &
+z30r{z30l-z30r}...z29r & z29r--z29l & cycle; z31=(4.4u,4.8v); z32=(3.5u,2.8v);
+z33=(3u,0.4v); z34=(2u,0); z35=(1.5u,0.1v); z36=(0.1u,2v); z37=(0.15u,2.4v);
+z38=(1.5u,3.9v); z39=(2.35u,4v); z40=(4.65u,2.5v); z40'=(4.45u,2.15v);
+z41=(4.25u,2.5v); z42=(5.35u,3.2v); z43=(6.55u,2v); z44=(5.2u,0.4v);
+z45=(3.45u,1.55v); z46=(4.1u,3.8v); z47=(7.4u,7.8v); z48=(6.9u,8.35v);
+z49=(6.7u,7.9v); z50=(8u,5.3v); z51=(7.8u,5.6v); ka(31,-141); ka(32,180);
+ka(33,127); ka(34,90); ka(35,77); mpalla(33,1.5); mpalla(35,1.3); ka(36,0);
+ka(37,-9); ka(38,-65); ka(39,-90); ka(40,180); ka(40',90); ka(41,0); ka(42,-90);
+ka(43,180); ka(44,90); ka(45,31); ka(46,-31); ka(47,0); ka(48,90); ka(49,-90);
+kouki(49,6,1.2); ka(50,0); ka(51,90); kouki(51,7,1.5); penstroke
+z27.1e{z27r-z27l}...z31e... z32e...z33e...z34e...z35e...z36e...z37e
+...z38e...z39e...{down}z40e...z40'e... {up}z41e...z42e...z43e...z44e...z45e...
+z46e...z28e{(9u,7.4v)-(0,2v)}; penstroke z27.2e{z27l-z27r}...z47e...
+z48e{left}...{right}z49e; penstroke z30.1e{z30l-z30r}...z50e... {left}z51e;
+z52=(7.5u,4.1v); z53=(8.15u,4.3v); z54=(8.2u,3.4v); z55=(7.8u,2.7v);
+z56=(7.2u,3.4v); z57=(7.6u,3.65v); z58=(6.25u,4.2v); z59=(7.2u,6.85v);
+z60=(8u,6v); z61=(7.4u,5.5v); z62=(6.9u,6v); z63=(7.2u,6.3v);
+z64=(5.75u,6.3v); z65=(6.8u,8.65v); z66=(8u,7.5v); z67=(7.35u,6.6v);
+z68=(6.7u,7.2v); z69=(7.15u,7.3v); z70=(7.55u,7.5v); z71=(6.5u,8.1v);
+z72=(6u,8.55v); z73=(5.8u,8.4v); z74=(6u,8.2v); z75=(4.7u,8.8v);
+z75.1=(5u,8.6v); z75.2=(4.9u,8.35v); z75.3=(5u,8.05v); penpos75.1(0.25u,180);
+penpos75.2(0.4uv,-147); ka(75.3,-124); z76=(2.5u,8.3v); z77=(0.75u,7v);
+z78=(1.9u,5.9v); z78'=(2.6u,6.1v); z79=(3u,6.8v); z80=(2.1u,7.8v);
+z81=(1.5u,7.3v); z82=(1.8u,6.9v); z83=(2.05u,6.95v); z84=(2.4u,6.5v);
+z85=(2.1u,6.35v); z86=(2.05u,5.2v); z87=(2.7u,4.55v); z88=(3.25u,5v);
+z89=(3u,5.4v); z90=(2.75u,5.25v); z91=(0.7u,4.4v); z92=(0,5v);
+z93=(0.5u,5.55v); z94=(0.8u,5.2v); z94'=(0.7u,4.9v); z95=(0.3u,5.9v);
+z96=(3u,7.6v); z97=(1.5u,7.4v); z98=(0,8.3v); z98'=(0.5u,8.7v);
+z99=(0.5u,8.2v); z100=(0.35u,8.35v); z101=(1.9u,8.7v); z102=(3.3u,7v);
+z103=(1.2u,5.2v); z104=(2.6u,3.6v); z105=(8.3u,0.7v); z106=(7.8u,0);
+z107=(7.45u,0.4v); z108=(7.7u,0.65v); ka(52,-90); ka(53,0); ka(54,180);
+ka(55,90); ka(56,0); ka(57,-90); ka(58,0); ka(59,-90); ka(60,180); ka(61,90);
+ka(62,0); ka(63,-90); ka(64,27); ka(65,-90); ka(66,180); ka(67,90); ka(68,0);
+ka(69,-90); ka(70,180); ka(71,0); ka(72,90); ka(73,180); ka(74,-90);
+ka(75,-90); ka(76,90); ka(77,180); mpalla(77,1.5); ka(78,-90); ka(79,0);
+ka(80,90); penpos81(2hair,180); penpos82(0.5v,-90); ka(94',90);
+penpos83(0.45uv,-59); ka(84,180); ka(85,90); ka(86,180); ka(87,-90); ka(88,0);
+ka(89,90); ka(90,90); ka(91,90); ka(92,0); ka(93,-90); ka(94,180); ka(95,0);
+ka(96,90); ka(97,90); ka(98,0); ka(98',-90); ka(99,90); ka(100,0); ka(101,-85);
+ka(102,90); ka(103,180); ka(104,-90); ka(105,180); ka(106,90); ka(107,0);
+ka(108,-90); z52'=(4.65u,1.65v); ka(52',-57); z52.2=(6.05u,2.95v); ka(52.2,-38);
+penstroke z52'e{(9u,4.7v)-(2.3u,0)}...z52.2e...{right}z52e...{up}z53e;
+kouki(53,1,1.2); penstroke z52e{right}...{down}z54e...z55e...z56e...{right}z57e;
+penstroke z52'e{(9u,4.7v)-(2.3u,0)}...{up}z58e...{right}z59e...z60e...z61e...
+z62e...{right}z63e; kouki(63,8,1.5); penstroke
+z58e{up}...z64e...z65e{right}...z66e...z67e...z68e...z69e... {down}z70e;
+kouki(70,3,1.2); z75.4=(4.3u,8.4v);ka(75.4,0); penstroke
+z68e{up}...z71e...z72e...z73e...{right}z74e; penstroke
+z64e{(4.2u,9v)-(9u,0.6v)}...z75.4e...{right}z75e...z75.1e{down}...z75.2e{(0,4v)-(5.6u,9v)}
+...{(9u,5.8v)-(3.4u,9v)}z75.3e; penstroke
+z64e{(4.2u,9v)-(9u,0.6v)}...z76e...z77e...z78e...z79e...z80e...
+z81e...{right}z82e...z83e...{down}z84e...{left}z85e; ka(78',126); penstroke
+z78'e{(0,4v)-(6.25u,9v)}...{down}z86e...z87e...z88e... {left}z89e;
+kouki(89,7,1); penstroke z89e...z90e...z91e...z92e...z93e...z94e...{left}z94'e;
+kouki(94',5,1.2); penstroke z92e{up}...{up}z95e; kouki(95,1,1.2); penstroke
+z58e{up}...{left}z96e...{left}z97e...z98e...z98'e...z99e...z100e...
+{right}z101e; z23'=z23; penpos23'(hair,0); penstroke
+z58e{up}...z102e{left}...z103e...z104e...z23'e; z105.1=(5.5u,1.65v);
+z105.2=(6.9u,1.3v); z105.3=(7.7u,2.2v); z105.4=(7.1u,2.75v); ka(105.1,-120);
+ka(105.2,-90); ka(105.3,0); ka(105.4,90); penstroke
+z105.1e{(8.5u,0)-(0,4.6v)}...z105.2e...z105.3e...{left}z105.4e; penstroke
+z105.2e{right}...z105e{down}...z106e...z107e...{right}z108e; kouki(108,8,1.5);
+kouki(57,8,1.2); mpalla(105.2,1.2); mpalla(45,1.5); mpalla(37,1.6);
+z109=(3.85u,v); z110=(4.4u,0.55v); z111=(4.2u,0.3v); z112=(3.9u,0.5v);
+z113=(3.5u,0.4v); ka(109,-90); ka(110,180); penpos111(0.2v,90);
+penpos112(0.2uv,45); ka(113,180); kouki(113,4,1); z33'=z33; ka(33',-53);
+penstroke z33'e{(9u,5.6v)-(2.5u,0)}...z109e...
+z110e...z111e...z112e...{down}z113e;
+penlabels(range 1 thru 120); .endchar;
+
diff --git a/fonts/gothic/yinit/yinitF.mf b/fonts/gothic/yinit/yinitF.mf
new file mode 100644
index 0000000000..7e45909d36
--- /dev/null
+++ b/fonts/gothic/yinit/yinitF.mf
@@ -0,0 +1,109 @@
+.cmchar "The letter F";
+.beginchar("F",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.2u,5.3v); z2=(3.6u,5.7v); z3=(3.45u,6.05v); z4=(2.95u,6.25v);
+z5=(2.45u,6.65v); z6=(2.5u,7v); z7=(3.25u,7.45v); z8=(4.45u,6.25v);
+z9=(3u,4.65v); z10=(1.35u,6.4v); z11=(3.35u,8.45v); z12=(5.5u,7.45v);
+z13=(7.8u,6.4v); z14=(8.8u,7.6v); z15=(7.8u,8.5v); z16=(7.15u,7.9v);
+z17=(7.7u,7.45v); z18=(8.1u,7.4v); z19=(8.25u,7.75v); z20=(4.7u,0.95v);
+z21=(5.7u,1.7v); z22=(6.8u,3.4v); z23=(6.4u,4.25v); z24=(5.1u,5.15v);
+z25=(4.9u,6v); z26=(5.9u,7v); z27=(4.3u,0.2v); z28=(4.4u,1.5v);
+z29=(2.2u,2.3v); z30=(1.85u,3.3v); z31=(3u,4.3v); z32=(3.75u,3.6v);
+z33=(3.15u,2.85v); z34=(2.6u,3.35v); z35=(2.85u,3.75v); z36=(4.25u,4.2v);
+z37=(4.65u,4v); z38=(5.9u,2.8v); z39=(5.45u,1.95v); z41=(6.2u,4.75v);
+z42=(8u,4.6v); penpos1(hair,-90); penpos2(0.1u,0); penpos3(0.5uv,42);
+penpos4(0.9v,90); penpos5(0.65uv,37); penpos6(0.25u,0); penpos7(1.5hair,-90);
+penpos8(1.5hair,180); penpos9(1.5hair,90); penpos10(1.5hair,0);
+penpos11(0.7v,-90); penpos12(uv,-140); penpos13(0.5uv,-90); penpos14(0.2u,0);
+penpos15(hair,90); penpos16(hair,180); penpos17(0.4v,-90); penpos18(0.2v,-90);
+penpos19(hair,0); penpos20(hair,-35); penpos22(0.8u,0); penpos21(1.5hair,-35);
+penpos23(uv,51); penpos24(uv,51); penpos25(0.475u,0); penpos26(hair,-52);
+penpos27(hair,-23); penpos28(1.05uv,60); penpos29(0.8uv,42); penpos30(0.4u,0);
+penpos31(1.5hair,-90); penpos32(hair,180); penpos33(hair,90);
+penpos34(hair,0); penpos35(hair,-90); penpos36(1.4uv,50); penpos37(0.8uv,52);
+penpos38(0.3u,0); penpos39(hair,-53); penpos41(hair,40);
+penpos42(0.8uv,-140); penstroke
+z1e{right}...{up}z2e...z3e...{left}z4e...z5e...z6e...z7e...z8e...z9e...z10e...
+z11e...z12e...z13e...z14e...{left}z15e...{down}z16e...z17e...z18e...{up}z19e;
+penstroke z20e{(9u,9v)-(4.1u,0)}...z21e...z22e...z23e...z24e...z25e...
+{(8.8u,9v)-(0,2.9v)}z26e; penstroke
+z27e{(7.2u,9v)-(4.2u,0)}...z28e{(0,4.3v)-(6.9u,0)}...z29e...z30e...
+z31e...z32e...z33e...z34e...{right}z35e; kouki(35,8,2); z36'=z36+(0.1u,0);
+z37'=(5.7u,3.8v); filldraw flex(z36l,z36',z36r) &
+z36r{down}...z37r...z37'...z38r...{(2.95u,0)-(9u,4.7v)}z39r & z39r--z39l &
+z39l{(9u,4.7v)-(2.95u,0)}...z38l...z37l...{(0,2.3v)-(9u,5.5v)}z36l & cycle;
+penpos42.1(1.5hair,-50); penpos42.2(1.5hair,-230); z42.1r=z42l; z42.2l=z42r;
+penpos43(hair,-50); penpos44(hair,-230); z43=(8.7u,5.15v); z44=(7.4u,4v);
+z41'=(7.5u,5.45v); filldraw z41l{(9u,8v)-(2u,0)}...z41'...z42.1l...z43l &
+z43l--z43r & z43r--z44l & z44l--z44r & z44r...z42.2r...{(2u,0)-(9u,8v)}z41r &
+z41r--z41l & cycle; z50=(7.55u,1.8v); z51=(7.05u,1.85v); z52=(7.1u,2.15v);
+z53=(7.5u,2.4v); z54=(8.15u,1.7v); z55=(6.85u,0.85v); mpalla(55,1.2);
+z56=(5.2u,0.45v); z57=(5.8u,0.1v); z58=(6.15u,0.4v); z59=(5.9u,0.6v);
+z60=(5.4u,1.55v); z61=(2.8u,3.25v); z62=(1.4u,2.8v); z63=(0.8u,1.5v);
+z64=(1.2u,0.4v); z65=(2.15u,0); z66=(3.2u,1.7v); z67=(2.25u,2.05v);
+z68=(1.4u,1.3v); z69=(1.7u,0.8v); z70=(2.25u,0.8v); z71=(2.6u,1.2v);
+z72=(0.6u,0); z73=(0.1u,0.5v); z74=(0.45u,v); z75=(0.8u,0.7v);
+z76=(0.65u,2.4v); z77=(0.05u,3v); z78=(0.5u,3.4v); z79=(0.8u,3.1v);
+z80=(0.65u,2.85v); z81=(2.7u,5.3v); z82=(1.55u,4.3v); z83=(0.8u,3.65v);
+z84=(0.4u,4v); z85=(0.6u,4.2v); z86=(2.2u,3.65v); z87=(2.7u,4.15v);
+z88=(2.3u,4.5v); z89=(4.2u,5v); z89'=(3.9u,6.3v); z90=(1.8u,8v);
+z91=(0.15u,6.5v); mpalla(91,1.3); z92=(1.25u,5v); z93=(2.15u,6.05v);
+z94=(1.4u,6.9v); z95=(0.65u,6.3v); z96=(1.25u,5.7v); z97=(1.7u,6.1v);
+z98=(2.45u,7.4v); z99=(1.4u,8.6v); z100=(1.9u,9.15v); z101=(2.25u,8.8v);
+z102=(2u,8.6v); z103=(1.5u,7.3v); z104=(0,8.5v); z105=(0.75u,9.15v);
+z106=(1.05u,9v); z107=(0.95u,8.65v); z108=(0.7u,8.4v); z109=(0.8u,8.2v);
+z110=(5.55u,4.8v); z111=(7.4u,8v); z112=(5.9u,9.3v); z113=(4.3u,7.7v);
+z114=(5.5u,6.5v); z115=(6.85u,7.7v); z116=(5.9u,8.6v); z117=(7.5u,5.8v);
+z118=(9.05u,4.25v); mpalla(118,1.2); z119=(7.9u,3v); z120=(6.8u,3.9v);
+z121=(7.65u,4.8v); z122=(8.35u,4.2v); z123=(7.9u,3.6v); z124=(7.25u,1.65v);
+z125=(8.3u,1.3v); z126=(9.05u,2.05v); z127=(8.6u,2.5v); z128=(8.3u,2.2v);
+z129=(8.5u,1.95v); z130=(9u,0.55v); z131=(8.65u,0.15v); z132=(8.4u,0.4v);
+z133=(7.85u,0.6v); z134=(7.5u,0.05v); z135=(7.15u,0.3v); z136=(7.3u,0.55v);
+z137=(2.6u,8.75v); z138=(3.65u,9.1v); z139=(6.2u,7.9v); z140=(7.7u,6.9v);
+z141=(8.1u,8.2v); z141'=(7.3u,9v); mpalla(141',1.2); ka(50,90);
+penpos51(0.5uv,45); penpos52(0.2u,0); ka(53,-90); ka(54,180); ka(55,90);
+ka(56,180); penpos57(0.25v,-90); ka(58,0); ka(59,90); ka(60,49); ka(61,90);
+ka(62,125); ka(63,180); ka(64,-135); ka(65,-90); ka(66,0); ka(67,90);
+ka(68,180); ka(69,-122); penpos70(0.2v,-90); ka(71,0); ka(72,90); ka(73,0);
+ka(74,-90); ka(75,180); ka(76,90); ka(77,0); ka(78,-90); ka(79,180); ka(80,90);
+ka(81,90); ka(82,180); ka(83,90); ka(84,0); ka(85,-90); ka(86,-90); ka(87,0);
+ka(88,90); ka(89,12); ka(89',25); ka(90,90); ka(91,180); ka(92,-90); ka(93,0);
+ka(94,90); ka(95,180); ka(96,-90); ka(97,0); kouki(97,1,1.5); ka(98,65);
+ka(99,0); ka(100,-90); ka(101,180); ka(102,90); kouki(102,5,1.1); ka(103,86);
+ka(104,0); ka(105,-90); penpos106(0.2u,180); penpos107(0.3uv,132);
+penpos108(0.2u,180); ka(109,-90); ka(110,-43); ka(111,0); ka(112,90);
+ka(113,180); ka(114,-90); ka(115,0); ka(116,90); kouki(106,7,1.2); ka(117,-90);
+ka(118,180); ka(119,90); ka(120,0); ka(121,-90); ka(122,180); ka(123,90);
+kouki(123,5,1); penpos124(0.3uv,-140); ka(125,-90); ka(126,0); ka(127,90);
+ka(128,180); ka(129,-90); kouki(129,6,1.1); ka(130,180); ka(131,90); ka(132,0);
+kouki(132,2,1.1); ka(133,180); ka(134,90); ka(135,0); ka(136,-90);
+kouki(136,8,1.1); ka(137,-51); ka(138,-90); ka(139,-135); ka(140,-90);
+ka(141,90); kouki(141,7,1); penstroke
+z50e{left}...z51e...z52e...z53e...z54e...z55e{left}...z56e...z57e...
+z58e...{left}z59e; penstroke
+z55e{left}...z60e...z61e...z62e{(0,1.6v)-(8.8u,9v)}...z63e...z64e...
+z65e...z66e...z67e...z68e...z69e...z70e...{up}z71e; penstroke
+z68e{down}...z72e...z73e...z74e...{down}z75e; kouki(75,5,1.2); penstroke
+z62e{(0,1.6v)-(8.8u,9v)}...z76e...z77e...z78e...z79e...{left}z80e;
+kouki(80,5,1.2); penstroke
+z60e{(0,7v)-(7u,0)}...z81e...z82e{down}...z83e...z84e...{right}z85e;
+kouki(85,8,1); penstroke z82e{down}...z86e...z87e...{left}z88e; kouki(88,7,1.3);
+penstroke z60e{(0,7v)-(7u,0)}...z89e{up}...z89'e...z90e...z91e...z92e...z93e...
+z94e...z95e...z96e...{up}z97e; penstroke
+z89'e{(3u,9v)-(6.1,0)}...z90e...z91e...z92e...z93e...z94e...z95e...
+z96e...{up}z97e; penstroke
+z89'e{(3u,9v)-(6.1,0)}...z98e...z99e...z100e...z101e...{left}z102e; penstroke
+z89'e{(3u,9v)-(6.1,0)}...z103e...z104e...z105e...z106e...z107e...
+z108e...{right}z109e; penstroke
+z60e{(0,7v)-(7u,0)}...z110e...z111e...z112e...z113e...z114e...z115e
+...{left}z116e; kouki(116,7,1.1); penstroke
+z110e{(9u,7.8v)-(0,0.3v)}...z117e...z118e...z119e...z120e...z121e...
+z122e...{left}z123e; mpalla(124,1.8); penstroke
+z124e...z125e...z126e...z127e...z128e...{right}z129e; penstroke
+z124e{(9u,0.5v)-(0,7v)}...z130e...z131e...{up}z132e; penstroke
+z124e{(9u,0.5v)-(0,7v)}...z133e...z134e...z135e...{right}z136e;
+z140'=(8.5u,7.5v); ka(140',0); penstroke
+z137e{(3u,9v)-(0,7.2v)}...z138e...z139e...z140e{right}...z140'e...{left}z141e;
+penlabels(range 1 thru 145);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitG.mf b/fonts/gothic/yinit/yinitG.mf
new file mode 100644
index 0000000000..57e62eb163
--- /dev/null
+++ b/fonts/gothic/yinit/yinitG.mf
@@ -0,0 +1,89 @@
+.cmchar "The letter G";
+.beginchar("G",8.9u#+0.1mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.45u,1.4v); z2=(4.35u,2.25v); z3=(3.8u,2.4v); z4=(3.05u,3.2v);
+z5=(3.75u,3.95v); z6=(4.15u,3.55v); penpos1(hair,0); penpos2(0.85uv,62);
+penpos3(0.8v,90); penpos4(0.3u,0); ka(5,-90); ka(6,-180); kouki(6,3,2);
+penstroke z1e{up}...z2e{(0,2.75v)- (5.1u,0)}...z3e{left}...z4e{up}...
+z5e{right}...z6e{down}; z11=(4.5u,1.9v); z12=(5.1u,2.45v); z13=(6.2u,4v);
+z14=(5.8u,4.9v); z15=(4.1u,5.8v); z16=(3.75u,6.5v); z17=(4.35u,7.6v);
+ka(11,-48); ka(12,-48); penpos13(0.65u,0); penpos14(0.95uv,50);
+penpos15(0.95uv,53); penpos16(0.65u,0); ka(17,-51); penstroke
+z11e{(9u,6.1v)-(2.5u,0)}... z12e{(9u,6.1v)-(2.5u,0)}...z13e{up}...
+z14e{(0.7u,9v)-(9u,2.3v)}... z15e{(0.7u,9v)-(9u,2.3v)}...z16e...
+{(6.8u,9v)-(0,5v)}z17e; z17.1=(6.45u,8.95v); z17.2=(7.75u,7.35v);
+z17.3=(6.33u,6.3v); z17.4=(6.2u,7.7v); z17.45=(5.2u,8.05v); z17.5=(6.2u,8.5v);
+z17.6=(7.3u,7.45v); z17.7=(8.45u,8.45v); penpos17.1(hair,-23.5);
+penpos17.2(0.3uv,-57); penpos17.3(hair,123); penpos17.7(hair,0); filldraw
+z17l{(6.8u,9v)-(0,5v)}... z17.45 & flex(z17.45,z17.5,z17.1l) & z17.1l--z17.1r &
+flex(z17.1r,z17.6,z17.7l) & z17.7l--z17.7r{up} & z17.7r{down}...z17.2r--z17.3l &
+z17.3l--z17.3r & flex(z17.3r,z17.4,z17r) & z17r--z17l & cycle; z18=(5.1u,5.3v);
+z19=(4.3u,3.6v); z20=(5.85u,2.3v); z21=(7.2u,3.5v); z22=(6.8u,3.95v);
+z23=(6.5u,3.7v);
+ z25=(7.8u,9v); z26=(7.2u,8.5v); z27=(7.6u,8v); z28=(8u,8.3v); ka(18,123);
+ka(19,-180); ka(20,-90); ka(21,0); ka(22,90); ka(23,-180); kouki(23,4,1.5);
+ka(25,90); ka(26,180); ka(27,-90); ka(28,0); kouki(28,1,1.2); penstroke
+z17.3e{z17.3-z17.2}...z18e... z19e...z20e...z21e...z22e...z23e{down}; penstroke
+z17.7e{up}... z25e...z26e...z27e...z28e{up}; z29=z18+(0.3u,-0.15v);
+z30=(8.1u,4.55v); z31=(6.7u,1.2v); z32=(2.15u,2.4v); z33=(3.35u,7.25v);
+z34=(4.4u,7.5v); z35=(6.55u,5.5v); z36=(4.4u,3.4v); z37.1=(2.9u,4.15v);
+z37=(2.6u,5v); z38=(4.45u,6.6v); z39=(5.3u,5.7v); ka(29,-57);
+penpos30(0.85uv,-152); penpos31(1.5hair,121); penpos32(uv,28);
+penpos33(1.5hair,-60.5); ka(34,-90); ka(35,-180); ka(36,90); ka(37,0);
+ka(37.1,38); ka(38,-90); ka(39,-180); penstroke z29e{(8.7u,9v)-(1.45u,0)}...
+z30e{(9u,2.8v)-(5.75u,9v)}...z31e... z32e...z33e...z34e...z35e...z36e...
+z37e...z38e...z39e... {(1.45u,0)-(8.7u,9v)}z18e; z7=(5.1u,2.7v); z8=(5.35u,3.4v);
+z9=(4.5u,4.35v); z10=(3.85u,4.55v); ka(7,-30); penpos9(0.6uv,58);
+penpos8(0.3u,0); penpos10(0.7uv,59); z10.1=z89=(2.3u,3.9v); z10.2=z15l;
+z10.3=(3.3u,4.6v); filldraw z7l{(9u,9v)-(3.4u,0)}... flex(z8l,(4.1u,4.1v),z10.1)
+& flex(z10.1,z10.3,z10.2) & z10.2...z10r... z9r...z8r...{(3.4u,0)-(9u,9v)}z7r &
+z7r--z7l & cycle; z29.2=z18; z40=(6.9u,6.05v); z41=(8.9u,4v); z42=(6.9u,0.8v);
+z43=(4.5u,0); z44=(1.9u,0.9v); z45=(0.65u,4v); z46=(1.45u,6.5v);
+z47=(5.3u,8.8v); z47.1=(7.9u,8.15v); z48=(8.85u,6.6v); z49=(8.1u,5.9v);
+z50=(7.55u,6.45v); z51=(7.95u,6.85v); z52=(8.3u,6.6v); z53=(0,0.8v);
+z54=(0.7u,0.1v); z55=(1.2u,0.7v); z56=(0.75u,1.1v); z57=(0.4u,0.8v);
+z58=(2.2u,0.95v); z59=(2.65u,0.5v); z60=(2.4u,0.1v); z61=(2.3u,8.35v);
+z62=(1.35u,9.25v); z63=(0.5u,8.5v); z64=(1.15u,7.7v); z65=(1.7u,8.25v);
+z66=(1.35u,8.65v); z67=(0.25u,7.7v); z68=(0.6u,7.2v); z69=(3.4u,7.8v);
+z70=(4u,8.65v); z71=(3.5u,9.25v); z72=(3u,8.9v); z73=(8.8u,7.7v); z74=(9.1u,8v);
+z74.1=(8.9u,8.25v); z75=(6.8u,2.65v); z76=(7.3u,2.8v); z77=(6.3u,1.5v);
+z78=(7.55u,0); z79=(8.6u,v); z80=(8u,1.75v); z81=(7.3u,1.2v); z82=(7.8u,0.6v);
+z83=(8.3u,1.45v); z84=(8.8u,2.25v); z85=(9u,2v); z86=(1.15u,5.1v);
+z87=(0.15u,4v); z88=(1.2u,2.9v); z90=(1.4u,4.6v); z91=(0.1u,5.4v);
+z92=(0.6u,6.5v); z92.1=(0.4u,6.85v); ka(29.2,-57); ka(40,-90); ka(41,180);
+ka(42,120); ka(43,90); ka(44,43); ka(45,0); ka(46,-32); ka(47,-78);
+ka(47.1,-126); ka(48,-168); ka(49,90); ka(50,0); ka(51,-90); ka(52,180);
+kouki(52,3,1.5); ka(53,180); ka(54,-90); ka(55,0); ka(56,90); ka(57,180);
+kouki(57,4,1.2); ka(58,-90); ka(59,180); ka(60,90); z60.2=(2.05u,0.35v);
+z60.3=(1.7u,0.4v); penpos60.2(0.2u,15); ka(60.3,100); ka(61,0); ka(62,90);
+ka(63,180); ka(64,-90); ka(65,0); mpalla(61,0.5); ka(66,90); ka(67,180);
+ka(68,-90);
+ ka(69,-70); mpalla(69,1); ka(70,0); ka(71,90); ka(72,180); kouki(72,4,1);
+ka(73,-90); ka(74,0); ka(74.1,90); kouki(74.1,7,1); mpalla(75,1.5); ka(75,129);
+ka(76,90); z76.1=z76; ka(76.1,-90); kouki(76.1,8,1.2); ka(77,180); ka(78,-90);
+ka(79,0); ka(80,90); ka(81,180); ka(82,-90); ka(83,45); ka(84,-90); ka(85,180);
+kouki(85,3,1.2); ka(86,90); ka(87,180); ka(88,-90); ka(89,0); ka(90,77);
+ka(91,0); ka(92,0); ka(92.1,54); penstroke z29e{(7.6u,9v)-(1.6u,0)}...
+z40e...z41e...z42e...z43e... {(0,2.7v)-(2.8u,0)}z44e...z45e...
+{(2.9u,9v)-(0,4v)}z46e...z47e... z47.1e{(9u,7.5v)-(6.6u,9v)}...
+z48e...z49e...z50e...z51e... {down}z52e; penstroke z44e{(0,2.7v)-(2.8u,0)}...
+z53e{down}...z54e{right}...z55e... z56e...{down}z57e; penstroke
+z54e{right}...z58e...z59e... z60e{left}...z60.2e{(0,3.8v)-(2.3u,0)}...
+{(u,0)-(9u,5.1v)}z60.3e; penstroke z46e{(2.9u,9v)-(0,4v)}...
+z61e{up}...z62e...z63e...z64e...z65e... z66e{left}; z150=(1.4u,8.2v);
+z151=(0.2u,8.2v); z152=(1.4u,9.3v); triaina(150,151,152,0.6); mpalla(42,1.5);
+mpalla(87,1.5); penstroke z46e{(2.9u,9v)-(0,4v)}...
+z69e...z70e...z71e...{down}z72e; penstroke z47.1e{(9u,7.5v)-(6.6u,9v)}...
+z73e...z74e...{left}z74.1e; penstroke z76e{left}...z75e...z77e...
+z78e...z79e...z80e...z81e...z82e... z83e...z84e...{down}z85e; penstroke
+z37.1e{(0,8v)-(6u,0)}...z86e...z87e... z88e...z89e...z90e...z91e...z92e...
+{(0,v)-(u,0.2v)}z92.1e; z100=(1.2u,7.2v); z101=(1.8u,8v); z102=(2.2u,6.5v);
+triaina(100,101,102,1/2); z103=(6.6u,1.6v); z104=(5.8u,1.1v); z105=(5.9u,2.6v);
+triaina(103,104,105,1/2); z106=(1.3u,0.9v); z107=(u,1.3v); z108=(2u,1.4v);
+triaina(106,107,108,0.7); mpalla(38,1.5); z109=(5.4u,7.25v); z110=(5.1u,7.6v);
+z111=(4.8u,7.35v); ka(109,0); ka(110,90); ka(111,180); penstroke
+z38e{right}...z109e...z110e ...{down}z111e; kouki(111,4,1); z111.1=(5.5u,6.45v);
+mpalla(111.1,2); z112=(1.85u,4.75v); z113=(1.85u,5.6v); z114=(3.4u,4.75v);
+triaina(112,113,114,0.6); penlabels(range 1 thru 115);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitH.mf b/fonts/gothic/yinit/yinitH.mf
new file mode 100644
index 0000000000..269cc8401a
--- /dev/null
+++ b/fonts/gothic/yinit/yinitH.mf
@@ -0,0 +1,123 @@
+.cmchar "The letter H";
+.beginchar("H",8.9u#+0.2mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(1.9u,0.3v); z2=(2.7u,1.1v); z3=(4.3u,3.55v); z4=(3.7u,4.9v);
+z5=(2.85u,6.35v); z6=(3.8u,7.8v); z7=(5.1u,5.85v); z8=(6.15u,8.6v);
+z9=(7.6u,7.1v); z10=(8.1u,8v); z11=(7.55u,8.55v); z12=(7.25u,8.3v);
+z13=(7.4u,8.1v); z14=(7.6u,8.2v); z15=(7.8u,8.1v); z16=(1.7u,1.8v);
+z17=(0.8u,2.9v); z18=(1.7u,3.75v); z19=(2.3u,3.2v); z20=(1.9u,2.75v);
+z21=(1.55u,3v); z22=(1.75u,3.25v); z23=(1.92u,3.15v); z27.2=(2.2u,4.65v);
+z24=(2u,3.1v); z25=(2.3u,1.4v); z26=(3.35u,3v); z27=(1.4u,4.3v);
+z28=(2.4u,5.3v); z28'=(3.1u,3.85v); z29=(5.6u,5.5v); z30=(7.6u,4.55v);
+z31=(7.9u,3.6v); z32=(6u,0.8v); z33=(4.85u,1.75v); z34=(5.65u,2.65v);
+z35=(6.45u,3.5v); z36=(6u,4.05v); z37=(5.75u,3.9v); z38=(5.9u,3.5v); ka(1,-31);
+ka(2,-55); penpos3(0.8u,0); penpos4(0.85uv,40); penpos5(0.65u,0);
+penpos6(1.5hair,-52); ka(7,117); ka(8,158); ka(9,-63); ka(10,0); ka(11,90);
+penpos12(1.5hair,180); penpos13(0.3v,-90); penpos14(0.2uv,-49); ka(15,-133);
+penpos16(0.85uv,62); penpos17(0.3u,0); penpos18(1.5hair,-90); ka(19,180);
+ka(20,90); penpos21(1.5hair,0); penpos22(0.3v,-90); penpos23(0.2uv,-135);
+ka(24,-135); ka(25,-59); penpos26(0.3u,0); ka(27,-68); ka(28,168);
+penpos27.2(0.9uv,43); ka(28',-21); penpos29(0.35v,-90); penpos30(0.85uv,-149);
+penpos31(0.75u,180); ka(32,90); ka(33,0); penpos34(0.8v,-90); penpos35(0.12u,0);
+ka(36,90); ka(37,180); ka(38,-90); kouki(38,6,1.5); filldraw
+z1r{(7.3u,9v)-(1.6u,0)}... z2r{(9u,5v)-(0.8u,0)}...z3r{up} & z3r--z3l &
+z3l{down}...z2l{(0.8u,0)-(9u,5v)} & z2l{(0,7.8v)-(3.2u,0)}... z16r ...z17r{up} &
+z17r--z17l & z17l{down}... z16l... flex(z16l,(1.9u,v),z1l) & z1l--z1r & cycle;
+penstroke z17e{up}...z18e...z19e... z20e...z21e...z22e...z23e...z24e; filldraw
+z25r{(9u,5.4v)-(0,0)}... z26r{up}...(3.3u,4.05v)...
+z27.2r...z28l{(3.2u,9v)-(1.1u,0)} & z28l--z28r & flex(z28r,(2u,4.8v),z27l) &
+z27l--z27r & z27r{(9u,7.2v)-(0,3.7v)}
+...z27.2l...(2.6u,4v)...z26l{down}...z25l{(0,0)-(9u,5.4v)} & z25l--z25r & cycle;
+penstroke z3e{up}...z4e...z5e{up}... z6e{(6u,9v)-(0,5.8v)}; filldraw
+z6r{(6u,9v)-(0,5.8v)}... (5.7u,7.3v)...z7r{(0,3.3v)-(9u,7.8v)}
+...z28'l{(1.4u,0)-(5.3u,9v)} & z28'l--z28'r & z28'r{(5.3u,9v)-(1.4u,0)}...
+{(9u,7.8v)-(0,3.3v)}z7l---z9r...z10r{up} & z10r--z10l & z10l{down}...z9l...
+(6.4u,7.35v)...z8l{(6.3u,9v)-(3u,0)} & z8l--z8r & z8r{(3u,0)-(6.3u,9v)}...
+z6l{(0,5.8v)-(6u,9v)} & z6l--z6r & cycle; penstroke z28'e{(5.3u,9v)-(1.4u,0)}...
+z29e...z30e...z31e...z32e{left}...z33e{up}
+...{right}z34e...{up}z35e...z36e...z37e ...{right}z38e; penstroke
+z10e{up}...z11e...z12e...z13e... z14e...z15e; z40=(2.1u,0.2v); z41=(3.3u,1.15v);
+z42=(5.3u,4.5v); z43=(4.1u,7.4v); z44=(2u,8.2v); z45=(0.1u,6.5v);
+z46=(1.2u,5.5v); z47=(2.4u,6.55v); z48=(1.5u,7.5v); z49=(0.8u,6.9v);
+z50=(1.3u,6.4v); z50'=(1.65u,6.75v); z51=(1.45u,7.05v); z52=(1.2u,6.8v);
+z53=(0,8.35v); z54=(0.55u,8.9v); z55=(u,8.5v); z56=(0.7u,8.2v);
+z57=(0.4u,8.45v); z58=(1.4u,8.6v); z59=(1.55u,8.8v); z60=(5u,3.1v);
+z61=(4.05u,5.75v); z62=(3.85u,6.1v); z63=(3.7u,6.6v); z64=(4.7u,7.55v);
+z65=(5.4u,6.85v); z66=(4.8u,6.15v); z67=(4.3u,6.7v); z68=(4.75u,7.15v);
+z69=(5.05u,6.9v); z70=(3.85u,8.2v); z71=(4.55u,9.05v); z72=(5.15u,8.7v);
+z73=(4.8u,8.3v); z74=(4.6u,8.55v); z75=(5.5u,8.55v); z76=(5.7u,8.8v);
+z77=(2.45u,3.8v); z78=(0.65u,4.55v); z79=(0.4u,5.35v); z80=(1.3u,6.25v);
+z81=(2u,5.5v); z82=(1.5u,5.05v); z83=(1.25u,5.25v); z84=(1.35u,5.5v);
+z85=(1.4u,5.7v); z86=(1.1u,5.8v); z87=(2.6u,2.3v); z88=(1.2u,3.2v);
+z89=(0.3u,3.6v); z90=(0.6u,4v); z91=(0.2u,3.1v); z92=(0.15u,2v);
+z93=(0.4u,1.3v); z94=(1.2u,0.9v); z94'=(2u,1.7v); z95=(1.5u,2.5v);
+z96=(0.7u,1.8v); z97=(1.1u,1.3v); z97'=(1.5u,1.8v); z98=(0.4u,0);
+z99=(0.1u,0.3v); z100=(0.3u,0.5v); ka(40,-46); ka(41,-56); ka(60,-27); ka(42,0);
+ka(43,49); ka(44,90); ka(45,180); ka(46,-90); ka(47,0); ka(48,90); ka(49,180);
+ka(50,-90); penpos50'(1.5hair,0); penpos51(0.3v,90); ka(52,138); ka(53,0);
+ka(54,-90); ka(55,180); ka(56,90); ka(57,0); ka(58,-90); ka(59,0); ka(61,30);
+ka(62,30); ka(63,0); ka(64,-90); ka(65,180); ka(66,90); ka(67,0); ka(68,-90);
+ka(69,180); ka(70,0); ka(71,-90); ka(72,-142); ka(73,90); ka(74,0); ka(75,-90);
+ka(76,0); ka(77,62); ka(78,37); ka(79,0); ka(80,-90); ka(81,180); ka(82,90);
+penpos83(0.3u,0); penpos84(0.3uv,-51); penpos85(0.2u,0); ka(86,90); ka(87,0);
+ka(88,90); ka(89,0); ka(90,-90); mpalla(91,1.5); ka(92,180); ka(93,-141);
+ka(94,-90); ka(94',0); ka(95,90); ka(96,180); penpos97(1.5hair,-90);
+penpos97'(0.3u,0); ka(98,90); ka(99,0); ka(100,-90); penstroke
+z40e{(9u,5.5v)-(1.9u,0)}... z41e...z60e{(7.6u,9v)-(3.7u,0)}...
+z42e...z43e{(2.4u,9v)-(9u,2.5v)} ...z44e...z45e...z46e...z47e
+...z48e{left}...z49e...z50e...z50'e{up}... z51e{left}...z52e; filldraw
+(4.85u,3v)--(4.95u,3.2v)-- (5.2u,3.15v)--(5.1u,2.95v)--cycle; penstroke
+z48e{left}...z53e{up}... z54e...z55e...z56e...z57e{up}; kouki(57,2,1.2);
+penstroke z55e...z58e...z59e{up}; kouki(59,1,1); penstroke
+z60e{(7.6u,9v)-(3.7u,0)}... z61e...z62e...z63e...z64e...z65e...
+z66e...z67e...z68e...z69e{down}; kouki(69,3,1.8); mpalla(62,1.5); filldraw
+(3.9u,5.5v)--(3.75u,5.6v)-- (4.2u,6v)--(4.35u,5.85v)--cycle; penstroke
+z43e{(2.4u,9v)-(9u,2.5v)}... z70e{up}...z71e...
+z72e{(9u,3.15v)-(4.9u,9v)}...z75e{right} ...z76e{up}; kouki (76,1,1); penstroke
+z72e...z73e...z74e{up}; kouki(74,2,1.1); penstroke z25e{(9u,5.4v)-(0,0)}...
+z77e...z78e...z79e...z80e...z81e... z82e{left}...z83e{up}...
+{(5.2u,9v)-(0,4.2v)}z84e...z85e{up}... z86e; mpalla(78,1.2); penstroke
+z25e{(9u,5.4v)-(0,0)}... z87e{up}...z88e{left}...z89e...z90e{right};
+kouki(90,8,1); penstroke z88e{left}...z92e...
+z93e{(1.5u,0)-(0,1.7v)}...z94e...z95e... z96e...z97e...z97'e{up}; penstroke
+z93e{(1.5u,0)-(0,1.7v)}... z98e{left}...z99e...z100e{right}; mpalla(93,1.5);
+kouki(100,8,1); z101=(2.45u,7.25v); z102=(1.7u,7.5v); z103=(2.9u,9v);
+z104=(3u,8.05v); triaina(101,102,103,0.5); mpalla(104,1.7); z110=(2.8u,2.6v);
+z111=(4.25u,0.5v); z112=(4.8u,0.35v); z113=(6.35u,1.3v); z114=(5.7u,1.9v);
+z115=(5.25u,1.6v); z116=(5.5u,1.4v); z117=(5.25u,5v); z118=(7u,3.5v);
+z119=(6.6u,1.85v); z120=(6.85u,1.6v); z121=(7.05u,1.8v); z122=(6.1u,2.2v);
+z123=(5.35u,3v); z124=(5.7u,3.35v); z125=(6u,3v); z126=(5.1u,5.6v);
+z127=(8.4u,8v); z128=(7.4u,9.05v); z129=(6.65u,8.3v); z130=(7.3u,7.55v);
+z131=(7.15u,7.3v); z132=(6.25u,8.2v); z133=(6.7u,8.7v); z134=(7u,8.4v);
+z135=(6.2u,6v); z136=(8.8u,6.6v); z137=(8.25u,7.2v); z138=(7.6u,6.7v);
+z139=(8.1u,6.25v); z140=(8.35u,6.6v); z141=(7.65u,5.5v); z142=(8.9u,5.45v);
+z143=(8.6u,5.75v); z144=(8.35u,5.6v); z144'=(8.5u,5.4v); z145=(8.7u,3.4v);
+z146=(8.2u,v); z147=(8.8u,0.4v); z148=(9.1u,0.7v); z148'=(8.95u,0.85v);
+z149=(7.9u,1.5v); z150=(6.5u,0.5v); z151=(6.2u,0.25v); z152=(6.4u,0.05v);
+z153=(6.65u,0.2v); z154=(6.8u,0.3v); z155=(7.3u,0); z156=(7.5u,0.2v);
+z157=(3.6u,-0.3v); z158=(2.45u,0.3v); z159=(5.15u,1.1v); z28.25=z28';
+ka(28.25,159); ka(110,180); ka(111,-109); ka(112,-90); ka(113,0); ka(114,90);
+ka(115,180); ka(116,-90); kouki(116,6,1.3); ka(117,-90); ka(118,180);
+ka(119,180); ka(120,-90); ka(121,0); kouki(121,1,1); ka(122,90); ka(123,0);
+ka(124,-90); ka(125,180); ka(126,-59); ka(127,0); ka(128,90); ka(129,180);
+ka(130,-90); ka(131,90); ka(132,0); ka(133,-90); ka(134,180); ka(135,-90);
+ka(136,0); ka(137,90); ka(138,180); ka(139,-90); ka(140,0); ka(141,-62);
+ka(142,0); ka(143,90); ka(144,180); ka(145,180); ka(146,180); ka(147,-90);
+ka(148,0); kouki(148,1,1.6); ka(149,145); ka(150,112); ka(151,180);
+penpos152(1.5hair,-90); penpos153(0.3uv,-45); penpos154(0.25v,-90);
+ka(155,-90); ka(156,0); kouki(156,1,1.8); triaina(157,158,159,0.4); penstroke
+z28.25e{(1.55u,0)-(5.1u,9v)}... z110e...z111e...z112e...z113e...z114e...
+z115e...z116e{right}; mpalla(112,1.5); penstroke z28'e{(5.3u,9v)-(1.4u,0)}...
+z117e...z118e{down}...z119e...z120e... z121e{up}; mpalla(118,1.2); penstroke
+z118e{down}...z122e...z123e ...z124e...z125e{down}; z15'=z15; ka(15',0);
+penstroke z126e{(9u,7.7v)-(0,2.8v)}... z127e{up}...z128e...z129e...z130e...
+z15'e{up}; penstroke z15e{down}...z131e...z132e... z133e...z134e{down};
+kouki(134,3,1.2); penstroke z126e{(9u,7.7v)-(0,2.8v)}...
+z135e{right}...z136e{up}...z137e... z138e...z139e...z140e{up}; kouki(140,1,1.5);
+penstroke z135e{right}... z141e{(9u,4.6v)-(2.1u,9v)}...z142e{up}
+...z143e...z144e{down}; kouki(144,4,1); penstroke z141e{(9u,4.6v)-(2.1u,9v)}...
+z145e{down}...z146e{down}...z147e... z148e{up}; penstroke
+z145e{down}...z149e...z150e... z151e{down}...z152e{left}...z153e...
+z154e...z155e...z156e{up}; penlabels(range 1 thru 156);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitJ.mf b/fonts/gothic/yinit/yinitJ.mf
new file mode 100644
index 0000000000..af8b930e1b
--- /dev/null
+++ b/fonts/gothic/yinit/yinitJ.mf
@@ -0,0 +1,122 @@
+def the_letter_I=
+z1=(3.35u,6.25v); z2=(3.45u,6.5v); z3=(3.2u,6.75v); z4=(2.9u,6.65v);
+z5=(2.7u,7v); z6=(3.2u,7.35v); z7=(3.9u,6.5v); z8=(2.9u,5.55v); z9=(1.6u,6.8v);
+z10=(3.4u,8.3v); z11=(4.5u,7.85v); z12=(6.1u,7v); z13=(6.95u,7.8v);
+z14=(6.5u,8.3v); z15=(1.2u,0.9v); z16=(1.05u,1.1v); z17=(1.4u,1.45v);
+z18=(1.95u,0.9v); z19=(1.3u,0.35v); z20=(0.5u,1.3v); z21=(1.7u,2.5v);
+z22=(3.25u,1.6v); z23=(4.65u,0.53v); z24=(5.8u,0.85v); z25=(6.8u,2.9v);
+z26=(6.23u,4.23v); z27=(5.3u,5.8v); z28=(6.2u,6.7v); z29=(6.6u,6.4v);
+z30=(2.85u,3v); z31=(4.7u,4.5v); z32=(4.65u,3.9v); z33=(6u,2.3v); z34=(5u,1.13v);
+z35=(4.35u,1.7v); z36=(4.66u,2.15v); z37=(5u,1.85v); ka(1,-52);
+penpos2(1.5hair,0); penpos3(0.5v,90); penpos4(0.55v,90); penpos5(0.2u,0);
+ka(6,-90); ka(7,180); ka(8,90); ka(9,0); penpos10(0.6v,-90);
+penpos11(0.95uv,-138); penpos12(0.25v,-90); penpos13(hair,0); penpos14(hair,90);
+kouki(14,7,2.6); penstroke z1e{(6.1u,9v)-(0,3v)}...z2e{up}
+...z3e{left}...z4e{left}...z5e{up}... z6e...z7e...z8e...z9e...z10e...z11e...
+z12e...z13e...z14e{left}; ka(15,90); ka(16,0); ka(17,-90); ka(18,180);
+ka(19,90); penpos20(1.5hair,0); penpos21(0.55v,-90); penpos22(1.06uv,-139);
+penpos23(0.4v,-90); penpos24(1.5hair,-57); penpos25(0.55u,0);
+penpos26(0.85uv,40); penpos27(0.5u,0); penpos28(hair,-90); ka(29,180);
+kouki(29,3,2.5); z15'=z15; ka(15',-90); kouki(15',6,1.8); penstroke
+z15e{left}...z16e...z17e... z18e...z19e...z20e...z21e...z22e...
+z23e...z24e...z25e...z26e...z27e... z28e...z29e{down}; ka(30,-52); ka(31,180);
+penpos32(0.9uv,34); penpos33(0.3u,0); ka(34,90); ka(35,0); penpos36(0.5v,-90);
+penpos37(0.5u,180); filldraw z30l--z31r & z31r--z31l &
+z31l{(5.1u,0)-(4.4u,9v)}...z32r... z33r...z34l{left}...z35l{up}...z36l...
+z37l{down}..z37r{up}... z35r{down}...z34r{right}...z33l...(4.5u,3.5v)...
+z30r{z30-z31} & z30r--z30l & cycle; z40=(1.2u,0.1v); z41=(0.15u,1.4v);
+z41'=(0.23u,1.95v); z42=(2u,3.35v); z43=(3.6u,2v); z44=(2.7u,0.6v);
+z45=(2.3u,0.85v); z46=(3.8u,4.7v); z47=(3.1u,5.45v); z48=(2.6u,4.9v);
+z49=(3.1u,4.4v); z49'=(3.5u,4.75v); z50=(3.3u,5.1v); z51=(0.9u,4.1v);
+z52=(1.6u,4.5v); z53=(2.35u,3.6v); z54=(1.5u,2.7v); z55=(0.4u,4.1v);
+z56=(1.4u,5.65v); z57=(3.35u,7.3v); z58=(2u,8.65v); z59=(0.4u,7.6v);
+z60=(0.25u,7v); z61=(0.8u,4.9v); z62=(2.9u,3.45v); z63=(5.65u,2.05v);
+z63'=(5.1u,1.37v); z64=(4.8u,1.45v); z65=(5u,1.55v); z66=(5.45u,2.05v);
+z67=(4.55u,2.85v); z68=(2.7u,1.2v); z69=(3.75u,0); z70=(4.6u,0.7v);
+z70'=(3.8u,1.5v); z71=(4.8u,0.9v); z72=(5u,0.85v); z73=(6.35u,2.5v);
+z74=(5.65u,3.9v); z75=(4.4u,6.6v); z76=(5u,8v); z77=(5.65u,8v); z78=(5.3u,8.5v);
+z79=(5.9u,9v); z80=(4.9u,9v); z81=(4.5u,8.7v); z82=(4.75u,8.4v);
+z83=(6.65u,8.67v); z83'=(7u,8.6v); z83''=(7.4u,8.5v); z84=(8.4u,7.2v);
+z85=(7u,5.5v); z86=(6u,5.8v); z87=(4.6u,0.2v); z88=(7.6u,1.35v);
+z89=(8.43u,0.6v); z90=(7.9u,0); z91=(7.35u,0.5v); z92=(7.75u,v);
+z93=(8.1u,0.65v); z94=(7.9u,0.4v); z91'=z91; z95=(6.55u,0); z96=(6.6u,1.2v);
+z96'=(7.5u,3v); z97=(7.9u,2.3v); z98=(8.15u,2.7v); z99=(8.15u,3.25v);
+z100=(8.5u,3.45v); z101=(8.9u,3.1v); z102=(8.75u,2.95v); z103=(6.8u,4.5v);
+z104=(6.3u,5.7v); z105=(7.4u,6.9v); z106=(8.3u,5.9v); z107=(7.6u,5v);
+z108=(7.5u,4.35v); z109=(8u,4v); z110=(8.3u,4.35v); z111=(8u,4.6v);
+z111'=(7.85u,4.5v); z112=(6.9u,5.6v); z113=(7.5u,6.05v); z114=(7.9u,5.8v);
+z115=(7.7u,5.5v); z116=(0.7u,8.5v); z117=(0.4u,8.8v); z118=(0,8.55v);
+z119=(0.25u,8.3v); z120=(0,5.7v); z121=(-0.3u,5.5v); z122=(-0.1u,5.25v);
+z123=(0.85u,6.25v); z124=(u,6.15v); z125=(0,3.5v); z126=(-0.2u,3.7v);
+z127=(0,3v); z128=(-0.3u,2.7v); z129=(2.15u,5.85v); z130=(1.05u,6.85v);
+z131=(1.8u,7.7v); z132=(2.5u,7.1v); z133=(2.3u,6.85v); z134=(1.3u,5.6v);
+z135=(1.9u,4.9v); z136=(4.85u,4.75v); z137=(4.15u,5.2v); z138=(4.8u,6v);
+z139=(6.9u,2.6v); z140=(7.5u,3.2v); z141=(8.1u,1.4v); z13'=z13;
+z142=(8.4u,8.2v); z143=(8.1u,8.6v); z144=(4.6u,5.7v); ka(40,90); ka(41,0);
+ka(41',-9); ka(42,-90); ka(43,180); ka(44,90); ka(45,0); ka(46,0); ka(47,90);
+ka(48,180); ka(49,-90); ka(49',0); ka(50,90); ka(51,180); ka(52,90); ka(53,0);
+ka(54,-90); ka(55,180); ka(56,119); ka(57,180); ka(58,-90); ka(59,-22);
+ka(60,0); ka(61,32); ka(62,76); ka(63,0); ka(63',-90); ka(64,-124); ka(65,-90);
+ka(66,0); ka(67,90); ka(68,180); ka(69,-90); ka(70,0); ka(70',90); ka(71,-103);
+ka(72,-90); ka(73,0); ka(74,46); ka(75,0); ka(76,-51); ka(77,180); ka(78,0);
+ka(79,-90); ka(80,90); ka(81,180); ka(82,-90); ka(83,-90); ka(83',-103);
+ka(83'',-111); ka(84,180); ka(85,90); ka(86,64); ka(87,-90); ka(88,-90);
+ka(89,180); ka(90,90); ka(91,0); ka(92,-90); ka(93,180); ka(94,90); z91=z94';
+ka(94',90); ka(95,90); ka(96',0); ka(96,-49); ka(97,-46); penpos98(0.3u,0);
+penpos99(0.2uv,-35); ka(100,-90); ka(101,180); ka(102,90); ka(103,33);
+ka(104,0); ka(105,-90); ka(106,180); ka(107,90); ka(108,180); ka(109,-90);
+ka(110,0); ka(111,90); ka(111',180); ka(112,0); penpos113(0.4v,-90);
+ka(114,180); ka(115,90); ka(116,0); ka(117,90); ka(118,180); ka(119,-90);
+ka(120,90); ka(121,180); ka(122,-90); ka(123,-90); ka(124,180); ka(125,90);
+ka(126,0); ka(127,90); ka(128,180); ka(129,90); ka(130,0); ka(131,-90);
+ka(132,180); ka(133,90); ka(134,0); ka(135,-90); ka(136,44); ka(137,90);
+ka(138,-90); ka(13',-100); ka(142,0); ka(143,90); ka(144,0); penstroke
+z18e{down}...z40e...z41e... z41'e...z42e{right}...z43e...z44e... z45e{up};
+kouki(45,2,1.2); mpalla(41',1.8); penstroke z42e{right}...z46e{up}...
+z47e...z48e...z49e...z49'e...z50e{left}; kouki(50,7,2); penstroke
+z64e{(6.7u,0)-(0,5v)}... z63'e...z63e{up}...z62e...
+z61e{(0,6.4v)-(3.4u,0)}...z60e... z59e{(1.3u,9v)-(0,7.2v)}...z58e
+...z57e...z56e{(0,4.4v)-(9u,9v)} ...z55e{down}...
+z54e...z53e...z52e...z51e...{right}z42e; mpalla(60,1.5); mpalla(59,1.2);
+mpalla(61,1.2); penstroke z65e{right}...z66e{up}...
+z67e...z68e...z69e...z70e...z70'e{left}; penstroke z71e{(7.4u,0)-(0,2.75v)}...
+z72e...z73e...z74e... z136e{(u,9v)-(9u,0.35v)}...z75e...
+z76e{(6.3u,9v)-(0,4.2v)}...z77e{down}; mpalla(75,1.8); kouki(77,3,1); penstroke
+z76e{(6.3u,9v)-(0,4.2v)}... z78e{up}...z79e{right}; penstroke
+z78e{up}...z80e{left}... z81e...z82e{right}; kouki(82,6,1); penstroke
+z76e{(6.3u,9v)-(0,4.2v)}... z83e...z83'e...z83''e...z84e...z85e...
+z86e{(0,8.6v)-(9u,4.5v)}; mpalla(83,1.2); mpalla(83',1.7); mpalla(83'',1.2);
+mpalla(86,1.2); penstroke z87e{right}...z88e{right}...
+z89e...z90e...z91e...z92e...z93e... z94e...z94'e{left}...z95e{left};
+kouki(95,5,1.5); penstroke z87e{right}... z96e{(9u,3.2v)-(5.2u,0)}---z97e...
+z98e{up}...z99e{(9u,4.3v)-(5.5u,0)}... z100e{right}...z101e...z102e{left};
+kouki(102,5,1); penstroke z96e{(9u,3.2v)-(5.2u,0)}...
+z96'e{up}...z103e...z104e...z105e... z106e...z107e{left}...z108e...z109e...
+z110e...z111e{left}; kouki(111,7,1.3); penstroke z107e{left}...z112e; filldraw
+z112r{up}... z113r{(9u,4.6v)-(3.4u,9v)} & z113r{(9u,5.7v)-(0,0)}...z114r{down}
+& z114r--z114l & z114l{up}...z113l... z112l{down} & z112l--z112r & cycle;
+penstroke z114e{down}...z115e{left}; kouki(115,5,1); penstroke
+z59e{(0.8u,9v)-(0,6v)}... z116e...z117e...z118e...z119e{right}; kouki(119,6,1);
+penstroke z61e{(0,6.4v)-(3.4u,0)}... z120e...z121e...z122e{right};
+kouki(122,6,1.3); penstroke z61e{(0,6.4v)-(3.4u,0)}... z123e...z124e{down};
+kouki(124,3,1); penstroke z55e{down}...z125e...z126e{up}; kouki(126,2,1);
+penstroke z41'e{up}...z127e...z128e{down}; kouki(128,4,1.5); penstroke
+z57e{down}...z129e...z130e... z131e...z132e...z133e{left}; kouki(133,5,1.8);
+penstroke z56e{(0,4.4v)-(9u,9v)}... z134e{up}; kouki(134,2,1.3); penstroke
+z56e{(0,4.4v)-(9u,9v)}... z135e{right}; kouki(135,6,1); penstroke
+z136e{(u,9v)-(9u,0.35v)}... z137e{left}; kouki(137,7,1); penstroke
+z136e{(u,9v)-(9u,0.35v)}... z138e{right}; kouki(138,2,1);
+triaina(139,140,141,0.55); penstroke z13'e{(9u,7.2v)-(2.6u,9v)}...
+z142e...z143e{left}; kouki(143,7,1); kouki(94,5,1.3); mpalla(106,1.5);
+kouki(51,4,1.4); kouki(79,8,1.1); mpalla(58,1.2); penlabels(range 1 thru 145);
+enddef;
+
+
+.cmchar "The letter I";
+.beginchar("I",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); the_letter_I; .endchar;
+
+.cmchar "The letter J";
+.beginchar("J",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0); the_letter_I; .endchar;
+
diff --git a/fonts/gothic/yinit/yinitK.mf b/fonts/gothic/yinit/yinitK.mf
new file mode 100644
index 0000000000..fe3562aa44
--- /dev/null
+++ b/fonts/gothic/yinit/yinitK.mf
@@ -0,0 +1,125 @@
+.cmchar "The letter K";
+.beginchar("K",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(2.2u,0.5v); z2=(2.8u,1.7v); z3=(4.17u,4.05v); z2'=(4.05u,3.15v);
+z4=(3.92u,4.75v); z5=(2.85u,5.95v); z6=(4u,7.95v); z7=(4.6u,5.85v);
+z8=(5.95u,8.8v); z9=(7.15u,7.4v); z10=(7.65u,8.2v); z11=(7.15u,8.85v);
+z12=(6.85u,8.7v); z16=(1.95u,1.95v); z17=(0.75u,3v); z18=(1.5u,3.85v);
+z19=(2.3u,3.2v); z20=(1.8u,2.7v); z21=(1.45u,2.95v); z22=(1.6u,3.2v);
+z23=(1.8u,3.15v); z27.2=(2.2u,4.7v); z24=(1.95u,3v); z25=(2.3u,1.7v);
+z26=(3.35u,3v); z27=(1u,4.2v); z28=(2.2u,5.6v); z28'=(3.1u,4.1v);
+z30=(6.6u,5.5v); z31=(7u,4.85v); z32=(7.85u,5.7v); z33=(7.5u,6.2v);
+z31'=(5.75u,4.15v); z34=(4.7u,3.1v); z35=(4.5u,2.5v); z36=(5.2u,1.9v);
+z37=(5.5u,2.4v); z38=(6.15u,3.45v); z39=(6.45u,1.95v); z40=(6.75u,1.35v);
+z41=(7.7u,1.5v); z42=(8.3u,2.2v); z43=(7.8u,2.7v); z44=(7.55u,2.4v);
+z45=(7.08u,0.5v); z46=(3.8u,4.9v); ka(1,-9); ka(2,-57); penpos3(0.8u,0);
+penpos4(uv,31); penpos5(uv,31); penpos6(1.5hair,-74); ka(7,120); ka(8,155);
+penpos9(2hair,-60); ka(10,0); ka(11,90); ka(12,180); penpos2'(0.45uv,-30);
+penpos16(0.85uv,70); penpos17(0.3u,0); penpos18(1.5hair,-90); ka(19,180);
+ka(20,90); penpos21(1.5hair,0); penpos22(0.3v,-90); penpos23(0.2uv,-135);
+ka(24,-135); ka(25,-47); penpos26(0.3u,0); ka(27,-67); ka(28,175);
+penpos27.2(0.9uv,59); ka(28',-20); penpos30(0.8uv,-150); ka(31,120); ka(32,180);
+ka(33,-90); z33'=z33; ka(33',90); ka(31',120); ka(34,160); ka(35,180);
+ka(36,-90); ka(37,0); penpos38(0.8uv,-150); penpos39(0.8u,180);
+penpos40(0.9uv,-132.5); penpos41(1.5hair,-90); ka(42,0); ka(43,90); ka(44,180);
+ka(45,0); ka(46,-53); filldraw z1r{(3.5u,9v)-(2.1u,0)}...
+z2r{(9u,6.7v)-(0.7u,0)}... (4.55u,4.1v){up}... z4r{(0,8.7v)-(7.25u,0)} &
+z4r--z4l & z4l{(7.25u,0)-(0,8.7v)}... (3.8u,3.55v){down}...
+z2l{(0.7u,0)-(9u,6.7v)} & z2l{(0.8,9v)-(3.2u,0)}... z16r...z17r{up} & z17r--z17l
+& z17l{down}... z16l...flex(z16l,(2.2u,1.2v),z1l) & z1l--z1r & cycle; penstroke
+z4e{(0,8.7v)-(7.25u,0)}...z5e... z6e{(6u,9v)-(0,6.6v)}; penstroke
+z17e{up}...z18e...z19e... z20e...z21e...z22e...z23e...z24e; filldraw
+z25r{(9u,8.2v)-(0.7u,0)}... z26r{up}...(3.55u,3.45v)...
+z27.2r...z28l{(1.8u,9v)-(2.8u,0)} & z28l--z28r & flex(z28r,(1.9u,4.8v),z27l) &
+z27l--z27r & z27r{(9u,7v)-(0,3.8v)} ...z27.2l...(3.1u,3.45v)...z26l{down}...
+z25l{(0.7u,0)-(9u,8.2v)} & z25l--z25r & cycle; filldraw z6r{(6u,9v)-(0,6.6v)}...
+(5.7u,7.4v)...z7r{z7-z9} ...z28'l{(1.4u,0)-(5.1u,9v)} & z28'l--z28'r &
+z28'r{(5.1u,9v)-(1.4u,0)}... z7l---z9r...z10r{up} & z10r--z10l &
+z10l{down}...z9l... (6.2u,7.75v)...z8l{(6.05u,9v)-(1.8u,0)} & z8l--z8r &
+z8r{(1.8u,0)-(6.05u,9v)}... (5.5u,8.3v)... z6l{(0,6.6v)-(6u,9v)} & z6l--z6r &
+cycle; penstroke z10e{up}...z11e...z12e{down}; kouki(12,4,1.5); filldraw
+z28'r{(5.1u,9v)-(1.4u,0)}... z46r... z30r{(8.7u,0)-(4.4u,9v)}... z31'r{z31'-z31}
+& z31'r--z31'l & z31'l{z31-z31'}...z31l...z32l{up}... z33l{left} & z33l--z33r &
+z33r{right}... z32r...z31r{z31'-z31} & z31r{up}...z30l{(5u,9v)-(9u,2.2v)}...
+z46l...z28'l{(1.4u,0)-(5.1u,9v)} & z28'l--z28'r & cycle; filldraw
+z31'r{z31'-z31}... z34r{(3.4u,0)-(7.2u,9v)}... z35r{down} & z35r--z35l &
+z35l{up}... z34l{(7.2u,9v)-(3.4u,0)}... z38r...z39r{down}...z40r...z45l{down} &
+z45l--z45r & z45r{up}... z41r{(9u,2.1v)-(4.6u,0)}... z42r{up} & z42r--z42l &
+z42l{down}... z41l{(4.6u,0)-(9u,2.1v)}... z40l...z39l{up}...z38l... z31'l{left}
+& z31'l--z31'r & cycle; kouki(33',7,1.5); penstroke z35e{down}...z36e...z37e{up};
+kouki(37,1,2); penstroke z42e{up}...z43e...z44e{down}; kouki(44,4,1.8);
+z50=(2.45u,0.4v); z51=(3.25u,1.75v); z52=(4.8u,4.1v); z53=(4.3u,5.46v);
+z54=(3.6u,6.9v); z55=(4.6u,7.75v); z56=(5.3u,7v); z57=(4.7u,6.45v);
+z58=(4.3u,6.85v); z59=(4.5u,7.15v); z60=(2.65u,0.2v); z61=(4.4u,1.75v);
+z62=(5.7u,0.8v); z63=(6.55u,0); z64=(6.85u,0.3v); z65=(4.9u,0);
+z66=(4.15u,0.65v); z67=(4.6u,1.25v); z68=(4.95u,v); z69=(4.775u,0.73v);
+z70=(4.73u,0.53v); z71=(5u,0.35v); z72=(2.1u,6.5v); z73=(4.6u,9.05v);
+z73'=(6u,8.6v); z74=(6.8u,7.2v); z75=(5.5u,5.5v); z76=(2.2u,8.9v);
+z77=(0.7u,7.5v); z78=(1.4u,5v); z79=(0.8u,4.2v); z80=(0.3u,4.6v); z81=(0.6u,5v);
+z82=(1.8u,5.4v); z83=(2.1u,5.8v); z84=(3.2u,6.8v); z85=(2.25u,8v);
+z86=(0.25u,8.5v); z87=(0.7u,9v); z88=(1.1u,8.7v); z89=(0.8u,8.4v);
+z90=(1.4u,7.3v); z91=(1.9u,6.7v); z92=(2.25u,7v); z93=(2.15u,7.2v);
+z94=(1.95u,7.4v); z95=(2.05u,7.55v); z96=(3.8u,8.35v); z97=(3.45u,8.05v);
+z98=(3u,8.55v); z99=(3.65u,9.1v); z100=(4.95u,7.6v); z101=(2.9u,3.2v);
+z102=(5u,0.8v); z103=(7.2u,2.4v); z104=(6.15u,4.14v); z105=(8.2u,5.75v);
+z106=(7.4u,6.55v); z107=(6.9u,6.1v); z108=(7.3u,5.7v); z108'=(7.55u,5.85v);
+z109=(8u,6.65v); z110=(8.6u,7.3v); z111=(8.15u,7.8v); z112=(7.8u,7.4v);
+z113=(8.1u,7.1v); z113'=(8.3u,7.3v); z114=(7.9u,8.6v); z115=(8.2u,9v); z116=z30;
+z117=(7.6u,3.8v); z118=(8.15u,4.3v); z119=(7.6u,4.8v); z120=(7.4u,4.5v);
+z121=(1.7u,3.05v); z122=(0.2u,1.8v); z123=(0.8u,0.35v); z124=(0.5u,0);
+z125=(0.2u,0.3v); z126=(1.2u,0.75v); z126.1=(2u,1.5v); z126.2=(1.4u,2.25v);
+z126.3=(0.8u,1.7v); z126.4=(1.1u,1.25v); z127=(7.4u,0.2v); z128=(7.55u,0.9v);
+z129=(8.6u,2.2v); z130=(7.9u,3v); z131=(8u,1.15v); z132=(8.5u,0.5v);
+z133=(8.1u,0.1v); z134=(7.7u,0.5v); z135=(7.9u,0.8v); z136=(8.15u,0.7v);
+z137=(5u,5.35v); z138=(5.85u,4.7v); z139=(5.4u,4.2v); z140=(5u,4.6v);
+z141=(5.3u,4.95v); z142=(5.5u,4.8v); z143=(8u,3.65v); z144=(8.35u,3.5v);
+z145=(3.1u,0.65v); z146=(3.35u,0.55v); z147=(3.6u,0.5v); z148=(3.75u,0.8v);
+z150=(1.2u,7.5v); z151=(1.85u,6.35v); z152=(0,6.4v); ka(50,-9); ka(51,-50);
+ka(52,0); ka(53,37); ka(54,0); ka(55,-90); ka(56,180); ka(57,90); ka(58,0);
+ka(59,-90); ka(60,-9); ka(61,-90); ka(62,180); ka(63,-90); ka(64,0); ka(65,90);
+ka(66,0); ka(67,-90); penpos68(0.3u,180); penpos69(0.35uv,141);
+penpos70(0.2u,180); ka(71,-114); ka(72,0); ka(73,-90); ka(73',-125); ka(74,180);
+ka(75,90); ka(76,90); ka(77,180); ka(78,180); ka(79,90); ka(80,0); ka(81,-90);
+mpalla(82,1.3); ka(83,-90); ka(84,0); ka(85,90); ka(86,0); ka(87,-90);
+ka(88,180); ka(89,90); ka(90,180); ka(91,-90); penpos92(0.2u,0);
+penpos93(0.3uv,53); penpos94(.15u,0); ka(95,-45); ka(96,180); z96'=z96;
+ka(96',0); ka(97,90); ka(98,0); ka(99,-90); ka(100,180); ka(101,180);
+ka(102,-90); ka(103,0); ka(104,90); z104'=z104; ka(104',-90); ka(105,0);
+ka(106,90); ka(107,180); ka(108,-90); ka(108',-22); ka(109,-90); ka(110,0);
+ka(111,90); ka(112,180); ka(113,-90); ka(113',0); ka(114,0); ka(115,-90);
+ka(116,180); ka(117,-90); ka(118,0); ka(119,90); ka(120,180); ka(121,90);
+ka(122,180); ka(123,180); ka(124,90); ka(125,0); ka(126,-90); ka(126.1,0);
+ka(126.2,90); ka(126.3,180); ka(126.4,-90); ka(127,0); ka(128,-40); ka(129,0);
+ka(130,90); ka(131,-90); ka(132,180); ka(133,90); ka(134,0); ka(135,-90);
+ka(136,180); ka(137,-90); ka(138,180); ka(139,90); ka(140,0); ka(141,-90);
+ka(142,180); ka(143,-90); ka(144,180); penpos145(0.15v,-90);
+penpos146(0.3uv,-124); penpos147(0.2v,-90); ka(148,0); penstroke
+z50e{(3.5u,9v)-(2.1u,0)}... z51e{(9u,6.4v)-(1.1u,0)}...z52e{up}...
+z53e...z54e{up}... z55e...z56e...z57e...z58e...z59e{right}; kouki(59,8,1.7);
+penstroke z60e{(3.5u,9v)-(2.1u,0)}... z61e...z62e{down}...z63e...z64e{up};
+kouki(64,1,1.2); penstroke z62e{down}...z65e...z66e...
+z67e{right}...z68e{down}...z69e... z70e{down}...z71e; z28''=z28; ka(28'',0);
+penstroke z28''e...z72e...z73e...z73'e...z74e
+...z75e...z58e...z76e...z77e{down}...z78e ...z79e...z80e...z81e{right};
+mpalla(76,1.2); mpalla(77,1.4); triaina(150,151,152,0.5); kouki(81,8,1.2);
+penstroke z77e{down}...z83e...z84e... z85e{left}...z86e....z87e...z88e...z89e;
+kouki(89,5,1); penstroke z85e{left}... z90e...z91e...z92e{up}...z93e...
+z94e{up}...z95e; kouki(96',1,2); z51''=z51'=z51; ka(51',-145); ka(51'',35);
+penstroke z96e{down}...z97e...z98e... z99e...z100e...z101e...z51'e...
+z102e...z103e...z104e{left}; penstroke z104'e{right}...z105e...z106e...
+z107e...z108e...z108'e; penstroke z73'e{(9u,6.4v)-(5.5u,9v)}...
+z109e...z110e...z111e...z112e... z113e...z113'e{up}; kouki(113,1,1.2); penstroke
+z111e{left}...z10e{up}... z115e{right}; kouki(115,8,1.1); z30'=z30; ka(30',180);
+penstroke z30'e{down} ...z117e...z118e...z119e... z120e{down}; kouki(120,4,1.6);
+penstroke z51''e...z121e...z122e...z123e ...z124e...z125e{up}; kouki(125,2,1);
+penstroke z122e{down}...z126e... z126.1e...z126.2e...z126.3e... z126.4e{right};
+kouki(126.4,6,1); penstroke z127e{up}...
+z128e{(u,v)-(0,0)}...z129e...z130e{left}; penstroke z128e{(u,v)-(0,0)}...z131e...
+z132e...z133e...z134e...z135e... z136e{down}; kouki(136,3,1); penstroke
+z28'e{(5.1u,9v)-(1.4u,0)}... z137e...z138e...z139e...z140e...
+z141e...z142e{down}; kouki(142,3,1.1); penstroke z103e...z143e...z144e{down};
+kouki(144,3,1); penstroke z60e{(3.5u,9v)-(2.1u,0)}...
+z145e...z146e{(4.5u,0)-(0,2.35v)}... z147e{right}...z148e; penlabels(range 1
+thru 150);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitL.mf b/fonts/gothic/yinit/yinitL.mf
new file mode 100644
index 0000000000..b88fe0bf03
--- /dev/null
+++ b/fonts/gothic/yinit/yinitL.mf
@@ -0,0 +1,107 @@
+.cmchar "The letter L";
+.beginchar("L",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(2.15u,1.45v); z2=(2.3u,1.7v); z3=(2.1u,1.95v); z4=(1.7u,1.9v);
+z5=(1.55u,2.3v); z6=(2.1u,2.65v); z7=(2.9u,1.7v); z8=(1.9u,0.8v); z9=(0.75u,2v);
+z10=(2.3u,3.4v); z11=(3.65u,2.75v); z12=(4.9u,1.4v); z13=(6.35u,v);
+z14=(7.9u,2.5v); z15=(7.1u,3.4v); z16=(6.4u,3v); z17=(6.45u,2.6v);
+z18=(6.85u,2.45v); z19=(6.8u,2.05v); z20=(6.5u,1.9v); z21=(4.05u,2.25v);
+z22=(4.2u,2.05v); z23=(4.3u,1.9v); z24=(4.4u,1.85v); z25=(4.4u,1.7v);
+z26=(4.6u,1.6v); z24'=(5.1u,3.3v); z25'=(3.85u,4.55v); z26'=(3.75u,5.2v);
+z27=(2.35u,3.95v); z28=(5.8u,4v); z29=(5.55u,4.8v); z30=(4.3u,5.7v);
+z31=(4.05u,6.5v); z32=(4.5u,7.4v); z33=(6.45u,8.3v); z34=(7.95u,7.25v);
+z35=(5u,5.25v); z36=(8.35u,8v); z37=(7.65u,8.7v); z38=(7.1u,8.2v);
+z39=(7.45u,7.7v); z40=(7.8u,8v); ka(1,-53); penpos2(0.2u,0); penpos3(0.45v,90);
+penpos4(0.6v,90); penpos5(0.3u,0); penpos6(1.2hair,-90); ka(7,180); ka(8,90);
+penpos9(1.2hair,0); penpos10(0.55v,-90); penpos11(0.85uv,-139);
+penpos12(0.9uv,-138); penpos13(0.5v,-90); penpos14(1.2hair,0); ka(15,90);
+penpos16(0.3u,180); penpos17(0.55uv,-123); penpos18(0.55uv,-121);
+penpos19(0.15u,180); ka(20,90); ka(21,-21.5); ka(22,-52); ka(23,-53);
+ka(24,-55); ka(25,-59); ka(26,-59); penpos24'(0.2u,0); penpos25'(0.75uv,69);
+ka(26',180); ka(27,-60); penpos28(0.4u,0); penpos29(0.85uv,46);
+penpos30(0.9uv,32); penpos31(0.55u,0); penpos32(1.5hair,-57); ka(33,156);
+ka(34,-56); ka(36,0); ka(37,90); ka(38,180); ka(39,-90); ka(40,0); ka(35,125);
+penstroke z1e...z3e{left}... z4e...z6e...z7e...z8e...
+z9e...z10e...z11e...z12e...z13e... z14e...z15e... z17e{(9u,1.3v)-(0,6.2v)}...
+z18e{(9u,1.3v)-(0,6.2v)} ...z20e{left}; filldraw z22l{(9u,6v)-(2u,0)}...
+z24'l...z25'l{(0,4.6v)-(9u,3.6v)}... z27r{z27-z34} & z27r--z27l &
+z27l{z34-z27}...z26'r{up} & z26'r--z26'l & z26'l{down}...
+z25'r{(9u,2.5v)-(0,6.75v)}... z24'r...z22r{(2u,0)-(9u,6v)} & z22r--z22l & cycle;
+penstroke z23e{(9u,5v)-(1.6u,0)}... z28e...z29e...z30e...z31e...
+z32e{(7.5u,9v)-(0,5v)}; filldraw z32r{(7.5u,9v)-(0,5v)}...
+(6.25u,7.1v)...z35r{z35-z34} & z35r--z35l & z35l---z34r...z36r{up} & z36r--z36l
+& z36l{down}...z34l{z35-z34} ...(6.6u,7.35v)...z33l{z33-z35} & z33l--z33r &
+z33r{z35-z33}... (6u,7.9v)...z32l{(0,5v)-(7.5u,9v)} & z32l--z32r & cycle;
+penstroke z36e{up}...z37e...z38e... z39e...z40e{up}; kouki(40,1,1.5);
+z41=(2.85u,4.15v); z42=(0.4u,2.5v); z43=(0.9u,0.8v); z44=(1.9u,0.5v);
+z45=(3.15u,1.7v); z46=(2u,2.9v); z47=(1.05u,2v); z48=(1.6u,1.2v);
+z49=(1.9u,1.1v); z50=(2.6u,1.8v); z51=(2u,2.4v); z41'=(1.3u,3.85v);
+z45'=(2.8u,2.6v); z52=(3.4u,0.5v); z53=(2.9u,0.1v); z54=(4.45u,0.15v);
+z54'=(3.7u,1.45v); z55=(6.1u,0.3v); z56=(7.3u,0.6v); z57=(8.4u,2.5v);
+z56'=(8u,1.3v); z58=(8.2u,3.4v); z59=(6.7u,4.3v); z60=(5.2u,3v);
+z61=(6.45u,1.6v); z62=(7.4u,2.5v); z63=(6.8u,3v); z64=(8.6u,0.3v); z65=(8.3u,0);
+z66=(8u,0.25v); z67=(8.5u,4v); z68=(6.15u,3v); z69=(6.8u,4.3v); z70=(7.9u,5.45v);
+z71=(8.7u,5.8v); z72=(8.6u,4.7v); z73=(8u,4.15v); z74=(7.6u,4.5v);
+z75=(5.9u,3.1v); z75'=(6.4u,4.2v); z76=(5.55u,5.65v); z77=(4.8u,7.2v);
+z78=(6.5u,8.8v); z79=(8u,7.2v); z80=(6.8u,5.85v); z81=(5.6u,7v);
+z82=(6.5u,7.9v); z83=(6.9u,7.6v); z84=(8.35u,8v); z85=(8.9u,8.35v);
+z86=(6.7u,5.5v); z87=(5.15u,8.25v); z88=(3.5u,8.7v); z89=(2.35u,8.4v);
+z90=(0.9u,7.7v); z91=(0.35u,8.4v); z92=(0.8u,8.9v); z93=(1.25u,8.75v);
+z94=(1.7u,8.65v); z95=(1.3u,8.4v); z95'=(0.95u,8.15v); z96=(u,6.4v);
+z97=(1.85u,5v); z98=(u,5.85v); z99=(0.35u,6.15v); z100=(0.3u,5.15v);
+z101=(0.9u,4.55v); z102=(1.35u,5v); z103=(1.05u,5.35v); z104=(4.75u,6.25v);
+z105=(3.1u,7.7v); z106=(2.5u,7.5v); z107=(2.05u,6.6v); z108=(2.25u,6v);
+z109=(3.2u,5.65v); z110=(0,0.65v); z111=(0.55u,0); z112=(u,0.3v);
+z113=(0.65u,0.8v); z114=(0.45u,0.7v); z115=(4.6u,2.9v); z120=(7.7u,1.9v);
+z121=(7.9u,2.5v); z122=(8.85u,1.4v); z130=(-0.2u,3.4v); z131=(0.3u,4.3v);
+z132=(1.1u,2.7v); z140=(3.5u,7v); z141=(2.9u,7.2v); z142=(4u,8.2v);
+z150=(3u,7v); z151=(3.7u,6.7v); z152=(1.9u,5v); z160=(2.1u,7.15v);
+z161=(1.8u,6.2v); z162=(0.25u,7.7v); ka(41,90); ka(41',123); ka(42,174);
+ka(43,-124); ka(44,-90); ka(45,0); ka(45',50); ka(46,90); ka(47,180);
+ka(48,-113); ka(49,-90); ka(50,0); ka(51,90); ka(52,180); ka(53,90); ka(54,-90);
+ka(55,-87); ka(54',-139); ka(56,-62); ka(56',-28); ka(57,0); ka(58,23);
+ka(59,90); ka(60,180); ka(61,-90); ka(62,0); ka(63,90); ka(64,180); ka(65,90);
+ka(66,0); ka(67,-90); ka(68,-36); ka(69,-17); ka(70,-90); ka(71,0); ka(72,180);
+ka(73,90); ka(74,0); ka(75,-35); ka(75',0); ka(76,50); ka(77,0); ka(78,-90);
+ka(79,180); ka(80,90); ka(81,0); ka(82,-90); ka(83,-153); ka(84,-90); ka(85,0);
+ka(86,0); ka(87,61); ka(88,90); ka(89,121); ka(90,90); ka(91,0); ka(92,-90);
+ka(93,-134); ka(94,-90); ka(95,180); ka(95',90); ka(96,180); ka(97,0); ka(98,90);
+ka(99,0); ka(100,180); ka(101,-90); ka(102,0); ka(103,90); ka(104,0);
+ka(105,90); ka(106,128); ka(107,180); ka(108,-129); ka(109,-112); ka(110,180);
+ka(111,-90); ka(112,0); ka(113,90); ka(114,180); ka(115,0); penstroke
+z21e{(8.3u,9v)-(2.7u,0)}... z41e{left}...z41'e...z42e...z43e... z44e...z45e...
+z45'e{(0,5.4v)-(5.4u,0)}...z46e... z47e...z48e...z49e...z50e...z51e;
+mpalla(42,1.8); z45''=z45'; ka(45'',-134); penstroke z45''e{(5.4u,0)-(0,5.4v)}...
+z52e...z53e{left}; kouki(53,5,1); penstroke z54'e{(5u,0)-(0,5.8v)}...
+z54e{right}; kouki(54,6,1); penstroke z45''e{(5.4u,0)-(0,5.4v)}...
+z54'e{(5u,0)-(0,5.8v)}... z55e...z56e{(9u,1.4v)-(6u,0)}...
+z56'...z57e...z58e...z59e...z60e... z61e...z62e...z63e; mpalla(56',1.5);
+mpalla(55,1.2); triaina(120,121,122,0.6); penstroke
+z56e{(9u,1.4v)-(6u,0)}...z64e...z65e... z66e{up}; kouki(66,2,1.2); penstroke
+z58e...z67e{right}; kouki(67,8,1.1); penstroke z26e{(9u,4.3v)-(2u,0)}...
+z68e...z69e...z70e{right}...z71e{up}; kouki(71,1,1.6); penstroke
+z70e{right}...z72e...z73e... z74e{up}; kouki(74,2,2); z77'=z87; ka(77',-39);
+z76'=(6.2u,5v); ka(76',30); penstroke z25e{(9u,4.3v)-(2u,0)}...
+z75e...z75'e...z76'e... z76e...z77e...z77'e...
+z78e...z79e...z80e...z81e...z82e... z83e{down}; kouki(83,3,1); z84'=(7.5u,8.4v);
+ka(84',-121); penstroke z84'e...z84e...z85e{up}; kouki(85,1,1.5); penstroke
+z75'e{(7.8u,9v)-(5.2u,0)}... z86e...z87e...z88e...
+z89e{(0,7v)-(3.4u,9v)}...z90e...z91e... z92e...z93e{(9u,2v)-(u,9v)}...
+z94e{right}; kouki(94,6,1.3); penstroke z93e{(9u,2v)-(u,9v)}...
+z95e...z95'e{left}; kouki(95',5,1.3); mpalla(89,1.6); z41''=z41; ka(41'',-90);
+penstroke z89e{(0,7v)-(3.4u,9v)}... z96e...z41''e{right}; mpalla(41',1.5);
+z41.2=z41'; ka(41.2,-55); penstroke z41.2... z97e...z98e{left}...z99e{up};
+kouki(99,2,1.2); penstroke z98e{left}...z100e...z101e... z102e...z103e{left};
+kouki(103,7,1.8); penstroke z41''e{right}...z104e...
+z105e...z106e...z107e...z108e--- z109e; z48'=z48; ka(48',66); penstroke
+z48'e{(0,2v)-(4u,0)}... z110e{down}...z111e...z112e...z113e ...z114e{down};
+kouki(114,4,1.3); penstroke z21e{(9u,6v)-(1.7u,0)}... z115e{up};
+kouki(115,1,1.1); triaina(130,131,132,0.4); triaina(140,141,142,0.5);
+triaina(150,151,152,0.39); triaina(160,161,162,0.5); z107.1=(3.2u,5.65v);
+z107.2=(3.6u,5.9v); z107.3=(3.95u,5.4v); z107.4=(3.4u,5.25v); filldraw
+z107.1{z107.3-z107.1}... z107.4{z107.4-z107.2} & z107.4{z107.2-z107.4}...
+z107.3{z107.3-z107.1} & z107.3{z107.1-z107.3}... z107.2{z107.2-z107.4} &
+z107.2{z107.4-z107.2}... z107.1{z107.1-z107.3} & cycle; penlabels(range 1 thru
+170);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitM.mf b/fonts/gothic/yinit/yinitM.mf
new file mode 100644
index 0000000000..7fead3879f
--- /dev/null
+++ b/fonts/gothic/yinit/yinitM.mf
@@ -0,0 +1,123 @@
+.cmchar "The letter M";
+.beginchar("M",8.9u#+1mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(2u,0.6v); z2=(2.5u,1.5v); z3=(1.95u,1.65v); z4=(0.65u,2.35v);
+z5=(0.45u,3.05v); z6=(1.4u,4.1v); z7=(2.2u,3.4v); z8=(1.65u,2.8v);
+z9=(1.2u,3.15v); z10=(5.25u,0.7v); z19=(5.9u,1.45v); z11=(5.2u,1.7v);
+z12=(3.7u,2.4v); z13=(3.4u,3.1v); z14=(4.35u,4.3v); z15=(5.3u,3.5v);
+z16=(4.65u,2.8v); z17=(4.05u,3.3v); z18=(8.15u,0.55v); z29=(7.85u,1.45v);
+z20=(8.8u,1.5v); z21=(9.5u,2.3v); z22=(6.6u,2.2v); z23=(6.2u,2.65v);
+z24=(5.8u,2.35v); z25=(6u,2v); z26=(8.85u,3.05v); z27=(8.3u,2.5v);
+z28=(8.7u,2.1v); z29=(7.85u,1.45v); z30=(7.37u,2.3u); z31=(7.1u,4.8v);
+z32=(7.4u,5.75v); z33=(8.05u,6.45v); z12'=z12; z34=(5.1u,5.45v);
+z35=(4.05u,7.3v); z36=(1.95u,7.2v); z37=(0.9u,6.85v); z38=(0,7.7v);
+z39=(0.6u,8.2v); z40=(0.95u,8.1v); z41=(1.4u,7.85v); z42=(1.65u,8.3v);
+z43=(1.7u,1.8v); z44=(3.15u,4.45v); z45=(2.45u,5.6v); z46=(u,5.3v);
+z47=(2.55u,6.4v); z48=(5.8u,3.45v); z49=(5.65u,3.7v); z50=(6.05u,4.05v);
+z51=(6.5u,3.5v); z52=(5.65u,2.8v); z53=(4.1u,5v); z54=(5u,7.2v);
+z55=(6.3u,7.75v); z56=(7.15u,7.35v); z57=(8.1u,6.75v); z58=(9u,7.6v);
+z59=(8.5u,8.1v); z60=(8.2u,7.8v); ka(1,0); ka(2,-58); penpos3(0.85uv,46);
+penpos4(0.75uv,53.5); penpos5(0.35u,0); ka(6,-90); ka(7,180); ka(8,90); ka(9,0);
+ka(10,0); ka(19,-58); penpos11(uv,49); penpos12(0.65uv,42.5); penpos13(0.3u,0);
+ka(14,-90); ka(15,180); ka(16,90); ka(17,0); ka(12',-47); ka(18,0);
+penpos20(0.2uv,-57); ka(21,0); ka(26,90); ka(27,180); ka(28,-90); ka(22,0);
+ka(23,90); ka(24,180); ka(25,-90); penpos29(0.85uv,56.5); penpos30(0.75u,0);
+penpos31(0.65u,0); penpos32(0.3uv,-34); ka(33,-58); penpos34(0.8u,0);
+penpos35(0.9uv,61); penpos36(0.8uv,121); penpos37(0.6v,90); ka(38,0);
+penpos39(0.3v,-90); penpos40(0.47uv,-138); penpos41(0.15v,-90); ka(42,0);
+ka(43,-39); penpos44(0.55u,0); penpos45(0.8uv,35); ka(47,180); ka(46,-61);
+ka(48,90); ka(49,0); ka(50,-90); ka(51,180); ka(52,90); ka(53,0);
+penpos54(1.5hair,-40); penpos55(0.4v,-90); penpos56(0.9uv,-140);
+penpos57(0.3v,-90); ka(58,0); ka(59,90); ka(60,180); filldraw z1l{up}...
+z3l{(0,2.6v)-(3.5u,0)}... z4l{(0,2.5v)-(2.3u,0)}...
+z5l{(1.3u,9v)-(0,1.7v)}...z6l{right} & z6l--z6r & z6r{left}...
+z5r{(1.6u,0)-(0,5.1v)}...z4r... z3r{(4.8u,0)-(0,3.6v)}... z2l{(3.15u,0)-(0,7v)}
+& z2l{(9u,5.6v)}...z12'l{(9u,7v)-(1.1u,0)} & z12'l--z12'r &
+z12'r{(1.1u,0)-(9u,7v)}...z2r{(-9u,-5.6v)} ...z1r{down} & z1r--z1l & cycle;
+penstroke z6e{right}...z7e...z8e... z9e{up}; kouki(9,2,2); filldraw
+z43r{(8u,9v)-(0.2u,0)}... z44r...(3.2u,5.3v)...z45r...z47l{up} & z47l--z47r &
+z47r{(0,3.5v)-z47}... z46l{z46-(9u,9v)} & z46l--z46r &
+z46r{(9u,8v)-z46}...z45l...z44l... z43l{(0.2u,0)-(8u,9v)} & z43l--z43r & cycle;
+penstroke z12'e{(9u,7v)-(1.1u,0)}... z34e...z35e...z36e...z37e...z38e...
+z39e...z40e...z41e...z42e{up}; filldraw z10l{up}...z11l...z12l...
+z13l...z14l{right} & z14l--z14r & z14r{left}...z13r...z12r...z11r
+...z19l{(6.4u,0)-(3u,9v)} & z19l{(9u,3.3v)-(3.4u,0)}...z22l{up} & z22l--z22r &
+z22r{down}... z19r{(3.4u,0)-(9u,3.3v)}... z10r{down} & z10r--z10l & cycle;
+penstroke z14e{right}...z15e...z16e... z17e{up}; kouki(17,2,1.5); penstroke
+z22e{up}...z23e...z24e... z25e{right}; kouki(25,6,1.1); filldraw
+z18l{up}...z29l... (7.1u,1.8v)...z30l... z31l...z32l...z33l{(9u,6.8v)-z33} &
+z33l--z33r & z33r{z33-(9u,6.8v)}... z32r...z31r...z30r...z29r...z20l ...z21l{up}
+& z21l--z21r & z21r{down}...z20r...z18r{down} & z18r--z18l & cycle; penstroke
+z21e{up}...z26e...z27e... z28e{right}; kouki(28,6,1.8); penstroke
+z48e{left}...z49e...z50e... z51e...z52e...z53e{up}...z54e...
+z55e...z56e{(9u,5.2v)-(5.7u,9v)} ...z57e...z58e...z59e... z60e{down};
+kouki(60,4,1.3); mpalla(53,1.4); z48'=z48; ka(48',-90); kouki(48',6,1.2);
+z61=(1.75u,0.35v); z62=(1.1u,1.3v); z63=(0.6u,0.7v); z64=(1.1u,0.3v);
+z65=(1.5u,0.7v); z66=(1.1u,v); z67=(0.95u,0.85v); z68=(-0.2u,3v);
+z69=(-0.15u,3.5v); z70=(0.7u,4.5v); z71=(1.3u,4.6v); z72=(2.4u,3.6v);
+z73=(1.6u,2.5v); z74=(0.9u,3.3v); z75=(1.1u,3.7v); z76=(2.2u,0.4v);
+z77=(4u,2.15v); z78=(5.85u,5.5v); z79=(5.7u,6.5v); z80=(5u,7.75v);
+z81=(3.15u,8.55v); z82=(0.05u,6.1v); z83=(2.2u,3.85v); z84=(3.8u,5.5v);
+z85=(2.6u,6.75v); z86=(1.5u,6v); z87=(2.2u,4.9v); z88=(3u,5.7v);
+z89=(0.4u,4.5v); z90=(-0.1u,5.1v); z91=(0.1u,5.5v); z92=(0.5u,6.15v);
+z93=(0.1u,6.6v); z94=(-0.2u,6.3v); z95=(0.45u,5.6v); z96=(0.8u,5.2v);
+z97=(0.5u,4.75v); z98=(0.6u,5.8v); z99=(0,7.7v); z100=(-0.5u,8.25v);
+z101=(-0.2u,8.6v); z102=(3.8u,1.3v); z103=(4.8u,0.45v); z104=(4.2u,-0.2v);
+z105=(3.65u,0.3v); z106=(4u,0.7v); z107=(4.2u,0.6v); z108=(4.1u,0.2v);
+z109=(4.4u,0.15v); z110=(4.7u,8.55v); z111=(4.3u,8.2v); z112=(4.5u,7.9v);
+z113=(6.6u,8.45v); z114=(7.6u,8v); z115=(8.8u,7v); z114'=(5.5u,8.5v);
+z116=(9.5u,7.9v); z117=(8.65u,8.6v); z118=(7.4u,7v); z119=(5.25u,0);
+z120=(7.4u,2.05v); z121=(8.4u,4.1v); z122=(7.6u,6.1v); z123=(6.6u,6.4v);
+z124=(5.45u,5.5v); z125=(6.4u,4.55v); z126=(7.15u,5.2v); z127=(6.5u,5.8v);
+z128=(6.15u,5.5v); z129=(6.5u,1.15v); z130=(7.25u,0.85v); z131=(6.8u,-0.15v);
+z132=(6.3u,0.3v); z133=(6.65u,0.65v); z134=(6.7u,0.35v); z135=(6.9u,0.2v);
+z136=(8.5u,-0.05v); z137=(9.15u,0.6v); z138=(8.85u,0.95v); z139=(8.7u,1.8v);
+z140=(7.9u,2.7v); z141=(7.7u,4.3v); z141'=(7.9u,5.8v); z142=(8.8u,6.2v);
+z143=(9.5u,5.6v); z144=(9.3u,5.15v); z145=(8.7u,5.4v); z146=(8.8u,4.5v);
+z147=(8.6u,4.95v); ka(61,0); ka(62,90); ka(63,180); ka(64,-90); ka(65,0);
+ka(66,90); ka(67,180); ka(68,0); ka(69,-17.5); ka(70,-65); ka(71,-90);
+ka(72,180); ka(73,90); ka(74,0); ka(75,-50); ka(76,-30); ka(77,-50); ka(78,0);
+ka(79,15); ka(80,45); ka(81,90); ka(82,180); ka(83,-90); ka(84,0); ka(85,90);
+ka(86,180); ka(87,-90); ka(88,0); ka(89,90); ka(90,0); ka(91,-51); ka(92,0);
+ka(93,90); ka(94,180); ka(95,-90); ka(96,180); ka(97,90); ka(99,90);
+ka(100,0); ka(101,-90); ka(102,-90); ka(103,180); ka(104,90); ka(105,0);
+ka(106,-90); penpos107(0.25uv,-160); penpos108(0.222uv,-157); ka(114,-146);
+ka(109,-90); ka(110,90); ka(111,180); ka(112,-90); ka(113,-90); ka(115,-90);
+ka(116,0); ka(117,90); ka(118,180); ka(119,-23); ka(120,-42); ka(121,0);
+ka(122,48); ka(123,90); ka(124,180); ka(125,-90); ka(126,0); ka(127,90);
+ka(128,180); ka(129,-90); ka(130,-139); ka(131,90); ka(132,0);
+penpos133(0.2uv,-134); penpos134(0.2u,180); ka(135,-90); ka(136,-90);
+ka(137,0); ka(138,90); ka(139,90); ka(140,0); ka(141,0); ka(141',-29);
+ka(142,-90); ka(143,180); ka(144,131); ka(145,0); ka(146,180); penstroke
+z61e{up}...z62e{left}... z63e...z64e...z65e... z66e...z67e{down};
+kouki(67,4,1.1); penstroke z62e{left}...z68e...z69e...
+z70e...z71e...z72e...z73e...z74e... z75e{(7u,9v)-z75}; z88'=z47+(0,-0.1v);
+ka(88',90); penstroke z76e{(7u,9v)-z76}... z77e...z78e...z79e...z80e...z81e...
+z82e...z83e...z84e...z85e...z86e{down}... z87e...z88e...z88'e; z70'=z70;
+ka(70',107); penstroke z86e{down}... z70'e...z89e...z90e... z91e...z95e...
+z96e...z97e{left}; kouki(97,5,1.2); mpalla(98,1.1); penstroke
+z91e{(4u,9v)-z91}...z92e... z93e...z94e{down}; kouki(94,4,1.1); z99'=(u,7.95v);
+ka(99',121); penstroke z99'e{(-u,-0.4v)}...z99e ...z100e...z101e{right};
+kouki(101,8,1); penstroke z76e{(7u,9v)-z76}... z102e{right}...z103e...z104e...
+z105e{up}...z106e{right}...z107e...z108e... z109e{right}; z84'=(4.3u,7.1v);
+z84''=z80; ka(84',-43); ka(84'',-54); penstroke z84e{up}...z84'e...
+z84''e{(6u,9v)-z84''} ...z110e...z111e...z112e{right}; kouki(112,6,1.1);
+penstroke z84''e{(6u,9v)-z84''}... z113e...z114e...z115e...z116e...
+z117e...z118e{down}; mpalla(114',1.5); mpalla(113,1.4); mpalla(116,1.3);
+penstroke z119e{(9u,9v)-z119}... z120e...z121e...z122e{(-3u,3v)}...
+z123e...z124e...z125e...z126e... z127e...z128e{down}; kouki(128,4,1.6);
+z118'=z118; ka(118',0); penstroke z122e{(-3u,3v)}...z118'e{up}; penstroke
+z119e{(9u,9v)-z119}... z129e...z130e{(8u,0)-z130}...
+z131e...z132e...z133e...z134e... z135e{right}; penstroke z130e{(8u,0)-z130}...
+z136e...z137e...z138e{left}; kouki(138,7,1.5); penstroke z139e{left}...z140e...
+z141e...z141'e...z142e...z143e... z144e{left}...z145e{up}; kouki(145,2,1.5);
+penstroke z144e{left}...z146e{down}; kouki(146,4,1.3); mpalla(147,1.2);
+z150=(2.7u,8.2v); z151=(1.9u,7.9v); z152=(2.4u,9v); z160=(5.2u,6.3v);
+z161=(4.9u,6.75v); z162=(6.2u,6.9v); triaina(150,151,152,0.8);
+triaina(160,161,162,0.45); mpalla(114,1.5); z148=(3.05u,0.65v); z149=(3.4u,0.6v);
+z149'=(3.7u,0.8v); z148'=(2.7u,0.85v); penpos148(0.4uv,-113);
+penpos149(0.1v,-90); ka(149',0); penpos148'(0.1v,-90); penstroke
+z76e{(7u,9v)-z76}... z148'e...z148e...z149e...z149'e{up}; kouki(149',1,1.2);
+penlabels(range 1 thru 150);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitN.mf b/fonts/gothic/yinit/yinitN.mf
new file mode 100644
index 0000000000..218bc1349e
--- /dev/null
+++ b/fonts/gothic/yinit/yinitN.mf
@@ -0,0 +1,109 @@
+.cmchar "The letter N";
+.beginchar("N",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.9u,0.6v); z2=(4.45u,1.55v); z3=(3.6u,1.75v); z4=(1.75u,2.3v);
+z5=(1.4u,3.15v); z6=(2.3u,4.15v); z7=(2.9u,3.5v); z8=(2.45u,2.95v);
+z9=(2u,3.3v); z10=(2.2u,3.52v); z11=(2.5u,3.45v); z12=(2.7u,3.6v);
+z13=(5.1u,2.1v); z14=(6.1u,3.3v); z15=(5.5u,4.05v); z16=(5u,3.65v);
+z17=(5.2u,3.3v); z18=(5.4u,3.35v); z19=(5.6u,3.3v); z20=(5.6u,3v);
+z21=(7.75u,0.8v); z22=(8.6u,1.8v); z23=(7.5u,1.7v); z24=(7u,2.6v);
+z25=(6.8u,4.95v); z26=(7.45u,6.2v); z27=(2.5u,2v); z28=(3.75u,4.5v);
+z29=(3.05u,6.05v); z30=(3u,6.6v); z31=(1.9u,5.65v); z32=(2.8u,2v);
+z33=(4.5u,5.55v); z35=(3u,7.45v); z34=(3.95u,6.9v); z36=(1.7u,7.15v);
+z37=(0.5u,7.65v); z38=(0.55u,8.05v); z39=(1.3u,8.3v); z40=(1.55u,8.15v);
+z41=(1.95u,8.25v); z42=(1.9u,8.5v); z43=(5.65u,7.95v);z44=(6.65u,7.55v);
+z45=(7.3u,6.8v); z34'=z34; z46=(8.2u,6.65v); z47=(8.8u,7.4v); z48=(8.3u,7.9v);
+z49=(7.9u,7.5v); z50=(9.05u,2.5v); z51=(8.5u,3.1v); z52=(8.05u,2.7v);
+z53=(8.25u,2.45v); ka(1,0); penpos2(1.5hair,-45); penpos3(0.9uv,60);
+penpos4(0.65uv,41); penpos5(0.25u,0); ka(6,-90); ka(7,180); ka(8,90); ka(9,0);
+penpos10(0.25v,-90); penpos11(0.2v,-111); ka(12,0); ka(13,-51); ka(14,0);
+ka(15,90); ka(16,180); penpos17(0.25uv,-108); penpos18(0.3uv,-57);
+penpos19(0.2uv,-133); ka(20,180); ka(21,0); penpos22(1.5hair,-54);
+penpos23(0.8uv,48); penpos24(0.75uv,15); penpos25(0.6u,-18); ka(26,-40);
+ka(27,-46); penpos28(0.35u,0); penpos29(0.8uv,40); ka(30,180); ka(31,-69);
+ka(32,-44); penpos33(0.6u,0); penpos34(0.85uv,42); ka(34',-52);
+penpos35(0.9uv,78); penpos36(0.75uv,110); penpos37(0.2u,18); ka(38,-35);
+penpos39(0.4uv,-129); penpos40(0.4uv,-106); penpos41(0.1uv,-45); ka(42,0);
+penpos43(0.3uv,-83); penpos44(0.8uv,-134); penpos45(0.6uv,-140);
+penpos46(0.1v,-90); ka(47,0); ka(48,90); ka(49,180); ka(50,0); ka(51,90);
+ka(52,180); ka(53,-90); filldraw z1r{up}...z2r{z2-(3u,0)}... z13r{(9u,5v)-z13} &
+z13r--z13l & z13l{z13-(9u,5v)}...z2l{(3u,0)-z2} &
+z2l{(0,9v)-z2}...z3r...z4r...z5r... z6r{right} & z6r--z6l & z6l{left}...
+z5l...z4l...z3l...z1l{down} & z1l--z1r & cycle; penstroke
+z6e{right}...z7e...z8e{left}... z9e{up}...z10e...z11e...z12e{up}; penstroke
+z13e{(9u,5v)-z13}...z14e... z15e...z16e...z17e...z18e...z19e... z20e{down};
+filldraw z21r{up}...z22r...z50r{up} & z50r--z50l & z50l{down}...z22l...
+z23r...z24r...z25r...z26r{(9u,8.3v)-z26} & z26r--z26l & z26l{z26-(9u,7.2v)}...
+z25l...z24l...z23l...z21l{down} & z21l--z21r & cycle; penstroke
+z50e{up}...z51e... z52e{down}; kouki(52,4,2); penstroke
+z34'e{(6.5u,9v)-z34'}...z43e... z44e...z45e...z46e...z47e...z48e... z49e{down};
+kouki(49,4,2); penstroke z32e{(9u,8.4v)-z32}...z33e
+...z34e...z35e...z36e...z37e...z38e... z39e...z40e...z41e...z42e; filldraw
+z27r{(8.6u,9v)-z27}...z28r... z29r...z30l{up} & z30l--z30r &
+z30r{(0,0)-z30}...z31l{z31-(8u,9v)} & z31l--z31r & z31r{(9u,7.2v)-z31}...
+z29l...z28l...z27l{z27-(8.6u,9v)} & z27l--z27r & cycle; z50'=(3.7u,0.2v);
+z51'=(2.9u,1.1v); z52'=(2.35u,0.6v); z53'=(2.8u,0.15v); z54=(3.15u,0.5v);
+z55=(2.9u,0.85v); z56=(0.85u,1.85v); z57=(0.25u,3.05v); z58=(3.75u,0.25v);
+z58'=(0.7u,4.55v); z580=(0,4.3v); z59=(1.9u,5.1v); z60=(3.25u,3.9v);
+z61=(1.8u,2.25v); z62=(0.3u,v); z63=(1.2u,0); z64=(1.9u,0.7v);
+z65=(1.3u,1.3v); z66=(0.85u,0.8v); z67=(0.3u,-0.05v); z68=(0.85u,3.3v);
+z69=(2u,4.5v); z70=(3.1u,4.4v); z71=(3.2u,2v); z72=(4.65u,3v);
+z73=(5.05u,2.65v); z74=(4.7u,2.3v); z75=(5.05u,4.7v); z76=(5.2u,6v);
+z77=(4.5u,8.3v); z78=(5.05u,8.9v); z79=(5.5u,8.5v); z80=(5.15u,8.2v);
+z81=(4.15u,8.75v); z82=(3.45u,8.25v); z83=(0.7u,6.35v); z84=(0.5u,7.75v);
+z85=(-0.05u,8.4v); z86=(0.25u,8.75v); z87=(0.55u,8.5v); z88=(0.1u,4.8v);
+z89=(1.3u,5.6v); z90=(2.3u,4.8v); z91=(4u,6.5v); z92=(1.4u,6.5v);
+z93=(2.2u,5.6v); z94=(2.9u,6.15v); z95=(2.4u,6.6v); z96=(6.9u,9v);
+z97=(8.3u,7.7v); z98=(7u,6.4v); z99=(6.1u,7.3v); z100=(7u,8.35v);
+z101=(8.15u,8.2v); z102=(8.6u,8.6v); z103=(3.95u,0.2v); z104=(4.4u,1.1v);
+z105=(5.95u,2.35v); z106=(8.3u,4.5v); z107=(7u,6v); z108=(5.5u,4.5v);
+z109=(6.7u,3.3v); z110=(7.75u,4.35v); z111=(6.8u,5.2v); z112=(6.05u,4.5v);
+z113=(6.8u,3.8v); z114=(5.5u,1.8v); z115=(7u,v); z116=(6.2u,0);
+z117=(5.6u,0.35v); z118=(6u,1.2v); z119=(4.8u,0.95v); z120=(4.35u,0.5v);
+z121=(6.45u,0.8v); z122=(6.2u,0.5v); z123=(8.15u,0); z124=(8.8u,0.7v);
+z125=(8.4u,1.2v); z126=(8u,0.8v); z127=(8.3u,0.45v); z128=(8.5u,2.9v);
+z129=(8.85u,2.5v); z130=(8.4u,2v); z131=(7.45u,4v); z132=(7.6u,5.4v);
+z133=(8.5u,6.3v); ka(50',6); ka(51',84); ka(52',180); ka(53',-90); ka(54,0);
+ka(55,90); ka(56,48); ka(57,0); ka(58,0); ka(58',-44); ka(59,-90); ka(60,180);
+ka(61,90); ka(62,180); ka(63,-90); ka(64,0); ka(65,90); ka(66,163); ka(67,90);
+ka(68,0); ka(69,-90); ka(70,-90); ka(580,0); ka(71,-45); ka(72,-90);
+ka(73,180); ka(74,90); ka(75,-13); ka(76,0); ka(77,0); ka(78,-90); ka(79,180);
+ka(80,90); ka(81,90); ka(82,69); ka(83,180); ka(84,90); ka(85,0); ka(86,-90);
+ka(87,180); ka(88,90); ka(89,-90); ka(90,-90); ka(91,0); ka(92,180);
+ka(93,-90); ka(94,0); ka(95,90); ka(96,-90); ka(97,180); ka(98,90); ka(99,0);
+ka(100,-90); ka(101,-105); ka(102,0); ka(103,-17); ka(104,-40); ka(105,-65);
+ka(106,0); ka(107,90); ka(108,180); ka(109,-90); ka(110,0); ka(111,90);
+ka(112,180); ka(113,-90); ka(114,-90); ka(115,-153); ka(116,90); ka(117,40);
+ka(118,-90); ka(119,90); ka(120,180); ka(121,180); ka(122,90); ka(123,-90);
+ka(124,0); ka(125,90); ka(126,180); ka(127,-90); ka(128,-90); ka(129,180);
+ka(130,90); ka(131,0); ka(132,-18); ka(133,-90); penstroke
+z50'e{(3u,9v)-z50'}... z51'e{left}...z52'e...z53'e...z54e... z55e{left};
+kouki(55,7,1.2); penstroke z51'e{left}...z56e...z57e{up}...
+z58'e...z59e...z60e...{left}z61e...z62e...
+z63e...z64e...z65e...z66e...z67e{left}; kouki(67,5,1.5); mpalla(57,1.3);
+mpalla(58',1.4); penstroke z57e{up}...z580e{up}; kouki(580,1,1); z61'=z61;
+ka(61',90); penstroke z61'e{left}...z68e...z69e... z70e{right}; kouki(70,6,1.2);
+penstroke z71e{(9u,7.5v)-z71}...z72e ...z73e...z74e{left}; kouki(74,5,1.3);
+penstroke z71e{(9u,7.5v)-z71}...z75e ...z76e{up}...z77e...z78e...z79e...z80e...
+z81e{left}; kouki(81,7,1); kouki(80,5,1.3); penstroke z76e{up}...z96e...z97e...
+z98e...z99e...z100e...z101e...z102e{up}; kouki(102,1,1.8); penstroke
+z103e{(7u,9v)-z103}... z104e{(9u,7v)-z104}...z105e...
+z106e...z107e...z108e...z109e...z110e... z111e...z112e...z113e; mpalla(105,1.5);
+mpalla(106,1.2); mpalla(107,1.4); z82'=z41; ka(82',75); penstroke
+z76e{up}...z82e... z82'e{(0,7.4v)-z82'}...z84e...z85e... z86e...z87e{down};
+kouki(87,3,1.1); penstroke z82'e{(0,7.4v)-z82'}... z83e{down}...z88e{left};
+kouki(88,5,1.2); penstroke z83e{down}...z90e...z91e...
+z92e...z93e...z94e...z95e{left}; kouki(95,7,1.4); z134=(5.8u,6.6v); ka(134,-90);
+penstroke z75e{(5.7u,9v)-z75}... z134e{right}; kouki(134,8,1); mpalla(75,1.5);
+z150=(3.05u,7.75v); z151=(2.35u,7.85v); z152=(3.15u,9v);
+triaina(150,151,152,0.5); penstroke z104e{(9u,7v)-z104}...
+z114e...z115e{z115-(4u,9v)}... z116e...z117e{(0.7u,9v)-z117}...
+z118e...z121e...z122e{left}; kouki(122,5,1.6); penstroke
+z117e{(0.7u,9v)-z117}... z119e...z120e{down}; kouki(120,4,1.6); penstroke
+z115e{z115-(4u,9v)}... z123e...z124e...z125e...z126e... z127e{right};
+kouki(127,6,1.6); mpalla(117,1.2); mpalla(83,1.7); z83'=(7.15u,0.3v);
+mpalla(83',1.3); penstroke z128e{right}...z129e...
+z130e...z131e...z132e...z133e{right}; kouki(133,8,1.1); penlabels(range 1 thru
+140);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitO.mf b/fonts/gothic/yinit/yinitO.mf
new file mode 100644
index 0000000000..6c24b75cd5
--- /dev/null
+++ b/fonts/gothic/yinit/yinitO.mf
@@ -0,0 +1,86 @@
+.cmchar "The letter O";
+.beginchar("O",8.9u#+0.1mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.9u,6.9v); z2=(3.1u,6.4v); z3=(1.65u,3.35v); z4=(2.35u,1.6v);
+z5=(4.4u,0.6v); z6=(7u,1.7v); z7=(7.9u,4.8v); z8=(5.65u,7.7v); z9=(3.35u,7.7v);
+z10=(1.85u,7.25v); z11=(0.75u,8.15v); z12=(1.4u,8.75v); z13=(1.9u,8.5v);
+z14=(2u,8.15v); z15=(2.5u,8.2v); z16=(3.7u,2.4v); z17=(4u,2.25v);
+z18=(4.7u,2.9v); z19=(4.35u,3.7v); z20=(3.4u,4.05v); z21=(3.4u,4.6v);
+z22=(2.3u,3.4v); z23=(3.85u,2.8v); z24=(3.5u,2.95v); z25=(3.35u,2.4v);
+z26=(4.4u,1.95v); z27=(5.7u,3.7v); z28=(5.4u,4.35v); z29=(3.9u,5.55v);
+z30=(4.9u,6.6v); z31=(5.8u,5.9v); z32=(5.6u,5.45v); z33=(4.85u,1.7v);
+z34=(5.6u,2.2v); z35=(6.6u,1.7v); z36=(7.15u,0.6v); z37=(8.15u,0.25v);
+z38=(8.85u,1.1v); z39=(8.4u,1.7v); ka(1,95); penpos2(1.5hair,119);
+penpos3(0.9u,183); penpos4(1.1uv,-135); penpos5(0.7v,-90); penpos6(0.15uv,-42);
+penpos7(0.65u,0); penpos8(1.05uv,65); penpos9(uv,106); penpos10(0.6v,90);
+penpos11(1.5hair,0); penpos12(0.2v,-90); penpos13(0.55v,-173);
+penpos14(0.4v,-156); ka(15,-27); penstroke z1e{(0,6.6v)-z1}...z2e...
+z3e...z4e...z5e...z6e...z7e...z8e... z9e...z10e...z11e...z12e...z13e...
+z14e...z15e; ka(16,180); penpos17(0.1v,-90); penpos18(0.5u,0);
+penpos19(0.62uv,59); penpos20(0.8uv,60); ka(21,180); ka(22,-58); filldraw
+z16r{down}...z17r...z18r... z19r...z20r...z21l{up} & z21l--z21r &
+z21r{down}...{z22-(9u,8.5v)}z22l & z22l--z22r &
+z22r{(9u,6.5v)-z22}...z20l...z19l...z18l...z17l... z16l{up} & z16l--z16r & cycle;
+penpos23(0.5u,12); penpos24(0.4v,90); ka(25,180); penpos26(0.1v,-90); filldraw
+z16l{right}...z23r...z24r ...{z25-(0,9v)}z25r...z26r{right} & z26r--z26l &
+z26l{left}... z25l{(0,9v)-z25}...z24l...z16l{down} & cycle; penpos27(0.9u,0);
+penpos28(uv,47); penpos29(0.9uv,12); penpos30(0.15v,-90); penpos31(0.1u,180);
+ka(32,90); kouki(31,3,3); penstroke z26e{right}...z27e...z28e
+...z29e...z30e...z31e{down}; z40=(2.6u,0.3v); z41=(2.35u,0.4v);
+z42=(1.55u,0.1v); z43=(1.2u,-0.05v); z44=(0.15u,1.15v); z45=(2.5u,3.9v);
+z46=(3.4u,5.5v); z47=(2.4u,6.9v); z48=(1.6u,6.3v); z49=(1.85u,5.95v);
+z50=(1.9u,0.8v); z51=(1.3u,1.35v); z52=(0.9u,0.75v); z53=(1.2u,0.45v);
+z54=(0.55u,0.75v); z55=(0.05u,0); z56=(4u,0); z57=(8.6u,4.6v); z58=(4.2u,9v);
+z59=(0.5u,6.55v); z60=(0.9u,5.2v); z61=(1.9u,4.65v); z62=(2.8u,3v);
+z63=(2.3u,1.55v); z64=(0,2.7v); z65=(u,3.7v); z66=(u,2.3v); z67=(0.6u,2.8v);
+z68=(0.3u,5.25v); z69=(-0.15u,4.85v); z70=(0.1u,4.5v); z71=(1.35u,8.2v);
+z72=(0.35u,7.6v); z73=(-0.1u,8.1v); z74=(0.3u,8.5v); z67'=(0.8u,4.75v);
+z75=(0.65u,8.2v); z76=(0.5u,8.8v); z77=(3.8u,3.4v); z78=(2.95u,2.8v);
+z79=(3.7u,1.65v); z80=(4.45u,1.5v); z81=(6.45u,3.7v); z82=(5.8u,5.35v);
+z83=(4.9u,7v); z84=(6.7u,9v); z84'=(7.5u,8.8v); z85=(8.4u,7.4v); z86=(7u,5.95v);
+z87=(5.85u,7.1v); z88=(7u,8.35v); z89=(7.75u,7.6v); z90=(8.7u,8.4v);
+z91=(9u,8.8v); z92=(8.75u,9.05v); z93=(6.8u,3.6v); z94=(6.7u,5.4v);
+z95=(6.25u,5.55v); z96=(7.2u,3.5v); z97=(8.6u,5.15v); z98=(8.6u,4.55v);
+z99=(8.7u,6.6v); z100=(7.3u,2.65v); z101=(8.15u,2.55v); z102=(9u,2.9v);
+z103=(8.7u,3.2v); z104=(8.7u,1.5v); z105=(7.7u,0.5v); z106=(6.9u,1.2v);
+z107=(7.6u,1.9v); z108=(8.15u,1.5v); z109=(7.75u,v); z110=(1.25u,6.8v);
+z111=(1.25u,5.9v); z112=(-0.2u,6.85v); z113=(0.85u,4v); z114=(2.4u,4.35v);
+z115=(6.1u,0.35v); z116=(6.6u,0.2v); z117=(6.95u,0.15v); z118=(7u,0.4v);
+ka(115,-66); penpos116(0.25uv,-147); ka(44,180); ka(43,-90); ka(42,-60);
+ka(41,-90); ka(40,180); ka(50,0); ka(51,90); ka(52,180); ka(53,-90); ka(54,161);
+ka(55,90); z44'=z44; ka(44',0); ka(45,-49); ka(46,0); ka(47,90); ka(48,180);
+ka(49,-90); ka(56,-92); ka(57,0); ka(58,90); ka(59,180); ka(60,-139); ka(61,-90);
+ka(62,180); ka(63,90); ka(64,0); ka(65,-90); ka(66,90); ka(67,0); ka(67',0);
+ka(68,90); ka(69,180); ka(70,-90); ka(71,120); ka(72,90); ka(73,0); ka(74,-90);
+ka(75,180); ka(76,0); ka(77,90); ka(78,180); ka(79,-114); ka(80,-90); ka(81,0);
+ka(82,36); ka(83,0); ka(84,-90); ka(85,180); ka(86,90); ka(87,0); ka(88,-90);
+ka(89,180); ka(90,-90); ka(91,0); ka(92,90); ka(93,0); ka(94,35); ka(95,90);
+ka(96,-24); ka(97,0); penpos98(0.3v,90); ka(99,-90); ka(100,-90); ka(101,-115);
+ka(102,0); ka(103,90); ka(104,180); ka(105,90); ka(106,0); ka(107,-90);
+ka(108,180); ka(109,90); ka(84',-74); penstroke z44e{down}...z43e...
+z42e{(9u,4.6v)-z42}...z41e... z40e{down}; kouki(40,3,1.2); penstroke
+z42e{(9u,4.6v)-z42}... z50e...z51e{left}...z54e...z55e{left}; kouki(55,5,1.5);
+penstroke z51e{left}...z52e... z53e{right}; kouki(53,6,1.1); penstroke
+z44'e{up}...z45e...z46e... z47e...z48e...z49e{right}; kouki(49,6,1.2);
+penstroke z56e{(9u,-0.2v)-z56}...z115e{(9u,1.5v)-z115}...
+z57e...z58e...z71e{(0,7.3v)-z71}...z59e... z60e{(4.8u,0)-z60}...z61e...z46e{up};
+mpalla(58,1.1); mpalla(60,1.5); penstroke z60e{(4.8u,0)-z60}...
+z62e...z63e...z64e{up}...z65e... z66e...z67e{up}; kouki(67,2,1.2);
+mpalla(64,1.2); penstroke z64e{up}...z67'e...z68e... z69e...z70e{right};
+kouki(70,6,1.5); penstroke z71e{(0,7.3v)-z71}...z72e
+...z73e...z74e{right}...z75e{down}; penstroke z74e{right}...z76e{up};
+kouki(75,3,1.2); kouki(76,1,1.4); penstroke z77e{left}...z78e...z79e
+...z80e{right}...z81e...z82e...z83e ...z84e...z84'e{(9u,8v)-z84'}...
+z85e...z86e...z87e...z88e... z89e{down}; kouki(89,3,1.4); penstroke
+z84'e{(9u,8v)-z84'}... z90e...z91e...z92e{left}; kouki(92,7,1.2);
+mpalla(84',1.4); mpalla(79,1.4); mpalla(81,1.5); penstroke
+z80e{right}...z93e...z94e ...z95e; penstroke z80e{right}...z100e...
+z101e{(9u,2.2v)-z101}...z104e... z105e...z106e...z107e...z108e... z109e{left};
+kouki(109,5,1.4); penstroke z101e{(9u,2.2v)-z101}... z102e...z103e{left};
+kouki(103,7,1.3); z97'=z97; ka(97',-90); penstroke z93e...z97'e{right}...
+z98e{left}; penstroke z97e{up}...z99e{right}; kouki(95,7,1); kouki(99,8,1.3);
+penpos117(0.1uv,-51); ka(118,0); penstroke z115e{(9u,1.5v)-z115}...
+z116e...z117e...z118e{up}; mpalla(114,1.3); mpalla(113,1.5);
+triaina(110,111,112,0.65); penlabels(range 1 thru 120);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitP.mf b/fonts/gothic/yinit/yinitP.mf
new file mode 100644
index 0000000000..d86c000ca8
--- /dev/null
+++ b/fonts/gothic/yinit/yinitP.mf
@@ -0,0 +1,100 @@
+.cmchar "The letter P";
+.beginchar("P",8.9u#-0.4mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.7u,0); z2=(5.1u,1.27v); z3=(4.65u,1.65v); z4=(2.35u,2.45v);
+z5=(1.8u,3.4v); z6=(2.65u,4.35v); z7=(3.35u,3.75v); z8=(3u,3.3v);
+z9=(2.7u,2.3v); z10=(3.1u,2.1v); z11=(4.1u,4.7v); z12=(3.45u,6v);
+z13=(2.2u,5.6v); z14=(3.5u,6.7v); z15=(5u,5.55v); z16=(3.9u,7.4v);
+z17=(3u,7.6v); z18=(1.6u,7.2v); z19=(0.25u,8v); z20=(0.6u,8.55v);
+z21=(u,8.4v); z22=(1.15u,8.15v); z23=(1.6u,8.2v); z24=(4.65u,6.4v);
+z25=(5.9u,7.15v); z26=(6.5u,7.45v); z27=(7.45u,8.2v); z28=(7u,7.25v);
+z29=(8.15u,5.55v); z30=(6.2u,3.5v); z31=(5.2u,4.5v); z32=(5.9u,5.3v);
+z33=(6.5u,4.95v); z34=(7.35u,5.35v); z35=(6.05u,3.95v); z36=(5.6u,1.1v);
+z37=(6.8u,2.3v); z38=(6.1u,3.1v); z39=(5.5u,2.6v); penpos1(0.1u,0);
+penpos3(uv,62); penpos2(uv,28.5); penpos4(0.6uv,47); penpos5(0.3u,0);
+penpos6(1.5hair,-90); ka(7,180); ka(8,90); ka(9,-56); ka(10,-56);
+penpos11(0.5u,0); penpos12(0.95uv,35); ka(13,-67); ka(14,180); penpos15(0.7u,0);
+penpos16(uv,58); penpos17(1.05v,90); penpos18(0.8uv,106); ka(19,0);
+penpos20(0.15v,-90); penpos21(0.4uv,-137); penpos22(0.4uv,-137); ka(23,-50);
+penpos24(2hair,-56); penpos25(2hair,-63); penpos26(2hair,-63); ka(27,152);
+penpos28(1.05uv,39); penpos29(0.8u,0); penpos30(0.1v,-90); ka(31,180);
+penpos32(0.4v,90); penpos33(0.7uv,36); ka(35,180); ka(34,0);
+penpos36(1.5hair,-65); penpos37(1.2hair,0); ka(38,90); ka(39,180); filldraw
+z1r{(9u,9v)-z1}...z36r{z36-(2.5u,0)}... z37r...z38r{left} & z38r--z38l &
+z38l{right}...z37l... z36l{(2.5u,0)-z36} & z36l...z2r...z3r
+...z4r...z5r...z6r{right} & z6r--z6l & z6l{left}...z5l...z4l...
+z3l...z2l...z1l{z1-(7u,9v)} & z1l--z1r & cycle; penstroke
+z38e{left}...z39e{down}; kouki(39,4,2.5); penstroke z6e{right}...z7e...z8e{left};
+kouki(8,5,2.5); filldraw z9r{(9u,7v)-z9}...z11r... z12r...z14l{up} & z14l--z14r
+& z14r{(0,v)-z14}...z13l{z13-(9u,8v)} & z13l--z13r &
+z13r{(9u,7.6v)-z13}...z12l...z11l... z9l{z9-(9u,7v)} & z9l--z9r & cycle;
+penstroke z10e{(9u,7v)-z10}... z15e...z16e...z17e...z18e...z19e...
+z20e...z21e...z22e...z23e; filldraw z24r...z25r...z26r & z26r{down}
+...z28l...z29l...z30l...z31l{up}...z32l ...z33l...z35r{down} & z35r--z35l &
+z35l{up}...(6.4u,4.5v)---(7.2u,5v)... z34r{up} & z34r--z34l & z34l{down}...
+z33r...z32r{left}...z31r{down}...z30r...z29r... z28r...z27l{(8u,9v)-z27} &
+z27l--z27r & z27r{z27-(8u,9v)}...z26l...z25l... z24l & z24l--z24r & cycle;
+kouki(35,4,1.5); kouki(34,1,1.5); z40=(4.6u,0); z41=(3.4u,v); z42=(2.7u,0.3v);
+z43=(3.15u,-0.15v); z44=(3.45u,0.15v); z45=(3.4u,1.1v); z46=(2.45u,0.9v);
+z47=(0.9u,0); z48=(0,0.8v); z49=(0.4u,v); z50=(1.5u,0.7v); z51=(1.1u,1.05v);
+z52=(3.4u,1.2v); z53=(2.8u,1.3v); z54=(0.8u,3.3v); z55=(2.5u,5.2v);
+z56=(3.6u,4v); z57=(2.75u,2.9v); z60'=(1.5u,2.3v); z58=(2.15u,3.45v);
+z59=(2.5u,4v); z60=(1.4u,2.5v); z61=(2u,4.55v); z62=(2.3u,5.3v); z63=(1.4u,6.2v);
+z64=(0.6u,5.5v); z65=(0.7u,5.1v); z66=(0.55u,4.1v); z67=(1.3u,4.85v);
+z68=(1.6u,5.4v); z69=(1.05u,5.65v); z70=(0.8u,2.7v); z71=(0.25u,2.05v);
+z72=(0.8u,1.6v); z73=(1.2u,2v); z74=(3.6u,2v); z75=(5.6u,5.5v); z77=(3u,8.85v);
+z78=(0.5u,6.8v); z77.1=(u,8.95v); z77.2=(2.1u,8.5v); z77.3=(1.4u,8.75v);
+z79=(4u,5.9v); z80=(3.05u,6.85v); z81=(2u,6.1v); z82=(2.5u,5.2v);
+z83=(6.3u,7.35v); z84=(5.3u,8.9v); z85=(4.55u,8.5v); z86=(4u,8.2v);
+z87=(3.5u,8.55v); z88=(3.9u,9v); z89=(4.15u,8.75v); z76=(5.6u,5.8v);
+z90=(5.1u,7.5v); z91=(5.65u,8v); z92=(7.25u,8.75v); z93=(8.55u,7.4v);
+z94=(7.2u,6.15v); z95=(7.2u,8.2v); z96=(8.5u,7.9v); z97=(8.85u,8.3v);
+z98=(8.5u,8.65v); z99=(6.15u,6.45v); z100=(3.75u,1.9v); z100'=(5.6u,3.75v);
+z101=(6.75u,4.2v); z102=(8.45u,2.5v); z103=(8u,2.1v); z104=(7.1u,0.95v);
+z105=(5.85u,2v); z106=(6.8u,3.1v); z107=(7.55u,2.3v); z108=(7.5u,2v);
+z109=(7u,1.65v); z110=(6.45u,2.1v); z111=(5.6u,0.5v); z112=(7u,0.7v);
+z113=(7.6u,0); z114=(8u,0.6v); z115=(7.7u,0.9v); z116=(8.45u,0.35v);
+z117=(6.1u,-0.1v); z117'=(6.7u,v); z118=(4.8u,3.4v); z119=(5u,3.6v);
+z120=(5.4u,3.2v); z121=(5.2u,3v); ka(40,0); ka(41,90); ka(42,180); ka(43,-90);
+ka(44,0); ka(45,90); ka(46,125); ka(47,90); ka(48,0); ka(49,-90); ka(50,90);
+ka(51,0); ka(52,90); ka(53,76); ka(54,0); ka(55,-90); ka(56,180); ka(57,90);
+ka(58,0); ka(59,-71); ka(60,0); ka(61,-47); ka(62,0); ka(63,90); ka(64,180);
+ka(65,-146); ka(66,90); ka(60',23); ka(67,-90); ka(68,0); ka(69,140); ka(70,90);
+ka(71,180); ka(72,-90); ka(73,0); ka(74,-50); ka(75,-10); ka(76,0); ka(77,90);
+ka(78,180); ka(77.1,0); ka(77.2,180); ka(77.3,90); ka(79,0); ka(80,90);
+ka(81,180); ka(82,-90); ka(83,0); ka(84,90); ka(85,180); ka(86,90); ka(87,0);
+ka(88,-90); ka(89,180);ka(100',-48); ka(90,-90); ka(91,0); ka(92,-90);
+ka(93,180); ka(94,90); ka(95,-90); ka(96,-90); ka(97,0); ka(98,90); ka(100,-51);
+ka(101,-90); ka(102,180); ka(103,90); ka(104,90); ka(105,0); ka(106,-90);
+ka(107,180); ka(108,144); ka(109,90); ka(110,0); ka(111,180); ka(112,180);
+ka(113,-90); ka(114,0); ka(115,90); ka(116,-90); ka(117,90); ka(117',147);
+penstroke z40e{up}...z41e{left}... z42e...z43e...z44e{up}; kouki(44,1,1.6);
+penstroke z45e{left}...z46e...z47e... z48e...z49e{right}; kouki(49,8,1.7);
+penstroke z46e...z50e...z51e{up}; kouki(51,2,1.1); penstroke z40e{up}...z52e...
+z53e{(0,2v)-z53}... z60'e{(0,5v)-z60'}...z60e...z61e... z62e...z63e...z64e...
+z65e{(5u,0)-z65}...z66e{left}; kouki(66,5,1.3); penstroke
+z65e{(5u,0)-z65}...z67e... z68e...z69e{(0,4.5v)-z69}; ka(6',-90); z6l=z6'l;
+penstroke z60'e{(0,5v)-z60'}...z70e... z71e...z72e...z73e{up}; kouki(73,1,1.6);
+penstroke z74e{(9u,6.8v)-z74}...z75e ...z76e{up}...z77e...z78e...z6'e...
+z79e...z80e...z81e...z82e{right}; kouki(82,6,1); mpalla(76,1.3); mpalla(77,1.4);
+mpalla(53,1.2); penstroke z53e{(0,2v)-z53}...z54e...
+z55e...z56e...z57e...z58e...z59e{right}; penstroke
+z77e{left}...z77.3e...z77.1e{up}; penstroke z77e{left}...z77.2e{down};
+kouki(77.1,2,1); kouki(77.2,4,1); penstroke z76e{up}...z83e...z84e...
+z85e{(0,3v)-z85}...z86e...z87e... z88e...z89e; kouki(89,3,1.5); penstroke
+z85e{(0,3v)-z85}...z90e... z91e{up}; kouki(91,1,1.8); penstroke
+z76e{up}...z92e...z93e... z94e...z83e...z95e...z96e...z97e... z98e{left};
+kouki(98,7,1.5); mpalla(92,1.4); mpalla(99,1.5); penstroke z100e{(9u,6v)-z100}...
+z100'e...{right}z101e ...z102e{down}...z103e{left}; kouki(103,5,1.1); penstroke
+z102e{down}...z104e... z105e...z106e...z107e...
+z108e{(6u,0)-z108}...z109e...z110e{up}; kouki(110,2,1.7); penstroke
+z108e{(6u,0)-z108}...z111e {down}; kouki(111,4,1); penstroke
+z108e{(6u,0)-z108}...z112e ...z113e{right}...z114e...z115e{left};
+kouki(115,7,1.3); penstroke z108e{(6u,0)-z108}... z117'e...z117e {left};
+kouki(117,5,1.1); penstroke z113e{right}...z116e{right}; kouki(116,8,1);
+filldraw z118--z119--z120--z121-- cycle; z122=(6.35u,6v); z123=(7.4u,4.5v);
+ka(122,180); ka(123,0); penstroke z94e{left}...z122e{down}; penstroke
+z101e{right}...z123e{up}; kouki(122,4,1.1); kouki(123,1,1); mpalla(78,1.3);
+penlabels(range 1 thru 130);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitQ.mf b/fonts/gothic/yinit/yinitQ.mf
new file mode 100644
index 0000000000..74cf5090ce
--- /dev/null
+++ b/fonts/gothic/yinit/yinitQ.mf
@@ -0,0 +1,106 @@
+.cmchar "The letter Q";
+.beginchar("Q",8.9u#+1mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.9u,6.9v); z2=(3.1u,6.4v); z3=(1.65u,3.35v); z4=(2.35u,1.6v);
+z5=(4.4u,0.6v); z6=(7u,1.7v); z7=(7.9u,4.8v); z8=(5.65u,7.7v); z9=(3.35u,7.7v);
+z10=(1.85u,7.25v); z11=(0.75u,8.15v); z12=(1.4u,8.75v); z13=(1.9u,8.5v);
+z14=(2u,8.15v); z15=(2.5u,8.2v); z16=(3.7u,2.4v); z17=(4u,2.25v);
+z18=(4.7u,2.9v); z19=(4.35u,3.7v); z20=(3.4u,4.05v); z21=(3.4u,4.6v);
+z22=(2.3u,3.4v); z23=(3.85u,2.8v); z24=(3.5u,2.95v); z25=(3.35u,2.4v);
+z26=(4.4u,1.95v); z27=(5.7u,3.7v); z28=(5.4u,4.35v); z29=(3.9u,5.55v);
+z30=(4.9u,6.6v); z31=(5.8u,5.9v); z32=(5.6u,5.45v); z33=(4.85u,1.7v);
+z34=(5.6u,2.2v); z35=(6.6u,1.7v); z36=(7.15u,0.6v); z37=(8.15u,0.25v);
+z38=(8.85u,1.1v); z39=(8.4u,1.7v); ka(1,95); penpos2(1.5hair,119);
+penpos3(0.9u,183); penpos4(1.1uv,-135); penpos5(0.7v,-90); penpos6(0.15uv,-42);
+penpos7(0.65u,0); penpos8(1.05uv,65); penpos9(uv,106); penpos10(0.6v,90);
+penpos11(1.5hair,0); penpos12(0.2v,-90); penpos13(0.55v,-173);
+penpos14(0.4v,-156); ka(15,-27); penstroke z1e{(0,6.6v)-z1}...z2e...
+z3e...z4e...z5e...z6e...z7e...z8e... z9e...z10e...z11e...z12e...z13e...
+z14e...z15e; ka(16,180); penpos17(0.1v,-90); penpos18(0.5u,0);
+penpos19(0.62uv,59); penpos20(0.8uv,60); ka(21,180); ka(22,-58); filldraw
+z16r{down}...z17r...z18r... z19r...z20r...z21l{up} & z21l--z21r &
+z21r{down}...{z22-(9u,8.5v)}z22l & z22l--z22r &
+z22r{(9u,6.5v)-z22}...z20l...z19l...z18l...z17l... z16l{up} & z16l--z16r & cycle;
+penpos23(0.5u,12); penpos24(0.4v,90); ka(25,180); penpos26(0.1v,-90); filldraw
+z16l{right}...z23r...z24r ...{z25-(0,9v)}z25r...z26r{right} & z26r--z26l &
+z26l{left}... z25l{(0,9v)-z25}...z24l...z16l{down} & cycle; penpos27(0.9u,0);
+penpos28(uv,47); penpos29(0.9uv,12); penpos30(0.15v,-90); penpos31(0.1u,180);
+ka(32,90); kouki(31,3,3); penstroke z26e{right}...z27e...z28e
+...z29e...z30e...z31e{down}; ka(33,180); penpos34(0.25v,90);
+penpos35(0.75uv,30); penpos36(0.75uv,29); penpos37(0.4v,90); penpos38(0.1u,180);
+ka(39,-90); penstroke z39e{right}...z38e...z37e
+...z36e...z35e...z34e...z33e{down}; z39=z39'; ka(39',90); kouki(39',7,2.5);
+kouki(33,4,2.5); z40=(2.6u,0.3v); z41=(2.35u,0.4v); z42=(1.55u,0.1v);
+z43=(1.2u,-0.05v); z44=(0.15u,1.15v); z45=(2.5u,3.9v); z46=(3.4u,5.5v);
+z47=(2.4u,6.9v); z48=(1.6u,6v); z49=(2.4u,5.3v); z49.1=(2.9u,5.9v);
+z49.2=(2.45u,6.3v); z50=(1.9u,0.8v); z51=(1.3u,1.35v); z52=(0.9u,0.75v);
+z53=(1.2u,0.45v); z54=(0.55u,0.75v); z55=(0.05u,0); z56=(4u,0); z57=(8.6u,4.6v);
+z58=(4.2u,9v); z59=(0.5u,6.55v); z60=(0.9u,5.2v); z61=(1.9u,4.65v);
+z62=(2.8u,3v); z63=(2.3u,1.55v); z64=(0,2.7v); z65=(u,3.7v); z66=(u,2.3v);
+z67=(0.6u,2.8v); z68=(0.3u,5.25v); z69=(-0.15u,4.85v); z70=(0.1u,4.5v);
+z71=(1.35u,8.2v); z72=(0.35u,7.6v); z73=(-0.1u,8.1v); z74=(0.3u,8.5v);
+z67'=(0.8u,4.75v); z75=(0.65u,8.2v); z76=(0.5u,8.8v); z77=(3.8u,3.4v);
+z78=(2.95u,2.8v); z79=(3.7u,1.65v); z80=(4.45u,1.5v); z81=(6.45u,3.7v);
+z82=(5.8u,5.35v); z83=(4.9u,7v); z84=(6.7u,9v); z84'=(7.5u,8.8v);
+z85=(8.4u,7.4v); z86=(7u,5.95v); z87=(5.85u,7.1v); z88=(7u,8.35v);
+z89=(7.75u,7.6v); z90=(8.7u,8.4v); z91=(9u,8.8v); z92=(8.75u,9.05v);
+z93=(6.8u,3.6v); z94=(6.7u,5.4v); z95=(6.25u,5.55v); z96=(7.2u,3.5v);
+z97=(8.6u,5.15v); z98=(8.6u,4.55v); z99=(8.7u,6.6v); z100=(7.3u,2.65v);
+z101=(8.15u,2.55v); z102=(9u,2.9v); z103=(8.7u,3.2v); z104=(8.7u,1.5v);
+z105=(7.7u,0.5v); z106=(6.9u,1.2v); z107=(7.6u,1.9v); z108=(8.15u,1.5v);
+z109=(7.75u,v); z110=(1.25u,6.8v); z111=(1.25u,5.9v); z112=(-0.2u,6.85v);
+z113=(0.85u,4v); z114=(2.4u,4.35v); ka(44,180); ka(43,-90); ka(42,-60);
+ka(41,-90); ka(40,180); ka(50,0); ka(49.1,0); ka(49.2,90); ka(51,90);
+ka(52,180); ka(53,-90); ka(54,161); ka(55,90); z44'=z44; ka(44',0); ka(45,-49);
+ka(46,0); ka(47,90); ka(48,180); ka(49,-90); ka(56,-92); ka(57,0); ka(58,90);
+ka(59,180); ka(60,-139); ka(61,-90); ka(62,180); ka(63,90); ka(64,0);
+ka(65,-90); ka(66,90); ka(67,0); ka(67',0); ka(68,90); ka(69,180); ka(70,-90);
+ka(71,120); ka(72,90); ka(73,0); ka(74,-90); ka(75,180); ka(76,0); ka(77,90);
+ka(78,180); ka(79,-114); ka(80,-90); ka(81,0); ka(82,36); ka(83,0); ka(84,-90);
+ka(85,180); ka(86,90); ka(87,0); ka(88,-90); ka(89,180); ka(90,-90); ka(91,0);
+ka(92,90); ka(93,0); ka(94,35); ka(95,90); ka(96,-24); ka(97,-90);
+penpos98(0.3v,90); ka(99,-90); ka(100,-90); ka(101,-115); ka(102,0); ka(103,90);
+ka(104,180); ka(105,90); ka(106,0); ka(107,-90); ka(108,180); ka(109,90);
+ka(84',-74); penstroke z44e{down}...z43e... z42e{(9u,4.6v)-z42}...z41e...
+z40e{down}; kouki(40,3,1.2); penstroke z42e{(9u,4.6v)-z42}...
+z50e...z51e{left}...z54e...z55e{left}; kouki(55,5,1.5); penstroke
+z51e{left}...z52e... z53e{right}; kouki(53,6,1.1); penstroke
+z44'e{up}...z45e...z46e... z47e...z48e...z49e...z49.1e...z49.2e{left};
+kouki(49.2,7,1.3); penstroke z56e{(9u,-0.2v)-z56}...
+z57e...z58e...z71e{(0,7.3v)-z71}...z59e... z60e{(4.8u,0)-z60}...z61e...z46e{up};
+mpalla(58,1.1); mpalla(60,1.5); penstroke z60e{(4.8u,0)-z60}...
+z62e...z63e...z64e{up}...z65e... z66e...z67e{up}; kouki(67,2,1.2);
+mpalla(64,1.2); penstroke z64e{up}...z67'e...z68e... z69e...z70e{right};
+kouki(70,6,1.5); penstroke z71e{(0,7.3v)-z71}...z72e
+...z73e...z74e{right}...z75e{down}; penstroke z74e{right}...z76e{up};
+kouki(75,3,1.2); kouki(76,1,1.4); penstroke z77e{left}...z78e...z79e
+...z80e{right}...z81e...z82e...z83e ...z84e...z84'e{(9u,8v)-z84'}...
+z85e...z86e...z87e...z88e... z89e{down}; kouki(89,3,1.4); penstroke
+z84'e{(9u,8v)-z84'}... z90e...z91e...z92e{left}; kouki(92,7,1.2);
+mpalla(84',1.4); mpalla(79,1.4); z200=(6.2u,2.2v); z201=(7u,4.1v);
+z202=(6.85u,5.05v); z203=(6.5u,5.7v); z204=(6.25u,6.4v); z205=(6.3u,5.4v);
+z206=(5.75u,5v); z207=(6.1u,4.6v); z208=(6.4u,4.8v); z209=(6.4u,2.2v);
+z210=(7.2u,3.3v); z211=(7.7u,4.2v); z212=(7.5u,4.7v); z213=(8.4u,3.8v);
+z214=(9.35u,3v); z215=(8.6u,2.05v); z216=(7.7u,2.8v); z217=(8.4u,3.4v);
+z218=(8.75u,3.1v); z219=(5.3u,-0.1v); z220=(7.5u,1.25v); z221=(8.35u,2.3v);
+z222=(8.8u,2.5v); z223=(9.1u,2.7v); z224=(9u,2.9v); z225=(6.55u,0.1v);
+z226=(6.85u,-0.1v); z227=(8.4u,0.3v); z228=(9u,0.15v); z229=(9.2u,0.6v);
+ka(200,-36); ka(201,0); ka(202,19); ka(203,30); ka(204,0); ka(205,90);
+ka(206,180); ka(207,-90); ka(208,0); ka(209,-36); ka(210,-36); ka(211,0);
+ka(212,90); ka(213,-90); ka(214,180); ka(215,90); ka(216,0); ka(217,-90);
+ka(218,180); ka(219,-71); ka(220,-45); ka(221,-40); penpos222(0.2v,-90);
+ka(223,0); ka(224,20); penpos225(0.15uv,-142); ka(226,-90); ka(227,-70);
+penpos228(0.2v,-90); ka(229,0); z230=(6.45u,2.05v); z231=(7.2u,2.75v);
+ka(230,-46); ka(231,-90); penstroke z200e{(9u,6v)-z200}...z201e
+...z202e{(4.6u,9v)-z202}...z203e... z204e{up}; kouki(204,2,1.2); penstroke
+z202e{(4.6u,9v)-z202}... z205e...z206e...z207e...z208e{up}; kouki(208,1,1.6);
+mpalla(201,1.4); penstroke z209e{(9u,5.4v)-z209}... z210e{z210-z209}...z211e...
+z212e{left}; kouki(212,7,1.2); penstroke z210e{z210-z209}...z213e...
+z214e...z215e...z216e...z217e... z218e{down}; kouki(218,3,1.4); penstroke
+z219e{(9u,1.2v)-z219}... z220e...z221e...z222e...z223e... z224e; penstroke
+z219e{(9u,1.2v)-z219}... z225e...z226e{right}; kouki(226,6,1); penstroke
+z227e{(9u,0.5v)-z227}... z228e...z229e{up}; penstroke z230e{(9u,4.5v)-z230}...
+z231e{right}; kouki(231,8,1.1); mpalla(114,1.3); mpalla(113,1.5);
+triaina(110,111,112,0.65); penlabels(range 1 thru 231);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitR.mf b/fonts/gothic/yinit/yinitR.mf
new file mode 100644
index 0000000000..e83e87a99e
--- /dev/null
+++ b/fonts/gothic/yinit/yinitR.mf
@@ -0,0 +1,120 @@
+.cmchar "The letter R";
+.beginchar("R",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.8u,0.15v); z2=(4.6u,1.1v); z3=(5.05u,1.35v); z4=(4u,1.2v);
+z5=(2.65u,1.65v); z6=(1.5u,2.35v); z7=(1.32u,3v); z8=(2.3u,3.9v);
+z9=(2.9u,3.4v); z10=(2.6u,3v); z11=(2.3u,1.8v); z12=(2.5u,1.7v);
+z13=(2.75u,1.6v); z14=(3.6u,3.25v); z15=(3.95u,3.1v); z16=(3.85u,4.3v);
+z17=(4.6u,5.55v); z18=(3u,5.9v); z19=(3.1u,6.55v); z20=(1.8u,5.5v);
+z21=(3.8u,7.25v); z22=(2.8u,7.45v); z23=(1.6u,7.15v); z24=(0.5u,7.15v);
+z25=(0.1u,7.8v); z26=(0.6u,8.3v); z27=(0.95u,8.15v); z28=(1.3u,8.1v);
+z29=(1.55u,8.4v); z30=(4.35u,6.7v); z31=(6.15u,7.55v); z32=(6.85u,8.4v);
+z33=(6.7u,7.35v); z34=(7.35u,6.85v); z35=(7.7u,6.2v); z36=(6.35u,4.65v);
+z37=(5.5u,4v); z38=(5.05u,3.2v); z39=(5.45u,2.9v); z40=(5.75u,3.1v);
+z41=(6.35u,4.05v); z42=(6.75u,3.55v); z43=(7u,1.75v); z44=(7.6u,1.1v);
+z45=(7.5u,0.4v); z46=(8.4u,1.45v); z47=(8.75u,2v); z48=(8.3u,2.55v); ka(1,-16);
+penpos2(0.1uv,-57); penpos3(0.1uv,-62); penpos4(0.95uv,38); penpos5(0.8v,101);
+penpos6(0.45uv,35); penpos7(0.25u,0); penpos8(1.5hair,-90);
+penpos9(1.5hair,180); ka(10,90); ka(11,-47); ka(12,-49); ka(13,-50);
+penpos14(0.12uv,-14); penpos15(0.1uv,-14); penpos16(0.45u,0); penpos17(0.65u,0);
+penpos18(0.9uv,49); ka(19,180); ka(20,-71); penpos21(0.9uv,55);
+penpos22(0.9v,90); penpos23(0.85uv,105); penpos24(0.41uv,59); ka(25,0);
+penpos26(0.35v,-90); penpos27(0.4uv,-134); penpos28(0.2v,-90); ka(29,0);
+penpos30(0.1uv,-63); penpos31(0.1uv,-63); ka(32,164); penpos33(0.9uv,36);
+penpos34(0.77uv,40); penpos35(0.67u,0); ka(36,-61); penpos37(0.3uv,121.5);
+penpos38(1.5hair,180); ka(39,-90); ka(40,0); penpos41(0.7uv,51);
+penpos42(0.8u,8); penpos43(0.85u,12); penpos44(uv,49); ka(45,0);
+penpos46(0.15uv,-60); penpos47(1.5hair,0); ka(48,90); filldraw
+z1l{up}...z4l...z5l... z6l...z7l...z8l{right} & z8l--z8r & z8r{left}...
+z7r...z6r...z5r... z4r...{z2l-(u,9v)}z2l & {(9u,4v)-z2l}z2l...z3l & z3l--z3r &
+z3r...{z2r-(9u,4v)}z2r...z1r & z1r--z1l & cycle; penstroke z8e{right}...z9e...
+z10e{left}; kouki(10,5,2.5); filldraw z11l{(9u,8v)-z11}...z14l...
+z16l...z18l...z20r{(0,5.3v)-z20} & z20r--z20l & z20l{z20-(0,5.3v)}...
+z19r{(4.7u,9v)-z19} & z19r--z19l & z19l{z19-(2.6u,9v)}...z18r...
+(3.7u,5.85v)...z16r ...z14r...z11r{z11-(9u,8v)} & z11r--z11l & cycle; penstroke
+z12e{(9u,7.5v)-z12}... z15e...z17e...z21e...z22e...z23e...
+z24e...z25e...z26e...z27e...z28e... z29e{up}; kouki(29,1,1.2); filldraw z30l---
+z31l...z32r{(7.1u,9v)-z32} & z32r--z32l & z32l{down}...z33r...
+z34r...z35r{down}...z36r{z37r-z36r} & z36r--z36l & z36l{z36r-z37r}...
+z35l...z34l...z33l...z31r{up} & z31r--z30r--z30l & cycle; filldraw
+z39r{left}...z38r...z37r... z36l{z36r-z37r} & z36l--z36r &
+z36r{z37r-z36r}...z41r...z42r... z43r...z44r...z46l...z47l{up} & z47l--z47r &
+z47r{down}...z46r... z45r & z45r--z45l & z45l{up}...z44l
+...z43l...z42l...z41l...z37l... z38l...z39l{right} & z39l--z39r & cycle;
+penstroke z39e{right}...z40e{up}; penstroke z47e{up}...z48e{left};
+kouki(40,1,2); kouki(48,7,1.9); z50=(3.5u,-0.1v); z51=(2.75u,0.8v);
+z52=(2.15u,0.2v); z53=(2.5u,-0.1v); z54=(2.8u,0.2v); z55=(2.3u,0.9v);
+z56=(0.8u,0); z57=(0.25u,0.5v); z58=(0.35u,0.85v); z59=(0.7u,0.9v);
+z60=(0.9u,0.6v); z61=(0.55u,1.4v); z62=(0.95u,1.7v); z63=(0.75u,2.05v);
+z64=(0.55u,2.55v); z65=(u,3.4v); z66=(2.2u,5.3v); z67=(1.1u,6.4v);
+z68=(0.05u,5.3v); z69=(0.3u,4.7v); z70=(0.7u,4.1v); z71=(0.4u,3.8v);
+z72=(0.2u,4v); z73=(u,4.45v); z74=(1.7u,5.2v); z75=(1.2u,5.8v); z76=(0.8u,5.5v);
+z77=(0,6.3v); z78=(2.3u,4.55v); z79=(3.3u,3.5v); z80=(2.5u,2.55v);
+z81=(1.75u,3.2v); z82=(2.3u,3.7v); z83=(2.5u,3.2v); z84=(5.3u,5.3v);
+z85=(2.8u,8.7v); z86=(2.8u,8.2v); z87=(3.1u,9v); z88=(0.85u,7v);
+z89=(1.7u,5.85v); z90=(2.25u,6.15v); z91=(5.1u,8v); z92=(5u,8.4v);
+z93=(6.2u,8.9v); z94=(6.55u,8.6v); z95=(6u,6.45v); z96=(2.95u,3.8v);
+z97=(5.5u,1.6v); z98=(7.9u,3.3v); z99=(7.1u,4.55v); z100=(8.1u,5.2v);
+z101=(8.4u,5.75v); z102=(8.05u,4.1v); z103=(7.7u,5v); z104=(7.2u,5.55v);
+z105=(6.5u,7.1v); z106=(7.75u,8.6v); z107=(8.2u,8.5v); z108=(8.8u,8.7v);
+z109=(8.6u,7.8v); z110=(8.05u,7.2v); z111=(7.6u,7.6v); z112=(7.9u,8.05v);
+z113=(8.2u,7.8v); z114=(8.2u,6.8v); z115=(8.7u,6.6v); z116=(8.6u,6.3v);
+z117=(5.9u,5.85v); z118=(3.7u,4.3v); z119=(4u,3.25v); z120=(5.4u,2.5v);
+z121=(6.9u,4v); z122=(5.9u,5v); z123=(4.6u,3.9v); z124=(6.4u,0.6v);
+z125=(5.6u,-0.2v); z126=(5u,0.1v); z127=(4.35u,0.4v); z128=(4.9u,0.5v);
+z129=(5.45u,1.1v); z130=(5.9u,0.95v); z131=(5.7u,0.3v); z132=(6.7u,-0.1v);
+z133=(7.1u,0.2v); z134=(7.5u,0); z135=(8u,0.6v); z136=(9u,2v); z137=(8.8u,2.7v);
+z138=(8.4u,3.45v); z139=(8.65u,3.8v); z140=(9u,3.6v); z141=(8.3u,2.85v);
+z142=(7.7u,2.2v); z143=(8.1u,1.75v); z144=(8.5u,2.05v); z145=(8.75u,0.85v);
+z146=(8.75u,0.3v); ka(50,0); ka(51,90); ka(52,180); ka(53,-90); ka(54,0);
+ka(55,90); ka(56,90); ka(57,0); ka(58,-43); ka(59,-90); ka(60,180); ka(61,0);
+ka(62,32); ka(63,21); ka(64,0); ka(65,-40); ka(66,0); ka(67,90); ka(68,180);
+ka(69,-137); ka(70,180); ka(71,90); ka(72,0); ka(73,-90); ka(74,0); ka(75,90);
+ka(76,180); ka(77,0); ka(78,-90); ka(79,180); ka(80,90); ka(81,0); ka(82,-90);
+ka(83,90); ka(84,-3); ka(85,90); ka(88,180); ka(89,-90); ka(90,0); ka(91,16);
+ka(92,16); ka(93,-90); ka(94,180); ka(95,-90); ka(96,180); ka(97,-90);
+ka(98,-14); ka(99,90); ka(100,0); ka(101,-90); ka(102,0); ka(103,38); ka(104,54);
+ka(105,0); ka(106,-90); ka(107,-126); ka(108,0); ka(109,180); ka(110,90);
+ka(111,0); ka(112,-90); ka(113,180); ka(114,-137); ka(115,-139); ka(116,126);
+ka(117,90); ka(118,180); ka(119,-130); ka(120,-90); ka(121,0); ka(122,90);
+ka(123,180); ka(124,180); ka(125,90); ka(126,42); ka(127,90); ka(128,0);
+ka(129,-90); ka(130,-147); ka(131,90); ka(132,-90); ka(133,0); ka(134,-33);
+ka(135,-45); ka(136,0); ka(137,42); ka(138,0); ka(139,-90); ka(140,180);
+ka(141,90); ka(142,180); ka(143,-90); ka(144,0); ka(145,-78); ka(146,180);
+penstroke z50e{up}...z51e...z55e... z62e... z64e{up}...z78e...
+z79e...z80e...z81e... z82e...z83e{left}; penstroke z51e{left}...z52e...z53e...
+z54e{up}; kouki(54,1,1.5); penstroke z55e{left}...z56e...z57e...
+z58e{(8u,9v)-z58}...z61e{up}; kouki(61,1,1.5); penstroke
+z58e{(8u,9v)-z58}...z59e... z60e{down}; kouki(60,3,1.4); z200=(2u,0.2v);
+z201=(1.7u,-0.2v); z202=(1.5u,1.1v); triaina(200,201,202,0.7); penstroke
+z64e{up}...z65e...z66e... z67e...z68e... z69e{(5u,0)-z69}...z70e...z71e...
+z72e{up}; kouki(72,2,1.3); penstroke z69e{(5u,0)-z69}...z73e...
+z74e...z75e{left}...z76e{down}; kouki(76,4,2); penstroke z75e{left}...z77e{up};
+kouki(77,2,1.3); penstroke z13e{(9u,6v)-z13}...z84e
+{(5.6u,9v)-z84}...z85e...z88e... z89e...z90e{up}; kouki(90,1,1.6);
+mpalla(86,1.3); mpalla(87,1.3); mpalla(84,1.6); penstroke z84e{(5.6u,9v)-z84}...
+z91e...z92e; z210=(4.6u,7.9v); z211=(4.5u,8.3v); z212=(5.5u,8.15v);
+triaina(210,211,212,0.5); penstroke z84e{(5.6u,9v)-z84}...
+z93e{right}...z94e{down}; kouki(94,3,1.5); penstroke z84e{(5.6u,9v)-z84}...
+z95e{right}; kouki(95,8,1.4); z30'=z30; ka(30',117); z38'=z38; ka(38',-90);
+mpalla(64,1.5); mpalla(62,1.2); penstroke z30'e{z30-z31}...z96e...
+z97e...z98e{(9u,7v)-z98}...z102e... z103e...z104e{z86-z104}...z117e...
+z118e...z119e{z133-z119}...z120e... z121e...z122e...z123e...z38'e{right};
+penstroke z98e{(9u,7v)-z98}... z99e{left}; kouki(99,7,1.2); penstroke
+z98e{(9u,7v)-z98}...z100e ...z101e{right}; kouki(101,8,1.2); mpalla(103,1.3);
+penstroke z104e{z86-z104}...z105e... z106e...z107e...z109e...z110e...z111e
+...z112e...z113e{down}; penstroke z109e{down}...z114e... z115e...z116e{left};
+kouki(116,5,1); penstroke z107e{right}...z108e{up}; kouki(108,1,1);
+z119'=(5.6u,1.9v); ka(119',-71); penstroke z119e{z133-z119}...
+z119'e...{down}z124e... z125e...z126e...z128e...z129e...z130e ...z131e{left};
+kouki(131,5,1.8); penstroke z126e...z127e{left}; z130'=(6.2u,0.3v);
+ka(130',-167); penstroke z130e{(6.5u,0)-z130} ...z130'e...z132e{right}...z133e
+{up}; kouki(133,1,1.5); z230=(5.1u,2.8v); z231=(6.3u,2.1v); z232=(4.5u,2v);
+triaina(230,231,232,0.5); penstroke z134e{z136-z134}...z135e
+{(9u,1.5v)-z135}...z136e... z137e{z86-z137}...z141e...z142e... z143e...z144e{up};
+penstroke z135e{(9u,1.5v)-z135}... z145e{right}; penstroke
+z135e{(9u,1.5v)-z135}... z146e{down}; kouki(146,3,1.7); mpalla(137,1.2);
+penstroke z137e{z86-z137}...z138e... z139e...z140e{down}; kouki(140,3,1.25);
+penlabels(range 1 thru 150);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitS.mf b/fonts/gothic/yinit/yinitS.mf
new file mode 100644
index 0000000000..e381e37275
--- /dev/null
+++ b/fonts/gothic/yinit/yinitS.mf
@@ -0,0 +1,117 @@
+.cmchar "The letter S";
+.beginchar("S",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.85u,0); z2=(4.7u,0.95v); z3=(4.05u,1.1v); z4=(3.2u,1.35v);
+z5=(1.85u,1.8v); z6=(1.55u,2.6v); z7=(2.4u,3.4v); z8=(3u,2.8v); z9=(2.6u,2.35v);
+z10=(2.25u,2.6v); z11=(6.2u,1.8v); z12=(7.35u,3.6v); z13=(7.05u,4.85v);
+z14=(5.55u,5.55v); z15=(4u,4.95v); z16=(3.25u,3.5v); z17=(4.4u,2.2v);
+z18=(6.2u,3.6v); z19=(5.3u,4.55v); z20=(4.4u,3.7v); z21=(4.9u,3.1v);
+z22=(5.6u,3.9v); z23=(6.1u,4.3v); z24=(6.4u,4.1v); z25=(6.2u,3.8v);
+z26=(6.05u,3.95v); z27=(5.4u,6.35v); z28=(7.1u,7.5v); z29=(7.6u,8.4v);
+z30=(7u,9.05v); z31=(6.5u,8.6v); z32=(6.85u,8.15v); z33=(7.05u,8.4v);
+z34=(5.5u,8.6v); z35=(3u,7.4v); z36=(2u,5.7v); z37=(2.4u,4.7v); z38=(3.4u,4.15v);
+z39=(5.3u,6v); z40=(4u,7.2v); z41=(3u,6.3v); z42=(3.2u,5.65v);
+z43=(3.75u,5.45v); z44=(4.4u,6v); z45=(4u,6.45v); ka(1,-13); ka(2,-59);
+penpos3(uv,51); penpos4(0.9uv,77); penpos5(0.65uv,33); penpos6(0.35u,0);
+penpos7(0.15v,-90); penpos8(0.1u,180); ka(9,90); ka(10,0); kouki(10,2,2.2);
+penpos11(0.2uv,-61); penpos12(0.9u,0); penpos13(uv,39); penpos14(0.4v,90);
+penpos15(0.15uv,122); ka(16,180); ka(17,-90); ka(18,0); ka(19,90); ka(20,180);
+ka(21,-90); ka(22,-23); ka(23,-90); ka(24,180); ka(25,90); ka(26,0);
+penpos27(0.1uv,-55); penpos28(0.25uv,-55); ka(29,0); ka(30,90); ka(31,180);
+ka(32,-90); ka(33,0); kouki(33,1,1.7); ka(34,156); penpos35(1.5hair,-61);
+penpos36(0.7u,0); penpos37(0.85uv,47); penpos38(0.7v,90); penpos39(0.15u,180);
+ka(40,-90); ka(41,0); ka(42,42); ka(43,90); ka(44,180); ka(45,-90); z45'=z45;
+ka(45',90); kouki(45',7,2); filldraw z1r{z34-z1}...z2r...z11r
+...z12r...z13r{(4.4u,9v)-z13r} & z13r--z13l & z13l{z13r-(4.4u,9v)}...
+z12l...z11l...z2l{(3u,0)-z2l} & z2l{up}...z3r...z4r...z5r...z6r...
+z7r...z8r...z9r...z10r{up} & z10r--z10l & z10l{down}...z9l...
+z8l...z7l...z6l...z5l...z4l...z3l... z1l{down} & z1l--z1r & cycle; penstroke
+z13e{(4.4u,9v)-z13r}... z14e...z15e...z16e...z17e{right}...
+z18e...z19e...z20e...z21e{right}... z22e...z23e...z24e...z25e... z26e{up};
+ka(15',-40); z15'l=z15r; filldraw z27l{z28-z27}... (5.4u,7.15v)...z35r{z35-z34} &
+z35r--z35l & z35l{z34-z35}... (4.95u,8.15v)...z34r{z34-z13} & z34r--z34l &
+z34l{z13-z34}... (5.7u,7.7v)...z28l{z28-z27}.. z29l{up} & z29l--z29r &
+z29r{down}...z28r{z27-z28}---z27r & z27r--z27l & cycle; kouki(26,2,1); penstroke
+z15'e{z32-z15}... z27e{z28-z27}; penstroke z29e{up}...z30e...z31e...
+z32e...z33e{up}; penstroke z45e{right}...z44e...z43e...
+z42e...z41e...z40e...z39e...z38e... z37e...z36e...z35e{z34-z35};
+z50=(5.45u,5.55v); z51=(4.8u,3.85v); z51'=(3.3u,2.2v); z52=(3.4u,2.8v);
+z53=(1.3u,1.8v); z54=(0.75u,v); z55=(1.5u,0.1v); z56=(2.6u,0.5v);
+z57=(3.2u,0.2v); z58=(2.05u,0.6v); z59=(1.7u,1.1v); z60=(0.5u,0);
+z60'=(0.15u,0.3v); z61=(1.9u,2.9v); z62=(0.25u,2.2v); z63=(0.65u,1.8v);
+z64=(0.9u,2v); z65=(0.5u,4v); z66=(0.7u,4.3v); z67=(0.5u,3v); z68=(0.05u,3.4v);
+z69=(3.2u,3.2v); z70=(1.4u,4.15v); z71=(0.8u,5.6v); z72=(1.05u,7v);
+z73=(1.4u,8.2v); z74=(0.7u,9v); z75=(0.1u,8.8v); z76=(-0.1u,9v); z77=(0,8.35v);
+z78=(0.5u,7.75v); z79=(u,8.1v); z80=(0.95u,8.3v); z81=(0.65u,8.4v);
+z82=(0.55u,8.15v); z83=(0.3u,8.3v); z84=(0.9u,7.4v); z85=(1.9u,7.95v);
+z86=(4.25u,8.9v); z87=(3.15u,8.5v); z88=(4.5u,8.4v); z89=(5.1u,8.9v);
+z90=(4.9u,9.2v); z91=(4.25u,7.5v); z92=(3.5u,6.7v); z93=(2.75u,7.4v);
+z94=(3.3u,7.95v); z95=(3.75u,7.5v); z96=(6.1u,8.3v); z97=(7.45u,7.15v);
+z98=(7.85u,6.45v); z98.1=(7.65u,6.7v); z98.2=(8.2u,6.2v); z99=(8.55u,6.1v);
+z100=(7.1u,6.85v); z101=(6.5u,6.1v); z102=(8u,7.4v); z103=(8.7u,8v);
+z104=(8.45u,8.25v); z105=(8.3u,8v); z106=(8u,7.9v); z107=(7.8u,8.9v);
+z108=(8.05u,8.75v); z109=(8.4u,8.85v); z110=(8.7u,8.7v); z111=(4.1u,0);
+z112=(5.75u,1.15v); z113=(8u,2.95v); z114=(7.85u,5.25v); z115=(8.8u,4.05v);
+z116=(6.5u,6.2v); z117=(4.4u,5.4v); z118=(4.3u,0); z119=(5.2u,0.3v);
+z120=(5.5u,0.6v); z121=(6.5u,0.3v); z122=(7.6u,0); z123=(8.25u,0.15v);
+z124=(8.25u,0.55v); z125=(8.7u,0.3v); z126=(8.65u,v); z127=(8.05u,1.6v);
+z128=(7.7u,1.3v); z129=(7.8u,1.05v); z130=(7.5u,0.65v); z131=(7.15u,0.9v);
+z132=(6.85u,0.85v); z133=(6.5u,v); z134=(6.5u,0.7v); z135=(5.5u,0.8v);
+z136=(6.25u,0.9v); z137=(4.9u,2.6v); z138=(4.65u,1.5v); z139=(5.5u,1.75v);
+z140=(5.1u,1.55v); ka(42.1,-138); z42.1=z42; ka(50,180); ka(51,136); ka(52,114);
+ka(51',180); ka(53,127); ka(54,180); ka(55,-90); penpos56(0.2v,-90);
+ka(57,-90); ka(58,0); ka(59,90); ka(60,90); ka(60',0); ka(61,90); ka(62,180);
+ka(63,-90); ka(64,0); ka(65,0); ka(66,-90); ka(67,90); ka(68,0); ka(69,90);
+ka(70,39); ka(71,0); ka(72,-29); ka(73,0); ka(74,90); ka(75,90); ka(76,0);
+ka(77,180); ka(78,-90); ka(79,0); penpos80(0.1uv,64); penpos81(0.3v,90);
+penpos82(0.25uv,129); ka(83,36); ka(84,180); ka(85,-50); ka(86,-90);
+ka(87,-90); ka(88,-90); ka(89,0); ka(90,90); ka(91,180); ka(92,90); ka(93,0);
+ka(94,-90); ka(95,180); ka(96,-130); ka(97,-145); ka(98.1,-130);
+penpos98(0.32uv,-130); ka(98.2,-130); ka(99,-90); ka(100,180); ka(101,90);
+ka(102,-90); ka(103,0); penpos104(0.25uv,113); penpos105(0.22v,180);
+ka(106,90); ka(107,-90); ka(108,-132); ka(109,-90); ka(110,-90); ka(111,-21);
+ka(112,-67); ka(113,-21); ka(114,36); ka(115,-90); ka(116,90); ka(117,129);
+ka(118,-44); ka(119,-90); ka(120,-90); ka(121,-112); ka(122,-90); ka(123,-56);
+ka(124,0); ka(125,-90); ka(126,0); penpos127(1.3hair,90); penpos128(0.33u,180);
+penpos129(0.4uv,-148); penpos130(1.3hair,90); ka(131,0); ka(135,-81);
+penpos136(0.15v,-81); ka(137,0); ka(138,90); ka(139,-90);
+% z50l=z39l;
+penstroke z50e{down}...z51e{z58-z51}...z52e...
+z53e...z54e...z55e...
+z58e...z59e{left}...z60e{left}...z60'e{up}; kouki(60',2,1.6); penstroke
+z55e{right}...z56e... {right}z57e; kouki(57,6,1.4); penstroke
+z51e{z58-z51}...z51'e{down}; kouki(51',4,1.2); penstroke
+z51e{z58-z51}...z61e{left} ...z62e{down}...z63e...z64e{up}; kouki(64,1,1.5);
+penstroke z61e{left}...z65e...z66e{right}; kouki(66,8,1.4); penstroke
+z61e{left}...z67e...z68e{up}; mpalla(67,1.3); kouki(68,2,1.3); penstroke
+z51e{z58-z51}...z69e...z70e ...z71e...z72e...z73e...z74e
+...z77e...z78e...z79e...z80e...z81e ...z82e...z83e{z83-z137}; penstroke
+z74e{left}...z75e... z76e{up}; kouki(76,2,1); penstroke z78e{right}...z84e{down};
+kouki(84,3,1); penstroke z72e{z73-z72}...z85e...z86e ...z96e{z99-z96}...z97e...
+z98.1e--z98e--z98.2e... z99e{right}; kouki(99,6,1.3); mpalla(70,1.3);
+mpalla(71,1.5); mpalla(85,1.4); penstroke z85e...z87e{right}...z88e
+...z89e...z90e{left}; kouki(90,7,1.4); penstroke z87e{right}...z91e...z92e...
+z93e...z94e...z95e{down}; kouki(95,3,1.5); penstroke z96e{z99-z96}...z102e...
+z103e...z104e...z105e...z106e{left}; penstroke z96e{z99-z96}...z100e...
+z101e{left}; kouki(101,5,1.75); penstroke z32e{right}...z107e{right}
+...z108e...z109e...z110e{right}; kouki(110,6,1.1); z42'=(3.15u,4.85v);
+ka(42',90); penstroke z42.1e{z51-z42}...z42'e{left}; kouki(42',5,1.2); penstroke
+z111e{z29-z111}...z112e... z113e...z114e...z116e...z117e; mpalla(113,1.7);
+mpalla(114,1.3); penstroke z113e{z98-z112}...z115e{right}; kouki(115,8,1);
+penstroke z118e{z115-z118}...z119e {right}; kouki(119,8,1.2); penstroke
+z118e{z115-z118}...z120e... z121e...z122e...z123e...z126e...
+z127e...z128e...z129e...z130e... z131e{up}; kouki(131,2,1.2); mpalla(132,1.2);
+mpalla(133,1.2); mpalla(134,1.2); filldraw z135r--z136r & z136r..z136l &
+z136l--z135l & z135l--z135r & cycle; penstroke z123e...z125e{right};
+kouki(125,8,1.2); penstroke z122e{right}...z124e{up}; kouki(124,1,1.15);
+penstroke z17e{right}...z137e{up}; kouki(137,1,1.2); penstroke
+z17e{right}...z138e{left}; kouki(138,5,1.25); penstroke
+z17e{right}...z139e{right}; kouki(139,6,1.3); mpalla(140,1.2);
+z200=(0.05u,6.1v); z201=(0.2u,7.15v); z202=(1.5u,5.9v); z210=(1.7u,8.65v);
+z211=(2.4u,9.1v); z212=(2.4u,7.5v); z220=(4.85u,3.7v); z221=(5.15u,4.15v);
+z222=(5.8u,3v); z230=(6.75u,2.4v); z231=(7.3u,3.05v); z232=(8.1u,1.6v);
+z240=(8.2u,7.6v); z241=(8.7u,7v); z242=(6.6u,6.4v); triaina(200,201,202,0.4);
+triaina(210,211,212,0.6); triaina(220,221,222,0.5); triaina(230,231,232,0.5);
+triaina(240,241,242,0.6); penlabels(range 1 thru 250);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitT.mf b/fonts/gothic/yinit/yinitT.mf
new file mode 100644
index 0000000000..8ca2c14e16
--- /dev/null
+++ b/fonts/gothic/yinit/yinitT.mf
@@ -0,0 +1,113 @@
+.cmchar "The letter T";
+.beginchar("T",8.9u#+0.2mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(1.5u,1.3v); z2=(1.8u,1.1v); z3=(2.15u,1.4v); z4=(2.1u,1.7v); z5=(2.3u,2.1v);
+z6=(2.9u,1.8v); z7=(3u,1.3v); z8=(1.9u,0.4v); z9=(0.65u,1.7v);
+z10=(2.35u,3.15v); z11=(3.25u,3v); z12=(4.15u,2.15v); z13=(4.8u,1.25v);
+z14=(6.3u,0.7v); z15=(7.7u,1.3v); z16=(8.2u,2.6v); z17=(7.1u,3.7v);
+z18=(6.45u,3.25v); z19=(6.7u,2.75v); z20=(7u,2.75v); z21=(7.25u,2.4v);
+z22=(7u,2.25v); z23=(4.4u,1.85v); z24=(5.3u,3v); z25=(4.9u,3.8v);
+z26=(4.3u,4.1v); z27=(4.2u,4.65v); z28=(3.25u,3.7v); z29=(4.6u,1.6v);
+z30=(6u,3.3v); z31=(5.7u,4.4v); z32=(4.57u,5.25v); z33=(4.3u,6v);
+z34=(4.8u,6.55v); z35=(5.6u,6.1v); z36=(1.9u,6.2v); z37=(2.2u,6.1v);
+z38=(2.6u,6.55v); z39=(2.35u,6.85v); z40=(2.4u,7.4v); z41=(3.35u,7.35v);
+z42=(3.6u,6.5v); z43=(2.4u,5.4v); z44=(1.15u,6.8v); z45=(3.05u,8.6v);
+z46=(4.45u,8.1v); z47=(5.45u,7.35v); z48=(6.8u,6.75v); z49=(8.05u,7.95v);
+z50=(7.25u,8.65v); z51=(6.55u,8.1v); z52=(6.8u,7.7v); ka(1,-136);
+penpos2(0.08v,-90); penpos3(0.5u,0); penpos4(0.55uv,22); penpos5(0.3uv,-55);
+penpos6(1.5hair,-155); ka(7,180); ka(8,90); ka(9,0); penpos10(0.6v,-90);
+penpos11(0.92uv,-123); penpos12(1.05uv,-143); penpos13(uv,-143);
+penpos14(0.65v,-90); penpos15(0.2uv,-23); ka(16,0); penpos17(1.5hair,90);
+penpos18(0.25u,180); penpos19(0.6uv,-117); penpos20(0.55v,-90);
+penpos21(0.2uv,-163); ka(22,105); ka(23,-53); penpos24(0.25u,0);
+penpos25(0.55uv,48); penpos26(0.8uv,45); ka(27,180); ka(28,-65); ka(29,-57);
+penpos30(0.37u,0); penpos31(0.8uv,37); penpos32(0.9uv,44);penpos33(0.5u,0);
+penpos34(0.2uv,-67); ka(35,180); ka(36,-132); penpos37(0.1v,-90);
+penpos38(0.5u,6); penpos39(0.55uv,42); penpos40(0.3uv,-60);
+penpos41(1.5hair,-138); ka(42,180); ka(43,90); penpos44(1.5hair,0);
+penpos45(0.65v,-90); penpos46(1.1uv,-130); penpos47(1.03uv,-130);
+penpos48(0.6v,-90); penpos49(1.5hair,0); ka(50,90); ka(51,180); ka(52,-90);
+penstroke z1e{(1.6u,0)-z1}...z2e... z3e...z4e...z5e...z6e...z7e...z8e{left}...
+z9e{up}...z10e...z11e...z12e...z13e... z14e...z15e...z16e...z17e...z18e...
+z19e...z20e...z21e...z22e{left}; penstroke z29e{(9u,4.6v)-z29}...z30e
+...z31e...z32e...z33e...z34e... z35e{down}; kouki(35,3,2.1); filldraw
+z23r{(9u,4.6v)-z29}...z24r ...z25r...z26r...z27l{up} & z27l--z27r &
+z27r{z11r-z27}...z28l & z28l--z28r & z28r{z26r-z28}...z26l ...z25l...z24l...
+z23l{z29-(9u,4.6v)} & z23l--z23r & cycle; penstroke z36e{z30r-z36}...z37e...
+z38e...z39e{z39-z16}...z40e...z41e...z42e... z43e...z44e...z45e...z46e...z47e...
+z48e...z49e...z50e...z51e... z52e{right}; kouki(52,6,2.1); z60=(2.3u,1.7v);
+z61=(2.7u,1.4v); z62=(1.9u,0.7v); z63=(1.1u,1.5v); z64=(2.2u,2.55v);
+z65=(3.25u,1.9v); z66=(2u,0); z67=(0.1u,1.8v); z68=(1.1u,3.55v);
+z69=(2.5u,4.05v); z70=(4.3u,3.3v); z71=(4.65u,2.75v); z72=(4.8u,3.1v);
+z73=(5.15u,0.1v); z74=(6u,-0.05v); z75=(7.1u,0.2v); z76=(8.5u,0.8v);
+z77=(9u,0.4v); z78=(8.65u,0); z79=(8.4u,0.2v); z80=(8.87u,1.15v);
+z81=(8.75u,2.6v); z82=(8.6u,3.5v); z82'=(8.45u,3.7v); z82.1=z82;
+z83=(7.15u,4.45v); z84=(5.5u,3v); z85=(5.95u,1.75v); z86=(6.7u,2v);
+z87=(6.8u,1.4v); z88=(7.9u,2.6v); z89=(7.1u,3.4v); z90=(3.1u,0); z91=(4.3u,0);
+z92=(4.8u,1.4v); z93=(6.5u,3.7v); z94=(6u,5.2v); z95=(3.8u,6.25v);
+z96=(1.85u,5.2v); z97=(0.65u,3.9v); z98=(0.05u,4.4v); z99=(0.3u,4.8v);
+z100=(0.65u,4.75v); z101=(0.7u,4.5v); z102=(0.9u,4.3v); z103=(1.1u,4.5v);
+z104=(2.8u,3.5v); z105=(3.9u,4.5v); z106=(3u,5.3v); z107=(2.35u,4.8v);
+z108=(2.8u,4.25v); z109=(3.2u,4.6v); z110=(1.65u,6.5v); z111=(2.65u,7.9v);
+z112=(3.9u,6.6v); z113=(2.3u,4.8v); z114=(0.5u,7v); z115=(0.4u,8.05v);
+z116=(1.9u,8.9v); z117=(4.6u,8.9v); z118=(7u,7.3v); z119=(7.7u,7.9v);
+z120=(7.3u,8.3v); z121=(7.05u,8v); z122=(3u,6.1v); z123=(4.9u,8.85v);
+z124=(6.3u,9.2v); z125=(7.65u,9.05v); z126=(9u,6.4v); z127=(7.5u,4.8v);
+z128=(6.8u,5.25v); z129=(6.4u,6.2v); z130=(5.7u,6.4v); z131=(7u,7.75v);
+z131.1=(8.3u,7.5v); z131.2=(9u,8.1v); z131.3=(8.6u,8.5v); z131.4=(8.2u,8.2v);
+z131.5=(8.5u,7.95v); z132=(8.2u,6.5v); z133=(7.5u,5.65v); z134=(6.95u,6.15v);
+z135=(6.3u,8.4v); z136=(0.6u,8.45v); z137=(0.05u,8.9v); z138=(0.55u,9.15v);
+z139=(0.65u,8.95v); z140=(0.9u,8.85v); z141=(u,9v); z117'=(5.85u,8v);
+ka(60,-90); ka(61,180); ka(62,90); ka(63,0); ka(64,-90); ka(65,-145); ka(66,90);
+ka(67,0); ka(68,-51); ka(69,-90); ka(70,-133); ka(71,-180); ka(72,-90);
+ka(73,-106); ka(74,-90); ka(75,-68); ka(76,-90); ka(77,180); ka(78,90);
+ka(79,0); ka(81,0); ka(82,26); ka(82',32); penpos82.1(0.5uv,26); ka(83,90);
+ka(84,180); ka(85,-127); ka(86,0); ka(87,-90); ka(88,0); ka(89,90); ka(90,90);
+ka(91,-90); ka(92,-55); ka(93,0); ka(94,39); ka(95,90); ka(96,159); ka(97,90);
+ka(98,0); ka(99,-67.5); penpos100(0.3uv,-148); penpos101(0.25u,180);
+penpos102(1.5hair,-90); ka(103,0); ka(104,-90); ka(105,0); ka(106,90);
+ka(107,180); ka(108,-90); ka(109,0); ka(110,39); ka(111,-90); ka(112,180);
+ka(113,90); ka(114,0); ka(116,-61); ka(117,-115); ka(118,-90); ka(119,0);
+ka(120,90); ka(121,180); z70'=z70; ka(70',47); ka(122,0); ka(123,-59);
+ka(124,-90); ka(125,-120); ka(126,180); ka(127,90); ka(128,30); ka(129,90);
+ka(130,0); ka(131,-90); ka(131.1,-90); ka(131.2,0); ka(131.3,90); ka(131.4,180);
+ka(131.5,-90); ka(132,180); ka(133,90); ka(134,0); ka(135,180); z116'=z116;
+ka(116',119); ka(136,90); ka(137,0); penpos138(0.25uv,-139);
+penpos139(0.2uv,-145); ka(117',-133); penpos140(1.5hair,-90); ka(141,0);
+ka(142,0); z142=(8.9u,9.2v); penstroke z60e{right}...z61e...z62e
+...z63e...z64e...z65e{z91-z65}...z66e...z67e ...z68e...z69e...z70e{z85-z70}
+...z71e{down}; penstroke z70e{z85-z70}...z72e{right}; kouki(63,2,1.5);
+mpalla(68,1.4); mpalla(70,1.4); kouki(71,3,1.15); kouki(72,6,1.1); penstroke
+z65e{z91-z65}...z73e... z74e...z75e...z81e...z82e...z82'e...
+z83e...z84e...z85e...z87e...z88e... z89e{left}; mpalla(73,1.3); mpalla(75,1.3);
+penstroke z75e...z76e{right}...z77e ...z78e...z79e{up}; kouki(79,2,1.3);
+mpalla(80,1.4); z200=(8.6u,2.45v); kouti(81,200); penstroke z85e...z86e{up};
+kouki(86,1,1.3); penstroke z65e{z91-z65}...z90e{left}; z91'=(3.75u,0.5v);
+ka(91',-158); penstroke z65e{z91-z65}... z91'e...z91e{right}; kouki(90,5,0.8);
+kouki(91,6,0.8); penstroke z92e{z19-z92}...z93e...z94e
+...z95e...z96e{z9-z96}...z97e...z98e ...z99e...z100e{dir-45}...z101e...z102e...
+z103e{up}; penstroke z96e{z9-z96}...z104e... z105e...z106e...z107e...z108e...
+z109e{up}; z201=(5.95u,4.9v); kouti(94,201); kouki(109,1,1); z202=(3.7u,4.9v);
+z203=(3.6u,4.7v); ka(202,22); kouti(202,203); filldraw
+z81r{up}...z82.1r{z82r-z82l} & z82.1r{z82l-z82r}...z82'r & z82'r--z82'l &
+z82'l...z82.1l{z82l-z82r} & z82.1l{z82r-z82l}...z81l{down} & z81l--z81r & cycle;
+penstroke z110e{z138-z110}...z111e... z112e...z113e...z114e...z116e...z117e
+...z117'e ...z118e...z119e...z120e...z121e{down}; z205=(0.35u,6.9v);
+kouti(114,205); penstroke z70'e{z70-z85}...z122e...
+z123e...z124e...z125e{(9u,8.5v)-z125}...z126e...
+z127e{left}...z128e...z129e{left}; penstroke z127e{left}...z130e...
+z131e{right}...z131.1e...z131.2e... z131.3e...z131.4e...z131.5e{right};
+penstroke z131e{right}...z132e... z133e...z134e{up}; penstroke
+z123e{z124-z123}...z135e{down}; kouki(135,3,1.2); penstroke
+z125e{(9u,8.5v)-z125}...z142e{up}; kouki(142,1,1.1); mpalla(126,1.2);
+mpalla(115,1.5); kouki(128,2,1.4); kouki(131.5,6,1.1); kouki(133,5,1.9);
+penstroke z116'e{z115-z116}...z136e... z137e...z138e...z139e...z140e...
+z141e{up}; kouki(129,7,1.2); z143=(4.1u,7.15v); z144=(4.4u,6.9v); ka(143,-90);
+ka(144,180); penstroke z122e{up}...z143e...z144e {down}; kouki(144,3,1.2);
+z250=(7.5u,3.2v); z251=(6.9u,4.15v); z252=(9.3u,4.3v); z260=(-0.15u,3.3v);
+z261=(0.2u,3.9v); z262=(1.05u,2.6v); z270=(1.4u,6.5v); z271=(1.7u,5.55v);
+z272=(-0.2u,6v); z280=(0.4u,-0.2v); z281=(0,0.3v); z282=(1.4u,0.6v);
+triaina(250,251,252,0.5); triaina(260,261,262,0.45); triaina(270,271,272,0.6);
+triaina(280,281,282,0.4); penlabels(range 1 thru 282);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitU.mf b/fonts/gothic/yinit/yinitU.mf
new file mode 100644
index 0000000000..17be2c1630
--- /dev/null
+++ b/fonts/gothic/yinit/yinitU.mf
@@ -0,0 +1,120 @@
+.cmchar "The letter U";
+.beginchar("U",8.9u#+0.2mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.3u,0.45v); z2=(5.15u,1.4v); z3=(4.45u,1.55v); z4=(3.25u,2v);
+z5=(2u,3.35v); z6=(2.8u,4v); z7=(3.4u,3.5v); z8=(3.2u,3.2v); z9=(7u,3.1v);
+z10=(7.85u,0.75v); z11=(8.5u,1.65v); z12=(9u,2.4v); z13=(8.5u,2.9v);
+z14=(8.1u,2.5v); z15=(7.7u,1.5v); z16=(7u,3.05v); z17=(7.05u,6v);
+z18=(7.4u,7.35v); z19=(7.8u,7.85v); z20=(8.65u,8.3v); z21=(8.8u,8.65v);
+z22=(3.6u,2v); z23=(5u,5.7v); z24=(4.25u,7.4v); z25=(3.1u,7.4v); z26=(1.4u,7.3v);
+z27=(1.1u,8v); z28=(1.8u,8.35v); z29=(2.4u,8.15v); z30=(2.9u,8.5v);
+z31=(3.4u,2v); z32=(4.15u,4.3v); z33=(4u,5.45v); z34=(3.4u,6v);
+z35=(3.65u,6.6v); z36=(2.6u,5.7v); ka(1,0); penpos2(0.18uv,-61); penpos3(uv,49);
+penpos4(0.85uv,112); penpos5(0.2u,0); penpos6(1.5hair,-90); ka(7,180); ka(8,90);
+penpos9(2hair,-48); penpos2'(2hair,-48); x2'=5.3u; z2'r=whatever[z2r,z9r];
+ka(10,0); penpos11(0.2uv,-58); penpos12(1.5hair,0); ka(13,90); ka(14,180);
+penpos15(0.95uv,54); penpos16(0.8u,0); penpos17(0.7u,0); penpos18(0.3uv,-34);
+penpos19(1.5hair,-58); ka(20,-61); ka(21,0); ka(22,-33); penpos23(0.7u,5);
+penpos24(1.1uv,59); penpos25(0.95uv,117); penpos26(0.35uv,61); ka(27,0);
+penpos28(0.55uv,-130); penpos29(0.2v,-90); ka(30,-77); ka(31,-27);
+penpos32(0.3u,0); penpos33(0.67uv,36); penpos34(uv,37); ka(35,160); ka(36,-74);
+filldraw z1r---z2r---z2'r---z9r & z9r--z9l & z9l---z2'l...z2l...z3r...
+z4r...z5r...z6r{right} & z6r--z6l & z6l{left}...z5l...z4l...z3l... z1l{down} &
+z1l--z1r & cycle; penstroke z6e{right}...z7e...z8e{left}; kouki(8,5,2.3);
+filldraw z10r{z13-z10}...z11r... z12r{up} & z12r--z12l & z12l{down}...
+z11l...z15r...z16r...z17r...z18r... z19r...z20r...z21r{up} & z21r--z21l &
+z21l{down}...z20l...z19l...z18l... z17l...z16l...z15l...z10l{z10-z25r} &
+z10l--z10r & cycle; kouki(21,1,1.8); penstroke z12e{up}...z13e...z14e{down};
+kouki(14,4,1.8); penstroke z22e{(8.1u,9v)-z22}...z23e
+...z24e...z25e...z26e...z27e... z28e...z29e...z30e{(5.5u,9v)-z30}; filldraw
+z31r{(7.3u,9v)-z31}...z32r ...z33r...z34r...z35l{up} & z35l--z35r &
+z35r{z34l-z35}...z36l{z36-z34r} & z36l--z36r & z36r...z34l...z33l...
+z32l...z31l{z31-(7.3u,9v)} & z31l--z31r & cycle; z40=(4.1u,0); z41=(3.55u,v);
+z42=(3.05u,0.4v); z43=(3.5u,-0.05v); z44=(3.85u,0.4v); z45=(3.65u,0.65v);
+z46=(2.8u,0.6v); z47=(2.75u,0.2v); z48=(2.65u,-0.1v); z49=(1.5u,0.1v);
+z50=(u,0.25v); z51=(0.6u,0.3v); z52=(0.65u,v); z53=(0.75u,1.6v);
+z54=(1.25u,1.5v); z55=(1.75u,v); z56=(1.4u,0.55v); z57=(1.1u,0.8v);
+z58=(1.2u,v); z59=(1.45u,0.97v); z60=(1.6u,1.1v); z61=(1.1u,2.4v);
+z62=(0.95u,3v); z63=(2.5u,4.75v); z64=(3.75u,3.7v); z65=(3u,2.8v);
+z66=(2.4u,3.3v); z67=(2.8u,3.75v); z68=(3u,3.45v); z69=(1.9u,5v);
+z70=(1.6u,5.4v); z71=(1.1u,6v); z72=(0.55u,5.25v); z73=(0.6u,4.55v);
+z74=(0.9u,5.05v); z75=(1.2u,5.4v); z76=(4u,5.6v); z77=(3u,6.6v);
+z78=(2.05u,5.9v); z79=(2.7u,5.15v); z80=(3.2u,5.7v); z81=(2.8u,6.15v);
+z81'=(4.05u,1.85v); z82=(3.2u,1.35v); z83=(1.5u,3v); z84=(2.8u,4.2v);
+z85=(4.8u,2.6v); z86=(5u,3.3v); z87=(5.85u,4.5v); z88=(5.6u,5.1v);
+z89=(5.95u,5.6v); z90=(3.8u,8.5v); z91=(1.65u,8v); z92=(u,7.75v);
+z93=(0.3u,8.4v); z94=(0.5u,8.7v); z94'=(0.3u,9v); z95=(0.85u,8.85v);
+z96=(1.15u,8.5v); z97=(0.9u,8.2v); z97'=(u,7v); z98=(0.85u,6v); z99=(4.3u,1.7v);
+z100=(5.6u,3.05v); z101=(5.5u,4.35v); z102=(5.25u,4.1v); z103=(6.1u,3.35v);
+z104=(7.7u,4.85v); z105=(8.8u,3.8v); z106=(8u,3v); z107=(7.4u,3.6v);
+z108=(7.95u,4.25v); z109=(8.4u,3.8v); z110=(8.1u,3.45v); z111=(4.4u,1.5v);
+z112=(6u,2.8v); z113=z111; z114=(5.8u,2v); z115=(6.3u,1.6v); z116=(6.9u,1.05v);
+z117=(6.2u,0.1v); z118=(4.85u,0.6v); z119=(5.65u,0.65v); z120=(6.1u,1.1v);
+z121=(6.45u,0.8v); z122=(6.3u,0.55v); z123=(7.35u,0); z124=(7.85u,0.3v);
+z125=(8.6u,0.4v); z126=(8.6u,1.1v); z127=(8.4u,1.6v); z128=(8.4u,2.7v);
+z129=(8.75u,2.4v); z130=(8.3u,1.95v); z131=(7.65u,3.2v); z132=(7.65u,6.65v);
+z133=(8.5u,7.8v); z134=(8.6u,7.6v); z135=(7.8u,8.7v); z136=(8.9u,7.4v);
+z137=(7.85u,6.25v); z138=(6.9u,7.15v); z139=(7.65u,8.05v); z140=(8.35u,7.4v);
+z141=(8u,7v); z142=(7u,8.1v); z143=(5.9u,8.8v); z144=(5.3u,8.2v);
+z145=(5.7u,7.8v); z146=(6.1u,8.2v); z147=(5.1u,8.6v); z148=(7.8u,3.8v);
+z149=(8.8u,4.95v); z150=(8.85u,6v); z151=(8.7u,6.3v); z152=(8.2u,5.8v);
+z152'=(8.5u,5.5v); z153=(8.5u,5.6v); z154=(8.45u,5.25v); ka(40,0); ka(41,90);
+ka(42,180); ka(43,-90); ka(44,0); ka(45,90); ka(46,166); ka(48,166);
+penpos47(0.3uv,166); ka(49,90); ka(50,62); ka(51,90); ka(52,0); ka(53,0);
+ka(54,-90); ka(55,180); ka(56,90); ka(57,0); penpos58(0.3uv,-69);
+penpos59(0.15v,-90); ka(60,0); ka(61,16); ka(62,0); ka(63,-90); ka(64,180);
+ka(65,90); ka(66,0); ka(67,-90); ka(68,180); ka(70,0); ka(71,90); ka(72,-140);
+ka(73,90); ka(74,-90); ka(75,0); ka(76,0); ka(77,90); ka(78,180); ka(79,-90);
+ka(80,0); ka(81,90); ka(81',-45); z82'=z81'; ka(82',135); ka(82,90); ka(83,0);
+ka(84,-90); ka(85,-41); ka(86,0); ka(87,-15); ka(88,90); ka(89,0); ka(90,90);
+ka(91,79); ka(92,90); ka(93,0); ka(94,-49); ka(94',131); ka(95,-90); ka(96,180);
+ka(97,90); ka(97',164); ka(98,180); ka(99,-50); ka(100,-36); ka(101,90);
+ka(102,180); ka(103,-90); ka(104,-90); ka(105,180); ka(106,90); ka(107,0);
+ka(108,-90); ka(109,180); ka(110,90); ka(111,-45); ka(112,-90); ka(113,-66);
+ka(114,-90); ka(115,180); ka(116,-165); ka(117,90); ka(118,90); ka(119,0);
+ka(120,-90); ka(121,180); ka(122,90); ka(123,-90); ka(124,-90); ka(125,-90);
+ka(126,0); ka(127,15); ka(128,-90); ka(129,180); ka(130,90); ka(131,0);
+ka(132,-6); ka(133,-90); ka(134,180); ka(135,-90); ka(136,180); ka(137,90);
+ka(138,0); ka(139,-90); ka(140,180); ka(141,90); ka(143,90); ka(144,180);
+ka(145,-90); ka(146,0); ka(147,90); ka(148,0); ka(149,-28); ka(150,0);
+ka(151,0); ka(152,180); ka(153,-90); ka(154,180); penstroke
+z40e{up}...z41e{left}... z42e...z43e...z44e...z45e{left}; kouki(45,7,1.4);
+penstroke z46e--z47e--z48e; penstroke z41e{left}...z49e{left}...
+z50e...z52e...z54e...z55e... z56e{left}...z57e{up}...z58e...z59e... z60e{up};
+penstroke z50e{(0,0.8v)-z50}...z51e{left}; kouki(51,7,1.25); penstroke
+z52e{up}...z53e{up}; kouki(53,1,1.2); penstroke z41e{left}...z61e...z62e...
+z63e...z64e...z65e...z66e...z67e... z68e{down}; penstroke
+z82'e{z81'-z153}...z83e... z84e...z7e{down}; mpalla(61,1.5); mpalla(69,1.5);
+penstroke z62e{up}...z70e...z71e... z72e{z65-z72}...z74e...z75e{up};
+kouki(75,1,1.5); penstroke z72e{z65-z72}...z73e{left}; kouki(73,5,1.6);
+penstroke z81'e{z153-z81'}...z85e... z87e...z89e...z90e...z91e{(0,6.85v)-z91}
+...z97'e...z98e...z84e{right}... z76e...z77e...z78e...z79e...z80e... z81e{left};
+kouki(81,7,1.1); penstroke z85e...z86e{up}; kouki(86,1,1); penstroke
+z87e...z88e{left}; kouki(88,7,1); mpalla(90,1.8); mpalla(89,2); mpalla(97',1.3);
+penstroke z91e{(0,6.85v)-z91}...z92e ...z93e...z94e...z95e...z96e... z97e{left};
+kouki(97,5,1.4); penstroke z99e{z153-z99}... z100e{z136-z100}...z104e...z105e...
+z106e...z107e...z108e...z109e... z110e{left}...z148e...z149e...z150e
+...z152e...z153e{right}; kouki(110,5,1.65); kouki(153,6,1); penstroke
+z100e{z136-z100}...z101e... z102e{down}; kouki(102,4,1.5); penstroke
+z100e{z136-z100}...z103e {right}; kouki(103,8,1.1); penstroke
+z152e{down}...z154e{down}; kouki(154,3,1.2); penstroke z150e{up}...z151e{up};
+kouki(151,2,1.5); penstroke z89e{up}...z135e...z136e...
+z137e...z138e{up}...z139e...z140e... z141e{left}; kouki(141,5,2.1); penstroke
+z138e{up}...z143e...z144e ...z145e...z146e{up}...z147e{left}; kouki(146,1,1.4);
+kouki(147,5,1.25); mpalla(142,1.5); z145'=z145; ka(145',3); penstroke
+z89e{up}...z145'e; penstroke z111e{z154-z111}...z112e {right}; kouki(112,8,1.2);
+penstroke z113e{z9r-z113}...z114e... z116e{z116-z103}...z117e...z118e {left};
+kouki(118,7,1.4); penstroke z117e{left}...z119e{up}...
+z120e...z121e...z122e{left}; kouki(122,5,1.5); mpalla(116,1.35); penstroke
+z114e{right}...z115e{down}; kouki(115,3,1.1); penstroke z116e{z116-z103}...z123e
+{right}; kouki(123,6,1); penstroke z116e{z116-z103}...z124e
+{right}...z125e{right}; kouki(125,8,1.5); penstroke z124e{right}...z126e...
+z127e; z131'=(7.6u,5v); ka(131',0); penstroke z128e{right}...z129e...z130e
+...z131e...z131'e...z132e...z133e...z134e {down}; kouki(134,3,1.1);
+z200=(0.35u,3.05v); z201=(0.35u,4.25v); z202=(1.6u,3.05v); z210=(5u,6v);
+z211=(6.9u,6v); z212=(5u,7.15v); z220=(1.35u,6.55v); z221=(1.35u,6.15v);
+z222=(0.35u,6.6v); triaina(200,201,202,0.5); triaina(210,212,211,0.4);
+triaina(220,221,222,0.6); z240=0.5[z112,z116]; mpalla(240,1.3); penlabels(range
+1 thru 240);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitV.mf b/fonts/gothic/yinit/yinitV.mf
new file mode 100644
index 0000000000..029fcc4dcc
--- /dev/null
+++ b/fonts/gothic/yinit/yinitV.mf
@@ -0,0 +1,96 @@
+.cmchar "The letter V";
+.beginchar("V",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(3.1u,1.05v); z2=(2.65u,1.35v); z3=(2.3u,1.1v); z4=(1.8u,0.8v);
+z5=(1.05u,1.6v); z6=(2.5u,2.7v); z7=(3.7u,2.1v); z8=(4.3u,1.4v); z9=(7u,1.1v);
+z10=(8u,3.7v); z11=(7.3u,5.05v); z12=(7.9u,6.47v); z13=(8.7u,6v);
+z14=(8.35u,5.65v); z15=(3.6u,2.2v); z16=(5.2u,5.4v); z17=(4.3u,7.3v);
+z18=(3.1u,7.6v); z19=(1.7u,6.8v); z20=(0.3u,7.6v); z21=(1.2u,8.15v);
+z22=(1.6u,8.05v); z23=(1.6u,8.6v); z24=z7; z25=(4.45u,4.6v); z26=(3.7u,6v);
+z27=(3.85u,6.55v); z28=(2.8u,5.8v); z29=(4.7u,7v); z30=(6.7u,7.75v);
+z31=(7.5u,6.95v); z32=(8.1u,6.8v); z33=(8.85u,7.6v); z34=(8.2u,8.3v);
+z35=(7.75u,7.9v); z36=(8.05u,7.55v); z36.1=(2.7u,1.9v); z36.2=(1.35u,3.2v);
+z36.3=(2.35u,4.15v); z36.4=(3.35u,3.5v); z1'=z1; ka(1,0); ka(1',180);
+penpos2(0.4v,90); penpos3(0.5uv,136); penpos4(0.4v,90); ka(5,0);
+penpos6(0.5v,-90); penpos7(0.95uv,-141); penpos8(0.9uv,-140);
+penpos9(1.5hair,-55); penpos10(0.9uv,17); penpos11(0.8uv,32.5);
+penpos12(1.5hair,-73); ka(13,180); ka(14,90); ka(15,-53); penpos16(0.63u,5);
+penpos17(1.1uv,56); penpos18(1.1uv,98); penpos19(0.85uv,121.5);
+penpos20(1.5hair,-14); penpos21(0.55uv,-130); penpos22(0.35v,-90); ka(23,38);
+ka(24,-29); penpos25(0.47u,0); penpos26(0.93uv,42); ka(27,171); ka(28,-78);
+ka(29,-50); penpos30(0.75uv,-137); penpos31(0.7uv,-142); penpos32(0.3v,-90);
+penpos33(1.5hair,0); ka(34,90); ka(35,180); ka(36,-90); ka(36.1,90); ka(36.2,0);
+penpos36.3(0.3v,-90); ka(36.4,180); kouki(1',3,1.4); penstroke
+z1e{up}...z2e...z3e...z4e... z5e...z6e...z7e...z8e...z9e...z10e...
+z11e...z12e...z13e...z14e{left}; kouki(14,5,1.6); penstroke
+z15e{z13-z15}...z16e...z17e... z18e...z19e...z20e...z21e...z22e... {z23-z9}z23e;
+penstroke z29e{z29-(0,3v)}...z30e... z31e...z32e...z33e...z34e...z35e...
+z36e{right}; kouki(36,6,1.85); filldraw z24r{(7.65u,9v)-z24}...z25r
+...z26r...z27l{up} & z27l--z27r & z27r{z5-z27}...{z28-z34}z28l & z28l--z28r &
+z28r...z26l...z25l... z24l{z24-(7.65u,9v)} & z24l--z24r & cycle; z15'=z15;
+ka(15',127); penstroke z15'e{z15-z13}...z36.1e{left}...
+z36.2e{up}...z36.3e...z36.4e{down}; kouki(36.4,3,1.3); z40=(2.3u,0.8v);
+z41=(1.85u,0.15v); z42=(0.6u,1.5v); z43=(2.5u,3.3v); z44=(3.7u,2.95v);
+z45=(0.7u,0); z46=(1.3u,0.9v); z47=(1.7u,1.8v); z48=(1.7u,1.3v); z49=(1.3u,1.7v);
+z50=(2u,2.3v); z51=(3.3u,1.55v); z52=(2.75u,0.25v); z53=(5.4u,0.2v);
+z54=(3.75u,0.45v); z55=(6.8u,0.5v); z56=(8.8u,0.5v); z57=(8.3u,0);
+z58=(7.9u,0.2v); z59=(7.35u,0.4v); z60=(8.15u,0.7v); z61=(8.9u,1.2v);
+z62=(8.1u,1.4v); z63=(8.5u,1.9v); z64=(8.85u,2.6v); z65=(9u,3.5v);
+z66=(6.2u,5.85v); z67=(5.8u,4.6v); z68=(6.85u,3.5v); z69=(6.85u,5.2v);
+z70=(6.6u,4.4v); z71=(4u,1.8v); z72=(5.2u,2.15v); z73=(5.2u,2.9v);
+z74=(6.1u,3.3v); z75=(7.05u,2.3v); z76=(6.3u,1.4v); z77=(5.85u,1.15v);
+z78=(5.45u,2.1v); z79=(5.9u,2.8v); z80=(6.45u,2.5v); z81=(6.3u,2.15v);
+z82=(6u,2.25v); z83=(5.8u,2v); z84=(5.9u,1.8v); z85=(6.9u,3.7v);
+z86=(6.5u,4.2v); z87=(6.25u,4.1v); z88=(6.45u,6.1v); z89=(8.1u,8.7v);
+z90=(8.8u,8.65v); z91=(3.8u,2v); z92=(5.87u,5.8v); z93=(5.4u,8.3v); z94=(6u,9v);
+z95=(6.35u,8.65v); z96=(6.15u,8.3v); z97=(5.9u,8.4v); z98=(6.8u,8.6v);
+z99=(4.7u,8.95v); z99'=(5.25u,8.05v); z100=(3u,8.6v); z101=(0.95u,6.5v);
+z102=(1.5u,5.6v); z103=(2.6u,4.5v); z104=(3.9u,5.7v); z105=(3u,6.6v);
+z106=(2.15u,5.7v); z107=(2.7u,5.3v); z108=(3.35u,2.4v); z109=(3.95u,3.8v);
+z109'=(1.55u,5.15v); z110=(0.45u,4.2v); z111=(u,4v); z112=(1.65u,3.4v);
+z113=(2.2u,4v); z114=(1.7u,4.5v); z115=(0.4u,5v); z116=(0.7u,7.7v);
+z117=(0.15u,8.2v); z118=(0.75u,8.65v); ka(40,-131); ka(41,90); ka(42,0);
+ka(43,-90); ka(44,-121.5); ka(45,-90); ka(46,0); ka(47,-90); ka(48,90); ka(49,0);
+ka(50,-90); ka(51,-147); ka(52,90); ka(53,-90); ka(55,-67); ka(56,180);
+ka(57,90); ka(58,31.5); ka(59,90); ka(60,-90); ka(61,0); ka(62,-42); ka(63,-90);
+ka(64,-18); ka(65,0); ka(66,90); ka(67,180); ka(68,-90); ka(69,90); ka(70,-90);
+ka(71,-51); ka(72,180); ka(73,-44); ka(74,-90); ka(75,180); ka(76,90);
+ka(77,180); ka(78,0); ka(79,-90); penpos80(1.5hair,180); penpos81(0.35v,99);
+penpos82(0.32uv,74); penpos83(0.1uv,155); ka(84,-137); ka(85,0); ka(86,90);
+ka(87,180); ka(88,-11); ka(89,-90); ka(90,-90); ka(91,-51); ka(92,0); ka(93,11);
+ka(94,-90); ka(95,180); ka(96,90); ka(97,0); ka(98,0); ka(99,24); ka(99',22);
+ka(100,90); ka(101,180); ka(102,-90); ka(103,-90); ka(104,0); ka(105,90);
+ka(106,180); ka(107,77); ka(108,-35); ka(109,0); ka(110,132); ka(109',118);
+ka(111,180); ka(112,-90); ka(113,0); ka(114,90); ka(115,0); ka(116,90);
+ka(117,0); penpos118(0.1uv,-131); penstroke z40e{z40-z47}...z41e...
+z42e...z43e...z44e{z72-z44}; z45'=z45; ka(45',90); kouki(45',5,1.4); penstroke
+z45e{right}...z46e...z47e ...z48e...z49e...z50e...z51e{z51-z114}...
+z53e...z55e... z62e...z64e...z65e...z66e... z67e...z68e...z69e...z70e{right};
+kouki(70,6,1.1); mpalla(54,1.4); mpalla(55,1.3); mpalla(64,1.5); penstroke
+z51e{z51-z114}...z52e{left}; kouki(52,5,1.2); kouki(47,7,1.1); penstroke
+z55e{(9u,1.5v)-z55}... z56e...z57e...z58e...z59e{left}; penstroke
+z58e...z60e{right}...z61e {up}; kouki(59,7,1.3); kouki(60,8,1.5);
+kouki(61,1,1.2); z200=(4.85u,2.75v); z201=(4.55u,2.85v); penpos200(0.1uv,-47);
+penstroke z71e{z71-z41}...z73e... z88e...z89e...z90e{right}; kouki(90,6,1.6);
+kouti(200,201); z202=(6.25u,6v); kouti(88,202); penstroke
+z73e...z74e...z75e...z76e ...z78e...z79e{right}...z80e...
+z81e...z82e...z83e...z84e{z84-z19}; penstroke z76e...z77e{down}; kouki(77,4,1);
+penstroke z79e{right}...z85e...z86e ...z87e{down}; kouki(87,4,1.3); penstroke
+z71e{z71-z41}...z72e{down}; kouki(72,3,1); z91.1=z2r; ka(91.1,-90); penstroke
+z91.1e{right}...z91e... z92e{up}...z93e...z94e...z95e{z11r-z95} ...z98e{up};
+penstroke z95e{z11r-z95}...z96e... z97e{up}; kouki(98,1,1.3); kouki(97,2,1.3);
+z203=(5.7u,5.65v); kouti(92,203); penstroke z92e{up}...z99'e...z99e; penstroke
+z92e{up}...z100e...z101e {down}...z103e...z104e... z105e...z106e{down};
+kouki(106,4,1.65); penstroke z101e{down}...z102e{right}; kouki(102,6,1.2);
+kouki(103,6,1.3); kouki(105,7,1.5); penstroke z108e{z89-z108}...z109e...
+z107e...z109'e{z109'-z98}...z115e{up}; penstroke z109'e{z109'-z98}...
+z110e{left}; kouki(110,5,0.8); penstroke z109'e{z109'-z98}...z111e
+...z112e...z113e...z114e{left}; kouki(114,7,1.4); kouki(115,2,1.5); z204=z22;
+ka(204,130); penstroke z204e{z102-z97}...z116e... z117e{up}; filldraw
+z117l{up}... {z85-z118}z118l & z118l..z118r & z118r{z118-z85}...z117r{down} &
+z117r--z117l & cycle; z210=(4.55u,8.1v); z211=(4.35u,8.65v); z212=(5.6u,8.55v);
+z220=(5.95u,6.55v); z221=(6.05u,7.1v); z222=(7.1u,6.3v); z230=(8.25u,4.6v);
+z231=(8u,5.05v); z232=(9.15u,5v); triaina(210,211,212,0.4);
+triaina(220,221,222,0.5); triaina(230,231,232,0.6); penlabels(range 1 thru 240);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yinitW.mf b/fonts/gothic/yinit/yinitW.mf
new file mode 100644
index 0000000000..4006e0450a
--- /dev/null
+++ b/fonts/gothic/yinit/yinitW.mf
@@ -0,0 +1,138 @@
+.cmchar "The letter W";
+.beginchar("W",8.9u#+2mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(2.5u,0.5v); z2=(3.4u,1.3v); z3=(3u,1.55v); z4=(2.55u,2v); z5=(1.2u,3.4v);
+z6=(2.2u,4.45v); z7=(2.85u,3.75v); z8=(2.35u,3.2v); z9=(2u,3.55v);
+z10=(2.2u,3.8v); z11=(2.35u,3.7v); z12=(2.6u,3.8v); z13=(5.9u,5.7v);
+z14=(4.65u,7.8v); z15=(3.45u,7.95v); z16=(2.05u,7.3v); z17=(0.1u,7.9v);
+z18=(0.9u,8.45v); z19=(1.3u,8.2v); z20=(1.5u,8.3v); z21=(1.55u,8.6v);
+z22=(6.5u,0.5v); z23=(7.2u,1.5v); z24=(6.7u,1.65v); z25=(6.25u,2v);
+z26=(5.2u,2.25v); z27=(4.5u,3.5v); z28=(5.4u,4.4v); z29=(6.25u,3.7v);
+z30=(5.65u,3.05v); z31=(5u,3.5v); z32=(8.45u,2.4v); z33=(8.85u,3.5v);
+z34=(8.45u,4.45v); z35=(7.95u,5.75v); z36=(8.7u,6.5v); z37=(9.3u,6v);
+z38=(9u,5.7v); z39=(5.35u,7.25v); z40=(7.2u,8.05v); z41=(7.82u,7.72v);
+z42=(8.2u,7.1v); z43=(9.25u,7.05v); z44=(9.5u,7.5v); z45=(9u,8.1v);
+z46=(2.9u,2.55v); z47=(3.85u,4.3v); z48=(3.4u,5.5v); z49=(2.8u,6v);
+z50=(3.1u,6.7v); z51=(1.6u,5.6v); ka(1,-29); ka(2,-69); penpos3(0.8uv,36);
+penpos4(0.9uv,64); penpos5(0.25u,0); penpos6(1.5hair,-90); ka(7,180); ka(8,90);
+ka(9,0); penpos10(0.3v,-90); penpos11(0.2uv,-118); ka(12,-31); penpos13(0.7u,0);
+penpos14(0.93uv,61); penpos15(0.85v,90); penpos16(0.75uv,119); ka(17,0);
+penpos18(0.4uv,-138); penpos19(0.35uv,-141); ka(20,-42); ka(21,0); ka(22,-17);
+ka(23,-54); penpos24(0.8uv,38); penpos25(0.9uv,77); penpos26(0.72uv,74);
+penpos27(0.22u,0); penpos28(1.5hair,-90); ka(29,180); ka(30,90); ka(31,0);
+penpos32(0.12uv,-40); penpos33(0.7u,2); penpos34(0.9uv,43); penpos35(0.37u,0);
+penpos36(1.5hair,-90); ka(37,180); ka(38,90); ka(39,-55); penpos40(0.5v,-90);
+penpos41(0.85uv,-151); penpos42(0.9uv,-152); penpos43(0.15uv,-61); ka(44,0);
+ka(45,90); ka(46,-46); penpos47(0.5u,0); penpos48(0.75uv,42);
+penpos49(0.85uv,43); ka(50,148); ka(51,-74); filldraw
+z1r{z40l-z1}...z2r{z33l-z2r} & z2r--z2l & z2l{up}...z3r...z4r...
+z5r...z6r{right} & z6r--z6l & z6l{left}...z5l...z4l...z3l... z1l{z1-z40l} &
+z1l--z1r & cycle; penstroke z6e{right}...z7e...z8e{left}...
+z9e{up}...z10e...z11e...z12e{z49r-z12}; penstroke z2e{z33l-z2r}...z13e...z14e
+...z15e...z16e...z17e{up}; filldraw z17r{up}...z18r...
+(1.05u,8v){right}...z20r... z21r{up} & z21r--z21l & z21l{down}...z20l...z19l...
+z18l...z17l{down} & z17l--z17r & cycle; filldraw z22r{z45-z22}...z23r{z36-z27l} &
+z23r--z23l & z23l{z14-z23}...z24r ...z25r...z26r...z27r...z28r{right} &
+z28r--z28l & z28l{left}...z27l... z26l...z25l...z24l...z22l{z22-z45} &
+z22l--z22r & cycle; penstroke z23e{z36-z27l}...z32e...
+z33e...z34e...z35e...z36e...z37e... z38e{left}; kouki(38,5,1.5);
+z31'=(5.15u,3.85v); penpos31'(0.2uv,-38); penstroke z28e{right}...z29e...z30e
+...z31e...z31'e; penstroke z39e{z40l-z6}...z40e...
+z41e...z42e...z43e...z44e...z45e{left}; kouki(45,7,1.4); filldraw
+z46r{z42r-z46}...z47r{up} ...z48r...z50l{z15-z50} & z50l--z50r & z50r{z50-z15}...
+z51l{z51-z49} & z51l--z51r & z51r{z49-z51}...z49l...z48l...
+z47l...z46l{z46-z42r} & z46l--z46r & cycle; z60=(2.3u,0.4v); z61=(2.4u,1.2v);
+z62=(0.5u,3.5v); z63=(1.9u,5.1v); z64=(3.3u,3.85v); z65=(3u,3v); z66=(2.5u,2.8v);
+z67=(1.6u,3.6v); z68=(2.2u,4.2v); z69=(0.5u,0.7v); z70=(1.35u,0); z71=(2u,0.7v);
+z72=(1.5u,1.25v); z73=(u,0.8v); z74=(1.35u,0.45v); z75=(0.2u,0); z76=(0.2u,2.1v);
+z77=(0.75u,2.6v); z78=(1.1u,2.25v); z79=(0.8u,1.9v); z80=(2.75u,0.5v);
+z81=(3.3u,v); z82=(6u,3.7v); z83=(6.45u,6v); z84=(4.55u,8.7v); z85=(2.2u,8.5v);
+z86=(0.95u,6.3v); z87=(2.6u,4.5v); z88=(4.15u,6v); z89=(3.1u,7.15v);
+z90=(u,5.4v); z91=(0.2u,5.1v); z92=(0.35u,6v); z93=(0.85u,6.55v);
+z94=(1.3u,6.2v); z95=(u,5.9v); z96=(2.2u,6.4v); z98=(3.6u,6.2v);
+z100=(2.5u,5.2v); z101=z3; z102=(4.1u,2.4v); z103=(4u,2.75v); z104=(3.9u,3.2v);
+z105=(3.35u,2.45v); z106=(3.6u,2.2v); z107=(6.45u,5.45v); z108=(6.8u,5v);
+z109=(6.15u,4.35v); z110=(5.25u,5.2v); z111=(6.3u,6.3v); z112=(7.5u,5v);
+z113=(6.1u,3.5v); z114=(4.65u,4.85v); z115=(6.5u,7.05v); z116=(7.2u,6.7v);
+z117=(6.5u,7.6v); z118=(5.6u,8.1v); z119=(5.85u,8.7v); z120=(5.55u,9v);
+z121=(5.3u,8.75v); z122=(7.8u,8.9v); z123=(9.35u,8.35v); z124=(10u,6.8v);
+z125=(8.7u,5.35v); z126=(7.5u,6.4v); z127=(8.5u,7.55v); z128=(9.4u,6.8v);
+z129=(2.95u,0.55v); z130=(3.9u,0.9v); z131=(5u,1.45v); z132=(4.8u,1.7v);
+z133=(4.85u,0.65v); z134=(5.7u,0.3v); z135=(6.15u,0.85v); z136=(5.65u,1.35v);
+z137=(5.25u,v); z138=(5.45u,0.75v); z139=(5.65u,0.9v); z141=(5.9u,0.8v);
+z142=(4.55u,0.45v); z143=(4.2u,0); z144=(3.2u,0.45v); z145=(3.05u,0.3v);
+z146=(3.75u,0.4v); z147=(4u,0.6v); z148=(6.6u,0.4v); z149=(8.1u,1.7v);
+z150=(9.5u,3.8v); z151=(8.65u,5.3v); z152=(8.35u,5.8v); z153=(8.75u,6.3v);
+z154=(6.75u,0.1v); z155=(8.45u,1.4v); z156=(9.5u,2.2v); z157=(9.1u,2.55v);
+z158=(9.2u,1.4v); z159=(9.75u,1.2v); z160=(9.15u,0.8v); z161=(9.5u,0.1v);
+z162=(8.6u,0.05v); z163=(8.15u,0.25v); z164=(8.7u,0.4v); z163'=(8.55u,0.65v);
+z165=(8.9u,0.6v); z166=(7.5u,0.65v); z167=(7.25u,0.4v); z168=(6.8u,1.4v);
+z169=(8.1u,2.9v); z170=(7.6u,4v); z171=(7.45u,3.55v); z172=(6.9u,3v);
+z173=(6.3u,3v); z174=(7.35u,2.45v); z175=(7.7u,2.7v); z176=(0.85u,7.75v);
+z177=(0,8.5v); z178=(0.4u,9v); z179=z123; z180=(9.65u,8.5v); z181=(9.5u,8.7v);
+z182=(9.7u,8.9v); ka(60,-18); ka(61,24); ka(62,0); ka(63,-90); ka(64,180);
+ka(65,134); ka(66,90); ka(67,0); ka(68,-90); ka(69,180); ka(70,-90); ka(71,0);
+ka(72,90); ka(73,180); ka(74,-90); ka(75,90); ka(76,0); ka(77,-90); ka(78,180);
+ka(79,90); ka(80,-8.5); ka(81,-55); ka(82,-27); ka(83,0); ka(84,76); ka(85,121);
+ka(86,180); ka(87,-90); ka(88,0); ka(89,90); ka(90,90); ka(91,180); ka(92,0);
+ka(93,-90); ka(94,180); ka(95,90); ka(96,180); ka(98,0); ka(100,0); ka(101,-90);
+ka(102,0); ka(103,33); ka(104,0); ka(105,180); ka(106,-90); ka(107,-126);
+ka(108,180); ka(109,90); ka(110,0); ka(111,-90); ka(112,180); ka(113,90);
+ka(114,0); ka(115,-90); ka(116,180); ka(118,-40); ka(119,0); ka(120,90);
+ka(121,180); ka(122,-90); ka(123,-130); ka(124,180); ka(125,90); ka(126,0);
+ka(127,-90); ka(128,180); ka(129,-57.5); ka(130,-90); ka(131,0); ka(132,90);
+ka(133,-127); ka(134,-90); ka(135,0); ka(136,90); ka(137,180);
+penpos138(0.2v,-90); penpos139(0.2uv,-34); ka(140,-129); ka(141,-129);
+ka(142,180); ka(143,90); ka(144,90); ka(145,180); ka(146,0); ka(147,-90);
+ka(148,-13); ka(149,-57); ka(150,0); ka(151,48); ka(152,0); ka(153,-90);
+ka(154,-13); ka(155,-90); ka(156,0); ka(157,90); ka(158,-90); ka(159,180);
+ka(160,180); ka(161,-90); ka(162,90); ka(163,47); penpos163'(0.25uv,-119);
+penpos164(0.15v,-90); ka(165,-41); ka(166,90); ka(167,180); ka(168,-53.5);
+ka(169,0); ka(170,0); ka(171,90); ka(172,180); ka(173,0); ka(174,-90);
+ka(175,0); ka(176,90); ka(177,0); ka(178,-90); ka(179,-45); penpos180(0.4u,0);
+penpos181(0.2uv,34); ka(182,-90); z12'=z12; ka(12',180); z61'=(1.65u,1.65v);
+ka(61',66); z65'=(1.9u,2.35v); ka(65',120); z81'=(5.25u,2.3v); ka(81',-41);
+z85'=(1.55u,8v); ka(85',140); penstroke z85'e{z63-z119}...z176e{left}
+...z177e...z178e{right}; penstroke z60e{z64-z60}...z61e... z61'e...
+z62e...z63e...z64e...z65e{z65-z83} ...z66e...z67e...z68e...z12'e{down};
+penstroke z65e{z65-z83}... z65'e...{down}z69e ...z70e...z71e...z72e{left}...
+z73e...z74e{right}; penstroke z69e{down}...z75e{left}; penstroke
+z72e{left}...z76e... z77e...z78e...z79e{left}; kouki(74,6,1.5); kouki(75,5,1.2);
+kouki(79,5,1.4); penstroke z80e{z121-z80}...z81e... z81'e...
+z83e...z84e...z85e{z176-z85} ...z86e...z87e...z88e...z89e{left}
+...z90e{left}...z92e...z93e... z94e...z95e{left}; z200=(4.65u,8.5v);
+kouti(84,200); mpalla(85,1.5); penstroke z85e{z176-z85}...z176e
+...z177e...z178e{right}; z99=(1.4u,5.1v); ka(99,-137.5); penstroke
+z99e{z103-z99}...z100e{up}; penstroke z89e{left}...z96e{down} ...z98e{up};
+penstroke z90e{left}...z91e{down}; kouki(178,8,1.1); kouki(100,1,1.3);
+kouki(98,1,1.3); kouki(91,4,1.15); kouki(95,5,1.4); penstroke
+z101e{right}...z102e{up} ...z105e{down}...z106e{right}; penstroke
+z102e...z104e{up}; kouki(106,6,1.3); kouki(104,2,1.1); penstroke
+z107e{z33r-z107}... z108e...z109e...z110e...z111e... z112e...z113e...z114e{up}...
+z115e...z116e{down}; z201=(4.4u,4.6v); kouti(114,201); kouki(116,3,1.4);
+mpalla(112,1.4); kouki(108,3,1.2); penstroke z114e{up}...z39e{z40l-z6};
+penstroke z114e{up}...z118e{z118-z77}... z122e...z123e...z124e...z125e...
+z126e...z127e...z128e{down}; penstroke z118e{z118-z77}...z119e
+...z120e...z121e{down}; kouki(121,4,1.2); kouki(126,2,1.2); kouki(128,3,1.3);
+mpalla(122,1.4); mpalla(117,1.4); penstroke z179e...z180e...z181e
+...z182e{z37-z115}; z202=(4.4u,6.9v); mpalla(202,1.4); penstroke
+z129e{z132-z129}... z130e{right}...z131e...z132e{left}; penstroke
+z130e{right}...z133e... z134e...z135e...z136e...z137e... z138e...z139e...
+z141e{z141-z96}; penstroke z130e{right}...z142e... z143e...z144e...z145e{down};
+penstroke z143e...z146e...z147e {right}; kouki(132,7,1.3); kouki(147,8,1.1);
+kouki(145,4,1.3); mpalla(130,1.3); z206=(7.9u,3.4v); ka(206,54); penstroke
+z168e{z168-z135}... z169e...z206e...z171e...z172e...z174e... z175e{up};
+kouki(175,1,1.7); z204=(9u,6v); ka(204,180); penstroke z206e{z15r-z206}...
+z170e{up}; kouki(170,2,1.3); penstroke z148e{z175-z148}...
+z149e...z150e...z151e...z152e... z153e...z204e{down}; penstroke
+z154e{z34r-z154}... z155e{right}...z156e...z157e {left}; penstroke
+z155e{right}...z158e... z159e{down}; penstroke z155e{right}...z160e
+{down}...z162e...z163e{z173-z163}...z163'e... z164e...z165e{up}; penstroke
+z160e{down}...z161e {right}; penstroke z163e{z173-z163}...z166e{left}...
+z167e{down}; z205=(8.3u,1.6v); kouti(155,205); kouki(157,7,1.3);
+kouki(159,3,0.8); kouki(161,6,1.3); kouki(167,4,1.4); penstroke
+z172e{down}...z173e{up}; kouki(173,2,1.25); z210=(0,4v); z211=(0.25u,4.85v);
+z212=(u,3.6v); triaina(210,211,212,0.75); mpalla(62,1.25); penlabels(range 1
+thru 220);
+.endchar;
+ \ No newline at end of file
diff --git a/fonts/gothic/yinit/yinitX.mf b/fonts/gothic/yinit/yinitX.mf
new file mode 100644
index 0000000000..38f319dc40
--- /dev/null
+++ b/fonts/gothic/yinit/yinitX.mf
@@ -0,0 +1,126 @@
+.cmchar "The letter X";
+.beginchar("X",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(1.7u,0.5v); z2=(2.65u,1.65v); z3=(2u,1.8v); z12=(3.9u,5v);
+z13=(3.75u,4.55v); z14=(2.6u,3.6v);z15=(3.2u,3.05v); z16=(3.6u,3.4v);
+z17=(5.05u,4v); z18=(5.05u,4.9v); z19=(5.25u,4.4v); z20=(6.75u,5.4v);
+z21=(6.1u,6.2v); z22=(5.55u,5.75v); z23=(5.75u,5.45v); z24=(5.25u,6.75v);
+z25=(6.4u,7.85v); z26=(6.8u,7.6v); z27=(7.8u,7.15v); z28=(8.4u,7.8v);
+z29=(7.95u,8.35v); z30=(7.7u,8.2v);z31=(6.1u,0.55v); z32=(6.85u,1.55v);
+z33=(8u,2.8v); z34=(7.35u,3.7v); z35=(6.75u,3.15v); z36=(7u,2.75v);
+z37=(6u,1.35v); z38=(4.8u,2.05v);z39=(4.5u,3.35v); z40=(4.4u,6.3v);
+z41=(3.65u,7.65v); z42=(2.85u,7.85v); z43=(1.6u,7.35v); z44=(0.4u,8v);
+z45=(1.15u,8.65v); z46=(1.35u,8.4v); z47=(1.8u,8.45v); z48'=z48;
+z48=(1.75u,8.85v); z4=(1.05u,2.35v); z5=(0.65u,3.15v); z6=(1.5u,3.95v);
+z7=(2.05u,3.35v); z8=(1.7u,2.95v); z9=(1.35u,3.2v);z10=(2.95u,1.8v);
+z11=(3.9u,4.1v); ka(1,-30); penpos2(0.2u,-64); penpos3(0.9uv,51);
+penpos4(0.7uv,67); penpos5(0.235u,0); penpos6(1.5hair,-90); ka(7,180); ka(8,90);
+ka(9,0); ka(10,-53); ka(11,0); ka(12,0); penpos13(0.67v,90);
+penpos14(0.12u,180); ka(15,-90); ka(16,0); ka(17,0); ka(18,0);
+penpos19(0.65u,-90); penpos20(1.5hair,0); ka(21,90); ka(22,180); ka(23,-90);
+penpos24(1.5hair,-14); penpos25(0.6v,-90); penpos26(0.7uv,-136);
+penpos27(0.45v,-90); ka(28,0); ka(29,90); ka(30,180); ka(31,-9);
+penpos32(0.35uv,-32); penpos33(1.5hair,0); ka(34,90); ka(35,180); ka(36,-90);
+penpos37(0.88uv,69); penpos38(0.92uv,42); penpos39(0.72u,5); penpos40(0.8u,0);
+penpos41(0.9uv,56); penpos42(0.95v,90); penpos43(0.75uv,113.5);
+penpos44(1.5hair,0); penpos45(0.5uv,-120); penpos46(0.45u,-149);
+penpos47(0.1uv,-56); ka(48,34); filldraw z1l{z13l-z1}...z3l...z4l...
+z5l...z6l{right} & z6l--z6r & z6r{left}...z5r...z4r...(2.1u,2.4v) ...z3r...
+z2l...z10l{z39r-z10}...z11l{up}... z13l{left}...z14l{down}...z15l {right} &
+z15l--z15r & z15r{left}...z14r{up}...z13r{right} ...z12l{up} & z12l--z12r &
+z12r---z11r{down}...z10r{z10-z39r}... z2r...z1r{z1-z13l} & z1r--z1l & cycle;
+penstroke z6e{right}...z7e...z8e... z9e{up}; kouki(9,2,1.7); penstroke
+z15e{right}...z16e{up}; kouki(16,1,1.7); filldraw
+z21r{right}...z20r{down}...z19r {left}...z17r{down} & z17r--z17l &
+z17l---z18l{up}...z24l...z25l... z26l...z27l...z28l{up} & z28l--z28r &
+z28r{down}...z27r...z26r...(6.1u,7.65v)... z24r...z18r{down}...z19l{right}...
+z20l{up}...z21l{left} & z21l--z21r & cycle; penstroke
+z21e{left}...z22e...z23e{right}; kouki(23,6,1.7); penstroke
+z28e{up}...z29e...z30e{down}; kouki(30,4,1.7); filldraw
+z31l{z26-z31}...z37l...z38l ...z39l...z40l...z41l...z42l...z43l ...z44l{up} &
+z44l--z44r & z44r{down} ...z43r...(2u,8.05v)...z42r...z41r...z40r...z39r
+...z38r...z37r...z32l...z33l{up} & z33l--z33r & z33r{down}...z32r...
+z31r{z31-z26} & z31r--z31l & cycle; penstroke z33e{up}...z34e...z35e...
+z36e{right}; kouki(36,6,1.7); penstroke z44e{up}...z45e...z46e...
+z47e...z48e{z48-z17}; z50=(2.15u,1.65v); z51=(2.9u,2.6v); z52=(2.5u,3.05v);
+z53=(2.3u,2.8v); z53'=(2.3u,1.55v); z54=(3.6u,4.3v); z55=(3.35u,5.45v);
+z56=(3.1u,7v); z57=(5.1u,9.05v); z58=(6.55u,7.7v); z59=(5.45u,6.4v);
+z60=(4.6u,7.75v); z61=(5.1u,8.05v); z62=(5.8u,7.4v); z63=(5.4u,7v);
+z64=(5.05u,7.3v); z65=(5.35u,8.4v); z66=(6.5u,8.55v); z67=(6.85u,8.8v);
+z68=(4.8u,8.5v); z69=(4.15u,9.2v); z70=(2.6u,8.5v); z71=(2.25u,8.8v);
+z72=(3.6u,8.6v); z73=(4u,8.2v); z74=(4.3u,8.4v); z78=(1.7u,6.7v);
+z79=(0.67u,6.3v); z80=(0.4u,6.05v); z81=(0.2u,5.7v); z82=(0.1u,5.15v);
+z83=(0.7u,4.5v); z84=(1.15u,3.5v); z85=(1.9u,2.15v); z86=(1.5u,2v);
+z87=(0.75u,0.95v); z88=(0,0.3v); z89=(0.9u,2.4v); z90=(0.15u,1.7v);
+z91=(1.05u,0.5v); z92=(3.2u,1.5v); z93=(4.25u,0.68v); z94=(3.65u,0);
+z95=(3.1u,0.55v); z96=(3.5u,1.05v); z97=(4.1u,1.7v); z98=(3.75u,2.05v);
+z99=(2.1u,0.5v); z100=(2.7u,v); z101=(4.8u,0.1v); z102=(5.3u,0.5v);
+z103=(5u,0.95v); z104=(5.8u,0.5v); z105=(6.55u,0.3v); z106=(1.5u,3.6v);
+z107=(2.65u,4.8v); z108=(2.35u,5.55v); z109=(1.7u,5.85v); z110=(0.95u,5.2v);
+z111=(1.4u,4.8v); z112=(1.85u,4.9v); z113=(2.15u,4.5v); z114=(0,8v);
+z115=(u,9.15v); z116=(7.2u,3v); z117=(7u,3.25v); z118=(7.3u,3.45v);
+z119=(7.75u,2.85v); z120=(6.7u,2v); z121=(5.9u,2.75v); z122=(6.1u,3.15v);
+z123=(6.35u,3.75v); z124=(6.05u,4.05v); z125=(5.85u,3.95v); z126=(6.6u,3v);
+z127=(5.3u,3.8v); z128=(7.45u,6.7v); z129=(8.53u,6.13v); z130=(8.8u,5.3v);
+z131=(8.3u,4.7v); z132=(7.5u,3.9v); z133=(6.4u,5v); z134=(7.25u,6.1v);
+z135=(7.95u,5.45v); z141=(6.85u,1.55v); z142=(8u,0.25v); z143=(8.85u,1.15v);
+z144=(8.5u,1.8v); z145=(8.2u,2.45v); z146=(8.4u,2.7v); z147=(7.55u,1.3v);
+z148=(7.9u,0.8v); z150=(8.4u,1.05v); z149=(8.8u,0.3v); y136=y135;
+x136=x135-0.5u; z137=z136+(0,-0.5v); z138=(7.3u,4.6v); z137.5=(7.7u,4.85v);
+z139=(7.5u,4.3v); ka(50,-45); ka(51,0); ka(52,90); ka(53,180); ka(53',-47);
+ka(54,0); ka(55,20); ka(56,0); ka(57,-90); ka(58,180); ka(59,90); ka(60,-35);
+ka(61,-90); ka(62,180); ka(63,90); ka(64,0); ka(65,-70); ka(66,-90); ka(67,0);
+ka(68,0); ka(69,90); ka(70,90); ka(71,0); ka(72,180); ka(73,-90); ka(74,0);
+ka(78,90); ka(79,128); ka(80,143); ka(81,157); ka(82,180); ka(83,-90);
+ka(84,-125); ka(85,141); ka(86,180); ka(87,77); ka(88,180); ka(89,122);
+ka(90,158); ka(91,-90); ka(92,-90); ka(93,180); ka(94,90); ka(95,0); ka(96,-59);
+ka(97,0); ka(98,90); ka(99,0); ka(100,-90); ka(101,-90); ka(102,0); ka(103,90);
+ka(104,-90); ka(105,-90); ka(106,-90); ka(107,0); ka(108,41); ka(109,90);
+ka(110,180); penpos111(0.4uv,-67.5); penpos112(0.3v,-90); ka(113,180);
+ka(114,0); ka(115,-90); ka(48',-146); ka(116,90); ka(117,0); ka(118,-90);
+ka(119,180); ka(120,90); ka(121,0); ka(122,-53); ka(123,0); ka(124,90);
+ka(125,180); ka(126,180); ka(127,0); ka(128,-90); ka(129,-146); ka(130,180);
+ka(131,90); ka(132,90); ka(133,0); ka(134,-90); ka(135,180);
+penpos138(1.5hair,180); ka(139,-90); ka(141,-171); ka(142,-90); ka(143,0);
+ka(144,54); ka(145,0); ka(146,-90); ka(147,180); ka(148,-90); ka(149,180);
+ka(150,0); penstroke z50e{z128-z50}...z51e... z52e...z53e{down};
+kouki(53,4,1.3); penstroke z53'e{z20-z53'}...z54e...
+z55e{z55-z103}...z56e...z57e...z58e ...z59e...z60e{z60-z8}...z61e...
+z62e...z63e...z64e{up}; kouki(64,2,1.2); mpalla(55,1.45); penstroke
+z55e{z55-z103}...z78e... z79e...z80e...z81e...z82e{down}...z83e{right}; penstroke
+z60e{z60-z8}...z65e...z66e ...z67e{up}; kouki(67,1,1.3); penstroke
+z60e{z60-z8}...z68e...z69e {left}...z72e...z73e...z74e{up}; kouki(74,1,1.25);
+penstroke z69e{left}...z70e...z71e{up}; kouki(71,2,1.5); penstroke
+z82e{down}...z106e...z107e...
+z108e{z108-z37}...z109e{left}...{down}z110e...z111e... z112e...z113e{down};
+kouki(113,3,1.6); penstroke z108e{z108-z37}...z114e...z115e... z48'e;
+kouki(83,6,1.2); penstroke z106e{right}...z85e{z85-z59}; penstroke
+z89e{z89-z18}...z90e...z91e ...z92e...z93e...z94e...z95e...z96e
+{right}...z97e...z98e{left}; kouki(98,7,1.4); kouki(96,8,1.4); penstroke
+z99e{up}...z100e...z101e... z102e...z103e{left}; z99'=z99; ka(99',180);
+kouki(99',4,1.3); penstroke z101e{right}...z104e...z105e{right};
+kouki(105,6,1.4); penstroke z86e{down}...z87e...z88e{down}; kouki(88,4,1.5);
+kouki(103,7,1.75); penstroke z141e{down}...z142e...z143e
+...z144e{z12-z144}...z147e...z148e {right}...z150e{up}; kouki(150,1,1.75);
+penstroke z144e{z12-z144}...z145e... z146e{right}; kouki(146,8,1.6); penstroke
+z148e{right}...z149e{down}; kouki(149,3,1.3); z151=(3.3u,6.85v);
+z152=(2.7u,7.125v); z153=(1.9u,6.4v); z154=(2.4u,5.9v); z155=(2.8u,6.25v);
+ka(151,44); ka(152,90); ka(153,180); ka(154,-90); ka(155,0); penstroke
+z12e{up}...z151e...z152e... z153e...z154e...z155e{up}; kouki(155,1,1.6);
+mpalla(108,1.4); mpalla(79,1.25); mpalla(81,1.25); mpalla(80,1.45);
+mpalla(57,1.4); penstroke z116e{left}... z118e...z119e...z120e{left}...z17e{up};
+penstroke z120e{left}...z127e... z128e...z129e...z130e...z132e...
+z133e...z134e{right}...z135e{down}; filldraw z135r{down}...z136{up} &
+z136{left}...z137{right} & z137{left} ...z138r{down} & z138r--z138l &
+z138l{up}...z137.5...z135l{up} & z135l--z135r & cycle; penstroke
+z138e{down}...z139e{right}; kouki(139,6,1.25); mpalla(134,1.35);
+z156=(8.8u,7.8v); z157=(7.9u,8.9v); z158=(7.25u,8.2v); z159=(7.7u,7.7v);
+z160=(7.85u,7.95v); ka(156,0); ka(157,90); ka(158,180); ka(159,-90); ka(160,0);
+penstroke z134e{right}...z156e...z157e ...z158e...z159e...z160e{up}; penstroke
+z120e{left}...z121e... z122e{z131-z122}...z126e{down}; penstroke
+z122e{z131-z122}...z123e... z124e...z125e{down}; kouki(126,3,1.3);
+kouki(125,4,1.25); penstroke z130e{down}...z131e{left}; kouki(131,5,1.3);
+z200=(1.7u,0.9v); z201=(1.25u,0.55v); z202=(0.85u,1.85v);
+triaina(200,201,202,0.5); penlabels(range 1 thru 210);
+.endchar;
+ \ No newline at end of file
diff --git a/fonts/gothic/yinit/yinitY.mf b/fonts/gothic/yinit/yinitY.mf
new file mode 100644
index 0000000000..d4ad77f0f0
--- /dev/null
+++ b/fonts/gothic/yinit/yinitY.mf
@@ -0,0 +1,110 @@
+.cmchar "The letter Y";
+.beginchar("Y",8.9u#+0.3mm#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(1.5u,1.7v); z2=(1.75u,1.9v); z3=(2.25u,1.4v); z4=(1.6u,0.8v);
+z5=(0.95u,1.6v); z6=(2.3u,2.65v); z7=(3.3u,2.05v); z8=(4.15u,1.05v);
+z9=(7u,1.15v); z10=(7.9u,3.2v); z11=(7.05u,5.25v); z12=(7.75u,7.1v);
+z13=(8.65u,7v); z14=(8.25u,8.55v); z15=(8.6u,8v); z16=(8.1u,7.5v);
+z17=(7u,7.95v); z18=(5.35u,8v); z19=(4.65u,7.5v); z20=(3.55u,1.9v);
+z21=(5.2u,3.35v); z22=(6.1u,4.5v); z23=(5.5u,5.2v); z24=(4.65u,3.6v);
+z25=(3.8u,4.05v); z26=(2.95u,5.15v); z27=(3.55u,5.7v); z28=(3.8u,5.5v); z29=z25;
+z30=(4.35u,5.5v); z31=(3.8u,6.75v); z32=(3.7u,7.4v); z33=(2.6u,6.5v);
+z34=(4.1u,4.05v); z35=(5.05u,6.5v); z36=(4.05u,8.1v); z37=(3.3u,8.25v);
+z38=(2.5u,7.95v); z39=(0.6u,8.1v); z40=(1.15u,8.75v); z41=(1.5u,8.6v);
+z42=(2u,8.65v); z43=(2u,9.1v); ka(1,0); ka(2,-90); ka(3,180); ka(4,90);
+penpos5(1.5hair,0); penpos6(0.6v,-90); penpos7(0.9uv,-149); penpos8(0.9uv,-136);
+penpos9(1.5hair,-54); penpos10(0.75uv,22); penpos11(0.875uv,28);
+penpos12(1.5hair,-59); ka(13,180); ka(14,-90); ka(15,180); penpos16(0.25v,90);
+penpos17(0.8uv,44); penpos18(1.5hair,129); ka(19,129); ka(20,-46);
+penpos21(2hair,-53); penpos22(1.5hair,0); ka(23,90); penpos24(uv,45);
+penpos25(0.9v,90); penpos26(0.22u,0); penpos27(1.5hair,-90); ka(28,180);
+ka(29,-26); penpos30(0.3u,0); penpos31(0.7uv,53); ka(32,180); ka(33,-73);
+ka(34,-35); penpos35(0.62u,5); penpos36(0.9uv,62); penpos37(0.95v,90);
+penpos38(0.83v,110); penpos39(1.5hair,16); penpos40(0.3v,-90);
+penpos41(0.5uv,-127); penpos42(1.5hair,-44); ka(43,21); penstroke
+z1e{up}...z2e...z3e...z4e ...z5e...z6e...z7e...z8e...z9e...z10e
+...z11e...z12e...z13e{down}; z1'=z1; ka(1',180); kouki(1',4,2.25);
+kouki(13,3,1.7); z23'=(5.2u,4.9v); ka(23',180); filldraw
+z20r{z11-z20}...z21r{z21-z4} & z21r--z21l & z21l{z37-z21}...z24r...z25r...z26r
+...z27r{right} & z27r--z27l & z27l{left}...z26l...z25l...z24l... z20l{z20-z11}
+& z20l--z20r & cycle; penstroke z21e{z21-z4}...z22e... z23e...z23'e{down};
+kouki(23',4,2.2); penstroke z27e{right}...z28e{down}; kouki(28,3,2); filldraw
+z29r{z29-z4}...z30r...z31r ...z32l{up} & z32l--z32r & z32r{z4-z32}
+...z33l{z33-z16} & z33l--z33r & z33r{z16-z33}...z31l...z30l... z29l{z4-z29} &
+z29l--z29r & cycle; penstroke z34e{z34-z4}...z35e...z36e
+...z37e...z38e...z39e...z40e...z41e ...z42e...z43e{z43-z28}; penstroke
+z19e{z19-z31}...z18e... z17e...z16e...z15e...z14e{left}; kouki(14,7,2);
+z50=(2.1u,2.05v); z51=(2.7u,1.3v); z52=(2.2u,0.35v); z53=(1.6u,0.15v);
+z54=(0.05u,1.65v); z55=(2.15u,3.4v); z56=(4u,2.3v); z57=(5.5u,1.2v);
+z58=(7.05u,2.6v); z59=(4.8u,4.9v); z60=(2.3u,2.4v); z61=(5.3u,0);
+z62=(5.8u,0.05v); z63=(6.3u,0.15v); z65=(8.6u,3.2v); z66=(8u,5v);
+z67=(7.55u,6.2v); z68=(4.4u,1.75v); z69=(4.5u,2.45v); z70=(5.2u,4v);
+z71=(6.15u,3.2v); z72=(5u,1.75v); z73=(5u,4.35v); z74=(6.45u,6.55v);
+z75=(8.4u,9.15v); z76=(8.9u,8.8v); z77=(6.25u,7.4v); z78=(6.2u,8.9v);
+z79=(6.55u,9.02v); z80=(6.85u,9v); z81=(7.25u,9.2v); z82=(5.8u,6.8v);
+z83=(5.55u,8.15v); z84=(4.9u,8.7v); z85=(5.4u,9.2v); z86=(3.05u,9.25v);
+z87=(0.5u,8.15v); z88=(0.1u,8.4v); z89=(0.3u,8.7v); z90=(0.25u,9.1v);
+z91=(1.8u,7.6v); z92=(3.3u,6v); z93=(3.75u,8.85v); z94=(3.2u,7.3v);
+z95=(3.7u,7.8v); z96=(3.6u,5.7v); z97=(2.1u,6.7v); z98=(0.45u,5v);
+z99=(1.55u,3.9v); z100=(2.5u,4.7v); z101=(1.8u,5.55v); z102=(1.25u,5.15v);
+z103=(u,5.95v); z104=(0.45u,6.55v); z105=(0.8u,7.1v); z106=(1.05u,6.9v);
+z108=(8.5u,2.5v); z109=(9u,3.35v); z110=(8.5u,4.8v); z111=(7.9u,5.9v);
+z112=(8.4u,7.1v); z113=(8.6u,5.5v); z114=(9u,6v); z115=(8.55u,6.3v);
+z116=(8.4u,6.1v); z117=(8u,0.1v); z118=(8.9u,v); z119=(8.2u,1.7v);
+z120=(7.7u,1.3v); z121=(8.1u,0.8v); z122=(8.3u,1.05v); z56.1=(4.3u,3.9v);
+z56.2=(4.4u,3.75v); ka(56.1,-32); ka(56.2,-41); ka(50,-90); ka(51,180);
+ka(52,124); ka(53,90); ka(54,0); ka(55,-90); ka(56,-144); ka(57,-90); ka(58,0);
+ka(59,90); ka(60,180); ka(61,-79); ka(63,-72); ka(65,0); ka(66,27); ka(67,0);
+ka(68,-145); ka(69,-90); ka(70,-90); ka(71,180); ka(72,180); ka(73,-48);
+ka(74,-22); ka(75,-90); ka(76,180); ka(77,-6); ka(78,0); penpos79(0.25v,-108);
+penpos80(0.15uv,-59); ka(81,-90); ka(82,0); ka(83,27); ka(84,90); ka(85,0);
+ka(86,106); ka(87,90); ka(88,0); ka(90,90); penpos89(0.15uv,-42); ka(91,180);
+ka(92,-90); ka(93,90); ka(94,-90); ka(95,0); ka(96,0); ka(97,90); ka(98,180);
+ka(99,-90); ka(100,0); ka(101,90); ka(102,160); ka(103,90); ka(104,0);
+ka(105,-90); ka(106,180); ka(108,-90); ka(109,0); ka(110,31); ka(111,26.5);
+ka(112,-90); ka(113,-90); ka(114,0); ka(115,90); ka(116,180); ka(117,-90);
+ka(118,0); ka(119,90); ka(120,180); penpos121(0.3v,-90); penpos122(0.25u,0);
+penstroke z1e{up}...z50e...z51e... z52e...z53e...z54e...z55e...z56e...
+z57e...z58e...z59e...z60e... z61e{z63-z61}; z112'=z112+(0.15u,-0.15v);
+ka(112',180); penstroke z63e{z63-z61}...z65e...z66e
+...z67e...z112e{right}...z112'e{down}; mpalla(61,1.3); mpalla(62,1.6);
+mpalla(63,1.3); z58'=z58; ka(58',180); penstroke z58'e{down}...
+z117e...z118e...z119e...z120e... z121e...z122e{up}; filldraw z122l--z122r &
+z122r{up}..z122l & cycle; z56'=z56; ka(56',36); penstroke
+z56'e{z97-z56}...z96e{up}...z97e...z98e ...z99e...z100e...z101e...z102e{down};
+mpalla(99,1.4); penstroke z56'e{z97-z56}...z56.2e...z70e... z71e{down};
+kouki(72,4,1.4); mpalla(101,1.3); penstroke z56.2e{z75-z56.2}...z73e...
+z74e...z75e...z76e{down}; kouki(76,3,1.2); z56.4=(5.15u,4.9v); ka(56.4,-40);
+penstroke z56'e{z97-z56}...z56.1e ...z56.4e...z82e...
+z83e{z83-z10}...z86e{z87-z86}... z91e{down}...z92e{right}...z93e{left}
+...z94e{right}...z95e{up}; penstroke z83e{z83-z10}...z85e{up}; kouki(85,2,1.3);
+penstroke z83e{z83-z10}...z84e{left}; kouki(84,7,1.2); mpalla(86,1.2); penstroke
+z86e...z87e{left} ...z88e...z89e...z90e{left}; kouki(90,7,1.1); penstroke
+z91e{down}...z103e...z104e ...z105e...z106e{down}; kouki(106,3,1.6);
+z200=(6.15u,2.9v); z201=(5.8u,2.45v); z203=(5.3u,2.9v); z204=(6.15u,1.7v);
+z205=(5.35u,2.15v); ka(200,180); penpos201(2hair,131); ka(203,0); ka(204,-90);
+ka(205,76); penpos206(0.4uv,131); z206=z201; z207=z206l; z208=z206r; penstroke
+z71e{down}...z200e...z201e {z201-z110}...z205e...z72e{down}; penstroke
+z201e{z201-z110}... z203e{up}; penstroke z201e{z201-z110}... z204e{right};
+mpalla(200,1.5); mpalla(207,1.7); mpalla(208,1.7); mpalla(205,1.5);
+kouki(203,2,1); kouki(204,6,1); z123=(2.6u,6.5v); z124=(2.05u,6v);
+z125=(2.3u,5.75v); ka(123,90); ka(124,180); ka(125,-90); penstroke
+z96e{up}...z123e...z124e ...z125e{right}; kouki(125,6,1.3); z56.3=z23+(0.05u,0);
+ka(56.3,-20); penstroke z56.3e{z17-z56.3}...z77e...
+z78e{up}...z79e{z15-z79}...z80e...z81e{right}; mpalla(77,1.5); mpalla(54,1.35);
+z68'=z68; ka(68',38); penstroke z68'e{z105-z68}...z69e{right}; kouki(69,8,1.5);
+penstroke z108e{right}...z109e... z110e...z111e...z112e{right}; z108'=z108;
+ka(108',90); kouki(108',5,1.3); z111'=z111; ka(111',-151); penstroke
+z111'e{z111-z78}...z113e... z114e...z115e...z116e{down}; kouki(116,4,1);
+z52'=z52; ka(52',-55); z126=(3.2u,0.8v); z127=(3.65u,0.45v); z128=(3.4u,0);
+ka(126,-90); ka(127,180); ka(128,90); penstroke z52'e{z110-z52}...z126e...
+z127e...z128e{left}; kouki(128,5,1.3); z210=(1.9u,5.05v); z211=(1.9u,4.5v);
+z212=(0.65u,5.05v); z220=(1.6u,2.55v); z221=(0.8u,2.2v); z222=(u,4v);
+z230=(1.05u,1.15v); z231=(1.35u,0.6v); z232=(-0.3u,0.4v);
+triaina(210,211,212,0.45); triaina(220,221,222,0.3); triaina(230,231,232,0.5);
+z131=z6l; z129=(2.8u,3.6v); z130=(2u,3.8v); ka(131,0); ka(130,90); ka(129,-90);
+kouki(130,7,1.1); kouki(129,8,1.2); penstroke z131e{up}...z129e{right};
+penstroke z131e{up}...z130e{left}; z240=(6.3u,5.3v); mpalla(240,1.4);
+penlabels(range 1 thru 240);
+.endchar;
+ \ No newline at end of file
diff --git a/fonts/gothic/yinit/yinitZ.mf b/fonts/gothic/yinit/yinitZ.mf
new file mode 100644
index 0000000000..7ab4aa07ab
--- /dev/null
+++ b/fonts/gothic/yinit/yinitZ.mf
@@ -0,0 +1,114 @@
+.cmchar "The letter Z";
+.beginchar("Z",8.9u#,8.7m*u#,0);
+.adjust_fit(0,0);
+z1=(4.05u,-0.1v); z2=(4.9u,1.1v); z3=(4.2u,1.3v); z4=(3.25u,1.55v);
+z5=(1.75u,3.15v); z6=(3u,4.2v); z7=(3.85u,3.4v); z8=(3.2u,2.65v);
+z9=(2.65u,3.2v); z10=(2.85u,3.45v); z11=(7.15u,4.15v); z12=(4.5u,5v);
+z13=(4.27u,4.32v); z21=(5.5u,5.55v); z20=(4.85u,4.45v); z22=(7.35u,8.25v);
+z23=(7.7u,8v); z24=(6.25u,6.95v); z25=(4.85u,7.6v); z26=(3.3u,8.3v);
+z27=(1.5u,6.6v); z28=(2.55u,5.45v); z29=(3.4u,6.2v); z30=(3u,6.95v);
+z31=(2.5u,6.75v); z32=(2.7u,6.35v); z33=(2.5u,5.95v); z34=(2.2u,6v);
+z14=(4.6u,5.7v); z15=(5u,6.2v); z16=(5.35u,6.02v); z17=(6u,5.75v);
+z18=(6.4u,6.1v); z19=(6.2u,6.4v); ka(1,-15); penpos2(1.5hair,-55);
+penpos3(1.2uv,42); penpos4(0.9uv,81); penpos5(0.45u,-11); penpos6(1.5hair,-90);
+ka(7,180); ka(8,90); ka(9,0); ka(10,-90); penpos11(uv,7); penpos12(2hair,73);
+penpos13(0.3uv,-155); ka(20,-50); ka(21,-17); ka(22,-90); ka(23,180);
+penpos24(0.4v,90); penpos25(1.15uv,39); penpos26(0.65v,90);
+penpos27(1.5hair,180); ka(28,-90); ka(29,0); penpos30(2hair,90);
+penpos31(0.6u,170); penpos32(0.5u,-150); penpos33(0.2uv,111); ka(34,90);
+ka(14,90); penpos15(0.35v,-90); penpos16(0.4uv,-134); penpos17(0.27v,-90);
+penpos18(1.5hair,0); ka(19,90); filldraw z1r{z22-z1}...z2r{(9u,4v)-z2} &
+z2r--z2l & z2l{up}...z3r...z4r... z5r...z6r...z7r...z8r...z9r...z10r{right} &
+z10r--z10l & z10l{left}...z9l... z8l...z7l...z6l...z5l...z4l...z3l... z1l{down}
+& z1l--z1r & cycle; penstroke z2e{(9u,4v)-z2}...z11e...
+z12e...z13e...z20e...z21e...z22e... z23e...z24e...z25e...z26e...z27e...
+z28e...z29e{up}...z30e...z31e...z32e... z33e...z34e{left}; penstroke
+z14e{left}...z15e...z16e... z17e...z18e...z19e{left}; kouki(10,8,2.2);
+kouki(14,6,1.3); kouki(19,7,1.3); z50=(3.7u,1.45v); z51=(1.6u,0);
+z52=(0.9u,0.25v); z53=(0.4u,v); z54=(1.1u,1.65v); z55=(1.6u,1.15v);
+z56=(1.25u,0.75v); z57=(0.85u,1.1v); z58=(0.3u,2v); z59=(0,1.7v);
+z60=(7.15u,4.85v); z61=(8.7u,3.4v); z62=(7.4u,2.05v); z63=(6.3u,3v);
+z64=(7.15u,4.1v); z65=(8.1u,3.5v); z66=(6.5u,1.55v); z67=(4.45u,0); z67'=z67;
+z68=(5.6u,0.35v); z69=(6.1u,0.3v); z70=(6.8u,0.15v); z71=(7.7u,0.4v);
+z72=(8u,1.2v); z73=(7.4u,1.75v); z74=(6.85u,1.2v); z75=(7.25u,0.85v);
+z76=(7.6u,1.1v); z77=(8.4u,0.6v); z78=(8.5u,2.65v); z79=(8.15u,1.8v);
+z80=(7.7u,2.6v); z81=(8.15u,4v); z82=(5.6u,6.2v); z83=(2.9u,3.8v);
+z84=(4.6u,2.05v); z85=(5.9u,3.3v); z86=(5.5u,4.1v); z87=(4.1u,3.4v);
+z88=(4.8u,2.75v); z89=(5.4u,3.35v); z90=(4.9u,3.8v); z91=(4.6u,3.55v);
+z92=(4.45u,6.5v); z93=(5.15u,8.15v); z94=(5.9u,8.3v); z95=(6.35u,8.2v);
+z96=(6.6u,8.4v); z97=(6.05u,7.95v); z98=(5.8u,7.7v); z99=(6.8u,8.9v);
+z100=(8u,8.5v); z101=(8.6u,8.65v); z102=(8.45u,7.65v); z103=(8.15u,6.6v);
+z104=(7.4u,6.25v); z105=(6.5u,7v); z106=(7.35u,7.9v); z107=(7.9u,7.3v);
+z108=(7.5u,6.8v); z109=(8.1u,5.15v); z110=(8.3u,5v); z111=(7.65u,5.9v);
+z112=(4.4u,3.9v); z113=(4u,6.25v); z114=(3u,8.3v); z115=(3.6u,9.05v);
+z116=(4.15u,8.8v); z117=(4.5u,9v); z118=(3.85u,7.1v); z119=(1.3u,8.4v);
+z120=(2.05u,8.95v); z121=(2.25u,8.6v); z122=(2.55u,8.85v); z123=(2.1u,6.45v);
+z124=(0.5u,5v); z125=(1.5u,4v); z126=(2.4u,4.8v); z127=(1.8u,5.4v);
+z128=(1.25u,5v); z129=(1.8u,4.5v); z130=(3.3u,5.25v); z131=(3.8u,4.8v);
+z132=(3.55u,4.5v); z133=(3.3u,4.7v); z134=(0.4u,7.6v); z135=(0.55u,8.15v);
+z136=(0.75u,8.8v); z137=(1.35u,8.55v); z138=(2.1u,7.75v); z139=(1.5u,7v);
+z140=(0.85u,7.6v); z141=(1.25u,7.95v); z142=(1.45u,7.75v); z143=(0.2u,5.8v);
+z144=(0.2u,6.8v); z145=(1.05u,3.3v); z146=(0.8u,2.6v); z147=(0.7u,2v);
+z148=(0,3v); z149=(0.15u,3.3v); z150=(0.45u,3.9v); z151=(0.6u,3.3v);
+z152=(0.55u,2.95v); z153=(0.2u,4.25v); z154=(1.3u,3.65v); ka(50,147); ka(51,90);
+ka(52,59); ka(53,0); ka(54,-90); ka(55,180); ka(56,90); ka(57,0);
+penpos58(0.4v,90); ka(59,180); z50'=z50; ka(50',-33); ka(60,-90); ka(61,180);
+ka(62,90); ka(63,0); ka(65',0); ka(64,-90); ka(65,180); ka(66,117); ka(67,152);
+ka(67',-28); ka(68,-90); ka(69,-109); ka(70,-90); ka(71,-58); ka(72,0);
+ka(73,90); ka(74,180); ka(75,-90); ka(76,0); ka(77,-90); ka(78,147); ka(79,180);
+ka(80,146); z65'=z65; ka(82,90); ka(83,180); ka(84,-90); ka(85,0); ka(86,57);
+ka(87,180); ka(88,-90); ka(89,0); ka(90,90); ka(91,180); ka(92,0); ka(93,-46);
+ka(94,-128); ka(95,-90); ka(96,0); ka(97,180); ka(98,90); ka(99,-90);
+ka(100,-126); ka(101,0); ka(102,180); ka(103,141); ka(104,90); ka(105,0);
+ka(106,-90); ka(107,180); ka(108,90); ka(109,180); ka(110,-90); ka(112,0);
+ka(113,26); ka(114,0); ka(115,-90); ka(116,-90); ka(117,-90); ka(118,0);
+ka(119,0); penpos120(0.3uv,-135); penpos121(0.3uv,-111); ka(122,-8); ka(123,90);
+ka(124,180); ka(125,-90); ka(126,0); ka(127,90); ka(128,180); ka(129,-90);
+ka(130,-90); ka(131,180); ka(132,90); ka(133,0); ka(134,0); ka(135,-32);
+ka(136,0); ka(137,-90); ka(138,180); ka(139,90); ka(140,0); ka(141,-90);
+ka(142,180); ka(143,180); ka(144,0); ka(145,180); ka(146,135); ka(147,-90);
+ka(148,0); ka(149,-49); ka(150,0); ka(151,-146); ka(152,90); ka(153,90);
+penstroke z50e{z50-z104}...z51e... z52e...z53e{up}...z54e...z55e...
+z56e...z57e{up}; kouki(57,2,1.5); penstroke z53e{up}...z58e{left}... z59e{down};
+z52'=(0.35u,0.5v); ka(52',90); penstroke z52e{z150-z5r}...z52'e{left};
+kouki(52',7,1.6); z155=(3.7u,-0.05v); z156=(3.15u,0.35v); z157=(2.7u,0.15v);
+z158=(2.6u,0.95v); z159=(2.3u,0.6v); z160=(1.6u,0.5v); ka(155,0); ka(156,90);
+ka(157,180); ka(158,90); ka(159,180); ka(160,180); penstroke
+z155e{z123-z155}...z156e... z157e{down}; kouki(157,4,1); penstroke
+z155e{z123-z155}...z158e{left} ...z159e{down}; kouki(159,4,1.1); penstroke
+z158e{left}...z160e{down}; kouki(160,4,1.2); penstroke z50'e{z104-z50}...z60e...
+z61e...z78e{z79-z78}...z62e...z63e...z64e...
+z65e{down}...z80e...z66e...z67e{z67-z103}; penstroke z78e{z79-z78}..z79e{down};
+kouki(79,4,1.6); kouki(65,3,1.5); z200=z65; ka(200,180); kouki(200,4,1.5);
+mpalla(80,1.75); penstroke z67'e{z79-z67}..z68e...
+z69e...z70e...z71e...z72e...z73e... z74e...z75e...z76e{up}; kouki(76,1,1.6);
+penstroke z65'e{up}...z82e...z83e... z84e...z85e...z86e...z87e...z88e...
+z89e...z90e...z91e{down}; kouki(91,4,1.8); penstroke z50'e{z104-z50}...
+z92e...z93e{z93-z150}...z99e...z100e {z85-z28}...z102e...z103e{z51-z103}
+...z104e...z105e...z106e...z107e... z108e{left}; kouki(108,5,1.4);
+mpalla(99,1.5); penstroke z100e{z85-z28}...z101e{up}; kouki(101,1,1.5);
+mpalla(102,1.4); penstroke z103e{z51-z103}...z109e{down} ...z110e{right};
+kouki(110,6,1.3); mpalla(111,1.3); penstroke z93e{z93-z150}...
+z94e{z103-z94}...z95e...z96e{up}; kouki(96,1,1.3); penstroke
+z94e{z103-z94}...z97e.. z98e{left}; kouki(98,5,1.2); penstroke
+z112e{up}...z113e{z113-z66} ...z118e{up}; kouki(118,2,1.2); penstroke
+z113e{z113-z66}...z114e... z115e...z116e...z117e{right}; kouki(117,8,1.25);
+penstroke z113e{z113-z66}...z119e{up} ...z120e...z121e...z122e{z122-z54};
+penstroke z112e{up}...z123e{z123-z111}... z134e...z135e{z26-z124}...z137e...z138e
+...z139e...z140e...z141e...z142e{down}; kouki(142,3,1.5); penstroke
+z135e{z26-z124}...z136e{up}; kouki(136,1,1.55); penstroke
+z123e{z123-z111}...z144e{up}; kouki(144,2,1.4); penstroke
+z123e{z123-z111}...z143e{down}; kouki(143,4,1.4); penstroke
+z123e{z123-z111}...z124e... z125e...z126e...z127e...z128e...z129e
+...z130e...z131e...z132e...z133e{up}; kouki(133,2,1.3); penstroke
+z124e{down}..z145e{down} ...z146e{z146-z18}...z148e...z149e
+{z94-z149}...z150e...z153e{left}; kouki(153,7,1.3); penstroke
+z146e{z146-z18}...z147e{right}; kouki(147,6,1.3); penstroke
+z149e{z94-z149}...z151e... z152e{left}; kouki(152,5,1.2); mpalla(154,1.3);
+z250=(1.7u,5v); ka(250,-90); penstroke z123e{left}...z250e{right};
+kouki(250,6,1.2); x251=0.5[x69,x70]; y251=y75+0.1v; ka(251,0); penstroke
+z68e{right}...z251e{up}; kouki(251,1,1.1); penstroke z71e...z77e{right};
+kouki(77,8,1.55); z252=(5.5u,4.61v); mpalla(252,1.6); penlabels(range 1 thru
+252);
+.endchar;
+
diff --git a/fonts/gothic/yinit/yintbase.mf b/fonts/gothic/yinit/yintbase.mf
new file mode 100644
index 0000000000..05b45f1178
--- /dev/null
+++ b/fonts/gothic/yinit/yintbase.mf
@@ -0,0 +1,229 @@
+def kouki(suffix $)(expr arij, meg)=
+if arij=1: penpos$.1(hair,0); penpos$.2(hair,90);
+z$.1=z$; z$.2=z$.1+(-.1meg*u-.5hair,.2meg*v-.5hair);
+z$.3=z$.2r-(.1meg*u,.1meg*v); z$.4=z$.2r-(0,.2meg*v);
+z$.5=z$.2r+(.1meg*u,-.1meg*v); penstroke z$.1e{up}...{left}z$.2e;
+filldraw z$.2r...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=2: penpos$.1(hair,0); penpos$.2(hair,-90);
+z$.1=z$; z$.2=z$.1+(.1meg*u+.5hair,.2meg*v-.5hair);
+z$.3=z$.2l+(.1meg*u,-.1meg*v); z$.4=z$.2l-(0,.2meg*v);
+z$.5=z$.2l-(.1meg*u,.1meg*v); penstroke z$.1e{up}...{right}z$.2e;
+filldraw z$.2l...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=3: penpos$.1(hair,-180); penpos$.2(hair,90);
+z$.1=z$; z$.2=z$.1+(-.1meg*u-.5hair,-.2meg*v+.5hair);
+z$.3=z$.2l-(.1meg*u,-.1meg*v); z$.4=z$.2l+(0,.2meg*v);
+z$.5=z$.2l+(.1meg*u,+.1meg*v); penstroke z$.1e{down}...{left}z$.2e;
+filldraw z$.2l...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=4: penpos$.1(hair,-180); penpos$.2(hair,-90);
+z$.1=z$; z$.2=z$.1+(.1meg*u+.5hair,-.2meg*v+.5hair);
+z$.3=z$.2r-(-.1meg*u,-.1meg*v); z$.4=z$.2r+(0,.2meg*v);
+z$.5=z$.2r+(-.1meg*u,+.1meg*v); penstroke z$.1e{down}...{right}z$.2e;
+filldraw z$.2r...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=5: penpos$.1(hair,90); penpos$.2(hair,0);
+z$.1=z$; z$.2=z$.1-(.2meg*u-.5hair,-.1meg*v-.5hair);
+z$.3=z$.2l+(.1meg*u,.1meg*v); z$.4=z$.2l+(.2meg*u,0);
+z$.5=z$.2l+(.1meg*u,-.1meg*v); penstroke z$.1e{left}...{up}z$.2e;
+filldraw z$.2l...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=6: penpos$.1(hair,-90); penpos$.2(hair,0);
+z$.1=z$; z$.2=z$.1-(-.2meg*u+.5hair,-.1meg*v-.5hair);
+z$.3=z$.2r+(-.1meg*u,.1meg*v); z$.4=z$.2r+(-.2meg*u,0);
+z$.5=z$.2r+(-.1meg*u,-.1meg*v); penstroke z$.1e{right}...{up}z$.2e;
+filldraw z$.2r...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=7: penpos$.1(hair,90); penpos$.2(hair,-180);
+z$.1=z$; z$.2=z$.1-(.2meg*u-.5hair,.1meg*v+.5hair);
+z$.3=z$.2r+(.1meg*u,-.1meg*v); z$.4=z$.2r+(.2meg*u,0);
+z$.5=z$.2r+(.1meg*u,.1meg*v); penstroke z$.1e{left}...{down}z$.2e;
+filldraw z$.2r...z$.3...z$.4...z$.5...cycle;
+fi
+if arij=8: penpos$.1(hair,-90); penpos$.2(hair,-180);
+z$.1=z$; z$.2=z$.1+(.2meg*u-.5hair,-.1meg*v-.5hair);
+z$.3=z$.2l-(.1meg*u,.1meg*v); z$.4=z$.2l-(.2meg*u,0);
+z$.5=z$.2l-(.1meg*u,-.1meg*v); penstroke z$.1e{right}...{down}z$.2e;
+filldraw z$.2l...z$.3...z$.4...z$.5...cycle;
+fi
+enddef;
+def mpalla(suffix $)(expr meg)= z$.1=z$; z$.2=z$.1+(0,.1meg*v);
+z$.3=z$.1+(-.1meg*u,0); z$.4=z$.1+(0,-.1meg*v); z$.5=z$.1+(.1meg*u,0);
+filldraw z$.2...z$.3...z$.4...z$.5...cycle
+enddef;
+def kordella(suffix $,$$)=
+(z$.1-z$$)=whatever * (z$$l-z$$r); z$.1-z$=whatever * dir(angle(z$r-z$l)+90);
+(z$.2-z$)=whatever * (z$l-z$r); z$.2-z$$=whatever * dir(angle(z$$r-z$$l)+90);
+z$.3=.5[z$,z$.2]; z$.4=.25[z$,z$$];
+z$.5-z$$=z$-z$.4; z$.6-z$.2=z$-z$.4;
+z$.7=0.25[z$.1,z$$];
+filldraw z$r{z$.1-z$}...{z$.2-z$}z$.4...{z$-z$.1}z$.3...
+{z$.2-z$}z$.6...{z$.1-z$}z$$r
+& z$$r--z$$l & z$$l{z$-z$.1}...{z$-z$.2}z$.5...{z$-z$.2}z$.7...
+{z$-z$.1}z$l & z$l--z$r & cycle
+enddef;
+def ka(suffix $)(expr angle)= penpos$(hair,angle) enddef;
+
+def triaina(suffix $,$$,$$$)(expr alpha)=
+numeric theta;
+theta:= angle(z$$$-z$);
+z$.1=(0.5-0.5alpha)[z$,z$$$];
+z$.1'=(0.5-0.5alpha)[z$$$,z$];
+z$.2=.5[z$.1,z$.1']+1/8(z$$-z$);
+z$.3=.5[z$.1,z$.1']+5/8(z$$-z$);
+z$.4=.25[z$.1,z$.1']+5/8(z$$-z$);
+z$.4'=.75[z$.1,z$.1']+5/8(z$$-z$);
+z$.5=z$.1+1/6(z$$-z$);
+z$.5'=z$.1'+1/6(z$$-z$);
+z$.7=z$$+.25(z$$$-z$);
+z$.7'=z$$+.75(z$$$-z$);
+z$.8=2/3[z$,z$$]; z$.8'=z$.8+(z$$$-z$);
+penpos$.8(hair,theta);
+penpos$.7(hair,theta-90);
+penpos$.4(hair,theta+180);
+penpos$.5(hair,theta+180);
+penpos$.1(hair,theta-135);
+penpos$.2(3hair,theta-90);
+penpos$.1'(hair,theta-45);
+penpos$.5'(hair,theta);
+penpos$.4'(hair,theta);
+penpos$.7'(hair,theta-90);
+penpos$.8'(hair,theta+180);
+%filldraw z$.1--z$.3 & z$.3--z$.1' &
+%z$.1' -- z$.1 & cycle;
+penstroke z$.8e{z$$-z$}...z$.7e{z$$$-z$}
+...z$.4e{z$-z$$}...z$.5e...z$.1e...
+{z$$$-z$}z$.2e...z$.1'e...z$.5'e...
+z$.4'e{z$$-z$}...z$.7'e{z$$$-z$}...
+z$.8'e{z$-z$$};
+z$.11=z$.8l; z$.13=z$.11+(alpha/3)*(z$$$-z$);
+z$.11'=z$.8'l; z$.13'=z$.11'-(alpha/3)*(z$$$-z$);
+filldraw z$.11...z$.13...cycle;
+filldraw z$.11'...z$.13'...cycle
+enddef;
+
+def kouti(suffix $,$$)=
+z$$.2=z$r+(z$l-z$$); z$'=z$;
+z$$.1-z$$=whatever*dir(angle(z$r-z$l)+90);
+z$$.1-z$$.2=whatever*(z$l-z$r);
+z$$.3=z$$+(z$$.2-z$$.1);
+filldraw z$$--z$$.1--z$$.2--z$$.3--z$$ & cycle
+enddef;
+
+def louloudi(suffix $) (expr alpha) =
+x$.2=x$.6=x$-0.5alpha*u; x$.8=x$.4=x$+0.5alpha*u;
+x$.1=x$.5=x$-0.05alpha*u; x$.3=x$.7=x$+0.05alpha*u;
+z$.3-z$=whatever*dir45; z$.4=whatever[z$,z$.3];
+z$.5=whatever[z$,z$.3]; z$.6=whatever[z$,z$.3];
+z$.1-z$=whatever*dir135; z$.2=whatever[z$,z$.1];
+z$.7=whatever[z$,z$.1]; z$.8=whatever[z$,z$.1];
+filldraw z$.3{right}..z$.4{up} & z$.4{left}..z$.3{down} & cycle;
+filldraw z$.1{up}..z$.2{left} & z$.2{down}..z$.1{right} & cycle;
+filldraw z$.6{right}..z$.5{up} & z$.5{left}..z$.6{down} & cycle;
+filldraw z$.8{up}..z$.7{left} & z$.7{down}..z$.8{right} & cycle;
+enddef;
+
+def laimoc_swab =
+penpos1.1(stem,0); penpos1.3(stem,0);
+penpos1.4(hair,90); penpos1.5(hair,-90);
+y1.1=y1.1'=foot; x1.1l=x1.2=0.413stem;
+x1.1'=x1.4=0; x1.3=x1.1; x1.5=x1.1r+0.761stem;
+y1.5l=cap_height+apex_o;
+z1.5l-z1.4r=whatever*dir17;
+y1.3=0.828cap_height; y1.2=0.273cap_height;
+filldraw z1.1'...z1.2---z1.3l...
+z1.4l & z1.4l--z1.4r--z1.5l--z1.5r
+& z1.5r{left}...z1.3r---z1.1r &
+z1.1r--z1.1' & cycle enddef;
+
+def podi_swab (expr theta) =
+penpos2.1(1.304stem,theta);
+penpos2.2(1.304stem,theta);
+z2.1l=(0,foot);
+z2.1l-z2.2l=whatever*dir151;
+y2.2l=-apex_o; penpos2.3(hair,theta-90);
+z2.3r=z2.2;
+z2.05=(2/3apex_o,2/3apex_o);
+penpos2.1'(1.304stem,theta);
+z2.1'=0.5[z2.1,z2.2]+z2.05;
+penstroke z2.2e..z2.1'e..z2.1e
+enddef;
+
+def long_s = numeric w',h',d';
+w':=6.038u; h':=1.414x_height;
+d':=3.208u;
+penpos1.1(2/3hair,0);
+z1.1=(0.313w',-d');
+penpos1.2(1.283stem,0);
+z1.2=(0.344w',0.589h');
+penpos1.4(hair,90);
+z1.4l=(0,y1.2-1/3stem);
+z1.3=(z1.1l..{dir92.5}z1.2l)
+intersectionpoint
+((0,y1.4l)--(w',y1.4l));
+z1.5=(0.35w',0.761h');
+penpos1.6(0.957stem,-118);
+z1.6l=(0.669w',h');
+penpos1.7(1.174stem,-125);
+z1.7l=(w',0.962h'); penpos1.8(hair,-35);
+z1.8r=z1.7l; z1.9-z1.8l=whatever*(z1.7l-z1.7r);
+x1.9=0.9w';
+penpos1.11(2/3stem,-90); y1.11=y1.2;
+x1.11=0.763w';
+penpos1.12(2/3stem,-90); z1.12=z1.2;
+filldraw z1.1r..z1.2r{dir87} &
+z1.2r{dir126}..z1.5{up}..z1.6r{right}
+..z1.7r{right}--z1.8r--z1.8l--z1.9
+& z1.9{left}..z1.6l{left}..
+z1.4r{dir218}--z1.4l{right}--
+z1.3{dir272.5}..z1.1l--z1.1r & cycle;
+if isitf: filldraw z1.11r--z1.12r--
+z1.12l--z1.5{down}...(x1.2r,y1.11l){right}
+---z1.11l--z1.11r & cycle; fi
+enddef;
+
+def dexi_podi_swab (expr yy) =
+penpos1.2(stem,0);
+z1.2r=(1.63stem,0.694x_height);
+penpos1.1(whatever,24);
+penpos1.3(whatever,43);
+x1.1l=x1.2l; z1.3l=z1.2l;
+x1.1r=x1.2r=x1.3r; y1.1l=yy;
+penpos1.4(1.348stem,43);
+x1.4l=0; y1.4r=x_height+apex_o;
+penstroke z1.1e---z1.3e...
+z1.4e{dir133} enddef;
+
+def aristero_podi_swab (expr xx) =
+w':=5.057u; penpos2.1(stem,0);
+z2.1l=(xx+1.261stem,0.694x_height);
+penpos2.2(whatever,34);
+z2.2l=(x2.1l,-apex_o); x2.2r=xx+w';
+penpos2.3(hair,-90); z2.3r=z2.2r;
+z2.4=(x2.1r,0.378x_height);
+z2.6=(xx+0.545w',x_height+apex_o);
+penpos2.5(hair,-90);
+z2.5l-z2.6=whatever*dir-40;
+x2.5=xx+0.9w';
+penpos2.7(hair,-90);
+z2.6-z2.7l=whatever*dir33;
+x2.7=xx; z2.8-z2.7r=whatever*(z2.6-z2.7l);
+z2.8=whatever[z2.6,z2.5r];
+penpos2.9(1.217stem,33);
+z2.9r=z2.8;
+z2.9l-z2.11=whatever*(z2.6-z2.5l);
+x2.11=x2.1l;
+filldraw z2.7r--z2.9l--z2.11--
+z2.2l--z2.3r--z2.3l{z2.2l-z2.2r}..{up}
+z2.4---z2.1r...z2.5r{right}--
+z2.5l--z2.6--z2.7l--z2.7r &
+cycle enddef;
+
+def e_umlaut(suffix $) =
+penpos$.1(2u,45); z$.1=z$;
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.2=z$.1r; z$.3=z$.1l; rt x$.4=rt x$.2; top y$.4=y$;
+draw z$.3--z$.2..z$.3..z$.4;
+enddef;
+
diff --git a/fonts/gothic/yswab/yswab.mf b/fonts/gothic/yswab/yswab.mf
new file mode 100644
index 0000000000..8e6bc4ef3b
--- /dev/null
+++ b/fonts/gothic/yswab/yswab.mf
@@ -0,0 +1,138 @@
+if unknown cmbase: input cmbase fi
+input yswabase % -sl 15-3-1991
+
+font_identifier:="yswab"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=167/36pt#; % height of lowercase without ascenders
+%x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=8/36pt#; % lowercase hairline breadth
+%hair#:=9/36pt#; % lowercase hairline breadth
+%stem#:=25/36pt#; % lowercase stem breadth
+stem#:=34/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+%cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_hair#:=9/36pt#;
+cap_amount#:=8/36pt#;
+%cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_stem#:=42/36pt#;
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=5/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+numeric usual_right, usual_left;
+usual_right#:=0.3u#;
+usual_left#:=0.2u#;
+
+mode_setup;
+font_setup;
+cap_amount:=8/36pt;
+foot:=27/36pt;
+num_height:=1.242x_height;
+cap_kern:=4/36pt;
+boolean ligature; ligature:=false;
+numeric alpha;
+alpha:=0;
+
+
+if proofing>1: generate ycurrent; fi % switch to the driver file%
+%generate yswablower;
+%generate yswabnum;
+%generate yswabmisc;
+%generate yswabupper; % switch to the driver file
+generate yswablow; % -sl 15-3-1991
+generate yswabnum; % -sl 15-3-1991
+generate yswabmis; % -sl 15-3-1991
+generate yswabupp; % -sl 15-3-1991
+
+font_slant slant; font_x_height x_height#;
+font_normal_space 6u#+2letter_fit#;
+ font_normal_stretch 3u#; font_normal_shrink 2u#;
+ font_quad 18u#+4letter_fit#;
+ font_extra_space 2u#;
+
+ligtable "f": "f"=:oct"204", "b" kern 0.78u#, "h" kern 0.78u#, "k" kern 0.78u#,
+"l" kern 0.78u#;
+ligtable "s": ":"=:oct"215", "s"=:oct"201", "t"=:oct"202", "z"=:oct"032",
+"f"=:oct"203", "b" kern 2u#, "h" kern 2u#, "k" kern 2u#, "l" kern 2u#,
+"d" kern 1.03u#, "i" kern 0.815u#, "j" kern 0.815u#;
+ligtable oct"042": "a"=:oct"212", "e"=:oct"221", "o"=:oct"232", "u"=:oct"237",
+"s"=:oct"032";
+ligtable "`": "`"=:oct"134";
+ligtable "'": "'"=:oct"042";
+ligtable "-": "-"=:oct"173";
+ligtable oct"173": "-"=:oct"174";
+ligtable "*": "a"=:oct"211", "e"=:oct"220", "o"=:oct"231", "u"=:oct"236";
+ligtable oct"201": "b" kern 2u#, "h" kern 2u#, "k" kern 2u#, "l" kern 2u#,
+"d" kern 1.03u#, "i" kern 0.815u#, "j" kern 0.815u#;
+ligtable oct"203": "b" kern 0.78u#, "h" kern 0.78u#, "k" kern 0.78u#,
+"l" kern 0.78u#;
+ligtable oct"204": "b" kern 0.78u#, "h" kern 0.78u#, "k" kern 0.78u#,
+"l" kern 0.78u#;
+ligtable "c": "h"=:oct"205", "k"=:oct"206";
+ligtable "r": "z" kern -0.565u#;
+ligtable "x": "z" kern -0.565u#; % -sl 15-3-1991
+ligtable "l": "b" kern -0.71u#, "f" kern -0.85u#, "h" kern -0.71u#, "k" kern -0.71u#,
+"l" kern -0.71u#, "m" kern -0.85u#, "n" kern -0.85u#, "t" kern -u#, "x" kern -0.85u#,
+"y" kern -0.85u#;
+ligtable "L": "A" kern -1.7u#;
+ligtable "C": "I" kern -1.7u#, "J" kern -1.7u#, "K" kern -1.275u#;
+ligtable "D": "Y" kern -2u#;
+end.
diff --git a/fonts/gothic/yswab/yswab.tfm b/fonts/gothic/yswab/yswab.tfm
new file mode 100644
index 0000000000..f7e89c78e8
--- /dev/null
+++ b/fonts/gothic/yswab/yswab.tfm
Binary files differ
diff --git a/fonts/gothic/yswab/yswabase.mf b/fonts/gothic/yswab/yswabase.mf
new file mode 100644
index 0000000000..6e9afdfa4d
--- /dev/null
+++ b/fonts/gothic/yswab/yswabase.mf
@@ -0,0 +1,103 @@
+def laimoc_swab =
+penpos1.1(stem,0); penpos1.3(stem,0);
+penpos1.4(hair,90); penpos1.5(hair,-90);
+y1.1=y1.1'=foot; x1.1l=x1.2=0.413stem;
+x1.1'=x1.4=0; x1.3=x1.1; x1.5=x1.1r+0.761stem;
+y1.5l=cap_height+apex_o;
+z1.5l-z1.4r=whatever*dir17;
+y1.3=0.828cap_height; y1.2=0.273cap_height;
+filldraw z1.1'...z1.2---z1.3l...
+z1.4l & z1.4l--z1.4r--z1.5l--z1.5r
+& z1.5r{left}...z1.3r---z1.1r &
+z1.1r--z1.1' & cycle enddef;
+
+def podi_swab (expr theta) =
+penpos2.1(1.304stem,theta);
+penpos2.2(1.304stem,theta);
+z2.1l=(0,foot);
+z2.1l-z2.2l=whatever*dir151;
+y2.2l=-apex_o; penpos2.3(hair,theta-90);
+z2.3r=z2.2;
+z2.05=(2/3apex_o,2/3apex_o);
+penpos2.1'(1.304stem,theta);
+z2.1'=0.5[z2.1,z2.2]+z2.05;
+penstroke z2.2e..z2.1'e..z2.1e
+enddef;
+
+def long_s = numeric w',h',d';
+w':=6.038u; h':=1.414x_height;
+d':=3.208u;
+penpos1.1(2/3hair,0);
+z1.1=(0.313w',-d');
+penpos1.2(1.283stem,0);
+z1.2=(0.344w',0.589h');
+penpos1.4(hair,90);
+z1.4l=(0,y1.2-1/3stem);
+z1.3=(z1.1l..{dir92.5}z1.2l)
+intersectionpoint
+((0,y1.4l)--(w',y1.4l));
+z1.5=(0.35w',0.761h');
+penpos1.6(0.957stem,-118);
+z1.6l=(0.669w',h');
+penpos1.7(1.174stem,-125);
+z1.7l=(w',0.962h'); penpos1.8(hair,-35);
+z1.8r=z1.7l; z1.9-z1.8l=whatever*(z1.7l-z1.7r);
+x1.9=0.9w';
+penpos1.11(2/3stem,-90); y1.11=y1.2;
+x1.11=0.763w';
+penpos1.12(2/3stem,-90); z1.12=z1.2;
+filldraw z1.1r..z1.2r{dir87} &
+z1.2r{dir126}..z1.5{up}..z1.6r{right}
+..z1.7r{right}--z1.8r--z1.8l--z1.9
+& z1.9{left}..z1.6l{left}..
+z1.4r{dir218}--z1.4l{right}--
+z1.3{dir272.5}..z1.1l--z1.1r & cycle;
+if isitf: filldraw z1.11r--z1.12r--
+z1.12l--z1.5{down}...(x1.2r,y1.11l){right}
+---z1.11l--z1.11r & cycle; fi
+enddef;
+
+def dexi_podi_swab (expr yy) =
+penpos1.2(stem,0);
+z1.2r=(1.63stem,0.694x_height);
+penpos1.1(whatever,24);
+penpos1.3(whatever,43);
+x1.1l=x1.2l; z1.3l=z1.2l;
+x1.1r=x1.2r=x1.3r; y1.1l=yy;
+penpos1.4(1.348stem,43);
+x1.4l=0; y1.4r=x_height+apex_o;
+penstroke z1.1e---z1.3e...
+z1.4e{dir133} enddef;
+
+def aristero_podi_swab (expr xx) =
+w':=5.057u; penpos2.1(stem,0);
+z2.1l=(xx+1.261stem,0.694x_height);
+penpos2.2(whatever,34);
+z2.2l=(x2.1l,-apex_o); x2.2r=xx+w';
+penpos2.3(hair,-90); z2.3r=z2.2r;
+z2.4=(x2.1r,0.378x_height);
+z2.6=(xx+0.545w',x_height+apex_o);
+penpos2.5(hair,-90);
+z2.5l-z2.6=whatever*dir-40;
+x2.5=xx+0.9w';
+penpos2.7(hair,-90);
+z2.6-z2.7l=whatever*dir33;
+x2.7=xx; z2.8-z2.7r=whatever*(z2.6-z2.7l);
+z2.8=whatever[z2.6,z2.5r];
+penpos2.9(1.217stem,33);
+z2.9r=z2.8;
+z2.9l-z2.11=whatever*(z2.6-z2.5l);
+x2.11=x2.1l;
+filldraw z2.7r--z2.9l--z2.11--
+z2.2l--z2.3r--z2.3l{z2.2l-z2.2r}..{up}
+z2.4---z2.1r...z2.5r{right}--
+z2.5l--z2.6--z2.7l--z2.7r &
+cycle enddef;
+
+def e_umlaut(suffix $) =
+penpos$.1(2u,45); z$.1=z$;
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z$.2=z$.1r; z$.3=z$.1l; rt x$.4=rt x$.2; top y$.4=y$;
+draw z$.3--z$.2..z$.3..z$.4;
+enddef;
+
diff --git a/fonts/gothic/yswab/yswablow.mf b/fonts/gothic/yswab/yswablow.mf
new file mode 100644
index 0000000000..383dfe5a66
--- /dev/null
+++ b/fonts/gothic/yswab/yswablow.mf
@@ -0,0 +1,700 @@
+.cmchar "The Schwabacher letter a";
+.beginchar("a",6.943u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.13stem,45);
+penpos3(stem,45); x1r=w; y1l=-apex_o;
+z3l=(0.337w,-apex_o);
+penpos2(hair,-45); z2r=z3;
+penpos4(hair,-45);
+z4-z2=whatever*dir45; x4r=x1l-hair;
+z5=whatever[z2r,z4r];
+z5-z1l=whatever*dir130;
+penpos11(0.913stem,29); z11l=(0,0.396h);
+penpos9(1.217stem,35);
+z9r=(0.658w,h+apex_o);
+penpos8(1.13stem,50);
+x8r=w; z9r-z8r=whatever*dir144;
+penpos7(cap_hair,angle(z8l-z9l));
+z7r=z8l; penpos10(cap_hair,angle(z7r-z7l));
+z10l=z9l;
+z6=(x7,0.459h);
+filldraw z1r{z5-z1l}..z6{up}...
+z8l---z8r--z9r---z9l...z11l{down}
+..z3l--z3r..z11r{up}..z10r{z9r-z9l}
+& z10r--z7l--z5--z1l--z1r & cycle;
+penstroke z2e--z4e;
+.endchar;
+
+.cmchar "The Schwabacher letter b";
+.beginchar("b",7.358u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+laimoc_swab; podi_swab(27);
+penpos3(1.087stem,27);
+z3=whatever[z2.1l,z2.1r]; x3r=w;
+penpos4(1.304stem,40);
+z4r=(0.711w,x_height+apex_o);
+penpos5(hair,-50);
+penpos6(hair,-50); z6l=z4;
+z6-z5=whatever*dir40; x5=x1.1;
+penstroke z2.3e{z2.2r-z2.2l}..
+z3e{up}..z4e;
+penstroke z5e--z6e;
+.endchar;
+
+.cmchar "The Schwabacher letter c";
+.beginchar("c",5.057u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.935stem,53);
+penpos2(whatever,34);
+z1r=(w,0.874h); y2r=h+apex_o;
+z2-z1=whatever*dir148;
+z2r-z1r=whatever*dir148;
+penpos3(hair,angle(z1l-z2l));
+z3l=z2l; penpos4(1.348stem,45);
+z4l=(0,0.45h); z5=(0.422w,-apex_o);
+penpos7(hair,-57);
+z7r-z5=whatever*dir33; x7r=w;
+z6=(0.627w,0.176h);
+penstroke z1e--z2e;
+filldraw z7l{z5-z7r}..z6{left}..
+z4r{up}..z3r{z2r-z2l} & z3r--z3l &
+z3l{z2l-z2r}..z4l{down}..z5 &
+z5--z7r--z7l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter d";
+.beginchar("d",7.208u#,1.383x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,109); penpos2(stem,205);
+z1=(0.524w,0.619h);
+z2r=(0,0.326h); z3=(0.429w,-apex_o);
+z4=(0.639w,0.107h);
+penpos5(hair,-67); x5=0.733w;
+z5r-z3=whatever*dir23;
+penpos6(0.978stem,39);
+z6r=(w,y2); z7=z1; penpos7(1.043stem,56.5);
+penpos8(1.109stem,7);
+z8l=(0.094w,0.821h);
+penpos9(hair,-90); z9l=(0.461w,h);
+filldraw z5r{z5r-z3}..z6r{up}..z7r
+..z8r{up}..z9r--z9l &
+z9l{left}..z8l{down}..z7l..z6l{down}
+..z5l{z3-z5r} & z5l--z5r & cycle;
+filldraw z1r{dir199}..z2r{down}..
+z3 & z3--z5r--z5l & z5l..z4{left}..
+z2l{up}..z1l{dir19} & z1l--z1r &
+cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter e";
+.beginchar("e",5.17u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-90); z1r=(0.934w,0.189h);
+z3=(0.642w,y1r); z2=(0.343w,-apex_o);
+penpos4(1.391stem,42); z4l=(0,0.459h);
+z5=(0.175w,0.874h);
+penpos6(hair,-57); penpos8(hair,-57);
+z6l=(0.693w,h+apex_o);
+z8=whatever[z6l,z6r]; x8r=w;
+penpos10(stem,angle(z6l-z5)); z10r=z6l;
+penpos7(hair,-57);
+z8-z7=whatever*dir33; x7=x4;
+penpos9(whatever,angle(z8r-z7r));
+z9r=z8r;
+z9l-z10l=whatever*(z8r-z10r);
+filldraw z1r--z2..z4l{up}...z5---
+z6l--z6r{z5-z6l}..z4r{down}..
+z3{right}..z1l{z1r-z2}--z1r & cycle;
+penstroke z7e--z8e;
+penstroke z9e--z10e;
+.endchar;
+
+.cmchar "The Schwabacher letter f";
+.beginchar("f",6.038u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#-1.12u#);
+boolean isitf; isitf:=true; long_s; .endchar;
+
+.cmchar "The Schwabacher letter g";
+.beginchar("g",8.528u#,x_height#,3.623u#);
+.adjust_fit(usual_left#-0.35u#,usual_right#);
+penpos1(1.217stem,-130); z1r=(0,-2/3d);
+penpos2(hair,-90); z2l=z1r;
+penpos3(0.8stem,-130); z3r=(0.4w,-d);
+penpos3'(hair,-47);
+z3'=(0.704w,-0.594d);
+penpos4(1.283stem,49); z4=(0.832w,-0.5apex_o);
+penpos6(stem,0); z6=(x4-0.5stem,0.898h);
+penpos5(whatever,28); x5l=x6l;
+x5r=x6r; z9=(0.261w,0);
+z5-z9=whatever*dir28;
+penpos8(hair,-62); z8r=z5r;
+penpos10(stem,0);
+z10=(0.235w,y6);
+z9-z11=whatever*dir-62; x11=x10l;
+z9'-z8l=whatever*(z9-z8r);
+z9'=whatever[z11,z9]; z11'=(x10r,y11);
+z9''-z11'=whatever*(z9-z11);
+z9''=whatever[z9',z8l];
+penpos13(stem,-90); z13l=z10l;
+z12=(x10,h+apex_o); z7=(x6,h+apex_o);
+penpos14(whatever,-108); x14l=w;
+y14l=y13l; y14r=y13r;
+%
+%
+%
+filldraw z2r..z3r{right}..z3'r..z4r{up}
+..z5r--z5l..z4l{down}..z3'l..z3l{left}
+..z1l{dir140} & z1l--z2l--z2r &
+cycle;
+filldraw z9--z8r--z8l--z9''--z11'
+--z10r--z12--z10l--z11--z9 & cycle;
+filldraw z5l--z6l--z7--z6r--z5r--
+z5l & cycle;
+penstroke z13e--z14e;
+.endchar;
+
+.cmchar "The Schwabacher letter h";
+.beginchar("h",7.585u#,cap_height#,3.358u#);
+.adjust_fit(usual_left#,usual_right#);
+laimoc_swab; z2=(0.279w,-apex_o);
+penpos3(hair,-90); z3r=(0.547w,y1.1);
+z4=(0.428w,y1.1); z5=(x1.1r,y1.2);
+filldraw z1.1'--z2--z3r--z3l
+{z2-z3r}..z4{left}..z5{up}--z1.1--
+z1.1' & cycle;
+%
+%
+%
+penpos6(hair,-40); penpos8(1.217stem,50);
+penpos9(1.043stem,24);
+penpos10(hair,-45);
+z10r=(x5,-d); z9r=(w,0.459x_height);
+z7=(0.582w,x_height+apex_o);
+x6=x1.1; z7-z6l=whatever*dir50;
+z8r=z7;
+penpos8'(hair,-40); z8'l=z8;
+penstroke z6e--z8'e;
+penstroke z10e{dir45}..z9e{up}..
+z8e{dir140};
+.endchar;
+
+.cmchar "The Schwabacher letter i";
+.beginchar("i",4u#,1.387x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(1.739stem,0);
+penpos3(0.5hair,90); penpos4(0.5hair,-90);
+z2l=(0,0.815x_height); x1=x2;
+y1=0.252x_height; z3l=z2l; z4r=z2r;
+z5=(x1,x_height+apex_o);
+penpos1'(stem,0); x1'=x1; y1'=0.7x_height;
+filldraw z1r---z1'r...{right}z2r--z4l--z5--
+z3r--z2l{right}...z1'l---z1l--z1r & cycle;
+%
+% teleia
+%
+penpos6(hair,145);
+z6=(0.375[x2l,x2r],1.090x_height);
+z7=(0.875[x2l,x2r],1.387x_height);
+z8=(1.125[x2l,x2r],1.324x_height);
+filldraw z6l{dir34}..z8{up}..z7{left}
+..z6r{dir259}--z6l & cycle;
+%
+% podi tou i
+%
+penpos9(hair,90); penpos11(hair,-90);
+z9r=(0,foot); z11r=(w,foot);
+z12=(0.717w,foot); z10=(0.472w,-apex_o);
+filldraw z1l{down}..z9r{left}--z9l
+--z10--z11r--z11l{z10-z11r}..z12{left}
+..z1r{up} & z1r--z1l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter j";
+.beginchar("j",3.283u#,1.387x_height#,2.943u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(1.739stem,0);
+penpos3(0.5hair,90); penpos4(0.5hair,-90);
+z2l=(0,0.815x_height); x1=x2;
+y1=0.252x_height; z3l=z2l; z4r=z2r;
+z5=(x1,x_height+apex_o);
+penpos1'(stem,0); x1'=x1; y1'=0.7x_height;
+filldraw z1r---z1'r...{right}z2r--z4l--z5--
+z3r--z2l{right}...z1'l---z1l--z1r & cycle;
+%
+% teleia
+%
+penpos6(hair,145);
+z6=(0.375[x2l,x2r],1.090x_height);
+z7=(0.875[x2l,x2r],1.387x_height);
+z8=(1.125[x2l,x2r],1.324x_height);
+filldraw z6l{dir34}..z8{up}..z7{left}
+..z6r{dir259}--z6l & cycle;
+%
+% podi tou j
+%
+penpos9(hair,0); z9l=(0,-d);
+penpos10(stem,0); z10=(x1,0);
+filldraw z9l{z10r-z9r}...z10l---
+z1l--z1r--z10r--z9r--z9l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter k";
+.beginchar("k",6.189u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+laimoc_swab;
+penpos10(1.305hair,-90); z10=(x1.2,x_height);
+penpos20(hair,-50);
+penpos3(1.087stem,40); z3r=z20l;
+z3-z10l=whatever*dir40;
+y20l=1.423x_height; penpos4(0.957stem,37);
+z4r=(w,1.194x_height);
+penpos6(0.957stem,-117);
+z6l=(w-2/3apex_o,x_height-apex_o);
+penpos8(whatever,-90);
+y8l=y6l; y8r=y6r; z7=(0,y6r);
+z8l-z7=whatever*dir48;
+penpos5(hair,-90);z5r=(x1.1r,y6r);
+penstroke z10e--z20e;
+penstroke z5e{dir40}..z4e{up}..
+z3e{dir130};
+filldraw z7--z6r--z6l--z8l--z7 &
+cycle;
+podi_swab(37);
+penpos11(hair,angle(z2.3r-z2.3l));
+z11-z2.3=whatever*dir37;
+x11r=0.921w;
+penstroke z2.3e--z11e;
+.endchar;
+
+.cmchar "The Schwabacher letter l";
+.beginchar("l",4.149u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+laimoc_swab; w:=7.585u;
+z2=(0.279w,-apex_o);
+penpos3(hair,-90); z3r=(0.547w,y1.1);
+z4=(0.428w,y1.1); z5=(x1.1r,y1.2);
+filldraw z1.1'--z2--z3r--z3l
+{z2-z3r}..z4{left}..z5{up}--z1.1--
+z1.1' & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter m";
+.beginchar("m",11.925u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+dexi_podi_swab(-apex_o);
+penpos3(stem,0); z3=(1/2w,y1.2);
+aristero_podi_swab (x3r);
+z0=z2.1r-z3r;
+penpos4(hair,-90); y4=y2.7;
+x4=x1.2r;
+z5=z2.6-z0; z6=z2.8-z0;
+z8=z2.11-z0; penpos7(1.217stem,33);
+z7=z2.9-z0;
+z9=whatever[z5,z6]; x9=x3r;
+filldraw z4r--z7l--z8--z3l--
+z3r--z9--z5--z4l--z4r & cycle;
+penpos10(whatever,24);
+z10l=(x3l,-apex_o); x10r=x3r;
+penstroke z10e--z3e;
+.endchar;
+
+.cmchar "The Schwabacher letter n";
+.beginchar("n",7.925u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+dexi_podi_swab(-apex_o);
+aristero_podi_swab (x1.2r);
+.endchar;
+
+.cmchar "The Schwabacher letter o";
+.beginchar("o",7.849u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,0); z1=(0.428w,-apex_o);
+penpos4(1.326stem,53); z4l=z1;
+penpos2(1.065stem,47);
+z2l=(0,0.491h);
+penpos6(hair,angle((w,0)-(0,h)));
+z6=whatever[(w,0),(0,h)];
+x6=0.202w;
+penpos7(hair,angle((w,0)-(0,h)));
+z7=whatever[(w,0),(0,h)];
+x7=0.798w;
+z6'=((0,h)--(w,0)) intersectionpoint
+((x2r,0)--(x2r,h));
+z7'=((0,h)--(w,0)) intersectionpoint
+((0,y4r)--(w,y4r));
+penpos5(whatever,-133);
+z5=whatever[z2l,z2r]; y5r=y6';
+y5l=h+2apex_o;
+penpos3(whatever,40);
+x3l=x7'; x3r=w; y3r=0.563h;
+%
+%
+%
+filldraw z1r{dir45}..z3r{up}..
+z5l{dir150}--z5r{right}..z3l{down}
+..z4r{left}..z2r{up}..z6r..
+z5r{right}--z5l & z5l{z5r-z5l}
+..z6l..z2l{down}..z1l{dir-45}--z1r
+& cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter p";
+.beginchar("p",8.151u#,x_height#,3.057u#);
+.adjust_fit(usual_left#,usual_right#);
+dexi_podi_swab(-apex_o);
+z2=(0.457[x1.1l,x1.1r],-d);
+filldraw z2..z1.1l{up}--z1.1r{down}
+..z2 & cycle;
+penpos3(1.152stem,36);
+penpos4(1.152stem,36);
+z3l=(0.574w,0);
+z4-z3=whatever*dir157;
+x4=x1.1l;
+penstroke z3e--z4e;
+penpos6(1.217stem,36); z6r=(w,0.586h);
+penpos5(hair,angle(z3r-z4r));
+z5r=z3r; penpos7(1.196stem,45);
+z7r=(0.722w,h+apex_o);
+penpos8(hair,-45);
+z8l=z7; penpos9(hair,-45);
+z8-z9=whatever*dir45; x9=x2;
+penstroke z9e--z8e;
+penstroke z5e{z3r-z3l}..z6e{up}..
+z7e{dir135};
+.endchar;
+
+.cmchar "The Schwabacher letter q";
+.beginchar("q",7.774u#,x_height#,3.057u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); z1=(0.791w,0.1h);
+penpos7(1.174stem,18); z7l=(0,0.523h);
+penpos5(1.196stem,30);
+x5l=x7r; y5r=h+apex_o;
+penpos4(2/3hair,-90); x4=w;
+z5r-z4l=whatever*dir155;
+penpos3(whatever,30); z3r=z4r;
+z3l-z5l=whatever*(z4l-z5r);
+penpos11(stem,0); z11=(x1,y4);
+z2=(x1,-d); penpos2(eps,0);
+penstroke z2e...z1e---z11e;
+filldraw z5l--z3l--z4r--z4l &
+flex(z4l,0.5[z5r,z4l]-
+(apex_o,apex_o),z5r) &
+z5r--z5l & cycle;
+penpos8(1.152stem,40);
+z8l=(0.379w,0);
+penpos6(hair,angle(z3l-z5l));
+z6l=z5l; penpos9(hair,-50);
+penpos10(hair,-50);
+z9r=z8; z10-z9=whatever*dir40;
+x10=x1;
+penstroke z8e{dir130}..z7e{up}..
+z6e{z5r-z5l};
+penstroke z9e--z10e;
+.endchar;
+
+.cmchar "The Schwabacher letter r";
+.beginchar("r",6.038u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.152stem,35);
+penpos2(1.152stem,35);
+x2l=0; z1l=(1.5stem,-apex_o);
+z2-z1=whatever*dir148;
+penpos3(hair,-55); penpos4(hair,-55);
+z3r=z1; z4r=whatever[z1l,z1r];
+x4=0.813w;
+dexi_podi_swab(y2l-hair);
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+%
+%
+%
+penpos7(2/3hair,-90);
+penpos6(hair,-55);
+penpos10(hair,-55);
+z6l=(0.838w,h+apex_o);
+z6-z10=whatever*dir35; x10=x1.1;
+z7l-z6l=whatever*dir-45; x7=w;
+z7r-z8=whatever*dir45;
+x8=0.825w; z9-z8=whatever*(z6l-z7l);
+z9=whatever[z10r,z6r];
+penstroke z10e--z6e;
+filldraw z6l--z7l--z7r--z8--z9--
+z6l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher long s";
+.beginchar("s",6.038u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#-2.33u#);
+boolean isitf; isitf:=false; long_s;
+.endchar;
+
+.cmchar "The Schwabacher short s";
+.beginchar(oct"215",6.34u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1'(hair,-40); penpos2(hair,-40);
+z1'l=(0,0.108h); z2r=(w-0.5apex_o,0.919h);
+penpos1(whatever,0); z1l=z1'l;
+z1r=whatever[z1'r,z2r];
+penstroke z1e--z2e;
+penpos5(0.826stem,37); z5r=(w,0.387h);
+penpos6(whatever,0);
+z6l=whatever[z1l,z2l];
+z6r=whatever[z1r,z2r]; y6=0.275h;
+z7=whatever[z1r,z2r]; x7=0.488w;
+z8=whatever[z1r,z2r]; x8=0.702w;
+z3=(0.435w,-apex_o);
+penpos4(hair,-55);
+z4r-z3=whatever*dir35; x4=0.774w;
+penpos9(0.6stem,90); z9l=z1l;
+filldraw z1l---z1r...{dir-28}z3 &
+z3---z4r...z5r{up}..z8 & z8--z7
+{right}..z5l{down}..z4l{z3-z4r}
+..z6r{z1r-z3}--z6l{z1-z2}..
+z9r{left}--z1l & cycle;
+%
+%
+%
+penpos10(0.913stem,37);
+z10l=(0,0.613h); z12=(0.524w,h+apex_o);
+penpos11(hair,-53);
+z12-z11l=whatever*dir37; x11l=x10r+0.5apex_o;
+z15=0.488[z1l,z2l];
+z14=0.736[z1l,z2l];
+z13=(0.827w,y2r);
+filldraw z6l{z2l-z1l}..z10l{up}
+...z11l---z12 & z12{dir-30}..z13{right}..
+z2l{z2-z1} & z2l--z2r--z14 &
+z14{z12-z13}..z11r{z11l-z12}..z10r{down}
+..z15{z2r-z2l}--z6l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter t";
+.beginchar("t",5.66u#,1.27x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.152stem,35);
+penpos2(1.152stem,35);
+x2l=hair; z1l=(1.826stem,-apex_o);
+z2-z1=whatever*dir148;
+penpos3(hair,-55); penpos4(hair,-55);
+z3r=z1; z4r=whatever[z1l,z1r];
+x4r=w;
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+%
+%
+%
+penpos5(stem,0); z5r=(x1l-apex_o,y2l);
+penpos6(stem,0); z6=(x5,0.811x_height);
+penpos7(0.826stem,-90);
+z7r=(w,y6); z8=(0,y6); z9=(x6r,h);
+filldraw z5l--z6l--z8--z9--(x9,y7l)
+--z7l--z7r--z6r--z5r--z5l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter u";
+.beginchar("u",7.849u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.283stem,35);
+penpos2(1.283stem,35);
+z1l=(0.337w,-apex_o);
+z2-z1=whatever*dir142; x2=0.168w;
+penpos3(hair,-55); penpos4(hair,-55);
+z3r=z1; z4-z3=whatever*dir35;
+penpos8(stem,0); x8=0.798w=x4;
+z8l=whatever[z3r,z4r];
+penpos10(stem,0); z10=(x2+0.5stem-apex_o,y2l);
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+z11=(x10l,0.775h); z12=(0.478[x10l,x10r],h+apex_o);
+penpos13(hair,-90); x13=0;
+z12-z13l=whatever*dir33;
+filldraw z13r{z12-z13l}...z11---
+z10l--z10r---(x10r,y11)...z12
+& z12--z13l--z13r & cycle;
+%
+%
+%
+z5=(0.609[x8l,x8r],-apex_o);
+penpos9(whatever,24);
+y9r=h+apex_o; x9l=x8l; x9r=x8r;
+penpos6(eps,-90);
+z6r-z5=whatever*dir43;
+x6=w; z7=whatever[z1l,z1r]; x7=x8r;
+filldraw z5...z8l---z9l--z9r---
+z7...z6l--z6r--z5 & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter v";
+.beginchar("v",8.302u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.261stem,37);
+penpos2(1.261stem,45);
+penpos4(1.261stem,38);
+penpos3(1/3hair,-52);
+x1l=0; y1r=h+apex_o; z2=(0.295w,0.586h);
+z4=(0.145w,0.239h); z3r=z4l;
+filldraw z3r--z4r..z2r{up}..z1r--
+z1l..z2l{down}..z3l{z4l-z4r}--
+z3r & cycle;
+%
+%
+%
+penpos5(whatever,48); z5l=(0.473w,-apex_o);
+z5r-z4r=whatever*(z5l-z4l);
+penpos6(1.174stem,34); z6r=(w,0.631h);
+z8=(0.695w,h+apex_o);
+penpos9(hair,-55);
+z8-z9l=whatever*dir35; x9=x2;
+x7=0.518w; z7=whatever[z2l,z8];
+filldraw z9r{z8-z9l}..z7{right}..
+z6l{down}...z5r---z5l & z5l{dir39}..
+z6r{up}..z8--z9l--z9r & cycle;
+penstroke z5e--z4e;
+.endchar;
+
+.cmchar "The Schwabacher letter w";
+.beginchar("w",12.604u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+podi_swab(36);
+dexi_podi_swab(foot);
+unfilldraw (0,0)--(hair,0)--
+(hair,0.5h)--(0,0.5h)--(0,0) &
+cycle;
+penpos3(hair,-54); penpos4(stem,0);
+z3-z2.3=whatever*dir36;
+x4=0.539w; z4l-z2.3=whatever*dir36;
+x3=x4; penpos15(whatever,28);
+x15l=x4l; x15r=x4r;
+penpos8(1.304stem,42);
+z8r=(0.796w,h+apex_o);
+z15r=whatever[z8l,z8r];
+penpos9(hair,-48);
+z8-z9l=whatever*dir42; x9=x4;
+penpos13(hair,-48); z13l=z8;
+penstroke z2.3e--z3e;
+penpos6(1.174stem,37);
+z6r=(0.431w,h+apex_o);
+penpos5(hair,-53); z6-z5l=whatever*dir37;
+x5=x1.1; penpos14(hair,-53); z14l=z6;
+penstroke z5e--z14e;
+penstroke z4e---z15e...z6e{dir147};
+penpos10(1.087stem,31.5);
+z10l=(x8l,-apex_o); penpos10'(whatever,36);
+z10'r-z10r=whatever*dir142;
+z10'l-z10l=whatever*dir142;
+z10'=whatever[z2.3,z3];
+penstroke z10e--z10'e;
+penpos11(hair,-58.5);
+z11r=z10; penpos12(1.304stem,43);
+z12r=(w,0.595h);
+penstroke z9e--z13e;
+penstroke z11e{z10r-z10l}..z12e{up}
+..z8e{dir148};
+.endchar;
+
+.cmchar "The Schwabacher letter x";
+.beginchar("x",6.038u#,x_height#,3.019u#);
+.adjust_fit(usual_left#,usual_right#);
+dexi_podi_swab(0.162h);
+penpos1(1.043stem,45);
+penpos2(1.043stem,45);
+x2l=x1.1l; z1l=(0.606w,-apex_o);
+z2-z1=whatever*dir153;
+penpos3(hair,-45); penpos4(hair,-45);
+z3r=z1; z4r=whatever[z1l,z1r];
+x4r=w-apex_o;
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+%
+%
+%
+penpos7(2/3hair,-90);
+penpos6(hair,-55);
+penpos10(hair,-55);
+z6l=(0.838w,h+apex_o);
+z6-z10=whatever*dir35; x10=x1.1;
+z7l-z6l=whatever*dir-45; x7=w;
+z7r-z8=whatever*dir45;
+x8=0.825w; z9-z8=whatever*(z6l-z7l);
+z9=whatever[z10r,z6r];
+penstroke z10e--z6e;
+filldraw z6l--z7l--z7r--z8--z9--
+z6l & cycle;
+%
+%
+%
+penpos11(0.783stem,0);
+z11l=z1.1l+(0,apex_o);
+penpos12(hair,0); z12r=(0,-d);
+penstroke z12e{dir63}..z11e{up};
+.endchar;
+
+.cmchar "The Schwabacher letter y";
+.beginchar("y",7.585u#,x_height#,3.547u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.2hair,0); penpos2(1.2hair,0);
+z2=(0.896w,0.649h);
+z2-z1=whatever*dir62; y1=-d;
+penstroke z1e--z2e;
+penpos3(1.522stem,62);
+penpos4(1.522stem,62);
+z3=whatever[z1,z2]; y3=0;
+z4-z3=whatever*dir107; x4=0.25w;
+penpos5(1.174stem,55); y5r=h+apex_o;
+x5l=0;
+penstroke z3e---z4e...z5e;
+%
+%
+%
+penpos9(0.565stem,0); z9r=z2r;
+penpos6(whatever,42); z6l=z9l;
+x6r=w; penpos7(1.087stem,53);
+z7r=(0.7w,h+apex_o);
+penpos8(hair,151); z8=whatever[z3,z4];
+x8=0.31w; z9'=whatever[z1l,z2l];
+y9'=y8l;
+filldraw z9'{z2-z1}..%z6l{up}..
+z7l{left}..z8l{z1-z2}--z8r{z2-z1}
+..z7r{right}..z6r{down}..z9r{z1-z2}
+--z9' & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter z";
+.beginchar("z",5.358u#,x_height#,3.321u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.87stem,-139);
+penpos2(0.85stem,-139);
+penpos3(1.043stem,41);
+z1r=(0,-0.682d); z2r=(0.239w,-d);
+x3r=w; y3l=0; z4=(0.38w,0.261h);
+penpos6(hair,-38);
+z5-z6l=whatever*dir45; x5=0.577w;
+z6=(0.12w,0.189h);
+penpos2'(hair,-45);
+z2'=(0.648w,-0.625d);
+penstroke z1e{dir-49}..
+z2e{right}..z2'e..z3e{up};
+filldraw z3r{up}..z5{dir142} &
+z5--z6l--z6r{z5-z6l}..z4{right}..
+z3l{down} & z3l--z3r & cycle;
+%
+%
+%
+penpos7(hair,-38); penpos8(hair,-38);
+penpos9(hair,-38); penpos10(hair,-38);
+z9r=z5; z7-z9=whatever*dir45;
+z8-z10=whatever*dir45;
+x10l=0; y8l=h+apex_o; x7r=0.93w;
+x8=0.479w;
+penstroke z10e--z8e;
+penpos11(1.217stem,45); z11l=z9l;
+penpos12(1.217stem,45);
+z12-z11=whatever*(z8-z7);
+z12=whatever[z10r,z8r];
+penstroke z9e--z7e;
+penstroke z11e--z12e;
+z9'=whatever[z6l,z5]; x9'=x8l;
+filldraw z6l{z5-z6l}..z9l{z11r-z11l}
+--z9r--z6l & cycle;
+.endchar; \ No newline at end of file
diff --git a/fonts/gothic/yswab/yswabmis.mf b/fonts/gothic/yswab/yswabmis.mf
new file mode 100644
index 0000000000..8e0ace7c38
--- /dev/null
+++ b/fonts/gothic/yswab/yswabmis.mf
@@ -0,0 +1,1300 @@
+cmchar "The Schwabacher exclamation point";
+beginchar("!",5u#+width_adj#,x_height#,0);
+italcorr asc_height#*slant-2u#-.5width_adj#+.5dot_size#;
+adjust_fit(0,0);
+pickup tiny.nib; pos3(dot_size,0); pos4(dot_size,90);
+lft x3l=hround(.5w-.5dot_size); bot y4l=0; z3=z4; %dot(3,4); % dot
+penpos10(stem,45); penpos11(stem,45);
+penpos10'(stem,-45);
+x10l=x3; z10l=z10'r; z11l=z10'l;
+y10l=-apex_o; penstroke z10e--z11e;
+numeric bot_width;
+bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi;
+pickup fine.nib; pos1(dot_size,0); pos2(bot_width,0);
+x1=x2=x3; bot y2=.2[top y4r,x_height]+1;
+if square_dots: top y1=h;
+ filldraw stroke z1e--z2e; % stem
+else: top z0=(x1,h+o); y1+.5dot_size=h+o;
+ filldraw z1r...z0...z1l---z2l--z2r---cycle; fi % stem and bulb
+penlabels(0,1,2,3,4); endchar;
+
+.cmchar "The schwabacher question mark";
+.beginchar("?",4.83u#,1.027x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,45); penpos1'(stem,-45);
+penpos2(stem,45);
+z1l=(0.5w,-apex_o); z1'r=z1l;
+z2l=z1'l;
+penstroke z1e--z2e;
+penpos3(hair,-8); penpos4(hair,-8);
+z3l=(0.086w,0.289h);
+z4l-z3l=whatever*dir82; y4l=0.539h;
+penpos5(0.87stem,-98);
+penpos6(0.87stem,-98);
+z5l=z4l; z8'=(w,0.798h);
+z8'-z6=whatever*dir82;
+z6l=whatever[z4l,z4r];
+penpos7(hair,-8); z7r=z6r;
+penpos9(0.87stem,82); z9r=z8';
+penpos8(whatever,0); z8r=z8';
+z8l-z7l=whatever*(z8r-z7r);
+penstroke z5e--z6e;
+penstroke z3e--z4e;
+penstroke z7e--z8e;
+penpos10(whatever,74);
+z10r-z8r=whatever*dir159;
+z10l-z9l=whatever*dir159;
+x10l=0; penpos11(hair,0); z11l=(0,1.088h);
+penstroke z9e--z10e;
+filldraw z10l--z11l--z11r--z10r--z10l
+& cycle;
+.endchar;
+
+.cmchar "The Schwabacher comma";
+.beginchar(",",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+%penstroke z1e--z2e;
+penpos10(0.11785*(x_height+2apex_o),-30);
+z10l=(x2l-apex_o,-1.3y2r);
+filldraw z10l--z2l+(hair,0){up}..{down}
+z1r--z10r--z10l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher Umlaut";
+.beginchar(oct"175",6u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+y0=0; 0.5[x60,x62']=0.5w;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height);
+z61=(x0+1.522stem,1.387x_height);
+z62=(x0+1.956stem,1.324x_height);
+z60'=(x0'+stem,1.090x_height);
+z61'=(x0'+1.522stem,1.387x_height);
+z62'=(x0'+1.956stem,1.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher dotless i";
+.beginchar(oct"020",4u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(1.739stem,0);
+penpos3(0.5hair,90); penpos4(0.5hair,-90);
+z2l=(0,0.815x_height); x1=x2;
+y1=0.252x_height; z3l=z2l; z4r=z2r;
+z5=(x1,x_height+apex_o);
+penpos1'(stem,0); x1'=x1; y1'=0.7x_height;
+filldraw z1r---z1'r...{right}z2r--z4l--z5--
+z3r--z2l{right}...z1'l---z1l--z1r & cycle;
+%
+% podi tou i
+%
+penpos9(hair,90); penpos11(hair,-90);
+z9r=(0,foot); z11r=(w,foot);
+z12=(0.717w,foot); z10=(0.472w,-apex_o);
+filldraw z1l{down}..z9r{left}--z9l
+--z10--z11r--z11l{z10-z11r}..z12{left}
+..z1r{up} & z1r--z1l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher dotless j";
+.beginchar(oct"021",3.019u#,x_height#,2.943u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(stem,0); penpos2(1.739stem,0);
+penpos3(0.5hair,90); penpos4(0.5hair,-90);
+z2l=(0,0.815x_height); x1=x2;
+y1=0.252x_height; z3l=z2l; z4r=z2r;
+z5=(x1,x_height+apex_o);
+penpos1'(stem,0); x1'=x1; y1'=0.7x_height;
+filldraw z1r---z1'r...{right}z2r--z4l--z5--
+z3r--z2l{right}...z1'l---z1l--z1r & cycle;
+%
+% podi tou j
+%
+penpos9(hair,0); z9l=(0,-d);
+penpos10(stem,0); z10=(x1,0);
+filldraw z9l{z10r-z9r}...z10l---
+z1l--z1r--z10r--z9r--z9l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter a with Umlaut";
+.beginchar(oct"212",6.943u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.13stem,45);
+penpos3(stem,45); x1r=w; y1l=-apex_o;
+z3l=(0.337w,-apex_o);
+penpos2(hair,-45); z2r=z3;
+penpos4(hair,-45);
+z4-z2=whatever*dir45; x4r=x1l-hair;
+z5=whatever[z2r,z4r];
+z5-z1l=whatever*dir130;
+penpos11(0.913stem,29); z11l=(0,0.396h);
+penpos9(1.217stem,35);
+z9r=(0.658w,h+apex_o);
+penpos8(1.13stem,50);
+x8r=w; z9r-z8r=whatever*dir144;
+penpos7(cap_hair,angle(z8l-z9l));
+z7r=z8l; penpos10(cap_hair,angle(z7r-z7l));
+z10l=z9l;
+z6=(x7,0.459h);
+filldraw z1r{z5-z1l}..z6{up}...
+z8l---z8r--z9r---z9l...z11l{down}
+..z3l--z3r..z11r{up}..z10r{z9r-z9l}
+& z10r--z7l--z5--z1l--z1r & cycle;
+penstroke z2e--z4e;
+%
+%
+%
+y0=0; x62'=w;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height);
+z61=(x0+1.522stem,1.387x_height);
+z62=(x0+1.956stem,1.324x_height);
+z60'=(x0'+stem,1.090x_height);
+z61'=(x0'+1.522stem,1.387x_height);
+z62'=(x0'+1.956stem,1.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter e with Umlaut";
+.beginchar(oct"221",5.17u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-90); z1r=(0.934w,0.189h);
+z3=(0.642w,y1r); z2=(0.343w,-apex_o);
+penpos4(1.391stem,42); z4l=(0,0.459h);
+z5=(0.175w,0.874h);
+penpos6(hair,-57); penpos8(hair,-57);
+z6l=(0.693w,h+apex_o);
+z8=whatever[z6l,z6r]; x8r=w;
+penpos10(stem,angle(z6l-z5)); z10r=z6l;
+penpos7(hair,-57);
+z8-z7=whatever*dir33; x7=x4;
+penpos9(whatever,angle(z8r-z7r));
+z9r=z8r;
+z9l-z10l=whatever*(z8r-z10r);
+filldraw z1r--z2..z4l{up}...z5---
+z6l--z6r{z5-z6l}..z4r{down}..
+z3{right}..z1l{z1r-z2}--z1r & cycle;
+penstroke z7e--z8e;
+penstroke z9e--z10e;
+%
+%
+%
+y0=0; x62'=w;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height);
+z61=(x0+1.522stem,1.387x_height);
+z62=(x0+1.956stem,1.324x_height);
+z60'=(x0'+stem,1.090x_height);
+z61'=(x0'+1.522stem,1.387x_height);
+z62'=(x0'+1.956stem,1.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter o with Umlaut";
+.beginchar(oct"232",7.849u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,0); z1=(0.428w,-apex_o);
+penpos4(1.326stem,53); z4l=z1;
+penpos2(1.065stem,47);
+z2l=(0,0.491h);
+penpos6(hair,angle((w,0)-(0,h)));
+z6=whatever[(w,0),(0,h)];
+x6=0.202w;
+penpos7(hair,angle((w,0)-(0,h)));
+z7=whatever[(w,0),(0,h)];
+x7=0.798w;
+z6'=((0,h)--(w,0)) intersectionpoint
+((x2r,0)--(x2r,h));
+z7'=((0,h)--(w,0)) intersectionpoint
+((0,y4r)--(w,y4r));
+penpos5(whatever,-133);
+z5=whatever[z2l,z2r]; y5r=y6';
+y5l=h+2apex_o;
+penpos3(whatever,40);
+x3l=x7'; x3r=w; y3r=0.563h;
+%
+%
+%
+filldraw z1r{dir45}..z3r{up}..
+z5l{dir150}--z5r{right}..z3l{down}
+..z4r{left}..z2r{up}..z6r..
+z5r{right}--z5l & z5l{z5r-z5l}
+..z6l..z2l{down}..z1l{dir-45}--z1r
+& cycle;
+%
+%
+%
+y0=0; 0.5[x60,x60']=x5l-hair;
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height);
+z61=(x0+1.522stem,1.387x_height);
+z62=(x0+1.956stem,1.324x_height);
+z60'=(x0'+stem,1.090x_height);
+z61'=(x0'+1.522stem,1.387x_height);
+z62'=(x0'+1.956stem,1.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter u with Umlaut";
+.beginchar(oct"237",7.849u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.283stem,35);
+penpos2(1.283stem,35);
+z1l=(0.337w,-apex_o);
+z2-z1=whatever*dir142; x2=0.168w;
+penpos3(hair,-55); penpos4(hair,-55);
+z3r=z1; z4-z3=whatever*dir35;
+penpos8(stem,0); x8=0.798w=x4;
+z8l=whatever[z3r,z4r];
+penpos10(stem,0); z10=(x2+0.5stem-apex_o,y2l);
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+z11=(x10l,0.775h); z12=(0.478[x10l,x10r],h+apex_o);
+penpos13(hair,-90); x13=0;
+z12-z13l=whatever*dir33;
+filldraw z13r{z12-z13l}...z11---
+z10l--z10r---(x10r,y11)...z12
+& z12--z13l--z13r & cycle;
+%
+%
+%
+z5=(0.609[x8l,x8r],-apex_o);
+penpos9(whatever,24);
+y9r=h+apex_o; x9l=x8l; x9r=x8r;
+penpos6(eps,-90);
+z6r-z5=whatever*dir43;
+x6=w; z7=whatever[z1l,z1r]; x7=x8r;
+filldraw z5...z8l---z9l--z9r---
+z7...z6l--z6r--z5 & cycle;
+%
+%
+%
+y0=0; 0.5[x60,x60']=0.5[x10,x9];
+z0'=z0+(2.5u,0);
+penpos60(hair,145);
+z60=(x0+stem,1.090x_height);
+z61=(x0+1.522stem,1.387x_height);
+z62=(x0+1.956stem,1.324x_height);
+z60'=(x0'+stem,1.090x_height);
+z61'=(x0'+1.522stem,1.387x_height);
+z62'=(x0'+1.956stem,1.324x_height);
+filldraw z60l{dir34}..z62{up}..z61{left}
+..z60r{dir259}--z60l & cycle;
+penpos60'(hair,145);
+filldraw z60'l{dir34}..z62'{up}..z61'{left}
+..z60'r{dir259}--z60'l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter a with variant Umlaut";
+.beginchar(oct"211",6.943u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.13stem,45);
+penpos3(stem,45); x1r=w; y1l=-apex_o;
+z3l=(0.337w,-apex_o);
+penpos2(hair,-45); z2r=z3;
+penpos4(hair,-45);
+z4-z2=whatever*dir45; x4r=x1l-hair;
+z5=whatever[z2r,z4r];
+z5-z1l=whatever*dir130;
+penpos11(0.913stem,29); z11l=(0,0.396h);
+penpos9(1.217stem,35);
+z9r=(0.658w,h+apex_o);
+penpos8(1.13stem,50);
+x8r=w; z9r-z8r=whatever*dir144;
+penpos7(cap_hair,angle(z8l-z9l));
+z7r=z8l; penpos10(cap_hair,angle(z7r-z7l));
+z10l=z9l;
+z6=(x7,0.459h);
+filldraw z1r{z5-z1l}..z6{up}...
+z8l---z8r--z9r---z9l...z11l{down}
+..z3l--z3r..z11r{up}..z10r{z9r-z9l}
+& z10r--z7l--z5--z1l--z1r & cycle;
+penstroke z2e--z4e;
+%
+%
+%
+y0=x_height+2u; x0=0.5w;
+z0'=z0+(u,0);
+e_umlaut(0');
+.endchar;
+
+.cmchar "The Schwabacher letter e with variant Umlaut";
+.beginchar(oct"220",5.17u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-90); z1r=(0.934w,0.189h);
+z3=(0.642w,y1r); z2=(0.343w,-apex_o);
+penpos4(1.391stem,42); z4l=(0,0.459h);
+z5=(0.175w,0.874h);
+penpos6(hair,-57); penpos8(hair,-57);
+z6l=(0.693w,h+apex_o);
+z8=whatever[z6l,z6r]; x8r=w;
+penpos10(stem,angle(z6l-z5)); z10r=z6l;
+penpos7(hair,-57);
+z8-z7=whatever*dir33; x7=x4;
+penpos9(whatever,angle(z8r-z7r));
+z9r=z8r;
+z9l-z10l=whatever*(z8r-z10r);
+filldraw z1r--z2..z4l{up}...z5---
+z6l--z6r{z5-z6l}..z4r{down}..
+z3{right}..z1l{z1r-z2}--z1r & cycle;
+penstroke z7e--z8e;
+penstroke z9e--z10e;
+%
+%
+%
+y0=x_height+2u; x0=0.5w;
+z0'=z0+(u,0);
+e_umlaut(0');
+.endchar;
+
+.cmchar "The Schwabacher letter o with variant Umlaut";
+.beginchar(oct"231",7.849u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(hair,0); z1=(0.428w,-apex_o);
+penpos4(1.326stem,53); z4l=z1;
+penpos2(1.065stem,47);
+z2l=(0,0.491h);
+penpos6(hair,angle((w,0)-(0,h)));
+z6=whatever[(w,0),(0,h)];
+x6=0.202w;
+penpos7(hair,angle((w,0)-(0,h)));
+z7=whatever[(w,0),(0,h)];
+x7=0.798w;
+z6'=((0,h)--(w,0)) intersectionpoint
+((x2r,0)--(x2r,h));
+z7'=((0,h)--(w,0)) intersectionpoint
+((0,y4r)--(w,y4r));
+penpos5(whatever,-133);
+z5=whatever[z2l,z2r]; y5r=y6';
+y5l=h+2apex_o;
+penpos3(whatever,40);
+x3l=x7'; x3r=w; y3r=0.563h;
+%
+%
+%
+filldraw z1r{dir45}..z3r{up}..
+z5l{dir150}--z5r{right}..z3l{down}
+..z4r{left}..z2r{up}..z6r..
+z5r{right}--z5l & z5l{z5r-z5l}
+..z6l..z2l{down}..z1l{dir-45}--z1r
+& cycle;
+%
+%
+%
+y0=x_height+2u; x0=0.5w;
+z0'=z0+(u,0);
+e_umlaut(0');
+.endchar;
+
+.cmchar "The Schwabacher letter u with variant Umlaut";
+.beginchar(oct"236",7.849u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.283stem,35);
+penpos2(1.283stem,35);
+z1l=(0.337w,-apex_o);
+z2-z1=whatever*dir142; x2=0.168w;
+penpos3(hair,-55); penpos4(hair,-55);
+z3r=z1; z4-z3=whatever*dir35;
+penpos8(stem,0); x8=0.798w=x4;
+z8l=whatever[z3r,z4r];
+penpos10(stem,0); z10=(x2+0.5stem-apex_o,y2l);
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+z11=(x10l,0.775h); z12=(0.478[x10l,x10r],h+apex_o);
+penpos13(hair,-90); x13=0;
+z12-z13l=whatever*dir33;
+filldraw z13r{z12-z13l}...z11---
+z10l--z10r---(x10r,y11)...z12
+& z12--z13l--z13r & cycle;
+%
+%
+%
+z5=(0.609[x8l,x8r],-apex_o);
+penpos9(whatever,24);
+y9r=h+apex_o; x9l=x8l; x9r=x8r;
+penpos6(eps,-90);
+z6r-z5=whatever*dir43;
+x6=w; z7=whatever[z1l,z1r]; x7=x8r;
+filldraw z5...z8l---z9l--z9r---
+z7...z6l--z6r--z5 & cycle;
+%
+%
+%
+y0=x_height+2u; x0=0.5w;
+z0'=z0+(u,0);
+e_umlaut(0');
+.endchar;
+
+.cmchar "The Schwabacher ligature ch";
+.beginchar(oct"205",5.057u#+6.585u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+w:=5.057u;
+penpos101(0.935stem,53); penpos102(whatever,34); z101r=(w,0.874h); y102r=h+apex_o;
+z102-z101=whatever*dir148; z102r-z101r=whatever*dir148;
+penpos103(hair,angle(z101l-z102l)); z103l=z102l; penpos104(1.348stem,45);
+z104l=(0,0.45h); z105=(0.422w,-apex_o); penpos107(hair,-57);
+z107r-z105=whatever*dir33; x107r=w; z106=(0.627w,0.176h); penstroke z101e--z102e;
+filldraw z107l{z105-z107r}..z106{left}.. z104r{up}.. z103r{z102r-z102l} &
+z103r--z103l & z103l{z102l-z102r}..z104l{down}..z105 & z105--z107r--z107l & cycle;
+z0=(w-u,0); w:=7.585u; h:=cap_height; d:=3.358u; penpos1.1(stem,0);
+penpos1.3(stem,0); penpos1.4(hair,90); penpos1.5(hair,-90); y1.1=y1.1'=foot;
+x1.1l=x1.2=x0+0.413stem; x1.1'=x1.4=x0; x1.3=x1.1; x1.5=x1.1r+0.761stem;
+y1.5l=cap_height+apex_o; z1.5l-z1.4r=whatever*dir17; y1.3=0.828cap_height;
+y1.2=0.273cap_height; filldraw z1.1'...z1.2---z1.3l... z1.4l &
+z1.4l--z1.4r--z1.5l--z1.5r & z1.5r{left}...z1.3r---z1.1r & z1.1r--z1.1' & cycle;
+z2=(x0+0.279w,-apex_o); penpos3(hair,-90); z3r=(x0+0.547w,y1.1);
+z4=(x0+0.428w,y1.1); z5=(x1.1r,y1.2); filldraw z1.1'--z2--z3r--z3l
+{z2-z3r}..z4{left}..z5{up}--z1.1-- z1.1' & cycle; penpos6(hair,-40);
+penpos8(1.217stem,50); penpos9(1.043stem,24); penpos10(hair,-45); z10r=(x5,-d);
+z9r=(x0+w,0.459x_height); z7=(x0+0.582w,x_height+apex_o); x6=x1.1;
+z7-z6l=whatever*dir50; z8r=z7; penpos8'(hair,-40); z8'l=z8; penstroke z6e--z8'e;
+penstroke z10e{dir45}..z9e{up}.. z8e{dir140};
+.endchar;
+
+.cmchar "The Schwabacher ligature ck";
+.beginchar(oct"206",5.057u#+5.189u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+w:=5.057u;
+penpos101(0.935stem,53); penpos102(whatever,34); z101r=(w,0.874h); y102r=h+apex_o;
+z102-z101=whatever*dir148; z102r-z101r=whatever*dir148;
+penpos103(hair,angle(z101l-z102l)); z103l=z102l; penpos104(1.348stem,45);
+z104l=(0,0.45h); z105=(0.422w,-apex_o); penpos107(hair,-57);
+z107r-z105=whatever*dir33; x107r=w; z106=(0.627w,0.176h); penstroke z101e--z102e;
+filldraw z107l{z105-z107r}..z106{left}.. z104r{up}.. z103r{z102r-z102l} &
+z103r--z103l & z103l{z102l-z102r}..z104l{down}..z105 & z105--z107r--z107l & cycle;
+z0=(w-u,0); w:=6.189u; h:=cap_height; penpos1.1(stem,0); penpos1.3(stem,0);
+penpos1.4(hair,90); penpos1.5(hair,-90); y1.1=y1.1'=foot; x1.1l=x1.2=x0+0.413stem;
+x1.1'=x1.4=x0; x1.3=x1.1; x1.5=x1.1r+0.761stem; y1.5l=cap_height+apex_o;
+z1.5l-z1.4r=whatever*dir17; y1.3=0.828cap_height; y1.2=0.273cap_height; filldraw
+z1.1'...z1.2---z1.3l... z1.4l & z1.4l--z1.4r--z1.5l--z1.5r &
+z1.5r{left}...z1.3r---z1.1r & z1.1r--z1.1' & cycle; penpos10(1.305hair,-90);
+z10=(x1.2,x_height); penpos20(hair,-50); penpos3(1.087stem,40); z3r=z20l;
+z3-z10l=whatever*dir40; y20l=1.423x_height; penpos4(0.957stem,37);
+z4r=(x0+w,1.194x_height); penpos6(0.957stem,-117);
+z6l=(x0+w-2/3apex_o,x_height-apex_o); penpos8(whatever,-90); y8l=y6l; y8r=y6r;
+z7=(x0,y6r); z8l-z7=whatever*dir48; penpos5(hair,-90);z5r=(x1.1r,y6r); penstroke
+z10e--z20e; penstroke z5e{dir40}..z4e{up}.. z3e{dir130}; filldraw
+z7--z6r--z6l--z8l--z7 & cycle; penpos2.1(1.304stem,37); penpos2.2(1.304stem,37);
+z2.1l=(x0,foot); z2.1l-z2.2l=whatever*dir151; y2.2l=-apex_o; penpos2.3(hair,-53);
+z2.3r=z2.2; z2.05=(x0+2/3apex_o,2/3apex_o); penpos2.1'(1.304stem,37);
+z2.1'=0.5[z2.1,z2.2]+z2.05-z0; penstroke z2.2e..z2.1'e..z2.1e;
+penpos11(hair,angle(z2.3r-z2.3l)); z11-z2.3=whatever*dir37; x11r=x0+0.921w;
+penstroke z2.3e--z11e;
+.endchar;
+
+.cmchar "The Schwabacher ligature sz";
+.beginchar(oct"032",7.9u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#);
+w:=6.038u;
+boolean isitf; isitf:=false; long_s;
+penpos10(hair,-41);
+penpos9(hair,-41);
+penpos8(1.154stem,49);
+penpos7(1.14stem,49);
+penpos6(hair,-41);
+x6l=w+0.5u; y6r=y1.11l;
+z9=whatever[z6l,z6r];
+z10=(x1.1,0.6x_height);
+z8r=z9l; z9l-z10l=whatever*dir49;
+z7r=z6l; penpos4(hair,-41);
+z6-z4=whatever*dir49; y4=0.324x_height;
+z5=whatever[z4r,z6r]; x5=x1.11+0.5u;
+penpos3(0.731stem,35); z3r=(w+0.5u,0.27x_height);
+penpos2(hair,-49); z2=(0.556w,-0.541d);
+filldraw z2r{dir41}..z3r{up}..
+z5{z9-z6}--z4l--z4r{z6r-z4r}..
+z3l{down}..z2l{dir221}--z2r &
+cycle;
+penstroke z4e--z6e;
+penstroke z10e--z9e;
+penstroke z7e--z8e;
+.endchar;
+
+.cmchar "The Schwabacher ligature sz";
+.beginchar(oct"247",7.9u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#);
+w:=6.038u;
+boolean isitf; isitf:=false; long_s;
+penpos10(hair,-41);
+penpos9(hair,-41);
+penpos8(1.154stem,49);
+penpos7(1.14stem,49);
+penpos6(hair,-41);
+x6l=w+0.5u; y6r=y1.11l;
+z9=whatever[z6l,z6r];
+z10=(x1.1,0.6x_height);
+z8r=z9l; z9l-z10l=whatever*dir49;
+z7r=z6l; penpos4(hair,-41);
+z6-z4=whatever*dir49; y4=0.324x_height;
+z5=whatever[z4r,z6r]; x5=x1.11+0.5u;
+penpos3(0.731stem,35); z3r=(w+0.5u,0.27x_height);
+penpos2(hair,-49); z2=(0.556w,-0.541d);
+filldraw z2r{dir41}..z3r{up}..
+z5{z9-z6}--z4l--z4r{z6r-z4r}..
+z3l{down}..z2l{dir221}--z2r &
+cycle;
+penstroke z4e--z6e;
+penstroke z10e--z9e;
+penstroke z7e--z8e;
+.endchar;
+
+.cmchar "The Schwabacher ligature st";
+.beginchar(oct"202",8.338u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#);
+boolean isitf; isitf:=false;
+numeric w',h',d';
+w':=6.038u; h':=1.414x_height;
+d':=3.208u;
+penpos1.1(2/3hair,0);
+z1.1=(0.313w',-d');
+penpos1.2(1.283stem,0);
+z1.2=(0.344w',0.589h');
+penpos1.4(hair,90);
+z1.4l=(0,y1.2-1/3stem);
+z1.3=(z1.1l..{dir92.5}z1.2l)
+intersectionpoint
+((0,y1.4l)--(w',y1.4l));
+z1.5=(0.35w',0.761h');
+penpos1.6(0.957stem,-118);
+z1.6l=(0.669w',h');
+penpos1.7(1.174stem,-125);
+z1.7l=(w',0.962h'); penpos1.8(hair,-35);
+z1.8r=z1.7l; z1.9-z1.8l=whatever*(z1.7l-z1.7r);
+x1.9=0.9w';
+penpos1.11(2/3stem,-90); y1.11=y1.2;
+x1.11=0.763w';
+penpos1.12(2/3stem,-90); z1.12=z1.2;
+filldraw z1.1r..z1.2r{dir87} &
+z1.2r{dir126}..z1.5{up}..z1.6r{right}
+--z1.6l{left}..
+z1.4r{dir218}--z1.4l{right}--
+z1.3{dir272.5}..z1.1l--z1.1r & cycle;
+if isitf: filldraw z1.11r--z1.12r--
+z1.12l--z1.5{down}...(x1.2r,y1.11l){right}
+---z1.11l--z1.11r & cycle; fi
+w':=4.2u; h':=1.27x_height;
+penpos1(1.152stem,35);
+penpos2(1.152stem,35);
+z0=(x1.6l-hair,0);
+x2l=x0+hair; z1l=(x0+1.826stem,-apex_o);
+z2-z1=whatever*dir148;
+penpos3(hair,-55); penpos4(hair,-55);
+z3r=z1; z4r=whatever[z1l,z1r];
+x4r=x0+w';
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+%
+%
+%
+penpos5(stem,0); z5r=(x1l-apex_o,y2l);
+penpos6(stem,0); z6=(x5,0.811x_height);
+penpos7(0.826stem,-90);
+z7r=(x0+w',y6); z8=(x0,y6); z9=(x6r,h');
+filldraw z5l--z6l--z8--z9--(x9,y7l)
+--z7l--z7r--z6r--z5r--z5l & cycle;
+%
+%
+%
+penpos20(hair,angle(z9-z8));
+z20r=z9; penpos21(stem,angle(z9-z8));
+z21r=z20l;
+filldraw z1.6l{right}..z21r--z21l
+..z1.6r{left}--z1.6l & cycle;
+.endchar;
+
+def long_ss (expr xx) = numeric w',h',d';
+w':=6.038u; h':=1.414x_height;
+d':=3.208u;
+penpos1.1(2/3hair,0);
+z1.1=(xx+0.313w',-d');
+penpos1.2(1.283stem,0);
+z1.2=(xx+0.344w',0.589h');
+penpos1.4(hair,90);
+z1.4l=(xx,y1.2-1/3stem);
+z1.3=(z1.1l..{dir92.5}z1.2l)
+intersectionpoint
+((0,y1.4l)--(w',y1.4l));
+z1.5=(xx+0.35w',0.761h');
+penpos1.6(0.957stem,-118);
+z1.6l=(xx+0.669w',h');
+penpos1.7(1.174stem,-125);
+z1.7l=(xx+w',0.962h'); penpos1.8(hair,-35);
+z1.8r=z1.7l; z1.9-z1.8l=whatever*(z1.7l-z1.7r);
+x1.9=xx+0.9w';
+penpos1.11(2/3stem,-90); y1.11=y1.2;
+x1.11=xx+0.763w';
+penpos1.12(2/3stem,-90); z1.12=z1.2;
+filldraw z1.1r..z1.2r{dir87} &
+z1.2r{dir126}..z1.5{up}..z1.6r{right}
+..z1.7r{right}--z1.8r--z1.8l--z1.9
+& z1.9{left}..z1.6l{left}..
+z1.4r{dir218}--z1.4l{right}--
+z1.3{dir272.5}..z1.1l--z1.1r & cycle;
+if isitf: filldraw z1.11r--z1.12r--
+z1.12l--z1.5{down}...(x1.2r,y1.11l){right}
+---z1.11l--z1.11r & cycle; fi
+enddef;
+
+.cmchar "The Schwabacher ligature ss";
+.beginchar(oct"201",9.738u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#-2.33u#);
+boolean isitf; isitf:=false;
+numeric w',h',d'; w':=6.038u;
+h':=1.414x_height; d':=3.208u;
+penpos1.1'(2/3hair,0);
+z1.1'=(0.313w',-d');
+penpos1.2'(1.283stem,0);
+z1.2'=(0.344w',0.589h');
+penpos1.4'(hair,90);
+z1.4'l=(0,y1.2'-1/3stem);
+z1.3'=(z1.1'l..{dir92.5}z1.2'l)
+intersectionpoint
+((0,y1.4'l)--(w',y1.4'l));
+z1.5'=(0.35w',0.761h');
+penpos1.6'(0.957stem,-118);
+z1.6'l=(0.669w',h');
+penpos1.7'(1.174stem,-125);
+z1.7'l=(w',0.962h'); penpos1.8'(hair,-35);
+z1.8'r=z1.7'l; z1.9'-z1.8'l=whatever*(z1.7'l-z1.7'r);
+x1.9'=0.9w';
+penpos1.11'(2/3stem,-90); y1.11'=y1.2';
+x1.11'=0.763w';
+penpos1.12'(2/3stem,-90); z1.12'=z1.2';
+filldraw z1.1'r..z1.2'r{dir87} &
+z1.2'r{dir126}..z1.5'{up}..z1.6'r{right}
+--z1.6'l{left}..
+z1.4'r{dir218}--z1.4'l{right}--
+z1.3'{dir272.5}..z1.1'l--z1.1'r & cycle;
+if isitf: filldraw z1.11'r--z1.12'r--
+z1.12'l--z1.5'{down}...(x1.2'r,y1.11'l){right}
+---z1.11'l--z1.11'r & cycle; fi
+long_ss(x1.11'-2hair);
+%
+%
+%
+z7=(z1.4r{dir38}..z1.6l{right})
+intersectionpoint ((0,y1.7r)--
+(w,y1.7r));
+penpos8(stem,-125); z8r=z7;
+penstroke z1.6'e{right}..z8e;
+.endchar;
+
+.cmchar "The Schwabacher ligature sf";
+.beginchar(oct"203",9.738u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#-1.12u#);
+boolean isitf; isitf:=false;
+numeric w',h',d'; w':=6.038u;
+h':=1.414x_height; d':=3.208u;
+penpos1.1'(2/3hair,0);
+z1.1'=(0.313w',-d');
+penpos1.2'(1.283stem,0);
+z1.2'=(0.344w',0.589h');
+penpos1.4'(hair,90);
+z1.4'l=(0,y1.2'-1/3stem);
+z1.3'=(z1.1'l..{dir92.5}z1.2'l)
+intersectionpoint
+((0,y1.4'l)--(w',y1.4'l));
+z1.5'=(0.35w',0.761h');
+penpos1.6'(0.957stem,-118);
+z1.6'l=(0.669w',h');
+penpos1.7'(1.174stem,-125);
+z1.7'l=(w',0.962h'); penpos1.8'(hair,-35);
+z1.8'r=z1.7'l; z1.9'-z1.8'l=whatever*(z1.7'l-z1.7'r);
+x1.9'=0.9w';
+penpos1.11'(2/3stem,-90); y1.11'=y1.2';
+x1.11'=0.763w';
+penpos1.12'(2/3stem,-90); z1.12'=z1.2';
+filldraw z1.1'r..z1.2'r{dir87} &
+z1.2'r{dir126}..z1.5'{up}..z1.6'r{right}
+--z1.6'l{left}..
+z1.4'r{dir218}--z1.4'l{right}--
+z1.3'{dir272.5}..z1.1'l--z1.1'r & cycle;
+if isitf: filldraw z1.11'r--z1.12'r--
+z1.12'l--z1.5'{down}...(x1.2'r,y1.11'l){right}
+---z1.11'l--z1.11'r & cycle; fi
+isitf:=true;
+long_ss(x1.11'-2hair);
+%
+%
+%
+z7=(z1.4r{dir38}..z1.6l{right})
+intersectionpoint ((0,y1.7r)--
+(w,y1.7r));
+penpos8(stem,-125); z8r=z7;
+penstroke z1.6'e{right}..z8e;
+.endchar;
+
+.cmchar "The Schwabacher ligature ff";
+.beginchar(oct"204",9.738u#,1.414x_height#,3.208u#);
+.adjust_fit(usual_left#,usual_right#-1.12u#);
+boolean isitf; isitf:=true;
+numeric w',h',d'; w':=6.038u;
+h':=1.414x_height; d':=3.208u;
+penpos1.1'(2/3hair,0);
+z1.1'=(0.313w',-d');
+penpos1.2'(1.283stem,0);
+z1.2'=(0.344w',0.589h');
+penpos1.4'(hair,90);
+z1.4'l=(0,y1.2'-1/3stem);
+z1.3'=(z1.1'l..{dir92.5}z1.2'l)
+intersectionpoint
+((0,y1.4'l)--(w',y1.4'l));
+z1.5'=(0.35w',0.761h');
+penpos1.6'(0.957stem,-118);
+z1.6'l=(0.669w',h');
+penpos1.7'(1.174stem,-125);
+z1.7'l=(w',0.962h'); penpos1.8'(hair,-35);
+z1.8'r=z1.7'l; z1.9'-z1.8'l=whatever*(z1.7'l-z1.7'r);
+x1.9'=0.9w';
+penpos1.11'(2/3stem,-90); y1.11'=y1.2';
+x1.11'=0.763w';
+penpos1.12'(2/3stem,-90); z1.12'=z1.2';
+filldraw z1.1'r..z1.2'r{dir87} &
+z1.2'r{dir126}..z1.5'{up}..z1.6'r{right}
+--z1.6'l{left}..
+z1.4'r{dir218}--z1.4'l{right}--
+z1.3'{dir272.5}..z1.1'l--z1.1'r & cycle;
+if isitf: filldraw z1.11'r--z1.12'r--
+z1.12'l--z1.5'{down}...(x1.2'r,y1.11'l){right}
+---z1.11'l--z1.11'r & cycle; fi
+long_ss(x1.11'-2hair);
+%
+%
+%
+z7=(z1.4r{dir38}..z1.6l{right})
+intersectionpoint ((0,y1.7r)--
+(w,y1.7r));
+penpos8(stem,-125); z8r=z7;
+penstroke z1.6'e{right}..z8e;
+.endchar;
+
+.cmchar "The Schwabacher semicolon";
+.beginchar(":",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+penstroke z5e--z6e;
+.endchar;
+
+.cmchar "The Schwabacher point";
+.beginchar(".",5u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.23570*(x_height+2apex_o),45);
+penpos2(0.23570*(x_height+2apex_o),45);
+penpos3(0.23570*(x_height+2apex_o),45);
+penpos4(0.23570*(x_height+2apex_o),45);
+penpos5(0.23570*(x_height+2apex_o),45);
+penpos6(0.23570*(x_height+2apex_o),45);
+x1l=x3l=x5l=0.5w;
+z2r=z3l; z4r=z5l;
+z2-z1=whatever*dir135;
+z4-z3=whatever*dir135;
+z6-z5=whatever*dir135;
+y1l=-apex_o; y6r=x_height+apex_o;
+penstroke z1e--z2e;
+.endchar;
+
+.cmchar "Grave accent";
+.beginchar(oct"022",9u#,min(asc_height#,2x_height#),0);
+.adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1-.5stem=hround 2u; x2=2/3[x1,w-x1];
+ y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ lft x1l=hround 1.5u; rt x2r=hround(.5w+.25u+.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Acute accent";
+.beginchar(oct"023",9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant-if serifs: 1.5 fi u#;
+.adjust_fit(0,0);
+if serifs: pickup crisp.nib; x1+.5stem=hround(w-2u); x2=2/3[x1,w-x1];
+ y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ filldraw circ_stroke z1e--z2e; % diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ rt x1r=hround(w-1.5u); lft x2l=hround(.5w-.25u-.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Hachek (check) accent";
+.beginchar(oct"024",9u#,.75[x_height#,min(asc_height#,2x_height#)],0);
+h':=vround min(asc_height,2x_height); % height of circumflex being inverted
+if serifs: italcorr h#*slant+.5hair#-1.75u#;
+ .adjust_fit(0,0);
+ pickup crisp.nib; pos2'(.5[vair,curve],90); top y2'r=h;
+ pos2(.5[vair,curve],90); x2=.5w;
+ x1=w-x3=good.x 2.25u; top y1=top y3=h; y1-y2=.5(y2'-x_height);
+ pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90);
+ filldraw stroke z1e--z2e--z3e; % diagonals
+else: italcorr h#*slant-.5stem#+.5vair#-.75u#;
+ .adjust_fit(0,0);
+ pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3;
+ pos2(stem,0); bot y2=vround(1/12[x_height,h']+o); x2=.5w;
+ top y1=top y3=h+o; lft x1l=hround(rt x2r-3.25u-.5vair);
+ z0=whatever[z1r,z2r]=whatever[z2l,z3l];
+ y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l;
+ filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi % diagonals
+penlabels(0,1,2,3,4); .endchar;
+
+.cmchar "Breve accent";
+.beginchar(oct"025",9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant+.5vair#-1.5u#;
+.adjust_fit(0,0);
+pickup crisp.nib; pos1(vair,-180); pos3(vair,0);
+top y1=top y3=h; lft x1r=w-rt x3r=hround(2u-.5vair);
+numeric mid_thickness; mid_thickness=vround 1/3[vair,stem];
+pos2(mid_thickness,-90); x2=.5w;
+bot y2r=vround max(x_height+o+tiny,1/3[x_height,h]+o-.5mid_thickness);
+filldraw stroke z1e{down}...z2e{right}...{up}z3e; % stroke
+penlabels(1,2,3); .endchar;
+
+.cmchar "Macron (bar) accent";
+numeric macron_breadth#; macron_breadth#=.2[vair#,stem#];
+.beginchar(oct"026",9u#,.4[x_height#,asc_height#]+macron_breadth#,0);
+italcorr h#*slant-.75u#;
+.adjust_fit(0,0);
+numeric macron_breadth; macron_breadth:=Vround .2[vair,stem];
+pickup if serifs: crisp.nib else: fine.nib fi;
+pos1(macron_breadth,90); pos2(macron_breadth,90);
+top y1r=top y2r=h+o; lft x1=w-rt x2=hround 1.25u;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Scandinavian circle accent";
+.beginchar(oct"027",9u#,cap_height#,0);
+.adjust_fit(0,0);
+penpos0.1(2u,45); z0.1=z0=(0.5w,1.283x_height);
+pickup pensquare yscaled 0.5hair xscaled 0.3[hair,stem] rotated 30;
+z0.2=z0.1r; z0.3=z0.1l; rt x0.4=rt x0.2; top y0.4=y0;
+draw z0.2..z0.3..z0.2;
+penlabels(1,2,3,4); .endchar;
+
+def par_s(suffix $) =
+h':=cap_height; w':=0.379h';
+z$.1=z$+(0.5w',0.5h');
+penpos$.1(stem,30);
+penpos$.2(2hair,0);
+penpos$.3(hair,-90);
+penpos$.4(hair,180);
+penpos$.5(hair,90);
+z$.2l=z$+(0,0.8h'); z$.3l=(x$.1,y$+h');
+z$.4=z$+(0.84w',0.886h');
+z$.5=(x$.4r,y$+0.826h');
+penstroke z$.2e{up}..z$.3e
+{right} if panw: ..z$.4e{down}..z$.5e{left} fi;
+penpos$.6(2hair,90); z$.6l=z$.5l;
+if panw:
+filldraw z$.6r..z$.6l..z$.6r & cycle;
+fi
+penpos$.1'(stem,-150);
+penpos$.2'(2hair,180);
+penpos$.3'(hair,90);
+penpos$.4'(hair,0);
+penpos$.5'(hair,-90);
+z$.1=z$.1';
+z$.2'r=z$+(w',0.2h'); z$.3'r=(x$.1,y$);
+z$.4'=z$+(0.16w',0.114h');
+z$.5'=(x$.4'r,y$+0.174h');
+penpos$.2''(2hair,0); z$.2''=z$.2';
+z$.25=(z$.2''{up}..z$.2{up})
+intersectionpoint (z$+(0,0.5h')--
+z$+(w',0.5h'));
+penpos$.25(stem,30);
+penstroke z$.2''e{up}..z$.25e..
+z$.2e{up};
+penstroke z$.2'e{down}..z$.3'e
+{left} if katw: ..z$.4'e{up}..z$.5'e{right} fi;
+penpos$.6'(2hair,-90); z$.6'l=z$.5'l;
+if katw:
+filldraw z$.6'r..z$.6'l..z$.6'r & cycle;
+fi
+enddef;
+
+.cmchar "The Fraktur paragraph sign";
+.beginchar(oct"074",7.4u#,cap_height#,3.167u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+boolean panw, katw;
+panw:=true; katw:=false;
+z0=(0.17h,0); par_s(0);
+panw:=false; katw:=true;
+z1=(0,-0.3h); par_s(1);
+.endchar;
+
+.cmchar "The Fraktur paragraph sign";
+.beginchar(oct"244",7.4u#,cap_height#,3.167u#);
+.adjust_fit(0.05alpha*w#+usual_left#,0.05alpha*w#+usual_right#);
+boolean panw, katw;
+panw:=true; katw:=false;
+z0=(0.17h,0); par_s(0);
+panw:=false; katw:=true;
+z1=(0,-0.3h); par_s(1);
+.endchar;
+
+.cmchar "Cedilla accent";
+.beginchar(oct"030",8u#,0,.875desc_depth#);
+.adjust_fit(0,0);
+x1=.5w+.5u;
+if serifs: pickup crisp.nib; pos1(eps,0); pos2(stem,0);
+ pos3(vair,90); pos4(stem,0); pos5(vair,-90);
+ x1=x2; z3l=z2l; x4=x2+1.5u; x5=x3-1.5u;
+ bot y1=-o; bot y2=-vround 2/7d-o; y4=.5[y3,y5]; bot y5=-d-o;
+ filldraw stroke z1e--z2e; % stem
+ filldraw stroke z3e{right}...z4e{down}...{left}z5e; % hook
+else: pickup fine.nib; pos1(vair,0); top y1=-o-2;
+ pos2(.5[vair,stem],0); bot y2=-d-o; x2=x1-1.25u;
+ filldraw stroke z1e--z2e; fi % diagonal
+penlabels(1,2,3,4,5); .endchar;
+
+.cmchar "Circumflex (hat) accent";
+.beginchar(oct"136",9u#,min(asc_height#,2x_height#),0);
+if serifs: italcorr .5[x_height#,h#]*slant+.5hair#-1.75u#;
+ .adjust_fit(0,0);
+ pickup crisp.nib; pos2(.5[vair,curve],90); top y2r=h; x2=.5w;
+ x1=w-x3=good.x 2.25u; y1=y3=.5[x_height,y2];
+ pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90);
+ filldraw stroke z1e--z2e--z3e; % diagonals
+else: italcorr 2/3[x_height#,h#]*slant-.5stem#+.5vair#-.75u#;
+ .adjust_fit(0,0);
+ pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3;
+ pos2(stem,0); top y2=h; x2=.5w; bot y1=bot y3=vround 2/3[h,x_height]-eps;
+ lft x1l=hround(rt x2r-3.25u-.5vair); % same slope as in the acute accent
+ z0=whatever[z1r,z2r]=whatever[z2l,z3l];
+ y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l;
+ filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi % diagonals
+penlabels(0,1,2,3,4); .endchar;
+
+iff ligs>0: .cmchar "Dot accent";
+numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
+.beginchar(oct"137",5u#,min(asc_height#,10/7x_height#+.5dot_diam#),0);
+define_whole_blacker_pixels(dot_diam);
+italcorr h#*slant+.5dot_diam#-2u#;
+.adjust_fit(0,0);
+pickup tiny.nib; pos1(dot_diam,0); pos2(dot_diam,90);
+x1=x2=.5w; top y2r=h+1;
+if bot y2l<x_height+o+slab: y2l:=min(y2r-eps,x_height+o+slab+.5tiny); fi
+y1=.5[y2l,y2r]; dot(1,2); % dot
+penlabels(1,2); .endchar;
+
+iff ligs>0: .cmchar "Long Hungarian umlaut accent";
+.beginchar(oct"175",9u#,min(asc_height#,2x_height#),0);
+italcorr h#*slant-u#;
+.adjust_fit(0,0);
+x3-x1=x4-x2=hround 3u; y3=y1; y4=y2;
+if serifs: pickup crisp.nib; x3+.5stem=hround(w-1.5u); x2=2.5u;
+ y1+.5stem=h; y2=max(2/3[h,x_height],x_height+o+hair);
+ numeric theta; theta=angle(z2-z1)+90;
+ pos1(stem,theta); pos2(hair,theta);
+ pos3(stem,theta); pos4(hair,theta);
+ filldraw circ_stroke z1e--z2e; % left diagonal
+ filldraw circ_stroke z3e--z4e; % right diagonal
+else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
+ pos3(stem,0); pos4(vair,0);
+ rt x3r=hround(w-1.5u); lft x4l=hround(.5w+u-.5vair);
+ top y1=h; bot y2=vround 2/3[h,x_height];
+ filldraw stroke z1e--z2e; % left diagonal
+ filldraw stroke z3e--z4e; fi % right diagonal
+penlabels(1,2,3,4); .endchar;
+
+.cmchar "Tilde (squiggle) accent";
+.beginchar(oct"176",9u#,min(asc_height#,10/7x_height#+.5dot_size#),0);
+italcorr h#*slant-u#;
+.adjust_fit(0,0);
+if serifs: numeric theta; theta=angle(1/6(6u-vair),1/4(h-x_height));
+ pickup crisp.nib; numeric mid_width; mid_width=.4[vair,stem];
+ pos1(vair,theta+90); pos2(vair,theta+90);
+ pos3(vair,theta+90); pos4(vair,theta+90);
+ z2-z1=z4-z3=(mid_width-crisp)*dir theta;
+ lft x1r=w-rt x4l=hround 1.5u; top y4r=h;
+ bot y1l=vround(bot y1l+min(2/3[x_height,h],y3l-.25vair)-top y1r);
+ pair delta; ypart delta=3(y3l-y1l); delta=whatever*dir theta;
+ filldraw z1l..controls(z1l+delta)and(z3l-delta)..z3l..z4l
+ --z4r..controls(z4r-delta)and(z2r+delta)..z2r..z1r--cycle; % stroke
+else: pickup fine.nib; pos1(vair,180); pos2(vair,90);
+ pos3(.5[vair,slab],90); pos4(vair,90); pos5(vair,180);
+ lft x1r=w-rt x5l=hround 1.5u; x2-x1=x3-x2=x4-x3=x5-x4;
+ bot y1=bot y4l=vround(.75[x_height,h]-vair);
+ top y2r=top y5=h; y3=.5[y2,y4];
+ filldraw stroke z1e{up}...z2e{right}..z3e..{right}z4e...{up}z5e; fi % stroke
+penlabels(1,2,3,4,5); .endchar;
+
+.cmchar "The Schwabacher hyphen";
+.beginchar(oct"055",4u#,x_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(2hair,-90);
+penpos2(2hair,-90);
+penpos3(2hair,-90);
+penpos4(2hair,-90); penpos5(2hair,-90);
+z2-z1=whatever*dir35;
+z4-z3=whatever*dir35;
+z3r=z5l; z5r=z1l; x1=0;
+x2=x4=w;
+y1r=foot;
+penstroke z1e--z2e;
+penstroke z3e--z4e;
+.endchar;
+
+.cmchar "Opening Gaensefuesschen";
+.beginchar(oct"134",7u#+max(2u#,dot_size#),asc_height#,0);
+italcorr asc_height#*slant+dot_size#-4.1u#;
+.adjust_fit(0,0);
+x2+.5dot_size=hround(w-.6u); y2-.5dot_size=0;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+comma(1,a,dot_size,.25u,comma_depth); % left dot and tail
+comma(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2); .endchar;
+
+
+.cmchar "Closing Gaensefuesschen";
+.beginchar(oct"042",7u#+max(2u#,dot_size#),asc_height#,0);
+italcorr asc_height#*slant-.1u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround .6u;
+ y1+.5dot_size=h-comma_depth;
+x2-x1=hround(1.5u+max(2u,dot_size)); y2=y1;
+ammoc(1,a,dot_size,.25u,comma_depth); % left dot and tail
+ammoc(2,b,dot_size,.25u,comma_depth); % right dot and tail
+penlabels(1,2);
+.endchar;
+
+.cmchar "En dash";
+.beginchar(oct"173",9u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(0,0);
+pickup crisp.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Em dash";
+.beginchar(oct"174",18u#,x_height#,0);
+italcorr .61803x_height#*slant+.5u#;
+.adjust_fit(letter_fit#,letter_fit#);
+pickup crisp.nib; pos1(vair,90); pos2(vair,90);
+top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps;
+filldraw stroke z1e--z2e; % bar
+penlabels(1,2); .endchar;
+
+.cmchar "Hash mark (number sign)";
+if monospace: compute_spread(.6x_height#,.7x_height#);
+else: compute_spread(.45x_height#,.55x_height#); fi
+.beginchar("#",15u#,asc_height#,asc_depth#);
+italcorr (math_axis#+.5(spread#+rule_thickness#))*slant-.5u#;
+.adjust_fit(0,0);
+pickup rule.nib; lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
+y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
+draw z1--z2; % upper bar
+draw z3--z4; % lower bar
+lft x6=hround 3u; rt x7=hround(w-3u); x5-x6=x7-x8;
+x8=good.x if monospace: .6 else: .5 fi\\w;
+top y5=top y7=h+eps; bot y6=bot y8=-d-eps;
+y15=y1; z15=whatever[z5,z6]; y36=y3; z36=whatever[z5,z6];
+y27=y2; z27=whatever[z7,z8]; y48=y4; z48=whatever[z7,z8];
+draw z5--if x5>x6+1:(good.x(x15+.5),y1)--(good.x(x15-.5),y1)
+ --(good.x(x36+.5),y3)--(good.x(x36-.5),y3)--fi\\z6; % left diagonal
+draw z7--if x7>x8+1:(good.x(x27+.5),y2)--(good.x(x27-.5),y2)
+ --(good.x(x48+.5),y4)--(good.x(x48-.5),y4)--fi\\z8; % right diagonal
+labels(1,2,3,4,5,6,7,8,15,27,36,48); .endchar;
+
+.cmchar "Per cent sign";
+.beginchar("%",9u#+max(6u#,2fudge*(hair#+stem#)),
+ body_height#,body_height#-asc_height#);
+italcorr if hefty: .4asc_height#*slant-.5u# else: h#*slant-u# fi;
+.adjust_fit(0,0); pickup fine.nib;
+numeric left_curve,right_curve;
+left_curve=hround 5/6[fudged.hair,fudged.stem];
+right_curve=max(fine.breadth,hround(fudged.hair if hefty:-2stem_corr fi));
+pos1(vair,90); pos2(left_curve,180); pos3(vair,270); pos4(right_curve,360);
+top y1r=h; lft x2r=hround u; rt x4r=hround(.5w-1.5u);
+bot y3r=floor(if monospace: .7 else: .5 fi\\ asc_height);
+x1=x3=.5[x2,x4]; y2=y4=.5[y1,y3];
+filldraw stroke pulled_super_arc.e(1,2)(superpull)
+ & pulled_super_arc.e(2,3)(superpull); % left half of upper bowl
+filldraw stroke super_arc.e(3,4) & super_arc.e(4,1); % right half of upper bowl
+pos5(vair,90); pos6(left_curve,180); pos7(vair,270); pos8(right_curve,360);
+bot y7r=-d; rt x8r=hround(w-u); lft x6r=hround(.5w+1.5u);
+top y5r=vround(if monospace: .3 else: .5 fi\\ asc_height);
+x5=x7=.5[x6,x8]; y6=y8=.5[y5,y7];
+filldraw stroke pulled_super_arc.e(5,6)(superpull)
+ & pulled_super_arc.e(6,7)(superpull); % left half of lower bowl
+filldraw stroke super_arc.e(7,8) & super_arc.e(8,5); % right half of lower bowl
+pickup rule.nib; top y9=h; bot y10=-d;
+if hefty: x9=good.x(x5-eps); x10=good.x(x1+eps);
+ draw z9--z10; % diagonal
+else: rt x9=hround(w-2.5u); lft x10=hround 2.5u; draw z9--z10; % diagonal
+ pickup fine.nib; pos9(rule_thickness,angle(z9-z10)+90);
+ pos11(vair,angle(z1r-z4r)-90); pos12(vair,angle(z9-z10)+90);
+ path p; p=super_arc.r(1,4); z11r=point 2/3 of p; z12r=z9r;
+ filldraw stroke z11e{direction 2/3 of p}...{z9-z10}z12e; fi % link
+penlabels(1,2,3,4,5,6,7,8,9,10,11,12); .endchar;
+
+.cmchar "Apostrophe";
+.beginchar("'",5u#,asc_height#,0);
+italcorr asc_height#*slant+.5dot_size#-2u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround(.5w-.5dot_size); y1+.5dot_size=h;
+if monospace: comma(1,a,dot_size,.28u,vround 1.5comma_depth); % large comma
+else: comma(1,a,dot_size,.25u,comma_depth); fi % comma with increased jut
+penlabels(1); .endchar;
+
+.cmchar "Left parenthesis";
+.beginchar("(",7u# if monospace: -u# fi,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+rt x1r=rt x3r=hround(w-u); lft x2l=hround(x1-4u if monospace: +4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Right parenthesis";
+.beginchar(")",7u# if monospace: -u# fi,body_height#,paren_depth#);
+italcorr math_axis#*slant-.5u#;
+.adjust_fit(0,0); pickup fine.nib;
+pos1(vair,0); pos2(.75[hair,stem],0); pos3(vair,0);
+lft x1l=lft x3l=hround u; rt x2r=hround(x1+4u if monospace: -4/3u fi);
+top y1=h; y2=.5[y1,y3]=math_axis;
+filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e
+ ...{3(x3e-x2e),y3-y2}z3e; % arc
+penlabels(1,2,3); .endchar;
+
+.cmchar "Asterisk";
+.beginchar("*",9u#,
+ if low_asterisk:math_axis#+.5x_height# else: body_height# fi,0);
+italcorr h#*slant-.75u#;
+.adjust_fit(0,0);
+numeric ast_flare; ast_flare=hround .7[thin_join,stem];
+x0=.5w; y0=h-.5x_height;
+for d=-150 step 60 until 150: z[d]=z0+.5dir d xscaled 7.5u yscaled x_height;
+ numeric theta; theta=angle(z[d]-z0);
+ fill z0+.5(0,-thin_join)rotated theta
+ ---z[d]+.5(-ast_flare,-ast_flare)rotated theta
+ ..z[d]..z[d]+.5(-ast_flare,ast_flare)rotated theta
+ ---z0+.5(0,thin_join)rotated theta--cycle; endfor % diagonal at angle |d|
+labels(0,[-150],[-90],[-30],30,90,150); .endchar;
+
+.cmchar "Plus sign";
+beginarithchar("+"); pickup rule.nib;
+x1=x2=good.x .5w; top y1=h+eps; .5[y1,y2]=math_axis;
+lft x3=hround u-eps; x4=w-x3; y3=y4=math_axis;
+draw z1--z2; % stem
+draw z3--z4; % crossbar
+labels(1,2,3,4); .endchar;
+
+.cmchar "Virgule (slash)";
+.beginchar("/",9u#,body_height#,paren_depth#);
+italcorr body_height#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+rt x1=hround(w-u)+eps; top y1=h+eps;
+lft x2=hround u-eps; bot y2=-d-eps;
+draw z1--z2; % diagonal
+penlabels(1,2); .endchar;
+
+.cmchar "Equals sign";
+compute_spread(.45x_height#,.55x_height#);
+.beginchar("=",14u#,v_center(spread#+rule_thickness#));
+italcorr h#*slant-.5u#;
+.adjust_fit(0,0); pickup rule.nib;
+lft x1=hround u-eps; x3=x1; x2=x4=w-x1;
+y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis;
+draw z1--z2; % upper bar
+draw z3--z4; % lower bar
+labels(1,2,3,4); .endchar;
+
+.cmchar "Left bracket";
+numeric wd#; wd#=max(5u#,4.5u#+.5if hefty:stem# else:rule_thickness# fi);
+.beginchar("[",wd#,body_height#,paren_depth#);
+italcorr body_height#*slant;
+.adjust_fit(0,0);
+numeric top_thickness,side_thickness;
+if hefty: top_thickness=vair;
+ side_thickness=max(crisp.breadth,stem-2stem_corr);
+else: top_thickness=side_thickness=rule_thickness; fi;
+pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0);
+top y1=h; bot y2=-d; lft x1l=lft x2l=hround(2.5u-.5side_thickness)-1-eps;
+filldraw stroke z1e--z2e; % stem
+pos3(top_thickness,90); pos4(top_thickness,90);
+pos5(top_thickness,90); pos6(top_thickness,90);
+x3=x5=x1l; rt x4=rt x6=ceiling(w-.4u)+eps; y3r=y4r=y1; y5l=y6l=y2;
+filldraw stroke z3e--z4e; % upper bar
+filldraw stroke z5e--z6e; % lower bar
+penlabels(1,2,3,4,5,6); .endchar;
+
+.cmchar "Right bracket";
+numeric wd#; wd#=max(5u#,4.5u#+.5if hefty:stem# else:rule_thickness# fi);
+.beginchar("]",wd#,body_height#,paren_depth#);
+italcorr body_height#*slant-2u#+.5if hefty:stem# else:rule_thickness# fi;
+.adjust_fit(0,0);
+numeric top_thickness,side_thickness;
+if hefty: top_thickness=vair;
+ side_thickness=max(crisp.breadth,stem-2stem_corr);
+else: top_thickness=side_thickness=rule_thickness; fi;
+pickup crisp.nib; pos1(side_thickness,0); pos2(side_thickness,0);
+top y1=h; bot y2=-d; rt x1r=rt x2r=hround(w-2.5u+.5side_thickness)+1+eps;
+filldraw stroke z1e--z2e; % stem
+pos3(top_thickness,90); pos4(top_thickness,90);
+pos5(top_thickness,90); pos6(top_thickness,90);
+x3=x5=x1r; lft x4=lft x6=floor .4u-eps; y3r=y4r=y1; y5l=y6l=y2;
+filldraw stroke z3e--z4e; % upper bar
+filldraw stroke z5e--z6e; % lower bar
+penlabels(1,2,3,4,5,6); .endchar;
+
+.cmchar "Reverse apostrophe";
+.beginchar("`",5u#,asc_height#,0);
+italcorr asc_height#*slant+.5dot_size#-2u#;
+.adjust_fit(0,0);
+x1-.5dot_size=hround(.5w-.5dot_size); y1+.5dot_size=h-comma_depth;
+if monospace: ammoc(1,a,dot_size,.28u,vround 1.5comma_depth); % large ammoc
+else: ammoc(1,a,dot_size,.25u,comma_depth); fi % normal ammoc
+penlabels(1); .endchar;
+
diff --git a/fonts/gothic/yswab/yswabnum.mf b/fonts/gothic/yswab/yswabnum.mf
new file mode 100644
index 0000000000..d79136dd70
--- /dev/null
+++ b/fonts/gothic/yswab/yswabnum.mf
@@ -0,0 +1,288 @@
+.cmchar "The Schwabacher numeral 0";
+.beginchar("0",8.377u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.107cap_stem,47);
+z1l=(0.432w,-apex_o);
+penpos5(0.946cap_stem,33);
+z5l=(0,0.475h); z7=(0.365w,0.85h);
+penpos2(whatever,52.5); z2r=(0.55w,h+apex_o);
+penpos7(cap_hair,-47);
+z2l=whatever[z7l,z7r];
+penpos4(cap_hair,-37.5); z4l=z2;
+penstroke z1e{dir137}..z5e{up}..
+z7e..z4e{dir52.5};
+%
+%
+%
+penpos3(cap_hair,-64);
+penpos6(0.893cap_stem,28);
+z1r=2/3[z3l,z3r]; z6r=(w,0.529h);
+filldraw z1l{z1r-z1l}..
+%z3r{dir26}..
+z6r{up}..
+z2r{dir133}--z2l{dir-24}..z6l{down}
+..z3l{dir206}--(x1,y3l)--z1l
+& cycle;
+.endchar;
+
+.cmchar "The Schwabacher numeral 1";
+.beginchar("1",5.509u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-58); x1l=0;
+y1r=-apex_o; penpos2(cap_hair,60);
+z2=(0.932w,0.171h);
+penpos3(0.93cap_stem,0);
+penpos4(0.93cap_stem,0);
+x3=x4=0.589w; y3=0.354h; y4=0.823h;
+penpos5(cap_hair,-90);
+penpos6(cap_hair,-90);
+z6l=(w,h+apex_o); z5l=(0.301w,0.951h);
+filldraw z1r{dir32}..z2l{dir-30} &
+z2l--z2r{dir150}...z3r---z4r...
+z6r--z6l--z5l--z5r...z4l---
+z3l...z1l{dir212}--z1r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher numeral 2";
+.beginchar("2",8.415u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-45); z2=(0.359w,h-apex_o);
+x1l=0; z2-z1l=whatever*dir48;
+z3=whatever[z1l,z2]; y3=h+apex_o;
+penpos5(1.154cap_stem,27);
+z5=(0.789w,0.607h);
+z4=(0.323w,0.768h);
+filldraw z5r{up}..z2{dir149}--
+z1l--z1r{z2-z1l}..z4..z5l{down}
+& z5l--z5r & cycle;
+z3'=(z5r{up}..z2{dir149})
+intersectionpoint ((0,0.963h)--
+(w,0.963h));
+filldraw z3'{dir149}..z3{up} &
+z3--z1l--z3' & cycle;
+%
+%
+%
+penpos6(1.3cap_hair,-53);
+penpos7(hair,0); z7l=(0,-apex_o);
+z6=(0.363w,0.314h);
+penstroke z7e{up}..z6e..z5e{up};
+penpos8(cap_stem,-124);
+penpos9(1.179cap_stem,-123);
+z8=(0.395w,0.14h); z9r=(0.731w,-apex_o);
+penstroke z7e{up}..z8e{right}..
+z9e;
+penpos10(cap_hair,-33);
+penpos11(cap_hair,-33);
+z10r=z9; z11-z10=whatever*dir57;
+x11r=w;
+penstroke z10e--z11e;
+.endchar;
+
+.cmchar "The Schwabacher numeral 3";
+.beginchar("3",6.302u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos5(cap_hair,-72); z5=(0.132w,0.454h);
+z4=(0.749w,0.753h);
+penpos4(0.857cap_stem,34);
+penpos2(0.964cap_stem,90);
+x2=0.377w; y2r=h+apex_o;
+penpos1(cap_hair,-41);
+z1l=(0,0.78h);
+penstroke z5e{dir18}..z4e{up}..
+z2e{left};
+filldraw z1l--z2r--z2l{left}..
+z1r{z1l-z2r}--z1l & cycle;
+%
+%
+%
+penpos11(1.071cap_stem,56);
+penpos10(cap_stem,32);
+penpos9(cap_hair,-64);
+penpos8(0.571cap_stem,-135);
+y11l=y5l; x11r=x4l; x10r=w;
+y10=0.332h; z9=(0.515w,0.049h);
+z8r=(0.228w,-apex_o);
+penstroke z8e{right}..z9e..
+z10e{up}..z11e{left};
+filldraw z5{dir18}..z11r{z11r-z11l}
+--z11l{left}..z5r--z5 & cycle;
+z6=(apex_o,y8l); z7=(0.198w,0.146h);
+filldraw z8r{left}..z6{up}..
+z7{right}..z8l{right}--z8r &
+cycle;
+.endchar;
+
+.cmchar "The Schwabacher numeral 4";
+.beginchar("4",8.377u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(3/4cap_stem,90);
+penpos2(whatever,56);
+x1=w; x2l=0; y1=0.46h; y2l=y1l;
+y2r=y1r; z3'=whatever[z2l,z2r];
+y3'=h; penpos4(0.93cap_stem,0);
+z4l=z3'; penpos12(cap_hair,-34);
+penpos13(cap_hair,-34);
+z12l=z2; z13l=z3';
+penpos5(whatever,25); x5l=x4l;
+x5r=x4r; y5=0.268h;
+penstroke z12e--z13e;
+penstroke z5e--z4e;
+penstroke z1e--z2e;
+%
+%
+%
+penpos10(cap_hair,-90);
+penpos11(cap_hair,-90);
+y10=0; x10=0.36w; z11=(0.964w,0.162h);
+filldraw z10r{right}..z11r{right}
+--z11l{left}..z5r{up}--z5l{down}
+..z10l{left}--z10r & cycle;
+penpos6(0.5cap_hair,90);
+penpos8(0.5cap_hair,0);
+z6r=(w-cap_hair,h); z8r=(w,0.61h);
+z7=(x4r,0.841h);
+filldraw z7{up}..z6l{right}--
+z6r--z4r--z7 & cycle;
+filldraw z1r--z8r--z8l{down}..
+{left}(x4r,y1r)--z1l--z1r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher numeral 5";
+.beginchar("5",5.623u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-65);
+penpos2(0.93cap_stem,33);
+penpos3(0.964cap_stem,57.5);
+z1=(0.134w,0); z2=(0.779w,0.369h);
+z3=(0.477w,0.567h);
+z4=(0,0.579h); z5=(0.174w,0.759h);
+z6=(0.221w,h);
+penpos8(2/3cap_hair,0);
+z8r=(w,h+apex_o);
+penpos9(1.161cap_stem,-108);
+z9l=z8r;
+filldraw z1r..z2r{up}..
+z3r..z5{up}..z9r{right}--z9l--
+z8l & flex(z8l,(0.5[x6,x8],h-apex_o),
+z6) & z6..z4{down} & z4..z3l..
+z2l{down}..z1l--z1r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher numeral 6";
+.beginchar("6",7.472u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.464cap_stem,-43);
+z1r=(0.187w,-apex_o);
+z2=(0.737w,0.433h); penpos2(cap_hair,-32);
+penpos3(0.964cap_stem,44);
+z3r=(w,0.747h);
+z4=(0.631w,h+apex_o);
+z5=(0.5w,0.838h); penpos6(0.93cap_stem,-150);
+z6r=(0,0.579h);
+z7=(0.343w,0.341h); z8=(x5,0.482h);
+penpos9(cap_hair,-48);
+z9=(2/3w,0.512h); penpos10(cap_hair,132);
+y10r=y5; x10l=x7;
+penstroke z1e..z2e..z3e{up};
+filldraw z3r{up}..z4{dir156}---z10r...
+z6r{down}..z7--z9r--z9l{z7-z9r}..
+z8{left}..z6l{up}..z5{right}..z3l
+{down}--z3r & cycle;
+%
+%
+%
+transform metatopish;
+metatopish=identity
+reflectedabout ((0,0.5h),(w,0.5h));
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+transform metatopish;
+metatopish=identity
+reflectedabout ((0.5w,0),(0.5w,h));
+picture krufo;
+krufo:= currentpicture transformed
+metatopish;
+picture currentpicture;
+currentpicture=krufo;
+.endchar;
+
+.cmchar "The Schwabacher numeral 7";
+.beginchar("7",8.302u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos2(1.068cap_stem,61);
+z2r=(w,0.95h);
+penpos3(2/3cap_hair,0);
+penpos4(2/3cap_hair,0);
+z3l=(0,0.686h); z4-z3=whatever*dir73;
+y4=h; penpos1(whatever,73);
+y1l=y2l; y1r=y2r; z1=whatever[z3l,z4l];
+penpos1'(whatever,73);
+y1'r=y1r; y1'l=y1l; x1'=x1+0.182w;
+penpos6(cap_hair,0);
+penpos5(0.939cap_stem,0);
+z6r=z2l; z5=(0.382w,0);
+filldraw z2r---z1'r...z4r{up}--z4l
+--z3l--z3r{z4r-z3r}...z1'l---z2l
+--z2r & cycle;
+penstroke z5e{up}..z6e{z2r-z2l};
+.endchar;
+
+.cmchar "The Schwabacher numeral 8";
+.beginchar("8",8.226u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.5cap_hair,0);
+z1=(0.45w,-apex_o); penpos2(cap_hair,-60);
+z2=(0.761w,0.157h); penpos3(0.857cap_stem,37);
+z3r=(w,0.383h); penpos4(0.93cap_stem,72);
+z4=(0.463w,0.546h); penpos5(0.714cap_stem,31);
+z5=(0.138w,0.735h);
+penpos6(cap_hair,-56);
+z7=(0.523w,h+apex_o);
+z7-z6l=whatever*dir34; x6=0.266w;
+penpos8(3/4cap_stem,65);
+z8=(0.596w,0.895h); penpos9(0.875cap_stem,33);
+y9l=y5l; x9=x3l+apex_o;
+penpos10(cap_hair,-56); x10=x8;
+y10l=y4; penpos11(cap_hair,-48);
+y11l=y4; x11l=x6r; penpos12(0.8cap_stem,30);
+z12l=(0,y3l); penpos13(0.893cap_stem,48);
+x13=x6l; y13=y2l;
+%
+%
+%
+filldraw z1r{dir60}..z2r..z3r{up}..
+z4r{dir162}..z5r{up}..z6r..z8l..
+z9l{down}..z10l{dir214}--z10r
+{dir34}..z9r{up}..z8r..z7 &
+z7---z6l...z5l{down}..z4l{dir-18}
+..z3l{down}..z2l..z13r..%{dir161}..
+z12r{up}..z11r{dir34}--z11l{dir214}
+..z12l{down}..z13l..z1l{dir-60}--
+z1r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher numeral 9";
+.beginchar("9",7.472u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.464cap_stem,-43);
+z1r=(0.187w,-apex_o);
+z2=(0.737w,0.433h); penpos2(cap_hair,-32);
+penpos3(0.964cap_stem,44);
+z3r=(w,0.747h);
+z4=(0.631w,h+apex_o);
+z5=(0.5w,0.838h); penpos6(0.93cap_stem,-150);
+z6r=(0,0.579h);
+z7=(0.343w,0.341h); z8=(x5,0.482h);
+penpos9(cap_hair,-48);
+z9=(2/3w,0.512h); penpos10(cap_hair,132);
+y10r=y5; x10l=x7;
+penstroke z1e..z2e..z3e{up};
+filldraw z3r{up}..z4{dir156}---z10r...
+z6r{down}..z7--z9r--z9l{z7-z9r}..
+z8{left}..z6l{up}..z5{right}..z3l
+{down}--z3r & cycle;
+.endchar; \ No newline at end of file
diff --git a/fonts/gothic/yswab/yswabupp.mf b/fonts/gothic/yswab/yswabupp.mf
new file mode 100644
index 0000000000..d1fd5976a5
--- /dev/null
+++ b/fonts/gothic/yswab/yswabupp.mf
@@ -0,0 +1,1179 @@
+.cmchar "The Schwabacher letter A";
+.beginchar("A",11.755u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);penpos1(0.714cap_stem,16);
+z1l=(apex_o,0.718h);
+z2=(0,0.767h); penpos3(cap_hair,-58);
+y3=0.474[h,y2]; x3=0.13w;
+z4=(0.278w,h+apex_o);
+penpos5(1.036cap_stem,-158);
+x5l=0.574w; y5=0.638h+cap_hair;
+penpos6(0.6cap_hair,-155); x6=x3r;
+y6l=0.132h; penpos7(1.286cap_stem,33);
+penpos8(1.143cap_stem,33);
+penpos9(1.071cap_stem,33);
+z7l=z6l; x9r=x5l; y9l=-apex_o;
+z8=0.472[z7,z9]+(0.5cap_hair,0.5cap_hair);
+penpos10(cap_hair,-57); z10r=z9l;
+penpos17(cap_stem,0); x17l=0.657w;
+y17=0.724h; penpos11(cap_hair,-57);
+z11-z10=whatever*dir33; x11=x17;
+z15=whatever[z10,z11]; x15=x17l;
+z15-z12=whatever*dir123; y12=-apex_o;
+penpos13(cap_hair,-90); z13r=(w,y6l);
+z14=(0.567[x17r,w],y13r);
+z16=(x17r,0.591[y17,y14]);
+penpos18(0.6cap_hair,-90); z18l=(w,h);
+z19=(x17l,0.822h);
+z7'=(z6{z7r-z7l}..z5{up})
+intersectionpoint (z7r+(2u,-2u)--
+z7r--z7r+(-2u,2u));
+%
+%
+%
+filldraw z1r{z3l-z3r}..z3r{z4-z3l}
+..z5r{down}..z6r{z7l-z7r} & z6r--z6l
+& z6l{z7r-z7l}..z5l{up}..z4{dir155}
+& z4---z3l...z2{down}..z1l &
+z1l--z1r & cycle;
+penstroke z9e..z8e..z7e;
+penstroke z10e--z11e;
+filldraw z12--z13r--z13l & z13l{z12-z13r}
+..z14{left}...z16---z17r...z18r{right}
+& z18r--z18l & z18l{left}..z19{z5r-z19}
+& z19--z15--z12 & cycle;
+filldraw z7r--z7' & z7'{z6-z7'}..
+z6{z7l-z7r} & z6--z6l--z7r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter B";
+.beginchar("B",13.811u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);penpos1(cap_hair,-70);
+penpos2(1.667cap_hair,-70);
+penpos3(1.071cap_stem,23);
+penpos4(2/3cap_hair,90);
+penpos5(1.571cap_stem,32);
+x1l=0; y1=0.282h; z2r-z1r=whatever*dir12.5;
+x2=0.24w; z3=(0.464w,0.672h);
+y5r=h+apex_o; x5r=0.295w; z4r=z5l;
+filldraw z1r---z2r...z3r{up}..
+z5r{dir163} & z5r--z5l--z4l &
+z4l{right}..z3l{down}..z2l..z1l
+{z1r-z2r} & z1l--z1r & cycle;
+%
+%
+%
+penpos6(cap_hair,-46); penpos7(cap_hair,-46);
+penpos9(cap_stem,44); penpos10(cap_hair,-46);
+z6r=z3; z7-z6=whatever*dir44;
+y7l=h+apex_o; z9r=z7l;
+z10=whatever[z7l,z7r]; x10r=0.951w;
+z8=(x6,0.552h); penpos8(cap_hair,-90);
+z11'-z9l=whatever*(z10-z7);
+x11'=w;
+z11=(z8{right}..z10{dir44})
+intersectionpoint (z11'--z9l);
+penstroke z8e{right}..z10e{dir44};
+penstroke z6e--z7e;
+filldraw z9r--z10r--z11--z9l--z9r &
+cycle;
+%
+%
+%
+%.endchar; end.
+path pipi;
+pipi:=z8{right}..z10{dir44};
+numeric titi,uuuu;
+(titi,uuuu)=pipi
+intersectiontimes
+((0.781w,0)--(0.781w,h));
+z12= point titi of pipi;
+penpos13(0.964cap_stem,39);
+z13r=(w,0.362h); penpos14(cap_hair,-57);
+z14=(0.822w,0.071h); z14'=(0.623w,-apex_o);
+z15=whatever[z1l,z1r];
+penpos15(cap_hair,-70);
+y1r-y15l=cap_hair;
+penpos16(1.857cap_stem,-167.5);
+z16r=z15l;
+filldraw subpath (0,titi) of pipi
+ & z12{right}
+..{down}z13r..z14r..z14'{left}..
+z15r{left} & z15r--z15l--z16l &
+z16l{dir-34}..z14l..z13l{up}..
+z8r{left} & z8r--z8 & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter C";
+.beginchar("C",10.151u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);z1=(w,0.276h); penpos2(cap_stem,68);
+z2l=(0.533w,-apex_o); penpos3(0.911cap_stem,45);
+z3l=(0,0.442h);
+penpos4(cap_hair,-60);
+z4l=(x2l-cap_stem,0.914h);
+penpos5(cap_stem,-90); z5l=(x2l,h);
+penpos6(1.1cap_stem,-72);
+z7=(0.911w,h+apex_o);
+z6l=(0.5[x5,x7],h-apex_o);
+penpos8(cap_stem,0); z8r=(x2l,0.337h);
+penpos10(cap_hair,-56);
+z8r-z10r=whatever*dir34; x10=x8l-0.5cap_stem;
+z9=z8l-(0,cap_hair);
+filldraw z1..z2r{left}..z3r{up}..
+z4r{z5l-z4l} & z4r--z4l &
+z4l{z4l-z5l}..z3l{down}..z2l{right}
+..z1{up} & cycle;
+filldraw z10l{z8r-z10r}..z9{up}--
+z4l--z5l..z6l{right}..z7 &
+z7{down}..z6r{left}..z5r{dir170} &
+z5r--z8r--z10r--z10l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter D";
+.beginchar("D",13.736u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-50); penpos2(1.071cap_stem,-118);
+z1=(0.06w,0); z2=(0.302w,0.15h);
+z3=(0.585w,-apex_o);
+penpos4(cap_hair,-41);
+z4=(0.876w,0.193h); penpos5(0.5cap_stem,38);
+z5r=(w,0.472h); penpos6(cap_stem,74);
+penpos7(cap_stem,74); penpos8(cap_stem,74);
+penpos10(0.5cap_hair,0);
+z6l=(0.72w,0.675h);
+z8l-z6l=whatever*dir170;
+x8l=cap_hair; x10r=x8; y10=h+apex_o;
+z7=0.426[z8,z6]+(0,-apex_o);
+z9=whatever[z7l,z8l]; x9=0;
+filldraw z1r{dir40}..z2r{right}..z3
+& z3..z4r..z5r{up}...
+z7r---z8r
+{z8r-z7r}..z10r{up} & z10r--z10l & z10l..
+z9{down} & z9..z8l{z7r-z8r}---z7l
+...z5l{down}..z4l..z2l{left}..z1l{dir220}
+& z1l--z1r & cycle;
+%
+%
+%
+penpos17(cap_hair,0); z17r=z2;
+penpos18(0.536cap_stem,34);
+z19=(cap_hair,y5l); y18=0.464[y2l,y19];
+x18=x2r-apex_o; z20=(0.203w,0.52h);
+penpos21(cap_hair,-60);
+z21=whatever[z7,z6]; x21=0.44w;
+filldraw z17r{up}..z18r..z20{up}..
+z21r{dir30} & z21r--z21l &
+z21l{dir210}..z19 & z19{right}..
+z17l{down} & z17l--z17r & cycle;
+%
+%
+%
+penpos12(cap_hair,-60); penpos13(cap_hair,-60);
+penpos14(cap_hair,-60); penpos11(cap_hair,-60);
+penpos15(cap_stem,30); penpos16(cap_stem,30);
+z16r=z12r; z15l=z13l; z14=whatever[z6,z7];
+z12=(0.563w,0.387h);
+z15r-z12=whatever*(z12l-z12r);
+x13l=0.287w;
+z14l=whatever[z15l,z15r];
+z11r=whatever[z16l,z16r]; x11=x17;
+penstroke z11e--z12e;
+penstroke z16e--z15e;
+penstroke z13e--z14e;
+z22=(z17r{up}..z18r..z20{up})
+intersectionpoint ((0,y2l+cap_hair)
+--(w,y2l+cap_hair));
+z23=1/3[z11l,z12l];
+z23'=2/3[z13l,z16l];
+z24=1/3[z15r,z12r];
+z25=whatever[z6l,z7l];
+z25=whatever[z13r,z14r];
+filldraw z22{right}..z23{z12l-z11l}
+..z23'{z13-z16l} & z23'--z16--z11
+--z22 & cycle;
+filldraw z24{z15r-z12}..z25{z14r-z13r}
+& z25--z15--z24 & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter E";
+.beginchar("E",12.302u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-90); z1r=(0,0.227h);
+penpos2(cap_stem,0); penpos3(cap_stem,0);
+penpos4(cap_hair,-90);
+z2r=(0.31w,0.509h);
+z3=(x2,0.761h); y4l=h+apex_o;
+x4=0.393w;
+penstroke z1e{dir31}..z2e---z3e...
+z4e{dir22};
+penpos5(cap_hair,-64); penpos6(cap_hair,-51);
+penpos7(cap_stem,0); penpos8(cap_stem,0);
+penpos9(1.607cap_stem,18);
+penpos10(cap_hair,-90);
+z5=(0.049w,0.12h); z6l=(x4,0.337h);
+x9=x8=x7; z7l=(0.446w,y2);
+y8=y3; z10r=z9r; y10l=h+apex_o;
+penstroke z5e{dir31}..z6e{dir36}...z7e---
+z8e...z9e;
+filldraw z9l--z10l--z10r--z9l & cycle;
+%
+%
+%
+penpos11(0.6cap_hair,-90);
+z11=whatever[z7r,z8r]; y11r=0.862h;
+z12-z11l=whatever*dir30;
+penpos14(0.679cap_stem,-90);
+y14=0.589h; x14=x11;
+penpos15(whatever,-114);
+x15=0.926w; y15r=y14r; y15l=y14l;
+penstroke z14e--z15e;
+z13=(x15l,y11r);
+z17=(x12-apex_o,0.588[y13,y15l]);
+z12-z11l=whatever*dir30; y12=h+apex_o;
+penpos16(cap_hair,0);
+z16=whatever[z14l,z15l]; x16r=x17;
+filldraw z11l--z12 & z12..z13{down}
+--z16r{dir222} & z16r--z16l &
+z16l..z17{up}..z11r{left} &
+z11r--z11l & cycle;
+%
+%
+%
+z18=(0.417w,0.3h); z19=(0.267w,0.169h);
+z20=(0.834w,0.101h); z21=(0.7w,-apex_o);
+penpos22(cap_hair,-50);
+x22r=w; y22=0.132h;
+filldraw z5r{dir31}..z19{right}..
+z21{right}..z22r{dir40} &
+z22r--z22l & z22l{dir220}..z20{left}
+..z18{left}..z5l{dir211} & z5l--z5r
+& cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter F";
+.beginchar("F",9.925u#,cap_height#,2.943u#);
+.adjust_fit(usual_left#,usual_right#);penpos1(2/3cap_hair,-90);
+penpos2(1.286cap_stem,180);
+penpos2'(1.071cap_stem,-142.5);
+penpos3(cap_hair,-90);
+penpos4(1.214cap_stem,42.5);
+penpos5(1.125cap_stem,40);
+penpos6(0.786cap_stem,38);
+penpos6'(1.2cap_stem,53);
+penpos7(4/3cap_hair,-127);
+z1r=(0,3/2cap_hair); z2r=z1l;
+y3r=-d-apex_o; x3=0.55w;
+x4=0.821w; y4=-y4l; z5=(0.687w,0.368h);
+z6=(0.439w,0.807h);
+x7l=x5; y7l=h+apex_o;
+z8=(w,y7r); z10=z8-(0,cap_stem);
+z9=z10-(cap_stem,0);
+z2'l=z2l; z6'r=z6r;
+filldraw z2l{dir-79}..z3l{right}..
+z4l{up}..z5l..z6'l{up}..z7l{right}
+..z8 & z8--z10--z9 &
+z9{up}..z7r{left}..z6r{down}..
+z5r..z4r{down}..z3r{left}..
+z2'r..z1r{left} & z1r--z1l--z2l
+& cycle;
+%
+%
+%
+penpos11(2/3cap_hair,-90);
+penpos12(0.786cap_stem,-114);
+y11r=y12r=0.506h; x12l=w-apex_o;
+x11=0.29w;
+filldraw z11r--z11l & z11l{dir40}..
+z6{up} & z6--z6r--(x6r,y12l)--
+z12l--z12r--z11r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter G";
+.beginchar("G",13.434u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);penpos1(2cap_stem,-142);
+z1l=(0.815w,0.742h);
+penpos1'(cap_hair,-90); z1'l=z1r;
+penpos2(1.179cap_stem,-142);
+z2l=(w,0.466h); penpos3(cap_hair,77);
+z3=(0.764w,0.067h);
+z4=(0.59w,-apex_o);
+penpos5(1.179cap_stem,32);
+z5l=(0,0.457h);
+penpos6(cap_hair,-56.5);
+z7=(x4-0.643cap_stem,h+apex_o);
+z7-z6l=whatever*dir33.5;
+penpos8(1.286cap_stem,-130);
+z8r=z1l+(-apex_o,apex_o);
+z6r-z8r=whatever*(z7-z8l);
+filldraw z1'r{dir45}..z2r{down}..
+z3r{dir207}..z5r{up}..z6r{z7-z6l} &
+z6r--z8r--z8l--z7---z6l...
+z5l{down}..z4{right}..z3l{dir27}..
+z2l{up}..z1l{1/3[z6l,z7]-z1l}
+& z1l--z1r--z1'r & cycle;
+%
+%
+%
+penpos9(cap_stem,0); penpos10(cap_stem,0);
+penpos11(cap_hair,-32);
+penpos12(cap_hair,-52);
+x9r=x10r=x4; y9=0.3h; y10=0.681h;
+z12-z8=whatever*(z7-z8l);
+z12l-z10l=whatever*dir27;
+z9-z11''=whatever*dir58; y11''=0;
+z11=(z2{down}..z3{dir207}..z5{up})
+intersectionpoint (z11''--z9);
+z11'=whatever[z11,z9]; x11'=x9l;
+penstroke z9e--z10e;
+filldraw z11r{z9-z11}..z9r{z9r-z11'}
+& z9r--z9l & z9l{down}..z11l{z11-z9}
+& z11l--z11r & cycle;
+filldraw z10r{up}..z12r{z12l-z10l}
+& z12r--z12l--z10l--z10r & cycle;
+%
+%
+%
+penpos13(cap_hair,angle(z8l-z7));
+z13r=z8l; penpos14(1.5cap_hair,-15);
+x14r=w-cap_hair; y14l=h+apex_o;
+penstroke z13e{z8l-z8r}..z14e{up};
+.endchar;
+
+.cmchar "The Schwabacher letter H";
+.beginchar("H",11.736u#,cap_height#,2.566u#);
+.adjust_fit(usual_left#,usual_right#);penpos1(1.5cap_stem,-16);
+z1l=(0.637w,h); penpos2(cap_hair,-106);
+z2l=whatever[z1l,z1r]; y2l=h+apex_o;
+penpos3(cap_hair,-106); z3l=z1;
+penstroke z2e--z3e;
+penpos4(1.071cap_stem,18);
+penpos5(1.071cap_stem,18);
+z4l=(0,0.393h);
+z4r-z5r=whatever*dir120; x5r=0.286w;
+filldraw z4l---z4r...z1r{dir59} &
+z1r--z1l & z1l{dir260}..{dir208}z4l & cycle;
+penstroke z5e--z4e;
+%
+%
+%
+penpos6(cap_hair,angle(z5r-z4r));
+z6r=z5r; z7=(0.804w,0.503h);
+z8=(x1l,0.337h); penpos9(1.071cap_stem,180);
+z9r=(x7,0.147h); z10=(0.592w,-d-apex_o);
+z11=(0.498w,-0.809d);
+z12=(0.386w,-0.397d);
+z13=(0.473w,0.043h);
+z14=(x12,0.123h);
+z15=(x5r,0);
+filldraw z6r{z5r-z5l}..z8{right}..
+z9r{down}..z11{left}..z12{up}..
+z13{up}..z14{left}..z15{down}..
+z10{right}..z9l{up}..z7 & z7--z6l
+--z6r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter I";
+.beginchar("I",12.943u#,cap_height#,3.019u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.786cap_stem,32);
+z1l=(apex_o,0.653h);
+penpos2(0.821cap_stem,29);
+z2l=(0,0.715h); z4=(0.198w,0.85h);
+z5=(0.321w,h+apex_o);
+penpos3(cap_hair,-55); y3=y4;
+z5-z3l=whatever*dir35;
+penpos6(1.125cap_stem,-119);
+penpos8(cap_hair,-37);
+z6=(0.636w,0.822h);
+z8=(0.845w,h); penpos9(cap_hair,-37);
+penpos9'(cap_amount,-37);
+z9'l=z8r; z9l=z9'r;
+penpos10(1.304cap_stem,47);
+x10r=x8; y10r=y2;
+penpos11(1.107cap_stem,26);
+z11r=(w,0.215h); z12=(x10l,-0.313d);
+z13=(0.545w,-d-apex_o);
+z14=(0.19w,-0.45d);
+penpos15(cap_hair,-37); x15l=0;
+y15=-0.688d; penpos16(2.25cap_stem,-131);
+z16r=z15l;
+filldraw z1r{dir122}..z2r{up}..
+z3r..z4{right}..z6r{right}..
+z8r{dir57} & z8r--z8l &
+z8l{dir237}..z6l{left}..z5 &
+z5---z3l...z2l{down}..z1l{dir302}
+& z1l--z1r & cycle;
+%
+%
+%
+filldraw z15r{dir49}..z14{right}..
+z13 & z13{dir31}..z11r{up}..z10r{up}
+..z9r{dir57} & z9r--z9l &
+z9l{dir237}..z10l{down}..z11l{down}
+..z12{left}..z16l{dir139} &
+z16l--z16r--z15r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter J";
+.beginchar("J",12.943u#,cap_height#,3.019u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(0.786cap_stem,32);
+z1l=(apex_o,0.653h);
+penpos2(0.821cap_stem,29);
+z2l=(0,0.715h); z4=(0.198w,0.85h);
+z5=(0.321w,h+apex_o);
+penpos3(cap_hair,-55); y3=y4;
+z5-z3l=whatever*dir35;
+penpos6(1.125cap_stem,-119);
+penpos8(cap_hair,-37);
+z6=(0.636w,0.822h);
+z8=(0.845w,h); penpos9(cap_hair,-37);
+penpos9'(cap_amount,-37);
+z9'l=z8r; z9l=z9'r;
+penpos10(1.304cap_stem,47);
+x10r=x8; y10r=y2;
+penpos11(1.107cap_stem,26);
+z11r=(w,0.215h); z12=(x10l,-0.313d);
+z13=(0.545w,-d-apex_o);
+z14=(0.19w,-0.45d);
+penpos15(cap_hair,-37); x15l=0;
+y15=-0.688d; penpos16(2.25cap_stem,-131);
+z16r=z15l;
+filldraw z1r{dir122}..z2r{up}..
+z3r..z4{right}..z6r{right}..
+z8r{dir57} & z8r--z8l &
+z8l{dir237}..z6l{left}..z5 &
+z5---z3l...z2l{down}..z1l{dir302}
+& z1l--z1r & cycle;
+%
+%
+%
+filldraw z15r{dir49}..z14{right}..
+z13 & z13{dir31}..z11r{up}..z10r{up}
+..z9r{dir57} & z9r--z9l &
+z9l{dir237}..z10l{down}..z11l{down}
+..z12{left}..z16l{dir139} &
+z16l--z16r--z15r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter K";
+.beginchar("K",12.943u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-90); z1=(1/10w,0);
+penpos3(cap_stem,0); z3=(0.419w,0.5h);
+z2=(x3l,0.261h); z4=(x3,0.853h);
+penpos4(cap_stem,0);
+penpos5(1.286cap_stem,-140);
+z5r=(0,0.773h); z6=(0.131w,0.69h);
+z7=(0.251w,0.828h); penpos8(cap_hair,-50);
+x8r=x3r; y8=h;
+filldraw z1r{right}...z3r---z4r--
+z8r--z4l---z2...z1l{left} & z1l--z1r &
+cycle;
+filldraw z8r--z8l & z8l{z4l-z8r}..z7{left}
+..z5l{dir130} & z5l--z5r & z5r{dir-50}
+..z6{right}..z8r{z8r-z4l} & cycle;
+%
+%
+%
+penpos9(whatever,-90);
+penpos10(cap_hair,-50);
+z10=(0.681w,h); z9l=z4r;
+z9r-z10r=whatever*(z9l-z10l);
+penpos12(cap_hair,-50);
+z12=whatever[z10l,z10r];
+penpos11(whatever,-90);
+z11r=z3r; z11r-z12r=whatever*(z9r-z10r);
+z11l-z12l=whatever*(z9r-z10r);
+penpos13(1.107cap_stem,angle(z12-z11));
+penpos14(1.107cap_stem,angle(z12-z11));
+z13r=z12r; z14r=z10r;
+penstroke z9e--z10e;
+penstroke z11e--z12e;
+penstroke z13e--z14e;
+%
+%
+%
+penpos16(1.071cap_stem,30);
+x16r=w; y16l=-apex_o;
+penpos15(whatever,angle(z12-z11));
+z15=whatever[z11r,z12r];
+z15r-z16r=whatever*dir124;
+z15l-z16l=whatever*dir124;
+penstroke z16e--z15e;
+%
+%
+%
+z17=(x3,1.5cap_amount);
+z18=(x3r,0.221h);
+penpos19(1.071cap_stem,45);
+z19l=(0.613w,-apex_o);
+filldraw z1r{right}..z17{right}..
+z19l & z19l--z19r--z18 &
+z18{dir220}..z1l{left} & z1l--z1r &
+cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter L";
+.beginchar("L",10.377u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-90);
+penpos1'(cap_amount,-90);
+penpos2(cap_hair,-90);
+x1=x1'=x2=0; y1r=y1'l; y1'r=y2l;
+y1'=0.135h; penpos3(whatever,28);
+penpos6(whatever,28);
+x3r=0.349w; x6l=0.505w;
+x3l=x3r-.95cap_stem; x6r=x6l+.95cap_stem;
+y3r=0.472h;
+z6=whatever[z3l,z3r]+(0,-u);
+penpos4(whatever,18);
+penpos7(whatever,0);
+x4l=x3l; x4r=x3r; x7l=x6l; x7r=x6r;
+y4r=0.779h; z7=whatever[z4l,z4r];
+penpos5(cap_hair,-70);
+x5=x7r; y5=0.45[h,y7];
+penpos8(cap_hair,-57);
+x8=0.753w; y8=h;
+penpos9(cap_stem,-148);
+penpos10(0.893cap_stem,-137);
+penpos11(cap_hair,-53);
+z9=(0.287w,0.178h);
+x10=x8; y10r=-apex_o;
+x11r=w; y11r=y9r;
+%
+%
+%
+penstroke z1e{dir23}...z3e---z4e...
+z5e{right};
+penstroke z1e{dir23}...z6e---z7e...
+z8e{right};
+penstroke z2e{dir23}..z9e{right}
+..z10e{right}..z11e{dir37};
+.endchar;
+
+.cmchar "The Schwabacher letter M";
+.beginchar("M",17.736u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.25cap_stem,47);
+penpos2(1.25cap_stem,47);
+penpos3(1.107cap_stem,42.5);
+penpos4(1.143cap_stem,47);
+penpos5(0.5cap_hair,0);
+penpos6(cap_hair,-43);
+penpos7(cap_hair,-43);
+x2l=0; y1l=-apex_o;
+z2-z1=whatever*dir143;
+y2l=0.141h; z3r=(0.207w,0.638h);
+x4l=0; y4r=h+apex_o; z5l=z4r;
+z6r=z1; z7r=whatever[z1l,z1r];
+penpos11(cap_stem,0);
+x11=0.494w; x9=0.423[x3r,x11l];
+x9=x7;
+penstroke z6e--z7e;
+penstroke z1e--z2e;
+filldraw z2r{z2r-z2l}..z3r{up}..
+z5r{up} & z5r--z5l--z4l &
+z4l{dir-56}..z3l{down}..z2l{z2l-z2r}
+& z2l--z2r & cycle;
+%
+%
+%
+penpos8(1.214cap_hair,-90);
+z8=(x3,y3r); y11=0.709h;
+z10=(x11l,h+apex_o);
+z9-z8r=whatever*(z10-z8l);
+filldraw z8r---z9...z11l{down} &
+z11l--z11r & z11r{up}..z10{left}
+& z10--z8l--z8r & cycle;
+penpos12(whatever,30);
+y12l=-apex_o; x12l=x11l; x12r=x11r;
+penstroke z12e--z11e;
+%
+%
+%
+penpos13(1.25cap_hair,-90);
+z13r=z11r; %penpos24(1.036cap_stem,-129);
+%penpos25(1.036cap_stem,-129);
+penpos20(2/3cap_hair,-52);
+penpos18(whatever,11);
+penpos19(whatever,31);
+x18l=x19l=0.768w;
+x18r=x19r=x18l+cap_stem;
+y18l=0.187h; y19l=0.54h;
+z20r=(w,0.856h); penpos22(cap_hair,-61);
+z22r=(w,0.184h); penpos21(cap_hair,-61);
+y21=0; x21r=0.749w;
+filldraw z21r--z22r--z22l &
+z22l{z21r-z22r}...z18r{up}---
+z19r..z20r{dir34} & z20r--z20l &
+z20l{dir214}...z19l{down}---z18l..
+z21l{dir235} & z21l--z21r & cycle;
+%
+%
+%
+penpos24(1.036cap_stem,-128);
+penpos25(1.036cap_stem,-128);
+z25=(0.789w,0.911h);
+z24=z25-(0.714cap_stem,0);
+z26-z25r=whatever*dir-34;
+x26=w;
+z17=(z18{up}---z19...z20{dir34})
+intersectionpoint (z25r--z26);
+filldraw z13r---z24r...z25r---
+z17 & z17--z20--z20l &
+z20l{dir214}..{z25r-z17}z25l...
+z24l---z13l & z13l--z13r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter N";
+.beginchar("N",14.868u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.107cap_stem,55);
+z1l=(0.348w,-apex_o);
+z3=(0.056w,0.184h);
+z2=(0.231w,0.089h);penpos4(cap_hair,0);
+z4l=(0.152w,0.445h);
+penpos5(1.25cap_stem,49);
+x5l=0; y5r=h+apex_o; penpos6(0.5cap_hair,0);
+z7=(0.129w,0.945h);
+penpos15(cap_hair,-35);
+z15-z14=whatever*dir55;
+penpos14(cap_hair,-35);
+z14r=z1; x15=0.576w; z8'=(x15r,0);
+penpos16(cap_stem,-123.5);
+x16=0.497w; y16l=h+apex_o;
+penpos10(1.071cap_stem,-135);
+z10r=(0.797w,0.656h);
+filldraw z1l--z1r{z3-z1l}..z4r{up}
+& z4r--z4l & z4l{down}..z3 &
+flex(z3,z2,z1l) & cycle;
+penstroke z14e--z15e;
+penstroke z4e{up}..z16e{right}..
+z10e{dir-45};
+z6l=z5r;
+%z8'-z7=whatever*dir-58; y8'=0;
+z8=(z7--z8') intersectionpoint
+(z4{up}..z16{right});
+filldraw z4l{up}..z5l--z5r--z6r
+& z6r...z7---z8 & z8--z4--z4l &
+cycle;
+%
+%
+%
+penpos11(cap_hair,-45); penpos12(cap_hair,-45);
+z11r=z10; z12-z11=whatever*dir45;
+x12r=w; z13=(0.891w,0.862h);
+filldraw z16--z16l{right}..z13..
+z12l{z12-z11} & z12l--z12r--z11r
+--z11l & z11l..z16{left} & cycle;
+%
+%
+%
+penpos19(2/3cap_hair,0);
+penpos20(cap_hair,-90);
+z19r=(x11r,-apex_o);
+x20=w; z20-z19=whatever*dir40;
+z21=(0.694[x19,x20],y20r);
+z18=(0.701w,0.301h);
+z22=(0.827w,0.485h);
+filldraw z19r--z20r--z20l &
+z20l..z21{left}..z22{up}..z12r{z12r-z11r}
+& z12r--z12l--z10r &
+z10r{z10r-z10l}..z18{down}..z19l &
+z19l--z19r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter O";
+.beginchar("O",12.528u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,115);
+penpos8(cap_stem,0); x8r=0.536w;
+y8=0.451h; penpos9(whatever,25);
+x9l=x8l; x9r=x8r; y9r=h+apex_o;
+z1r=z9l; penpos2(0.929cap_stem,-154);
+z2r=(0,0.5h); penpos3(1.071cap_stem,-128.5);
+x3=x8r; y3r=-apex_o;
+penpos4(0.946cap_stem,29);
+z4r=(w,0.54h); z5=(0.735w,0.837h);
+penpos5(1.107cap_stem,44);
+penpos6(1.286cap_stem,47);
+z6r=(x5,h+apex_o);
+penpos10(cap_hair,-43);
+penpos11(cap_hair,-43);
+z11l=z6; z11-z10=whatever*dir47;
+x10=x8;
+z8r-z7'=whatever*dir49;
+y7'=0; penpos7(cap_hair,-41);
+z7r=(z7'--z8r) intersectionpoint
+(z2{down}..z3{right});
+z3''=whatever[z2,z4]; x3''=x8r;
+z3'=whatever[z3'',(w,cap_hair)];
+penpos3'(cap_hair,angle((w,cap_hair)-z3''));
+x3'=0.819w;
+penstroke z1e{z9l-z9r}..z2e{down}
+..z3e{right}..z3'e..z4e{up}...z5e{z6-z5}...
+z6e;
+filldraw z7r--z8r--z9r--z9l---z8l
+...z7l{z7r-z8r} & z7l--z7r & cycle;
+penstroke z10e--z11e;
+.endchar;
+
+.cmchar "The Schwabacher letter P";
+.beginchar("P",11.849u#,cap_height#,3.2u#);
+.adjust_fit(usual_left#,usual_right#);
+penpos2(cap_stem,0); x2=0.226w;
+y2=0.08h; penpos1(0.1cap_hair,0);
+z1=(x2,-d-apex_o);
+penpos3(whatever,35);
+penpos4(1.25cap_stem,47);
+x4l=0; y4r=h+apex_o;
+x3l=x2l; x3r=x2r; y3r=0.761h;
+penstroke z1e--z2e---z3e{up}...z4e;
+%
+%
+%
+penpos5(whatever,-122);
+x5r=0; x5l=x2l;
+y5r=y2+2/3cap_hair;
+penpos6(cap_stem,-140);
+z6r=(0.534w,-apex_o);
+penpos8(cap_hair,-50);
+z8r=whatever[z6l,z6r]; x8=0.752w;
+penpos9(1.107cap_stem,36);
+z9r=(w,y3l); z10=(0.536w,h+apex_o);
+z11=(0.513w,0.831h);
+penpos12(cap_hair,90); x12=x1;
+y12=2/3h; z7=(0.634w,0.156h);
+z5'=(x2l,0.135h);
+filldraw z5r{right}..z6r &
+z6r---z6l...z8r..z9r{up}..z10 &
+z10--z12r--z12l & z12l{z10-z12r}..
+z11{right}..z9l{down}..z8l..z7{left}..
+z5l{left} & z5l--z5r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter Q";
+.beginchar("Q",12.528u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#+1.208u#);
+penpos1(cap_hair,115);
+penpos8(cap_stem,0); x8r=0.536w;
+y8=0.451h; penpos9(whatever,25);
+x9l=x8l; x9r=x8r; y9r=h+apex_o;
+z1r=z9l; penpos2(0.929cap_stem,-154);
+z2r=(0,0.5h); penpos3(1.071cap_stem,-128.5);
+x3=x8r; y3r=-apex_o;
+penpos4(0.946cap_stem,29);
+z4r=(w,0.54h); z5=(0.735w,0.837h);
+penpos5(1.107cap_stem,44);
+penpos6(1.286cap_stem,47);
+z6r=(x5,h+apex_o);
+penpos10(cap_hair,-43);
+penpos11(cap_hair,-43);
+z11l=z6; z11-z10=whatever*dir47;
+x10=x8;
+z8r-z7'=whatever*dir49;
+y7'=0; penpos7(cap_hair,-41);
+z7r=(z7'--z8r) intersectionpoint
+(z2{down}..z3{right});
+z3''=whatever[z2,z4]; x3''=x8r;
+z3'=whatever[z3'',(w,cap_hair)];
+penpos3'(cap_hair,angle((w,cap_hair)-z3''));
+x3'=0.819w;
+penstroke z1e{z9l-z9r}..z2e{down}
+..z3e{right}..z3'e..z4e{up}...z5e{z6-z5}...
+z6e;
+filldraw z7r--z8r--z9r--z9l---z8l
+...z7l{z7r-z8r} & z7l--z7r & cycle;
+penstroke z10e--z11e;
+%
+%
+%
+penpos12(cap_hair,-30);
+x12=0.3[x5,x3']; y12=cap_hair;
+penpos13(1.179cap_stem,-118);
+z13l=(w+1.408u,0.288h);
+penstroke z12e{dir60}..z13e{dir-28};
+.endchar;
+
+.cmchar "The Schwabacher letter R";
+.beginchar("R",12.792u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.143cap_stem,33);
+penpos2(1.143cap_stem,33);
+z1l=(0.342w,-apex_o);
+penpos16(cap_hair,-57);
+penpos17(cap_hair,-57);
+z16r=z1; z17-z16=whatever*dir33;
+x17=0.625w; x2=0.242w; z2-z1=whatever*dir133;
+penpos3(cap_hair,-47);
+z3r=z2l; penpos4(cap_stem,22);
+z4=(0.451w,0.583h);
+penpos5(1.5cap_stem,48);
+x5l=0; y5r=h+apex_o;
+penstroke z16e--z17e;
+penstroke z1e--z2e;
+filldraw z3r---z2r...z4r{up}..z5r{left}
+& z5r--z5l & z5l{right}..z4l{down}..
+z3l{z2l-z2r} & z3l--z3r & cycle;
+z7=(0.687w,h+apex_o);
+z7-z7'=whatever*dir45;
+x7'=0; z6=(z7'--z7) intersectionpoint
+(z4r{up}..z5r{left});
+z6'=z6-(0,cap_hair);
+penpos8(cap_stem,-147);
+penpos12(cap_hair,90);
+z8=(0.802w,0.804h); x12=x4; y12=0.552h;
+penpos8'(1.179cap_stem,-135);
+z8'l=z8l;
+penpos13(cap_stem,17);
+z13=(0.708w,0.506h);
+penpos14(1.464cap_stem,25);
+x14r=w; y14l=-apex_o; penpos15(2/3cap_hair,-90);
+z15r=z14r; z13'-z13r=whatever*(z13l-z14l);
+z13'=whatever[z4r,z8];
+z11=(0.735w,0.712h);
+penpos11'(cap_hair,angle(z13'-z13r));
+z11'r=z11;
+filldraw z6--z7..z8'l{down}..z11'l
+{dir201} & z11'l---z13r...z15l{right}
+& z15l--z15r--z14l---z13l...z12l{dir187}
+& z12l--z12r & z12r{dir7}..z11..
+z8'r{up}..z6'{dir208} & z6'--z6 &
+cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter S";
+% made in Athens, Greece on july 21, 1990
+.beginchar("S",13.887u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,148);
+penpos2(cap_hair,180);
+penpos3(cap_hair,-90);
+penpos4(1.107cap_stem,25);
+penpos5(1.125cap_stem,72);
+penpos6(1.071cap_stem,84);
+penpos7(0.875cap_stem,48);
+penpos8(1.036cap_stem,-136);
+penpos9(1.161cap_stem,-111);
+penpos10(cap_hair,-42); penpos11(cap_hair,-42);
+z1=(0.109w,0.799h); z2r=(0,0.552h);
+z3r=(0.533w,-apex_o); z4r=(w,0.345h);
+z5=(0.685w,0.497h); z6=(0.402w,0.451h);
+z7=whatever[z2r,z1l]; x7r=x1l;
+z8l=(0.413w,h+apex_o); z9r=(0.832w,0.683h);
+y10r=y9l; x10r=w-apex_o;
+z10r-z11r=whatever*dir48; y11=y5;
+penstroke z1e..z2e{down}..z3e{right}
+..z4e{up}..z5e{left}..z6e{left}..
+z7e{up}..z8e{right}..z9e{right};
+penstroke z11e--z10e;
+filldraw z9l{right}..{z10-z11}z10l--z10r--
+z9r--z9l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter T";
+.beginchar("T",11.811u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.893cap_stem,51);
+y1l=-apex_o; x1r=w-1.3apex_o;
+penpos2(cap_hair,-61);
+z2l=z1r; %x2r=w;
+penpos3(cap_hair,angle(z2r-z2l));
+z2-z3=whatever*dir45; y3r=-apex_o;
+penpos4(cap_stem,90);
+x4=0.633w; y4l=-apex_o;
+penpos5(3/4cap_stem,30);
+z5r=(0.217w,0.5h);
+penpos6(cap_hair,-51);
+z6r=(0.396w,h-apex_o-cap_stem);
+penstroke z3e--z2e;
+penstroke z4e{left}...
+z5e{up}..z6e{dir39};
+filldraw z4r{right}..z2l{z2-z3} &
+z2l--z3r--z4l--z4r & cycle;
+%
+%
+%
+penpos10(cap_stem,-90);
+penpos11(whatever,-115);
+x10=0.115w; y10l=h-apex_o;
+z11l=(w,h+apex_o); penpos10'(cap_stem,-90);
+y11r=y10r; y10'=y10; x10'=x3;
+penstroke z10e---z10'e...z11e;
+penpos13(cap_hair,-34);
+x13l=0; y13=0.732h;
+z12=whatever[z10r,z11r]; x12=x5;
+filldraw z13r{dir56}..z12{right} &
+z12--z10l--z13l--z13r & cycle;
+%
+%
+%
+penpos9(cap_stem,0);
+penpos8(cap_stem,0);
+z9=(0.511w,y10r); z8=(x9,0.381h);
+penstroke z8e--z9e;
+penpos7(0.5cap_hair,-52);
+z8r-z7r=whatever*dir38;
+y7r=y4r; z14=(x8l,0.1[y8,y4r]);
+filldraw z7r--z8r--z8l---z14...
+z7l{z7r-z8r} & z7l--z7r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter U";
+.beginchar("U",11.811u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_stem,0); penpos2(cap_stem,0);
+penpos3(2.375cap_stem,0); penpos5(cap_stem,0);
+penpos6(cap_stem,0);
+x1=w-1.188cap_stem=x2=x3=x4;
+y1=0.152h; y2=0.72h; y3=0.848h;
+y4=h+apex_o;
+penstroke z1e--z2e;
+filldraw z2r{up}..z3r{right} &
+z3r--z4--z3l & z3l{right}..z2l{down}
+& z2l--z2r & cycle;
+penpos9(cap_hair,90); penpos10(whatever,40);
+z10l=(x1l,-apex_o); y10r=y1;
+x9=w-0.04w; z9r=whatever[z10l,z10r];
+filldraw z10l--z9l
+& z9l--z9r & z9r{left}..(x1r,0.274h){up}
+--z1l--z10l & cycle;
+%
+%
+%
+penpos11(1.148cap_stem,39);
+penpos12(1.148cap_stem,39);
+x5r=0.288w; y5=y1; x6=x5; y6=0.817h;
+z11l=(0.393w,-apex_o);
+z12l=z5l; penpos13(cap_hair,-51);
+penpos14(cap_hair,-51);
+z14r=whatever[z11l,z11r];
+z13r=z11; x14l=x1l;
+penstroke z13e--z14e;
+penstroke z11e--z12e;
+penstroke z5e--z6e;
+penpos8(cap_hair,90); z8l=(w-x9,y9l);
+filldraw z11l{z12l-z11l}..z8l
+& z8l--z8r & z8r{right}..(x5l,0.274h){up}
+--z5r--z11l & cycle;
+penpos7(whatever,55);
+z7l=(0,y6); y7r=h+apex_o;
+filldraw z6r{up}..z7r{dir138} &
+z7r--z7l & z7l{right}..(x6l,y2) &
+(x6l,y2)--z6r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter V";
+.beginchar("V",12.189u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.143cap_stem,43);
+penpos2(1.5cap_stem,25);
+penpos3(1.2cap_stem,16);
+penpos4(1.393cap_stem,50);
+z1l=(0.526w,-apex_o);
+z2=(0.251w,0.186h);
+z3=(0.303w,0.494h); x4l=0; y4r=h+apex_o;
+%filldraw z1l{dir138}..z2l{left}
+%& z2l{dir68}..z3l{up}..z4l{dir150}
+%& z4l--z4r & z4r{dir-30}..z3r{down}
+%..z2r & z2r{dir-13}..z1r{dir-33} &
+%z1r--z1l & cycle;
+penstroke z2e..z3e{up}..z4e{dir150};
+penstroke z1e{dir143}..z2e{left};
+%
+%
+%
+penpos5(1.232cap_stem,46);
+z5r=(w,0.61h); z6=(0.557w,0.82h);
+z8=(0.681w,h+apex_o);
+penpos7(cap_hair,-55);
+z8-z7l=whatever*dir37;
+x7r=x3;
+filldraw z1l{dir30}..z5r{up}..z8 &
+z8--z7l--z7r & z7r{z8-z7l}..z6{right}
+..z5l{down}..z1r{dir210} &
+z1r--z1l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter W";
+.beginchar("W",18.189u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(cap_hair,-56);
+penpos2(cap_hair,-56);
+z2r=(0.245w,-apex_o);
+z1r-z2r=whatever*dir34;
+y1l=0.216h-cap_hair;
+penstroke z2e--z1e;
+penpos3(cap_hair,90);
+y3l=y1l; x3=x2r-1.393cap_stem;
+penpos6(cap_stem,0); z6r=(x2r,y3r);
+z4=0.592[z2l,z1l];
+z5-z4=whatever*(z3l-z2r); x5=x6r;
+z7=(x6l,0.36h);
+penpos8(cap_stem,0); x8=x6;
+y8=0.704h;
+penpos9(1.179cap_stem,57);
+x9l=0; y9r=h+apex_o;
+penstroke z6e---z8e...z9e;
+filldraw z2r--z3l--z3r..z7{up}
+& z7--(x6r,y7)--
+z5--z4--z2r & cycle;
+%
+%
+%
+penpos11(cap_hair,-90); z12=(0.444w,h+apex_o);
+z11r=z8r; z13=(.763[x11,x12],0.802h);
+penpos16(cap_stem,0); x16=0.548w;
+y16=0.104h; penpos14(cap_stem,0);
+z14=(x16,y8); z14'=(x14r,y13);
+filldraw z11r{z12-z11l}...z13{right}
+...z14l---z16l--z16r---z14'...z12{dir170}
+& z12--z11l--z11r & cycle;
+penpos18(1.179cap_stem,40);
+penpos18'(1.179cap_stem,40);
+penpos17(1.179cap_stem,40);
+z17l=z16l; z18-z17=whatever*dir-23;
+y18l=-apex_o;
+z18'=0.4[z17,z18]+(apex_o,apex_o);
+penstroke z18e..z18'e..z17e;
+%
+%
+%
+penpos15(cap_hair,-90); z22=(x15-x11+0.444w,h+apex_o);
+z15r=z14r; z21=(.763[x15,x22],0.802h);
+penpos20(1.071cap_stem,35); x20r=w;
+y20=0.552h; penpos19(cap_hair,-60);
+z19r=z18l;
+penstroke z19e{dir30}..z20e{up};
+filldraw z20l{up}..z21{left}..
+z15r{z15l-z22} & z15r--z15l--z22 &
+z22..z20r{down} & z20r--z20l & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter X";
+.beginchar("X",11.472u#,cap_height#,0);
+.adjust_fit(usual_left#,usual_right#);
+penpos1(1.179cap_stem,-130);
+penpos2(1.179cap_stem,-122);
+penpos3(0.8cap_hair,-17);
+penpos4(cap_hair,-22);
+penpos5(1.2cap_hair,-23);
+penpos6(1.107cap_stem,-120);
+penpos7(1.125cap_stem,-124);
+z1r=(0,0.065h); z2r=(0.128w,-apex_o);
+z3=(0.414w,0.28h);
+z4=(0.49w,0.509h); z5=(0.625w,0.765h);
+z6l=(0.878w,h+apex_o);
+z7l=(w,0.945h);
+penstroke z1e..z2e{right}..z3e..z4e
+..z5e..z6e{right}..z7e;
+%
+%
+%
+penpos8(cap_hair,90); penpos9(1.393cap_stem,40);
+penpos10(0.964cap_stem,82);
+penpos11(1.036cap_stem,42);
+penpos12(cap_stem,0);
+penpos13(1.036cap_stem,43);
+penpos14(1.321cap_stem,43);
+x9r=w; y9l=-apex_o; z8l=z9r; z10l=z9l;
+z11=(0.612w,0.186h); z12=z4;
+z13=(0.395w,0.835h); z14r=(0.217w,h+apex_o);
+penstroke z10e{left}..z11e..z12e..z13e..
+z14e{left};
+filldraw z9r--z8r..z10r{left}--z10l
+--z9r & cycle;
+%
+%
+%
+penpos15(cap_hair,0);
+penpos21(0.8cap_stem,-90);
+penpos17(cap_hair,0);
+z21=z4; y19=y18=y21r; y16=y20=y21l;
+y15=y21-0.821cap_stem; y17=y21+0.643cap_stem;
+x15=0.118w; x16=0.204w; x17=0.928w;
+x18=0.836w; x19=0.263w; x20=3/4w;
+filldraw z15r...z19---z18--z17r--
+z17l...z20---z16--z15l--z15r & cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter Y";
+.beginchar("Y",12.302u#,cap_height#,2.34u#);
+.adjust_fit(usual_left#,usual_right#);
+z1=(0.868w,-d); penpos2(cap_stem,7);
+z4=(0.788w,-0.274d);
+z2=(0.856w,-0.613d);
+penpos5(5/3cap_hair,120);
+penpos6(1.2cap_hair,158);
+penpos7(1.2cap_hair,-55);
+penpos8(1.161cap_stem,22);
+z5l=(0.294w,0.171h);
+z6r=(0,0.035h);
+z7r=(0.221w,-0.6d);
+z8r=(w,0.683h); z11=(0.767w,h+apex_o);
+penpos12(cap_stem,0); z12=(0.485w,0.421h);
+x9=0.325[x12r,x8l]; y9=0.835h;
+penpos10(cap_hair,128.5);
+z11-z10r=whatever*dir38.5;
+x10l=x12;
+penstroke z5e{left}..z6e{down}..z7e{right}
+..z8e{up};
+filldraw z1{right}..z2r{up}..z5r{left}
+& z5r--z5l & z5l{right}..z4{down}..
+z2l{down}..z1{right} & cycle;
+filldraw z8l{up}..z9{left}..z10l
+{z10r-z11} & z10l--z10r--z11 &
+z11..z8r{down} & z8r--z8l & cycle;
+%
+%
+%
+penpos13(whatever,33); x13r=x12r;
+z13=(z7{right}..z8{up})
+intersectionpoint ((x12,-d)--z12);
+penpos14(cap_hair,90);
+penpos15(1.464cap_stem,31);
+y15r=h+apex_o; x15l=0; z14r=z15l;
+filldraw z13r---z12r...z15r{left}
+& z15r--z15l--z14l &
+z14l{dir20}...z12l---z13l--z13r &
+cycle;
+.endchar;
+
+.cmchar "The Schwabacher letter Z";
+.beginchar("Z",7.736u#,cap_height#,1.132u#);
+.adjust_fit(usual_left#,usual_right#);
+z1=(apex_o,0.866h);
+penpos2(1.125cap_stem,-135);
+penpos3(1.125cap_stem,-135);
+penpos4(1.125cap_stem,-135);
+penpos5(cap_hair,-45);
+z5r=(w,0.89h);
+penpos6(whatever,-90); x6=0.205w;
+z5r-z6r=whatever*dir45;
+z5l-z6l=whatever*dir45;
+z4l=z5l; z3=(0.722w,0.826h);
+z2l=(0.312w,h+apex_o);
+penstroke z2e{right}..z3e{right}..
+z4e;
+penstroke z6e--z5e;
+filldraw z1..z2l{right}--z2r{left}
+..z1 & cycle;
+%
+%
+%
+z10=(0,0.128h); z12=(0.327w,y10);
+z13=(0.263w,apex_o);
+penpos9(cap_hair,-90);
+z9r=(0.439w,-d);
+penpos8(1.071cap_stem,36);
+z8r=(w,0.317h);
+penpos7(cap_stem,68);
+z7r=whatever[z6r,z5r];
+y7l=y6l; penstroke z9e{right}..
+z8e{up}..z7e{left};
+filldraw z6r{z5r-z6r}..z7l{right}
+& z7l--z7r--z6r & cycle;
+filldraw z9r{left}..z10{up}..z12{down}
+..z13{down}..z9l{right} & z9l--z9r &
+cycle;
+.endchar;