From e0c6872cf40896c7be36b11dcc744620f10adf1d Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 2 Sep 2019 13:46:59 +0900 Subject: Initial commit --- fonts/gothic/blacklettert1/COPYING | 318 ++ fonts/gothic/blacklettert1/INSTALL | 29 + fonts/gothic/blacklettert1/Makefile | 66 + fonts/gothic/blacklettert1/README | 21 + fonts/gothic/blacklettert1/blacklettert1.dtx | 6280 ++++++++++++++++++++++++++ fonts/gothic/blacklettert1/blacklettert1.ins | 98 + fonts/gothic/blacklettert1/cmbsy10.pl | 767 ++++ fonts/gothic/blacklettert1/cmbx10.pl | 980 ++++ fonts/gothic/blacklettert1/cmmi10.pl | 1133 +++++ fonts/gothic/blacklettert1/cmmib10.pl | 1132 +++++ fonts/gothic/blacklettert1/cmr10.pl | 980 ++++ fonts/gothic/blacklettert1/cmr7.pl | 980 ++++ fonts/gothic/blacklettert1/cmsy10.pl | 769 ++++ fonts/gothic/blacklettert1/cmu10.pl | 963 ++++ fonts/gothic/blacklettert1/ecbx1000.pl | 3853 ++++++++++++++++ fonts/gothic/blacklettert1/ecrm0700.pl | 3853 ++++++++++++++++ fonts/gothic/blacklettert1/ecrm1000.pl | 3853 ++++++++++++++++ fonts/gothic/blacklettert1/t1yfrak.fd | 30 + fonts/gothic/blacklettert1/tfrak.tfm | Bin 0 -> 7288 bytes fonts/gothic/blacklettert1/tfrak.vf | Bin 0 -> 3456 bytes fonts/gothic/blacklettert1/tfrakls.tfm | Bin 0 -> 1892 bytes fonts/gothic/blacklettert1/tfrakls.vf | Bin 0 -> 4756 bytes fonts/gothic/blacklettert1/tgoth.tfm | Bin 0 -> 5944 bytes fonts/gothic/blacklettert1/tgoth.vf | Bin 0 -> 5300 bytes fonts/gothic/blacklettert1/tswab.tfm | Bin 0 -> 6196 bytes fonts/gothic/blacklettert1/tswab.vf | Bin 0 -> 2956 bytes fonts/gothic/blacklettert1/yfrak.pl | 652 +++ fonts/gothic/blacklettert1/ygoth.pl | 723 +++ fonts/gothic/blacklettert1/yswab.pl | 719 +++ fonts/gothic/cmfrak/00readme_fraktur.msg | 23 + fonts/gothic/cmfrak/cmfrabase.mf | 231 + fonts/gothic/cmfrak/cmfrak.mf | 8 + fonts/gothic/cmfrak/cmfraklow.mf | 785 ++++ fonts/gothic/cmfrak/cmfrakmis.mf | 769 ++++ fonts/gothic/cmfrak/cmfraknum.mf | 194 + fonts/gothic/cmfrak/cmfrakoth.mf | 551 +++ fonts/gothic/cmfrak/cmfrakupp.mf | 1749 +++++++ fonts/gothic/cmfrak/dcfrak.mf | 8 + fonts/gothic/cmfrak/xxfrak.mf | 168 + fonts/gothic/corkpaper.tex | 570 +++ fonts/gothic/oldlatin/README | 22 + fonts/gothic/oldlatin/olb10.mf | 80 + fonts/gothic/oldlatin/olbx10.mf | 80 + fonts/gothic/oldlatin/olbx12.mf | 80 + fonts/gothic/oldlatin/olbx5.mf | 80 + fonts/gothic/oldlatin/olbx6.mf | 80 + fonts/gothic/oldlatin/olbx7.mf | 80 + fonts/gothic/oldlatin/olbx8.mf | 80 + fonts/gothic/oldlatin/olbx9.mf | 80 + fonts/gothic/oldlatin/olbxsl10.mf | 80 + fonts/gothic/oldlatin/oldlatin.pdf | Bin 0 -> 51234 bytes fonts/gothic/oldlatin/oldlatin.tex | 252 ++ fonts/gothic/oldlatin/oldunh10.mf | 80 + fonts/gothic/oldlatin/olff10.mf | 80 + fonts/gothic/oldlatin/olfib8.mf | 80 + fonts/gothic/oldlatin/olr10.mf | 80 + fonts/gothic/oldlatin/olr10s.mf | 80 + fonts/gothic/oldlatin/olr12.mf | 80 + fonts/gothic/oldlatin/olr17.mf | 80 + fonts/gothic/oldlatin/olr5.mf | 80 + fonts/gothic/oldlatin/olr6.mf | 80 + fonts/gothic/oldlatin/olr7.mf | 80 + fonts/gothic/oldlatin/olr8.mf | 80 + fonts/gothic/oldlatin/olr9.mf | 80 + fonts/gothic/oldlatin/olsl10.mf | 80 + fonts/gothic/oldlatin/olsl12.mf | 80 + fonts/gothic/oldlatin/olsl8.mf | 80 + fonts/gothic/oldlatin/olsl9.mf | 80 + fonts/gothic/oldlatin/olsltt10.mf | 80 + fonts/gothic/oldlatin/olss10.mf | 80 + fonts/gothic/oldlatin/olss12.mf | 80 + fonts/gothic/oldlatin/olss17.mf | 80 + fonts/gothic/oldlatin/olss8.mf | 80 + fonts/gothic/oldlatin/olss9.mf | 80 + fonts/gothic/oldlatin/olssbx10.mf | 80 + fonts/gothic/oldlatin/olssdc10.mf | 80 + fonts/gothic/oldlatin/olssi10.mf | 80 + fonts/gothic/oldlatin/olssi12.mf | 80 + fonts/gothic/oldlatin/olssi17.mf | 80 + fonts/gothic/oldlatin/olssi8.mf | 80 + fonts/gothic/oldlatin/olssi9.mf | 80 + fonts/gothic/oldlatin/olssq8.mf | 80 + fonts/gothic/oldlatin/olssqi8.mf | 80 + fonts/gothic/oldlatin/oltt10.mf | 80 + fonts/gothic/oldlatin/oltt12.mf | 80 + fonts/gothic/oldlatin/oltt8.mf | 80 + fonts/gothic/oldlatin/oltt9.mf | 80 + fonts/gothic/oldlatin/olvtt10.mf | 80 + fonts/gothic/oldlatin/oroman.mf | 75 + fonts/gothic/oldlatin/oromanl.mf | 843 ++++ fonts/gothic/oldlatin/oromlig.mf | 168 + fonts/gothic/oldlatin/oromligs.mf | 773 ++++ fonts/gothic/oldlatin/test_alphabet.tex | 5 + fonts/gothic/oldlatin/test_ol_all.pdf | Bin 0 -> 238639 bytes fonts/gothic/oldlatin/test_ol_all.tex | 59 + fonts/gothic/oldlatin/test_ol_bf.pdf | Bin 0 -> 130621 bytes fonts/gothic/oldlatin/test_ol_bf.tex | 36 + fonts/gothic/oldlatin/test_ol_rm.pdf | Bin 0 -> 155683 bytes fonts/gothic/oldlatin/test_ol_rm.tex | 42 + fonts/gothic/oldlatin/test_ol_sl.pdf | Bin 0 -> 78663 bytes fonts/gothic/oldlatin/test_ol_sl.tex | 24 + fonts/gothic/oldlatin/test_ol_ss.pdf | Bin 0 -> 201601 bytes fonts/gothic/oldlatin/test_ol_ss.tex | 51 + fonts/gothic/oldlatin/test_ol_tt.pdf | Bin 0 -> 56599 bytes fonts/gothic/oldlatin/test_ol_tt.tex | 24 + fonts/gothic/ps/yfonts | 1 + fonts/gothic/sueterlin/README | 15 + fonts/gothic/sueterlin/mfall.bat | 12 + fonts/gothic/sueterlin/schwell.mf | 100 + fonts/gothic/sueterlin/su-lig.mf | 232 + fonts/gothic/sueterlin/su-low.mf | 796 ++++ fonts/gothic/sueterlin/su-spec.mf | 555 +++ fonts/gothic/sueterlin/su-upp.mf | 849 ++++ fonts/gothic/sueterlin/suet.pdf | Bin 0 -> 131462 bytes fonts/gothic/sueterlin/suet.tex | 90 + fonts/gothic/sueterlin/suet14.mf | 97 + fonts/gothic/yfrak/yfrabase.mf | 73 + fonts/gothic/yfrak/yfrak.mf | 137 + fonts/gothic/yfrak/yfrak.tfm | Bin 0 -> 1416 bytes fonts/gothic/yfrak/yfraklow.mf | 593 +++ fonts/gothic/yfrak/yfrakmis.mf | 574 +++ fonts/gothic/yfrak/yfraknum.mf | 194 + fonts/gothic/yfrak/yfrakoth.mf | 528 +++ fonts/gothic/yfrak/yfrakupp.mf | 1342 ++++++ fonts/gothic/yfrak/ysmfrak.mf | 137 + fonts/gothic/yfrak/ysmfrak.tfm | Bin 0 -> 1416 bytes fonts/gothic/ygoth/ygotbase.mf | 79 + fonts/gothic/ygoth/ygoth.mf | 134 + fonts/gothic/ygoth/ygoth.tfm | Bin 0 -> 1236 bytes fonts/gothic/ygoth/ygothgen.mf | 452 ++ fonts/gothic/ygoth/ygothlig.mf | 1578 +++++++ fonts/gothic/ygoth/ygothlow.mf | 768 ++++ fonts/gothic/ygoth/ygothmis.mf | 177 + fonts/gothic/ygoth/ygothnum.mf | 229 + fonts/gothic/ygoth/ygothupp.mf | 2399 ++++++++++ fonts/gothic/yinit-otf/README.md | 15 + fonts/gothic/yinit-otf/Yinit.otf | Bin 0 -> 698840 bytes fonts/gothic/yinit/README | 43 + fonts/gothic/yinit/yinit.mf | 112 + fonts/gothic/yinit/yinit.pdf | Bin 0 -> 97972 bytes fonts/gothic/yinit/yinitA.mf | 139 + fonts/gothic/yinit/yinitB.mf | 135 + fonts/gothic/yinit/yinitC.mf | 122 + fonts/gothic/yinit/yinitD.mf | 121 + fonts/gothic/yinit/yinitE.mf | 100 + fonts/gothic/yinit/yinitF.mf | 109 + fonts/gothic/yinit/yinitG.mf | 89 + fonts/gothic/yinit/yinitH.mf | 123 + fonts/gothic/yinit/yinitJ.mf | 122 + fonts/gothic/yinit/yinitK.mf | 125 + fonts/gothic/yinit/yinitL.mf | 107 + fonts/gothic/yinit/yinitM.mf | 123 + fonts/gothic/yinit/yinitN.mf | 109 + fonts/gothic/yinit/yinitO.mf | 86 + fonts/gothic/yinit/yinitP.mf | 100 + fonts/gothic/yinit/yinitQ.mf | 106 + fonts/gothic/yinit/yinitR.mf | 120 + fonts/gothic/yinit/yinitS.mf | 117 + fonts/gothic/yinit/yinitT.mf | 113 + fonts/gothic/yinit/yinitU.mf | 120 + fonts/gothic/yinit/yinitV.mf | 96 + fonts/gothic/yinit/yinitW.mf | 138 + fonts/gothic/yinit/yinitX.mf | 126 + fonts/gothic/yinit/yinitY.mf | 110 + fonts/gothic/yinit/yinitZ.mf | 114 + fonts/gothic/yinit/yintbase.mf | 229 + fonts/gothic/yswab/yswab.mf | 138 + fonts/gothic/yswab/yswab.tfm | Bin 0 -> 1376 bytes fonts/gothic/yswab/yswabase.mf | 103 + fonts/gothic/yswab/yswablow.mf | 700 +++ fonts/gothic/yswab/yswabmis.mf | 1300 ++++++ fonts/gothic/yswab/yswabnum.mf | 288 ++ fonts/gothic/yswab/yswabupp.mf | 1179 +++++ 173 files changed, 58347 insertions(+) create mode 100644 fonts/gothic/blacklettert1/COPYING create mode 100644 fonts/gothic/blacklettert1/INSTALL create mode 100644 fonts/gothic/blacklettert1/Makefile create mode 100644 fonts/gothic/blacklettert1/README create mode 100644 fonts/gothic/blacklettert1/blacklettert1.dtx create mode 100644 fonts/gothic/blacklettert1/blacklettert1.ins create mode 100644 fonts/gothic/blacklettert1/cmbsy10.pl create mode 100644 fonts/gothic/blacklettert1/cmbx10.pl create mode 100644 fonts/gothic/blacklettert1/cmmi10.pl create mode 100644 fonts/gothic/blacklettert1/cmmib10.pl create mode 100644 fonts/gothic/blacklettert1/cmr10.pl create mode 100644 fonts/gothic/blacklettert1/cmr7.pl create mode 100644 fonts/gothic/blacklettert1/cmsy10.pl create mode 100644 fonts/gothic/blacklettert1/cmu10.pl create mode 100644 fonts/gothic/blacklettert1/ecbx1000.pl create mode 100644 fonts/gothic/blacklettert1/ecrm0700.pl create mode 100644 fonts/gothic/blacklettert1/ecrm1000.pl create mode 100644 fonts/gothic/blacklettert1/t1yfrak.fd create mode 100644 fonts/gothic/blacklettert1/tfrak.tfm create mode 100644 fonts/gothic/blacklettert1/tfrak.vf create mode 100644 fonts/gothic/blacklettert1/tfrakls.tfm create mode 100644 fonts/gothic/blacklettert1/tfrakls.vf create mode 100644 fonts/gothic/blacklettert1/tgoth.tfm create mode 100644 fonts/gothic/blacklettert1/tgoth.vf create mode 100644 fonts/gothic/blacklettert1/tswab.tfm create mode 100644 fonts/gothic/blacklettert1/tswab.vf create mode 100644 fonts/gothic/blacklettert1/yfrak.pl create mode 100644 fonts/gothic/blacklettert1/ygoth.pl create mode 100644 fonts/gothic/blacklettert1/yswab.pl create mode 100644 fonts/gothic/cmfrak/00readme_fraktur.msg create mode 100644 fonts/gothic/cmfrak/cmfrabase.mf create mode 100644 fonts/gothic/cmfrak/cmfrak.mf create mode 100644 fonts/gothic/cmfrak/cmfraklow.mf create mode 100644 fonts/gothic/cmfrak/cmfrakmis.mf create mode 100644 fonts/gothic/cmfrak/cmfraknum.mf create mode 100644 fonts/gothic/cmfrak/cmfrakoth.mf create mode 100644 fonts/gothic/cmfrak/cmfrakupp.mf create mode 100644 fonts/gothic/cmfrak/dcfrak.mf create mode 100644 fonts/gothic/cmfrak/xxfrak.mf create mode 100644 fonts/gothic/corkpaper.tex create mode 100644 fonts/gothic/oldlatin/README create mode 100644 fonts/gothic/oldlatin/olb10.mf create mode 100644 fonts/gothic/oldlatin/olbx10.mf create mode 100644 fonts/gothic/oldlatin/olbx12.mf create mode 100644 fonts/gothic/oldlatin/olbx5.mf create mode 100644 fonts/gothic/oldlatin/olbx6.mf create mode 100644 fonts/gothic/oldlatin/olbx7.mf create mode 100644 fonts/gothic/oldlatin/olbx8.mf create mode 100644 fonts/gothic/oldlatin/olbx9.mf create mode 100644 fonts/gothic/oldlatin/olbxsl10.mf create mode 100644 fonts/gothic/oldlatin/oldlatin.pdf create mode 100644 fonts/gothic/oldlatin/oldlatin.tex create mode 100644 fonts/gothic/oldlatin/oldunh10.mf create mode 100644 fonts/gothic/oldlatin/olff10.mf create mode 100644 fonts/gothic/oldlatin/olfib8.mf create mode 100644 fonts/gothic/oldlatin/olr10.mf create mode 100644 fonts/gothic/oldlatin/olr10s.mf create mode 100644 fonts/gothic/oldlatin/olr12.mf create mode 100644 fonts/gothic/oldlatin/olr17.mf create mode 100644 fonts/gothic/oldlatin/olr5.mf create mode 100644 fonts/gothic/oldlatin/olr6.mf create mode 100644 fonts/gothic/oldlatin/olr7.mf create mode 100644 fonts/gothic/oldlatin/olr8.mf create mode 100644 fonts/gothic/oldlatin/olr9.mf create mode 100644 fonts/gothic/oldlatin/olsl10.mf create mode 100644 fonts/gothic/oldlatin/olsl12.mf create mode 100644 fonts/gothic/oldlatin/olsl8.mf create mode 100644 fonts/gothic/oldlatin/olsl9.mf create mode 100644 fonts/gothic/oldlatin/olsltt10.mf create mode 100644 fonts/gothic/oldlatin/olss10.mf create mode 100644 fonts/gothic/oldlatin/olss12.mf create mode 100644 fonts/gothic/oldlatin/olss17.mf create mode 100644 fonts/gothic/oldlatin/olss8.mf create mode 100644 fonts/gothic/oldlatin/olss9.mf create mode 100644 fonts/gothic/oldlatin/olssbx10.mf create mode 100644 fonts/gothic/oldlatin/olssdc10.mf create mode 100644 fonts/gothic/oldlatin/olssi10.mf create mode 100644 fonts/gothic/oldlatin/olssi12.mf create mode 100644 fonts/gothic/oldlatin/olssi17.mf create mode 100644 fonts/gothic/oldlatin/olssi8.mf create mode 100644 fonts/gothic/oldlatin/olssi9.mf create mode 100644 fonts/gothic/oldlatin/olssq8.mf create mode 100644 fonts/gothic/oldlatin/olssqi8.mf create mode 100644 fonts/gothic/oldlatin/oltt10.mf create mode 100644 fonts/gothic/oldlatin/oltt12.mf create mode 100644 fonts/gothic/oldlatin/oltt8.mf create mode 100644 fonts/gothic/oldlatin/oltt9.mf create mode 100644 fonts/gothic/oldlatin/olvtt10.mf create mode 100644 fonts/gothic/oldlatin/oroman.mf create mode 100644 fonts/gothic/oldlatin/oromanl.mf create mode 100644 fonts/gothic/oldlatin/oromlig.mf create mode 100644 fonts/gothic/oldlatin/oromligs.mf create mode 100644 fonts/gothic/oldlatin/test_alphabet.tex create mode 100644 fonts/gothic/oldlatin/test_ol_all.pdf create mode 100644 fonts/gothic/oldlatin/test_ol_all.tex create mode 100644 fonts/gothic/oldlatin/test_ol_bf.pdf create mode 100644 fonts/gothic/oldlatin/test_ol_bf.tex create mode 100644 fonts/gothic/oldlatin/test_ol_rm.pdf create mode 100644 fonts/gothic/oldlatin/test_ol_rm.tex create mode 100644 fonts/gothic/oldlatin/test_ol_sl.pdf create mode 100644 fonts/gothic/oldlatin/test_ol_sl.tex create mode 100644 fonts/gothic/oldlatin/test_ol_ss.pdf create mode 100644 fonts/gothic/oldlatin/test_ol_ss.tex create mode 100644 fonts/gothic/oldlatin/test_ol_tt.pdf create mode 100644 fonts/gothic/oldlatin/test_ol_tt.tex create mode 120000 fonts/gothic/ps/yfonts create mode 100644 fonts/gothic/sueterlin/README create mode 100644 fonts/gothic/sueterlin/mfall.bat create mode 100644 fonts/gothic/sueterlin/schwell.mf create mode 100644 fonts/gothic/sueterlin/su-lig.mf create mode 100644 fonts/gothic/sueterlin/su-low.mf create mode 100644 fonts/gothic/sueterlin/su-spec.mf create mode 100644 fonts/gothic/sueterlin/su-upp.mf create mode 100644 fonts/gothic/sueterlin/suet.pdf create mode 100644 fonts/gothic/sueterlin/suet.tex create mode 100644 fonts/gothic/sueterlin/suet14.mf create mode 100644 fonts/gothic/yfrak/yfrabase.mf create mode 100644 fonts/gothic/yfrak/yfrak.mf create mode 100644 fonts/gothic/yfrak/yfrak.tfm create mode 100644 fonts/gothic/yfrak/yfraklow.mf create mode 100644 fonts/gothic/yfrak/yfrakmis.mf create mode 100644 fonts/gothic/yfrak/yfraknum.mf create mode 100644 fonts/gothic/yfrak/yfrakoth.mf create mode 100644 fonts/gothic/yfrak/yfrakupp.mf create mode 100644 fonts/gothic/yfrak/ysmfrak.mf create mode 100644 fonts/gothic/yfrak/ysmfrak.tfm create mode 100644 fonts/gothic/ygoth/ygotbase.mf create mode 100644 fonts/gothic/ygoth/ygoth.mf create mode 100644 fonts/gothic/ygoth/ygoth.tfm create mode 100644 fonts/gothic/ygoth/ygothgen.mf create mode 100644 fonts/gothic/ygoth/ygothlig.mf create mode 100644 fonts/gothic/ygoth/ygothlow.mf create mode 100644 fonts/gothic/ygoth/ygothmis.mf create mode 100644 fonts/gothic/ygoth/ygothnum.mf create mode 100644 fonts/gothic/ygoth/ygothupp.mf create mode 100644 fonts/gothic/yinit-otf/README.md create mode 100644 fonts/gothic/yinit-otf/Yinit.otf create mode 100644 fonts/gothic/yinit/README create mode 100644 fonts/gothic/yinit/yinit.mf create mode 100644 fonts/gothic/yinit/yinit.pdf create mode 100644 fonts/gothic/yinit/yinitA.mf create mode 100644 fonts/gothic/yinit/yinitB.mf create mode 100644 fonts/gothic/yinit/yinitC.mf create mode 100644 fonts/gothic/yinit/yinitD.mf create mode 100644 fonts/gothic/yinit/yinitE.mf create mode 100644 fonts/gothic/yinit/yinitF.mf create mode 100644 fonts/gothic/yinit/yinitG.mf create mode 100644 fonts/gothic/yinit/yinitH.mf create mode 100644 fonts/gothic/yinit/yinitJ.mf create mode 100644 fonts/gothic/yinit/yinitK.mf create mode 100644 fonts/gothic/yinit/yinitL.mf create mode 100644 fonts/gothic/yinit/yinitM.mf create mode 100644 fonts/gothic/yinit/yinitN.mf create mode 100644 fonts/gothic/yinit/yinitO.mf create mode 100644 fonts/gothic/yinit/yinitP.mf create mode 100644 fonts/gothic/yinit/yinitQ.mf create mode 100644 fonts/gothic/yinit/yinitR.mf create mode 100644 fonts/gothic/yinit/yinitS.mf create mode 100644 fonts/gothic/yinit/yinitT.mf create mode 100644 fonts/gothic/yinit/yinitU.mf create mode 100644 fonts/gothic/yinit/yinitV.mf create mode 100644 fonts/gothic/yinit/yinitW.mf create mode 100644 fonts/gothic/yinit/yinitX.mf create mode 100644 fonts/gothic/yinit/yinitY.mf create mode 100644 fonts/gothic/yinit/yinitZ.mf create mode 100644 fonts/gothic/yinit/yintbase.mf create mode 100644 fonts/gothic/yswab/yswab.mf create mode 100644 fonts/gothic/yswab/yswab.tfm create mode 100644 fonts/gothic/yswab/yswabase.mf create mode 100644 fonts/gothic/yswab/yswablow.mf create mode 100644 fonts/gothic/yswab/yswabmis.mf create mode 100644 fonts/gothic/yswab/yswabnum.mf create mode 100644 fonts/gothic/yswab/yswabupp.mf (limited to 'fonts/gothic') 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 +# +# 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 +% +% 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} +% +% \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 +% +% \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} +% +% \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} +% +% \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} +% +% \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 +% +% \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 +% +% \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 +% +% \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 +% +% \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 +% +% \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 +% +% \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 +% +% \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 +% +% \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 +% +% \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} +% +% \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 +% 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 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} +% +% \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 +%% +%% 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 ^^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 Binary files /dev/null and b/fonts/gothic/blacklettert1/tfrak.tfm differ diff --git a/fonts/gothic/blacklettert1/tfrak.vf b/fonts/gothic/blacklettert1/tfrak.vf new file mode 100644 index 0000000000..6df13d17fe Binary files /dev/null and b/fonts/gothic/blacklettert1/tfrak.vf differ diff --git a/fonts/gothic/blacklettert1/tfrakls.tfm b/fonts/gothic/blacklettert1/tfrakls.tfm new file mode 100644 index 0000000000..9f18a0edbb Binary files /dev/null and b/fonts/gothic/blacklettert1/tfrakls.tfm differ diff --git a/fonts/gothic/blacklettert1/tfrakls.vf b/fonts/gothic/blacklettert1/tfrakls.vf new file mode 100644 index 0000000000..f1b6983a91 Binary files /dev/null and b/fonts/gothic/blacklettert1/tfrakls.vf differ diff --git a/fonts/gothic/blacklettert1/tgoth.tfm b/fonts/gothic/blacklettert1/tgoth.tfm new file mode 100644 index 0000000000..98852ccb1f Binary files /dev/null and b/fonts/gothic/blacklettert1/tgoth.tfm differ diff --git a/fonts/gothic/blacklettert1/tgoth.vf b/fonts/gothic/blacklettert1/tgoth.vf new file mode 100644 index 0000000000..30b42d863c Binary files /dev/null and b/fonts/gothic/blacklettert1/tgoth.vf differ diff --git a/fonts/gothic/blacklettert1/tswab.tfm b/fonts/gothic/blacklettert1/tswab.tfm new file mode 100644 index 0000000000..1ea80d9bec Binary files /dev/null and b/fonts/gothic/blacklettert1/tswab.tfm differ diff --git a/fonts/gothic/blacklettert1/tswab.vf b/fonts/gothic/blacklettert1/tswab.vf new file mode 100644 index 0000000000..e609b67d8e Binary files /dev/null and b/fonts/gothic/blacklettert1/tswab.vf 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+.5u0): 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 Binary files /dev/null and b/fonts/gothic/oldlatin/oldlatin.pdf 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_curvenotch_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 y45notch_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 alpha1notch_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 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_height75: + 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 Binary files /dev/null and b/fonts/gothic/oldlatin/test_ol_all.pdf 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 Binary files /dev/null and b/fonts/gothic/oldlatin/test_ol_bf.pdf 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 Binary files /dev/null and b/fonts/gothic/oldlatin/test_ol_rm.pdf 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 Binary files /dev/null and b/fonts/gothic/oldlatin/test_ol_sl.pdf 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 Binary files /dev/null and b/fonts/gothic/oldlatin/test_ol_ss.pdf 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 Binary files /dev/null and b/fonts/gothic/oldlatin/test_ol_tt.pdf 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 Binary files /dev/null and b/fonts/gothic/sueterlin/suet.pdf 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 Binary files /dev/null and b/fonts/gothic/yfrak/yfrak.tfm 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 y2l0: .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+.5u1: 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 Binary files /dev/null and b/fonts/gothic/yfrak/ysmfrak.tfm 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 Binary files /dev/null and b/fonts/gothic/ygoth/ygoth.tfm 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 Binary files /dev/null and b/fonts/gothic/yinit-otf/Yinit.otf 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 Binary files /dev/null and b/fonts/gothic/yinit/yinit.pdf 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 Binary files /dev/null and b/fonts/gothic/yswab/yswab.tfm 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 y2l0: .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; -- cgit v1.2.3