diff options
author | Karl Berry <karl@freefriends.org> | 2014-09-03 21:44:10 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2014-09-03 21:44:10 +0000 |
commit | d0d0d4483cb9d0d98d4570649930ddb803c83050 (patch) | |
tree | 95a35c8fe79d7de6a9ed02f325631b6d2282a003 /Master/texmf-dist | |
parent | 855095e4c676191f2890ea2fb5868c276042ae30 (diff) |
drm (2sep14)
git-svn-id: svn://tug.org/texlive/trunk@35102 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
377 files changed, 41556 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/fonts/drm/OFL.txt b/Master/texmf-dist/doc/fonts/drm/OFL.txt new file mode 100644 index 00000000000..eb2c4f64934 --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/OFL.txt @@ -0,0 +1,94 @@ +Copyright (c) 2014, Donald P. Goodman III (dgoodmaniii@gmail.com), +with Reserved Font Name Don's Revised Modern (DRM). + +This Font Software is licensed under the SIL Open Font License, Version 1.1. +This license is copied below, and is also available with a FAQ at: +http://scripts.sil.org/OFL + + +----------------------------------------------------------- +SIL OPEN FONT LICENSE Version 1.1 - 26 February 2007 +----------------------------------------------------------- + +PREAMBLE +The goals of the Open Font License (OFL) are to stimulate worldwide +development of collaborative font projects, to support the font creation +efforts of academic and linguistic communities, and to provide a free and +open framework in which fonts may be shared and improved in partnership +with others. + +The OFL allows the licensed fonts to be used, studied, modified and +redistributed freely as long as they are not sold by themselves. The +fonts, including any derivative works, can be bundled, embedded, +redistributed and/or sold with any software provided that any reserved +names are not used by derivative works. The fonts and derivatives, +however, cannot be released under any other type of license. The +requirement for fonts to remain under this license does not apply +to any document created using the fonts or their derivatives. + +DEFINITIONS +"Font Software" refers to the set of files released by the Copyright +Holder(s) under this license and clearly marked as such. This may +include source files, build scripts and documentation. + +"Reserved Font Name" refers to any names specified as such after the +copyright statement(s). + +"Original Version" refers to the collection of Font Software components as +distributed by the Copyright Holder(s). + +"Modified Version" refers to any derivative made by adding to, deleting, +or substituting -- in part or in whole -- any of the components of the +Original Version, by changing formats or by porting the Font Software to a +new environment. + +"Author" refers to any designer, engineer, programmer, technical +writer or other person who contributed to the Font Software. + +PERMISSION & CONDITIONS +Permission is hereby granted, free of charge, to any person obtaining +a copy of the Font Software, to use, study, copy, merge, embed, modify, +redistribute, and sell modified and unmodified copies of the Font +Software, subject to the following conditions: + +1) Neither the Font Software nor any of its individual components, +in Original or Modified Versions, may be sold by itself. + +2) Original or Modified Versions of the Font Software may be bundled, +redistributed and/or sold with any software, provided that each copy +contains the above copyright notice and this license. These can be +included either as stand-alone text files, human-readable headers or +in the appropriate machine-readable metadata fields within text or +binary files as long as those fields can be easily viewed by the user. + +3) No Modified Version of the Font Software may use the Reserved Font +Name(s) unless explicit written permission is granted by the corresponding +Copyright Holder. This restriction only applies to the primary font name as +presented to the users. + +4) The name(s) of the Copyright Holder(s) or the Author(s) of the Font +Software shall not be used to promote, endorse or advertise any +Modified Version, except to acknowledge the contribution(s) of the +Copyright Holder(s) and the Author(s) or with their explicit written +permission. + +5) The Font Software, modified or unmodified, in part or in whole, +must be distributed entirely under this license, and must not be +distributed under any other license. The requirement for fonts to +remain under this license does not apply to any document created +using the Font Software. + +TERMINATION +This license becomes null and void if any of the above conditions are +not met. + +DISCLAIMER +THE FONT SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO ANY WARRANTIES OF +MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT +OF COPYRIGHT, PATENT, TRADEMARK, OR OTHER RIGHT. IN NO EVENT SHALL THE +COPYRIGHT HOLDER BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, +INCLUDING ANY GENERAL, SPECIAL, INDIRECT, INCIDENTAL, OR CONSEQUENTIAL +DAMAGES, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING +FROM, OUT OF THE USE OR INABILITY TO USE THE FONT SOFTWARE OR FROM +OTHER DEALINGS IN THE FONT SOFTWARE. diff --git a/Master/texmf-dist/doc/fonts/drm/README b/Master/texmf-dist/doc/fonts/drm/README new file mode 100644 index 00000000000..021bc00d6ef --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/README @@ -0,0 +1,38 @@ ++AMDG + +This document is copyright 2014 by Donald P. Goodman, and is +released publicly under the LaTeX Project Public License. The +distribution and modification of this work is constrained by the +conditions of that license. See + http://www.latex-project.org/lppl.txt +for the text of the license. This document is released +under version 1.3 of that license, and this work may be distributed +or modified under the terms of that license or, at your option, any +later version. + +This work has the LPPL maintenance status 'maintained'. + +The Current Maintainer of this work is Donald P. Goodman +(dgoodmaniii@gmail.com). + +This work consists of the files listed in drmfilelist.txt. + +The drm package provides access to the DRM (Don's Revised +Modern) family of fonts, which includes a variety of optical +sizes in Roman, italic, and small caps, along with a set of +symbols and ornaments. It is intended to be a full-body +text font, but its larger sizes can also be used for simple +display purposes, and its significant body of symbols can +stand on its own. It comes complete with textual +(``old-style'') and lining figures, and even has small-caps +figures. It also comes with extensible decorative rules to +be used with ornaments from itself or other fonts, along +with an extremely flexible ellipsis package. A set of +decorative initials is planned. + +This package should run properly on any properly running LaTeX +system. It's been tested specifically with TeXLive on Linux (3.2.0 +kernel). + +This is version 1.0 of drm, submitted to CTAN on 1 Sept +2014. diff --git a/Master/texmf-dist/doc/fonts/drm/allcomp.sh b/Master/texmf-dist/doc/fonts/drm/allcomp.sh new file mode 100644 index 00000000000..f0324f9d8eb --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/allcomp.sh @@ -0,0 +1,52 @@ +#!/bin/bash +# +AMDG + +re="^drm([m|b|bx|c|sym]*)([n|it|sl|sc]*)([0-9]{1,2})$"; +ifmath="mmi"; +ifomx="omx"; +ifmathsym="sy[0-9]"; +font=$1; +fname="drm"; +fenc="T1"; +commands="\\sample\\bye"; +if [[ $font =~ $ifmath ]]; then + fenc="OML"; + commands="\\table\\math\\bye"; +fi +if [[ $font =~ $ifomx ]]; then + fenc="OMX"; + commands="\\table\\math\\bye"; +fi +if [[ $font =~ $ifmathsym ]]; then + fenc="OMS"; + commands="\\table\\math\\bye"; +fi +[[ $font =~ $re ]] && fweight="${BASH_REMATCH[1]}" && + fshape="${BASH_REMATCH[2]}" && fsize="${BASH_REMATCH[3]}"; +if [[ $fshape == "" ]]; then + fshape="m"; +fi +if [[ $fweight == "" ]]; then + fweight="n"; +elif [[ $fweight == "sym" ]]; then + fweight="n"; + fname="drmsym"; +fi +#echo "fweight = $fweight; fshape = $fshape; fsize = $fsize"; +nfssfontin=$(cat <<ENDFONTIN +$font +$commands +$fenc +$fname +$fweight +$fshape +$fsize +$commands +ENDFONTIN +) +echo $nfssfontin; + +rm $1*pk; rm $1*gf; +mf "\mode=localfont; input $1"; +gftopk $1.600gf $1.pk; +echo "$nfssfontin" | pdflatex nfssfont; diff --git a/Master/texmf-dist/doc/fonts/drm/chartscript.sh b/Master/texmf-dist/doc/fonts/drm/chartscript.sh new file mode 100644 index 00000000000..1468592b11f --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/chartscript.sh @@ -0,0 +1,34 @@ +#!/bin/bash + +fonts=(drm10 drmsl10 drmit10 drmui10 drmsc10 drmtc10 drml10 \ +drmb10 drmbx10 drmmi10 drmsy10 drmomx10 drmsym10); +encs=(T1 T1 T1 T1 T1 T1 T1 T1 T1 OML OMS OMX TS1); +names=(drm drm drm drm drm drm drm drm drm drm drm drm drmsym); +weights=(m m m m m m l b bx m m m m); +shapes=(n sl it ui sc tc n n n n n n n); + +j=0; +for i in "${fonts[@]}"; do +nfssfontin=$(cat <<ENDFONTIN +${fonts[j]} +\table\bye +${encs[j]} +${names[j]} +${weights[j]} +${shapes[j]} +10 +\table\bye +ENDFONTIN +) +#echo "$nfssfontin"; +echo "$nfssfontin" | pdflatex nfssfont; +if [ $j == 0 ]; then + mv nfssfont.pdf tables_0.pdf; +else +# echo "cat nfssfont.pdf to tables_$((j-1)), output tables_$j.pdf"; + pdftk A=nfssfont.pdf B=tables_$((j-1)).pdf cat B A output tables_$j.pdf; +fi; +let "j++"; +done +mv tables_12.pdf drm_font_tables.pdf; +rm tables_*.pdf; diff --git a/Master/texmf-dist/doc/fonts/drm/drm.pdf b/Master/texmf-dist/doc/fonts/drm/drm.pdf Binary files differnew file mode 100644 index 00000000000..4f3038c3db1 --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/drm.pdf diff --git a/Master/texmf-dist/doc/fonts/drm/drm_font_tables.pdf b/Master/texmf-dist/doc/fonts/drm/drm_font_tables.pdf Binary files differnew file mode 100644 index 00000000000..d4c76c91b31 --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/drm_font_tables.pdf diff --git a/Master/texmf-dist/doc/fonts/drm/gpl-3.0.txt b/Master/texmf-dist/doc/fonts/drm/gpl-3.0.txt new file mode 100644 index 00000000000..94a9ed024d3 --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/gpl-3.0.txt @@ -0,0 +1,674 @@ + GNU GENERAL PUBLIC LICENSE + Version 3, 29 June 2007 + + Copyright (C) 2007 Free Software Foundation, Inc. <http://fsf.org/> + Everyone is permitted to copy and distribute verbatim copies + of this license document, but changing it is not allowed. + + Preamble + + The GNU General Public License is a free, copyleft license for +software and other kinds of works. + + The licenses for most software and other practical works are designed +to take away your freedom to share and change the works. By contrast, +the GNU General Public License is intended to guarantee your freedom to +share and change all versions of a program--to make sure it remains free +software for all its users. We, the Free Software Foundation, use the +GNU General Public License for most of our software; it applies also to +any other work released this way by its authors. You can apply it to +your programs, too. + + When we speak of free software, we are referring to freedom, not +price. Our General Public Licenses are designed to make sure that you +have the freedom to distribute copies of free software (and charge for +them if you wish), that you receive source code or can get it if you +want it, that you can change the software or use pieces of it in new +free programs, and that you know you can do these things. + + To protect your rights, we need to prevent others from denying you +these rights or asking you to surrender the rights. Therefore, you have +certain responsibilities if you distribute copies of the software, or if +you modify it: responsibilities to respect the freedom of others. + + For example, if you distribute copies of such a program, whether +gratis or for a fee, you must pass on to the recipients the same +freedoms that you received. You must make sure that they, too, receive +or can get the source code. And you must show them these terms so they +know their rights. + + Developers that use the GNU GPL protect your rights with two steps: +(1) assert copyright on the software, and (2) offer you this License +giving you legal permission to copy, distribute and/or modify it. + + For the developers' and authors' protection, the GPL clearly explains +that there is no warranty for this free software. For both users' and +authors' sake, the GPL requires that modified versions be marked as +changed, so that their problems will not be attributed erroneously to +authors of previous versions. + + Some devices are designed to deny users access to install or run +modified versions of the software inside them, although the manufacturer +can do so. This is fundamentally incompatible with the aim of +protecting users' freedom to change the software. The systematic +pattern of such abuse occurs in the area of products for individuals to +use, which is precisely where it is most unacceptable. Therefore, we +have designed this version of the GPL to prohibit the practice for those +products. If such problems arise substantially in other domains, we +stand ready to extend this provision to those domains in future versions +of the GPL, as needed to protect the freedom of users. + + Finally, every program is threatened constantly by software patents. +States should not allow patents to restrict development and use of +software on general-purpose computers, but in those that do, we wish to +avoid the special danger that patents applied to a free program could +make it effectively proprietary. To prevent this, the GPL assures that +patents cannot be used to render the program non-free. + + The precise terms and conditions for copying, distribution and +modification follow. + + TERMS AND CONDITIONS + + 0. Definitions. + + "This License" refers to version 3 of the GNU General Public License. + + "Copyright" also means copyright-like laws that apply to other kinds of +works, such as semiconductor masks. + + "The Program" refers to any copyrightable work licensed under this +License. Each licensee is addressed as "you". "Licensees" and +"recipients" may be individuals or organizations. + + To "modify" a work means to copy from or adapt all or part of the work +in a fashion requiring copyright permission, other than the making of an +exact copy. The resulting work is called a "modified version" of the +earlier work or a work "based on" the earlier work. + + A "covered work" means either the unmodified Program or a work based +on the Program. + + To "propagate" a work means to do anything with it that, without +permission, would make you directly or secondarily liable for +infringement under applicable copyright law, except executing it on a +computer or modifying a private copy. Propagation includes copying, +distribution (with or without modification), making available to the +public, and in some countries other activities as well. + + To "convey" a work means any kind of propagation that enables other +parties to make or receive copies. Mere interaction with a user through +a computer network, with no transfer of a copy, is not conveying. + + An interactive user interface displays "Appropriate Legal Notices" +to the extent that it includes a convenient and prominently visible +feature that (1) displays an appropriate copyright notice, and (2) +tells the user that there is no warranty for the work (except to the +extent that warranties are provided), that licensees may convey the +work under this License, and how to view a copy of this License. If +the interface presents a list of user commands or options, such as a +menu, a prominent item in the list meets this criterion. + + 1. Source Code. + + The "source code" for a work means the preferred form of the work +for making modifications to it. "Object code" means any non-source +form of a work. + + A "Standard Interface" means an interface that either is an official +standard defined by a recognized standards body, or, in the case of +interfaces specified for a particular programming language, one that +is widely used among developers working in that language. + + The "System Libraries" of an executable work include anything, other +than the work as a whole, that (a) is included in the normal form of +packaging a Major Component, but which is not part of that Major +Component, and (b) serves only to enable use of the work with that +Major Component, or to implement a Standard Interface for which an +implementation is available to the public in source code form. A +"Major Component", in this context, means a major essential component +(kernel, window system, and so on) of the specific operating system +(if any) on which the executable work runs, or a compiler used to +produce the work, or an object code interpreter used to run it. + + The "Corresponding Source" for a work in object code form means all +the source code needed to generate, install, and (for an executable +work) run the object code and to modify the work, including scripts to +control those activities. However, it does not include the work's +System Libraries, or general-purpose tools or generally available free +programs which are used unmodified in performing those activities but +which are not part of the work. For example, Corresponding Source +includes interface definition files associated with source files for +the work, and the source code for shared libraries and dynamically +linked subprograms that the work is specifically designed to require, +such as by intimate data communication or control flow between those +subprograms and other parts of the work. + + The Corresponding Source need not include anything that users +can regenerate automatically from other parts of the Corresponding +Source. + + The Corresponding Source for a work in source code form is that +same work. + + 2. Basic Permissions. + + All rights granted under this License are granted for the term of +copyright on the Program, and are irrevocable provided the stated +conditions are met. This License explicitly affirms your unlimited +permission to run the unmodified Program. The output from running a +covered work is covered by this License only if the output, given its +content, constitutes a covered work. This License acknowledges your +rights of fair use or other equivalent, as provided by copyright law. + + You may make, run and propagate covered works that you do not +convey, without conditions so long as your license otherwise remains +in force. You may convey covered works to others for the sole purpose +of having them make modifications exclusively for you, or provide you +with facilities for running those works, provided that you comply with +the terms of this License in conveying all material for which you do +not control copyright. Those thus making or running the covered works +for you must do so exclusively on your behalf, under your direction +and control, on terms that prohibit them from making any copies of +your copyrighted material outside their relationship with you. + + Conveying under any other circumstances is permitted solely under +the conditions stated below. Sublicensing is not allowed; section 10 +makes it unnecessary. + + 3. Protecting Users' Legal Rights From Anti-Circumvention Law. + + No covered work shall be deemed part of an effective technological +measure under any applicable law fulfilling obligations under article +11 of the WIPO copyright treaty adopted on 20 December 1996, or +similar laws prohibiting or restricting circumvention of such +measures. + + When you convey a covered work, you waive any legal power to forbid +circumvention of technological measures to the extent such circumvention +is effected by exercising rights under this License with respect to +the covered work, and you disclaim any intention to limit operation or +modification of the work as a means of enforcing, against the work's +users, your or third parties' legal rights to forbid circumvention of +technological measures. + + 4. Conveying Verbatim Copies. + + You may convey verbatim copies of the Program's source code as you +receive it, in any medium, provided that you conspicuously and +appropriately publish on each copy an appropriate copyright notice; +keep intact all notices stating that this License and any +non-permissive terms added in accord with section 7 apply to the code; +keep intact all notices of the absence of any warranty; and give all +recipients a copy of this License along with the Program. + + You may charge any price or no price for each copy that you convey, +and you may offer support or warranty protection for a fee. + + 5. Conveying Modified Source Versions. + + You may convey a work based on the Program, or the modifications to +produce it from the Program, in the form of source code under the +terms of section 4, provided that you also meet all of these conditions: + + a) The work must carry prominent notices stating that you modified + it, and giving a relevant date. + + b) The work must carry prominent notices stating that it is + released under this License and any conditions added under section + 7. This requirement modifies the requirement in section 4 to + "keep intact all notices". + + c) You must license the entire work, as a whole, under this + License to anyone who comes into possession of a copy. This + License will therefore apply, along with any applicable section 7 + additional terms, to the whole of the work, and all its parts, + regardless of how they are packaged. This License gives no + permission to license the work in any other way, but it does not + invalidate such permission if you have separately received it. + + d) If the work has interactive user interfaces, each must display + Appropriate Legal Notices; however, if the Program has interactive + interfaces that do not display Appropriate Legal Notices, your + work need not make them do so. + + A compilation of a covered work with other separate and independent +works, which are not by their nature extensions of the covered work, +and which are not combined with it such as to form a larger program, +in or on a volume of a storage or distribution medium, is called an +"aggregate" if the compilation and its resulting copyright are not +used to limit the access or legal rights of the compilation's users +beyond what the individual works permit. Inclusion of a covered work +in an aggregate does not cause this License to apply to the other +parts of the aggregate. + + 6. Conveying Non-Source Forms. + + You may convey a covered work in object code form under the terms +of sections 4 and 5, provided that you also convey the +machine-readable Corresponding Source under the terms of this License, +in one of these ways: + + a) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by the + Corresponding Source fixed on a durable physical medium + customarily used for software interchange. + + b) Convey the object code in, or embodied in, a physical product + (including a physical distribution medium), accompanied by a + written offer, valid for at least three years and valid for as + long as you offer spare parts or customer support for that product + model, to give anyone who possesses the object code either (1) a + copy of the Corresponding Source for all the software in the + product that is covered by this License, on a durable physical + medium customarily used for software interchange, for a price no + more than your reasonable cost of physically performing this + conveying of source, or (2) access to copy the + Corresponding Source from a network server at no charge. + + c) Convey individual copies of the object code with a copy of the + written offer to provide the Corresponding Source. This + alternative is allowed only occasionally and noncommercially, and + only if you received the object code with such an offer, in accord + with subsection 6b. + + d) Convey the object code by offering access from a designated + place (gratis or for a charge), and offer equivalent access to the + Corresponding Source in the same way through the same place at no + further charge. You need not require recipients to copy the + Corresponding Source along with the object code. If the place to + copy the object code is a network server, the Corresponding Source + may be on a different server (operated by you or a third party) + that supports equivalent copying facilities, provided you maintain + clear directions next to the object code saying where to find the + Corresponding Source. Regardless of what server hosts the + Corresponding Source, you remain obligated to ensure that it is + available for as long as needed to satisfy these requirements. + + e) Convey the object code using peer-to-peer transmission, provided + you inform other peers where the object code and Corresponding + Source of the work are being offered to the general public at no + charge under subsection 6d. + + A separable portion of the object code, whose source code is excluded +from the Corresponding Source as a System Library, need not be +included in conveying the object code work. + + A "User Product" is either (1) a "consumer product", which means any +tangible personal property which is normally used for personal, family, +or household purposes, or (2) anything designed or sold for incorporation +into a dwelling. In determining whether a product is a consumer product, +doubtful cases shall be resolved in favor of coverage. For a particular +product received by a particular user, "normally used" refers to a +typical or common use of that class of product, regardless of the status +of the particular user or of the way in which the particular user +actually uses, or expects or is expected to use, the product. A product +is a consumer product regardless of whether the product has substantial +commercial, industrial or non-consumer uses, unless such uses represent +the only significant mode of use of the product. + + "Installation Information" for a User Product means any methods, +procedures, authorization keys, or other information required to install +and execute modified versions of a covered work in that User Product from +a modified version of its Corresponding Source. The information must +suffice to ensure that the continued functioning of the modified object +code is in no case prevented or interfered with solely because +modification has been made. + + If you convey an object code work under this section in, or with, or +specifically for use in, a User Product, and the conveying occurs as +part of a transaction in which the right of possession and use of the +User Product is transferred to the recipient in perpetuity or for a +fixed term (regardless of how the transaction is characterized), the +Corresponding Source conveyed under this section must be accompanied +by the Installation Information. But this requirement does not apply +if neither you nor any third party retains the ability to install +modified object code on the User Product (for example, the work has +been installed in ROM). + + The requirement to provide Installation Information does not include a +requirement to continue to provide support service, warranty, or updates +for a work that has been modified or installed by the recipient, or for +the User Product in which it has been modified or installed. Access to a +network may be denied when the modification itself materially and +adversely affects the operation of the network or violates the rules and +protocols for communication across the network. + + Corresponding Source conveyed, and Installation Information provided, +in accord with this section must be in a format that is publicly +documented (and with an implementation available to the public in +source code form), and must require no special password or key for +unpacking, reading or copying. + + 7. Additional Terms. + + "Additional permissions" are terms that supplement the terms of this +License by making exceptions from one or more of its conditions. +Additional permissions that are applicable to the entire Program shall +be treated as though they were included in this License, to the extent +that they are valid under applicable law. If additional permissions +apply only to part of the Program, that part may be used separately +under those permissions, but the entire Program remains governed by +this License without regard to the additional permissions. + + When you convey a copy of a covered work, you may at your option +remove any additional permissions from that copy, or from any part of +it. (Additional permissions may be written to require their own +removal in certain cases when you modify the work.) You may place +additional permissions on material, added by you to a covered work, +for which you have or can give appropriate copyright permission. + + Notwithstanding any other provision of this License, for material you +add to a covered work, you may (if authorized by the copyright holders of +that material) supplement the terms of this License with terms: + + a) Disclaiming warranty or limiting liability differently from the + terms of sections 15 and 16 of this License; or + + b) Requiring preservation of specified reasonable legal notices or + author attributions in that material or in the Appropriate Legal + Notices displayed by works containing it; or + + c) Prohibiting misrepresentation of the origin of that material, or + requiring that modified versions of such material be marked in + reasonable ways as different from the original version; or + + d) Limiting the use for publicity purposes of names of licensors or + authors of the material; or + + e) Declining to grant rights under trademark law for use of some + trade names, trademarks, or service marks; or + + f) Requiring indemnification of licensors and authors of that + material by anyone who conveys the material (or modified versions of + it) with contractual assumptions of liability to the recipient, for + any liability that these contractual assumptions directly impose on + those licensors and authors. + + All other non-permissive additional terms are considered "further +restrictions" within the meaning of section 10. If the Program as you +received it, or any part of it, contains a notice stating that it is +governed by this License along with a term that is a further +restriction, you may remove that term. If a license document contains +a further restriction but permits relicensing or conveying under this +License, you may add to a covered work material governed by the terms +of that license document, provided that the further restriction does +not survive such relicensing or conveying. + + If you add terms to a covered work in accord with this section, you +must place, in the relevant source files, a statement of the +additional terms that apply to those files, or a notice indicating +where to find the applicable terms. + + Additional terms, permissive or non-permissive, may be stated in the +form of a separately written license, or stated as exceptions; +the above requirements apply either way. + + 8. Termination. + + You may not propagate or modify a covered work except as expressly +provided under this License. Any attempt otherwise to propagate or +modify it is void, and will automatically terminate your rights under +this License (including any patent licenses granted under the third +paragraph of section 11). + + However, if you cease all violation of this License, then your +license from a particular copyright holder is reinstated (a) +provisionally, unless and until the copyright holder explicitly and +finally terminates your license, and (b) permanently, if the copyright +holder fails to notify you of the violation by some reasonable means +prior to 60 days after the cessation. + + Moreover, your license from a particular copyright holder is +reinstated permanently if the copyright holder notifies you of the +violation by some reasonable means, this is the first time you have +received notice of violation of this License (for any work) from that +copyright holder, and you cure the violation prior to 30 days after +your receipt of the notice. + + Termination of your rights under this section does not terminate the +licenses of parties who have received copies or rights from you under +this License. If your rights have been terminated and not permanently +reinstated, you do not qualify to receive new licenses for the same +material under section 10. + + 9. Acceptance Not Required for Having Copies. + + You are not required to accept this License in order to receive or +run a copy of the Program. Ancillary propagation of a covered work +occurring solely as a consequence of using peer-to-peer transmission +to receive a copy likewise does not require acceptance. However, +nothing other than this License grants you permission to propagate or +modify any covered work. These actions infringe copyright if you do +not accept this License. Therefore, by modifying or propagating a +covered work, you indicate your acceptance of this License to do so. + + 10. Automatic Licensing of Downstream Recipients. + + Each time you convey a covered work, the recipient automatically +receives a license from the original licensors, to run, modify and +propagate that work, subject to this License. You are not responsible +for enforcing compliance by third parties with this License. + + An "entity transaction" is a transaction transferring control of an +organization, or substantially all assets of one, or subdividing an +organization, or merging organizations. If propagation of a covered +work results from an entity transaction, each party to that +transaction who receives a copy of the work also receives whatever +licenses to the work the party's predecessor in interest had or could +give under the previous paragraph, plus a right to possession of the +Corresponding Source of the work from the predecessor in interest, if +the predecessor has it or can get it with reasonable efforts. + + You may not impose any further restrictions on the exercise of the +rights granted or affirmed under this License. For example, you may +not impose a license fee, royalty, or other charge for exercise of +rights granted under this License, and you may not initiate litigation +(including a cross-claim or counterclaim in a lawsuit) alleging that +any patent claim is infringed by making, using, selling, offering for +sale, or importing the Program or any portion of it. + + 11. Patents. + + A "contributor" is a copyright holder who authorizes use under this +License of the Program or a work on which the Program is based. The +work thus licensed is called the contributor's "contributor version". + + A contributor's "essential patent claims" are all patent claims +owned or controlled by the contributor, whether already acquired or +hereafter acquired, that would be infringed by some manner, permitted +by this License, of making, using, or selling its contributor version, +but do not include claims that would be infringed only as a +consequence of further modification of the contributor version. For +purposes of this definition, "control" includes the right to grant +patent sublicenses in a manner consistent with the requirements of +this License. + + Each contributor grants you a non-exclusive, worldwide, royalty-free +patent license under the contributor's essential patent claims, to +make, use, sell, offer for sale, import and otherwise run, modify and +propagate the contents of its contributor version. + + In the following three paragraphs, a "patent license" is any express +agreement or commitment, however denominated, not to enforce a patent +(such as an express permission to practice a patent or covenant not to +sue for patent infringement). To "grant" such a patent license to a +party means to make such an agreement or commitment not to enforce a +patent against the party. + + If you convey a covered work, knowingly relying on a patent license, +and the Corresponding Source of the work is not available for anyone +to copy, free of charge and under the terms of this License, through a +publicly available network server or other readily accessible means, +then you must either (1) cause the Corresponding Source to be so +available, or (2) arrange to deprive yourself of the benefit of the +patent license for this particular work, or (3) arrange, in a manner +consistent with the requirements of this License, to extend the patent +license to downstream recipients. "Knowingly relying" means you have +actual knowledge that, but for the patent license, your conveying the +covered work in a country, or your recipient's use of the covered work +in a country, would infringe one or more identifiable patents in that +country that you have reason to believe are valid. + + If, pursuant to or in connection with a single transaction or +arrangement, you convey, or propagate by procuring conveyance of, a +covered work, and grant a patent license to some of the parties +receiving the covered work authorizing them to use, propagate, modify +or convey a specific copy of the covered work, then the patent license +you grant is automatically extended to all recipients of the covered +work and works based on it. + + A patent license is "discriminatory" if it does not include within +the scope of its coverage, prohibits the exercise of, or is +conditioned on the non-exercise of one or more of the rights that are +specifically granted under this License. You may not convey a covered +work if you are a party to an arrangement with a third party that is +in the business of distributing software, under which you make payment +to the third party based on the extent of your activity of conveying +the work, and under which the third party grants, to any of the +parties who would receive the covered work from you, a discriminatory +patent license (a) in connection with copies of the covered work +conveyed by you (or copies made from those copies), or (b) primarily +for and in connection with specific products or compilations that +contain the covered work, unless you entered into that arrangement, +or that patent license was granted, prior to 28 March 2007. + + Nothing in this License shall be construed as excluding or limiting +any implied license or other defenses to infringement that may +otherwise be available to you under applicable patent law. + + 12. No Surrender of Others' Freedom. + + If conditions are imposed on you (whether by court order, agreement or +otherwise) that contradict the conditions of this License, they do not +excuse you from the conditions of this License. If you cannot convey a +covered work so as to satisfy simultaneously your obligations under this +License and any other pertinent obligations, then as a consequence you may +not convey it at all. For example, if you agree to terms that obligate you +to collect a royalty for further conveying from those to whom you convey +the Program, the only way you could satisfy both those terms and this +License would be to refrain entirely from conveying the Program. + + 13. Use with the GNU Affero General Public License. + + Notwithstanding any other provision of this License, you have +permission to link or combine any covered work with a work licensed +under version 3 of the GNU Affero General Public License into a single +combined work, and to convey the resulting work. The terms of this +License will continue to apply to the part which is the covered work, +but the special requirements of the GNU Affero General Public License, +section 13, concerning interaction through a network will apply to the +combination as such. + + 14. Revised Versions of this License. + + The Free Software Foundation may publish revised and/or new versions of +the GNU General Public License from time to time. Such new versions will +be similar in spirit to the present version, but may differ in detail to +address new problems or concerns. + + Each version is given a distinguishing version number. If the +Program specifies that a certain numbered version of the GNU General +Public License "or any later version" applies to it, you have the +option of following the terms and conditions either of that numbered +version or of any later version published by the Free Software +Foundation. If the Program does not specify a version number of the +GNU General Public License, you may choose any version ever published +by the Free Software Foundation. + + If the Program specifies that a proxy can decide which future +versions of the GNU General Public License can be used, that proxy's +public statement of acceptance of a version permanently authorizes you +to choose that version for the Program. + + Later license versions may give you additional or different +permissions. However, no additional obligations are imposed on any +author or copyright holder as a result of your choosing to follow a +later version. + + 15. Disclaimer of Warranty. + + THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY +APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT +HOLDERS AND/OR OTHER PARTIES PROVIDE 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. + + 16. Limitation of Liability. + + IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING +WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS +THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY +GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE +USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF +DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD +PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), +EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF +SUCH DAMAGES. + + 17. Interpretation of Sections 15 and 16. + + If the disclaimer of warranty and limitation of liability provided +above cannot be given local legal effect according to their terms, +reviewing courts shall apply local law that most closely approximates +an absolute waiver of all civil liability in connection with the +Program, unless a warranty or assumption of liability accompanies a +copy of the Program in return for a fee. + + END OF TERMS AND CONDITIONS + + How to Apply These Terms to Your New Programs + + If you develop a new program, and you want it to be of the greatest +possible use to the public, the best way to achieve this is to make it +free software which everyone can redistribute and change under these terms. + + To do so, attach the following notices to the program. It is safest +to attach them to the start of each source file to most effectively +state the exclusion of warranty; and each file should have at least +the "copyright" line and a pointer to where the full notice is found. + + <one line to give the program's name and a brief idea of what it does.> + Copyright (C) <year> <name of author> + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation, either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see <http://www.gnu.org/licenses/>. + +Also add information on how to contact you by electronic and paper mail. + + If the program does terminal interaction, make it output a short +notice like this when it starts in an interactive mode: + + <program> Copyright (C) <year> <name of author> + This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, your program's commands +might be different; for a GUI interface, you would use an "about box". + + You should also get your employer (if you work as a programmer) or school, +if any, to sign a "copyright disclaimer" for the program, if necessary. +For more information on this, and how to apply and follow the GNU GPL, see +<http://www.gnu.org/licenses/>. + + The GNU General Public License does not permit incorporating your program +into proprietary programs. If your program is a subroutine library, you +may consider it more useful to permit linking proprietary applications with +the library. If this is what you want to do, use the GNU Lesser General +Public License instead of this License. But first, please read +<http://www.gnu.org/philosophy/why-not-lgpl.html>. diff --git a/Master/texmf-dist/doc/fonts/drm/lppl-1-3c.tex b/Master/texmf-dist/doc/fonts/drm/lppl-1-3c.tex new file mode 100644 index 00000000000..3ea39573db1 --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/lppl-1-3c.tex @@ -0,0 +1,509 @@ +% +% $Id: lppl-1-3c.tex 160 2009-12-06 23:08:41Z lotze $ +% +% Copyright 1999 2002-2008 LaTeX3 Project +% Everyone is allowed to distribute verbatim copies of this +% license document, but modification of it is not allowed. +% +% +% If you wish to load it as part of a ``doc'' source, you have to +% ensure that a) % is a comment character and b) that short verb +% characters are being turned off, i.e., +% +% \DeleteShortVerb{\'} % or whatever was made a shorthand +% \MakePercentComment +% \input{lppl} +% \MakePercentIgnore +% \MakeShortVerb{\'} % turn it on again if necessary +% +% +% By default the license is produced with \section* as the highest +% heading level. If this is not appropriate for the document in which +% it is included define the commands listed below before loading this +% document, e.g., for inclusion as a separate chapter define: +% +% \providecommand{\LPPLsection}{\chapter*} +% \providecommand{\LPPLsubsection}{\section*} +% \providecommand{\LPPLsubsubsection}{\subsection*} +% \providecommand{\LPPLparagraph}{\subsubsection*} +% +% +% To allow cross-referencing the headings \label's have been attached +% to them, all starting with ``LPPL:''. As by default headings without +% numbers are produced, this will only allow page references. +% However, you can use the titleref package to produce textual +% references or you change the definitions of \LPPLsection, and +% friends to generated numbered headings. +% +% +% We want it to be possible that this file can be processed by +% (pdf)LaTeX on its own, or that this file can be included in another +% LaTeX document without any modification whatsoever. +% Hence the little test below. +% +% +\makeatletter +\ifx\@preamblecmds\@notprerr + % In this case the preamble has already been processed so this file + % is loaded as part of another document; just enclose everything in + % a group + \let\LPPLicense\bgroup + \let\endLPPLicense\egroup +\else + % In this case the preamble has not been processed yet so this file + % is processed by itself. + \documentclass{article} + \let\LPPLicense\document + \let\endLPPLicense\enddocument +\fi +\makeatother + + +\begin{LPPLicense} + \providecommand{\LPPLsection}{\section*} + \providecommand{\LPPLsubsection}{\subsection*} + \providecommand{\LPPLsubsubsection}{\subsubsection*} + \providecommand{\LPPLparagraph}{\paragraph*} + \providecommand*{\LPPLfile}[1]{\texttt{#1}} + \providecommand*{\LPPLdocfile}[1]{`\LPPLfile{#1.tex}'} + \providecommand*{\LPPL}{\textsc{lppl}} + + \LPPLsection{The \LaTeX\ Project Public License} + \label{LPPL:LPPL} + + \emph{LPPL Version 1.3c 2008-05-04} + + \textbf{Copyright 1999, 2002--2008 \LaTeX3 Project} + \begin{quotation} + Everyone is allowed to distribute verbatim copies of this + license document, but modification of it is not allowed. + \end{quotation} + + \LPPLsubsection{Preamble} + \label{LPPL:Preamble} + + The \LaTeX\ Project Public License (\LPPL) is the primary license + under which the \LaTeX\ kernel and the base \LaTeX\ packages are + distributed. + + You may use this license for any work of which you hold the + copyright and which you wish to distribute. This license may be + particularly suitable if your work is \TeX-related (such as a + \LaTeX\ package), but it is written in such a way that you can use + it even if your work is unrelated to \TeX. + + The section `WHETHER AND HOW TO DISTRIBUTE WORKS UNDER THIS + LICENSE', below, gives instructions, examples, and recommendations + for authors who are considering distributing their works under this + license. + + This license gives conditions under which a work may be distributed + and modified, as well as conditions under which modified versions of + that work may be distributed. + + We, the \LaTeX3 Project, believe that the conditions below give you + the freedom to make and distribute modified versions of your work + that conform with whatever technical specifications you wish while + maintaining the availability, integrity, and reliability of that + work. If you do not see how to achieve your goal while meeting + these conditions, then read the document \LPPLdocfile{cfgguide} and + \LPPLdocfile{modguide} in the base \LaTeX\ distribution for suggestions. + + + \LPPLsubsection{Definitions} + \label{LPPL:Definitions} + + In this license document the following terms are used: + + \begin{description} + \item[Work] Any work being distributed under this License. + + \item[Derived Work] Any work that under any applicable law is + derived from the Work. + + \item[Modification] Any procedure that produces a Derived Work under + any applicable law -- for example, the production of a file + containing an original file associated with the Work or a + significant portion of such a file, either verbatim or with + modifications and/or translated into another language. + + \item[Modify] To apply any procedure that produces a Derived Work + under any applicable law. + + \item[Distribution] Making copies of the Work available from one + person to another, in whole or in part. Distribution includes + (but is not limited to) making any electronic components of the + Work accessible by file transfer protocols such as \textsc{ftp} or + \textsc{http} or by shared file systems such as Sun's Network File + System (\textsc{nfs}). + + \item[Compiled Work] A version of the Work that has been processed + into a form where it is directly usable on a computer system. + This processing may include using installation facilities provided + by the Work, transformations of the Work, copying of components of + the Work, or other activities. Note that modification of any + installation facilities provided by the Work constitutes + modification of the Work. + + \item[Current Maintainer] A person or persons nominated as such + within the Work. If there is no such explicit nomination then it + is the `Copyright Holder' under any applicable law. + + \item[Base Interpreter] A program or process that is normally needed + for running or interpreting a part or the whole of the Work. + + A Base Interpreter may depend on external components but these are + not considered part of the Base Interpreter provided that each + external component clearly identifies itself whenever it is used + interactively. Unless explicitly specified when applying the + license to the Work, the only applicable Base Interpreter is a + `\LaTeX-Format' or in the case of files belonging to the + `\LaTeX-format' a program implementing the `\TeX{} language'. + \end{description} + + \LPPLsubsection{Conditions on Distribution and Modification} + \label{LPPL:Conditions} + + \begin{enumerate} + \item Activities other than distribution and/or modification of the + Work are not covered by this license; they are outside its scope. + In particular, the act of running the Work is not restricted and + no requirements are made concerning any offers of support for the + Work. + + \item\label{LPPL:item:distribute} You may distribute a complete, unmodified + copy of the Work as you received it. Distribution of only part of + the Work is considered modification of the Work, and no right to + distribute such a Derived Work may be assumed under the terms of + this clause. + + \item You may distribute a Compiled Work that has been generated + from a complete, unmodified copy of the Work as distributed under + Clause~\ref{LPPL:item:distribute} above, as long as that Compiled Work is + distributed in such a way that the recipients may install the + Compiled Work on their system exactly as it would have been + installed if they generated a Compiled Work directly from the + Work. + + \item\label{LPPL:item:currmaint} If you are the Current Maintainer of the + Work, you may, without restriction, modify the Work, thus creating + a Derived Work. You may also distribute the Derived Work without + restriction, including Compiled Works generated from the Derived + Work. Derived Works distributed in this manner by the Current + Maintainer are considered to be updated versions of the Work. + + \item If you are not the Current Maintainer of the Work, you may + modify your copy of the Work, thus creating a Derived Work based + on the Work, and compile this Derived Work, thus creating a + Compiled Work based on the Derived Work. + + \item\label{LPPL:item:conditions} If you are not the Current Maintainer of the + Work, you may distribute a Derived Work provided the following + conditions are met for every component of the Work unless that + component clearly states in the copyright notice that it is exempt + from that condition. Only the Current Maintainer is allowed to + add such statements of exemption to a component of the Work. + \begin{enumerate} + \item If a component of this Derived Work can be a direct + replacement for a component of the Work when that component is + used with the Base Interpreter, then, wherever this component of + the Work identifies itself to the user when used interactively + with that Base Interpreter, the replacement component of this + Derived Work clearly and unambiguously identifies itself as a + modified version of this component to the user when used + interactively with that Base Interpreter. + + \item Every component of the Derived Work contains prominent + notices detailing the nature of the changes to that component, + or a prominent reference to another file that is distributed as + part of the Derived Work and that contains a complete and + accurate log of the changes. + + \item No information in the Derived Work implies that any persons, + including (but not limited to) the authors of the original + version of the Work, provide any support, including (but not + limited to) the reporting and handling of errors, to recipients + of the Derived Work unless those persons have stated explicitly + that they do provide such support for the Derived Work. + + \item You distribute at least one of the following with the Derived Work: + \begin{enumerate} + \item A complete, unmodified copy of the Work; if your + distribution of a modified component is made by offering + access to copy the modified component from a designated place, + then offering equivalent access to copy the Work from the same + or some similar place meets this condition, even though third + parties are not compelled to copy the Work along with the + modified component; + + \item Information that is sufficient to obtain a complete, + unmodified copy of the Work. + \end{enumerate} + \end{enumerate} + \item If you are not the Current Maintainer of the Work, you may + distribute a Compiled Work generated from a Derived Work, as long + as the Derived Work is distributed to all recipients of the + Compiled Work, and as long as the conditions of + Clause~\ref{LPPL:item:conditions}, above, are met with regard to the Derived + Work. + + \item The conditions above are not intended to prohibit, and hence + do not apply to, the modification, by any method, of any component + so that it becomes identical to an updated version of that + component of the Work as it is distributed by the Current + Maintainer under Clause~\ref{LPPL:item:currmaint}, above. + + \item Distribution of the Work or any Derived Work in an alternative + format, where the Work or that Derived Work (in whole or in part) + is then produced by applying some process to that format, does not + relax or nullify any sections of this license as they pertain to + the results of applying that process. + + \item \null + \begin{enumerate} + \item A Derived Work may be distributed under a different license + provided that license itself honors the conditions listed in + Clause~\ref{LPPL:item:conditions} above, in regard to the Work, though it + does not have to honor the rest of the conditions in this + license. + + \item If a Derived Work is distributed under a different license, + that Derived Work must provide sufficient documentation as part + of itself to allow each recipient of that Derived Work to honor + the restrictions in Clause~\ref{LPPL:item:conditions} above, concerning + changes from the Work. + \end{enumerate} + \item This license places no restrictions on works that are + unrelated to the Work, nor does this license place any + restrictions on aggregating such works with the Work by any means. + + \item Nothing in this license is intended to, or may be used to, + prevent complete compliance by all parties with all applicable + laws. + \end{enumerate} + + \LPPLsubsection{No Warranty} + \label{LPPL:Warranty} + + There is no warranty for the Work. Except when otherwise stated in + writing, the Copyright Holder provides the Work `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 Work is with you. Should the Work prove + defective, you assume the cost of all necessary servicing, repair, + or correction. + + In no event unless required by applicable law or agreed to in + writing will The Copyright Holder, or any author named in the + components of the Work, or any other party who may distribute and/or + modify the Work as permitted above, be liable to you for damages, + including any general, special, incidental or consequential damages + arising out of any use of the Work or out of inability to use the + Work (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 Work 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. + + \LPPLsubsection{Maintenance of The Work} + \label{LPPL:Maintenance} + + The Work has the status `author-maintained' if the Copyright Holder + explicitly and prominently states near the primary copyright notice + in the Work that the Work can only be maintained by the Copyright + Holder or simply that it is `author-maintained'. + + The Work has the status `maintained' if there is a Current + Maintainer who has indicated in the Work that they are willing to + receive error reports for the Work (for example, by supplying a + valid e-mail address). It is not required for the Current Maintainer + to acknowledge or act upon these error reports. + + The Work changes from status `maintained' to `unmaintained' if there + is no Current Maintainer, or the person stated to be Current + Maintainer of the work cannot be reached through the indicated means + of communication for a period of six months, and there are no other + significant signs of active maintenance. + + You can become the Current Maintainer of the Work by agreement with + any existing Current Maintainer to take over this role. + + If the Work is unmaintained, you can become the Current Maintainer + of the Work through the following steps: + \begin{enumerate} + \item Make a reasonable attempt to trace the Current Maintainer (and + the Copyright Holder, if the two differ) through the means of an + Internet or similar search. + \item If this search is successful, then enquire whether the Work is + still maintained. + \begin{enumerate} + \item If it is being maintained, then ask the Current Maintainer + to update their communication data within one month. + + \item\label{LPPL:item:intention} If the search is unsuccessful or + no action to resume active maintenance is taken by the Current + Maintainer, then announce within the pertinent community your + intention to take over maintenance. (If the Work is a \LaTeX{} + work, this could be done, for example, by posting to + \texttt{comp.text.tex}.) + \end{enumerate} + \item {} + \begin{enumerate} + \item If the Current Maintainer is reachable and agrees to pass + maintenance of the Work to you, then this takes effect + immediately upon announcement. + + \item\label{LPPL:item:announce} If the Current Maintainer is not + reachable and the Copyright Holder agrees that maintenance of + the Work be passed to you, then this takes effect immediately + upon announcement. + \end{enumerate} + \item\label{LPPL:item:change} If you make an `intention + announcement' as described in~\ref{LPPL:item:intention} above and + after three months your intention is challenged neither by the + Current Maintainer nor by the Copyright Holder nor by other + people, then you may arrange for the Work to be changed so as to + name you as the (new) Current Maintainer. + + \item If the previously unreachable Current Maintainer becomes + reachable once more within three months of a change completed + under the terms of~\ref{LPPL:item:announce} + or~\ref{LPPL:item:change}, then that Current Maintainer must + become or remain the Current Maintainer upon request provided they + then update their communication data within one month. + \end{enumerate} + A change in the Current Maintainer does not, of itself, alter the + fact that the Work is distributed under the \LPPL\ license. + + If you become the Current Maintainer of the Work, you should + immediately provide, within the Work, a prominent and unambiguous + statement of your status as Current Maintainer. You should also + announce your new status to the same pertinent community as + in~\ref{LPPL:item:intention} above. + + \LPPLsubsection{Whether and How to Distribute Works under This License} + \label{LPPL:Distribute} + + This section contains important instructions, examples, and + recommendations for authors who are considering distributing their + works under this license. These authors are addressed as `you' in + this section. + + \LPPLsubsubsection{Choosing This License or Another License} + \label{LPPL:Choosing} + + If for any part of your work you want or need to use + \emph{distribution} conditions that differ significantly from those + in this license, then do not refer to this license anywhere in your + work but, instead, distribute your work 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 work is distributed under + the \LPPL. + + The document \LPPLdocfile{modguide} in the base \LaTeX\ distribution + explains the motivation behind the conditions of this license. It + explains, for example, why distributing \LaTeX\ under the + \textsc{gnu} General Public License (\textsc{gpl}) was considered + inappropriate. Even if your work is unrelated to \LaTeX, the + discussion in \LPPLdocfile{modguide} may still be relevant, and authors + intending to distribute their works under any license are encouraged + to read it. + + \LPPLsubsubsection{A Recommendation on Modification Without Distribution} + \label{LPPL:WithoutDistribution} + + It is wise never to modify a component of the Work, even for your + own personal use, without also meeting the above conditions for + distributing the modified component. While you might intend that + such modifications will never be distributed, often this will happen + by accident -- you may forget that you have modified that component; + or it may not occur to you when allowing others to access the + modified version that you are thus distributing it and violating the + conditions of this license in ways that could have legal + implications and, worse, cause problems for the community. It is + therefore usually in your best interest to keep your copy of the + Work identical with the public one. Many works provide ways to + control the behavior of that work without altering any of its + licensed components. + + \LPPLsubsubsection{How to Use This License} + \label{LPPL:HowTo} + + To use this license, place in each of the components of your work + both an explicit copyright notice including your name and the year + the work was authored and/or last substantially modified. Include + also a statement that the distribution and/or modification of that + component is constrained by the conditions in this license. + + Here is an example of such a notice and statement: +\begin{verbatim} + %% pig.dtx + %% Copyright 2005 M. Y. Name + % + % This work may be distributed and/or modified under the + % conditions of the LaTeX Project Public License, either version 1.3 + % 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.3 or later is part of all distributions of LaTeX + % version 2005/12/01 or later. + % + % This work has the LPPL maintenance status `maintained'. + % + % The Current Maintainer of this work is M. Y. Name. + % + % This work consists of the files pig.dtx and pig.ins + % and the derived file pig.sty. +\end{verbatim} + + Given such a notice and statement in a file, the conditions given in + this license document would apply, with the `Work' referring to the + three files `\LPPLfile{pig.dtx}', `\LPPLfile{pig.ins}', and + `\LPPLfile{pig.sty}' (the last being generated from + `\LPPLfile{pig.dtx}' using `\LPPLfile{pig.ins}'), the `Base + Interpreter' referring to any `\LaTeX-Format', and both `Copyright + Holder' and `Current Maintainer' referring to the person `M. Y. + Name'. + + If you do not want the Maintenance section of \LPPL\ to apply to + your Work, change `maintained' above into `author-maintained'. + However, we recommend that you use `maintained' as the Maintenance + section was added in order to ensure that your Work remains useful + to the community even when you can no longer maintain and support it + yourself. + + \LPPLsubsubsection{Derived Works That Are Not Replacements} + \label{LPPL:NotReplacements} + + Several clauses of the \LPPL\ specify means to provide reliability + and stability for the user community. They therefore concern + themselves with the case that a Derived Work is intended to be used + as a (compatible or incompatible) replacement of the original + Work. If this is not the case (e.g., if a few lines of code are + reused for a completely different task), then clauses 6b and 6d + shall not apply. + + \LPPLsubsubsection{Important Recommendations} + \label{LPPL:Recommendations} + + \LPPLparagraph{Defining What Constitutes the Work} + + The \LPPL\ requires that distributions of the Work contain all the + files of the Work. It is therefore important that you provide a way + for the licensee to determine which files constitute the Work. This + could, for example, be achieved by explicitly listing all the files + of the Work near the copyright notice of each file or by using a + line such as: +\begin{verbatim} + % This work consists of all files listed in manifest.txt. +\end{verbatim} + 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 Work and, in such a case, the licensee would be + entitled to make reasonable conjectures as to which files comprise + the Work. + +\end{LPPLicense} +\endinput diff --git a/Master/texmf-dist/doc/fonts/drm/ofl_v1-1.tex b/Master/texmf-dist/doc/fonts/drm/ofl_v1-1.tex new file mode 100644 index 00000000000..e83fe819702 --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/ofl_v1-1.tex @@ -0,0 +1,119 @@ +This Font Software is licensed under the SIL Open Font +License, Version 1.1. This license is copied below, and is +also available with a FAQ at: +\url{http://scripts.sil.org/OFL}. + +\def\ofl{\textsc{ofl}} + +\subsection*{Preamble} +\label{sil:preamble} + +The goals of the Open Font License (\ofl) are to stimulate +worldwide development of collaborative font projects, to +support the font creation efforts of academic and linguistic +communities, and to provide a free and open framework in +which fonts may be shared and improved in partnership with +others. + +The \ofl\ allows the licensed fonts to be used, studied, +modified and redistributed freely as long as they are not +sold by themselves. The fonts, including any derivative +works, can be bundled, embedded, redistributed and/or sold +with any software provided that any reserved names are not +used by derivative works. The fonts and derivatives, +however, cannot be released under any other type of license. +The requirement for fonts to remain under this license does +not apply to any document created using the fonts or their +derivatives. + +\subsection*{Definitions} +\label{sil:definitions} + +\def\silterm#1{\noindent``#1''} + +\begin{description} +\item[\silterm{Font Software}] refers to the set of files released +by the Copyright Holder(s) under this license and clearly +marked as such. This may include source files, build scripts +and documentation. + +\item[\silterm{Reserved Font Name}] refers to any names specified +as such after the copyright statement(s). + +\item[\silterm{Original Version}] refers to the collection of Font +Software components as distributed by the Copyright +Holder(s). + +\item[\silterm{Modified Version}] refers to any derivative made by +adding to, deleting, or substituting --- in part or in whole +--- any of the components of the Original Version, by +changing formats or by porting the Font Software to a new +environment. + +\item[\silterm{Author}] refers to any designer, engineer, +programmer, technical writer or other person who contributed +to the Font Software. +\end{description} + +\subsection*{Permission \& Conditions} +\label{sil:permission} + +Permission is hereby granted, free of charge, to any person +obtaining a copy of the Font Software, to use, study, copy, +merge, embed, modify, redistribute, and sell modified and +unmodified copies of the Font Software, subject to the +following conditions: + +\begin{enumerate} +\item Neither the Font Software nor any of its individual +components, in Original or Modified Versions, may be sold by +itself. + +\item Original or Modified Versions of the Font Software may +be bundled, redistributed and/or sold with any software, +provided that each copy contains the above copyright notice +and this license. These can be included either as +stand-alone text files, human-readable headers or in the +appropriate machine-readable metadata fields within text or +binary files as long as those fields can be easily viewed by +the user. + +\item No Modified Version of the Font Software may use the +Reserved Font Name(s) unless explicit written permission is +granted by the corresponding Copyright Holder. This +restriction only applies to the primary font name as +presented to the users. + +\item The name(s) of the Copyright Holder(s) or the +Author(s) of the Font Software shall not be used to promote, +endorse or advertise any Modified Version, except to +acknowledge the contribution(s) of the Copyright Holder(s) +and the Author(s) or with their explicit written permission. + +\item The Font Software, modified or unmodified, in part or +in whole, must be distributed entirely under this license, +and must not be distributed under any other license. The +requirement for fonts to remain under this license does not +apply to any document created using the Font Software. +\end{enumerate} + +\subsection*{Termination} +\label{sil:termination} + +This license becomes null and void if any of the above +conditions are not met. + +\subsection*{Disclaimer} +\label{sil:disclaimer} + +\textsc{The Font Software is provided ``as is'', without +warranty of any kind, express or implied, including but not +limited to any warranties of merchantability, fitness for a +particular purpose and noninfringement of copyright, patent, +trademark, or other right. In no event shall the copyright +holder be liable for any claim, damages or other liability, +including any general, special, indirect, incidental, or +consequential damages, whether in an action of contract, +tort or otherwise, arising from, out of the use or inability +to use the Font Software or from other dealings in the Font +Software.} diff --git a/Master/texmf-dist/doc/fonts/drm/small_specimen.pdf b/Master/texmf-dist/doc/fonts/drm/small_specimen.pdf Binary files differnew file mode 100644 index 00000000000..4ebdfb7800a --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/small_specimen.pdf diff --git a/Master/texmf-dist/doc/fonts/drm/small_specimen.tex b/Master/texmf-dist/doc/fonts/drm/small_specimen.tex new file mode 100644 index 00000000000..ed63e84169d --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/small_specimen.tex @@ -0,0 +1,199 @@ +% +AMDG This document was begun on 22 July 11EX, the feast +% of St. Anne and St. Joachim, and it is humbly dedicated to +% them and to the Immaculate Heart of their daughter, Mary, +% for their prayers, and to the Sacred Heart of Jesus for +% His mercy. + +\documentclass{minimal} +\title{A DRM Specimen} +\author{Donald P.\ Goodman III} +\date{\today} + +\usepackage{array} +\usepackage{mathtools} +\usepackage[latin,greek,english]{babel} +\usepackage[paperwidth=8.5in,paperheight=11in,margin=0.25in]{geometry} +\usepackage{drm} +\usepackage{microtype} + +\def\latintext{\noindent\selectlanguage{latin}Quia +Catholic\ae\ veritatis doctor non solum provectos debet +instruere, sed ad eum pertinet etiam incipientes erudire, +secundum illud apostoli I ad Corinth.\ III, tanquam parvulis +in Christo, lac vobis potum dedi, non escam; propositum +nostr\ae\ intentionis in hoc opere est, ea qu\ae\ ad +Christianam religionem pertinent, eo modo tradere, secudum +quod congruit ad eruditionem incipientium. Consideravimus +namque huius doctrin\ae\ novitios, in his qu\ae\ a diversis +conscripta sunt} + +\def\greekone{\foreignlanguage{greek}{ +>En {\>a}rq\char'254\ {\>~h}n {\<o} l{\'o}goc, ka{\'i} {\<o} +>l{\'o}goc {\~\>h}n pr{\'o}c t{\'o}n je{\'o}n, ka{\'i} +>je{\'o}c {\>\~h}n {\<o} l{\'o}goc. o{\<\~u}toc {\>\~h}n +{\>e}n {\>a}rq\char'254\ pr{\`o}s t{\`o}n je{\'o}n. +p{\'a}nta di' a{\>u}to{\~u} {\>e}g{\'e}neto, ka{\`i} +qwr{\`i}c a{\>u}to{\~u} {\>e}g{\'e}neto o{\>u}d{\`e} +{\<\'e}n. {\<\`o} g{\'e}gonen \>en a\>ut\char'304\ zw\`h\ +\~\>hn, ka\`i\ \<h\ zw\`h\ \~\>hn t\`o\ f\~wc t\~wn +\>anjr\'wpwn: ka\`i\ t\`o\ f\~wc \>en t\char'354\ +skot\'i\char'370\ fa\'nei, ka\`i\ \<h\ skot\'ia a\>ut\`o +o\>u\ kat\'elaben. \>Eg\'eneto \>\'anjrwpoc +\>apestalm\'enoc par\`a\ jeo\~u, \>\'onoma a\>ut\char'304\ +\>Iw\'annhc: o\<\~utoc \~\>hljen e\>ic martur\'ian, \<\'ina +martur\'hs\char'371\ per\`i\ to\~u\ fwt\'oc, \<\'ina +p\'antec piste\'uswsin di' a\>uto\~u. o\>uk \~\>hn +\>eke\~inoc t\`o\ f\~wc, \>all' \<\'ina martur\'hs\char'371\ +per\`i\ to\~u\ fwt\'oc.}} + +\def\leftfleuron{% + \fontsize{12pt}{12pt}\selectfont\textleftupfleuron% +} +\def\rightfleuron{% + \fontsize{12pt}{12pt}\selectfont\textrightupfleuron% +} + +\def\coltitle#1{% + \hbox to\linewidth{% + \leftfleuron% + \hfil% + \fontsize{18pt}{18pt}\selectfont% + \textsc{#1}% + \hfil% + \rightfleuron% + }% +}% + +\begin{document} + +{\fontsize{36pt}{36pt}\selectfont\scshape +\tulipframe{A Specimen of DRM} +} + +\vskip4em% + +\begin{minipage}[t]{0.46\textwidth} +\coltitle{Roman} +\latintext +\end{minipage} +\hskip0.02\textwidth% +\begin{minipage}[t]{0.46\textwidth} +\coltitle{Italic} +\itshape\latintext +\end{minipage} + +\vskip2em% + +\begin{minipage}[t]{0.46\textwidth} +\coltitle{Small Caps Roman} +\scshape\latintext +\end{minipage} +\hskip0.02\textwidth% +\begin{minipage}[t]{0.46\textwidth} +\coltitle{Greek} +\grktext\greekone +\end{minipage} + +\vskip2em% + +\begin{minipage}[t]{0.46\textwidth} +\coltitle{Bold Roman} +\bfseries\latintext +\end{minipage} +\hskip0.02\textwidth% +\begin{minipage}[t]{0.46\textwidth} +\coltitle{Upright Italic} +\uishape\latintext +\end{minipage} + +\vskip2em% + +\begin{minipage}[t]{0.46\textwidth} +\coltitle{Math} + +$$ f'(x) = \lim_{\Delta x\to\infty} {{f(x + \Delta x) - f(x)} + \over {\Delta x}} $$ + +$$ e^{i\pi} + 1 = 0 $$ + +%$$ +%\begin{multlined} +%\frac{1}{2} (\cos\,(ax-bx) - \cos\,(ax+bx)) - \\ \frac{k}{2} +%(\cos\,(ax+bx) + \cos\,(ax-bx)) = -1 +%\end{multlined} +%$$ + +\end{minipage} +\hskip0.02\textwidth% +\begin{minipage}[t]{0.46\textwidth} +\coltitle{Symbols} + +\fontsize{18pt}{24pt}\selectfont% +\setlength\extrarowheight{12pt}% +\setlength\tabcolsep{8pt}% +\begin{tabular}{cccccccc} +\textcrusadecrossoutline & +\texteucharist & +\textleaf & +\textolddollarsign & +\textpoundsterling & +\texteuro & +\textnumero & +\textrefmark \\ +\textasterism & +\textsection & +\dag & +\dbldag & +\textrecipe & +\textintbang & +\textopenintbang & +\textperbiqua \\ +%\textradiation & +%\textbiohazard & +%\texthighvoltagenotriangle & +%\textbullet & +%\textopenbullet & +%\textlozenge & +%\textcopyright & +%\textcopyleft \\ +\end{tabular} +\end{minipage} + +\newlength{\doublelen} +\settowidth{\doublelen}{% +\begin{minipage}[t]{0.46\textwidth} +\coltitle{Hello} +\latintext +\end{minipage} +\begin{minipage}[t]{0.46\textwidth} +\coltitle{Hello} +\latintext +\coltitle{Hello} +\end{minipage} +} +\hbox to\linewidth{% + \hfil% + \hbox to\doublelen{% + \leftfleuron% + \hfil% + \fontsize{18pt}{18pt}\selectfont% + \textsc{Sample Ornaments}% + \hfil% + \rightfleuron% + }% + \hfil% +} + +\vskip2em% +\begin{minipage}[t]{0.46\textwidth} +\fontsize{10pt}{10pt}\selectfont +\extrule{h}{\linewidth}{\spearleft}{\spearright}{\horizspearext}% +\end{minipage} +\begin{minipage}[t]{0.46\textwidth} +\fontsize{24pt}{24pt}\selectfont +\hbox{\hfil% +\extrule{h}{\linewidth}{\drmsym{\char'320}}{\drmsym{\char'321}}{\drmsym{\char'317}} +\hfil} +\end{minipage} + +\end{document} diff --git a/Master/texmf-dist/doc/fonts/drm/specimen.pdf b/Master/texmf-dist/doc/fonts/drm/specimen.pdf Binary files differnew file mode 100644 index 00000000000..097e02e506c --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/specimen.pdf diff --git a/Master/texmf-dist/doc/fonts/drm/specimen.tex b/Master/texmf-dist/doc/fonts/drm/specimen.tex new file mode 100644 index 00000000000..227c002e38c --- /dev/null +++ b/Master/texmf-dist/doc/fonts/drm/specimen.tex @@ -0,0 +1,599 @@ +% +AMDG This document was begun on 12 July 11EX, the feast +% of St. Bonaventure, BCD, and it is humbly dedicated to him +% and to the Immaculate Heart of Mary for their prayers, and +% to the Sacred Heart of Jesus for His mercy. + +\documentclass{article} +\title{DRM Specimen} +\author{Donald P.\ Goodman III} +\date{\today} + +\usepackage{array} +\usepackage{drm} +\usepackage[margin=0.5in,paperwidth=841mm,paperheight=1189mm]{geometry} +\usepackage{multicol} +\usepackage[greek,latin,english]{babel} +\usepackage{microtype} +\pagestyle{empty} + +\def\hugongous{\fontsize{48pt}{48pt}\selectfont} +\def\ginormous{\fontsize{60pt}{60pt}\selectfont} + +\def\coltitle#1{% + \vskip1em% + \hbox to\linewidth{% + \ginormous\textleftupfleuron\hfil\scshape#1\hfil\textrightupfleuron% + }% +}% +\def\texttitle#1{% + \vskip1em% + \hbox to\linewidth{% + \hugongous\textleftupfleuron\hfil\scshape#1\hfil\textrightupfleuron% + }% +}% +\def\alphabet{% + \vskip-0.5em% + \hbox to\linewidth{% + \hfil% + \large% + Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm Nn Oo Pp % + Qq Rr Ss Tt Uu Vv Ww Xx Yy Zz% + \hfil% + }% + \vskip-1em% +} +\def\grkalphabet{% + \vskip-0.5em% + \hbox to\linewidth{% + \hfil% + \large\foreignlanguage{greek}{% + Aa Bb Gg Dd Ee Zz Hh Jj Ii Kk Ll Mm Nn Xx Oo Pp Rr % + Ssc Tt Uu Ff Qq Yy Ww} + \hfil% + } + \vskip-1em% +} + +\def\latintext{\noindent\selectlanguage{latin}Quia +Catholic\ae\ veritatis doctor non solum provectos debet +instruere, sed ad eum pertinet etiam incipientes erudire, +secundum illud apostoli I ad Corinth.\ III, tanquam parvulis +in Christo, lac vobis potum dedi, non escam} +\def\latintwo{\selectlanguage{latin}; propositum nostr\ae\ +intentionis in hoc opere est, ea qu\ae\ ad Christianam +religionem pertinent, eo modo tradere, secudum quod congruit +ad eruditionem incipientium. Consideravimus namque huius +doctrin\ae\ novitios, in his qu\ae\ a diversis conscripta +sunt} +\def\latinthree{\selectlanguage{latin}, plurimum impediri, +partim quidem propter multiplicationem inutilium qu\ae +stionum, articulorum et argumentorum; partim etiam quia ea +qu\ae\ sunt necessaria talibus ad sciendum, non traduntur +secundum ordinem disciplin\ae, sed secundum quo requirebat +librorum expositio, vel secundum quod se pr\ae bebat, +occasio disputandi;} +\def\latinfour{\selectlanguage{latin} partim quidem quia +eorundem frequens repetitio et fastidium et confusionem +generabat in animis auditorum. H\ae c igitur et alia +huiusmodi evitare studentes, tentabimus, cum confidentia +divini auxilii, ea qu\ae\ ad sacram doctrinam pertinent, +breviter ac dilucide prosequi, secundum quod materia +patietur.} + +\def\greekone{\foreignlanguage{greek}{ +>En {\>a}rq\char'254\ {\>~h}n {\<o} l{\'o}goc, ka{\'i} {\<o} +>l{\'o}goc {\~\>h}n pr{\'o}c t{\'o}n je{\'o}n, ka{\'i} +>je{\'o}c {\>\~h}n {\<o} l{\'o}goc. o{\<\~u}toc {\>\~h}n +{\>e}n {\>a}rq\char'254\ pr{\`o}s t{\`o}n je{\'o}n. +p{\'a}nta di' a{\>u}to{\~u} {\>e}g{\'e}neto, ka{\`i} +qwr{\`i}c a{\>u}to{\~u} {\>e}g{\'e}neto o{\>u}d{\`e} +{\<\'e}n. {\<\`o} g{\'e}gonen \>en a\>ut\char'304\ zw\`h\ +\~\>hn, ka\`i\ \<h\ zw\`h\ \~\>hn t\`o\ f\~wc t\~wn +\>anjr\'wpwn: ka\`i\ t\`o\ f\~wc \>en t\char'354\ +skot\'i\char'370\ fa\'nei, ka\`i\ \<h\ skot\'ia a\>ut\`o +o\>u\ kat\'elaben. \>Eg\'eneto \>\'anjrwpoc +\>apestalm\'enoc par\`a\ jeo\~u, \>\'onoma a\>ut\char'304\ +\>Iw\'annhc: o\<\~utoc \~\>hljen e\>ic martur\'ian, \<\'ina +martur\'hs\char'371\ per\`i\ to\~u\ fwt\'oc, \<\'ina +p\'antec piste\'uswsin di' a\>uto\~u. o\>uk \~\>hn +\>eke\~inoc t\`o\ f\~wc, \>all' \<\'ina martur\'hs\char'371\ +per\`i\ to\~u\ fwt\'oc.}} +\def\greektwo{\foreignlanguage{greek}{ +\>\~hn t\`o f\~wc t\`o\ \>alhjin\'on, \>\`o\ fwt\'izei +p\'anta \>\'anjrwpon, \>erx\'omenon e\>ic t\`on k\'osmon. +\>en t\char'304\ k\'osm\char'304\ \~\>hn, ka\`i\ \<o\ +k\'osmoc di' a\>uto\~u\ \>eg\'eneto, ka\`i\ \<o\ k\'osmoc +a\>ut\`on o\>uk \>\'egnw. e\>ic t\`a\ \>\'idia \~\>hljen, +ka\`i o\<i\ \>\'idioi a\>ut\`on o\>u\ par\'elabon. \<\'osoi +d\`e\ \>\'elabon a\>ut\'on, \>\'edwken a\>uto\~ic +\>exous\'ian t\'ekna jeo\~u\ gen\'esjai, to\~ic +piste\'uousin e\>ic t\`o\ \>\'onoma a\>uto\~, +}} +\def\greekthree{\foreignlanguage{greek}{ +o\<\`i\ o\>uk \>ex a\<im\'atwn o\>ud\`e \>ek jel\'hmatoc +sark\`oc o\>ud\`e \>ek jel\'hmatoc \>andr\`oc \>all' \>ek +jeo\~u\ \>egenn\'hjhsan. Ka\`i \<o\ l\'ogoc s\`arx +\>eg\'eneto ka\`i\ \>esk\'hnwsen \>en \<hm\~in, ka\`i\ +\>ejeas\'ameja t\`hn d\'oxan a\>uto\~u, d\'oxan \<wc +monogeno\~uc par\`a\ patr\'oc, pl\'erec q\'aritoc ka\`i\ +\>alhje\'iac. +}} + +\begin{document} + +\fontsize{140pt}{140pt}\selectfont +\vbox{ + \hbox to\linewidth{\hfil% + {\drmsym{\char'053}}\hfil% + {\drmsym{\char'116}}\hfil% + {\drmsym{\char'111}}\hfil% + {\drmsym{\char'116}}\hfil% + {\drmsym{\char'024}}\hfil% + {\drmsym{\char'116}}\hfil% + {\drmsym{\char'111}}\hfil% + {\drmsym{\char'116}}\hfil% + {\drmsym{\char'072}}\hfil}% + \vskip-0.5\baselineskip% + \hbox to\linewidth{\hfil% + \texttc{A DRM Specimen}% + \hfil% + }% + \vskip-0.5\baselineskip% + \hbox to\linewidth{\hfil% + {\drmsym{\char'073}}\hfil% + {\drmsym{\char'121}}\hfil% + {\drmsym{\char'112}}\hfil% + {\drmsym{\char'121}}\hfil% + {\drmsym{\char'027}}\hfil% + {\drmsym{\char'121}}\hfil% + {\drmsym{\char'112}}\hfil% + {\drmsym{\char'121}}\hfil% + {\drmsym{\char'110}}\hfil}% +} + +\begin{minipage}[t]{0.23\textwidth} +\coltitle{Roman} + +\alphabet + +\texttitle{Double Pica (24)} + +\Huge\latintext + +\texttitle{Paragon (20)} + +\huge\latintext\latintwo + +\texttitle{Great Primer} + +\LARGE\latintext\latintwo + +\texttitle{English (14)} + +\Large\latintext\latintwo + +\texttitle{Pica (12)} + +\large\latintext\latintwo + +\texttitle{Long-primer} + +\normalsize\latintext\latintwo\latinthree + +\texttitle{Bourgeois (9)} + +\small\latintext\latintwo\latinthree + +\texttitle{Brevier (8)} + +\footnotesize\latintext\latintwo\latinthree + +\texttitle{Minion (7)} + +\scriptsize\latintext\latintwo\latinthree\latinfour + +\texttitle{Pearl (5)} + +\tiny\latintext\latintwo\latinthree\latinfour +\end{minipage} +\begin{minipage}[t]{0.23\textwidth} +\coltitle{Italic}\itshape + +\alphabet + +\texttitle{Double Pica (24)} + +\Huge\latintext + +\texttitle{Paragon (20)} + +\huge\latintext\latintwo + +\texttitle{Great Primer} + +\LARGE\latintext\latintwo + +\texttitle{English (14)} + +\Large\latintext\latintwo + +\texttitle{Pica (12)} + +\large\latintext\latintwo + +\texttitle{Long-primer} + +\normalsize\latintext\latintwo\latinthree + +\texttitle{Bourgeois (9)} + +\small\latintext\latintwo\latinthree + +\texttitle{Brevier (8)} + +\footnotesize\latintext\latintwo\latinthree + +\texttitle{Minion (7)} + +\scriptsize\latintext\latintwo\latinthree\latinfour + +\texttitle{Pearl (5)} + +\tiny\latintext\latintwo\latinthree\latinfour +\end{minipage} +\begin{minipage}[t]{0.23\textwidth} +\coltitle{Small Caps}\scshape + +\alphabet + +\texttitle{Double Pica (24)} + +\Huge\latintext + +\texttitle{Paragon (20)} + +\huge\latintext\latintwo + +\texttitle{Great Primer} + +\LARGE\latintext\latintwo + +\texttitle{English (14)} + +\Large\latintext\latintwo + +\texttitle{Pica (12)} + +\large\latintext\latintwo + +\texttitle{Long-primer} + +\normalsize\latintext\latintwo\latinthree + +\texttitle{Bourgeois (9)} + +\small\latintext\latintwo\latinthree + +\texttitle{Brevier (8)} + +\footnotesize\latintext\latintwo\latinthree + +\texttitle{Minion (7)} + +\scriptsize\latintext\latintwo\latinthree\latinfour + +\texttitle{Pearl (5)} + +\tiny\latintext\latintwo\latinthree\latinfour +\end{minipage} +\begin{minipage}[t]{0.23\textwidth} +\coltitle{Greek} + +\grkalphabet + +\texttitle{Double Pica (24)} + +\Huge\greekone + +\texttitle{Paragon (20)} + +\huge\greekone + +\texttitle{Great Primer} + +\LARGE\greekone + +\texttitle{English (14)} + +\Large\greekone + +\texttitle{Pica (12)} + +\large\greekone + +\texttitle{Long-primer} + +\normalsize\greekone\greektwo + +\texttitle{Bourgeois (9)} + +\small\greekone\greektwo + +\texttitle{Brevier (8)} + +\footnotesize\greekone\greektwo + +\texttitle{Minion (7)} + +\scriptsize\greekone\greektwo\greekthree + +\texttitle{Pearl (5)} + +\tiny\greekone\greektwo\greekthree +\end{minipage} + +\begin{center} +\fontencoding{TS1}\selectfont\Huge +\setlength{\extrarowheight}{12pt} +\begin{tabular}{p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}p{0.025\textwidth}} +\char0 & +\char1 & +\char2 & +\char3 & +\char4 & +\char5 & +\char6 & +\char7 & +\char8 & +\char9 & +\char10 & +\char11 & +\char12 & +\char13 & +\char14 & +\char15 & +\char16 & +\char17 & +\char18 & +\char19 & +\char20 & +\char21 & +\char22 & +\char23 & +\char24 & +\char25 & +\char26 & +\char27 & +\char28 & +\char29 & +\char30 & +\char31 \\ +\char32 & +\char33 & +\char34 & +\char35 & +\char36 & +\char37 & +\char38 & +\char39 & +\char40 & +\char41 & +\char42 & +\char43 & +\char44 & +\char45 & +\char46 & +\char47 & +\char48 & +\char49 & +\char50 & +\char51 & +\char52 & +\char53 & +\char54 & +\char55 & +\char56 & +\char57 & +\char58 & +\char59 & +\char60 & +\char61 & +\char62 & +\char63 \\ +\char64 & +\char65 & +\char66 & +\char67 & +\char68 & +\char69 & +\char70 & +\char71 & +\char72 & +\char73 & +\char74 & +\char75 & +\char76 & +\char77 & +\char78 & +\char79 & +\char80 & +\char81 & +\char82 & +\char83 & +\char84 & +\char85 & +\char86 & +\char87 & +\char88 & +\char89 & +\char90 & +\char91 & +\char92 & +\char93 & +\char94 & +\char95 \\ +\char96 & +\char97 & +\char98 & +\char99 & +\char100 & +\char101 & +\char102 & +\char103 & +\char104 & +\char105 & +\char106 & +\char107 & +\char108 & +\char109 & +\char110 & +\char111 & +\char112 & +\char113 & +\char114 & +\char115 & +\char116 & +\char117 & +\char118 & +\char119 & +\char120 & +\char121 & +\char122 & +\char123 & +\char124 & +\char125 & +\char126 & +\char127 \\ +\char128 & +\char129 & +\char130 & +\char131 & +\char132 & +\char133 & +\char134 & +\char135 & +\char136 & +\char137 & +\char138 & +\char139 & +\char140 & +\char141 & +\char142 & +\char143 & +\char144 & +\char145 & +\char146 & +\char147 & +\char148 & +\char149 & +\char150 & +\char151 & +\char152 & +\char153 & +\char154 & +\char155 & +\char156 & +\char157 & +\char158 & +\char159 \\ +\char160 & +\char161 & +\char162 & +\char163 & +\char164 & +\char165 & +\char166 & +\char167 & +\char168 & +\char169 & +\char170 & +\char171 & +\char172 & +\char173 & +\char174 & +\char175 & +\char176 & +\char177 & +\char178 & +\char179 & +\char180 & +\char181 & +\char182 & +\char183 & +\char184 & +\char185 & +\char186 & +\char187 & +\char188 & +\char189 & +\char190 & +\char191 \\ +\char192 & +\char193 & +\char194 & +\char195 & +\char196 & +\char197 & +\char198 & +\char199 & +\char200 & +\char201 & +\char202 & +\char203 & +\char204 & +\char205 & +\char206 & +\char207 & +\char208 & +\char209 & +\char210 & +\char211 & +\char212 & +\char213 & +\char214 & +\char215 & +\char216 & +\char217 & +\char218 & +\char219 & +\char220 & +\char221 & +\char222 & +\char223 \\ +\char224 & +\char225 & +\char226 & +\char227 & +\char228 & +\char229 & +\char230 & +\char231 & +\char232 & +\char233 & +\char234 & +\char235 & +\char236 & +\char237 & +\char238 & +\char239 & +\char240 & +\char241 & +\char242 & +\char243 & +\char244 & +\char245 & +\char246 & +\char247 & +\char248 & +\char249 & +\char250 & +\char251 & +\char252 & +\char253 & +\char254 & +\char255 \\ +\end{tabular} +\end{center} + + +\end{document} diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drm10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drm10.otf Binary files differnew file mode 100644 index 00000000000..e339dd968fa --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drm10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drm11.otf b/Master/texmf-dist/fonts/opentype/public/drm/drm11.otf Binary files differnew file mode 100644 index 00000000000..2c45c85d3c4 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drm11.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drm12.otf b/Master/texmf-dist/fonts/opentype/public/drm/drm12.otf Binary files differnew file mode 100644 index 00000000000..91adfb6a6bb --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drm12.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drm14.otf b/Master/texmf-dist/fonts/opentype/public/drm/drm14.otf Binary files differnew file mode 100644 index 00000000000..a9a364e3649 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drm14.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drm17.otf b/Master/texmf-dist/fonts/opentype/public/drm/drm17.otf Binary files differnew file mode 100644 index 00000000000..c98304b0b76 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drm17.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drm24.otf b/Master/texmf-dist/fonts/opentype/public/drm/drm24.otf Binary files differnew file mode 100644 index 00000000000..f6da07e65c8 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drm24.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drm6.otf b/Master/texmf-dist/fonts/opentype/public/drm/drm6.otf Binary files differnew file mode 100644 index 00000000000..56f599f4cc7 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drm6.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drm7.otf b/Master/texmf-dist/fonts/opentype/public/drm/drm7.otf Binary files differnew file mode 100644 index 00000000000..66e4971d667 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drm7.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drm8.otf b/Master/texmf-dist/fonts/opentype/public/drm/drm8.otf Binary files differnew file mode 100644 index 00000000000..7ea0b91cc3f --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drm8.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drm9.otf b/Master/texmf-dist/fonts/opentype/public/drm/drm9.otf Binary files differnew file mode 100644 index 00000000000..6c9e5ec9ccd --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drm9.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmb10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmb10.otf Binary files differnew file mode 100644 index 00000000000..773683e74ca --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmb10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmb11.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmb11.otf Binary files differnew file mode 100644 index 00000000000..f2c355adac5 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmb11.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmb12.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmb12.otf Binary files differnew file mode 100644 index 00000000000..5d36d2ba4b7 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmb12.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmb14.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmb14.otf Binary files differnew file mode 100644 index 00000000000..c939458e5c4 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmb14.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmb17.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmb17.otf Binary files differnew file mode 100644 index 00000000000..89d90690bef --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmb17.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmb24.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmb24.otf Binary files differnew file mode 100644 index 00000000000..f271a18347c --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmb24.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmb6.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmb6.otf Binary files differnew file mode 100644 index 00000000000..381f94c1db3 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmb6.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmb7.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmb7.otf Binary files differnew file mode 100644 index 00000000000..2501c2a4f10 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmb7.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmb8.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmb8.otf Binary files differnew file mode 100644 index 00000000000..9b82fcb933a --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmb8.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmb9.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmb9.otf Binary files differnew file mode 100644 index 00000000000..dcf5ec77212 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmb9.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmbs10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmbs10.otf Binary files differnew file mode 100644 index 00000000000..fdfb585906b --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmbs10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmbx10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmbx10.otf Binary files differnew file mode 100644 index 00000000000..578f8f9c356 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmbx10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmbx11.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmbx11.otf Binary files differnew file mode 100644 index 00000000000..5ae65dabb50 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmbx11.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmbx12.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmbx12.otf Binary files differnew file mode 100644 index 00000000000..33e31ef8e8e --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmbx12.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmbx14.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmbx14.otf Binary files differnew file mode 100644 index 00000000000..29c42bc360d --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmbx14.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmbx17.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmbx17.otf Binary files differnew file mode 100644 index 00000000000..0c014f2c768 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmbx17.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmbx24.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmbx24.otf Binary files differnew file mode 100644 index 00000000000..9fe0b900c69 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmbx24.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmbx6.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmbx6.otf Binary files differnew file mode 100644 index 00000000000..6d4887d6789 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmbx6.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmbx7.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmbx7.otf Binary files differnew file mode 100644 index 00000000000..f99ddb2909d --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmbx7.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmbx8.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmbx8.otf Binary files differnew file mode 100644 index 00000000000..e5555dded65 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmbx8.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmbx9.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmbx9.otf Binary files differnew file mode 100644 index 00000000000..a6e66694811 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmbx9.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmgrk10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmgrk10.otf Binary files differnew file mode 100644 index 00000000000..ba07b0b3e68 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmgrk10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmit10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmit10.otf Binary files differnew file mode 100644 index 00000000000..0f5d19cfd95 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmit10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmit11.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmit11.otf Binary files differnew file mode 100644 index 00000000000..16faff82e7a --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmit11.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmit12.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmit12.otf Binary files differnew file mode 100644 index 00000000000..9e2515091df --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmit12.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmit14.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmit14.otf Binary files differnew file mode 100644 index 00000000000..7ad4f73c1f6 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmit14.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmit17.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmit17.otf Binary files differnew file mode 100644 index 00000000000..6883b28aa77 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmit17.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmit24.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmit24.otf Binary files differnew file mode 100644 index 00000000000..b4fd9002a58 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmit24.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmit6.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmit6.otf Binary files differnew file mode 100644 index 00000000000..999748087df --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmit6.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmit7.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmit7.otf Binary files differnew file mode 100644 index 00000000000..47dc2297bd4 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmit7.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmit8.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmit8.otf Binary files differnew file mode 100644 index 00000000000..865d5edac91 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmit8.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmit9.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmit9.otf Binary files differnew file mode 100644 index 00000000000..684669cdaa4 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmit9.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drml10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drml10.otf Binary files differnew file mode 100644 index 00000000000..72076ff61fe --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drml10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drml11.otf b/Master/texmf-dist/fonts/opentype/public/drm/drml11.otf Binary files differnew file mode 100644 index 00000000000..a0665b17097 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drml11.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drml12.otf b/Master/texmf-dist/fonts/opentype/public/drm/drml12.otf Binary files differnew file mode 100644 index 00000000000..673b9523de5 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drml12.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drml14.otf b/Master/texmf-dist/fonts/opentype/public/drm/drml14.otf Binary files differnew file mode 100644 index 00000000000..e280e0f41f0 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drml14.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drml17.otf b/Master/texmf-dist/fonts/opentype/public/drm/drml17.otf Binary files differnew file mode 100644 index 00000000000..e30dd18c882 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drml17.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drml24.otf b/Master/texmf-dist/fonts/opentype/public/drm/drml24.otf Binary files differnew file mode 100644 index 00000000000..475fd75618e --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drml24.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drml6.otf b/Master/texmf-dist/fonts/opentype/public/drm/drml6.otf Binary files differnew file mode 100644 index 00000000000..30ff9428e64 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drml6.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drml7.otf b/Master/texmf-dist/fonts/opentype/public/drm/drml7.otf Binary files differnew file mode 100644 index 00000000000..60c88699877 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drml7.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drml8.otf b/Master/texmf-dist/fonts/opentype/public/drm/drml8.otf Binary files differnew file mode 100644 index 00000000000..1f8d64bd182 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drml8.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drml9.otf b/Master/texmf-dist/fonts/opentype/public/drm/drml9.otf Binary files differnew file mode 100644 index 00000000000..6617ff381b9 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drml9.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmmi10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmmi10.otf Binary files differnew file mode 100644 index 00000000000..d56f691aa6e --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmmi10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsc10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsc10.otf Binary files differnew file mode 100644 index 00000000000..8d84a9430e9 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsc10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsc11.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsc11.otf Binary files differnew file mode 100644 index 00000000000..2db9a816ec4 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsc11.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsc12.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsc12.otf Binary files differnew file mode 100644 index 00000000000..b43a04ac21a --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsc12.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsc14.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsc14.otf Binary files differnew file mode 100644 index 00000000000..7d49d272168 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsc14.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsc17.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsc17.otf Binary files differnew file mode 100644 index 00000000000..c2716afc928 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsc17.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsc24.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsc24.otf Binary files differnew file mode 100644 index 00000000000..9764625b1aa --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsc24.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsc6.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsc6.otf Binary files differnew file mode 100644 index 00000000000..87a2cbc1a5b --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsc6.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsc7.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsc7.otf Binary files differnew file mode 100644 index 00000000000..7a6e9353b07 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsc7.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsc8.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsc8.otf Binary files differnew file mode 100644 index 00000000000..225b78a0cfc --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsc8.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsc9.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsc9.otf Binary files differnew file mode 100644 index 00000000000..6671251a614 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsc9.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsl10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsl10.otf Binary files differnew file mode 100644 index 00000000000..0764e7b4d9e --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsl10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsl11.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsl11.otf Binary files differnew file mode 100644 index 00000000000..ea6185a51f4 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsl11.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsl12.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsl12.otf Binary files differnew file mode 100644 index 00000000000..f9b0fc73109 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsl12.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsl14.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsl14.otf Binary files differnew file mode 100644 index 00000000000..673c6a701cb --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsl14.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsl17.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsl17.otf Binary files differnew file mode 100644 index 00000000000..3563468c15f --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsl17.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsl24.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsl24.otf Binary files differnew file mode 100644 index 00000000000..726ad4bdbbf --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsl24.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsl6.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsl6.otf Binary files differnew file mode 100644 index 00000000000..10580bdc707 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsl6.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsl7.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsl7.otf Binary files differnew file mode 100644 index 00000000000..e0c29623bce --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsl7.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsl8.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsl8.otf Binary files differnew file mode 100644 index 00000000000..3cc7d91dc32 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsl8.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsl9.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsl9.otf Binary files differnew file mode 100644 index 00000000000..9fa4aeb58d9 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsl9.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsy10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsy10.otf Binary files differnew file mode 100644 index 00000000000..6c686f1fc90 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsy10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsym10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsym10.otf Binary files differnew file mode 100644 index 00000000000..b131af750d5 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsym10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsym11.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsym11.otf Binary files differnew file mode 100644 index 00000000000..27f2e9630b8 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsym11.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsym12.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsym12.otf Binary files differnew file mode 100644 index 00000000000..210433d2515 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsym12.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsym14.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsym14.otf Binary files differnew file mode 100644 index 00000000000..864988a4bff --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsym14.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsym17.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsym17.otf Binary files differnew file mode 100644 index 00000000000..9ae96208e31 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsym17.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsym24.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsym24.otf Binary files differnew file mode 100644 index 00000000000..954efc50343 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsym24.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsym7.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsym7.otf Binary files differnew file mode 100644 index 00000000000..8c6e60760a3 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsym7.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsym8.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsym8.otf Binary files differnew file mode 100644 index 00000000000..576c25de31c --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsym8.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmsym9.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmsym9.otf Binary files differnew file mode 100644 index 00000000000..6922ed320c9 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmsym9.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmtc10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmtc10.otf Binary files differnew file mode 100644 index 00000000000..d767c1bb22c --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmtc10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmtc11.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmtc11.otf Binary files differnew file mode 100644 index 00000000000..9ddf51ebc87 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmtc11.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmtc12.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmtc12.otf Binary files differnew file mode 100644 index 00000000000..e4a0ee6f115 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmtc12.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmtc14.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmtc14.otf Binary files differnew file mode 100644 index 00000000000..8705d3108cb --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmtc14.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmtc17.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmtc17.otf Binary files differnew file mode 100644 index 00000000000..aa29f6981e3 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmtc17.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmtc24.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmtc24.otf Binary files differnew file mode 100644 index 00000000000..39a97d9ef99 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmtc24.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmtc6.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmtc6.otf Binary files differnew file mode 100644 index 00000000000..2b859107142 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmtc6.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmtc7.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmtc7.otf Binary files differnew file mode 100644 index 00000000000..90f353529d6 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmtc7.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmtc8.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmtc8.otf Binary files differnew file mode 100644 index 00000000000..9987b2a30e0 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmtc8.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmtc9.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmtc9.otf Binary files differnew file mode 100644 index 00000000000..aed39a268be --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmtc9.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmui10.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmui10.otf Binary files differnew file mode 100644 index 00000000000..70d225c3494 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmui10.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmui11.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmui11.otf Binary files differnew file mode 100644 index 00000000000..16cd0d568a7 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmui11.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmui12.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmui12.otf Binary files differnew file mode 100644 index 00000000000..4e44f44cd74 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmui12.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmui14.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmui14.otf Binary files differnew file mode 100644 index 00000000000..ac6ebc5993d --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmui14.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmui17.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmui17.otf Binary files differnew file mode 100644 index 00000000000..d9cbefb39cb --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmui17.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmui24.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmui24.otf Binary files differnew file mode 100644 index 00000000000..5944b62ffb5 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmui24.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmui6.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmui6.otf Binary files differnew file mode 100644 index 00000000000..d0de92e605c --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmui6.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmui7.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmui7.otf Binary files differnew file mode 100644 index 00000000000..0893965d88d --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmui7.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmui8.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmui8.otf Binary files differnew file mode 100644 index 00000000000..75dbc4fa5bc --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmui8.otf diff --git a/Master/texmf-dist/fonts/opentype/public/drm/drmui9.otf b/Master/texmf-dist/fonts/opentype/public/drm/drmui9.otf Binary files differnew file mode 100644 index 00000000000..faca991e249 --- /dev/null +++ b/Master/texmf-dist/fonts/opentype/public/drm/drmui9.otf diff --git a/Master/texmf-dist/fonts/source/public/drm/drm.mf b/Master/texmf-dist/fonts/source/public/drm/drm.mf new file mode 100644 index 00000000000..07d7a855714 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drm.mf @@ -0,0 +1,7 @@ +% +AMDG This document was begun on 17 August 2007, the Feast of St. Hyacinth +% the Confessor, and it is humbly dedicated to him and to the Immaculate Heart +% of Mary for their prayers, and to the Sacred Heart of Jesus for His mercy. + + + +\input dprcap diff --git a/Master/texmf-dist/fonts/source/public/drm/drm10.mf b/Master/texmf-dist/fonts/source/public/drm/drm10.mf new file mode 100644 index 00000000000..1862ea21628 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drm10.mf @@ -0,0 +1,72 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +font_slant 0u#; +slant = 0; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm11.mf b/Master/texmf-dist/fonts/source/public/drm/drm11.mf new file mode 100644 index 00000000000..faba93fde20 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drm11.mf @@ -0,0 +1,72 @@ +% +AMDG + +font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=9pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.3pt#; +slantwid#=1.3pt#; +thickstroke#=1.1pt#; +loopgap#=1.1pt#; +thinstroke#=0.5pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm12.mf b/Master/texmf-dist/fonts/source/public/drm/drm12.mf new file mode 100644 index 00000000000..c4d669aab74 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drm12.mf @@ -0,0 +1,72 @@ +% +AMDG + +font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=10pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.4pt#; +slantwid#=1.4pt#; +thickstroke#=1.2pt#; +loopgap#=1.2pt#; +thinstroke#=0.5pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm14.mf b/Master/texmf-dist/fonts/source/public/drm/drm14.mf new file mode 100644 index 00000000000..a70293002e7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drm14.mf @@ -0,0 +1,72 @@ +% +AMDG + +font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=12pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.6pt#; +slantwid#=1.6pt#; +thickstroke#=1.4pt#; +loopgap#=1.4pt#; +thinstroke#=0.6pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm17.mf b/Master/texmf-dist/fonts/source/public/drm/drm17.mf new file mode 100644 index 00000000000..c7b42368537 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drm17.mf @@ -0,0 +1,72 @@ +% +AMDG + +font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=15pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant=0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.9pt#; +slantwid#=1.9pt#; +thickstroke#=1.7pt#; +loopgap#=1.7pt#; +thinstroke#=0.8pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm24.mf b/Master/texmf-dist/fonts/source/public/drm/drm24.mf new file mode 100644 index 00000000000..5c81e3d1f3f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drm24.mf @@ -0,0 +1,72 @@ +% +AMDG + +font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=21pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=2.4pt#; +slantwid#=2.4pt#; +thickstroke#=2.2pt#; +loopgap#=1.7pt#; +thinstroke#=1.2pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm6.mf b/Master/texmf-dist/fonts/source/public/drm/drm6.mf new file mode 100644 index 00000000000..3455f6b18e4 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drm6.mf @@ -0,0 +1,72 @@ +% +AMDG + +font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=4pt#; +u#=2cap#/3; +em#=1.4cap#; +ex#=0.7cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.09u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.6pt#; +slantwid#=0.6pt#; +thickstroke#=0.6pt#; +loopgap#=0.6pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/16; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm7.mf b/Master/texmf-dist/fonts/source/public/drm/drm7.mf new file mode 100644 index 00000000000..998bce3edc2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drm7.mf @@ -0,0 +1,72 @@ +% +AMDG + +font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=5pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.7pt#; +slantwid#=0.7pt#; +thickstroke#=0.7pt#; +loopgap#=0.7pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/8; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm8.mf b/Master/texmf-dist/fonts/source/public/drm/drm8.mf new file mode 100644 index 00000000000..b0715556b45 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drm8.mf @@ -0,0 +1,72 @@ +% +AMDG + +font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=6pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.9pt#; +slantwid#=0.9pt#; +thickstroke#=0.8pt#; +loopgap#=0.8pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drm9.mf b/Master/texmf-dist/fonts/source/public/drm/drm9.mf new file mode 100644 index 00000000000..1f75cd94464 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drm9.mf @@ -0,0 +1,72 @@ +% +AMDG + +font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=7pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.0pt#; +slantwid#=0.9pt#; +thickstroke#=0.9pt#; +loopgap#=0.9pt#; +thinstroke#=0.4pt#; +o#=0.1pt#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmacc.mf b/Master/texmf-dist/fonts/source/public/drm/drmacc.mf new file mode 100644 index 00000000000..bd35a644a65 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmacc.mf @@ -0,0 +1,218 @@ +% +AMDG This document was begun on 2 May 11EX, the feast of +% St. Athanasius, BC, and it is humbly dedicated to him and +% to the Immaculate Heart of Mary for their prayers and to +% the Sacred Heart of Jesus for His mercy. + +picture ringacc; +picture hungum; +picture roundcircum; +picture invcircum; +picture macron; +picture overdot; +picture cedille; +picture revcid; +picture grave; +picture acute; +picture diaresis; +picture circumflex; +picture tilde; + +beginchar(oct"000",2pwid#,cap#,0); "The grave accent, `"; + +z0 = (ss,h-o); +z1 = z0 shifted (accwid,accwid); +z2 = z0 shifted (accwid,-accwid); +z3 = (w-ss,h-o); +z4 = z3 shifted (-2accwid,2accwid); +z5 = z3 shifted (-2accwid,-2accwid); +z6 = (w/2,h-o); + +path graveacc; graveacc = z0..z1--z4..z3..z5--z2..cycle; +fill graveacc rotatedaround (z6,-20); + +grave := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"005",2pwid#,cap#,0); "The Hungarian diaresis"; + +z0 = (w/2-accwid,h-o); +z2 = z0 shifted (0,-pwid); +z3 = z0 shifted (2accwid,0); +z4 = z2 shifted (2accwid,0); +z5 = 0.5[z0,z3] shifted (0,accwid); +z6 = 0.5[z2,z4] shifted (0,-accwid); +z7 = 0.5[z5,z6]; + +path lthung; lthung = z0..z5..z3--z4..z6..z2--cycle; + +fill lthung rotatedaround (z7,-30); +fill lthung rotatedaround (z7,-30) shifted (w/3,0); + +hungum := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"006",2pwid#,cap#,0); "The ring accent"; + +z0 = (w/2,h-dotwid-accwid); + +pickup pencircle scaled thinl; +path ringaccent; +ringaccent = fullcircle scaled 3dotwid shifted z0; +draw ringaccent; + +ringacc := currentpicture; + +endchar; + +beginchar(oct"001",2pwid#,cap#,0); "The acute accent, '"; + +z6 = (w/2,h-o); + +fill graveacc rotatedaround (z6,20); + +acute := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"002",2pwid#,cap#,0); "The circumflex, ^"; + +z0 = (w/2,h-o); +z1 = (ss,h-pwid); +z2 = (w-ss,h-pwid); +z3 = z0 shifted (0,-3accwid); +z5 = z1 shifted (3accwid,0); +z7 = z2 shifted (-3accwid,0); + +path circum; +circum = z0--z2--z7--z3--z5--z1--cycle; +fill circum; +circumflex := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"007",2pwid#,cap#,0); "The inverted circumflex"; + +fill circum reflectedabout ((0,h-pwid/2-o),(w,h-pwid/2-o)); +invcircum := currentpicture; + +endchar; + +beginchar(oct"010",2pwid#,cap#,0); "The rounded inverted circumflex"; + +z0 = (w/2,h-pwid); +z1 = (ss,h-o); +z2 = (w-ss,h-o); +z3 = z0 shifted (0,-2accwid); +z4 = z1 shifted (accwid,0); +z5 = z2 shifted (-accwid,0); +z6 = 0.5[z2,z5] shifted (0,accwid/2); +z7 = 0.5[z1,z4] shifted (0,accwid/2); + +fill +z3{right}..{up}z2..z6..z5{down}..{left}z0{left}..{up}z4..z7..z1{down}..{right}cycle; + +roundcircum := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"011",2pwid#,cap#,0); "The macron"; + +z0 = (ss,h-pwid/2); +z1 = (w-ss,h-pwid/2); +z2 = z0 shifted (0,-accwid/2); +z3 = z1 shifted (0,-accwid/2); + +fill z0---z1..z3---z2..cycle; + +macron := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"012",pwid#,cap#,0); "The overdot"; + +fill fullcircle scaled 2dotwid shifted (w/2,cap-dotwid); + +overdot := currentpicture; + +endchar; + +beginchar(oct"013",pwid#,0,1.5pwid#); "The cedilla"; + +cedsize = thinl*1.5; +z0 = (w/2-cedsize/2,0); +z1 = z0 shifted (cedsize,0); +z2 = z0 shifted (0,-cedsize); +z3 = z1 shifted (0,-cedsize); +z4 = z3 shifted (cedsize,-cedsize); +z5 = z4 shifted (-cedsize,0); +z6 = z5 shifted (-cedsize,-cedsize); +z7 = z6 shifted (0,-cedsize); +z8 = 0.5[z6,z7] shifted (-accwid/2,0); + +fill z0..z2..z5..z6..z8..z7..z4..z3--z1--cycle; + +cedille := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"014",pwid#,0,1.5pwid#); "The reverse cedilla"; + +z0 = (w/2-cedsize/2,0); +z1 = z0 shifted (cedsize,0); +z2 = z0 shifted (-2cedsize,-2cedsize); +z3 = z2 shifted (cedsize,0); +z4 = z2 shifted (4cedsize,-cedsize); +z5 = z4 shifted (cedsize,0); +z6 = z2 shifted (2cedsize,-2cedsize); +z7 = z6 shifted (0,-cedsize); + +fill z0{left}..{down}z2{down}..z7..{up}z5..z4..z6..z3..{dir + 60}z1--cycle; + +revcid := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"003",2pwid#,cap#,0); "The tilde, ~"; + +z0 = (ss,h-pwid-o); +z1 = (w/3,h-ss); +z2 = (2w/3,h-pwid); +z3 = (w-ss,h); +z4 = z1 shifted (0,-1.5thinl); +z5 = z2 shifted (0,1.5thinl); + +fill z0..{right}z1{right}..{right}z5{right}..{dir 60}z3{dir + -95}..{left}z2{left}..{left}z4{left}..z0..cycle; + +tilde := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"004",2pwid#,cap#,0); "The diaresis"; + +z0 = (w/4,h-dotwid); +z1 = (3w/4,h-dotwid); + +fill fullcircle scaled 2dotwid shifted z0; +fill fullcircle scaled 2dotwid shifted z1; + +diaresis := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"015",pwid#,pwid#,0); "The comma accent, ,"; +fill commapost shifted (0,h-2dotwid+o/2); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmacclet.mf b/Master/texmf-dist/fonts/source/public/drm/drmacclet.mf new file mode 100644 index 00000000000..94c570aa502 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmacclet.mf @@ -0,0 +1,687 @@ +% +AMDG This document was begun on 1E May 11EX, and it is +% humbly dedicated to the Immaculate Heart of Mary for her +% prayers, and to the Sacred Heart of Jesus for His mercy. + +beginchar(oct"350",ex#+2ss#,ex#,0); "The letter egrave"; + +currentpicture := lowe + grave shifted + (w/2-pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"351",ex#+2ss#,ex#,0); "The letter eacute"; + +currentpicture := lowe + acute shifted + (w/2-pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"354",0.6ex#+2ss#,ex#,0); "the letter igrave"; +currentpicture := dotlessi + grave shifted + (w/2-pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"355",0.6ex#+2ss#,ex#,0); "the letter iacute"; +currentpicture := dotlessi + acute shifted + (w/2-pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"356",0.6ex#+2ss#,ex#,0); "the letter icirc"; +currentpicture := dotlessi + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); +endchar; + +beginchar(oct"357",0.6ex#+2ss#,ex#,0); "dotless i with diaresis"; + +currentpicture := dotlessi + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"352",ex#+2ss#,ex#,0); "e with circumflex"; + +currentpicture := lowe + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"353",ex#+2ss#,ex#,0); "e with diaresis"; + +currentpicture := lowe + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"362",ex#+2ss#,ex#,0); "the letter ograve"; + +currentpicture := lowo + grave shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"363",ex#+2ss#,ex#,0); "the letter oacute"; + +currentpicture := lowo + acute shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"366",ex#+2ss#,ex#,0); "o with diaresis"; + +currentpicture := lowo + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"365",ex#+2ss#,ex#,0); "o with tilde"; + +currentpicture := lowo + tilde shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"364",ex#+2ss#,ex#,0); "o with circumflex"; + +currentpicture := lowo + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"340",ex#+2ss#,ex#,0); "The letter agrave"; + +currentpicture := lowa + grave shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"341",ex#+2ss#,ex#,0); "The letter aacute"; + +currentpicture := lowa + acute shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"342",ex#+2ss#,ex#,0); "a with circumflex"; + +currentpicture := lowa + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"343",ex#+2ss#,ex#,0); "a with tilde"; + +currentpicture := lowa + tilde shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"344",ex#+2ss#,ex#,0); "a with diaresis"; + +currentpicture := lowa + diaresis shifted + (w/2-pwid-lserwl/2,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"345",ex#+2ss#,ex#,0); "a with ring"; + +currentpicture := lowa; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-1.1pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"267",1.2ex#+2ss#,ex#,0); "u with ring"; + +currentpicture := lowu; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"347",ex#+2ss#,ex#,1.5pwid#); "c cedille"; + +currentpicture := lowc + cedille shifted (w-1.7pwid,0); + +endchar; + +beginchar(oct"200",em#+2ss#,cap#,0); "The Letter A, reverse circumflex"; + +currentpicture := capa + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"201",em#+2ss#,cap#,0); "The Letter A, reverse cedilla"; + +currentpicture := capa + revcid shifted (2w/3,0); + +endchar; + +beginchar(oct"202",5em#/6+ss#,cap#,0); "The Letter C with acute accent"; + +currentpicture := capc + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"203",5em#/6+ss#,cap#,0); "The Letter C, reverse circumflex"; + +currentpicture := capc + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"204",5em#/6+2ss#,cap#,0); "The Letter D, reverse circumflex"; + +currentpicture := capd + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"205",5em#/6+2ss#,cap#,0); "The Letter E, reverse circumflex"; + +currentpicture := cape + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"206",5em#/6+2ss#,cap#,0); "The Letter E, reverse cedilla"; + +currentpicture := cape + revcid shifted (2w/3-8o,0); + +endchar; + +beginchar(oct"207",em#+2ss#,cap#,0); "The Letter G, reverse circumflex"; + +currentpicture := capg + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"210",5em#/6+2ss#,cap#,0); "The Letter L, acute accent"; + +currentpicture := capl + acute shifted (w/2-1.5pwid,pwid); + +endchar; + +beginchar(oct"211",5em#/6+2ss#,cap#,0); "The Letter L, apostrophe accent"; + +currentpicture := capl; +fill commapost shifted (ss+2userw+thickl+o,h-0.5pwid); + +endchar; + +beginchar(oct"212",5em#/6+2ss#,cap#,0); "The Letter slashed L"; + +currentpicture := capl; + +pickup pencircle scaled thinstroke; +lft z0 = (-2hair,h/2); +z2 = (z0--(w,h/2)) intersectionpoint ((ss+userw+thickstroke/2,h)-- + (ss+userw+thickstroke/2,0)); +z1 = 2[z0,z2] shifted (thickstroke,0); +path intline; intline = z0--z1; + +draw intline rotatedaround(z2,30); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"213",5em#/6+2ss#,cap#,0); "The Letter N, with acute accent"; + +currentpicture := capn + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"214",5em#/6+2ss#,cap#,0); "The Letter N, inverted circumflex"; + +currentpicture := capn + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"216",5em#/6+2ss#,cap#,0); "The Letter O, Hungarian diaresis"; + +currentpicture := capo + hungum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"217",5em#/6+2ss#,cap#,0); "The Letter R, acute accent"; + +currentpicture := capr + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"220",5em#/6+2ss#,cap#,0); "The Letter R, inverse circumflex"; + +currentpicture := capr + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"221",(3(em#+2ss#)/4),cap#,0); "The Letter S, acute accent"; + +currentpicture := caps + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"222",(3(em#+2ss#)/4),cap#,0); "The Letter S, inverse circum"; + +currentpicture := caps + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"223",(3(em#+2ss#)/4),cap#,0); "The Letter S, cedilla"; + +currentpicture := caps + cedille shifted (w/2-pwid/2,0); + +endchar; + +beginchar(oct"224",5em#/6+2ss#,cap#,0);"The Letter T, inverse circum"; + +currentpicture := capt + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"225",5em#/6+2ss#,cap#,0);"The Letter T, cedilla"; + +currentpicture := capt + cedille shifted (w/2-pwid/2,0); + +endchar; + +beginchar(oct"226",5em#/6+2ss#,cap#,0); "The Letter U, Hungarian umlaut"; + +currentpicture := capu + hungum shifted (w/2-pwid/2-2o,1.2pwid); + +endchar; + +beginchar(oct"227",5em#/6+2ss#,cap#,0); "The Letter U, ring accent"; + +currentpicture := capu; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"230",5em#/6+2ss#,cap#,0); "The Letter Y, umlaut"; + +currentpicture := capy + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"231",5em#/6+2ss#,cap#,0); "The Letter Z, acute accent"; + +currentpicture := capz + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"232",5em#/6+2ss#,cap#,0); "The Letter Z, inverse circum"; + +currentpicture := capz + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"233",5em#/6+2ss#,cap#,0); "The Letter Z, overdot"; + +currentpicture := capz + overdot shifted (w/2-1.5dotwid,pwid); + +endchar; + +beginchar(oct"235",0.38em#+2ss#,cap#,0); "The Letter I, overdot"; + +currentpicture := capi + overdot shifted (w/2-1.5dotwid,pwid); + +endchar; + +beginchar(oct"240",ex#+2ss#,ex#,0); "The letter a, inverse circum"; + +currentpicture := lowa + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"241",ex#+2ss#,ex#,0); "The letter a, reverse cedilla"; + +currentpicture := lowa + revcid shifted (2w/3,0); + +endchar; + +beginchar(oct"242",ex#+2ss#,ex#,0); "c with acute"; + +currentpicture := lowc + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"243",ex#+2ss#,ex#,0); "c inverse circum"; + +currentpicture := lowc + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"244",1.2ex#+2ss#,asch#,0); "d apostrophe"; + +currentpicture := lowd; +fill commapost shifted (w-0.5pwid-ss,h-0.75pwid); + +endchar; + +beginchar(oct"245",ex#+2ss#,ex#,0); "e, inverse circumflex"; + +currentpicture := lowe + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"246",ex#+2ss#,ex#,0); "e, reverse cedilla"; + +currentpicture := lowe + revcid shifted (w/2-0.3pwid,0); + +endchar; + +beginchar(oct"247",ex#+2ss#,ex#,dep#); "g, inverse circum"; + +currentpicture := lowg + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"250",0.6ex#+2ss#,asch#,0); "l, with acute"; + +currentpicture := lowl + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"251",0.6ex#+2ss#,asch#,0); "l, with apostrophe"; + +currentpicture := lowl; +fill commapost shifted (w-0.5pwid-ss,h-0.75pwid); + +endchar; + +beginchar(oct"252",0.6ex#+2ss#,asch#,0); "l, with crossbar"; + +currentpicture := lowl; + +%z0 = (2o,h/3); +%z1 = (w-2o,2h/3); +pickup pencircle scaled thinl; +z0 = (0,h/2); +z1 = (w,h/2); +z2 = 0.5[z0,z1]; +path crossbar; crossbar = z0--z1; +draw crossbar rotatedaround (z2,30); + +endchar; + +beginchar(oct"253",1.2ex#+2ss#,ex#,0); "n, acute accent"; + +currentpicture := lown + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"254",1.2ex#+2ss#,ex#,0); "n, inverse circum"; + +currentpicture := lown + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"256",ex#+2ss#,ex#,0); "o, Hungarian umlaut"; + +currentpicture := lowo + hungum shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"257",ex#+2ss#,ex#,0); "r, with acute accent"; + +currentpicture := lowr + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"260",ex#+2ss#,ex#,0); "r, reverse circum"; + +currentpicture := lowr + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"261",0.8ex#+2ss#,ex#,0); "s, with acute accent"; + +currentpicture := lows + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"262",0.8ex#+2ss#,ex#,0); "s, reverse circum"; + +currentpicture := lows + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"263",0.8ex#+2ss#,ex#,0); "s, cedilla"; + +currentpicture := lows + cedille shifted (w/2-pwid/2,0); + +endchar; + +beginchar(oct"264",ex#/phi+2.5ss#,theight#,0); "t, with apostrophe"; + +currentpicture := lowt; +fill commapost shifted (w-0.2pwid,h-pwid/2); + +endchar; + +beginchar(oct"265",ex#/phi+2ss#,theight#,0); "t, with cedilla"; + +currentpicture := lowt + cedille shifted (w/2-pwid/4,0); + +endchar; + +beginchar(oct"266",1.2ex#+2ss#,ex#,0); "u with Hungarian umlaut"; + +currentpicture := lowu + hungum shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"270",1.2ex#+2ss#,ex#,dep#); "y, with diaresis"; + +currentpicture := lowy + diaresis shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"271",ex#+2ss#,ex#,0); "z, acute accent"; + +currentpicture := lowz + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"272",ex#+2ss#,ex#,0); "z, inverse circum"; + +currentpicture := lowz + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"273",ex#+2ss#,ex#,0); "z, overdot"; + +currentpicture := lowz + overdot shifted (w/2-1.5dotwid,-0.5pwid); + +endchar; + +beginchar(oct"300",em#+2ss#,cap#,0); "A, acute accent"; + +currentpicture := capa + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"301",em#+2ss#,cap#,0); "A, grave accent"; + +currentpicture := capa + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"302",em#+2ss#,cap#,0); "A, circumflex"; + +currentpicture := capa + circumflex shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"303",em#+2ss#,cap#,0); "A, tilde"; + +currentpicture := capa + tilde shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"304",em#+2ss#,cap#,0); "A, diaresis"; + +currentpicture := capa + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"305",em#+2ss#,cap#,0); "A, ring"; + +currentpicture := capa; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"307",5em#/6+2ss#,cap#,0); "C cedille"; + +currentpicture := capc + cedille shifted (w/2-0.5pwid,0); + +endchar; + +beginchar(oct"311",5em#/6+2ss#,cap#,0); "E, acute"; + +currentpicture := cape + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"310",5em#/6+2ss#,cap#,0); "E, grave"; + +currentpicture := cape + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"312",5em#/6+2ss#,cap#,0); "E, circumflex"; + +currentpicture := cape + circumflex shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"313",5em#/6+2ss#,cap#,0); "E, diaresis"; + +currentpicture := cape + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"314",0.38em#+2ss#,cap#,0); "I, acute"; + +currentpicture := capi + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"315",0.38em#+2ss#,cap#,0); "I, grave"; + +currentpicture := capi + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"316",0.38em#+2ss#,cap#,0); "I, circumflex"; + +currentpicture := capi + circumflex shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"317",0.38em#+2ss#,cap#,0); "I, diaresis"; + +currentpicture := capi + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"321",5em#/6+2ss#,cap#,0); "N, tilde"; + +currentpicture := capn + tilde shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"322",5em#/6+2ss#,cap#,0); "O, acute"; + +currentpicture := capo + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"323",5em#/6+2ss#,cap#,0); "O, grave"; + +currentpicture := capo + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"324",5em#/6+2ss#,cap#,0); "O, circumflex"; + +currentpicture := capo + circumflex shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"325",5em#/6+2ss#,cap#,0); "O, tilde"; + +currentpicture := capo + tilde shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"326",5em#/6+2ss#,cap#,0); "O, diaresis"; + +currentpicture := capo + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"331",5em#/6+2ss#,cap#,0); "U, acute"; + +currentpicture := capu + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"332",5em#/6+2ss#,cap#,0); "U, grave"; + +currentpicture := capu + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"333",5em#/6+2ss#,cap#,0); "U, circumflex"; + +currentpicture := capu + circumflex shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"334",5em#/6+2ss#,cap#,0); "U, diaresis"; + +currentpicture := capu + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"335",5em#/6+2ss#,cap#,0); "Y, acute"; + +currentpicture := capy + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"361",1.2ex#+2ss#,ex#,0); "n, tilde"; + +currentpicture := lown + tilde shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"371",1.2ex#+2ss#,ex#,0); "u, acute"; + +currentpicture := lowu + acute shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"372",1.2ex#+2ss#,ex#,0); "u, grave"; + +currentpicture := lowu + grave shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"373",1.2ex#+2ss#,ex#,0); "u, circumflex"; + +currentpicture := lowu + circumflex shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"374",1.2ex#+2ss#,ex#,0); "u, diaresis"; + +currentpicture := lowu + diaresis shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"375",1.2ex#+2ss#,ex#,dep#); "y, acute"; + +currentpicture := lowy + acute shifted (w/2-pwid,0); + +endchar; + diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb10.mf b/Master/texmf-dist/fonts/source/public/drm/drmb10.mf new file mode 100644 index 00000000000..8caff6d3688 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmb10.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +font_slant 0u#; +slant = 0; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.4pt#; +slantwid#=1.4pt#; +thickstroke#=1.2pt#; +thinstroke#=0.6pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb11.mf b/Master/texmf-dist/fonts/source/public/drm/drmb11.mf new file mode 100644 index 00000000000..e2aab6dbd3c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmb11.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=9pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.5pt#; +slantwid#=1.6pt#; +thickstroke#=1.3pt#; +thinstroke#=0.7pt#; +loopgap#=1.1pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb12.mf b/Master/texmf-dist/fonts/source/public/drm/drmb12.mf new file mode 100644 index 00000000000..164cd1b6698 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmb12.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=10pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.6pt#; +slantwid#=1.6pt#; +thickstroke#=1.4pt#; +thinstroke#=0.7pt#; +loopgap#=1.2pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb14.mf b/Master/texmf-dist/fonts/source/public/drm/drmb14.mf new file mode 100644 index 00000000000..3b35129890d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmb14.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=12pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.8pt#; +slantwid#=1.8pt#; +thickstroke#=1.6pt#; +thinstroke#=0.8pt#; +loopgap#=1.4pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb17.mf b/Master/texmf-dist/fonts/source/public/drm/drmb17.mf new file mode 100644 index 00000000000..c8a5fb22bb0 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmb17.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=15pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=2.1pt#; +slantwid#=2.1pt#; +thickstroke#=1.9pt#; +thinstroke#=1.0pt#; +loopgap#=1.7pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb24.mf b/Master/texmf-dist/fonts/source/public/drm/drmb24.mf new file mode 100644 index 00000000000..6e3f311e35f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmb24.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=21pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=2.6pt#; +slantwid#=2.6pt#; +thickstroke#=2.4pt#; +thinstroke#=1.4pt#; +loopgap#=1.7pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb6.mf b/Master/texmf-dist/fonts/source/public/drm/drmb6.mf new file mode 100644 index 00000000000..0599c0921d0 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmb6.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=4pt#; +u#=2cap#/3; +em#=1.4cap#; +ex#=0.8cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.09u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.7pt#; +slantwid#=0.7pt#; +thickstroke#=0.7pt#; +thinstroke#=0.3pt#; +loopgap#=0.6pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/16; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb7.mf b/Master/texmf-dist/fonts/source/public/drm/drmb7.mf new file mode 100644 index 00000000000..a6746ad2103 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmb7.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=5pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.8pt#; +slantwid#=0.8pt#; +thickstroke#=0.8pt#; +thinstroke#=0.4pt#; +loopgap#=0.7pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/8; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb8.mf b/Master/texmf-dist/fonts/source/public/drm/drmb8.mf new file mode 100644 index 00000000000..408d43d75f2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmb8.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=6pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.0pt#; +slantwid#=1.0pt#; +thickstroke#=0.9pt#; +thinstroke#=0.4pt#; +loopgap#=0.8pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmb9.mf b/Master/texmf-dist/fonts/source/public/drm/drmb9.mf new file mode 100644 index 00000000000..a74df8a88a9 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmb9.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=7pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.1pt#; +slantwid#=1.0pt#; +thickstroke#=1.0pt#; +thinstroke#=0.5pt#; +loopgap#=0.9pt#; +o#=0.1pt#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbl10.mf b/Master/texmf-dist/fonts/source/public/drm/drmbl10.mf new file mode 100644 index 00000000000..259dcf47a28 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmbl10.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2.5cap#/3; +em#=1.2cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.3pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.6pt#; +slantwid#=1.6pt#; +thickstroke#=1.4pt#; +thinstroke#=0.8pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbs10.mf b/Master/texmf-dist/fonts/source/public/drm/drmbs10.mf new file mode 100644 index 00000000000..6d73c68bdfc --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmbs10.mf @@ -0,0 +1,75 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant := -1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx10.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx10.mf new file mode 100644 index 00000000000..75e396f0574 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx10.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2.5cap#/3; +em#=1.1cap#; +ex#=0.6cap#; +exw# = 1.1ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.3pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.5pt#; +slantwid#=1.5pt#; +thickstroke#=1.3pt#; +thinstroke#=0.7pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx11.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx11.mf new file mode 100644 index 00000000000..47c374e624b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx11.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=9pt#; +u#=2cap#/3; +em#=1.1cap#; +ex#=0.6cap#; +exw# = 1.1ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.25pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.5pt#; +slantwid#=1.6pt#; +thickstroke#=1.3pt#; +thinstroke#=0.7pt#; +loopgap#=1.1pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx12.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx12.mf new file mode 100644 index 00000000000..dc13d79c034 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx12.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=10pt#; +u#=2cap#/3; +em#=1.1cap#; +ex#=0.6cap#; +exw# = 1.1ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.25pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.6pt#; +slantwid#=1.6pt#; +thickstroke#=1.4pt#; +thinstroke#=0.7pt#; +loopgap#=1.2pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx14.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx14.mf new file mode 100644 index 00000000000..f1e4b1c31c1 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx14.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=12pt#; +u#=2cap#/3; +em#=1.1cap#; +ex#=0.6cap#; +exw# = 1.1ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.25pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.8pt#; +slantwid#=1.8pt#; +thickstroke#=1.6pt#; +thinstroke#=0.8pt#; +loopgap#=1.4pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx17.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx17.mf new file mode 100644 index 00000000000..ba73fd56d57 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx17.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=15pt#; +u#=2cap#/3; +em#=1.1cap#; +ex#=0.6cap#; +exw# = 1.1ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.25pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=2.1pt#; +slantwid#=2.1pt#; +thickstroke#=1.9pt#; +thinstroke#=1.0pt#; +loopgap#=1.7pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx24.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx24.mf new file mode 100644 index 00000000000..11685d5773b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx24.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=21pt#; +u#=2cap#/3; +em#=1.1cap#; +ex#=0.6cap#; +exw# = 1.1ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.25pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=2.6pt#; +slantwid#=2.6pt#; +thickstroke#=2.4pt#; +thinstroke#=1.4pt#; +loopgap#=1.7pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx6.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx6.mf new file mode 100644 index 00000000000..333becd5083 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx6.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=4pt#; +u#=2.5cap#/3; +em#=1.4cap#; +ex#=0.9cap#; +exw# = 1.1ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.25pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.09u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.7pt#; +slantwid#=0.7pt#; +thickstroke#=0.7pt#; +thinstroke#=0.3pt#; +loopgap#=0.6pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/16; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx7.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx7.mf new file mode 100644 index 00000000000..b71e05954fe --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx7.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=5pt#; +u#=2cap#/3; +em#=1.1cap#; +ex#=0.6cap#; +exw# = 1.1ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.25pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.8pt#; +slantwid#=0.8pt#; +thickstroke#=0.8pt#; +thinstroke#=0.4pt#; +loopgap#=0.7pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/8; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx8.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx8.mf new file mode 100644 index 00000000000..5fcdcea7370 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx8.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=6pt#; +u#=2cap#/3; +em#=1.1cap#; +ex#=0.6cap#; +exw# = 1.1ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.25pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.0pt#; +slantwid#=1.0pt#; +thickstroke#=0.9pt#; +thinstroke#=0.4pt#; +loopgap#=0.8pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmbx9.mf b/Master/texmf-dist/fonts/source/public/drm/drmbx9.mf new file mode 100644 index 00000000000..7ad7aceb908 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmbx9.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=7pt#; +u#=2cap#/3; +em#=1.1cap#; +ex#=0.6cap#; +exw# = 1.1ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.25pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.1pt#; +slantwid#=1.0pt#; +thickstroke#=1.0pt#; +thinstroke#=0.5pt#; +loopgap#=0.9pt#; +o#=0.1pt#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmcap.mf b/Master/texmf-dist/fonts/source/public/drm/drmcap.mf new file mode 100644 index 00000000000..c34580964a7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmcap.mf @@ -0,0 +1,1149 @@ +% +AMDG This document was begun on 15 August 2007, the +% Feast of the Assumption of the Blessed Virgin Mary, and it +% is humbly offered to her for her prayers, and to the +% Sacred Heart of Jesus for His mercy. + +picture capo; +picture capa; +picture capl; +picture capc; +picture capd; +picture cape; +picture capg; +picture capn; +picture capu; +picture capr; +picture caps; +picture capt; +picture capy; +picture capz; +picture capi; + +def ulftbulb(suffix i,j,k,l,m) = +z.j=z.i shifted (bulbsh,bulbsh); +z.k=z.j shifted (bulbsh,-bulbsh); +z.l=z.k shifted (-bulbsh,-bulbsh); +enddef; + +%%%FFF Fix W, M, A from dependence on stroke widths FFF%%% + +%%%% Define Lower Right Serif on Caps %%%% + +def lrserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(lserw/3,-lserc/2); +z.k=z.i+(lserw,-lserc); +z.l=z.k-(0,lserstep); +z.m=z.l-(lserw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(lserw/3,-lserc/2); +z.k=z.i+(lserw+equalize/2,-lserc); +z.l=z.k-(0,lserstep); +z.m=z.l-(lserw+thickstroke/2,0); +fi +enddef; + +%%%% Define Lower Left Serif on Caps %%%% + +def llserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i-(lserw/3,lserc/2); +z.k=z.i-(lserw,lserc); +z.l=z.k-(0,lserstep); +z.m=z.l+(lserw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i-(lserw/3,lserc/2); +z.k=z.i-(lserw+equalize/2,lserc); +z.l=z.k-(0,lserstep); +z.m=z.l+(lserw+thickstroke/2,0); +fi +enddef; + +%%%% Define Upper Right Serif on Caps %%%% + +def urserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(userw/3,lserc/2); +z.k=z.i+(userw,userc); +z.l=z.k+(0,userstep); +z.m=z.l-(userw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(userw/3,lserc/2); +z.k=z.i+(userw+equalize/2,userc); +z.l=z.k+(0,userstep); +z.m=z.l-(userw+thickstroke/2,0); +fi +enddef; + +%%%% Define Upper Left Serif on Caps %%%% + +def ulserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(-userw/3,lserc/2); +z.k=z.i+(-userw,userc); +z.l=z.k+(0,userstep); +z.m=z.l+(userw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(-userw/3,lserc/2); +z.k=z.i+(-(userw+equalize/2),userc); +z.l=z.k+(0,userstep); +z.m=z.l+(userw+thickstroke/2,0); +fi +enddef; + +%%%% Define T Side Serifs on Caps %%%% + +def tlsideserif(suffix i,j,k,l,m) = +z.j=z.i+(0,seriftail); +z.k=z.j-((userh/2),0); +z.l=z.k-(userh/2,1.5userw); +z.m=z.l+(userh/2,0); +enddef; + +def trsideserif(suffix i,j,k,l,m) = +z.j=z.i+(0,seriftail); +z.k=z.j+((userh/2),0); +z.l=z.k+(userh/2,-1.5userw); +z.m=z.l-(userh/2,0); +enddef; + +%%%% Define C Side Serifs on Caps %%%% + +def ctsideserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userw/2); +z.k=z.j+(userh,0); +z.l=z.k-(0,2userw); +z.m=z.l-(userh,0); +if topbot = 1: +path topserif; topserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botserif; botserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +def ctbackserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userh/2); +z.k=z.j-(userh,0); +z.l=z.k+(0,-2userw); +z.m=z.l+(userh,0); +if topbot = 1: +path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +%%%% Define L, E, Z, and F side serifs on Caps %%%% + +def upsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,2lserw); +z.k=z.j-(lserh,lserw); +enddef; + +def downsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,-2lserw); +z.k=z.j+(-lserh,lserw); +enddef; + +def lftdownsideserif(suffix i,j,k) = +z.j=z.i-(ssslant,2lserw); +z.k=z.j+(lserh,lserw); +enddef; + +beginchar("I",thickstroke#+2lserw#+2ss#,cap#,0); "The Letter I"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +lrserif(2,9,10,11,25)(1); +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +path capeye; capeye = z14--z11--z10..z9..z2--z4..z15..z16--z17--z20--z19.. + z18..z3--z1..z12..z13--z14--cycle; +fill capeye; + +capi := currentpicture; + +penlabels(1,2,3,4,9,10,11,12,13,14,15,16,17,18,19,20,25); + +endchar; + +beginchar("O",5em#/6+2ss#,cap#,0); "The Letter O"; +italcorr(ex#*slant); + +z1=(ss,h/2); +z2=(w/2,h+o); +z3=(w-ss,h/2); +z4=(w/2,0-o); +z5=z1 shifted (curvwid,0); +z6=z2 shifted (0,-thinstroke); +z7=z3 shifted (-curvwid,0); +z8=z4 shifted (0,thinstroke); + +path fillo; path unfillo; +fillo = z4..z3..z2..z1..cycle; +unfillo = z5..z6..z7..z8..cycle; +fill fillo; +unfill unfillo; + +capo := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); + +endchar; + +beginchar("A",em#+2ss#,cap#,0); "The Letter A"; +italcorr(ex#*slant); + +crossh = 1/phi; +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thinstroke,0); +z3 = (w-ss-lserw,lserh); +z4 = z3 shifted (-thickstroke,0); +z5 = (w/2+thickstroke/2,h+o); +z6 = z5 shifted (-thickstroke,0) rotatedaround (z5,30); +lrserif(3,7,8,9,10)(1); +llserif(4,11,12,13,14)(1); +lrserif(2,15,16,17,18)(1); +llserif(1,19,20,21,22)(1); +z23 = crossh[z6,z1]; +z24 = z23 shifted (thinstroke,0); +z25 = (w,y23); +z26 = letaa[z23,z25]; +z26 = letab[z3,z5]; +z27 = z26 shifted (-thickstroke,0); +z28 = 0.9[z27,z6]; +z29 = 0.1[z27,z28]; +z30 = 0.1[z24,z28]; + +fill z3--z5--z6--z1..z19..z20--z21--z17--z16..z15..z2 + --z24--z27--z4..z11..z12--z13--z9--z8..z7..cycle; +unfill z30--z28--z29--cycle; + +capa := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36); +endchar; + +beginchar("J",0.38em#+2ss#,cap#,dep#); "The Letter J"; +italcorr(ex#*slant); + +z1 = ((w/2-(thickstroke/2)),-lserh); +z2 = ((w/2+(thickstroke/2)),-lserh); +z3 = ((w/2-(thickstroke/2)),(h-userh)); +z4 = ((w/2+(thickstroke/2)),(h-userh)); +z5 = (x3-userw,-dep); +z6 = z5 shifted (0,thinstroke); +z8 = z5 shifted (-userw,dep/2); +z7 = z8 shifted (-thinstroke,0); +z9 = (x8,-dep/4); +z10 = 0.5[z8,z9] shifted (thickstroke/2,0); + +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +fill z9..z7{down}..{right}z5{right}..{up}z2--z4..z15.. + z16--z17--z20--z19..z18..z3--z1{down}..{left}z6{left}.. + {up}z8{down}..{up}z10{up}..z9..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25); +endchar; + +beginchar("Q",em#+2ss#,cap#,dep#+thickstroke#/2); "The Letter Q"; +italcorr(ex#*slant); + +depth=6d/8; +qtailunit=em/2.5; +z1=(ss,h/2); +z2=(w/2,h+o); +z3=(w-ss,h/2); +z4=(w/2,0); +z5=z1+(curvwid,0); +z6=z2-(0,thinstroke); +z7=z3-(curvwid,0); +z8=z4+(0,thinstroke); +z9=z4+(curvwid/2,0); +z10=z4-(curvwid/2,0); +z11=(em+qtailunit+thickstroke,-depth); +z12=(em+2qtailunit,-depth); +z13=z12+(qtailunit,depth/2); +z14=z12+(0,2thickstroke/3); +z15=(em+qtailunit,-depth+thickstroke); + +pickup pencircle; + +path outerring; outerring=z9..z3..z2..z1..z10; +path innerring; innerring=z8..z5..z6..z7..cycle; +path bottomqtail; bottomqtail=z10..tension 1.7..z11{right}..{right}z12..z13; +path topqtail; topqtail=z13..tension 1.5..z14..tension 1.5..z15..z9; + +unfill innerring; +fill outerring & bottomqtail & topqtail..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); + +endchar; + +beginchar("H",em#+2ss#,cap#,0); "The Letter H"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z5 = (w-ss-lserw-thickstroke,lserh); +z6 = z5 shifted (thickstroke,0); +z7 = (w-ss-lserw-thickstroke,h-lserh); +z8 = z7 shifted (thickstroke,0); +z46=(0.5)[z4,z2]; +z47=z46+(0,thinstroke/2); +z48=z46-(0,thinstroke/2); +z49=(0.5)[z7,z5]; +z50=z49+(0,thinstroke/2); +z51=z49-(0,thinstroke/2); +lrserif(2,9,10,11,25)(1); +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); +lrserif(6,30,31,32,33)(1); +llserif(5,34,35,36,37)(1); +urserif(8,38,39,40,41)(1); +ulserif(7,42,43,44,45)(1); + +fill z36--z32--z31..z30..z6--z8..z38..z39--z40--z44-- + z43..z42..z7--z50--z47--z4..z15..z16--z17--z20-- + z19..z18..z3--z1..z12..z13--z14--z11--z10..z9..z2 + --z48--z51--z5..z34..z35--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("D",5em#/6+2ss#,cap#,0); "The Letter D"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z13 = (x4,h); +z14 = (x4,h-thinstroke); +z15 = (w-ss,h/2); +z16 = z15-(curvwid,0); +z17 = (x2,0); +z18 = z17+(0,thinstroke); +z19 = (w/2,h); +z20 = z19-(0,thinstroke); +z21 = (w/2,0); +z22 = z21+(0,thinstroke); +llserif(1,5,6,7,8)(1); +ulserif(3,9,10,11,12)(1); + +fill z17{right}..{right}z21..z15..{left}z19{left}..{left}z13--z11--z10..z9..z3--z1..z5..z6--z7--z17--cycle; +unfill z18{right}..{right}z22..z16..{left}z20{left}..{left}z14--z18--cycle; + +capd := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("P",2em#/3+2ss#,cap#,0); "The Letter P"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3 + thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss,3h/4); +z21 = z20 shifted (-curvwid,0); +z22=(x18,h/2); +z23=z22+(0,thinstroke); +z30=(x4,0); +z26 = z2 shifted (0,-lserh); +z27 = z4 shifted (0,thinstroke); +z24 = 0.5[z26,z27]; +z25 = z24 shifted (0,thinstroke); +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6-- + z7--z8--z15--z14..z13..z2--z24..z22..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2223,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("B",3em#/4+2ss#,cap#,0); "The Letter B"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z30=(x4,0); +z40 = z4 shifted (0,thinstroke); +z25 = 0.5[z30,z40] shifted (0,thinstroke); +z32 = z25 shifted (0,-thinstroke); +z24 = 0.5[z25,z32]; +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss-2o,3h/4); +z21=z20-(curvwid,0); +z23=z22+(0,thinstroke/2); +z26 = z32 shifted (loopgap,0); +z27 = (w-ss,h/4); +z28=z27-(1.1curvwid,0); +z29=(x18,0); +z31=z29+(0,thinstroke); +z33=z22-(0,thinstroke/2); +z34 = z25 shifted (loopgap,0); +z22 = 0.5[z34,z26]; +llserif(1,5,6,7,8)(1); +ulserif(3,9,10,11,12)(1); + +path stemtoploop; stemtoploop = z33{right}..{up}z20{up}..{left}z18{left}..z40--z11--z10..z9..z3--z1..z5..z6--z7--z29; +path stembotloop; stembotloop = +z30..{right}z29{right}..{up}z27{up}..{left}z34--z33; +path topinncirc; topinncirc = z25{right}..{right}z23..{up}z21{up}..{left}z19{left}..{left}z4--z25..cycle; +path botinncirc; botinncirc = z2..{right}z31{right}..{up}z28{up}..z33{left}..{left}z32--cycle; + +fill stembotloop & stemtoploop..cycle; +unfill topinncirc; +unfill botinncirc; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("R",5em#/6+2ss#,cap#,0); "The Letter R"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z19 = z4 shifted (loopgap,0); +z18 = z19 shifted (0,thinstroke); +z20=(w-ss-thickstroke,3h/4); +z21=z20-(curvwid,0); +z22 = z24 shifted (loopgap,0); +z23 = z22 shifted (0,thinstroke); +z30=(x4,0); +z24=0.5[z30,z17]; x24 := x4; +z25=z24+(0,thinstroke); +z26=(w-thickstroke-lserw/2,0); +z27=z26+(lserw+lserstep,0); +z28=z27+(0,lserstep); +z29=z28-(lserstep,0); +z32=z22+(thickstroke,0); +z31=(1/thickstroke)[z32,z4]; +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6--z7--z8--z15--z14..z13..z2--z24--z22---z26--z27--z28--z29--z32..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +capr := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("M",em#+2ss#,cap#,0); "The Letter M"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thinstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thinstroke,0); +z5 = (w/2-thickstroke/3,0); +z6 = (w-ss-lserw,lserh); +z7 = z6 shifted (-thickstroke,0); +z8 = (w-ss-userw,h-userh); +z9 = z8 shifted (-thickstroke,0); +z14 = z13 shifted (-2thickstroke/3,0); +z23 = 0.22[z5,z9]; +z28 = 0.1[z23,z29]; +%z28 = z23 shifted (-thinstroke/2,thinstroke/2); +z29=z27+(2curvwid/3,0); + +urserif(8,10,11,12,13)(1); +lrserif(6,15,16,17,18)(1); +llserif(7,19,20,21,22)(1); +ulserif(3,24,25,26,27)(1); +llserif(1,30,31,32,33)(2); +lrserif(2,34,35,36,37)(2); + +fill z5--z9--z7..z19..z20--z21--z17--z16..z15..z6--z8..z10..z11--z12--z14--z28--z29--z26--z25..z24..z3--z1..z30..z31--z32--z36--z35..z34..z2--z4--z5--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("U",5em#/6+2ss#,cap#,0); "The Letter U"; +italcorr(ex#*slant); + +z1=(ss+userw,h-userh); +z2=z1+(thickstroke,0); +z3=z1-(0,2h/3); +z4=z3+(thickstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5 shifted (-thinstroke,0); +z7=z5-(0,2h/3); +z8=z7-(thinstroke,0); +z9=(w/2,0); +z10=z9+(0,.5thickstroke); + +ulserif(1,11,12,13,14)(1); +urserif(2,15,16,17,18)(1); +ulserif(6,19,20,21,22)(1); +urserif(5,23,24,25,26)(1); + +fill z3..{right}z9{right}..z7---z5..z23..z24--z25--z21--z20..z19..z6--z8{down}..{left}z10{left}..z4--z2..z15..z16--z17--z13--z12..z11..z1---z3---cycle; + +capu := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("V",5em#/6+2ss#,cap#,0); "The Letter V"; +italcorr(ex#*slant); + +z1=(ss+userw,h-userh); +z2=z1+(slantwid,0); +z3=z1-(0,2h/3); +z4=z3+(thickstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5-(thinstroke,0); +z7=z5-(0,2h/3); +z8=z7-(thinstroke,0); +z9=(w/2,0); +z30=0.25[z9,z5]; +z40 = z9 shifted (-thinstroke,0); +z41 = z9 shifted (thickstroke,0); +z10 = (z2--z41) intersectionpoint (z6--z40); + +ulserif(1,11,12,13,14)(1); +urserif(2,15,16,17,18)(1); +ulserif(6,19,20,21,22)(1); +urserif(5,23,24,25,26)(1); + +fill z9--z5..z23..z24--z25--z21--z20..z19..z6--z10--z2..z15..z16--z17--z13--z12--z11..z1--z9--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + + +endchar; + +beginchar("T",5em#/6+2ss#,cap#,0);"The Letter T"; +italcorr(ex#*slant); + +seriftail=userw/5; + +z1=(ss+userh,h); +z2=z1-(0,thinstroke); +z3=(w-ss-userh,h); +z4=z3-(0,thinstroke); +z5=(w/2-thickstroke/2,y2); +z6=(w/2+thickstroke/2,y2); +z7=(x5,lserh); +z8=z7+(thickstroke,0); + +llserif(7,9,10,11,12)(1); +lrserif(8,13,14,15,16)(1); +tlsideserif(1,17,18,19,20); +trsideserif(3,21,22,23,24); + +pickup cappen; + +path tpath; +tpath = z7..z9..z10--z11--z15--z14..z13..z8--z6--z4---{down}z24..z23..tension 2..{up}z22{left}..{left}z21{down}..z3--z1..z17{left}..{left}z18{down}..tension 2..z19..z20{up}---z2--z5--z7--cycle; +fill tpath; + +capt := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("W",2ss#+2thickstroke#+thinstroke#+6userw#+2hair#,cap#,0);"The Letter W"; +italcorr(ex#*slant); + +bottompoints=(w-2ss)/3; + +z1 = (ss+userw,h-userh); +z2 = z1 shifted (thickstroke,0); +z3 = z2 shifted (userw+hair+userw,0); +z4 = z3 shifted (thickstroke,0); +z5 = z4 shifted (userw+hair+userw+thinstroke,0); +z6 = z5 shifted (-thinstroke,0); +z7 = (w/3+thinstroke/2,0); +z8 = (2w/3+thinstroke/2,0); +z33=(w/2,3h/4); +z34=z8+(.4thinstroke,2.2thickstroke); +z35=z7+(0.4thinstroke,2.2thickstroke); +z36=0.96[z8,z3]; + +ulserif(1,9,10,11,12)(1); +urserif(2,13,14,15,16)(1); +ulserif(3,17,18,19,20)(1); +urserif(4,21,22,23,24)(1); +ulserif(6,25,26,27,28)(1); +urserif(5,29,30,31,32)(1); + +fill z8--z5..z29..z30--z31--z27--z26..z25..z6--z34--z4..z21..z22--z23--z19--z18..z17..z3--z36--z35--z2..z13..z14--z15--z11--z10..z9..z1--z7--z33--z8--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("N",5em#/6+2ss#,cap#,0); "The Letter N"; +italcorr(ex#*slant); + +z1 = (ss+userw,h-userh); +z2=z1+(thinstroke,-0.3thickstroke); +z3 = (ss+lserw,lserh); +z4=z3+(thinstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5-(thinstroke,0); +z7=(w-ss-userw,-o); +z28=z7+(-thinstroke,2.5thickstroke); +z29=z27+(thickstroke/2,0); + +llserif(3,8,9,10,11)(1); +lrserif(4,12,13,14,15)(1); +ulserif(6,16,17,18,19)(1); +urserif(5,20,21,22,23)(1); +ulserif(1,24,25,26,27)(1); + +fill z7--z5..z20..z21--z22--z18--z17..z16..z6--z28--z29--z27--z26--z25..z24..z1--z3..z8..z9--z10--z14--z13..z12..z4--z2--z7--cycle; + +capn := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("C",5em#/6+ss#,cap#,0); "The Letter C"; +italcorr(ex#*slant); + +z1=(w-ss-userh,h-userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userh,userh); +z4=z3+(0,thickstroke); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2+o); +z10=z9+(curvwid,0); +ctsideserif(1,11,12,13,14,2)(1); +ctsideserif(4,15,16,17,18,3)(2); + +pickup cappen; +path cbody; cbody=z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path cinbody; cinbody=z2..z6..z10..z8..z4; + +fill cinbody & botserif & cbody & topserif & cycle; + +capc := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("G",em#+2ss#,cap#,0); "The Letter G"; +italcorr(ex#*slant); + +z1=(w-ss-userw-thickstroke/2,h-userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userw,2userh); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2); +z10=z9+(curvwid,0); +z4=z3-(thickstroke,0); +z11=(x3,h/2-userh); +z12=z11-(thickstroke,0); + +ulserif(12,15,16,17,18)(1); +urserif(11,19,20,21,22)(1); +ctsideserif(1,23,24,25,26,2)(1); + +path gbody; gbody = +z17--z21--z20..z19..z11--z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path ginbody; ginbody = z2..{left}z6{left}..{down}z10{down}..{right}z8{right}..z4--z12..z15..z16--z17; + +fill gbody & topserif & ginbody & cycle; + +capg := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("L",5em#/6+2ss#,cap#,0); "The Letter L"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +upsideserif(6,7,29); + +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +%pickup pencircle scaled 2; +%draw z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle; +path capell; capell = z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle; +fill capell; + +capl := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("E",5em#/6+2ss#,cap#,0); "The Letter E"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+lserw,h-lserh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(w/2,y16); +z22=(w/2,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); + +draw z21--z24; + +llserif(1,12,13,14,26)(1); +ulserif(3,18,19,20,28)(1); + +fill +z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle; + +cape := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("F",5em#/6+2ss#,cap#,0); "The Letter F"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,lserh); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(w/2,y16); +z22=(w/2,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); + +draw z21--z24; + +llserif(1,12,13,14,26)(1); +lrserif(5,31,32,33,34)(1); +ulserif(3,18,19,20,28)(1); + +fill z5--z17--z22..z25..z27--z24..z23..z21--z16--z4--z9..z11..z10--z8--z20--z19..z18..z3--z1..z12..z13--z14--z33--z32..z31..z5..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("K",5em#/6+2ss#,cap#,0); "The Letter K"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z17=z3 shifted (thickstrike,0); +z22=z2 shifted (0,h/2+thinstroke-lserh); +z23=z2 shifted (0,h/2-lserh); +z24=(w-userw-ss,h); +z25=z24 shifted (-thinstroke/2-thinstroke,-userh); +z30=z25 shifted (thinstroke,0); +z35=0.08[z23,z30]; +z46=0.28[z23,z30]; +z37 = (w-ss-lserw,lserh); +z36 = z37 shifted (-thickstroke,0); + +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); +urserif(4,18,19,20,21)(1); +ulserif(25,26,27,28,29)(1); +urserif(30,31,32,33,34)(1); +lrserif(37,38,39,40,41)(1); +llserif(36,42,43,44,45)(1); + +fill +z1..z5..z6--z7--z16--z15--z14..z13..z2--z23--z35--z36..z42..z43--z44--z40--z39..z38..z37--z46--z23--z30..z31..z32--z33--z28--z27..z26..z25--z22--z4..z18..z19--z20--z21--z11--z10..z9..z3--z1--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("Y",5em#/6+2ss#,cap#,0); "The Letter Y"; +italcorr(ex#*slant); + +z0 = (w/2-thickstroke/2,h/2); +z1 = (w/2+thickstroke/2,h/2); +z2 = (ss+userw,h-userh); +z3 = z2 shifted (thickstroke,0); +z4 = (w-ss-userw,h-userh); +z5 = z4 shifted (-thinstroke,0); +z6 = (w/2-thickstroke/2,lserh); +z7 = (w/2+thickstroke/2,lserh); +z8 = 0.8[z0,z1] shifted (0,lserh/2); + +lrserif(7,14,15,16,17)(1); +llserif(6,10,11,12,13)(1); +ulserif(2,18,19,20,21)(1); +urserif(3,22,23,24,25)(1); +ulserif(5,26,27,28,29)(1); +urserif(4,30,31,32,33)(1); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +path capwhy; +capwhy = z0--z6..z10..z11--z12--z16--z15..z14..z7--z1--z4..z30..z31--z32--z24--z28--z27..z26..z5--z8--z3..z22..z23--z24--z20--z19..z18..z2--z0--cycle; +fill capwhy; + +capy := currentpicture; + +endchar; + +beginchar("Z",5em#/6+2ss#,cap#,0); "The Letter Z"; +italcorr(ex#*slant); + +z0 = (ss+ssslant,h); +z1 = (w-ss,h); +z3 = (ss,0); +z4 = (w-ss-ssslant,0); +z9 = z0 shifted (lserw,-thinstroke); +z10 = z1 shifted (-1.2curvwid,-thinstroke); +z11 = z3 shifted (1.2curvwid,thinstroke); +z12 = z4 shifted (-lserw,thinstroke); + +lftdownsideserif(0,5,6); +upsideserif(4,7,8); + +fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle; + +capz := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("S",(3(em#+2ss#)/4),cap#,0); "The Letter S"; +italcorr(ex#*slant); + +z0 = (w/2,h+o/2); +z1 = (w/2,0-o/2); +z2 = (w-ss-userh-o,h-userh); +z3 = (w-ss,h/4); +z4 = (ss,3h/4); +z5 = (ss+userh-o,userh+thickstroke+o); +z14 = z0 shifted (0,-thinstroke); +z15 = z1 shifted (0,thinstroke); +z16 = z4 shifted (curvwid,0); +z17 = z3 shifted (-curvwid,0); +z18 = z2 shifted (0,-thickstroke); +z19 = z11 shifted (0,-thickstroke); +z20 = z5 shifted (0,-thickstroke); +z21 = z18 shifted (0,-userw/2); +z22 = z21 shifted (userh,0); +z23 = z22 shifted (0,2userw); +z24 = z23 shifted (-userh,0); +z25 = (w/2,h/2+1.2thinstroke/2); +z26 = (w/2,h/2-1.2thinstroke/2); + +ctbackserif(5,10,11,12,13,20)(2); + +pickup pencircle scaled 1; + +path outcurves; path incurves; path toprt; +outcurves = z2..tension 1.1..z0..tension + 1.1..z4..z26..z17..z15..tension 1.1..z5; +incurves = z20..tension 1.1..z1..tension + 1.1..z3..z25..z16..z14..tension 1.1..z18; +toprt = z18---z21..tension 2..z22---z23..tension 2..z24---z2; + +fill outcurves & botlftserif & incurves & toprt & cycle; + +caps := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("X",5em#/6+2ss#,cap#,0); "The Letter X"; +italcorr(ex#*slant); + +z0 = (w/2,h/2); +z1 = (ss+userw,h-userh); +z2 = (w-ss-userw,h-userh); +z3 = (ss+lserw,lserh); +z4 = (w-ss-lserw,lserh); +z5 = z1 shifted (slantwid,0); +z6 = z4 shifted (-slantwid,0); +z7 = z2 shifted (-thinstroke,0); +z8 = z3 shifted (thinstroke,0); +z41 = aa[z1,z6]; +z41 = ab[z7,z3]; +z42 = ac[z5,z4]; +z42 = ad[z7,z3]; +z43 = ae[z8,z2]; +z43 = af[z6,z1]; +z44 = ag[z8,z2]; +z44 = ah[z5,z4]; + +ulserif(1,9,10,11,12)(1); +urserif(5,13,14,15,16)(1); +ulserif(7,17,18,19,20)(1); +urserif(2,21,22,23,24)(1); +llserif(3,25,26,27,28)(1); +lrserif(8,29,30,31,32)(1); +llserif(6,33,34,35,36)(1); +lrserif(4,37,38,39,40)(1); + +fill z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..z1--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"306",6em#/6+ss#,cap#,0); "The ligature AE"; +italcorr(ex#*slant); + +z1=((w/2-(thickstroke/2)),lserh); +z2=((ss_userw+(thickstroke/2)),lserh); +z3=((w/2-(thickstroke/2)),(h-userh)); +z4=((w/2+(thickstroke/2)),(h-thinstroke)); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(0.6w,y16); +z22=(0.6w,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); +z28 = z1 shifted (0,-lserh); +z31 = z3 shifted (0,userh); +z40 = (ss+lserw,lserh); +z41 = z40 shifted (thinstroke,0); +z50 = z31 shifted (0,-1.6thinstroke); +z100 = (0,y15); +z101 = (0,y16); +z102 = (0,y17); +z51 = aaa[z50,z41]; +z51 = aab[z16,z101]; +z52 = aac[z50,z41]; +z52 = aad[z17,z102]; + +draw z21--z24; + +pickup pencircle scaled 2; + +llserif(40,42,43,44,45)(1); +lrserif(41,46,47,48,49)(1); + +fill +z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle; +fill z41..z46..z47--z48--z44--z43..z42..z40--z31--z50--cycle; +fill z51--z16--z17--z52--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55); +endchar; + +beginchar(oct"327",em#+ss#,cap#,0); "The ligature OE"; +italcorr(ex#*slant); + +z1=((w/2-(thickstroke/2)),lserh); +z2=((ss_userw+(thickstroke/2)),lserh); +z3=((w/2-(thickstroke/2)),(h-userh)); +z4=((w/2+(thickstroke/2)),(h-thinstroke)); +z5=(x4,thinstroke); +z6=(w-o-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(0.6w,y16); +z22=(0.6w,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); +z28 = z1 shifted (0,-lserh); +z31 = z3 shifted (0,userh); +z50 = z31 shifted (0,-1.6thinstroke); +z40 = 0.5[z31,z28]; +z41 = (0,h/2); +z42 = (o,h/2); +z43 = z42 shifted (curvwid,0); +z44 = 0.5[z40,z41] shifted (curvwid/2,h/2+o/2); +z45 = 0.5[z40,z41] shifted (curvwid/2,-(h/2+o/2)); +z46 = z15 shifted (-curvwid,0); +z47 = z44 shifted (0,-thinstroke); +z48 = z45 shifted (0,thinstroke); + +fill +z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle; +fill z44..z15..z45..z42..cycle; +unfill z43..z47..z46..z48..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55); +endchar; + +beginchar(oct"330",5em#/6+2ss#,cap#,0); "The Letter slash O"; +italcorr(ex#*slant); + +currentpicture := capo; + +pickup pencircle scaled thinstroke; +bot lft z0 = (ss,0); +top rt z1 = (w-ss,h); + +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar(oct"336",(3(em#)/4),cap#,0); "The Letter Thorn"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+lserw,h-lserh); +z4 = z3 shifted (thickstroke,0); +z13=(x4,4h/5); +z14=z13 shifted (0,-thinstroke); +z15=(w-ss,h/2); +z16=z15-(curvwid,0); +z17=(x2,h/5); +z18=z17+(0,thinstroke); +z19=(w/2,h); +z20=z19-(0,thinstroke); +z21=(w/2,0); +z22=z21+(0,thinstroke); +z40 = z13 shifted (thickstroke,0); +z41 = z40 shifted (0,-thinstroke); +z42 = z17 shifted (thickstroke,0); +z43 = z42 shifted (0,thinstroke); + +llserif(1,5,6,7,8)(1); +lrserif(2,30,31,32,33)(1); +ulserif(3,9,10,11,12)(1); +urserif(4,34,35,36,37)(1); + +fill +z1..z5..z6--z7--z32--z31..z30..z2--z17--z42{right}..{up}z15{up}..{left}z40--z13--z4..z34..z35--z36--z11--z10..z9..z3--cycle; +unfill z18--z14--z41{right}..{down}z16{down}..{left}z43--z18--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"215",em#+ss#/2,cap#,dep#); "The Letter NG"; +italcorr(ex#*slant); + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thickstroke,0); +z2 = z1 shifted (ss+4lserw,0); +z3 = z2 shifted (thickstroke,0); +z20 = (ss+userw,h-userh); +z21 = z20 shifted (thickstroke,0); +z22 = z21 shifted (0,userh); +z23 = z21 shifted (ss+4userw,0); +z24 = z23 shifted (thickstroke,-thinstroke); +z29 = z20 shifted (0,userh); +z30 = z24 shifted (0,userh+thinstroke); +z31 = 0.5[z30,z29] shifted (0,o); +z32 = z31 shifted (0,-thinstroke); +z33 = z28 shifted (0,-userh); +z40 = z2; +z41 = z3; +%z49 = (x40-2userw,-dep); +z49 = (w/2,-dep); +z50 = z49 shifted (0,thinstroke); +z51 = (x8,-dep/3); +z56 = z21 shifted (0,-thinstroke); +z57 = z20 shifted (0,-thinstroke); +z58 = z23 shifted (0,-thinstroke); +z59 = z24 shifted (0,-thinstroke); + +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +ulserif(20,25,26,27,28)(1); +ulftbulb(51,52,53,54,55); + +fill +z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z57{dir +50}..{right}z31{right}..{down}z59--z3{down}..{left}z49{left}..{up}z51..z52..z53..{left}z54{down}..{right}z50{right}..{up}z2--z58..z32..z56--z1..z8..z9--z10--z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59); +endchar; + +beginchar(oct"320",em#+2ss#,cap#,0); "The Letter Eth"; +italcorr(ex#*slant); + +currentpicture := capd; + +pickup pencircle scaled thinstroke; +lft z0 = (ss,h/2); +rt z1 = (w/2-ss,h/2); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmdigs.mf b/Master/texmf-dist/fonts/source/public/drm/drmdigs.mf new file mode 100644 index 00000000000..dff465cf9f5 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmdigs.mf @@ -0,0 +1,265 @@ +% +AMDG This document was begun on 5 May 11EX, the feast of +% St. Pius V, and it is humbly dedicated to him and to the +% Immaculate Heart of Mary for their prayers, and to the +% Sacred Heart of Jesus for His mercy. + +picture six; + +beginchar("1",digwid#+2ss#,cap#,0); "The digit 1"; +italcorr(ex#*slant); + +z0 = (w/2-thickstroke/2,lserhl); +z1 = z0 shifted (thickstroke,0); +z10 = (w/2-thickstroke/2,h-2userh); +z11 = z10 shifted (thickstroke,0); +z12 = z11 shifted (0,2userh+o); +z13 = z12 shifted (-thickstroke,0); +z14 = z10 shifted (-lserwl-o,0); +z15 = z14 shifted (0,thinl); + +llserif(0,2,3,4,5)(1); +lrserif(1,6,7,8,9)(1); + +fill +z0..z2..z3--z4--z8--z7..z6..z1--z12--z13{down}..{left}z15--z14--z10--z0--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("2",digwid#+2ss#,cap#,0); "The digit 2"; +italcorr(ex#*slant); + +z0 = (w/2,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (ss,3h/4); +z3 = z2 shifted (bulbsh,-bulbsh); +z4 = z3 shifted (bulbsh,bulbsh); +z5 = z4 shifted (-bulbsh,bulbsh); +z6 = (w-ss,3h/4); +z7 = z6 shifted (-curvl,0); +z8 = (ss,thickl); +z9 = z8 shifted (1.5thinl,0); +z10 = (ss,0); +z11 = (w-ss,0); +z12 = z11 shifted (0,thickl); +z13 = z12 shifted (0,thinl); +z14 = z13 shifted (-thinl/2,0); +z15 = z12 shifted (-thinl/2,0); + +fill +z5{right}..{down}z4{down}..{left}z3{left}..{up}z2{up}..{right}z0{right}..{down}z6{down}..{down}z9--z15--z14--z13--z11--z10--z8{up}..{up}z7{up}..{left}z1{left}..{dir +-120}cycle; + +picture two; two := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("3",digwid#+2ss#,cap#,0); "The digit 3"; +italcorr(ex#*slant); + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (ss,.75h); +z3 = (ss,.25h); +z4 = z0 shifted (0,-thinstroke); +z5 = z1 shifted (0,thinstroke); +z6 = z8 shifted (-curvwid,0); +z7 = z9 shifted (-curvwid,0); +z8 = (w-ss,3h/4); +z9 = (w-ss,h/4); +z10 = (w/2-2thinstroke,h/2+thinstroke); +z11 = z10 shifted (0,-thinstroke); +z20 = z10 shifted (1.5thickstroke,-thinstroke/2); +z21 = z9 shifted (-o/4,0); +z22 = z10 shifted (1.5thickl,0); +z23 = z11 shifted (1.5thickl,0); + +ulftbulb(2,12,13,14,15); +ulftbulb(3,16,17,18,19); + +fill +z2{up}..{right}z0{right}..{down}z8{down}..z20..{left}z11--z10{right}..z20..{down}z9{down}..{left}z1{left}..{up}z3{up}..{right}z16{right}..{down}z17{down}..{left}z18{dir +-60}..{right}z5{right}..{up}z7{up}..{left}z11--z10{right}..{up}z6{up}..{left}z4{left}..{dir +-120}z12{right}..{down}z13{down}..{left}z14{left}..{up}cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("4",digwid#+2ss#,cap#,0); "The digit 4"; +italcorr(ex#*slant); + +z0 = (w-ss-lserwl,h+2o); +z1 = (x0,2h/5); +y2 = y1; x2 = ss; +z3 = z0 shifted (0,-thinstroke); +z4 = z2 shifted (thinstroke,0); +z6 = z1 shifted (-thickstroke,0); +z7 = z0 shifted (-thickstroke,0); +z5 = zca[z3,z4]; +z5 = zcb[z6,z7]; +z8 = z2 shifted (0,-thinstroke); +z9 = z4 shifted (0,-thinstroke); +z10 = z6 shifted (0,-thinstroke); +z11 = z1 shifted (0,-thinstroke); +z12 = z1 shifted (lserwl,0); +z13 = z11 shifted (lserwl,0); +x14 = x10; y14 = lserhl; +z15 = z14 shifted (thickstroke,0); + +llserif(14,16,17,18,19)(1); +lrserif(15,20,21,22,23)(1); + +fill +z14..z16..z17--z18--z22--z21..z20..z15--z11--z13--z12--z1--z0--z2--z8--z10--cycle; +unfill z4--z6--z5--z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("5",digwid#+2ss#,cap#,0); "The digit 5"; +italcorr(ex#*slant); + +z0 = (w-ss-bulbsh,h+o); +z1 = (ss+bulbsh,h+o); +z2 = z0 shifted (0,-thickstroke); +z3 = z1 shifted (0,-thickstroke); +z4 = (w/2,0); +z5 = z4 shifted (0,thickstroke); +z6 = z3 shifted (thinstroke,0); +z7 = (ss+0.6bulbsh,0.55h); +z19 = z7 shifted (thinstroke,0); +z8 = (w-ss,2h/3); +z9 = z7 shifted (thinstroke,thinstroke); +z10 = (w-ss-thickstroke,h/3); +z11 = (ss,h/3); +z16 = z10 shifted (thickstroke,0); +z17 = (w/2,2h/3); +z18 = z17 shifted (0,-thinstroke); +z29 = z2 shifted (0,-thinl); +z20 = z29 shifted (-thinl/2,0); +z21 = z20 shifted (0,thinl); + +ulftbulb(11,12,13,14,15); + +fill +z6--z21--z20--z29--z2--z0--z1--z7--z19..{right}z18{right}..{down}z10{down}..{left}z5{left}..{up}z14{right}..{up}z13..z12..z11{down}..{right}z4{right}..z16{up}..{left}z17{left}..z9--z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("7",digwid#+2ss#,cap#,0); "The digit 7"; +italcorr(ex#*slant); + +z0 = (ss,h+o); +z1 = z0 shifted (0,-thickstroke); +z2 = (w-ss,h+o); +z3 = z2 shifted (0,-thickstroke); +z4 = (w/4,0); +z5 = z4 shifted (thickstroke,0); +z6 = z3 shifted (-1.8thinstroke,0); +z7 = (w/3,0.6h); +z8 = z7 shifted (1.2thinstroke,0); +z9 = z1 shifted (0,-0.7userh); +z10 = z9 shifted (0.5thinstroke,0); +z11 = z10 shifted (0,0.7userh); + +fill z11--z10--z9--z0--z2--z3..z8..z5--z4..z7..z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("8",digwid#+2ss#,cap#,0); "The digit 8"; +italcorr(ex#*slant); + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (ss+bulbsh/2,3h/4); +z3 = (ss,h/4); +z4 = (w-ss-bulbsh/2,3h/4); +z5 = (w-ss,h/4); +z6 = z0 shifted (0,-thinstroke); +z7 = z1 shifted (0,thinstroke); +z8 = z2 shifted (0.8curvwid,0); +z9 = z3 shifted (curvwid,0); +z10 = z5 shifted (-curvwid,0); +z11 = z4 shifted (-0.8curvwid,0); +z12 = (w/2,h/2+thinstroke); +z13 = z12 shifted (0,-thinstroke); + +pickup pencircle scaled 1; + +fill z0..z4..z13--z12..z5..z1..z3..z12--z13..z2..cycle; +unfill z8..z6..z11..z12..cycle; +unfill z7..z10..z13..z9..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("0",digwid#+2ss#,cap#,0); "The digit 0"; +italcorr(ex#*slant); + +z0 = (w/2,h+o); +z1 = (w/2,-o); +z2 = (w-ss,h/2); +z3 = (ss,h/2); +z4 = z0 shifted (0,-thinstroke); +z5 = z1 shifted (0,thinstroke); +z6 = z2 shifted (-curvwid,0); +z7 = z3 shifted (curvwid,0); + +fill z0{right}..{down}z2{down}..{left}z1{left}..{up}z3{up}..{right}cycle; +unfill z4..z6..z5..z7..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("6",digwid#+2ss#,cap#,0); "The digit 6"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (2w/3,h+o); +penpos1(2thinl,180); +z1r = (ss+thinl,2h/3); +penpos2(thickl,180); +z2r = (ss,ex/2); +penpos3(thinl,-90); +z3r = (w/2,0-o); +penpos4(thickl,0); +z4r = (w-ss,ex/2); +penpos5(thinl,90); +z5r = (w/2,ex+o); +penpos6(thinl,0); +z6l = z0l; +penpos7(thinl,-90); +z7l = z6l; +penpos8(thinl,180); +z8l = z7l; + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("9",digwid#+2ss#,cap#,0); "The digit 9"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0l = (w/3,0-o); +penpos1(2thinl,180); +z1l = (w-ss-thinl,h/3); +penpos2(thickl,180); +z2l = (w-ss,h-ex/2); +penpos3(thinl,90); +z3l = (w/2,h-ex-o); +penpos4(thickl,0); +z4l = (ss,h-ex/2); +penpos5(thinl,-90); +z5l = (w/2,h+o); + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmgrk10.mf b/Master/texmf-dist/fonts/source/public/drm/drmgrk10.mf new file mode 100644 index 00000000000..7df1e92ef55 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmgrk10.mf @@ -0,0 +1,77 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "LGR"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant := 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +%currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmgrkcap.mf; +input drmlowmac.mf; +input drmgrkpunct.mf; +input drmgrklow.mf; +input drmgrkacc.mf; +input drmgrkup.mf; +input drmdigs.mf; +input drmgrkacclet.mf; +input drmgrkligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmgrkacc.mf b/Master/texmf-dist/fonts/source/public/drm/drmgrkacc.mf new file mode 100644 index 00000000000..75344287f04 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmgrkacc.mf @@ -0,0 +1,364 @@ +% +AMDG This document was begun on 2 May 11EX, the feast of +% St. Athanasius, BC, and it is humbly dedicated to him and +% to the Immaculate Heart of Mary for their prayers and to +% the Sacred Heart of Jesus for His mercy. + +picture ringacc; +picture hungum; +picture roundcircum; +picture invcircum; +picture macron; +picture overdot; +picture cedille; +picture revcid; +picture grave; +picture acute; +picture diaresis; +picture circumflex; +picture tilde; + +beginchar(oct"021",2pwid#,cap#,0); "The grave accent, `"; + +z0 = (ss,h-o); +z1 = z0 shifted (accwid,accwid); +z2 = z0 shifted (accwid,-accwid); +z3 = (w-ss,h-o); +z4 = z3 shifted (-2accwid,2accwid); +z5 = z3 shifted (-2accwid,-2accwid); +z6 = (w/2,h-o); + +path graveacc; graveacc = z0..z1--z4..z3..z5--z2..cycle; +fill graveacc rotatedaround (z6,-250) shifted (0,-h); + +grave := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"255",2pwid#,cap#,0); "The Hungarian diaresis"; + +z0 = (w/2-accwid,h-o); +z2 = z0 shifted (0,-pwid); +z3 = z0 shifted (2accwid,0); +z4 = z2 shifted (2accwid,0); +z5 = 0.5[z0,z3] shifted (0,accwid); +z6 = 0.5[z2,z4] shifted (0,-accwid); +z7 = 0.5[z5,z6]; + +path lthung; lthung = z0..z5..z3--z4..z6..z2--cycle; + +fill lthung rotatedaround (z7,-30); +fill lthung rotatedaround (z7,-30) shifted (w/3,0); + +hungum := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"255",2pwid#,cap#,0); "The ring accent"; + +z0 = (w/2,h-dotwid-accwid); + +pickup pencircle scaled thinl; +path ringaccent; +ringaccent = fullcircle scaled 3dotwid shifted z0; +draw ringaccent; + +ringacc := currentpicture; + +endchar; + +beginchar(oct"020",2pwid#,cap#,0); "The acute accent, '"; + +z6 = (w/2,h-o); + +fill graveacc rotatedaround (z6,70) shifted (0,-h); + +acute := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"140",2pwid#,cap#,0); "High grave accent, `"; +currentpicture := grave shifted (0,h-pwid/3); +picture highgrave; highgrave := currentpicture; +endchar; + +beginchar(oct"047",2pwid#,cap#,0); "The acute accent, '"; +z6 = (w/2,h-o); +fill graveacc rotatedaround (z6,70) shifted (0,-pwid/2); +picture highacute; highacute := currentpicture; +endchar; + +beginchar(oct"376",2pwid#,cap#,0); "The acute accent, '"; +currentpicture := highacute; +endchar; + +beginchar(oct"377",2pwid#,cap#,0); "inverted acute accent"; +currentpicture := highgrave reflectedabout ((0,h/2),(w,h/2)) + shifted (0,-dep); +endchar; + +beginchar(oct"255",2pwid#,cap#,0); "The circumflex, ^"; + +z0 = (w/2,h-o); +z1 = (ss,h-pwid); +z2 = (w-ss,h-pwid); +z3 = z0 shifted (0,-3accwid); +z5 = z1 shifted (3accwid,0); +z7 = z2 shifted (-3accwid,0); + +path circum; +circum = z0--z2--z7--z3--z5--z1--cycle; +fill circum; +circumflex := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"255",2pwid#,cap#,0); "The inverted circumflex"; + +fill circum reflectedabout ((0,h-pwid/2-o),(w,h-pwid/2-o)); +invcircum := currentpicture; + +endchar; + +beginchar(oct"024",2pwid#,cap#,0); "The low rounded inverted circumflex"; + +z0 = (w/2,h-pwid); +z1 = (ss,h-o); +z2 = (w-ss,h-o); +z3 = z0 shifted (0,-2accwid); +z4 = z1 shifted (accwid,0); +z5 = z2 shifted (-accwid,0); +z6 = 0.5[z2,z5] shifted (0,accwid/2); +z7 = 0.5[z1,z4] shifted (0,accwid/2); + +fill z3{right}..{up}z2..z6..z5{down}..{left}z0{left}..{up}z4..z7..z1{down}..{right}cycle shifted (0,-h); + +roundcircum := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"036",2pwid#,cap#,0); "The inverted circumflex"; + +z0 = (w/2,h-pwid); +z1 = (ss,h-o); +z2 = (w-ss,h-o); +z3 = z0 shifted (0,-2accwid); +z4 = z1 shifted (accwid,0); +z5 = z2 shifted (-accwid,0); +z6 = 0.5[z2,z5] shifted (0,accwid/2); +z7 = 0.5[z1,z4] shifted (0,accwid/2); + +fill +z3{right}..{up}z2..z6..z5{down}..{left}z0{left}..{up}z4..z7..z1{down}..{right}cycle; + +roundcircum := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"001",2pwid#,cap#,0); "The low rounded circumflex"; + +z0 = (w/2,h-pwid); +z1 = (ss,h-o); +z2 = (w-ss,h-o); +z3 = z0 shifted (0,-2accwid); +z4 = z1 shifted (accwid,0); +z5 = z2 shifted (-accwid,0); +z6 = 0.5[z2,z5] shifted (0,accwid/2); +z7 = 0.5[z1,z4] shifted (0,accwid/2); + +fill z3{right}..{up}z2..z6..z5{down}..{left}z0{left}..{up}z4..z7..z1{down}..{right}cycle +reflectedabout ((0,h/2),(w,h/2)) shifted (0,-dep); + +roundcircum := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"037",2pwid#,cap#,0); "The macron"; + +z0 = (ss,h-pwid/2); +z1 = (w-ss,h-pwid/2); +z2 = z0 shifted (0,-accwid/2); +z3 = z1 shifted (0,-accwid/2); + +fill z0---z1..z3---z2..cycle; + +macron := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"012",pwid#,cap#,0); "The overdot"; + +fill fullcircle scaled 2dotwid shifted (w/2,cap-dotwid); + +overdot := currentpicture; + +endchar; + +beginchar(oct"176",2pwid#,cap#,0); "The tilde, ~"; + +z0 = (ss,h-pwid-o); +z1 = (w/3,h-ss); +z2 = (2w/3,h-pwid); +z3 = (w-ss,h); +z4 = z1 shifted (0,-1.5thinl); +z5 = z2 shifted (0,1.5thinl); + +fill z0..{right}z1{right}..{right}z5{right}..{dir 60}z3{dir + -95}..{left}z2{left}..{left}z4{left}..z0..cycle; + +tilde := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"042",2pwid#,cap#,0); "The diaresis"; + +z0 = (w/4,h-dotwid); +z1 = (3w/4,h-dotwid); + +fill fullcircle scaled 2dotwid shifted z0; +fill fullcircle scaled 2dotwid shifted z1; + +diaresis := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"010",pwid#,cap#,0); "The capital iota subscript"; +fill capeye yscaled 0.5 xscaled 0.8; +picture capiotasub; capiotasub := currentpicture; +endchar; + +beginchar(oct"022",ex#,cap#,0); "lightning-bolt like symbol"; + +pickup pencircle scaled 1.5thinl; +penpos0(thickl,0); +z0 = (w/4,h+o); +penpos1(thinl,-45); +z1l = (ss,h/2-thinstroke); +penpos2(thinl,-45); +z2r = (w-ss,h/2+thinstroke); +penpos3(thickl,0); +z3 = (3w/4,0-o); + +penstroke z0e--z1e; +penstroke z1e--z2e; +penstroke z2e--z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"023",ex#,cap#,0); "magnifying glass"; + +z0 = (w/2,0-o); +z1 = z0 shifted (1.5thinstroke,1.5thinstroke); +z2 = z0 shifted (-1.5thinstroke,1.5thinstroke); +path magcirc; +magcirc = fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,3h/4); +z3 = ((z2--(w/2,3h/4)) intersectionpoint magcirc) shifted + (-thinl/2,0); +z4 = ((z1--(w/2,3h/4)) intersectionpoint magcirc) shifted + (thinl/2,0); +z5 = (z0--(w/2,3h/4)) intersectionpoint magcirc; + +fill z0..z1---z4..z5..z3---z2..cycle; +pickup pencircle scaled 1.5thinl; +draw magcirc; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"025",ex#,cap#,0); "magnifying glass"; + +pickup pencircle scaled 1.5thinl; +draw magcirc; +z0 = (w/2-thickl/2,lserhl); +z1 = z0 shifted (thickl,0); +llserif(0,2,3,4,5)(1); +lrserif(1,6,7,8,9)(1); +z10 = (z0--(x0,3h/4)) intersectionpoint magcirc; +z11 = (z1--(x1,3h/4)) intersectionpoint magcirc; + +fill z0..z2..z3--z4--z8--z7..z6..z1--z11--z10--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"040",2pwid#,cap#,0); "The tilde and diaresis"; +currentpicture := diaresis shifted (0,-0.5pwid) + + tilde shifted (0,0.75pwid); +picture tildeumlaut; tildeumlaut := currentpicture; +endchar; + +beginchar(oct"043",2pwid#,cap#,0); "The acute and diaresis"; +currentpicture := diaresis + acute shifted (0,h); +picture acuteumlaut; acuteumlaut := currentpicture; +endchar; + +beginchar(oct"044",2pwid#,cap#,0); "The grave and diaresis"; +currentpicture := diaresis + grave shifted (0,h); +picture graveumlaut; graveumlaut := currentpicture; +endchar; + +beginchar(oct"100",2pwid#,cap#,0); "Rough breathing and tilde"; +currentpicture := roughbreath + tilde shifted (-pwid/4,pwid); +picture roughtilde; roughtilde := currentpicture; +endchar; + +beginchar(oct"103",2pwid#,cap#,0); "Rough breathing and grave"; +currentpicture := roughbreath shifted (-pwid/4,0) + + grave shifted (pwid/4,h-pwid/2); +picture roughgrave; roughgrave := currentpicture; +endchar; + +beginchar(oct"126",2pwid#,cap#,0); "Rough breathing and acute"; +currentpicture := roughbreath shifted (-pwid/4,0) + + acute shifted (pwid/4,h-pwid/2); +picture roughacute; roughacute := currentpicture; +endchar; + +beginchar(oct"134",2pwid#,cap#,0); "Smooth breathing and tilde"; +currentpicture := smoothbreath + tilde shifted (-pwid/4,pwid); +picture smoothtilde; smoothtilde := currentpicture; +endchar; + +beginchar(oct"136",2pwid#,cap#,0); "Smooth breathing and acute"; +currentpicture := smoothbreath shifted (-pwid/4,0) + + acute shifted (pwid/4,h-pwid/2); +picture smoothacute; smoothacute := currentpicture; +endchar; + +beginchar(oct"137",2pwid#,cap#,0); "Smooth breathing and grave"; +currentpicture := smoothbreath shifted (-pwid/4,0) + + grave shifted (pwid/4,h-pwid/2); +picture smoothgrave; smoothgrave := currentpicture; +endchar; + +beginchar(oct"174",2pwid#,0,dep#); "iota subscript"; + +z0 = (w/2-1.5thinstroke/2,-thinstroke); +z1 = z0 shifted (1.5thinstroke,0); +z2 = z0 shifted (0,-dep/2); +z3 = z2 shifted (1.5thinstroke,0); +z4 = ((x2+x3)/2,-dep); +z5 = z3 shifted (1.5thinstroke,0); +z6 = ((x3+x5)/2,y3-0.5thinstroke); + +fill z0---z2..z4{right}..{up}z5..z6..z3---z1--cycle; + +picture iotasub; iotasub := currentpicture; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"227",cap#,cap#,0); "smile"; +fill theparen yscaled 0.70 rotatedaround ((w/2,h/2),90) + shifted (-0.275w,h-ex/2); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmgrkacclet.mf b/Master/texmf-dist/fonts/source/public/drm/drmgrkacclet.mf new file mode 100644 index 00000000000..d2c328d2d37 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmgrkacclet.mf @@ -0,0 +1,651 @@ +% +AMDG This document was begun on 12 July 11EX, the feast +% of St. Bonaventure, BCD, and it is humbly dedicated to him +% and to the Immaculate Heart of Mary for their prayers, and +% to the Sacred Heart of Jesus for His mercy. + +beginchar(oct"011",em#+2ss#,cap#,0); "The Letter A, iota"; +italcorr(ex#*slant); + +currentpicture := capa + capiotasub shifted (w-0.25lserw,-0.25h); + +endchar; + +beginchar(oct"012",em#+2ss#,cap#,0); "The Letter H, iota"; +italcorr(ex#*slant); + +currentpicture := caph + capiotasub shifted (w-0.25lserw,-0.25h); + +endchar; + +beginchar(oct"013",5em#/6+2ss#,cap#,0); "The Letter Omega, iota"; +italcorr(ex#*slant); + +currentpicture := capiotasub shifted (w-0.25lserw,-0.25h); +fill omega; + +endchar; + +beginchar(oct"014",em#+2ss#,cap#,0); "The Letter A"; +italcorr(ex#*slant); + +currentpicture := capa; + +endchar; + +beginchar(oct"015",5em#/6+2ss#,cap#,0); "Upsilon with diaresis"; +italcorr(ex#*slant); + +currentpicture := diaresis shifted + (pwid/2+ss,h-ex/2-1.5pwid); +fill capwhy; + +endchar; + +beginchar(oct"016",ex#+2ss#,ex#,0); "The letter alpha"; +italcorr(ex#*slant); + +currentpicture := alpha; + +endchar; + +beginchar(oct"017",1.2ex#+2ss#,ex#,0); "upsilon with diaresis"; +italcorr(ex#*slant); + +currentpicture := upsilon + diaresis shifted + (pwid/2+ss,0); + +endchar; + +beginchar(oct"200",ex#+2ss#,ex#,0); "alpha with grave"; +italcorr(ex#*slant); +currentpicture := alpha + highgrave; +endchar; + +beginchar(oct"201",ex#+2ss#,ex#,0); "alpha with rough"; +italcorr(ex#*slant); +currentpicture := alpha + roughbreath shifted (pwid,0); +endchar; + +beginchar(oct"202",ex#+2ss#,ex#,0); "alpha with smooth"; +italcorr(ex#*slant); +currentpicture := alpha + smoothbreath shifted (pwid,0); +endchar; + +beginchar(oct"203",ex#+2ss#,ex#,0); "alpha with roughgrave"; +italcorr(ex#*slant); +currentpicture := alpha + roughgrave shifted (pwid/2,0); +endchar; + +beginchar(oct"204",ex#+2ss#,ex#,0); "alpha with grave iota"; +italcorr(ex#*slant); +currentpicture := alpha + highgrave + iotasub; +endchar; + +beginchar(oct"205",ex#+2ss#,ex#,0); "alpha with rough iota"; +italcorr(ex#*slant); +currentpicture := alpha + roughbreath shifted (pwid,0) + iotasub; +endchar; + +beginchar(oct"206",ex#+2ss#,ex#,0); "alpha with smooth iota"; +italcorr(ex#*slant); +currentpicture := alpha + smoothbreath shifted (pwid,0) + iotasub; +endchar; + +beginchar(oct"207",ex#+2ss#,ex#,0); "alpha with roughacute iota"; +italcorr(ex#*slant); +currentpicture := alpha + roughgrave shifted (pwid/2,0) + iotasub; +endchar; + +beginchar(oct"210",ex#+2ss#,ex#,0); "alpha with acute"; +italcorr(ex#*slant); +currentpicture := alpha + highacute; +endchar; + +beginchar(oct"211",ex#+2ss#,ex#,0); "alpha with roughacute"; +italcorr(ex#*slant); +currentpicture := alpha + roughacute shifted (pwid/2,0); +endchar; + +beginchar(oct"212",ex#+2ss#,ex#,0); "alpha with smoothacute"; +italcorr(ex#*slant); +currentpicture := alpha + smoothacute shifted (pwid/2,0); +endchar; + +beginchar(oct"213",ex#+2ss#,ex#,0); "alpha with smoothgrave"; +italcorr(ex#*slant); +currentpicture := alpha + smoothgrave shifted (pwid/2,0); +endchar; + +beginchar(oct"214",ex#+2ss#,ex#,0); "alpha with acute iota"; +italcorr(ex#*slant); +currentpicture := alpha + highacute + iotasub; +endchar; + +beginchar(oct"215",ex#+2ss#,ex#,0); "alpha with roughacute iota"; +italcorr(ex#*slant); +currentpicture := alpha + roughacute shifted (pwid/2,0) + iotasub; +endchar; + +beginchar(oct"216",ex#+2ss#,ex#,0); "alpha with smoothacute iota"; +italcorr(ex#*slant); +currentpicture := alpha + smoothacute shifted (pwid/2,0) + iotasub; +endchar; + +beginchar(oct"217",ex#+2ss#,ex#,0); "alpha with smoothgrave iota"; +italcorr(ex#*slant); +currentpicture := alpha + smoothgrave shifted (pwid/2,0) + iotasub; +endchar; + +beginchar(oct"220",ex#+2ss#,ex#,0); "alpha with tilde"; +italcorr(ex#*slant); +currentpicture := alpha + tilde shifted (pwid/2,0); +endchar; + +beginchar(oct"221",ex#+2ss#,ex#,0); "alpha with roughtilde"; +italcorr(ex#*slant); +currentpicture := alpha + roughtilde shifted (pwid/2,0); +endchar; + +beginchar(oct"222",ex#+2ss#,ex#,0); "alpha with smoothilde"; +italcorr(ex#*slant); +currentpicture := alpha + smoothtilde shifted (pwid/2,0); +endchar; + +beginchar(oct"224",ex#+2ss#,ex#,0); "alpha with iota and tilde"; +italcorr(ex#*slant); +currentpicture := alpha + tilde shifted (pwid/2,0) + iotasub; +endchar; + +beginchar(oct"225",ex#+2ss#,ex#,0); "alpha with iota and roughtilde"; +italcorr(ex#*slant); +currentpicture := alpha + roughtilde shifted (pwid/2,0) + iotasub; +endchar; + +beginchar(oct"226",ex#+2ss#,ex#,0); "alpha with iota and smoothilde"; +italcorr(ex#*slant); +currentpicture := alpha + smoothtilde shifted (pwid/2,0) + iotasub; +endchar; + +beginchar(oct"230",ex#+2ss#,ex#,dep#); "eta grave"; +currentpicture := eta + highgrave shifted (pwid/4,0); +endchar; + +beginchar(oct"231",ex#+2ss#,ex#,dep#); "eta rough"; +currentpicture := eta + roughbreath shifted (3pwid/4,0); +endchar; + +beginchar(oct"232",ex#+2ss#,ex#,dep#); "eta smooth"; +currentpicture := eta + smoothbreath shifted (3pwid/4,0); +endchar; + +beginchar(oct"234",ex#+2ss#,ex#,dep#); "eta grave iota"; +currentpicture := eta + highgrave shifted (pwid/4,0) + + iotasub shifted (-pwid/4,0); +endchar; + +beginchar(oct"235",ex#+2ss#,ex#,dep#); "eta rough iota"; +currentpicture := eta + roughbreath shifted (3pwid/4,0) + + iotasub shifted (-pwid/4,0); +endchar; + +beginchar(oct"236",ex#+2ss#,ex#,dep#); "eta smooth iota"; +currentpicture := eta + smoothbreath shifted (3pwid/4,0) + + iotasub shifted (-pwid/4,0); +endchar; + +beginchar(oct"240",ex#+2ss#,ex#,dep#); "eta acute"; +currentpicture := eta + highacute shifted (pwid/4,0); +endchar; + +beginchar(oct"241",ex#+2ss#,ex#,dep#); "eta rough acute"; +currentpicture := eta + roughacute shifted (3pwid/4,0); +endchar; + +beginchar(oct"242",ex#+2ss#,ex#,dep#); "eta smooth acute"; +currentpicture := eta + smoothacute shifted (3pwid/4,0); +endchar; + +beginchar(oct"243",ex#+2ss#,ex#,dep#); "eta rough grave"; +currentpicture := eta + roughgrave shifted (3pwid/4,0); +endchar; + +beginchar(oct"244",ex#+2ss#,ex#,dep#); "eta acute iota"; +currentpicture := eta + highacute shifted (pwid/4,0) + + iotasub shifted (-pwid/4,0); +endchar; + +beginchar(oct"245",ex#+2ss#,ex#,dep#); "eta rough acute iota"; +currentpicture := eta + roughacute shifted (3pwid/4,0) + + iotasub shifted (-pwid/4,0); +endchar; + +beginchar(oct"246",ex#+2ss#,ex#,dep#); "eta smooth acute iota"; +currentpicture := eta + smoothacute shifted (3pwid/4,0) + + iotasub shifted (-pwid/4,0); +endchar; + +beginchar(oct"247",ex#+2ss#,ex#,dep#); "eta rough grave iota"; +currentpicture := eta + roughgrave shifted (3pwid/4,0) + + iotasub shifted (-pwid/4,0); +endchar; + +beginchar(oct"250",ex#+2ss#,ex#,dep#); "eta tilde"; +currentpicture := eta + tilde shifted (pwid/4,0); +endchar; + +beginchar(oct"251",ex#+2ss#,ex#,dep#); "eta rough tilde"; +currentpicture := eta + roughtilde shifted (pwid/2,0); +endchar; + +beginchar(oct"252",ex#+2ss#,ex#,dep#); "eta smooth tilde"; +currentpicture := eta + smoothtilde shifted (pwid/2,0); +endchar; + +beginchar(oct"253",ex#+2ss#,ex#,dep#); "eta smooth grave"; +currentpicture := eta + smoothgrave shifted (3pwid/4,0); +endchar; + +beginchar(oct"254",ex#+2ss#,ex#,dep#); "eta tilde iota"; +currentpicture := eta + tilde shifted (pwid/4,0) + + iotasub shifted (-pwid/4,0); +endchar; + +beginchar(oct"255",ex#+2ss#,ex#,dep#); "eta rough tilde iota"; +currentpicture := eta + roughtilde shifted (pwid/2,0) + + iotasub shifted (-pwid/4,0); +endchar; + +beginchar(oct"256",ex#+2ss#,ex#,dep#); "eta smooth tilde iota"; +currentpicture := eta + smoothtilde shifted (pwid/2,0) + + iotasub shifted (-pwid/4,0); +endchar; + +beginchar(oct"257",ex#+2ss#,ex#,dep#); "eta smooth tilde iota"; +currentpicture := eta + smoothgrave shifted (3pwid/4,0) + + iotasub shifted (-pwid/4,0); +endchar; + +beginchar(oct"260",1.5ex#+2ss#,ex#,0); "omega grave"; +italcorr(ex#*slant); +currentpicture := omlow + highgrave shifted (3pwid/4,0); +endchar; + +beginchar(oct"261",1.5ex#+2ss#,ex#,0); "omega rough"; +italcorr(ex#*slant); +currentpicture := omlow + roughbreath shifted (5pwid/4,0); +endchar; + +beginchar(oct"262",1.5ex#+2ss#,ex#,0); "omega smooth"; +italcorr(ex#*slant); +currentpicture := omlow + smoothbreath shifted (5pwid/4,0); +endchar; + +beginchar(oct"263",1.5ex#+2ss#,ex#,0); "omega roughgrave"; +italcorr(ex#*slant); +currentpicture := omlow + roughgrave shifted (pwid,0); +endchar; + +beginchar(oct"264",1.5ex#+2ss#,ex#,0); "omega grave iota"; +italcorr(ex#*slant); +currentpicture := omlow + highgrave shifted (3pwid/4,0) + + iotasub shifted (5pwid/6,0); +endchar; + +beginchar(oct"265",1.5ex#+2ss#,ex#,0); "omega rough iota"; +italcorr(ex#*slant); +currentpicture := omlow + roughbreath shifted (5pwid/4,0) + + iotasub shifted (5pwid/6,0); +endchar; + +beginchar(oct"266",1.5ex#+2ss#,ex#,0); "omega smooth iota"; +italcorr(ex#*slant); +currentpicture := omlow + smoothbreath shifted (5pwid/4,0) + + iotasub shifted (5pwid/6,0); +endchar; + +beginchar(oct"267",1.5ex#+2ss#,ex#,0); "omega roughgrave iota"; +italcorr(ex#*slant); +currentpicture := omlow + roughgrave shifted (pwid,0) + + iotasub shifted (5pwid/6,0); +endchar; + +beginchar(oct"270",1.5ex#+2ss#,ex#,0); "omega acute"; +italcorr(ex#*slant); +currentpicture := omlow + highacute shifted (3pwid/4,0); +endchar; + +beginchar(oct"271",1.5ex#+2ss#,ex#,0); "omega rough acute"; +italcorr(ex#*slant); +currentpicture := omlow + roughacute shifted (pwid,0); +endchar; + +beginchar(oct"272",1.5ex#+2ss#,ex#,0); "omega smooth acute"; +italcorr(ex#*slant); +currentpicture := omlow + smoothacute shifted (pwid,0); +endchar; + +beginchar(oct"273",1.5ex#+2ss#,ex#,0); "omega smoothgrave"; +italcorr(ex#*slant); +currentpicture := omlow + smoothgrave shifted (pwid,0); +endchar; + +beginchar(oct"274",1.5ex#+2ss#,ex#,0); "omega acute iota"; +italcorr(ex#*slant); +currentpicture := omlow + highacute shifted (3pwid/4,0) + + iotasub shifted (5pwid/6,0); +endchar; + +beginchar(oct"275",1.5ex#+2ss#,ex#,0); "omega rough acute"; +italcorr(ex#*slant); +currentpicture := omlow + roughacute shifted (pwid,0) + + iotasub shifted (5pwid/6,0); +endchar; + +beginchar(oct"276",1.5ex#+2ss#,ex#,0); "omega smooth acute"; +italcorr(ex#*slant); +currentpicture := omlow + smoothacute shifted (pwid,0) + + iotasub shifted (5pwid/6,0); +endchar; + +beginchar(oct"277",1.5ex#+2ss#,ex#,0); "omega smoothgrave"; +italcorr(ex#*slant); +currentpicture := omlow + smoothgrave shifted (pwid,0) + + iotasub shifted (5pwid/6,0); +endchar; + +beginchar(oct"300",1.5ex#+2ss#,ex#,0); "omega tilde"; +italcorr(ex#*slant); +currentpicture := omlow + tilde shifted (5pwid/6,0); +endchar; + +beginchar(oct"301",1.5ex#+2ss#,ex#,0); "omega tilde rough"; +italcorr(ex#*slant); +currentpicture := omlow + roughtilde shifted (7pwid/6,0); +endchar; + +beginchar(oct"302",1.5ex#+2ss#,ex#,0); "omega tilde smooth"; +italcorr(ex#*slant); +currentpicture := omlow + smoothtilde shifted (7pwid/6,0); +endchar; + +beginchar(oct"304",1.5ex#+2ss#,ex#,0); "omega tilde iota"; +italcorr(ex#*slant); +currentpicture := omlow + tilde shifted (5pwid/6,0) + + iotasub shifted (5pwid/6,0); +endchar; + +beginchar(oct"305",1.5ex#+2ss#,ex#,0); "omega tilde rough iota"; +italcorr(ex#*slant); +currentpicture := omlow + roughtilde shifted (7pwid/6,0) + + iotasub shifted (5pwid/6,0); +endchar; + +beginchar(oct"306",1.5ex#+2ss#,ex#,0); "omega tilde smooth iota"; +italcorr(ex#*slant); +currentpicture := omlow + smoothtilde shifted (7pwid/6,0) + + iotasub shifted (5pwid/6,0); +endchar; + +beginchar(oct"310",0.4ex#+2ss#,ex#,0); "iota grave"; +italcorr(ex#*slant); +currentpicture := iota + highgrave shifted (-pwid/2,0); +endchar; + +beginchar(oct"311",0.4ex#+2ss#,ex#,0); "iota rough breath"; +italcorr(ex#*slant); +currentpicture := iota + roughbreath shifted (0,0); +endchar; + +beginchar(oct"312",0.4ex#+2ss#,ex#,0); "iota smooth breath"; +italcorr(ex#*slant); +currentpicture := iota + smoothbreath shifted (0,0); +endchar; + +beginchar(oct"313",0.4ex#+2ss#,ex#,0); "iota rough grave"; +italcorr(ex#*slant); +currentpicture := iota + roughgrave shifted (-pwid/4,0); +endchar; + +beginchar(oct"320",0.4ex#+2ss#,ex#,0); "iota acute"; +italcorr(ex#*slant); +currentpicture := iota + highacute shifted (-pwid/2,0); +endchar; + +beginchar(oct"321",0.4ex#+2ss#,ex#,0); "iota rough acute"; +italcorr(ex#*slant); +currentpicture := iota + roughacute shifted (-pwid/4,0); +endchar; + +beginchar(oct"322",0.4ex#+2ss#,ex#,0); "iota smooth acute"; +italcorr(ex#*slant); +currentpicture := iota + smoothacute shifted (-pwid/4,0); +endchar; + +beginchar(oct"323",0.4ex#+2ss#,ex#,0); "iota smooth grave"; +italcorr(ex#*slant); +currentpicture := iota + smoothgrave shifted (-pwid/4,0); +endchar; + +beginchar(oct"330",0.4ex#+2ss#,ex#,0); "iota tilde"; +italcorr(ex#*slant); +currentpicture := iota + tilde shifted (-pwid/2,0); +endchar; + +beginchar(oct"331",0.4ex#+2ss#,ex#,0); "iota tilde rough"; +italcorr(ex#*slant); +currentpicture := iota + roughtilde shifted (-pwid/4,0); +endchar; + +beginchar(oct"332",0.4ex#+2ss#,ex#,0); "iota tilde smooth"; +italcorr(ex#*slant); +currentpicture := iota + smoothtilde shifted (-pwid/4,0); +endchar; + +beginchar(oct"333",thickstroke#+2lserw#+2ss#,cap#,0); "Iota diaresis"; +italcorr(ex#*slant); +currentpicture := capi + diaresis shifted (-pwid/6,ex/2); +endchar; + +beginchar(oct"314",1.2ex#+2ss#,ex#,0); "upsilon grave"; +italcorr(ex#*slant); +currentpicture := upsilon + highgrave shifted (pwid/2,0); +endchar; + +beginchar(oct"315",1.2ex#+2ss#,ex#,0); "upsilon rough"; +italcorr(ex#*slant); +currentpicture := upsilon + roughbreath shifted (pwid,0); +endchar; + +beginchar(oct"316",1.2ex#+2ss#,ex#,0); "upsilon smooth"; +italcorr(ex#*slant); +currentpicture := upsilon + smoothbreath shifted (pwid,0); +endchar; + +beginchar(oct"317",1.2ex#+2ss#,ex#,0); "upsilon roughgrave"; +italcorr(ex#*slant); +currentpicture := upsilon + roughgrave shifted (3pwid/4,0); +endchar; + +beginchar(oct"324",1.2ex#+2ss#,ex#,0); "upsilon acute"; +italcorr(ex#*slant); +currentpicture := upsilon + highacute shifted (pwid/2,0); +endchar; + +beginchar(oct"325",1.2ex#+2ss#,ex#,0); "upsilon roughacute"; +italcorr(ex#*slant); +currentpicture := upsilon + roughacute shifted (3pwid/4,0); +endchar; + +beginchar(oct"326",1.2ex#+2ss#,ex#,0); "upsilon smoothacute"; +italcorr(ex#*slant); +currentpicture := upsilon + smoothacute shifted (3pwid/4,0); +endchar; + +beginchar(oct"327",1.2ex#+2ss#,ex#,0); "upsilon smoothgrave"; +italcorr(ex#*slant); +currentpicture := upsilon + smoothgrave shifted (3pwid/4,0); +endchar; + +beginchar(oct"334",1.2ex#+2ss#,ex#,0); "upsilon tilde"; +italcorr(ex#*slant); +currentpicture := upsilon + tilde shifted (pwid/2,0); +endchar; + +beginchar(oct"335",1.2ex#+2ss#,ex#,0); "upsilon tilde rough"; +italcorr(ex#*slant); +currentpicture := upsilon + roughtilde shifted (3pwid/4,0); +endchar; + +beginchar(oct"336",1.2ex#+2ss#,ex#,0); "upsilon tilde smooth"; +italcorr(ex#*slant); +currentpicture := upsilon + smoothtilde shifted (3pwid/4,0); +endchar; + +beginchar(oct"337",5em#/6+2ss#,cap#,0); "Upsilon diaresis"; +italcorr(ex#*slant); +currentpicture := capy + diaresis shifted (4pwid/6,ex/2); +endchar; + +beginchar(oct"340",0.8ex#+2ss#,ex#,0); "epsilon grave"; +italcorr(ex#*slant); +currentpicture := epsilon + highgrave; +endchar; + +beginchar(oct"341",0.8ex#+2ss#,ex#,0); "epsilon rough"; +italcorr(ex#*slant); +currentpicture := epsilon + roughbreath shifted (pwid/2,0); +endchar; + +beginchar(oct"342",0.8ex#+2ss#,ex#,0); "epsilon smooth"; +italcorr(ex#*slant); +currentpicture := epsilon + smoothbreath shifted (pwid/2,0); +endchar; + +beginchar(oct"343",0.8ex#+2ss#,ex#,0); "epsilon roughgrave"; +italcorr(ex#*slant); +currentpicture := epsilon + roughgrave shifted (pwid/4,0); +endchar; + +beginchar(oct"350",0.8ex#+2ss#,ex#,0); "epsilon acute"; +italcorr(ex#*slant); +currentpicture := epsilon + highacute; +endchar; + +beginchar(oct"351",0.8ex#+2ss#,ex#,0); "epsilon roughacute"; +italcorr(ex#*slant); +currentpicture := epsilon + roughacute shifted (pwid/4,0); +endchar; + +beginchar(oct"352",0.8ex#+2ss#,ex#,0); "epsilon smoothacute"; +italcorr(ex#*slant); +currentpicture := epsilon + smoothacute shifted (pwid/4,0); +endchar; + +beginchar(oct"353",0.8ex#+2ss#,ex#,0); "epsilon smoothgrave"; +italcorr(ex#*slant); +currentpicture := epsilon + smoothgrave shifted (pwid/4,0); +endchar; + +beginchar(oct"344",ex#+2ss#,ex#,0); "omicron grave"; +italcorr(ex#*slant); +currentpicture := lowo + highgrave shifted (pwid/4,0); +endchar; + +beginchar(oct"345",ex#+2ss#,ex#,0); "omicron rough"; +italcorr(ex#*slant); +currentpicture := lowo + roughbreath shifted (3pwid/4,0); +endchar; + +beginchar(oct"346",ex#+2ss#,ex#,0); "omicron smooth"; +italcorr(ex#*slant); +currentpicture := lowo + smoothbreath shifted (3pwid/4,0); +endchar; + +beginchar(oct"347",ex#+2ss#,ex#,0); "omicron rough grave"; +italcorr(ex#*slant); +currentpicture := lowo + roughgrave shifted (pwid/3,0); +endchar; + +beginchar(oct"354",ex#+2ss#,ex#,0); "omicron acute"; +italcorr(ex#*slant); +currentpicture := lowo + highacute shifted (pwid/4,0); +endchar; + +beginchar(oct"355",ex#+2ss#,ex#,0); "omicron rough acute"; +italcorr(ex#*slant); +currentpicture := lowo + roughacute shifted (pwid/3,0); +endchar; + +beginchar(oct"356",ex#+2ss#,ex#,0); "omicron smooth acute"; +italcorr(ex#*slant); +currentpicture := lowo + smoothacute shifted (pwid/3,0); +endchar; + +beginchar(oct"357",ex#+2ss#,ex#,0); "omicron smooth grave"; +italcorr(ex#*slant); +currentpicture := lowo + smoothgrave shifted (pwid/3,0); +endchar; + +beginchar(oct"360",0.4ex#+2ss#,ex#,0); "iota diaresis"; +italcorr(ex#*slant); +currentpicture := iota + diaresis shifted (-pwid/2,-pwid/2); +endchar; + +beginchar(oct"361",0.4ex#+2ss#,ex#,0); "iota diaresis grave"; +italcorr(ex#*slant); +currentpicture := iota + graveumlaut shifted (-pwid/2,-pwid/2); +endchar; + +beginchar(oct"362",0.4ex#+2ss#,ex#,0); "iota diaresis acute"; +italcorr(ex#*slant); +currentpicture := iota + acuteumlaut shifted (-pwid/2,-pwid/2); +endchar; + +beginchar(oct"363",0.4ex#+2ss#,ex#,0); "iota tilde diaresis"; +italcorr(ex#*slant); +currentpicture := iota + tildeumlaut shifted (-pwid/2,0); +endchar; + +beginchar(oct"364",1.2ex#+2ss#,ex#,0); "upsilon diaresis"; +italcorr(ex#*slant); +currentpicture := upsilon + diaresis shifted (3pwid/4,-pwid/2); +endchar; + +beginchar(oct"365",1.2ex#+2ss#,ex#,0); "upsilon diaresis grave"; +italcorr(ex#*slant); +currentpicture := upsilon + graveumlaut shifted (3pwid/4,-pwid/2); +endchar; + +beginchar(oct"366",1.2ex#+2ss#,ex#,0); "upsilon diaresis acute"; +italcorr(ex#*slant); +currentpicture := upsilon + acuteumlaut shifted (3pwid/4,-pwid/2); +endchar; + +beginchar(oct"367",1.2ex#+2ss#,ex#,0); "upsilon diaresis acute"; +italcorr(ex#*slant); +currentpicture := upsilon + tildeumlaut shifted (3pwid/4,0); +endchar; + +beginchar(oct"370",ex#+2ss#,ex#,0); "alpha with iota"; +italcorr(ex#*slant); +currentpicture := alpha + iotasub; +endchar; + +beginchar(oct"371",ex#+2ss#,ex#,dep#); "eta iota"; +currentpicture := eta + iotasub shifted (-pwid/4,0); +endchar; + +beginchar(oct"372",1.5ex#+2ss#,ex#,0); "omega iota"; +italcorr(ex#*slant); +currentpicture := omlow + iotasub shifted (5pwid/6,0); +endchar; + +beginchar(oct"373",ex#+2ss#,ex#,dep#); "rho rough"; +italcorr(ex#*slant); +currentpicture := rho + roughbreath shifted (pwid/2,0); +endchar; + +beginchar(oct"374",ex#+2ss#,ex#,dep#); "rho smooth"; +italcorr(ex#*slant); +currentpicture := rho + smoothbreath shifted (pwid/2,0); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmgrkcap.mf b/Master/texmf-dist/fonts/source/public/drm/drmgrkcap.mf new file mode 100644 index 00000000000..b62befd27ac --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmgrkcap.mf @@ -0,0 +1,759 @@ +% +AMDG This document was begun on 15 August 2007, the +% Feast of the Assumption of the Blessed Virgin Mary, and it +% is humbly offered to her for her prayers, and to the +% Sacred Heart of Jesus for His mercy. + +picture capo; +picture capa; +picture capl; +picture capc; +picture capd; +picture cape; +picture capg; +picture capn; +picture capu; +picture capr; +picture caps; +picture capt; +picture capy; +picture capz; +picture capi; + +def ulftbulb(suffix i,j,k,l,m) = +z.j=z.i shifted (bulbsh,bulbsh); +z.k=z.j shifted (bulbsh,-bulbsh); +z.l=z.k shifted (-bulbsh,-bulbsh); +enddef; + +%%%FFF Fix W, M, A from dependence on stroke widths FFF%%% + +%%%% Define Lower Right Serif on Caps %%%% + +def lrserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(lserw/3,-lserc/2); +z.k=z.i+(lserw,-lserc); +z.l=z.k-(0,lserstep); +z.m=z.l-(lserw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(lserw/3,-lserc/2); +z.k=z.i+(lserw+equalize/2,-lserc); +z.l=z.k-(0,lserstep); +z.m=z.l-(lserw+thickstroke/2,0); +fi +enddef; + +%%%% Define Lower Left Serif on Caps %%%% + +def llserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i-(lserw/3,lserc/2); +z.k=z.i-(lserw,lserc); +z.l=z.k-(0,lserstep); +z.m=z.l+(lserw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i-(lserw/3,lserc/2); +z.k=z.i-(lserw+equalize/2,lserc); +z.l=z.k-(0,lserstep); +z.m=z.l+(lserw+thickstroke/2,0); +fi +enddef; + +%%%% Define Upper Right Serif on Caps %%%% + +def urserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(userw/3,lserc/2); +z.k=z.i+(userw,userc); +z.l=z.k+(0,userstep); +z.m=z.l-(userw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(userw/3,lserc/2); +z.k=z.i+(userw+equalize/2,userc); +z.l=z.k+(0,userstep); +z.m=z.l-(userw+thickstroke/2,0); +fi +enddef; + +%%%% Define Upper Left Serif on Caps %%%% + +def ulserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(-userw/3,lserc/2); +z.k=z.i+(-userw,userc); +z.l=z.k+(0,userstep); +z.m=z.l+(userw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(-userw/3,lserc/2); +z.k=z.i+(-(userw+equalize/2),userc); +z.l=z.k+(0,userstep); +z.m=z.l+(userw+thickstroke/2,0); +fi +enddef; + +%%%% Define T Side Serifs on Caps %%%% + +def tlsideserif(suffix i,j,k,l,m) = +z.j=z.i+(0,seriftail); +z.k=z.j-((userh/2),0); +z.l=z.k-(userh/2,1.5userw); +z.m=z.l+(userh/2,0); +enddef; + +def trsideserif(suffix i,j,k,l,m) = +z.j=z.i+(0,seriftail); +z.k=z.j+((userh/2),0); +z.l=z.k+(userh/2,-1.5userw); +z.m=z.l-(userh/2,0); +enddef; + +%%%% Define C Side Serifs on Caps %%%% + +def ctsideserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userw/2); +z.k=z.j+(userh,0); +z.l=z.k-(0,2userw); +z.m=z.l-(userh,0); +if topbot = 1: +path topserif; topserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botserif; botserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +def ctbackserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userh/2); +z.k=z.j-(userh,0); +z.l=z.k+(0,-2userw); +z.m=z.l+(userh,0); +if topbot = 1: +path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +%%%% Define L, E, Z, and F side serifs on Caps %%%% + +def upsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,2lserw); +z.k=z.j-(lserh,lserw); +enddef; + +def downsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,-2lserw); +z.k=z.j+(-lserh,lserw); +enddef; + +def lftdownsideserif(suffix i,j,k) = +z.j=z.i-(ssslant,2lserw); +z.k=z.j+(lserh,lserw); +enddef; + +beginchar("I",thickstroke#+2lserw#+2ss#,cap#,0); "The Letter I"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +lrserif(2,9,10,11,25)(1); +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +path capeye; capeye = z14--z11--z10..z9..z2--z4..z15..z16--z17--z20--z19.. + z18..z3--z1..z12..z13--z14--cycle; +fill capeye; + +capi := currentpicture; + +penlabels(1,2,3,4,9,10,11,12,13,14,15,16,17,18,19,20,25); + +endchar; + +beginchar("O",5em#/6+2ss#,cap#,0); "The Letter O"; +italcorr(ex#*slant); + +z1=(ss,h/2); +z2=(w/2,h+o); +z3=(w-ss,h/2); +z4=(w/2,0-o); +z5=z1 shifted (curvwid,0); +z6=z2 shifted (0,-thinstroke); +z7=z3 shifted (-curvwid,0); +z8=z4 shifted (0,thinstroke); + +path fillo; path unfillo; +fillo = z4..z3..z2..z1..cycle; +unfillo = z5..z6..z7..z8..cycle; +fill fillo; +unfill unfillo; + +capo := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); + +endchar; + +beginchar("A",em#+2ss#,cap#,0); "The Letter A"; +italcorr(ex#*slant); + +crossh = 1/phi; +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thinstroke,0); +z3 = (w-ss-lserw,lserh); +z4 = z3 shifted (-thickstroke,0); +z5 = (w/2+thickstroke/2,h+o); +z6 = z5 shifted (-thickstroke,0) rotatedaround (z5,30); +lrserif(3,7,8,9,10)(1); +llserif(4,11,12,13,14)(1); +lrserif(2,15,16,17,18)(1); +llserif(1,19,20,21,22)(1); +z23 = crossh[z6,z1]; +z24 = z23 shifted (thinstroke,0); +z25 = (w,y23); +z26 = letaa[z23,z25]; +z26 = letab[z3,z5]; +z27 = z26 shifted (-thickstroke,0); +z28 = 0.9[z27,z6]; +z29 = 0.1[z27,z28]; +z30 = 0.1[z24,z28]; + +fill z3--z5--z6--z1..z19..z20--z21--z17--z16..z15..z2 + --z24--z27--z4..z11..z12--z13--z9--z8..z7..cycle; +unfill z30--z28--z29--cycle; + +capa := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36); +endchar; + +beginchar("H",em#+2ss#,cap#,0); "The Letter H"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z5 = (w-ss-lserw-thickstroke,lserh); +z6 = z5 shifted (thickstroke,0); +z7 = (w-ss-lserw-thickstroke,h-lserh); +z8 = z7 shifted (thickstroke,0); +z46=(0.5)[z4,z2]; +z47=z46+(0,thinstroke/2); +z48=z46-(0,thinstroke/2); +z49=(0.5)[z7,z5]; +z50=z49+(0,thinstroke/2); +z51=z49-(0,thinstroke/2); +lrserif(2,9,10,11,25)(1); +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); +lrserif(6,30,31,32,33)(1); +llserif(5,34,35,36,37)(1); +urserif(8,38,39,40,41)(1); +ulserif(7,42,43,44,45)(1); + +path capeta; capeta = z36--z32--z31..z30..z6--z8..z38..z39--z40--z44-- + z43..z42..z7--z50--z47--z4..z15..z16--z17--z20-- + z19..z18..z3--z1..z12..z13--z14--z11--z10..z9..z2 + --z48--z51--z5..z34..z35--cycle; +fill capeta; + +picture caph; caph := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"122",2em#/3+2ss#,cap#,0); "The Letter P"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3 + thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss,3h/4); +z21 = z20 shifted (-curvwid,0); +z22=(x18,h/2); +z23=z22+(0,thinstroke); +z30=(x4,0); +z26 = z2 shifted (0,-lserh); +z27 = z4 shifted (0,thinstroke); +z24 = 0.5[z26,z27]; +z25 = z24 shifted (0,thinstroke); +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6-- + z7--z8--z15--z14..z13..z2--z24..z22..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2223,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("B",3em#/4+2ss#,cap#,0); "The Letter B"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z30=(x4,0); +z40 = z4 shifted (0,thinstroke); +z25 = 0.5[z30,z40] shifted (0,thinstroke); +z32 = z25 shifted (0,-thinstroke); +z24 = 0.5[z25,z32]; +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss-2o,3h/4); +z21=z20-(curvwid,0); +z23=z22+(0,thinstroke/2); +z26 = z32 shifted (loopgap,0); +z27 = (w-ss,h/4); +z28=z27-(1.1curvwid,0); +z29=(x18,0); +z31=z29+(0,thinstroke); +z33=z22-(0,thinstroke/2); +z34 = z25 shifted (loopgap,0); +z22 = 0.5[z34,z26]; +llserif(1,5,6,7,8)(1); +ulserif(3,9,10,11,12)(1); + +path stemtoploop; stemtoploop = z33{right}..{up}z20{up}..{left}z18{left}..z40--z11--z10..z9..z3--z1..z5..z6--z7--z29; +path stembotloop; stembotloop = +z30..{right}z29{right}..{up}z27{up}..{left}z34--z33; +path topinncirc; topinncirc = z25{right}..{right}z23..{up}z21{up}..{left}z19{left}..{left}z4--z25..cycle; +path botinncirc; botinncirc = z2..{right}z31{right}..{up}z28{up}..z33{left}..{left}z32--cycle; + +fill stembotloop & stemtoploop..cycle; +unfill topinncirc; +unfill botinncirc; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("M",em#+2ss#,cap#,0); "The Letter M"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thinstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thinstroke,0); +z5 = (w/2-thickstroke/3,0); +z6 = (w-ss-lserw,lserh); +z7 = z6 shifted (-thickstroke,0); +z8 = (w-ss-userw,h-userh); +z9 = z8 shifted (-thickstroke,0); +z14 = z13 shifted (-2thickstroke/3,0); +z23 = 0.22[z5,z9]; +z28 = 0.1[z23,z29]; +%z28 = z23 shifted (-thinstroke/2,thinstroke/2); +z29=z27+(2curvwid/3,0); + +urserif(8,10,11,12,13)(1); +lrserif(6,15,16,17,18)(1); +llserif(7,19,20,21,22)(1); +ulserif(3,24,25,26,27)(1); +llserif(1,30,31,32,33)(2); +lrserif(2,34,35,36,37)(2); + +path capem; capem = +z5--z9--z7..z19..z20--z21--z17--z16..z15..z6--z8..z10..z11--z12--z14--z28--z29--z26--z25..z24..z3--z1..z30..z31--z32--z36--z35..z34..z2--z4--z5--cycle; +fill capem; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("T",5em#/6+2ss#,cap#,0);"The Letter T"; +italcorr(ex#*slant); + +seriftail=userw/5; + +z1=(ss+userh,h); +z2=z1-(0,thinstroke); +z3=(w-ss-userh,h); +z4=z3-(0,thinstroke); +z5=(w/2-thickstroke/2,y2); +z6=(w/2+thickstroke/2,y2); +z7=(x5,lserh); +z8=z7+(thickstroke,0); + +llserif(7,9,10,11,12)(1); +lrserif(8,13,14,15,16)(1); +tlsideserif(1,17,18,19,20); +trsideserif(3,21,22,23,24); + +pickup cappen; + +path tpath; +tpath = z7..z9..z10--z11--z15--z14..z13..z8--z6--z4---{down}z24..z23..tension 2..{up}z22{left}..{left}z21{down}..z3--z1..z17{left}..{left}z18{down}..tension 2..z19..z20{up}---z2--z5--z7--cycle; +fill tpath; + +capt := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("N",5em#/6+2ss#,cap#,0); "The Letter N"; +italcorr(ex#*slant); + +z1 = (ss+userw,h-userh); +z2=z1+(thinstroke,-0.3thickstroke); +z3 = (ss+lserw,lserh); +z4=z3+(thinstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5-(thinstroke,0); +z7=(w-ss-userw,-o); +z28=z7+(-thinstroke,2.5thickstroke); +z29=z27+(thickstroke/2,0); + +llserif(3,8,9,10,11)(1); +lrserif(4,12,13,14,15)(1); +ulserif(6,16,17,18,19)(1); +urserif(5,20,21,22,23)(1); +ulserif(1,24,25,26,27)(1); + +fill z7--z5..z20..z21--z22--z18--z17..z16..z6--z28--z29--z27--z26--z25..z24..z1--z3..z8..z9--z10--z14--z13..z12..z4--z2--z7--cycle; + +capn := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("L",5em#/6+2ss#,cap#,0); "The Letter L"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +upsideserif(6,7,29); + +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +%pickup pencircle scaled 2; +%draw z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle; +path capell; capell = z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle; +fill capell; + +capl := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("E",5em#/6+2ss#,cap#,0); "The Letter E"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+lserw,h-lserh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(w/2,y16); +z22=(w/2,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); + +draw z21--z24; + +llserif(1,12,13,14,26)(1); +ulserif(3,18,19,20,28)(1); + +fill +z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle; + +cape := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("K",5em#/6+2ss#,cap#,0); "The Letter K"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z17=z3 shifted (thickstrike,0); +z22=z2 shifted (0,h/2+thinstroke-lserh); +z23=z2 shifted (0,h/2-lserh); +z24=(w-userw-ss,h); +z25=z24 shifted (-thinstroke/2-thinstroke,-userh); +z30=z25 shifted (thinstroke,0); +z35=0.08[z23,z30]; +z46=0.28[z23,z30]; +z37 = (w-ss-lserw,lserh); +z36 = z37 shifted (-thickstroke,0); + +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); +urserif(4,18,19,20,21)(1); +ulserif(25,26,27,28,29)(1); +urserif(30,31,32,33,34)(1); +lrserif(37,38,39,40,41)(1); +llserif(36,42,43,44,45)(1); + +fill +z1..z5..z6--z7--z16--z15--z14..z13..z2--z23--z35--z36..z42..z43--z44--z40--z39..z38..z37--z46--z23--z30..z31..z32--z33--z28--z27..z26..z25--z22--z4..z18..z19--z20--z21--z11--z10..z9..z3--z1--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("Y",5em#/6+2ss#,cap#,0); "The Letter Y"; +italcorr(ex#*slant); + +z0 = (w/2-thickstroke/2,h/2); +z1 = (w/2+thickstroke/2,h/2); +z2 = (ss+userw,h-userh); +z3 = z2 shifted (thickstroke,0); +z4 = (w-ss-userw,h-userh); +z5 = z4 shifted (-thinstroke,0); +z6 = (w/2-thickstroke/2,lserh); +z7 = (w/2+thickstroke/2,lserh); +z8 = 0.8[z0,z1] shifted (0,lserh/2); + +lrserif(7,14,15,16,17)(1); +llserif(6,10,11,12,13)(1); +ulserif(2,18,19,20,21)(1); +urserif(3,22,23,24,25)(1); +ulserif(5,26,27,28,29)(1); +urserif(4,30,31,32,33)(1); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +path capwhy; +capwhy = z0--z6..z10..z11--z12--z16--z15..z14..z7--z1--z4..z30..z31--z32--z24--z28--z27..z26..z5--z8--z3..z22..z23--z24--z20--z19..z18..z2--z0--cycle; +fill capwhy; + +capy := currentpicture; + +endchar; + +beginchar("Z",5em#/6+2ss#,cap#,0); "The Letter Z"; +italcorr(ex#*slant); + +z0 = (ss+ssslant,h); +z1 = (w-ss,h); +z3 = (ss,0); +z4 = (w-ss-ssslant,0); +z9 = z0 shifted (lserw,-thinstroke); +z10 = z1 shifted (-1.2curvwid,-thinstroke); +z11 = z3 shifted (1.2curvwid,thinstroke); +z12 = z4 shifted (-lserw,thinstroke); + +lftdownsideserif(0,5,6); +upsideserif(4,7,8); + +fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle; + +capz := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"121",5em#/6+2ss#,cap#,0); "The Letter X"; +italcorr(ex#*slant); + +z0 = (w/2,h/2); +z1 = (ss+userw,h-userh); +z2 = (w-ss-userw,h-userh); +z3 = (ss+lserw,lserh); +z4 = (w-ss-lserw,lserh); +z5 = z1 shifted (slantwid,0); +z6 = z4 shifted (-slantwid,0); +z7 = z2 shifted (-thinstroke,0); +z8 = z3 shifted (thinstroke,0); +z41 = aa[z1,z6]; +z41 = ab[z7,z3]; +z42 = ac[z5,z4]; +z42 = ad[z7,z3]; +z43 = ae[z8,z2]; +z43 = af[z6,z1]; +z44 = ag[z8,z2]; +z44 = ah[z5,z4]; + +ulserif(1,9,10,11,12)(1); +urserif(5,13,14,15,16)(1); +ulserif(7,17,18,19,20)(1); +urserif(2,21,22,23,24)(1); +llserif(3,25,26,27,28)(1); +lrserif(8,29,30,31,32)(1); +llserif(6,33,34,35,36)(1); +lrserif(4,37,38,39,40)(1); + +path capchi; capchi = +z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..z1--cycle; +fill capchi; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"026",7em#/6+2ss#,cap#,0); "OT ligature"; +italcorr(ex#*slant); + +z1=(ss+3em/6+userh,h); +z2=z1-(0,thinstroke); +z3=(w-ss-userh,h); +z4=z3-(0,thinstroke); +z5=(4.5em/6-thickstroke/2,y2); +z6=(4.5em/6+thickstroke/2,y2); +z7=(x5,lserh); +z8=z7+(thickstroke,0); +z25 = (x5,h); +z50 = (x7,0); + +llserif(7,9,10,11,12)(1); +lrserif(8,13,14,15,16)(1); +tlsideserif(1,17,18,19,20); +trsideserif(3,21,22,23,24); + +path halftpath; +halftpath = z50--z15--z14..z13..z8--z6--z4---{down}z24..z23..tension 2..{up}z22{left}..{left}z21{down}..z3--z25--cycle; +fill halftpath; + +z31=(ss,h/2); +z32=((ss+x6)/2,h); +z33=(x5+thickstroke,h/2); +z34=((ss+x6)/2,0-o); +z35=z31 shifted (curvwid,0); +z36=z32 shifted (0,-thinstroke); +z37=z33 shifted (-curvwid,0); +z38=z34 shifted (0,thinstroke); + +path fillot; path unfillot; +fillot = z34..{up}z33---z6--z25---z32..z31..cycle; +unfillot = z38..{up}z37---z5---z36..z35..cycle; +fill fillot; +unfill unfillot; + +fill z25--z32--z36--z5--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"027",2ss#+2thinstroke#+thickstroke#+6lserw#+2hair#,cap#,0); +"Three lines down, straight"; +italcorr(ex#*slant); + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thinstroke,0); +z2 = (x1+2lserw+hair,lserh); +z3 = z2 shifted (thinstroke,0); +z4 = (w-ss-lserw,lserh); +z5 = z4 shifted (-thickstroke,0); +llserif(0,6,7,8,9)(1); +lrserif(1,10,11,12,13)(1); +llserif(2,14,15,16,17)(1); +lrserif(3,18,19,20,21)(1); +llserif(5,22,23,24,25)(1); +lrserif(4,26,27,28,29)(1); +z30 = (ss,h+o); +z31 = z30 shifted (0,-thickstroke); +z32 = z4 rotatedaround (z3,70); +z33 = z5 rotatedaround (z2,70); +z34 = z4 rotatedaround (z1,70); +z35 = z5 rotatedaround (z0,70); +z36 = (z0--z35) intersectionpoint (z5--z31); +z37 = (z1--z34) intersectionpoint (z5--z31); +z38 = (z2--z33) intersectionpoint (z5--z31); +z39 = (z3--z32) intersectionpoint (z5--z31); + +fill +z0..z6..z7--z8--z12--z11..z10..z1--z37--z38--z2..z14..z15--z16--z20--z19..z18..z3--z39--z5..z22..z23--z24--z28--z27..z26..z4--z30--z31--z36--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"030",5em#/6+2ss#,cap#,0); "The Euro sign"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+lserw,h-lserh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); + +llserif(1,12,13,14,26)(1); +ulserif(3,18,19,20,28)(1); + +y14 := y26 := y6 := 0; +y20 := y28 := y8 := h; + +fill +z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle; + +pickup pencircle scaled 1.5thinstroke; +lft z40 = (ss,0.35h); +lft z41 = (ss,0.6h); +rt z42 = (2w/3,0.35h); +rt z43 = (5w/6,0.6h); +draw z40--z42; draw z41--z43; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"303",5em#/6+2ss#,cap#,0); "Digamma"; +italcorr(ex#*slant); + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,lserh); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(w/2,y16); +z22=(w/2,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); + +draw z21--z24; + +llserif(1,12,13,14,26)(1); +lrserif(5,31,32,33,34)(1); +ulserif(3,18,19,20,28)(1); + +fill z5--z17--z22..z25..z27--z24..z23..z21--z16--z4--z9..z11..z10--z8--z20--z19..z18..z3--z1..z12..z13--z14--z33--z32..z31..z5..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmgrkligs.mf b/Master/texmf-dist/fonts/source/public/drm/drmgrkligs.mf new file mode 100644 index 00000000000..e5afc154f5d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmgrkligs.mf @@ -0,0 +1,167 @@ +% +AMDG This document was begun on 20 Jul 11EX, the feast +% of St. Christina, VM, and it is humbly dedicated to her +% and to the Immaculate Heart of Mary for their prayers, and +% to the Sacred Heart of Jesus for His mercy. + +ligtable "A" : "L" : "D" : "J" kern-0.1u#,"O" kern-0.1u#, + "T" kern-0.1u#,"U" kern-0.2u#,"F" kern-0.1u#, + "Y" kern-0.1u#,"g" kern-0.1u#,"d" kern-0.1u#, + "e" kern-0.05u#,"z" kern-0.05u#,"h" kern-0.1u#, + "j" kern-0.2u#,"n" kern-0.2u#,"x" kern-0.05u#, + "o" kern-0.05u#,"p" kern-0.05u#,"s" kern-0.05u#, + "t" kern-0.05u#,"u" kern-0.2u#,"f" kern-0.2u#, + "q" kern-0.1u#,"y" kern-0.2u#; +ligtable "B" : "J" kern 0.05u#,"O" kern 0.05u#, + "W" kern 0.05u#,"a" kern 0.05u#,"b" kern 0.05u#, + "g" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#, + "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#, + "x" kern 0.05u#,"o" kern 0.05u#,"r" kern 0.05u#, + "s" kern 0.05u#,"c" kern 0.05u#,"w" kern 0.05u#; +ligtable "G" : "A" kern-0.2u#,"D" kern-0.2u#, + "L" kern-0.2u#,"F" kern-0.05u#,"a" kern-0.2u#, + "g" kern-0.2u#,"e" kern-0.2u#,"h" kern-0.2u#, + "i" kern-0.2u#,"k" kern-0.2u#,"m" kern-0.2u#, + "n" kern-0.3u#,"o" kern-0.2u#,"p" kern-0.1u#, + "r" kern-0.2u#,"s" kern-0.2u#,"c" kern-0.2u#, + "t" kern-0.2u#,"u" kern-0.2u#,"f" kern-0.2u#, + "q" kern-0.2u#,"y" kern-0.2u#,"w" kern-0.2u#; +ligtable "E" : "g" kern-0.05u#,"n" kern -0.2u#, + "j" kern-0.05u#,"u" kern-0.2u#,"f" kern-0.1u#; +ligtable "Z" : "g" kern-0.05u#,"j" kern-0.05u#, + "n" kern-0.2u#,"u" kern-0.1u#,"f" kern-0.05u#, + "y" kern-0.05u#; +ligtable "H" : "i" kern 0.1u#,"n" kern-0.05u#, + "u" kern-0.05u#,"y" kern-0.05u#; +ligtable "J" : "O" : "A" kern-0.1u#,"B" kern-0.05u#, + "L" kern-0.1u#,"M" kern-0.05u#,"P" kern-0.05u#, + "U" kern-0.05u#,"X" kern-0.05u#,"a" kern 0.05u#, + "b" kern 0.05u#,"d" kern 0.05u#,"e" kern 0.05u#, + "z" kern 0.05u#,"i" kern 0.05u#,"k" kern 0.05u#, + "m" kern 0.05u#,"x" kern 0.05u#,"o" kern 0.05u#, + "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#, + "w" kern 0.05u#; +ligtable "I" : "j" kern-0.05u#,"n" kern-0.05u#, + "u" kern-0.05u#,"y" kern-0.05u#; +ligtable "K" : "Q" : "J" kern-0.1u#,"O" kern-0.1u#, + "F" kern-0.1u#,"Y" kern-0.05u#,"g" kern-0.1u#, + "d" kern-0.05u#,"j" kern-0.2u#,"n" kern-0.2u#, + "t" kern-0.1u#,"u" kern-0.2u#,"f" kern-0.2u#, + "q" kern-0.1u#,"u" kern-0.2u#,"y" kern-0.2u#, + "w" kern-0.05u#,"p" kern-0.1u#,"s" kern-0.1u#, + "c" kern-0.1u#,"o" kern-0.05u#; +ligtable "X" : "j" kern-0.1u#,"n" kern-0.1u#, + "u" kern-0.1u#,"y" kern-0.1u#; +ligtable "R" : "A" kern-0.1u#,"D" kern-0.1u#, + "L" kern-0.1u#,"a" kern-0.05u#,"d" kern-0.05u#, + "j" kern-0.1u#,"n" kern-0.1u#,"o" kern-0.05u#, + "r" kern-0.05u#,"s" kern-0.05u#,"c" kern-0.05u#, + "u" kern-0.01u#,"y" kern-0.05u#,"w" kern-0.05u#; +ligtable "S" : "g" kern-0.2u#,"j" kern-0.2u#, + "n" kern-0.2u#,"t" kern-0.1u#,"u" kern-0.2u#, + "f" kern-0.1u#,"q" kern-0.1u#,"y" kern-0.1u#, + "i" kern 0.05u#,"k" kern 0.05u#,"l" kern 0.05u#, + "m" kern 0.05u#; +ligtable "T" : "A" kern-0.2u#,"D" kern-0.2u#, + "L" kern-0.2u#,"F" kern-0.05u#,"a" kern-0.1u#, + "g" kern-0.2u#,"e" kern-0.1u#,"h" kern-0.1u#, + "l" kern 0.05u#,"n" kern-0.2u#,"o" kern-0.2u#, + "u" kern-0.2u#,"f" kern-0.1u#,"q" kern-0.1u#, + "y" kern-0.1u#,"w" kern-0.1u#; +ligtable "U" : "A" kern-0.2u#,"D" kern-0.2u#, + "J" kern-0.1u#,"L" kern-0.2u#,"O" kern-0.1u#, + "F" kern-0.1u#,"a" kern-0.1u#,"g" kern-0.2u#, + "e" kern-0.1u#,"h" kern-0.1u#,"j" kern-0.2u#, + "l" kern 0.05u#,"n" kern-0.2u#,"o" kern-0.2u#, + "p" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.1u#, + "c" kern-0.1u#,"t" kern-0.1u#,"u" kern-0.2u#, + "f" kern-0.2u#,"y" kern-0.2u#,"w" kern-0.2u#; +ligtable "F" : "A" kern-0.05u#,"Z" kern-0.05u#, + "L" kern-0.05u#,"S" kern-0.05u#,"T" kern-0.05u#, + "U" kern-0.05u#,"Q" kern-0.1u#,"a" kern 0.05u#, + "b" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#, + "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#, + "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#, + "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#, + "t" kern 0.05u#,"w" kern 0.05u#; +ligtable "Y" : "A" kern-0.1u#,"L" kern-0.1u#; +ligtable "W" : "J" kern 0.1u#,"O" kern 0.1u#, + "F" kern 0.1u#,"W" kern 0.1u#; +ligtable "a" : "j" kern-0.1u#,"n" kern-0.1u#, + "u" kern-0.1u#; +ligtable "b" : "j" kern-0.1u#,"n" kern-0.1u#; +ligtable "g" : "i" kern 0.1u#,"k" kern 0.1u#, + "m" kern 0.1u#,"x" kern 0.1u#; +ligtable "d" : "a" kern 0.1u#,"b" kern 0.1u#, + "g" kern-0.1u#,"d" kern 0.1u#,"e" kern 0.1u#, + "z" kern 0.1u#,"j" kern-0.1u#,"i" kern 0.1u#, + "k" kern 0.1u#,"m" kern 0.1u#,"n" kern-0.1u#, + "x" kern 0.1u#,"o" kern 0.1u#,"r" kern 0.1u#, + "s" kern 0.1u#,"c" kern 0.1u#,"u" kern-0.1u#, + "y" kern-0.1u#; +ligtable "e" : "j" kern-0.1u#,"m" kern 0.1u#, + "n" kern-0.1u#,"u" kern-0.1u#; +ligtable "z" : "g" kern-0.1u#,"h" kern-0.1u#, + "j" kern-0.1u#,"n" kern-0.1u#,"s" kern-0.05u#, + "t" kern-0.05u#,"u" kern-0.1u#,"f" kern-0.1u#, + "y" kern-0.1u#; +ligtable "h" : "j" kern-0.1u#,"n" kern-0.05u#, + "u" kern-0.1u#; +ligtable "j" : "j" kern-0.1u#,"n" kern-0.1u#, + "u" kern-0.1u#; +ligtable "i" : "h" kern 0.1u#,"j" kern-0.1u#, + "i" kern 0.1u#,"k" kern 0.1u#,"m" kern 0.1u#, + "x" kern 0.1u#,"o" kern 0.1u#; +ligtable "k" : "j" kern-0.1u#,"n" kern-0.1u#, + "u" kern-0.1u#; +ligtable "l" : "a" kern 0.1u#,"b" kern 0.1u#, + "g" kern-0.05u#,"i" kern 0.1u#,"k" kern 0.1u#, + "m" kern 0.1u#,"n" kern-0.1u#,"r" kern 0.1u#, + "u" kern-0.05u#; +ligtable "n" : "a" kern 0.05u#,"b" kern 0.05u#, + "d" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#, + "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#, + "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#, + "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#, + "t" kern 0.05u#,"f" kern 0.05u#,"w" kern 0.05u#; +ligtable "x" : "g" kern-0.1u#,"j" kern-0.1u#, + "n" kern-0.1u#,"o" kern-0.05u#,"u" kern-0.1u#, + "f" kern-0.05u#,"y" kern-0.05u#; +ligtable "o" : "n" kern-0.1u#,"u" kern-0.1u#, + "y" kern-0.05u#; +ligtable "p" : "j" kern-0.1u#,"n" kern-0.1u#, + "u" kern-0.1u#,"y" kern-0.1u#; +ligtable "r" : "j" kern-0.1u#,"n" kern-0.1u#, + "u" kern-0.1u#,"y" kern-0.1u#; +ligtable "s" : "a" kern 0.05u#,"b" kern 0.05u#, + "d" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#, + "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#, + "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#, + "s" kern 0.05u#,"c" kern 0.05u#,"w" kern 0.05u#; +ligtable "t" : "j" kern-0.1u#,"n" kern-0.1u#, + "u" kern-0.1u#; +ligtable "u" : "a" kern 0.05u#,"b" kern 0.05u#, + "d" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#, + "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#, + "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#, + "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#, + "t" kern 0.05u#,"w" kern 0.05u#; +ligtable "f" : "a" kern 0.05u#,"b" kern 0.05u#, + "d" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#, + "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#, + "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#, + "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#, + "t" kern 0.05u#,"w" kern 0.05u#; +ligtable "q" : "b" kern 0.05u#,"m" kern 0.05u#, + "n" kern-0.05u#,"u" kern-0.05u#,"y" kern-0.05u#; +ligtable "y" : "a" kern 0.05u#,"b" kern 0.05u#, + "d" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#, + "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#, + "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#, + "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#, + "t" kern 0.05u#,"w" kern 0.05u#; +ligtable "w" : "a" kern 0.05u#,"b" kern 0.05u#, + "d" kern 0.05u#,"e" kern 0.05u#,"z" kern 0.05u#, + "i" kern 0.05u#,"k" kern 0.05u#,"m" kern 0.05u#, + "x" kern 0.05u#,"o" kern 0.05u#,"p" kern 0.05u#, + "r" kern 0.05u#,"s" kern 0.05u#,"c" kern 0.05u#, + "t" kern 0.05u#,"w" kern 0.05u#; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmgrklow.mf b/Master/texmf-dist/fonts/source/public/drm/drmgrklow.mf new file mode 100644 index 00000000000..4b0982e827a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmgrklow.mf @@ -0,0 +1,796 @@ +% +AMDG This document was begun on 26 June 11EX, the +% Commemoration of St. Paul and St. Peter, and it is humbly +% dedicated to them and to the Immaculate Heart of Mary for +% their prayers, and to the Sacred Heart of Jesus for His +% mercy. + +def topcurl(suffix i,j,k) = + top z.j = z.i shifted (-curlw,curlh); + z.k = z.j shifted (-curlw/2,-curlh); + penpos.j(thickl/2,90); + penpos.k(thinl,180); +enddef; +def botcurl(suffix i,j,k) = + bot z.j = z.i shifted (curlw,-curlh); + z.k = z.j shifted (curlw/2,curlh); + penpos.j(thickl/2,90); + penpos.k(thinl,180); +enddef; + +beginchar(oct"141",ex#+2ss#,ex#,0); "The letter alpha"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +penpos0(thinl,90); +bot z0 = (w-ss,0-o); +penpos1(thinl,90); +bot z1 = (w-ss-w/12,0-o); +penpos2(thickl,45); +z2r = z1r; +penpos3(thickl,0); +z3r = (x1r,h/2); +penpos4(thinl,90); +z4r = (w/2,h+o); +penpos5(thickl,180); +z5r = (ss,h/2); +penpos6(thinl,270); +z6r = (w/2,0-o); +penpos7(thinl,270); +z7l = (w-ss,h); +penpos8(thickl,0); +z8 = z3; + +penstroke z0e..z1e..z2e---z3e..z4e..z5e..z6e..{up}z8e{up}..{right}z7e; + +picture alpha; alpha := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"142",ex#+2ss#,asch#,dep#); "The letter beta"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,-dep); +penpos1(thickl,0); +z1l = (ss+hair,0); +penpos2(thickl,0); +z2l = (ss+hair,3h/4); +penpos3(thinl,-90); +z3l = (w/2,h+o); +penpos4(curvl,180); +z4l = (w-ss-hair,y2); +penpos5(thinl,90); +z5 = (x2r,h/2); +penpos6(curvl,0); +z6r = (w-ss,h/4); +penpos7(thinl,-90); +z7r = z1r; + +penstroke z0e..z1e..z2e..z3e..z4e..{left}z5e;% +penstroke z5e{right}..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"147",1.2ex#+2ss#,ex#,dep#); "The letter gamma"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,3h/4); +penpos1(thinl,-135); +z1l = (w/4,h+o); +penpos2(thickl,200); +z2 = (w/2,0); +penpos3(thickl,180); +z3 = (w/3,-dep); +penpos4(thinl,135); +z4l = (w-ss,h); +penpos5(thickl,135); +z5 = z2; + +penstroke z0e..z1e{dir 0}..z2e..z3e;% +penstroke z5e{dir 45}..z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"144",ex#+2ss#,asch#,0); "The letter delta"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0r = (w-ss,4h/5); +penpos1(thinl,90); +z1r = (w/2,h+o); +penpos2(thickl,180); +z2r = (w/4,4h/5); +penpos3(curvl,180); +z3l = (w-ss,h/4); +penpos4(thinl,90); +z4l = (w/2,0-o); +penpos5(curvl,0); +z5l = (ss,h/4); +penpos6(thinl,-90); +z6 = (w/2,h/2); + +penstroke z0e..z1e..z2e..{down}z3e..z4e..z5e..z6e..z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"145",0.8ex#+2ss#,ex#,0); "The letter epsilon"; +italcorr(ex#*slant); + +penpos0(thinl,-90); +z0l = (w-ss,h+o); +penpos1(curvl,0); +z1l = (ss,h/2); +penpos2(thinl,90); +z2l = (w-ss,0-o); +penpos4(1.5thinl,45); +z4 = z1; +penpos3(1.5thinl,45); +x3r = w-ss; y3r = y4r; + +penstroke z0e{left}..{down}z1e{down}..{right}z2e; +penstroke z3e--z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"172",ex#+2ss#,asch#,dep#); "The letter zeta"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0 = (w/2,h+o); +penpos1(1.5thinl,90); +z1 = (3w/4,6h/8); +penpos2(1.5thinl,180); +z2l = (w-ss,7h/8); +penpos3(1.5thinl,-90); +z3 = (x1,15h/16); +penpos4(curvl,0); +z4l = (ss,h/2); +penpos5(curvl,90); +z5l = (w/2,0-o); +penpos6(1.5thinl,0); +z6r = (w-ss,-dep/3); +penpos7(thickl,-90); +z7r = (w/2,-dep); + +penstroke z0e..z1e..z2e..z3e{left}..z4e..{right}z5e{right}..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"150",ex#+2ss#,ex#,dep#); "The letter eta"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,4h/5); +penpos1(thinl,-90); +z1l = (x0r+hair,h+o); +penpos3(thickl,180); +z3r = (x1r+hair,3h/4); +penpos2(thickl,180); +z2r = (x3r,0); +penpos5(thickl,0); +z5r = (w-ss,3h/4); +penpos4(thinl,90); +z4r = ((x3+x5)/2,h+o); +penpos6(thickl,0); +z6 = (x5,-dep); + +penstroke z0e..z1e..z3e---z2e; +penstroke z2e---z3e..z4e..z5e---z6e; + +picture eta; eta := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"152",ex#+2ss#,asch#,0); "The letter theta"; +italcorr(ex#*slant); + +penpos0(curvl,0); +z0l = (ss,h/2); +penpos1(thinl,-90); +z1l = (w/2,h+o); +penpos2(curvl,180); +z2l = (w-ss,h/2); +penpos3(thinl,90); +z3l = (w/2,0-o); +penpos4(1.5thinl,90); +z4 = z0; +penpos5(1.5thinl,90); +z5 = z2; + +penstroke z0e..z1e..z2e..z3e..cycle; +penstroke z4e--z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"151",0.4ex#+2ss#,ex#,0); "The letter iota"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,h); +penpos1(thickl,0); +z1l = (ss,h/5); +penpos2(thinl,90); +z2l = (x1r+hair,0-o); +penpos3(1.5thinl,180); +z3r = (x2r+hair,y1); + +penstroke z0e---z1e..z2e..{up}z3e; + +picture iota; iota := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"153",ex#+2ss#,ex#,0); "The letter kappa"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,h); +penpos1(thickl,0); +z1l = (ss,0); +penpos3(1.5thinl,0); +z3r = (w-ss-1.5thinl,h+o); +penpos4(1.5thinl,-90); +z4 = (x0r,h/2); +penpos5(thickl,0); +z5r = (3w/4,h/5); +penpos6(1.5thinl,45); +z6 = (w/2,h/2); +penpos7(thinl,90); +z7 = z4; +penpos8(1.5thinl,90); +z8l = (x5r+hair,0-o); +penpos9(1.5thinl,180); +z9l = (w-ss,h/5); + +penstroke z0e--z1e; +penstroke z3e--z4e; +penstroke z7e..z6e..z5e..z8e..z9e; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"154",ex#+2ss#,asch#,0); "The letter lambda"; +italcorr(ex#*slant); + +penpos0(1.5thinl,0); +z0l = (ss,0); +penpos1(1.5thinl,-45); +z1 = (w/2,h/2); +penpos2(thickl,0); +z2l = (ss,h); +penpos3(thickl,45); +z3 = z1; +penpos4(thickl,0); +z4r = (w-ss,0); + +penstroke z2e{down}..z3e..z4e; +penstroke z0e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"155",ex#+2ss#,ex#,dep#); "The letter mu"; +italcorr(ex#*slant); + +penpos0(thickl,180); +z0r = (ss,-dep); +penpos1(thickl,180); +z1r = (ss,h); +penpos2(thickl,180); +z2r = (ss,curlh); +penpos4(thickl,0); +z4l = (w-ss-2curlw,y2); +penpos5(thickl,0); +z5l = (w-ss-2curlw,h); +penpos3(thinl,-90); +z3r = ((x2+x4)/2,0-o); +botcurl(4,6,7); + +penstroke z0e--z1e; +penstroke z1e---z2e..z3e..z4e---z5e; +penstroke z5e--z4e..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"156",1.2ex#+2ss#,ex#,0); "The letter nu"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0 = (ss+2curlw,h-curlh); +topcurl(0,1,2); +penpos3(1.5thinl,45); +x3r = x0r; y3l = 0-o; +penpos4(thickl,180); +z4l = (w-ss,h-thinl); +penpos5(1.5thinl,-90); +z5r = z4r; +penpos6(thinl,0); +z6r = z5r; +penpos7(thinl,90); +z7r = z6r; +penpos8(1.5thinl,45); +z8r = z3r; + +penstroke z2e..z1e..z0e---z8e; +penstroke z8e..z3e{right}..{up}z4e; +penstroke z4e..z5e..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"170",ex#+2ss#,asch#,dep#); "The letter xi"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0 = (w/2,h+o); +penpos1(1.5thinl,90); +z1 = (3w/4,6h/8); +penpos2(1.5thinl,180); +z2l = (w-ss,7h/8); +penpos3(1.5thinl,-90); +z3 = (x1,15h/16); +penpos4(curvl,0); +z4l = (ss,3h/4); +penpos5(thinl,90); +z5 = (w/2,h/2-thinl); +penpos6(thinl,180); +z6 = (w/2+thickl,h/2); +penpos7(thinl,-90); +z7 = (w/2,h/2+thinl); +penpos8(curvl,0); +z8l = (ss,h/4); +penpos12(curvl,90); +z12l = (w/2,0-o); +penpos13(1.5thinl,0); +z13r = (w-ss,-dep/3); +penpos14(thickl,-90); +z14r = (w/2,-dep); + +penstroke +z0e..z1e..z2e..z3e{left}..z4e..z5e..z6e..z7e..z8e..{right}z12e{right}..z13e..z14e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"160",ex#+2ss#,ex#,0); "The letter pi"; +italcorr(ex#*slant); + +penpos0(1.5thinl,0); +z0 = (2w/3,h); +penpos1(1.5thinl,0); +z1 = (w/3,h); +penpos2(thickl,0); +z2 = (w/4,0); +penpos3(thickl,0); +z3 = (3w/4,0); +penpos4(thinl,90); +z4 = (ss,h-curlh); +penpos5(thickl,90); +z5r = (ss+curlw,h+o); +penpos6(thickl,90); +z6r = (w-ss,h+o); + +penstroke z4e..z5e---z6e; +penstroke z1e{down}..z2e; +penstroke z0e{down}..z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"162",ex#+2ss#,ex#,dep#); "The letter rho"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,-dep); +penpos1(thickl,0); +z1l = (ss,h/2); +penpos2(thinl,-90); +z2l = (w/2,h+o); +penpos3(curvl,180); +z3l = (w-ss,h/2); +penpos4(thinl,90); +z4l = (w/2,0-o); + +penstroke z0e---z1e..z2e..z3e..z4e..z1e; + +picture rho; rho := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"163",ex#+2ss#,ex#,0); "The letter sigma"; +italcorr(ex#*slant); + +penpos0(1.5thinl,-90); +z0l = (w,h+o); +penpos1(thickl,0); +z1l = (ss,h/2); +penpos2(thinl,-90); +z2l = (w/2,h+o); +penpos3(curvl,180); +z3l = (w-ss,h/2); +penpos4(thinl,90); +z4l = (w/2,0-o); +penpos5(1.5thinl,-90); +z5l = z2l; + +penstroke z1e..z2e..z3e..z4e..cycle; +penstroke z1e..z5e---z0e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"164",ex#+2ss#,ex#,0); "The letter tau"; +italcorr(ex#*slant); + +penpos0(1.5thinl,0); +z0 = (w/2,h); +penpos1(1.5thinl,0); +z1 = (w/2,0); +penpos4(thinl,90); +z4 = (ss,h-curlh); +penpos5(thickl,90); +z5r = (ss+curlw,h+o); +penpos6(thickl,90); +z6r = (w-ss,h+o); + +penstroke z4e..z5e---z6e; +penstroke z0e{down}..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"165",1.2ex#+2ss#,ex#,0); "The letter upsilon"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0 = (ss+2curlw,h-curlh); +topcurl(0,1,2); +penpos3(1.5thinl,90); +x3r = w/2; y3l = 0-o; +penpos4(thickl,180); +z4l = (w-ss,h-thinl); +penpos5(1.5thinl,-90); +z5r = z4r; +penpos6(thinl,0); +z6r = z5r; +penpos7(thinl,90); +z7r = z6r; +penpos8(1.5thinl,90); +z8r = z3r; +penpos9(1.5thinl,0); +z9 = (x0,curlh); + +penstroke z2e..z1e..z0e{down}..z9e..{right}z8e{right}..{up}z4e; +penstroke z4e..z5e..z6e..z7e; + +picture upsilon; upsilon := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"146",1.2ex#+2ss#,asch#,dep#); "The letter phi"; +italcorr(ex#*slant); + +penpos1(thickl,0); +z1l = (ss,ex/2); +penpos2(thinl,-90); +z2l = (w/2,ex+o); +penpos3(curvl,180); +z3l = (w-ss,ex/2); +penpos4(thinl,90); +z4l = (w/2,0-o); + +penstroke z1e..z2e..z3e..z4e..cycle; +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z5 = (ss,-dep); +draw z0--z5; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"161",1.4ex#+2ss#,ex#,dep#); "The letter chi"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (ss,h-curlh); +penpos1(thickl,90); +z1r = (ss+curlw,h); +penpos2(thickl,0); +z2 = (w/2,(h+dep)/2-dep); +penpos3(thickl,90); +z3l = (w-ss-curlw,-dep); +penpos4(thinl,90); +z4l = (w-ss,-dep+curlh); +penpos5(thinl,-135); +z5l = (w-ss,h-curlh/2); +penpos6(thinl,-90); +z6l = (w-ss-0.7curlw,h+o); +penpos7(1.5thinl,0); +z7 = z2; +penpos8(thinl,-90); +z8r = (ss+0.7curlw,-dep); +penpos9(thinl,-135); +z9r = (ss,-dep+curlh/2); + +penstroke z0e..z1e..z2e..z3e..z4e; +penstroke z5e..z6e..tension 2.5..z7e; +penstroke z9e..z8e..tension 2.5..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"171",1.2ex#+2ss#,asch#,dep#); "The letter psi"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0 = (ss+2curlw,ex-curlh); +topcurl(0,1,2); +penpos3(1.5thinl,90); +x3r = w/2; y3l = 0-o; +penpos4(thickl,180); +z4l = (w-ss,ex-thinl); +penpos5(1.5thinl,-90); +z5r = z4r; +penpos6(thinl,0); +z6r = z5r; +penpos7(thinl,90); +z7r = z6r; +penpos8(1.5thinl,90); +z8r = z3r; +penpos9(1.5thinl,0); +z9 = (x0,curlh); + +penstroke z2e..z1e..z0e{down}..z9e..{right}z8e{right}..{up}z4e; +penstroke z4e..z5e..z6e..z7e; +pickup pencircle scaled 1.5thinl; +top z10 = (w/2+1.5thinl,h+o); +bot z11 = (w/2+1.5thinl,-dep); +draw z10--z11; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"167",1.5ex#+2ss#,ex#,0); "The letter omega"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss+w/5,h); +penpos1(curvl,0); +z1l = (ss,h/2); +penpos2(thinl,90); +z2l = (w/3,0-o); +penpos3(1.5thinl,180); +z3 = (w/2,h/2); +penpos4(thinl,-90); +z4r = (2w/3,0-o); +penpos5(curvl,0); +z5r = (w-ss,h/2); +penpos6(thinl,0); +z6r = (w-ss-w/5,h); + +penstroke z0e..z1e..z2e{right}..z3e; +penstroke z3e..{right}z4e..z5e..z6e; + +picture omlow; omlow := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"145",0.8ex#+2ss#,ex#,0); "The letter varepsilon"; +italcorr(ex#*slant); + +penpos0(1.5thinl,225); +z0l = (w-ss,h-curlh); +penpos1(thickl,0); +z1l = (ss,3h/4); +penpos2(thinl,135); +z2l = (w-ss,curlh); +penpos3(thickl,0); +z3l = (ss,h/4); +penpos4(thinl,90); +z4 = (w/2-thinl,h/2-thinl); +penpos5(thinl,-90); +z5 = (w/2-thinl,h/2+thinl); +penpos6(thinl,180); +z6 = (w/2+thinl,h/2); +penpos7(thinl,-90); +z7l = (w/2,h+o); +penpos8(thinl,90); +z8l = (w/2,0-o); + +penstroke z0e..z7e..z1e..z4e..z6e..z5e..z3e..z8e..z2e; + +picture epsilon; epsilon := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"152",1.2ex#+2ss#,asch#,0); "The letter vartheta"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0 = (w-ss,ex); +penpos1(thinl,0); +z1 = (w/4,ex+((h-ex)/2)); +penpos2(thinl,-90); +z2l = (w/2,h+o); +penpos3(2thinl,180); +z3 = (3w/4,y1); +penpos4(thickl,180); +z4 = (x3,2curlh); +penpos6(thickl,0); +z6l = (ss+1.5curlw,y4); +penpos5(thinl,90); +z5l = ((x6+x4)/2,0-o); +penpos7(thickl,0); +z7 = (x6,ex-1.5curlh); +topcurl(7,8,9); + +penstroke +z0e{left}..z1e..z2e..z3e---z4e..z5e..z6e---z7e..z8e..z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"255",1.5ex#+2ss#,ex#,0); "The letter varpi"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss+2w/5,h); +penpos1(curvl,0); +z1l = (ss+hair,h/2); +penpos2(thinl,90); +z2l = (w/3,0-o); +penpos3(1.5thinl,180); +z3 = (w/2,h/2); +penpos4(thinl,-90); +z4r = (2w/3,0-o); +penpos5(curvl,0); +z5r = (w-ss-hair,h/2); +penpos6(thinl,0); +z6r = (w-ss-2w/5,h); + +penstroke z0e..z1e..z2e{right}..z3e; +penstroke z3e..{right}z4e..z5e..z6e; +penpos7(thinl,90); +z7 = (ss,h-curlh); +penpos8(thickl,90); +z8r = (ss+curlw,h+o); +penpos9(thickl,90); +z9r = (w-ss,h+o); +penstroke z7e..z8e---z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"143",ex#+2ss#,ex#,dep#); "The letter varsigma"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0r = (w-ss,h-curlh); +penpos1(thinl,90); +z1r = (w-ss-curlw,h+o); +penpos2(1.5thinl,90); +z2r = (ss+1.5curlw,h+o); +penpos3(curvl,180); +z3r = (ss,h/2); +penpos4(1.5thinl,-90); +z4r = (w/2,0-o); +penpos5(1.5thinl,180); +z5l = (w-ss,0-curlh); +penpos6(thinl,90); +z6l = (w/2,-dep); + +penstroke +z0e{up}..z1e..z2e..{down}z3e{down}..z4e{right}..z5e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"146",1.2ex#+2ss#,ex#,dep#); "The letter varphi"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos2(thickl,0); +z2 = (ss+1.5curlw,h-curlh); +topcurl(2,1,0); +penpos3(thickl,180); +z3l = (w-ss,3h/4); +penpos4(thinl,90); +z4l = ((x2+x3)/2,0-o); +penpos5(thinl,-60); +z5l = ((x4+x3)/2,h+o); +penpos6(thickl,0); +z6 = (x4,h/2); +penpos7(thickl,0); +z7 = (x6,-dep); +penpos8(thickl,0); +z8 = (x2,h/2); +penpos9(thickl,180); +z9 = (x3,h/2); + +penstroke z0e..z1e..z2e---z8e..z4e..z9e---z3e..z5e{left}..z6e---z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"157",ex#+2ss#,ex#,0); "The Letter omicron"; + +z0 = (w/2,h+o); +z1 = (w/2,-o); +z2 = (ss,h/2); +z3 = (w-ss,h/2); +z4 = z3 shifted (-curvl,0); +z5 = z2 shifted (curvl,0); +z6 = z0 shifted (0,-thinl); +z7 = z1 shifted (0,thinl); + +fill z1..z3..z0..z2..cycle; +unfill z4..z6..z5..z7..cycle; + +picture lowo; lowo := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar(oct"032",ex#+2ss#,ex#,0); "schwa"; + +z0 = (w/2,h+o); +z1 = (w/2,-o); +z2 = (w-ss,h/2); +z3 = (w-ss-hair,h/4); +z4 = (ss,h/2); +z9 = z0 shifted (0,-thinl); +z10 = z4 shifted (curvl,0); +z11 = z1 shifted (0,thinl); +z12 = z3 shifted (0,hair/2); +z13 = z12 shifted (-hair/2,0); +z14 = z2 shifted (-curvl,thinl); +z15 = z10 shifted (0,thinl); + +path lowepath; lowepath = +z2{up}..{left}z0{left}..{down}z4{down}..{right}z1{right}..z3..z12..z13{dir +-120}..{left}z11{left}..{up}z10{up}..z9..{down}z14--z15--z10--cycle; +fill lowepath rotatedaround ((w/2,h/2),180); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"223",ex#+2ss#,ex#,dep#); "Lowercase digamma"; +italcorr(ex#*slant); + +penpos0(thickl,90); +z0r = (w-ss,h+o); +penpos1(thinl,135); +x1r = w/6; y1r = h; +penpos2(thickl,180); +z2r = (w/6,-dep); +penpos3(thinstroke,75); +penpos4(1.5thinstroke,75); +z5 = (w/2,(y1+y2)/2); +z3l = (z5--(0,y5)) intersectionpoint (z0..tension 4..z1..tension 4..z2); +z4r = (3w/4,y3r); + +penstroke z0e..tension 4..z1e..tension 4..z2e; +penstroke z3e--z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmgrkpunct.mf b/Master/texmf-dist/fonts/source/public/drm/drmgrkpunct.mf new file mode 100644 index 00000000000..3866010abec --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmgrkpunct.mf @@ -0,0 +1,803 @@ +% +AMDG This document was begun on 26 April 11EX, the feast +% of St. Catherine of Siena, and it is humbly dedicated to +% her and the Immaculate Heart of Mary for their prayers, +% and to the Sacred Heart of Jesus for His mercy. + +picture hyphen; +picture paren; +picture period; +picture opendoublequote; +picture questionmark; +picture bang; +picture leftsinguill; +picture leftdoubguill; +picture slash; +picture lessthan; +picture opensquare; + +beginchar(oct"056",pwid#,pwid#,0); "The period ."; + +z0 = (w/2,dotwid); +z1 = z0 shifted (dotwid,0); +z2 = z0 shifted (0,dotwid); +z3 = z0 shifted (-dotwid,0); +z4 = z0 shifted (0,-dotwid); + +path period; +period = z1..z2..z3..z4..cycle; +fill period; + +%period := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"046",pwid#,pwid#,0); "Raised, smaller dot"; + +z0 = (w/2,dotwid); +z1 = z0 shifted (dotwid,0); +z2 = z0 shifted (0,dotwid); +z3 = z0 shifted (-dotwid,0); +z4 = z0 shifted (0,-dotwid); + +path period; +period = z1..z2..z3..z4..cycle; +fill period scaled 0.75 shifted (0,ex-2dotwid); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"073",pwid#,pwid#,0); "Raised, period-sized dot"; + +z0 = (w/2,dotwid); +z1 = z0 shifted (dotwid,0); +z2 = z0 shifted (0,dotwid); +z3 = z0 shifted (-dotwid,0); +z4 = z0 shifted (0,-dotwid); + +path period; +period = z1..z2..z3..z4..cycle; +fill period shifted (0,ex-2dotwid); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"054",pwid#,pwid#,0); "The comma ,"; + +z0 = (w/2,dotwid); +z1 = z0 shifted (dotwid,0); +z2 = z0 shifted (0,dotwid); +z3 = z0 shifted (-dotwid,0); +z4 = z0 shifted (0,-dotwid/2); +z5 = z3 shifted (-dotwid/2,-3dotwid); +z6 = z1 shifted (-o,-2.0dotwid); + +path commapost; +commapost = z4..{dir -165}z5{right}..z6..z1..z2..z3..z4--cycle; +fill commapost; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"035",pwid#,cap#,0); "The apostrophe"; + +fill commapost shifted (0,h-2dotwid+o/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"074",pwid#,cap#,0); "rough breathing"; + +fill commapost shifted (0,h-2dotwid+o/2) + reflectedabout ((w/2,h),(w/2,0)); +picture roughbreath; +roughbreath := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"076",pwid#,cap#,0); "The apostrophe"; + +fill commapost shifted (0,h-2dotwid+o/2); + +picture smoothbreath; smoothbreath := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +thinwid# = 0.4pt#; +define_pixels(thinwid); + +beginchar("-",2pwid#,ex#,0); "The hyphen, -"; + +z0 = (ss,3h/4); +z1 = (w-ss,y0); +z2 = z0 shifted (thinwid/2,thinwid/2); +z3 = z2 shifted (0,-thinwid); +z4 = z1 shifted (-thinwid/2,thinwid/2); +z5 = z4 shifted (0,-thinwid); + +fill z2..z0..z3--z5..z1..z4--cycle; + +hyphen := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"177",2pwid#,ex#,0); "The break hyphen, -"; +currentpicture := hyphen; +endchar; + +beginchar(oct"000",3pwid#,ex#,0); "The en-dash, --"; + +z0 = (ss,3h/4); +z1 = (w-ss,y0); +z2 = z0 shifted (thinwid/2,thinwid/2); +z3 = z2 shifted (0,-thinwid); +z4 = z1 shifted (-thinwid/2,thinwid/2); +z5 = z4 shifted (0,-thinwid); + +fill z2..z0..z3--z5..z1..z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"177",em#+2ss#,ex#,0); "The em-dash, ---"; + +z0 = (ss,3h/4); +z1 = (w-ss,y0); +z2 = z0 shifted (thinwid/2,thinwid/2); +z3 = z2 shifted (0,-thinwid); +z4 = z1 shifted (-thinwid/2,thinwid/2); +z5 = z4 shifted (0,-thinwid); + +fill z2..z0..z3--z5..z1..z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"050",1.5pwid#,cap#,dep#); "The open parenthesis, ("; + +z0 = (w,h+o); +z1 = (w,-dep-o); +z2 = (ss,(h-dep)/2); +z3 = z2 shifted (thickl,0); + +path theparen; theparen = z1{dir 150}..{up}z3{up}..{dir 30}z0{dir + 200}..{down}z2{down}..{dir -20}z1..cycle; +fill theparen; + +paren := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"051",1.5pwid#,cap#,dep#); "The close parenthesis, )"; + +currentpicture := paren rotatedaround ((w/2,(h-dep)/2),180); + +endchar; + +beginchar(oct"072",pwid#,ex#,0); "The colon, :"; + +fill period; +fill period shifted (0,ex-2dotwid-o); + +endchar; + +beginchar(oct"077",pwid#,ex#,0); "The semicolon, ;"; + +fill period shifted (0,ex-2dotwid-o); +fill commapost; + +endchar; + +beginchar(oct"034",pwid#,cap#,0); "The open quote, `"; + +fill commapost rotatedaround ((w/2,h/2),180) + shifted (0,-0.5pwid); + +endchar; + +beginchar(oct"020",1.75pwid#,cap#,0); "The open double quote, ``"; + +fill commapost rotatedaround ((w/2,h/2),180) + shifted (0,-2dotwid); +fill commapost rotatedaround ((w/2,h/2),180) + shifted (-0.75pwid,-2dotwid); + +opendoublequote := currentpicture; + +endchar; + +beginchar(oct"021",1.75pwid#,cap#,0); "The close double quote, ''"; + +fill commapost shifted (0pwid,h-2dotwid); +fill commapost shifted (0.75pwid,h-2dotwid); + +endchar; + +beginchar(oct"255",1.75pwid#,cap#,0); "The baseline open double quote, ,,"; + +fill commapost shifted (0pwid,0); +fill commapost shifted (0.75pwid,0); + +endchar; + +beginchar(oct"041",1.5pwid#,cap#,0); "The exclamation point, !"; + +z0 = (w/2-thickl/2,h); +z1 = z0 shifted (thickl/2,o); +z2 = z0 shifted (thickl,0); +z3 = (x0+o,3dotwid); +z4 = (x2-o,y3); +z5 = 0.5[z3,z4] shifted (0,-o); + +fill z0..z1..z2--z4..z5..z3--cycle; +fill fullcircle scaled 2dotwid shifted (x5,dotwid); + + +bang := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"275",1.5pwid#,cap#,dep#); "The reverse exclamation point"; + +currentpicture := bang rotatedaround ((w/2,(h-dep)/2),180); + +endchar; + +beginchar(oct"255",pwid#+2ss#,ex#,0); "Left single guillemet"; + +z0 = (o,h/2); +z1 = (w-3o,7h/8); +z2 = (w-3o,h/8); +z3 = 0.5[z0,z1]; +z4 = 0.5[z0,z2]; +z5 = 0.1[z3,z2]; +z6 = 0.1[z4,z1]; +z7 = z0 shifted (curvl,0); +z8 = 0.5[z3,z12]; +z9 = 0.5[z4,z12]; +z10 = z1 shifted (2o,0); +z11 = z2 shifted (2o,0); +z12 = (w,h/2); + +path guillone; path guilltwo; +guillone = z0{dir 10}..z5..{dir 60}z1..z10{dir -100}..z8..z7--cycle; +guilltwo = z0{dir -10}..z6..{dir -60}z2..z11{dir 100}..z9..z7--cycle; +fill guillone; fill guilltwo; + +leftsinguill := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"255",pwid#+2ss#,ex#,0); "Right single guillemet"; + +fill guillone reflectedabout ((w/2,0),(w/2,h)); +fill guilltwo reflectedabout ((w/2,0),(w/2,h)); + +endchar; + +beginchar(oct"173",1.5pwid#+2ss#,ex#,0); "Left double guillemet"; + +fill guillone shifted (-o/2,0); +fill guillone shifted (pwid/2+o/2,0); +fill guilltwo shifted (-o/2,0); +fill guilltwo shifted (pwid/2+o/2,0); + +leftdoubguill := currentpicture; + +endchar; + +beginchar(oct"175",1.5pwid#+2ss#,ex#,0); "Right double guillemet"; + +fill guillone shifted (-o/2,0) + rotatedaround ((w/2,h/2),180); +fill guillone shifted (pwid/2+o/2,0) + rotatedaround ((w/2,h/2),180); +fill guilltwo shifted (-o/2,0) + rotatedaround ((w/2,h/2),180); +fill guilltwo shifted (pwid/2+o/2,0) + rotatedaround ((w/2,h/2),180); + +endchar; + +beginchar(oct"255",1.4pwid#+2ss#,3ex#/4,0); "Lower 0 for pertriqua"; + +zeroh = 1.2pwid; +zerohh = 3ex/4; +z0 = (w/2,h); +z1 = z0 shifted (0,-thinl); +z2 = (w/2,0); +z3 = z2 shifted (0,thinl); +z4 = (w-ss,h/2); +z5 = z4 shifted (-1.7thinl,0); +z6 = (ss,h-zerohh/2); +z7 = z6 shifted (thinl,0); + +fill z0..z4..z2..z6..cycle; +unfill z1..z5..z3..z7..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"052",ex#,ex#,0); "Asterisk, *"; + +z0 = (w/2,h/2); +z1 = (w/2,o); +z2 = (w/2,h-o); +z3 = z1 rotatedaround (z0,60); +z4 = z3 rotatedaround (z0,60); +z5 = z4 rotatedaround (z0,120); +z6 = z5 rotatedaround (z0,60); +z7 = z6 rotatedaround (z0,60); + +pickup pencircle scaled thinl; + +draw z2--z1; +draw z4--z6; +draw z5--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"053",ex#,ex#,0); "Plus (addition) sign, +"; + +pickup pencircle scaled thinl; +top z0 = (w/2,h-o); +bot z1 = (w/2,o); +lft z2 = (o,h/2); +rt z3 = (w-o,h/2); + +draw z0--z1; +draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"057",ex#/2+2ss#,cap#,0); "The forward slash, /"; + +pickup pencircle scaled thinl; +lft z0 = (o,o); +rt z1 = (w-o,h-o); + +draw z0--z1; + +slash := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"134",ex#/2+2ss#,cap#,0); "The backslash, \"; + +currentpicture := slash reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"042",1.75pwid#,cap#,0); "straight double quote"; + +z0 = (w/2-thickl,h-o); +z1 = z0 shifted (2accwid,-2accwid); +z2 = z0 shifted (-2accwid,-2accwid); +z3 = z0 shifted (0,-1.5pwid); +z4 = z3 shifted (-accwid,o); +z5 = z3 shifted (accwid,o); + +path singquote; singquote = z2..z0..z1--z5..z3..z4--cycle; + +fill singquote; +fill singquote shifted (2thickl,0); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("#",em#+ss#,cap#,dep#); "The pound sign, #"; + +full = h+d; + +z0 = (0.33w-hair,0.25full-dep+hair) shifted (ss,ss); +z1 = (0.57w-hair,0.25full-dep+hair) shifted (ss,ss); +z2 = (0.33w+hair,0.5full-dep+hair) shifted (ss,ss); +z3 = (0.57w+hair,0.5full-dep+hair) shifted (ss,ss); +z4 = 2[z0,z2]; +z5 = 2[z2,z0]; +z6 = 2[z1,z3]; +z7 = 2[z3,z1]; +z8 = 2[z2,z3]; +z9 = 2[z3,z2]; +z10 = 2[z0,z1]; +z11 = 2[z1,z0]; + +pickup pencircle scaled thinl; + +draw z4--z5; draw z7--z6; draw z9--z8; draw z11--z10; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar("$",3em#/4+2ss#,cap#,0); "The dollar sign, $"; + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (w-ss,3h/4); +z3 = (w-ss,h/4); +z4 = (ss,3h/4); +z5 = (ss,h/4); +z6 = z4 shifted (curvl,0); +z7 = z3 shifted (-curvl,0); +z8 = z0 shifted (0,-thinl); +z9 = z1 shifted (0,thinl); + +urtbulb(2,10,11,12,13); +ulftbulb(5,14,15,16,17); + +fill +z2{up}..{left}z0{left}..{down}z4{down}..{down}z7{down}..{left}z9{left}..{dir +120}z16{right}..{up}z15{up}..{left}z14{left}..{down}z5{down}..{right}z1{right}..{up}z3{up}..{up}z6{up}..{right}z8{right}..{dir +-60}z12{left}..{down}z11{down}..{right}z10{right}..{up}cycle; + +pickup pencircle scaled 1.2thinl; + +z20 = (w/2-3thickl/4,h+o); +z21 = (w/2-3thickl/4,-o); +z22 = (w/2+3thickl/4,h+o); +z23 = (w/2+3thickl/4,-o); + +draw z20--z21; draw z22--z23; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +%beginchar("<",ex#,ex#,0); "The less than sign, <"; +% +%z0 = (2o,h/2); +%z1 = (w-2o,h-o); +%z2 = (w-2o,o); +% +%pickup pencircle scaled thinl; +% +%draw z1--z0--z2; +% +%lessthan := currentpicture; +% +%penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +%endchar; +% +%beginchar(">",ex#,ex#,0); "The greater than sign, >"; +%currentpicture := lessthan reflectedabout ((w/2,h),(w/2,0)); +%penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +%endchar; + +beginchar(oct"075",ex#,ex#,0); "The equals sign, ="; + +z0 = (2o,h/3); +z1 = (w-2o,h/3); +z2 = (2o,2h/3); +z3 = (w-2o,2h/3); + +pickup pencircle scaled thinl; + +draw z0--z1; +draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"045",5em#/6,cap#,0); "The perbiqua sign, %"; + +z0 = (0.6zeroh,h); +z1 = z0 shifted (0,-thinl); +z2 = (0.6zeroh,h-zerohh); +z3 = z2 shifted (0,thinl); +z4 = (1.2zeroh,h-zerohh/2); +z5 = z4 shifted (-1.7thinl,0); +z6 = (ss,h-zerohh/2); +z7 = z6 shifted (thinl,0); + +fill z0..z4..z2..z6..cycle; +unfill z1..z5..z3..z7..cycle; + +z10 = (w-0.6zeroh,zerohh); +z11 = z10 shifted (0,-thinl); +z12 = (w-0.6zeroh,0); +z13 = z12 shifted (0,thinl); +z14 = (w-ss,zerohh/2); +z15 = z14 shifted (-1.7thinl,0); +z16 = (w-1.2zeroh,zerohh/2); +z17 = z16 shifted (thinl,0); + +fill z10..z14..z12..z16..cycle; +unfill z11..z15..z13..z17..cycle; + +z22 = (w-ss,h); +z23 = z22 shifted (0,-thinl); +z20 = 0.5[z0,z22] shifted (0,-0.25pwid); +z21 = z20 shifted (0,-thinl); +z24 = (ss,-o); +z25 = z24 shifted (0,0.75thinl); +z26 = z24 shifted (0.75thinl,0); +z27 = z23 shifted (-1.5thinl,-hair); + +fill z0..z20..z22--z23--z26..z24..z25--z27..z21..z1--cycle; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar("[",2pwid#,cap#+ss#,dep#); "The open square bracket, ["; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thinl); +z2 = (ss,h); +z3 = z2 shifted (thinl,-thinl); +z4 = (ss,-dep); +z5 = z4 shifted (thinl,thinl); +z6 = (w-ss,-dep); +z7 = z6 shifted (0,thinl); +z8 = 0.5[z0,z1] shifted (0,0); +z9 = 0.5[z7,z6] shifted (0,0); + +path squarebrack; +squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; +fill squarebrack; + +opensquare := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar("]",2pwid#,cap#+ss#,dep#); "The close square bracket, ]"; +fill squarebrack rotatedaround ((w/2,(h-dep)/2),180); +endchar; + +beginchar("|",pwid#/2,cap#+ss#,dep#); "The pipe, |"; + +z0 = (w/2,h-o); +z1 = (w/2,-dep+o); + +pickup pencircle scaled thinl; +draw z0--z1; + +endchar; + +%beginchar("{",1.8pwid#,cap#+ss#,dep#); "The open curly bracket, {"; +% +%brackwid = 2thinl; +%toth = h+d; +%pickup pencircle xscaled brackwid yscaled (thinl); +%top rt z0 = (w-ss,h); +%bot rt z1 = (w-ss,-dep); +%lft z2 = (ss,h-toth/2); +%z3 = (3(x0-x2)/4,h-toth/4); +%z4 = (3(x0-x2)/4,h-3toth/4); +% +%path curlybrack; +%curlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; +%draw curlybrack; +% +%penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +%endchar; +% +%beginchar("}",1.8pwid#,cap#+ss#,dep#); "The close curly bracket, }"; +%pickup pencircle xscaled brackwid yscaled (thinl); +%draw curlybrack rotatedaround ((w/2,(h-dep)/2),180); +%endchar; + +beginchar(oct"255",4ex#/5,cap#,dep#); "The section symbol"; + +toth = h+d; +sh = 2toth/3-thinl+o; +z0 = (w-ss,h-sh/4); +z1 = (w/2,h+o); +z2 = z1 shifted (0,-thinl); +z3 = (ss,h-sh/4); +z4 = z3 shifted (thinl,0); +z5 = (w-ss,h-3sh/4); +z6 = z5 shifted (-thinl,0); +z7 = (w/2,h-sh); +z8 = z7 shifted (0,-thinl); +z9 = (w/2,h-sh/2+curvl/2); +z10 = z9 shifted (0,-curvl); +z11 = z0 shifted (-thinl,0); +z12 = 0.5[z0,z11] shifted (0,-o); +z13 = (ss,h-3sh/4); +z14 = z13 shifted (thinl,0); +z15 = 0.5[z13,z14] shifted (0,hair/2); + +path halfsect; +halfsect = z0{up}..{left}z1{left}..{down}z3{down}..z10..{down}z6{down}..{left}z7{left}..{up}z14..z15..{down}z13{down}..{right}z8{right}..{up}z5{up}..z9..{up}z4{up}..{right}z2{right}..{down}z11..z12..cycle; +fill halfsect; +fill halfsect shifted (0,-sh/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"277",5em#/6+2ss#,cap#,0); "The British pound sign"; + +z0 = (3w/4,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (w-ss-hair,4h/5); +z3 = z2 shifted (-thinl,0); +z4 = 0.5[z2,z3] shifted (0,-hair/2); +z5 = (0.5w,4h/5); +z6 = z5 shifted (-thickl,0); +z7 = (w/2+thickl/2,h/4); +z8 = z7 shifted (-thickl,0); +z9 = (x8-thickl,-hair/4); +z10 = z9 shifted (0,thinl); +z12 = (ss,h/5); +z13 = z12 shifted (thickl,0); +z14 = 0.5[z8,z7] shifted (0,-thinl); +z15 = z14 shifted (0,1.3thinl); +z16 = (3w/4,-hair/4); +z17 = z16 shifted (0,thinl); +z18 = (w-ss-hair,userw); +z19 = z18 shifted (0,thinl); +z20 = 0.5[z18,z19] shifted (hair,0); + +z21 = (2ss,0.6h); +z22 = (w-2ss,0.6h); + +fill +z2{up}..{left}z0{left}..z6..z8..{left}z10{left}..{up}z13{up}..z14..{right}z16{right}..z18..z20..z19{dir +200}..{left}z17{left}..z15..z12..z9..z7..z5..{right}z1{right}..{down}z3..z4..cycle; + +pickup pencircle scaled thinl; + +draw z21--z22; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"100",em#,cap#,0); "The at sign, @"; + +z0 = (w/4-o,h/2); +z1 = (3w/4-o,h/2); +z2 = (w/2-o,3h/4); +z3 = (w/2-o,h/4); +z4 = z2 shifted (0,-thinl); +z5 = z3 shifted (0,thinl); +z6 = z0 shifted (thickl,0); +z7 = z1 shifted (-0.8thickl,0); +z8 = (x7,y5+2thinl); +z9 = (x1,y5+2thinl); +z10 = (x7,y3+2thinl); +z11 = (x1,y3+2thinl); +z12 = z11 shifted (thinl,-thinl); +z13 = z12 shifted (0,-thinl); +z14 = (w-o,h/2); +z15 = z14 shifted (-thinl,0); +z16 = (w/2,h); +z17 = z16 shifted (0,-thinl); +z18 = (o,h/2); +z19 = z18 shifted (thinl,0); +z20 = (w/2,0); +z21 = z20 shifted (0,thinl); +z22 = z12 shifted (thickl,-thickl); +z23 = z22 shifted (0,-thinl); +z24 = 0.5[z22,z23] shifted (o,0); +z25 = (x7,y2-thinl/2); +z26 = (x1,y2-thinl/2); + +fill z0..z2..z1..z3..cycle; +unfill z6..z4..z7..z5..cycle; +fill +z26--z1--z11..z12..{up}z15{up}..{left}z17{left}..{down}z19{down}..{right}z21{right}..z22{dir +30}..z24..z23{dir -150}..{left}z20{left}..{up}z18{up}..{right}z16{right}..{down}z14{down}..{left}z13{left}..z10--z7--z25--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"031",7.5em#/6,cap#,0); "The pertriqua sign, %"; + +semw = 5em/6-ss; +z0 = (0.6zeroh,h); +z1 = z0 shifted (0,-thinl); +z2 = (0.6zeroh,h-zerohh); +z3 = z2 shifted (0,thinl); +z4 = (1.2zeroh,h-zerohh/2); +z5 = z4 shifted (-1.7thinl,0); +z6 = (ss,h-zerohh/2); +z7 = z6 shifted (thinl,0); + +fill z0..z4..z2..z6..cycle; +unfill z1..z5..z3..z7..cycle; + +z10 = (semw+ss-0.6zeroh,zerohh); +z11 = z10 shifted (0,-thinl); +z12 = (semw+ss-0.6zeroh,0); +z13 = z12 shifted (0,thinl); +z14 = (semw,zerohh/2); +z15 = z14 shifted (-1.7thinl,0); +z16 = (semw+ss-1.2zeroh,zerohh/2); +z17 = z16 shifted (thinl,0); + +fill z10..z14..z12..z16..cycle; +unfill z11..z15..z13..z17..cycle; + +z22 = (semw,h); +z23 = z22 shifted (0,-thinl); +z20 = 0.5[z0,z22] shifted (0,-0.25pwid); +z21 = z20 shifted (0,-thinl); +z24 = (ss,-o); +z25 = z24 shifted (0,1.00thinl); +z26 = z24 shifted (0.75thinl,0); +z27 = z23 shifted (-1.8thinl,-hair); + +fill z0..z20..z22--z23--z26..z24..z25--z27..z21..z1--cycle; + +z30 = (w-0.6zeroh,zerohh); +z31 = z30 shifted (0,-thinl); +z32 = (w-0.6zeroh,0); +z33 = z32 shifted (0,thinl); +z34 = (w-ss,zerohh/2); +z35 = z34 shifted (-1.7thinl,0); +z36 = (w-1.2zeroh,zerohh/2); +z37 = z36 shifted (thinl,0); + +fill z30..z34..z32..z36..cycle; +unfill z31..z35..z33..z37..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"006",3em#/4,cap#,0); "sort of backwards questionmark"; + +penpos0(thickl,90); +z0r = (w-ss,h+o); +penpos1(thickl,90); +z1r = (w/2,h+o); +penpos2(thinl,180); +z2r = (ss,3h/4); +penpos3(thickl,-90); +z3 = (w/2,h/2); +penpos4(thinl,-90); +z4 = (3w/4,h/2); +penpos5(thinl,0); +z5 = z3; +penpos6(thickl,0); +z6 = (w/2,h/6); +penpos7(thinl,0); +z7 = (w/2,0-o); + +penstroke z0e..z1e..z2e..z3e..z4e; +penstroke z5e..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"007",3em#/4,cap#,dep#); "S with leg"; + +penpos0(thinl,0); +z0r = (w-ss,h+thickstroke); +penpos1(thickl,-90); +z1l = (3w/4,h+o); +penpos2(thickl,-90); +z2l = (w/4,h+o); +penpos3(thinl,0); +z3l = (ss,3h/4); +penpos4(thickl,90); +z4 = (w/2,h/2); +penpos5(thinl,0); +z5l = (w-ss,h/4); +penpos6(thinl,-90); +z6r = (w/2,0-o); +penpos7(thickl,-90); +z7r = (w/4,0-o); +penpos8(1.5thinl,0); +z8 = z6; +penpos9(1.5thinl,0); +z9 = (x8,-d); +penpos10(1.5thinl,-90); +z10r = (3w/4,-dep); +penpos11(1.5thinl,-90); +z11r = z9; + +penstroke z0e..z1e..z2e..z3e..z4e..z5e..{left}z6e..z7e; +penstroke z8e--z9e; penstroke z10e--z11e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmgrkup.mf b/Master/texmf-dist/fonts/source/public/drm/drmgrkup.mf new file mode 100644 index 00000000000..5db3719543a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmgrkup.mf @@ -0,0 +1,293 @@ +% +AMDG This document was begun on 24 June 11EX, the Eve of +% the feast of Sts. Peter and Paul, and it is humbly +% dedicated to them and to the Immaculate Heart of Mary for +% their prayers, and to the Sacred Heart of Jesus for his +% mercy. + +beginchar(oct"107",5em#/6+2ss#,cap#,0); "The letter Gamma"; +italcorr(ex#*slant); + +fill capell reflectedabout ((0,h/2),(w,h/2)); + +endchar; + +beginchar(oct"104",5em#/6+2ss#,cap#,0); "The letter Delta"; +italcorr(ex#*slant); + +z0 = (ss,0-o); +z1 = (x0+1.5thinstroke,y0) rotatedaround(z0,30); +z2 = (w/2,h); +z3 = z2 shifted (0,-2thinstroke); +z4 = (w-ss-1.5thinstroke,0-o); +z5 = (x4-1.5thinstroke,y4) rotatedaround(z4,-30); +z6 = z2 shifted (thinstroke,0); +z7 = z4 shifted (thinstroke,0); + +path deltfill; deltfill = z0--z2--z4--cycle; +fill deltfill; +path deltunfill; deltunfill = z1--z3--z5--cycle; +unfill deltunfill; +path deltfilltwo; deltfilltwo = z2--z6--z7--z4--cycle; +fill deltfilltwo; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"112",5em#/6+2ss#,cap#,0); "The letter Theta"; +italcorr(ex#*slant); + +z1=(ss,h/2); +z2=(w/2,h+o); +z3=(w-ss,h/2); +z4=(w/2,0-o); +z5=z1 shifted (curvwid,0); +z6=z2 shifted (0,-thinstroke); +z7=z3 shifted (-curvwid,0); +z8=z4 shifted (0,thinstroke); + +fill z4..z3..z2..z1..cycle; +unfill z5..z6..z7..z8..cycle; +fill capeye rotated (90) xscaled 0.4 shifted (w/2+0.2cap, + h/2-lserw-thickstroke/2-ss); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"114",6em#/6+2ss#,cap#,0); "The letter Lambda"; +italcorr(ex#*slant); + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thinstroke,0); +z2 = (w-ss-lserw,lserh); +z3 = z2 shifted (-thickstroke,0); +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +llserif(3,12,13,14,15)(1); +lrserif(2,16,17,18,19)(1); +z20 = (w/2,h+o); +z24 = z20 shifted (thinstroke,0); +z25 = z20 shifted (-thickstroke,0); +z21 = (z1--z24) intersectionpoint (z3--z25); + +fill +z0..z4..z5--z6--z10--z9..z8..z1--z21--z3..z12..z13--z14--z18--z17..z16..z2--z20--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + + +beginchar(oct"130",5em#/6+2ss#,cap#,0); "The letter Xi"; +italcorr(ex#*slant); + +z0 = (ss,h-thickstroke-thinstroke); +z1 = z0 shifted (thinstroke,0); +z2 = z1 shifted (0,thinstroke); +z3 = (w-ss,h-thickstroke-thinstroke); +z4 = z3 shifted (-thinstroke,0); +z5 = z4 shifted (0,thinstroke); +z6 = (ss,h); +z7 = (w-ss,h); + +path xitop; xitop = z0--z6--z7--z3--z4--z5--z2--z1--cycle; +fill xitop; +fill xitop reflectedabout ((0,h/2),(w,h/2)); + +fill capeye rotated (90) xscaled 0.4 shifted (w/2+0.2cap, + h/2-lserw-thickstroke/2-ss); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"120",6em#/6+2ss#,cap#,0); "The letter Pi"; +italcorr(ex#*slant); + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thickstroke,0); +z2 = (w-ss-lserw,lserh); +z3 = z2 shifted (-thickstroke,0); +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +llserif(3,12,13,14,15)(1); +lrserif(2,16,17,18,19)(1); +z20 = (x0,h-lserh); +z21 = (x1,h-thinstroke); +z22 = (x3,h-thinstroke); +z23 = (x2,h-lserh); +ulserif(20,24,25,26,27)(1); +urserif(23,28,29,30,31)(1); + +fill +z0..z4..z5--z6--z10--z9..z8..z1--z21--z22--z3..z12..z13--z14--z18--z17..z16..z2--z23..z28..z29--z30--z26--z25..z24..z20--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"123",5em#/6+2ss#,cap#,0); "The letter Sigma"; +italcorr(ex#*slant); + +z0 = (w-ss,h); +z1 = (w-ss,h-thickstroke-thinstroke); +z2 = z1 shifted (-thinstroke,0); +z3 = z2 shifted (0,thinstroke); +z4 = (ss,h); +z5 = (ss,h-thickstroke); +z6 = (w/2-1.5thinstroke/2,h/2); +z7 = z6 shifted (1.5thinstroke,0); +z8 = (ss,0); +z9 = z8 shifted (0,thickstroke); +z10 = (w-ss,0); +z11 = z10 shifted (0,thickstroke+thinstroke); +z12 = z11 shifted (-thinstroke,0); +z13 = z12 shifted (0,-thinstroke); +z14 = z5 shifted (1.5thinstroke,0); +z15 = z9 shifted (1.5thinstroke,0); + +fill z11--z10--z8--z9--z6--z5--z4--z0--z1--z2--z3--z14-- + z7--z15--z13--z12--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"125",5em#/6+2ss#,cap#,0); "The letter Upsilon"; +italcorr(ex#*slant); + +fill capwhy; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"106",5em#/6+2ss#,cap#,0); "The letter Phi"; +italcorr(ex#*slant); + +fill capeye shifted (w/2-lserw-thickstroke/2-ss,0); +fill fillo yscaled 0.6 shifted (0,0.2h); +unfill unfillo yscaled 0.6 shifted (0,0.2h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"131",5em#/6+2ss#,cap#,0); "The letter Psi"; +italcorr(ex#*slant); + +fill capeye shifted (w/2-lserw-thickstroke/2-ss,0); +pickup pencircle scaled thickstroke; +penpos0(0.8thickstroke,0); +z0 = (w/4,3h/5); +penpos1(0.8thickstroke,180); +z1 = (3w/4,3h/5); +penpos2(0.8thickstroke,0); +z2 = (w/4,2h/5); +penpos3(0.8thickstroke,180); +z3 = (3w/4,2h/5); +penpos4(thinstroke,90); +z4 = (w/2,h/5); +penpos5(thinstroke,90); +z5 = (ss,4h/5); +penpos6(thinstroke,90); +z6 = (w-ss,4h/5); + +penstroke z5e..z0e..z2e..z4e..z3e..z1e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"127",5em#/6+2ss#,cap#,0); "The letter Omega"; +italcorr(ex#*slant); + +z0 = (ss,0); +z1 = (w-ss,0); +z2 = z0 shifted (thickstroke,0); +z3 = z1 shifted (-thickstroke,0); +z4 = z0 shifted (0,2lserh); +z5 = z1 shifted (0,2lserh); +z6 = z5 shifted (-lserstep,0); +z7 = z4 shifted (lserstep,0); +z8 = z2 shifted (thickstroke,0); +z9 = z3 shifted (-thickstroke,0); +z10 = (ss,h/2+2lserh); +z11 = (w-ss,h/2+2lserh); +z12 = z10 shifted (curvwid,0); +z13 = z11 shifted (-curvwid,0); +z14 = (w/2,h+o); +z15 = z14 shifted (0,-thinstroke); +z16 = z8 shifted (0,thinstroke); +z17 = z9 shifted (0,thinstroke); +z18 = z9 shifted (-thickstroke,0); +z19 = z8 shifted (thickstroke,0); + +path omega; omega = + z8--z0--z4--z7{down}..{right}z16{dir 120}..{up}z10{up}.. + {right}z14{right}..{down}z11{down}..{dir -120}z17{right}.. + {up}z6--z5--z1--z18{dir 60}..{up}z13{up}..{left}z15{left}.. + {down}z12{down}..{dir -60}z19--cycle; +fill omega; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"033",2ss#+2thinstroke#+thickstroke#+6lserw#+2hair#,cap#,0); +"Three legs down, curved"; +italcorr(ex#*slant); + +penpos0(thickl,90); +z0r = (ss,h+o); +penpos1(thickl,0); +z1r = (w-ss,0-o); +penpos2(thickl,0); +z2l = (ss,0); +penpos3(thickl,0); +z3l = (w/2,0); +z4 = z1 rotatedaround (z2,70); +z5 = (w+thickstroke,0) rotatedaround (z3,70); +penpos4(thinl,-15); +penpos5(thinl,-45); + +penstroke z0e{right}..z1e; +penstroke z2e{up}..z4e; +penstroke z3e{up}..z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +def letbox = + pickup pensquare scaled 1.5thinstroke; + bot lft z100 = (0,0); + top lft z101 = (0,h); + top rt z102 = (w,h); + bot rt z103 = (w,0); + draw z100--z101--z102--z103; +enddef; + +beginchar(oct"002",5em#/6+2ss#,cap#,0); "Delta boxed"; +italcorr(ex#*slant); + +fill deltfill scaled 0.9 shifted (0.1w-2ss,0); +unfill deltunfill scaled 0.9 shifted (0.1w-2ss,0); +fill deltfilltwo scaled 0.9 shifted (0.1w-2ss,0); +letbox; +endchar; + +beginchar(oct"003",em#+2ss#,cap#,0); "Eta boxed"; +italcorr(ex#*slant); +fill capeta scaled 0.9 shifted (0.1w-2ss,0); +letbox; +endchar; + +beginchar(oct"004",5em#/6+2ss#,cap#,0); "Chi boxed"; +italcorr(ex#*slant); +fill capchi scaled 0.9 shifted (0.1w-2ss,0); +letbox; +endchar; + +beginchar(oct"005",em#+2ss#,cap#,0); "Mu boxed"; +italcorr(ex#*slant); +fill capem scaled 0.9 shifted (0.1w-2ss,0); +letbox; +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit10.mf b/Master/texmf-dist/fonts/source/public/drm/drmit10.mf new file mode 100644 index 00000000000..f3da4f717ef --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmit10.mf @@ -0,0 +1,78 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant := 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input itoldstydigs.mf; +input drmitligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit11.mf b/Master/texmf-dist/fonts/source/public/drm/drmit11.mf new file mode 100644 index 00000000000..44a3359c4ed --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmit11.mf @@ -0,0 +1,78 @@ +% +AMDG + +font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=9pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.3pt#; +slantwid#=1.3pt#; +thickstroke#=1.1pt#; +loopgap#=1.1pt#; +thinstroke#=0.5pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input drmitligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit12.mf b/Master/texmf-dist/fonts/source/public/drm/drmit12.mf new file mode 100644 index 00000000000..ae7e9727006 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmit12.mf @@ -0,0 +1,78 @@ +% +AMDG + +font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=10pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.4pt#; +slantwid#=1.4pt#; +thickstroke#=1.2pt#; +loopgap#=1.2pt#; +thinstroke#=0.5pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input drmitligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit14.mf b/Master/texmf-dist/fonts/source/public/drm/drmit14.mf new file mode 100644 index 00000000000..f26fc82b416 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmit14.mf @@ -0,0 +1,78 @@ +% +AMDG + +font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=12pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.6pt#; +slantwid#=1.6pt#; +thickstroke#=1.4pt#; +loopgap#=1.4pt#; +thinstroke#=0.6pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input drmitligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit17.mf b/Master/texmf-dist/fonts/source/public/drm/drmit17.mf new file mode 100644 index 00000000000..750878f7f82 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmit17.mf @@ -0,0 +1,78 @@ +% +AMDG + +font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=15pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.9pt#; +slantwid#=1.9pt#; +thickstroke#=1.7pt#; +loopgap#=1.7pt#; +thinstroke#=0.8pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input drmitligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit24.mf b/Master/texmf-dist/fonts/source/public/drm/drmit24.mf new file mode 100644 index 00000000000..90310b57e78 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmit24.mf @@ -0,0 +1,78 @@ +% +AMDG + +font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=21pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=2.4pt#; +slantwid#=2.4pt#; +thickstroke#=2.2pt#; +loopgap#=1.7pt#; +thinstroke#=1.2pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input drmitligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit6.mf b/Master/texmf-dist/fonts/source/public/drm/drmit6.mf new file mode 100644 index 00000000000..7f0e50e12e9 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmit6.mf @@ -0,0 +1,78 @@ +% +AMDG + +font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1"; +pixels_per_inch:=2400; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=4pt#; +u#=2cap#/3; +em#=1.4cap#; +ex#=0.7cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.09u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.6pt#; +slantwid#=0.6pt#; +thickstroke#=0.6pt#; +loopgap#=0.6pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/16; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input drmitligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit7.mf b/Master/texmf-dist/fonts/source/public/drm/drmit7.mf new file mode 100644 index 00000000000..d35b24d80c6 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmit7.mf @@ -0,0 +1,78 @@ +% +AMDG + +font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=5pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.07u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.7pt#; +slantwid#=0.7pt#; +thickstroke#=0.7pt#; +loopgap#=0.7pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/8; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input drmitligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit8.mf b/Master/texmf-dist/fonts/source/public/drm/drmit8.mf new file mode 100644 index 00000000000..0156db5a707 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmit8.mf @@ -0,0 +1,78 @@ +% +AMDG + +font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=6pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.9pt#; +slantwid#=0.9pt#; +thickstroke#=0.8pt#; +loopgap#=0.8pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input drmitligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmit9.mf b/Master/texmf-dist/fonts/source/public/drm/drmit9.mf new file mode 100644 index 00000000000..1f3f2bda0f8 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmit9.mf @@ -0,0 +1,79 @@ +% +AMDG + +font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=7pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.0pt#; +slantwid#=0.9pt#; +thickstroke#=0.9pt#; +loopgap#=0.9pt#; +thinstroke#=0.4pt#; +o#=0.1pt#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input drmitligs.mf; + +end; + diff --git a/Master/texmf-dist/fonts/source/public/drm/drmitacclet.mf b/Master/texmf-dist/fonts/source/public/drm/drmitacclet.mf new file mode 100644 index 00000000000..1bb1a2d2014 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmitacclet.mf @@ -0,0 +1,686 @@ +% +AMDG This document was begun on 1E May 11EX, and it is +% humbly dedicated to the Immaculate Heart of Mary for her +% prayers, and to the Sacred Heart of Jesus for His mercy. + +beginchar(oct"350",ex#+2ss#,ex#,0); "The letter egrave"; + +currentpicture := lowe + grave shifted + (w/2-1.5pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"351",ex#+2ss#,ex#,0); "The letter eacute"; + +currentpicture := lowe + acute shifted + (w/2-1.5pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"354",0.6ex#+2ss#,ex#,0); "the letter igrave"; +currentpicture := dotlessi + grave shifted + (w/2-1.5pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"355",0.6ex#+2ss#,ex#,0); "the letter iacute"; +currentpicture := dotlessi + acute shifted + (w/2-1.5pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"356",0.6ex#+2ss#,ex#,0); "the letter icirc"; +currentpicture := dotlessi + circumflex shifted + (w/2-1.5pwid,-(cap-ex)+1.5pwid); +endchar; + +beginchar(oct"357",0.6ex#+2ss#,ex#,0); "dotless i with diaresis"; + +currentpicture := dotlessi + diaresis shifted + (w/2-1.5pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"352",ex#+2ss#,ex#,0); "e with circumflex"; + +currentpicture := lowe + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"353",ex#+2ss#,ex#,0); "e with diaresis"; + +currentpicture := lowe + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"362",ex#+2ss#,ex#,0); "the letter ograve"; + +currentpicture := lowo + grave shifted + (w/2-1.5pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"363",ex#+2ss#,ex#,0); "the letter oacute"; + +currentpicture := lowo + acute shifted + (w/2-1.5pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"366",ex#+2ss#,ex#,0); "o with diaresis"; + +currentpicture := lowo + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"365",ex#+2ss#,ex#,0); "o with tilde"; + +currentpicture := lowo + tilde shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"364",ex#+2ss#,ex#,0); "o with circumflex"; + +currentpicture := lowo + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"340",1.3ex#+2ss#,ex#,0); "The letter agrave"; + +currentpicture := lowa + grave shifted + (w/2-1.5pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"341",1.3ex#+2ss#,ex#,0); "The letter aacute"; + +currentpicture := lowa + acute shifted + (w/2-1.5pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"342",1.3ex#+2ss#,ex#,0); "a with circumflex"; + +currentpicture := lowa + circumflex shifted + (w/2-1.5pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"343",1.3ex#+2ss#,ex#,0); "a with tilde"; + +currentpicture := lowa + tilde shifted + (w/2-1.5pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"344",1.3ex#+2ss#,ex#,0); "a with diaresis"; + +currentpicture := lowa + diaresis shifted + (w/2-pwid-lserwl/2,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"345",1.3ex#+2ss#,ex#,0); "a with ring"; + +currentpicture := lowa; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-1.1pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"267",1.4ex#+2ss#,ex#,0); "u with ring"; + +currentpicture := lowu; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"347",ex#+2ss#,ex#,1.5pwid#); "c cedille"; + +currentpicture := lowc + cedille shifted (w-1.7pwid,0); + +endchar; + +beginchar(oct"200",em#+2ss#,cap#,0); "The Letter A, reverse circumflex"; + +currentpicture := capa + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"201",em#+2ss#,cap#,0); "The Letter A, reverse cedilla"; + +currentpicture := capa + revcid shifted (2w/3,0); + +endchar; + +beginchar(oct"202",5em#/6+ss#,cap#,0); "The Letter C with acute accent"; + +currentpicture := capc + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"203",5em#/6+ss#,cap#,0); "The Letter C, reverse circumflex"; + +currentpicture := capc + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"204",5em#/6+2ss#,cap#,0); "The Letter D, reverse circumflex"; + +currentpicture := capd + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"205",5em#/6+2ss#,cap#,0); "The Letter E, reverse circumflex"; + +currentpicture := cape + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"206",5em#/6+2ss#,cap#,0); "The Letter E, reverse cedilla"; + +currentpicture := cape + revcid shifted (2w/3-8o,0); + +endchar; + +beginchar(oct"207",em#+2ss#,cap#,0); "The Letter G, reverse circumflex"; + +currentpicture := capg + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"210",5em#/6+2ss#,cap#,0); "The Letter L, acute accent"; + +currentpicture := capl + acute shifted (w/2-1.5pwid,pwid); + +endchar; + +beginchar(oct"211",5em#/6+2ss#,cap#,0); "The Letter L, apostrophe accent"; + +currentpicture := capl; +fill commapost shifted (ss+2userw+thickl+o,h-0.5pwid); + +endchar; + +beginchar(oct"212",5em#/6+2ss#,cap#,0); "The Letter slashed L"; + +currentpicture := capl; + +pickup pencircle scaled thinstroke; +lft z0 = (-2hair,h/2); +z2 = (z0--(w,h/2)) intersectionpoint ((ss+userw+thickstroke/2,h)-- + (ss+userw+thickstroke/2,0)); +z1 = 2[z0,z2] shifted (thickstroke,0); +path intline; intline = z0--z1; + +draw intline rotatedaround(z2,30); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"213",5em#/6+2ss#,cap#,0); "The Letter N, with acute accent"; + +currentpicture := capn + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"214",5em#/6+2ss#,cap#,0); "The Letter N, inverted circumflex"; + +currentpicture := capn + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"216",5em#/6+2ss#,cap#,0); "The Letter O, Hungarian diaresis"; + +currentpicture := capo + hungum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"217",5em#/6+2ss#,cap#,0); "The Letter R, acute accent"; + +currentpicture := capr + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"220",5em#/6+2ss#,cap#,0); "The Letter R, inverse circumflex"; + +currentpicture := capr + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"221",(3(em#+2ss#)/4),cap#,0); "The Letter S, acute accent"; + +currentpicture := caps + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"222",(3(em#+2ss#)/4),cap#,0); "The Letter S, inverse circum"; + +currentpicture := caps + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"223",(3(em#+2ss#)/4),cap#,0); "The Letter S, cedilla"; + +currentpicture := caps + cedille shifted (w/2-pwid/2,0); + +endchar; + +beginchar(oct"224",5em#/6+2ss#,cap#,0);"The Letter T, inverse circum"; + +currentpicture := capt + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"225",5em#/6+2ss#,cap#,0);"The Letter T, cedilla"; + +currentpicture := capt + cedille shifted (w/2-pwid/2,0); + +endchar; + +beginchar(oct"226",5em#/6+2ss#,cap#,0); "The Letter U, Hungarian umlaut"; + +currentpicture := capu + hungum shifted (w/2-pwid/2-2o,1.2pwid); + +endchar; + +beginchar(oct"227",5em#/6+2ss#,cap#,0); "The Letter U, ring accent"; + +currentpicture := capu; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"230",5em#/6+2ss#,cap#,0); "The Letter Y, umlaut"; + +currentpicture := capy + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"231",5em#/6+2ss#,cap#,0); "The Letter Z, acute accent"; + +currentpicture := capz + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"232",5em#/6+2ss#,cap#,0); "The Letter Z, inverse circum"; + +currentpicture := capz + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"233",5em#/6+2ss#,cap#,0); "The Letter Z, overdot"; + +currentpicture := capz + overdot shifted (w/2-1.5dotwid,pwid); + +endchar; + +beginchar(oct"235",0.38em#+2ss#,cap#,0); "The Letter I, overdot"; + +currentpicture := capi + overdot shifted (w/2-1.5dotwid,pwid); + +endchar; + +beginchar(oct"240",ex#+2ss#,ex#,0); "The letter a, inverse circum"; + +currentpicture := lowa + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"241",ex#+2ss#,ex#,0); "The letter a, reverse cedilla"; + +currentpicture := lowa + revcid shifted (2w/3-0.5pwid,0); + +endchar; + +beginchar(oct"242",ex#+2ss#,ex#,0); "c with acute"; + +currentpicture := lowc + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"243",ex#+2ss#,ex#,0); "c inverse circum"; + +currentpicture := lowc + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"244",1.2ex#+2ss#,asch#,0); "d apostrophe"; + +currentpicture := lowd; +fill commapost shifted (w-0.5pwid-ss,h-0.75pwid); + +endchar; + +beginchar(oct"245",ex#+2ss#,ex#,0); "e, inverse circumflex"; + +currentpicture := lowe + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"246",ex#+2ss#,ex#,0); "e, reverse cedilla"; + +currentpicture := lowe + revcid shifted (w/2-0.3pwid,0); + +endchar; + +beginchar(oct"247",ex#+2ss#,ex#,dep#); "g, inverse circum"; + +currentpicture := lowg + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"250",0.6ex#+2ss#,asch#,0); "l, with acute"; + +currentpicture := lowl + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"251",0.6ex#+2ss#,asch#,0); "l, with apostrophe"; + +currentpicture := lowl; +fill commapost shifted (w-0.5pwid-ss,h-0.75pwid); + +endchar; + +beginchar(oct"252",0.6ex#+2ss#,asch#,0); "l, with crossbar"; + +currentpicture := lowl; + +%z0 = (2o,h/3); +%z1 = (w-2o,2h/3); +pickup pencircle scaled thinl; +z0 = (0,h/2); +z1 = (w,h/2); +z2 = 0.5[z0,z1]; +path crossbar; crossbar = z0--z1; +draw crossbar rotatedaround (z2,30); + +endchar; + +beginchar(oct"253",1.2ex#+2ss#,ex#,0); "n, acute accent"; + +currentpicture := lown + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"254",1.2ex#+2ss#,ex#,0); "n, inverse circum"; + +currentpicture := lown + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"256",ex#+2ss#,ex#,0); "o, Hungarian umlaut"; + +currentpicture := lowo + hungum shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"257",ex#+2ss#,ex#,0); "r, with acute accent"; + +currentpicture := lowr + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"260",ex#+2ss#,ex#,0); "r, reverse circum"; + +currentpicture := lowr + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"261",0.8ex#+2ss#,ex#,0); "s, with acute accent"; + +currentpicture := lows + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"262",0.8ex#+2ss#,ex#,0); "s, reverse circum"; + +currentpicture := lows + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"263",0.8ex#+2ss#,ex#,0); "s, cedilla"; + +currentpicture := lows + cedille shifted (w/2-pwid/2,0); + +endchar; + +beginchar(oct"264",ex#/phi+2.5ss#,theight#,0); "t, with apostrophe"; + +currentpicture := lowt; +fill commapost shifted (w-0.2pwid,h-pwid/2); + +endchar; + +beginchar(oct"265",ex#/phi+2ss#,theight#,0); "t, with cedilla"; + +currentpicture := lowt + cedille shifted (w/2-pwid/4,0); + +endchar; + +beginchar(oct"266",1.4ex#+2ss#,ex#,0); "u with Hungarian umlaut"; + +currentpicture := lowu + hungum shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"270",1.2ex#+2ss#,ex#,dep#); "y, with diaresis"; + +currentpicture := lowy + diaresis shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"271",ex#+2ss#,ex#,0); "z, acute accent"; + +currentpicture := lowz + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"272",ex#+2ss#,ex#,0); "z, inverse circum"; + +currentpicture := lowz + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"273",ex#+2ss#,ex#,0); "z, overdot"; + +currentpicture := lowz + overdot shifted (w/2-1.5dotwid,-0.5pwid); + +endchar; + +beginchar(oct"300",em#+2ss#,cap#,0); "A, acute accent"; + +currentpicture := capa + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"301",em#+2ss#,cap#,0); "A, grave accent"; + +currentpicture := capa + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"302",em#+2ss#,cap#,0); "A, circumflex"; + +currentpicture := capa + circumflex shifted (w/2-0.5pwid,pwid); + +endchar; + +beginchar(oct"303",em#+2ss#,cap#,0); "A, tilde"; + +currentpicture := capa + tilde shifted (w/2-0.5pwid,pwid); + +endchar; + +beginchar(oct"304",em#+2ss#,cap#,0); "A, diaresis"; + +currentpicture := capa + diaresis shifted (w/2-0.5pwid,pwid); + +endchar; + +beginchar(oct"305",em#+2ss#,cap#,0); "A, ring"; + +currentpicture := capa; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"307",5em#/6+2ss#,cap#,0); "C cedille"; + +currentpicture := capc + cedille shifted (w/2-0.5pwid,0); + +endchar; + +beginchar(oct"311",5em#/6+2ss#,cap#,0); "E, acute"; + +currentpicture := cape + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"310",5em#/6+2ss#,cap#,0); "E, grave"; + +currentpicture := cape + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"312",5em#/6+2ss#,cap#,0); "E, circumflex"; + +currentpicture := cape + circumflex shifted (w/2-0.5pwid,1.5pwid); + +endchar; + +beginchar(oct"313",5em#/6+2ss#,cap#,0); "E, diaresis"; + +currentpicture := cape + diaresis shifted (w/2-0.5pwid,pwid); + +endchar; + +beginchar(oct"314",0.38em#+2ss#,cap#,0); "I, acute"; + +currentpicture := capi + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"315",0.38em#+2ss#,cap#,0); "I, grave"; + +currentpicture := capi + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"316",0.38em#+2ss#,cap#,0); "I, circumflex"; + +currentpicture := capi + circumflex shifted (w/2-0.5pwid,1.5pwid); + +endchar; + +beginchar(oct"317",0.38em#+2ss#,cap#,0); "I, diaresis"; + +currentpicture := capi + diaresis shifted (w/2-0.5pwid,pwid); + +endchar; + +beginchar(oct"321",5em#/6+2ss#,cap#,0); "N, tilde"; + +currentpicture := capn + tilde shifted (w/2-0.5pwid,1.5pwid); + +endchar; + +beginchar(oct"322",5em#/6+2ss#,cap#,0); "O, acute"; + +currentpicture := capo + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"323",5em#/6+2ss#,cap#,0); "O, grave"; + +currentpicture := capo + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"324",5em#/6+2ss#,cap#,0); "O, circumflex"; + +currentpicture := capo + circumflex shifted (w/2-0.5pwid,1.5pwid); + +endchar; + +beginchar(oct"325",5em#/6+2ss#,cap#,0); "O, tilde"; + +currentpicture := capo + tilde shifted (w/2-0.5pwid,1.5pwid); + +endchar; + +beginchar(oct"326",5em#/6+2ss#,cap#,0); "O, diaresis"; + +currentpicture := capo + diaresis shifted (w/2-0.5pwid,pwid); + +endchar; + +beginchar(oct"331",5em#/6+2ss#,cap#,0); "U, acute"; + +currentpicture := capu + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"332",5em#/6+2ss#,cap#,0); "U, grave"; + +currentpicture := capu + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"333",5em#/6+2ss#,cap#,0); "U, circumflex"; + +currentpicture := capu + circumflex shifted (w/2-0.5pwid,1.5pwid); + +endchar; + +beginchar(oct"334",5em#/6+2ss#,cap#,0); "U, diaresis"; + +currentpicture := capu + diaresis shifted (w/2-0.5pwid,pwid); + +endchar; + +beginchar(oct"335",5em#/6+2ss#,cap#,0); "Y, acute"; + +currentpicture := capy + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"361",1.2ex#+2ss#,ex#,0); "n, tilde"; + +currentpicture := lown + tilde shifted (w/2-1.5pwid,0); + +endchar; + +beginchar(oct"371",1.4ex#+2ss#,ex#,0); "u, acute"; + +currentpicture := lowu + acute shifted (w/2-1.5pwid,0); + +endchar; + +beginchar(oct"372",1.4ex#+2ss#,ex#,0); "u, grave"; + +currentpicture := lowu + grave shifted (w/2-1.5pwid,0); + +endchar; + +beginchar(oct"373",1.4ex#+2ss#,ex#,0); "u, circumflex"; + +currentpicture := lowu + circumflex shifted (w/2-1.5pwid,0); + +endchar; + +beginchar(oct"374",1.4ex#+2ss#,ex#,0); "u, diaresis"; + +currentpicture := lowu + diaresis shifted (w/2-1.5pwid,0); + +endchar; + +beginchar(oct"375",1.2ex#+2ss#,ex#,dep#); "y, acute"; + +currentpicture := lowy + acute shifted (w/2-pwid,0); + +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmitcap.mf b/Master/texmf-dist/fonts/source/public/drm/drmitcap.mf new file mode 100644 index 00000000000..f5bdadbf19f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmitcap.mf @@ -0,0 +1,264 @@ +% +AMDG This document was begun on 4 June 11EX, the feast +% of St. Francis Caracciolo, C, and it is humbly dedicated +% to him and to the Immaculate Heart of Mary for their +% prayers, and to the Sacred Heart of Jesus for His mercy. + +def topcurl(suffix i,j,k) = + top z.j = z.i shifted (-curlw,curlh); + z.k = z.j shifted (-curlw/2,-curlh); + penpos.j(thickstroke/2,90); + penpos.k(thinstroke,180); +enddef; + +def botcurl(suffix i,j,k) = + bot z.j = z.i shifted (curlw,-curlh); + z.k = z.j shifted (curlw/2,curlh); + penpos.j(thickstroke/2,90); + penpos.k(thinstroke,180); +enddef; + +beginchar("J",0.75em#+2ss#,cap#,dep#); "The Letter J"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinstroke; +penpos0(thickstroke,0); +z0l = (ss,h-curlh); +penpos1(thickstroke,-90); +z1l = (ss+curlw,h+o); +penpos2(0.75thickstroke,-90); +z2l = (w/2,y1); +penpos3(thinstroke,-90); +z3l = (2w/3,y2); +penpos4(thickstroke,0); +z4r = (w-ss,h+o); +penpos5(thickstroke,0); +z5 = (5w/6,h/2); +penpos6(thickstroke,0); +z6 = (3w/4,0); +penpos7(thinstroke,-90); +z7r = (w/3,-d); +penpos8(thickstroke,180); +z8r = (ss,-d/2); +penpos9(1.5thinstroke,90); +z9l = z8l; +penpos10(1.5thinstroke,0); +z10l = z9l; +penpos11(1.5thinstroke,-90); +z11l = z10l; +z12 = z5; +penpos13(1.5thinstroke,45); +z13 = (x2,y12); +penpos14(1.5thinstroke,45); +z14 = 2[z13,z12]; + +penstroke z0e..z1e..z2e..z3e..z4e; +penstroke z4e..z5e..z6e..{left}z7e..z8e..z9e..z10e..z11e; +penstroke z13e--z14e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("Q",em#+2ss#,cap#,dep#+thickstroke#/2); "The Letter Q"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinstroke; +penpos0(thinstroke,0); +z0 = (w/2,0.60h); +penpos1(thinstroke,90); +z1l = z0l; +penpos2(thinstroke,180); +z2l = z1l; +penpos3(thinstroke,-90); +z3l = z2l; +penpos4(thinstroke,0); +z4 = (x0 + 0.1w,y0); +penpos5(thinstroke,-90); +z5 = (x1,y1 - 0.2w); +penpos6(thinstroke,180); +z6 = (x0 - 0.2w,y2); +penpos7(1.25thinstroke,90); +z7 = (x1,y1 + 0.15w); +penpos8(1.5thinstroke,0); +z8 = (x4r + 0.1w,y0); +penpos9(1.75thinstroke,-90); +z9 = (x5,y5-0.15w); +penpos10(2thinstroke,180); +z10r = (ss,y6); +penpos11(thickstroke,90); +z11r = (x7,h+o); +penpos12(thickstroke,0); +z12r = (w-ss,y8); +penpos13(0.8thickstroke,-90); +z13 = (2w/3,0-o); +penpos14(thinstroke,-90); +z14l = (ss+1.5curlw,0-curlh); +penpos15(thickstroke,180); +z15r = (ss,0-curlh/2); +penpos16(thinstroke,90); +z16 = (x14,0+o); +penpos17(thickstroke,60); +z17 = (2w/3,-d/2); +penpos18(thickstroke,90); +z18l = (w-ss,-d); +penpos19(0.7thickstroke,120); +z19 = (x18 + 2qtailunit + thickstroke,-2d/3); +penpos20(thinstroke,120); +z20 = z19 shifted (thickstroke,curlh/3); +penpos21(0.5thinstroke,120); +z21 = z20 shifted (thickstroke,curlh/3); +penpos22(0.1thinstroke,120); +z22 = z21 shifted (thickstroke,curlh/3); +penpos23(thickstroke,90); +z23l = (x18 + qtailunit+2thickstroke,-d); +penpos24(0.5thickstroke,-90); +z24l = (z16r--z17l) intersectionpoint (z14--z13); + +penstroke +z2e..z1e..z0e..z3e..z2e{up}..z4e..z5e..z6e..z7e..z8e..z9e..z10e..z11e..z12e..z13e..z24e..z14e..z15e..{right}z16e..z17e..z18e..z23e..z19e..z20e..z21e..z22e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24); +endchar; + +beginchar("T",5em#/6+2ss#,cap#,0);"The Letter T"; +italcorr(ex#*slant); + +z0 = (w/2-thickstroke/2,lserh); +z1 = z0 shifted (thickstroke,0); +llserif(0,2,3,4,5)(1); +lrserif(1,6,7,8,9)(1); +z10 = (x0,h-thickstroke); +z11 = z10 shifted (thickstroke,0); +fill z0..z2..z3--z4--z8--z7..z6..z1--z11--z10--cycle; +penpos12(thickstroke,90); +z12l = z10; +penpos13(thickstroke,90); +z13l = z11; +penpos14(thickstroke,90); +z14r = (ss+curlw,h); +penpos15(thickstroke,90); +z15r = (w-ss-curlw,h); +penpos16(0.8thickstroke,180); +z16r = (ss,y14l-hair); +penpos17(0.5thickstroke,-90); +z17l = z16l shifted (0,-thinstroke); +penpos18(0.8thinstroke,-90); +z18 = ((x12+x14)/2,y17); +penpos19(0.8thickstroke,180); +z19l = (w-ss,y15r+hair); +penpos20(0.5thickstroke,-90); +z20r = z19r shifted (0,thinstroke); +penpos21(0.8thinstroke,-90); +z21 = ((x15+x13)/2,y20); + +penstroke z18e..z17e..z16e..z14e--z15e..z19e..z20e..z21e; + +capt := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24); +endchar; + +beginchar("Y",5em#/6+2ss#,cap#,0); "The Letter Y"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinstroke; +z0 = (w/2-thickstroke/2,lserh); +z1 = z0 shifted (thickstroke,0); +llserif(0,2,3,4,5)(1); +lrserif(1,6,7,8,9)(1); +z10 = (x0,h/2); +z11 = z10 shifted (thickstroke,0); +fill z0..z2..z3--z4--z8--z7..z6..z1--z11--z10--cycle; +penpos12(thickstroke,0); +z12l = z10; +penpos13(thickstroke,0); +z13 = (w-2curlw,h-curlh); +penpos14(thickstroke,0); +z14 = (2curlw,h-curlh); +topcurl(14,15,16); +penpos17(thickstroke/2,-90); +z17 = (x13 + curlw,y15); +penpos18(thinstroke,180); +z18 = (x17 + curlw/2,y16); +penpos19(thinstroke,0); +z19r = z12r; + +penstroke z12e---z14e..z15e..z16e; +penstroke z12e---z13e..z17e..z18e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24); +endchar; + +beginchar("Z",5em#/6+2ss#,cap#,dep#); "The Letter Z"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinstroke; +penpos0(thickstroke,90); +z0r = (ss,h-o); +penpos1(thickstroke,180); +z1l = (w-ss,h); +penpos2(0.7thickstroke,90); +z2 = 0.666[z0,z1] shifted (-thinstroke,-thinstroke); +penpos3(thickstroke,180); +z3r = (ss,0-o); +penpos4(thinstroke,70); +z4r = (x0l+thinstroke/2,y0l); +penpos5(0.8thickstroke,90); +z5r = ((x0+x2)/2,h+o); +penpos6(thickstroke,-90); +z6r = (w-ss,-2d/3); +penpos7(0.7thickstroke,-90); +z7 = (w/2,0); +penpos8(0.8thickstroke,-90); +z8 = 0.5[(x7,0),(x6,0)] shifted (0,-d/3); +penpos9(1.5thinstroke,230); +z9l = z3l; + +penstroke z4e--z0e; +penstroke z0e..z5e..z2e..z1e; +penstroke z1e--z3e; +penstroke z3e..z9e{right}..z7e..z8e..z6e; + +capz := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24); +endchar; + +beginchar("G",em#+2ss#,cap#,dep#); "The Letter G"; +italcorr(ex#*slant); + +z1=(w-ss-userw-thickstroke/2,h-userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userw,2userh); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2); +z10=z9+(curvwid,0); +z4=z3-(thickstroke,0); +z11=(x3,h/2-userh); +z12=z11-(thickstroke,0); +z30 = (x3,-dep/2); +z31 = ((x4+x8)/2,-dep); +z32 = (x8,-2dep/3); +z33 = z32 shifted (dotwidth/2,dotwidth/2); +z34 = z33 shifted (dotwidth/2,-dotwidth/2); +z35 = z34 shifted (-dotwidth/2,-dotwidth/4); +z36 = z30 shifted (-thickstroke,0); +z37 = z31 shifted (0,thinstroke); + +ulserif(12,15,16,17,18)(1); +urserif(11,19,20,21,22)(1); +ctsideserif(1,23,24,25,26,2)(1); + +path gbody; gbody = +z17--z21--z20..z19..z11--z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path ginbody; ginbody = z2..{left}z6{left}..{down}z10{down}..{right}z8{right}..z4--z12..z15..z16--z17; + +fill gbody & topserif & ginbody & cycle; + +fill z11---z3---z30..z31..z32..z33..z34..z35..z37.. + z36--z4--z12--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmitdigs.mf b/Master/texmf-dist/fonts/source/public/drm/drmitdigs.mf new file mode 100644 index 00000000000..2f31560ab17 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmitdigs.mf @@ -0,0 +1,283 @@ +% +AMDG This document was begun on 9 June 11EX, the +% commemoration of Ss. Primus and Felicianus, M, and it is +% humbly dedicated to them and to the Immaculate Heart of +% Mary for their prayers, and to the Sacred Heart of Jesus +% for His mercy. + + +beginchar("1",digwid#+2ss#,cap#,0); "The digit 1"; +italcorr(ex#*slant); + +pickup pencircle scaled thinl; +penpos0(thickl,0); +z0 = (w/2,h); +penpos1(thinl,-90); +z1 = (w/2-2curlw,h-2curlh); +penpos2(thickl,0); +z2 = (w/2,0); + +penstroke z1e{right}..{up}z0e; +penstroke z0e--z2e; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("2",digwid#+2ss#,cap#,0); "The digit 2"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0 = (w/2,5h/6); +penpos1(thinl,0); +z1 = (3w/5,3h/4); +penpos2(thinl,-90); +z2 = (w/2,3h/5); +penpos3(thinl,180); +z3 = (2w/5,(y0l+y2l)/2); +penpos4(thickl,180); +z4r = (ss,3h/4); +penpos5(thinl,90); +z5r = (w/2,h+o); +penpos6(thickl,0); +z6r = (w-ss,y4); +penpos8(0.7thickl,-45); +z8 = (w/2,2h/5); +penpos7(thinl,-90); +z7r = (ss,0-o); +penpos9(1.75thinl,-90); +z9r = (w/3,y7l); +penpos10(2thinl,-90); +z10r = (2w/3,0-o); +penpos11(thickl,-90); +z11r = (w-ss,y10); + +penstroke z3e..z0e..z1e..z2e..z4e..z5e..z6e..z8e..z7e; +penstroke z7e..z9e..z10e..z11e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("3",digwid#+2ss#,cap#,0); "The digit 3"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,3h/4); +penpos1(thinl,-90); +z1l = (w/2,h+o); +penpos2(thickl,180); +z2l = (w-ss,3h/4); +penpos3(thinl,90); +z3 = (w/2,h/2); +penpos4(thickl,0); +z4r = (w-ss,h/4); +penpos5(thinl,-90); +z5r = (w/2,0-o); +penpos6(thickl,180); +z6r = (ss,h/4); +penpos7(1.5thinl,90); +z7 = z0 shifted (curlw,-curlh); +penpos8(thinl,180); +z8 = z7 shifted (curlw,curlh); +penpos9(thinl,-90); +z9 = z8 shifted (-curlw/2,curlh/2); +penpos10(1.5thinl,90); +z10 = z6 shifted (curlw,curlh); +penpos11(thinl,0); +z11 = z10 shifted (curlw,-curlh); +penpos12(thinl,-90); +z12 = z11 shifted (-curlw/2,-curlh/2); + +penstroke z9e..z8e..z7e..z0e{up}..z1e..z2e..z3e; +penstroke z3e..z4e..z5e..{up}z6e..z10e..z11e..z12e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("4",digwid#+2ss#,cap#,0); "The digit 4"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0r = (5w/6,h+o); +penpos1(thickl,0); +z1r = (5w/6,0); +penpos2(thickl,0); +z2r = (0.6w,h+o); +penpos3(thickl,0); +z3l = (ss,h/3); +penpos4(thinl,-45); +z4l = z3l; +penpos5(thinl,-45); +z5 = (w-ss,y4); +penpos6(thickl,0); +z6 = 0.25[z3,z2]; +z8 = (x1,y3); +penpos7(thickl,0); +z7 = 0.15[z8,z0]; +penpos9(0.75thickl,0); +z9 = 0.65[z3,z2]; +penpos10(0.75thickl,0); +z10 = 0.5[z8,z0]; +penpos11(0.5thickl,0); +z11 = 0.9[z3,z2]; +penpos12(0.5thickl,0); +z12 = 0.8[z8,z0]; +penpos13(thinl,0); +z13 = z2; +penpos14(thinl,0); +z14 = z0; + +penstroke z3e--z6e--z9e--z11e--z13e; +penstroke z1e--z7e--z10e--z12e--z14e; +penstroke z4e--z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("5",digwid#+2ss#,cap#,0); "The digit 5"; +italcorr(ex#*slant); + +penpos0(thickl,90); +z0r = (w-ss-thickl/2,h+o); +penpos1(thickl,90); +z1r = (ss+thickl/2,h+o); +penpos2(thickl,90); +z2 = (ss+thickl/3,h/2); +penpos3(thickl,0); +z3r = (w-ss,h/3); +penpos4(thinl,-90); +z4r = (w/2,0-o); +penpos5(thickl,180); +z5r = (ss,h/5); +penpos6(thinl,0); +z6l = z1l; +penpos7(thinl,0); +z7l = z2r; +penpos8(1.5thinl,90); +z8 = z5 shifted (curlw,curlh); +penpos9(thinl,0); +z9 = z8 shifted (curlw,-curlh); + +penstroke z0e--z1e--z2e; +penstroke z6e--z7e; +penstroke z2e..z3e..z4e..z5e..z8e..z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("6",digwid#+2ss#,cap#,0); "The digit 6"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (2w/3,h+o); +penpos1(2thinl,180); +z1r = (ss+thinl,2h/3); +penpos2(thickl,180); +z2r = (ss,ex/2); +penpos3(thinl,-90); +z3r = (w/2,0-o); +penpos4(thickl,0); +z4r = (w-ss,ex/2); +penpos5(thinl,90); +z5r = (w/2,ex+o); +penpos6(thinl,0); +z6l = z0l; +penpos7(thinl,-90); +z7l = z6l; +penpos8(thinl,180); +z8l = z7l; + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("9",digwid#+2ss#,cap#,0); "The digit 9"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0l = (w/3,0-o); +penpos1(2thinl,180); +z1l = (w-ss-thinl,h/3); +penpos2(thickl,180); +z2l = (w-ss,h-ex/2); +penpos3(thinl,90); +z3l = (w/2,h-ex-o); +penpos4(thickl,0); +z4l = (ss,h-ex/2); +penpos5(thinl,-90); +z5l = (w/2,h+o); + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("7",digwid#+2ss#,cap#,0); "The digit 7"; +italcorr(ex#*slant); + +penpos0(thickl,90); +z0r = (ss,h+o); +penpos1(thickl,90); +z1r = (w-ss,h+o); +penpos2(1.5thinl,180); +z2 = (w/3,h/2); +penpos3(thickl,180); +z3r = (w/3,0); +penpos4(thinl,45); +z4 = (ss,h/2); +penpos5(thinl,45); +z5 = 2[z4,z2] shifted (thickl,thickl); +penpos6(thinl,45); +z6 = z4 shifted (0,thickl); + +penstroke z0e--z1e; +penstroke z1e..z2e..z3e; +penstroke z6e--z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("8",digwid#+2ss#,cap#,0); "The digit 8"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (w/2,h+o); +penpos1(1.75thinl,0); +z1r = (w-ss,3h/4); +penpos2(1.75thinl,0); +z2l = (ss,h/4); +penpos3(thickl,180); +z3r = (ss,3h/4); +penpos4(thickl,180); +z4l = (w-ss,h/4); +penpos5(thinl,90); +z5l = (w/2,0-o); +penpos6(thinl,-45); +z6 = (w/2,h/2); +penpos7(thickl/2,-135); +z7 = z6; + +penstroke +z0e{right}..{down}z1e{down}..z6e..{down}z2e{down}..{right}z5e{right}..{up}z4e{up}..z7e..{up}z3e{up}..{right}cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("0",digwid#+2ss#,cap#,0); "The digit 0"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (w/2,h+o); +penpos1(thickl,0); +z1r = (w-ss,h/2); +penpos2(thinl,-90); +z2r = (w/2,0-o); +penpos3(thickl,180); +z3r = (ss,h/2); + +penstroke z0e..z1e..z2e..z3e..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmitligs.mf b/Master/texmf-dist/fonts/source/public/drm/drmitligs.mf new file mode 100644 index 00000000000..51d0fd8f0cb --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmitligs.mf @@ -0,0 +1,247 @@ +% +AMDG This document was begun on 19 August 2007, the Feast of St. John +% Eudes, and it is humbly dedicated to him and to the Immaculate Heart of Mary +% for their prayers, and to the Sacred Heart of Jesus for His mercy. + +% "j" =: oct"027"; +ligtable "f" : "f" =: oct"033","i" =: oct"034", + "l" =: oct"035","t" =: oct"040","e" kern-0.05u#; +ligtable oct"033" : "i" =: oct"036","l" =: oct"037"; +ligtable "-" : "-" =: oct"025"; +ligtable oct"025" : "-" =: oct"026"; +ligtable "`" : "`" =: oct"020"; +ligtable "'" : "'" =: oct"021"; +ligtable "?" : "`" =: oct"276"; +ligtable "!" : "`" =: oct"275"; + +ligtable "A" : oct"200" : oct "201" : oct"300" : oct"301" : + oct"302" : oct"303" : oct"304" : oct"305" : + "A" kern-0.1u#,"B" kern-0.1u#, + "C" kern-0.1u#,"D" kern-0.1u#,"E" kern-0.1u#, + "F" kern-0.1u#, "G" kern-0.2u#,"H" kern-0.1u#, + "I" kern-0.1u#,"J" kern-0.1u#,"K" kern-0.1u#, + "L" kern-0.1u#,"M" kern-0.1u#,"N" kern-0.1u#, + "O" kern-0.2u#,"P" kern-0.1u#,"Q" kern-0.1u#, + "R" kern-0.1u#,"S" kern-0.05u#,"T" kern-0.2u#, + "U" kern-0.2u#,"V" kern-0.2u#,"W" kern-0.2u#, + "X" kern-0.1u#,"Y" kern-0.2u#,"Z" kern-0.05u#, + "a" kern-0.1u#,"b" kern-0.2u#,"c" kern-0.1u#, + "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.2u#, + "g" kern-0.1u#,"h" kern-0.2u#,"i" kern-0.05u#, + "j" kern-0.05u#,"k" kern-0.2u#,"l" kern-0.2u#, + "m" kern-0.2u#,"n" kern-0.05u#,"o" kern-0.1u#, + "p" kern-0.15u#,"q" kern-0.1u#,"r" kern-0.2u#, + "s" kern-0.1u#,"t" kern-0.2u#,"u" kern-0.2u#, + "v" kern-0.15u#,"w" kern-0.15u#,"x" kern-0.2u#, + "y" kern-0.2u#; +ligtable "B" : "G" kern 0.1u#,"O" kern 0.1u#, + "Q" kern 0.1u#,"S" kern 0.1u#,"a" kern 0.1u#, + "c" kern 0.05u#,"d" kern 0.1u#,"e" kern 0.1u#, + "f" kern-0.05u#,"g" kern 0.1u#,"o" kern 0.1u#, + "q" kern 0.1u#,"s" kern 0.1u#,"c" kern 0.1u#, + "u" kern 0.1u#; +ligtable "C" : oct"202" : oct"203" : oct"307" : + "Z" kern 0.01u#,"f" kern-0.05u#, + "y" kern -0.1u#; +ligtable "D" : oct"204" : oct"320" : oct"336" : + "G" kern 0.05u#,"V" kern-0.05u#, + "W" kern-0.05u#,"X" kern-0.05u#,"Y" kern-0.05u#, + "b" kern-0.05u#,"f" kern-0.05u#,"h" kern-0.05u#, + "k" kern-0.05u#,"l" kern-0.05u#,"x" kern-0.05u#; +ligtable "E" : oct"205" : oct"206" : oct"306" : + oct"310" : oct"311" : oct"312" : oct"313" : + oct"327" : "f" kern-0.05u#; +ligtable "F" : "A" kern-0.1u#,"a" kern-0.1u#, + "c" kern-0.05u#,"d" kern-0.05u#,"e" kern-0.05u#, + "f" kern-0.1u#,"g" kern-0.05u#,"m" kern-0.2u#, + "n" kern-0.05u#,"o" kern-0.1u#,"p" kern-0.1u#, + "r" kern-0.2u#,"s" kern-0.1u#,"t" kern-0.1u#, + "u" kern-0.2u#,"x" kern-0.1u#,"y" kern-0.1u#; +ligtable "G" : oct"207" : "A" kern-0.1u#,"J" kern-0.05u#, + "b" kern-0.1u#,"f" kern-0.1u#,"h" kern-0.05u#, + "k" kern-0.1u#,"l" kern-0.05u#,"p" kern-0.05u#, + "r" kern-0.05u#,"t" kern-0.05u#,"u" kern-0.05u#, + "t" kern-0.05u#,"u" kern-0.1u#,"x" kern-0.05u#, + "y" kern-0.05u#; +ligtable "H" : "f" kern-0.2u#,"m" kern-0.05u#,"e" kern-0.05u#, + "o" kern-0.05u#,"p" kern-0.1u#,"r" kern-0.05u#, + "s" kern-0.05u#,"t" kern-0.1u#,"u" kern-0.1u#, + "x" kern-0.05u#,"y" kern-0.05u#; +ligtable "K" : "a" kern-0.05u#,"c" kern-0.05u#, + "d" kern-0.05u#,"e" kern-0.05u#,"f" kern-0.1u#, + "g" kern-0.05u#,"m" kern-0.06u#,"p" kern-0.05u#, + "r" kern-0.05u#,"s" kern-0.05u#,"t" kern-0.05u#, + "u" kern-0.05u#,"y" kern-0.2u#; +ligtable "M" : "m" kern-0.05u#,"r" kern-0.05u#; +ligtable "P" : "A" kern-0.1u#,"g" kern-0.05u#, + "y" kern-0.05u#; +ligtable "R" : "V" kern-0.05u#,"W" kern-0.05u#, + "b" kern-0.1u#,"f" kern-0.1u#,"g" kern-0.05u#, + "h" kern-0.1u#,"k" kern-0.1u#,"m" kern-0.1u#, + "r" kern-0.1u#,"u" kern-0.1u#,"y" kern-0.1u#; +ligtable "S" : oct"221" : oct"222" : oct"223" : + "a" kern 0.05u#,"b" kern 0.05u#, + "c" kern 0.05u#,"d" kern 0.05u#,"e" kern 0.05u#, + "g" kern 0.05u#,"i" kern 0.05u#,"j" kern 0.05u#, + "k" kern 0.05u#,"l" kern 0.05u#,"n" kern 0.05u#, + "o" kern 0.05u#,"p" kern 0.05u#,"q" kern 0.05u#, + "s" kern 0.05u#,"t" kern 0.05u#,"v" kern 0.05u#, + "w" kern 0.05u#,"x" kern 0.05u#,"z" kern 0.05u#; +ligtable "T" : oct"224" : oct"225" : "A" kern -0.1u#, + "a" kern-0.2u#, + "c" kern-0.2u#,"d" kern-0.2u#,"e" kern-0.2u#, + "f" kern-0.1u#,"g" kern-0.2u#,"m" kern-0.2u#, + "n" kern-0.2u#,"o" kern-0.2u#,"p" kern-0.2u#, + "q" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.2u#, + "t" kern-0.05u#,"u" kern-0.2u#,"v" kern-0.2u#, + "w" kern-0.2u#,"x" kern-0.2u#,"y" kern-0.2u#, + "z" kern-0.2u#; +ligtable "U" : oct"331" : oct"332" : oct"333" : + oct"334" : oct"226" : oct"227" : + "A" kern-0.05u#,"f" kern-0.05u#; +ligtable "V" : "A" kern-0.2u#,"O" kern-0.05u#, + "a" kern-0.05u#,"c" kern-0.05u#,"d" kern-0.05u#, + "e" kern-0.05u#,"f" kern-0.05u#,"g" kern-0.05u#, + "p" kern-0.05u#,"q" kern-0.05u#,"x" kern-0.05u#, + "y" kern-0.05u#; +ligtable "W" : "A" kern-0.2u#,"O" kern-0.05u#, + "a" kern-0.05u#,"c" kern-0.05u#,"d" kern-0.05u#, + "e" kern-0.05u#,"f" kern-0.05u#,"g" kern-0.05u#, + "p" kern-0.05u#,"q" kern-0.05u#,"x" kern-0.05u#, + "y" kern-0.05u#; +ligtable "X" : "O" kern-0.1u#,"a" kern-0.05u#, + "c" kern-0.05u#,"d" kern-0.05u#,"e" kern-0.05u#, + "f" kern-0.05u#,"g" kern-0.05u#,"m" kern-0.05u#, + "n" kern-0.05u#,"p" kern-0.05u#,"q" kern-0.05u#, + "r" kern-0.05u#,"t" kern-0.05u#,"u" kern-0.05u#, + "y" kern-0.2u#; +ligtable "Y" : oct"335" : oct"230" : + "A" kern-0.1u#,"O" kern-0.05u#,"a" kern-0.2u#, + "c" kern-0.2u#,"d" kern-0.2u#,"e" kern-0.2u#, + "f" kern-0.1u#,"g" kern-0.2u#,"m" kern-0.2u#, + "n" kern-0.2u#,"o" kern-0.2u#,"p" kern-0.2u#, + "q" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.2u#, + "t" kern-0.1u#,"u" kern-0.2u#,"v" kern-0.2u#, + "w" kern-0.2u#,"x" kern-0.2u#,"y" kern-0.2u#, + "z" kern-0.2u#; +ligtable "Z" : oct"231" : oct"232" : oct"233" : + "A" kern-0.1u#,"a" kern-0.1u#,"c" kern-0.1u#, + "d" kern-0.1u#,"e" kern-0.1u#,"m" kern-0.1u#, + "o" kern-0.1u#,"q" kern-0.1u#,"r" kern-0.05u#, + "s" kern-0.05u#,"t" kern-0.05u#,"u" kern-0.05u#, + "x" kern-0.1u#; +ligtable "o" : "o" kern0.05u#,"e" kern0.05u#,"c" kern0.05u#, + "d" kern0.05u#,"e" kern0.05u#,"q" kern0.05u#, + "k" kern-0.2u#,"f" kern-0.05u#,"h" kern-0.2u#, + "r" kern-0.1u#; +ligtable "a" : oct"240" : oct"241" : oct"340" : oct"341" : + oct"342" : oct"343" : oct"344" : oct"345" : + "a" kern-0.1u#,"b" kern-0.2u#,"c" kern-0.1u#, + "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.2u#, + "g" kern-0.1u#, "h" kern-0.2u#,"i" kern-0.1u#, + "j" kern-0.05u#, "k" kern-0.2u#,"l" kern-0.2u#, + "m" kern-0.2u#,"n" kern-0.05u#,"o" kern-0.1u#,"p" kern-0.2u#, + "q" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.1u#, + "t" kern-0.2u#,"u" kern-0.2u#,"v" kern-0.1u#, + "w" kern-0.1u#,"x" kern-0.2u#,"y" kern-0.2u#; +ligtable "b" : oct"376" : "b" kern-0.2u#,"f" kern-0.1u#, + "h" kern-0.2u#,"o" kern0.05u#,"l" kern-0.2u#, + "e" kern0.05u#,"c" kern0.05u#,"d" kern0.05u#, + "q" kern0.05u#,"k" kern-0.2u#; +ligtable "c" : oct"347" : oct"242" : oct"243" : + "h" kern-0.2u#,"b" kern-0.2u#,"k" kern-0.2u#, + "l" kern-0.2u#; +ligtable "d" : oct"244" : oct"236" : + "b" kern-0.1u#,"f" kern-0.1u#, + "g" kern-0.1u#,"h" kern-0.1u#,"i" kern-0.1u#, + "k" kern-0.1u#,"l" kern-0.05u#,"m" kern-0.1u#, + "n" kern-0.1u#,"p" kern-0.1u#,"r" kern-0.1u#, + "t" kern-0.1u#,"u" kern-0.1u#,"x" kern-0.1u#, + "y" kern-0.1u#; +ligtable "e" : oct"245" : oct"246" : oct"346" : oct"350" : + oct"351" : oct"352" : oct"353" : "b" kern-0.2u#, + "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#, + "m" kern-0.1u#; +ligtable "g" : oct"247" : "b" kern-0.2u#,"k" kern-0.2u#, + "h" kern-0.2u#,"l" kern-0.2u#; +ligtable "h" : oct"136" : "b" kern-0.2u#,"f" kern-0.1u#, + "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#, + "p" kern-0.1u#,"r" kern-0.1u#,"t" kern-0.1u#, + "u" kern-0.1u#,"x" kern-0.1u#,"y" kern-0.1u#; +ligtable "i" : "f" kern-0.1u#; +ligtable "k" : "b" kern-0.2u#,"f" kern-0.1u#, + "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#; +ligtable "m" : "b" kern-0.2u#,"f" kern-0.1u#, + "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#, + "m" kern-0.1u#,"p" kern-0.1u#,"r" kern-0.1u#, + "u" kern-0.1u#,"y" kern-0.1u#; +ligtable "n" : oct"253" : oct"254" : oct"255" : + oct"361" : "f" kern-0.1u#,"h" kern-0.2u#, + "k" kern-0.2u#,"p" kern-0.05u#,"u" kern-0.05u#, + "y" kern-0.05u#,"m" kern-0.1u#,"h" kern-0.2u#, + "l" kern-0.2u#; +ligtable "p" : "b" kern-0.2u#,"f" kern-0.05u#, + "h" kern-0.2u#,"k" kern-0.2u#,"x" kern-0.05u#, + "l" kern-0.2u#; +ligtable "q" : "a" kern-0.2u#,"b" kern-0.4u#, + "c" kern-0.2u#,"d" kern-0.2u#,"e" kern-0.2u#, + "h" kern-0.4u#,"k" kern-0.4u#,"l" kern-0.4u#, + "m" kern-0.2u#,"n" kern-0.2u#,"o" kern-0.1u#,"p" kern-0.2u#, + "q" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.2u#,"t" kern-0.2u#, + "u" kern-0.2u#,"v" kern-0.2u#,"w" kern-0.2u#, + "x" kern-0.2u#,"i" kern-0.1u#,"z" kern-0.2u#; +ligtable "r" : "b" kern-0.2u#,"h" kern-0.2u#, + "k" kern-0.2u#,"l" kern-0.2u#; +ligtable "s" : "k" kern-0.2u#,"h" kern-0.2u#, + "b" kern-0.2u#,"l" kern-0.2u#; +ligtable "t" : "b" kern-0.1u#,"h" kern-0.1u#, + "k" kern-0.1u#; +ligtable "u" : oct"371" : oct"372" : oct"373" : oct"374" : + oct"266" : oct"267" : "b" kern-0.2u#,"c" kern-0.1u#,"d" kern-0.1u#, + "f" kern-0.2u#,"h" kern-0.2u#,"i" kern-0.1u#,"j" kern-0.05u#, + "k" kern-0.2u#,"l" kern-0.2u#,"m" kern-0.2u#, + "n" kern-0.1u#,"o" kern-0.1u#,"p" kern-0.2u#,"q" kern-0.1u#, + "r" kern-0.2u#,"t" kern-0.15u#,"u" kern-0.2u#,"v" kern-0.05u#, + "x" kern-0.1u#,"y" kern-0.2u#; +ligtable "v" : "a" kern 0.1u#,"b" kern-0.2u#,"c" kern 0.1u#, + "d" kern 0.1u#,"h" kern-0.2u#,"k" kern-0.2u#, + "l" kern-0.2u#, "o" kern 0.1u#,"q" kern 0.1u#, + "s" kern 0.1u#,"v" kern0.1u#,"w" kern 0.1u#, + "e" kern 0.1u#; +ligtable "w" : "a" kern 0.1u#,"b" kern-0.2u#,"c" kern 0.1u#, + "d" kern 0.1u#,"h" kern-0.2u#,"k" kern-0.2u#, + "l" kern-0.2u#, "o" kern 0.1u#,"q" kern 0.1u#, + "s" kern 0.1u#,"v" kern0.1u#,"w" kern 0.1u#, + "e" kern 0.1u#; +ligtable "x" : "f" kern-0.1u#,"h" kern-0.2u#,"b" kern-0.2u#, + "k" kern-0.2u#,"l" kern-0.2u#,"t" kern-0.1u#; +ligtable "y" : oct"375" : oct"270" : "a" kern 0.05u#, + "g" kern 0.05u#,"b" kern-0.2u#,"h" kern-0.2u#, + "k" kern-0.2u#,"l" kern-0.2u#, + "n" kern 0.05u#,"m" kern 0.05u#,"o" kern 0.05u#, + "q" kern 0.05u#,"r" kern 0.05u#,"s" kern 0.05u#, + "v" kern 0.05u#,"w" kern 0.05u#,"z" kern 0.05u#; +ligtable "z" : oct"271" : oct"272" : oct"273" : + "a" kern-0.05u#,"b" kern-0.2u#, + "c" kern-0.05u#,"d" kern-0.05u#,"e" kern-0.05u#, + "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#; +ligtable "(" : "a" kern-0.15u#, "c" kern-0.15u#, + "d" kern-0.15u#,"e" kern-0.15u#,"g" kern-0.15u#, + "i" kern-0.15u#,"j" kern-0.15u#,"m" kern-0.15u#, + "n" kern-0.15u#,"o" kern-0.15u#,"q" kern-0.15u#, + "s" kern-0.15u#,"t" kern-0.15u#,"u" kern-0.15u#, + "v" kern-0.15u#,"w" kern-0.15u#,"x" kern-0.15u#, + "z" kern-0.15u#; +ligtable "1" : "0" kern-0.1u#,"3" kern-0.2u#,"4" kern-0.1u#, + "5" kern-0.1u#,"6" kern-0.1u#,"7" kern-0.1u#, + "8" kern-0.1u#,"9" kern-0.2u#; +ligtable "2" : "3" kern-0.1u#,"4" kern-0.1u#,"5" kern-0.1u#, + "9" kern-0.2u#; +ligtable "3" : "0" kern 0.2u#,"1" kern 0.2u#,"2" kern 0.2u#, + "5" kern 0.2u#,"6" kern 0.2u#,"7" kern 0.2u#, + "8" kern-0.3u#; +ligtable "6" : "3" kern-0.1u#,"4" kern-0.1u#,"5" kern-0.1u#, + "9" kern-0.05u#; +ligtable "7" : "1" kern 0.1u#; +ligtable "8" : "1" kern 0.1u#,"5" kern-0.2u#; +ligtable "9" : "1" kern 0.1u#; +ligtable "5" : "," kern 0.2u#,"." kern 0.2u#; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmitlow.mf b/Master/texmf-dist/fonts/source/public/drm/drmitlow.mf new file mode 100644 index 00000000000..d34c133ac95 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmitlow.mf @@ -0,0 +1,1095 @@ +% +AMDG This document was begun on 26 May 11EX, the +% commemoration of St. Felix I, PM, and it is humbly +% dedicated to him and to the Immaculate Heart of Mary for +% their prayers, and to the Sacred Heart of Jesus for His +% mercy. + +def lftupbulb(suffix i,j,k,m) = + z.j.l = z.i.l; + z.k.l = z.i.l; + z.m.l = z.i.l; + penpos.j(bulbsh,90); + penpos.k(bulbsh,0); + penpos.m(bulbsh,-90); +enddef; + +def topcurl(suffix i,j,k) = + top z.j = z.i shifted (-curlw,curlh); + z.k = z.j shifted (-curlw/2,-curlh); + penpos.j(thickl/2,90); + penpos.k(thinl,180); +enddef; + +def botcurl(suffix i,j,k) = + bot z.j = z.i shifted (curlw,-curlh); + z.k = z.j shifted (curlw/2,curlh); + penpos.j(thickl/2,90); + penpos.k(thinl,180); +enddef; + +def backbotcurl(suffix i,j,k) = + bot z.j = z.i shifted (-curlw/2,1.5curlh); + z.k = z.j shifted (curlw/2,curlh/2); + penpos.j(thickl/2,180); + penpos.k(thinl,90); +enddef; + +def frontbotcurl(suffix i,j,k) = + bot z.j = z.i shifted (curlw/2,curlh/2); + z.k = z.j shifted (-curlw/2,curlh/2); + penpos.j(thickl/2,0); + penpos.k(thinl,90); +enddef; + +beginchar("i",0.6ex#+2ss#,ex#,0); "The Letter i"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +z0 = (w/2,curlh); +z1 = (w/2,h-curlh); +penpos0(thickl,0); +penpos1(thickl,0); +topcurl(1,2,3); +botcurl(0,4,5); +penstroke z5e..z4e..z0e--z1e..z2e..z3e; +dotlessi := currentpicture; +% dot +z17 = (w/2,h+2userh+dotwid); +z18 = z17 shifted (0,dotwid); +z19 = z17 shifted (0,-dotwid); +z20 = z17 shifted (dotwid,0); +z21 = z17 shifted (-dotwid,0); +fill z18..z20..z19..z21..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("l",0.6ex#+2ss#,asch#,0); "The Letter l"; +italcorr(asch#*slant); + +pickup pencircle yscaled thinl; +z0 = (w/2,curlh); +z1 = (w/2,h-curlh); +penpos0(thickl,0); +penpos1(thickl,0); +topcurl(1,2,3); +botcurl(0,4,5); +penstroke z5e..z4e..z0e--z1e..z2e..z3e; + +lowl := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("a",1.3ex#+2ss#,ex#,0); "The Letter a"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thinl,90); +penpos1(thinl,-90); +penpos2(curvl,180); +penpos3(thickl,0); +penpos4(thickl,0); +penpos7(thickl,0); +penpos8(thickl,0); +top z0 = (w/2-curlw+thickl/2,h+o); +bot z1 = (w/2-curlw+thickl/2,0-o); +lft z2r = (ss,h/2); +rt z3r = (w-ss-hair-curlw,h/2); +rt z4r = (w-ss-hair-curlw,curlh); +rt z8r = (w-ss-hair-curlw,h); +botcurl(4,5,6); +penstroke z1e..z2e..z0e..z3e..cycle; +penstroke z8e--z3e{down}..z4e..z5e..z6e; + +lowa := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("q",1.3ex#+2ss#,ex#,dep#); "The Letter q"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thinl,90); +penpos1(thinl,-90); +penpos2(thickl,180); +penpos3(thickl,0); +penpos4(thickl,0); +penpos7(thickl,0); +penpos8(thickl,0); +penpos9(thickl,0); +top z0 = (w/2-curlw+2ss,h+o); +bot z1 = (w/2-curlw+2ss,0-o); +lft z2r = (ss,h/2); +rt z3r = (w-2ss-curlw,h/2); +rt z4r = (w-2ss-curlw,curlh); +rt z8r = (w-2ss-curlw,h); +z9 = (x4,-d+curlh); +botcurl(9,5,6); +penstroke z1e..z2e..z0e..z3e..cycle; +penstroke z8e--z3e{down}..z4e..z9e..z5e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("p",1.3ex#+2ss#,ex#,dep#); "The Letter p"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thinl,90); +penpos1(thinl,-90); +penpos2(thickl,180); +penpos3(thickl,0); +penpos4(thickl,0); +penpos7(thickl,0); +penpos8(thickl,0); +penpos9(thickl,0); +top z0 = (w/2+curlw-2ss,h+o); +bot z1 = (w/2+curlw-2ss,0-o); +lft z2r = (2ss+curlw,h/2); +rt z3r = (w-ss,h/2); +lft z4r = (x2l,curlh); +lft z8r = (x2l,h-curlh); +z9 = (x4,-d); +topcurl(8,5,6); +penstroke z1e..z2e..z0e..z3e..cycle; +penstroke z9e--z4e---z8e..z5e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("u",1.4ex#+2ss#,ex#,0); "The Letter u"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +penpos1(thickl,0); +penpos2(thinl,90); +penpos3(thickl,180); +penpos4(thickl,180); +penpos5(thickl,0); +penpos6(thickl,0); +penpos9(thickl,0); +lft z0l = (ss+hair+curlw,h-curlh); +lft z1l = (ss+hair+curlw,curlh); +z2l = (w/2,0-o); +rt z3l = (w-curlw-2ss,curlh); +rt z4l = (w-curlw-2ss,h); +z5 = z4; z6 = z3; +botcurl(3,7,8); +topcurl(0,10,11); +penstroke z11e..z10e..z0e{down}..{down}z1e..{right}z2e{right}..z3e{up}..{up}z4e; +penstroke z6e..z7e..z8e; + +lowu := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("d",1.3ex#+2ss#,asch#,0); "The Letter d"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thinl,90); +penpos1(thinl,-90); +penpos2(thickl,180); +penpos3(thickl,0); +penpos4(thickl,0); +penpos7(thickl,0); +penpos8(thickl,0); +penpos9(thickl,0); +top z0 = (w/2-curlw+2ss,ex+o); +bot z1 = (w/2-curlw+2ss,0-o); +lft z2r = (ss,ex/2); +rt z3r = (w-2ss-curlw,ex/2); +rt z4r = (w-2ss-curlw,curlh); +rt z8r = (w-2ss-curlw,h); +z9 = (x4,curlh); +botcurl(9,5,6); +penstroke z1e..z2e..z0e..z3e..cycle; +penstroke z8e--z3e{down}..z4e..z9e..z5e..z6e; + +lowd := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("b",1.3ex#+2ss#,asch#,0); "The Letter b"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thinl,90); +penpos1(thinl,-90); +penpos2(thickl,180); +penpos3(thickl,0); +penpos4(thickl,0); +penpos7(thickl,0); +penpos8(thickl,0); +penpos9(thickl,0); +top z0 = (w/2+curlw-2ss,ex+o); +bot z1 = (w/2+curlw-2ss,0-o); +lft z2r = (2ss+curlw,ex/2); +rt z3r = (w-ss,ex/2); +lft z4r = (x2l,curlh); +lft z8r = (x2l,h-curlh); +z9 = (x4,0); +topcurl(8,5,6); +penstroke z1e..z2e..z0e..z3e..cycle; +penstroke z9e--z4e---z8e..z5e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("h",1.2ex#+2ss#,asch#,0); "The Letter h"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thinl,90); +penpos1(thinl,-90); +penpos2(thickl,180); +penpos3(thickl,0); +penpos4(thickl,0); +penpos7(thickl,0); +penpos8(thickl,0); +penpos9(thickl,0); +penpos10(thickl,180); +penpos11(thickl,180); +top z0 = (w/2+curlw-2ss,ex+o); +bot z1 = (w/2+curlw+hair,0-o); +lft z2r = (2ss+curlw,ex/2); +rt z3r = (w-ss,ex/2); +lft z4r = (x2l,curlh); +lft z8r = (x2l,h-curlh); +z9 = (x4,0); +z10 = z9; +z11 = z4; +topcurl(8,5,6); +backbotcurl(1,12,13); +penstroke z10e..z11e..z2e..z0e..z3e..z1e..z12e..z13e; +penstroke z9e--z4e---z8e..z5e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("o",1ex#+2ss#,ex#,0); "The Letter o"; +italcorr(ex#*slant); + +penpos0(thinl,90); +penpos1(thinl,-90); +penpos2(curvl,180); +penpos3(curvl,0); +top z0r = (w/2,h+o); +bot z1r = (w/2,0-o); +lft z2r = (ss,h/2); +rt z3r = (w-ss,h/2); + +penstroke z0e..z3e..z1e..z2e..cycle; + +lowo := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("j",0.6ex#+2ss#,ex#,dep#); "The Letter j"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +z0 = (w/2,-d+curlh); +z1 = (w/2,h-curlh); +bot z4 = z0 shifted (-curlw,-curlh); +z5 = z4 shifted (-curlw,curlh); +penpos0(thickl,0); +penpos1(thickl,0); +penpos4(thinl,-90); +penpos5(bulbsh,-180); +topcurl(1,2,3); +lftupbulb(5,6,7,8); +penstroke z8e..z7e..z6e..z5e..z4e..z0e---z1e..z2e..z3e; +dotlessj := currentpicture; +% dot +z17 = (w/2,h+2userh+dotwid); +z18 = z17 shifted (0,dotwid); +z19 = z17 shifted (0,-dotwid); +z20 = z17 shifted (dotwid,0); +z21 = z17 shifted (-dotwid,0); +fill z18..z20..z19..z21..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("k",1.3ex#+2ss#,asch#,0); "The Letter k"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(1.5thinl,20); +penpos1(thinl,-90); +penpos2(thickl,180); +penpos3(1.5thinl,-90); +penpos4(thickl,0); +penpos7(thickl,0); +penpos8(thickl,0); +penpos9(thickl,0); +penpos11(thinl,225); +rt z0r = (w-ss-thinl,ex+o-curlh); +bot z1 = (w-ss-curlw,0-o); +lft z2r = (2ss+curlw,ex/2); +rt z3r = (3w/4,ex/2); +lft z4r = (x2l,curlh); +lft z8r = (x2l,h-curlh); +z9 = (x4,0); +z10 = z2; +z12 = (w,y2) rotatedaround (z2,45); +z11 = (z3--z10) intersectionpoint (z2--z12); +topcurl(8,5,6); +frontbotcurl(1,13,14); +penstroke z9e--z4e---z8e..z5e..z6e; +penstroke z2e{dir 45}..z0e..z3e..z11e; +penstroke z11e{dir -0}..z1e{right}..z1e..z13e..z14e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,12); +endchar; + +beginchar("g",ex#+2ss#,ex#,dep#); "The Letter g"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thinl,90); +penpos1(thinl,-90); +penpos2(thickl,180); +penpos3(thickl,0); +penpos4(thickl,0); +penpos5(thinl,-90); +penpos6(1thinl,180); +penpos7(thickl,0); +penpos8(thickl,0); +penpos9(thickl,0); +top z0 = (w/2,h+o); +bot z1 = (w/2,0-o); +lft z2r = (ss,h/2); +rt z3r = (w-ss,h/2); +rt z4r = (w-ss,curlh); +rt z8r = (w-ss,h); +z9 = (x4,-d/2); +bot z5 = (w/2,-d); +lft z6r = (ss,-d/2); +lftupbulb(6,10,11,12); +penstroke z1e..z2e..z0e..z3e..cycle; +penstroke +z8e--z3e{down}--z4e--z9e..{left}z5e{left}..z6e..z10e..z11e..z12e; + +lowg := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("c",ex#+2ss#,ex#,0); "The Letter c"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +rt z0r = (w-ss,3h/4); +z1r = (w/2,h+o); +lft z2r = (ss,h/2); +z3r = (w/2,0-o); +rt z4r = (w-ss,h/4); +penpos0(thinl,0); +penpos1(thinl,90); +penpos2(curvl,180); +penpos3(thinl,270); +penpos4(thinl,0); + +penstroke z0e..z1e..z2e..z3e..z4e; + +lowc := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("e",ex#+2ss#,ex#,0); "The Letter e"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(curvl,0); +penpos1(thinl,90); +penpos2(curvl,180); +penpos3(thinl,270); +penpos4(thickl,0); +penpos5(thinl,-90); +penpos6(thinl,-90); +rt z0r = (w-ss,3h/4); +z1r = (w/2,h+o); +lft z2r = (ss,h/2); +z3r = (w/2,0-o); +rt z4r = (w-ss,h/4); +z5 = (x1,h/2); +z6 = z2; + +penstroke z6e{right}..z5e{right}..z0e..z1e{left}..z2e..z3e..z4e; + +lowe := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("f",ex#+2ss#,asch#,dep#); "The Letter f"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0 = (w/2,h-curlh); +penpos1(thickl,0); +z1 = (w/2,-d+curlh); +penpos2(thinl,-90); +z2 = (3w/4,h+o); +penpos3(thinl,-90); +z3 = (x1-curlw,-d-o); +penpos4(thickl,180); +z4 = (x2+curlw,y0); +penpos5(thickl,-180); +z5 = (x3-curlw,y1); +penpos6(thinl,70); +z6r = (w/2,ex); +penpos7(thinl,70); +z7 = (ss,y6); +penpos8(thinl,70); +z8 = (w-ss,y6); +penpos9(thinl,0); +z9r = z4r; +penpos10(thinl,225); +z10r = z9r; +penpos11(thinl,0); +z11l = z5l; +penpos12(thinl,225); +z12l = z11l; + +penstroke +z12e..z11e..z5e..{right}z3e{right}..z1e---z0e..{right}z2e{right}..z4e..z9e..z10e; +penstroke z7e--z8e; + +picture lowf; +lowf := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("m",1.3em#+2ss#,ex#,0); "The Letter m"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0 = (ss+2curlw,h-curlh); +penpos1(thickl,0); +z1 = (ss+2curlw,0); +penpos2(thinl,-90); +z2l = (x0 + 0.2em,h+o); +penpos3(thickl,-180); +z3 = (x2 + 0.2em,y0); +penpos4(thickl,-180); +z4 = (x3,0); +penpos5(thinl,90); +z5r = (x3 + 0.2em,h+o); +penpos6(thickl,0); +z6 = (x5 + 0.2em,y3); +penpos7(thickl,0); +z7 = (x6,curlh); + +topcurl(0,11,12); +botcurl(7,8,9); +penstroke z12e..z11e..z0e---z1e; +penstroke z1e---z0e..z2e..z3e---z4e; +penstroke z4e---z3e..z5e..z6e---z7e..z8e..z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("n",0.7em#+2ss#,ex#,0); "The Letter n"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0 = (ss+hair+curlw,h-curlh); +penpos1(thickl,0); +z1 = (ss+hair+curlw,0); +penpos3(thickl,0); +z3 = (w-ss-hair-curlw,y0); +penpos4(thickl,0); +z4 = (w-ss-hair-curlw,curlh); +penpos2(thinl,90); +z2r = ((x0+x3)/2,h+o); +penpos5(thickl,180); +z5 = z1; +penpos6(thickl,180); +z6 = z0; + +topcurl(0,11,12); +botcurl(4,8,9); +penstroke z12e..z11e..z0e---z1e; +penstroke z5e---z6e..z2e..z3e---z4e..z8e..z9e; + +lown := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("r",1.3ex#+2ss#,ex#,0); "The Letter r"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0 = (ss+2curlw,0); +penpos1(thickl,0); +z1 = (ss+2curlw,h-curlh); +topcurl(1,2,3); +penpos4(1.5thinl,180); +z4l = (w-ss,y1-hair); +penpos5(thinl,-90); +z5l = (((x1+x4)/2),h+o); +penpos6(1.5thinl,90); +z6r = z4r; +penpos7(1.5thinl,0); +z7r = z6r; +penpos8(1.5thinl,-60); +z8r = z7r; + +penstroke z3e..z2e..z1e---z0e; +penstroke z1e..{right}z5e{right}..z4e..z6e..z7e..z8e; + +lowr := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("s",ex#+2ss#,ex#,0); "The Letter s"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(1.5thinl,0); +z0r = (w-ss,3h/4); +penpos1(thinl,90); +z1r = (w/2,h+o); +penpos2(curvl,180); +z2r = (ss,3h/4); +penpos3(curvl,-180); +z3l = (w-ss,h/4); +penpos4(thinl,90); +z4l = (w/2,0-o); +penpos5(1.5thinl,0); +z5l = (ss,h/4); +penpos6(thinl,-90); +z6 = (w/2,h/2); +penpos7(thinl,-90); +z7l = z0l; +penpos8(thinl,-180); +z8l = z7l; +penpos9(thinl,90); +z9l = z8l; +penpos10(thinl,90); +z10r = z5r; +penpos11(thinl,180); +z11r = z10r; +penpos12(thinl,-90); +z12r = z11r; + +penstroke z9e..z8e..z7e.. +z0e{up}..{left}z1e{left}..{down}z2e{down}..z6e..{down}z3e{down}..{left}z4e{left}..{up}z5e..z12e..z11e..z10e; + +lows := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("t",ex#/phi+2ss#,theight#,0); "The Letter t"; +italcorr(ex#*slant); + +z0 = (ss+hair,ex); +z1 = z0 shifted (0,-thinl); +z2 = (w-ss/2-hair,ex); +z3 = z2 shifted (0,-thinl); +z4 = (w/2+thickl/2,h+o); +z5 = (w/2,0-o); +z6 = z5 shifted (-thickl/2,2lserh); +z7 = z6 shifted (thickl,0); +z8 = (x7,y2); +z9 = (x7,y3); +z10 = (x6,y1); +z11 = (w-ss,y7); +z12 = z11 shifted (-thinl/2,0); +z13 = 0.5[z7,z12] shifted (0,-y7/2); +z14 = (x7,y5); +z15 = 0.5[z2,z3] shifted (hair,0); +z16 = 0.5[z0,z1] shifted (-hair,0); +z17 = (x10,y0); +z18 = 0.5[z0,z17]; +z19 = z4 shifted (-hair/4,0); + +pickup pencircle scaled 2; +fill +z4--z8--z2..z15..z3--z9--z7{down}..{right}z13{right}..{up}z12..z11{down}..{left}z14{left}..{up}z6--z10--z1..z16..z0--z18{right}..{dir +80}z19--z4--cycle; + +lowt := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("v",ex#+2ss#,ex#,0); "The Letter v"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thinl,180); +z0r = (ss,h-curlh/2); +penpos1(1.5thinl,90); +z1r = (x0+curlw/3,h+o); +penpos2(thinl,45); +z2 = (x1+curlw/3,h-curlh/2); +penpos3(thinl,180); +z3r = (x2+curlw/2,h+o); +penpos4(thickl,0); +z4 = (x2,h/3); +penpos5(thinl,90); +z5l = (w/2,0-o); +penpos6(thickl,180); +z6l = (w-ss,h/3); +penpos7(thinl,-90); +z7l = (w-x2,h+o); +penpos8(thinl,0); +z8 = z3; +penpos9(thinl,0); +z9r = z7r; +penpos10(thinl,120); +z10r = z9r; +penpos11(thinl,180); +z11r = z10r; + +penstroke z0e..z1e..z2e..{up}z3e; +penstroke z8e{down}..z4e..{right}z5e{right}..z6e..z7e; +penstroke z7e..z9e..z10e..z11e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("w",1em#+2ss#,ex#,0); "The Letter w"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thinl,180); +z0r = (ss,h-curlh/2); +penpos1(1.5thinl,90); +z1r = (x0+curlw/3,h+o); +penpos2(thinl,45); +z2 = (x1+curlw/3,h-curlh/2); +penpos3(thinl,180); +z3r = (x2+curlw/2,h+o); +penpos4(thickl,0); +z4 = (x2,h/3); +penpos5(thinl,90); +z5l = (w/4,0-o); +penpos6(thickl,180); +z6 = (w/2,h/3); +penpos7(thickl,180); +z7r = (w/2,h+o); +penpos8(thinl,0); +z8 = z3; +penpos9(thinl,90); +z9l = (x6 + ((x5-x4)),0-o); +penpos10(thinl,180); +z10l = (w-x8,h+o); +penpos11(thickl,0); +z11 = z6; +penpos12(thickl,180); +z12l = (w-ss,h/3); +penpos13(thinl,0); +z13 = z7; + +penstroke z0e..z1e..z2e..{up}z3e; +penstroke z8e{down}..z4e..{right}z5e{right}..z6e..{up}z7e; +penstroke z11e{down}..{right}z9e{right}..z12e..tension 1.2..z10e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("x",1.2ex#+2ss#,ex#,0); "The Letter x"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(slantl,0); +z0 = (ss+2curlw,h-curlh); +penpos1(slantl,0); +z1 = (w-ss-2curlw,curlh); +topcurl(0,2,3); +botcurl(1,4,5); +penpos6(1.5thinl,0); +z6r = (w-ss-curlw/2,h); +penpos7(1.5thinl,0); +z7l = (ss+curlw/2,0); + +penstroke z3e..z2e..z0e---z1e..z4e..z5e; +penstroke z6e--z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("y",1.2ex#+2ss#,ex#,dep#); "The Letter y"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0r = (w-ss,h); +penpos1(thickl,-30); +z1 = (3w/4,curlh/2); +penpos2(thinl,-90); +z2r = (2curlw,-d); +penpos3(1.5thinl,-180); +z3r = (ss,-d+curlh); +penpos4(1.5thinl,90); +z4l = z3l; +penpos5(1.5thinl,0); +z5l = z4l; +penpos6(1.5thinl,-90); +z6l = z5l; +penpos7(1.5thinl,0); +z7 = (ss+2curlw,h-curlh); +penpos8(1.5thinl,45); +z8 = (x1,0); +topcurl(7,9,10); + +penstroke z0e..z1e..{left}z2e..z3e..z4e..z5e..z6e; +penstroke z10e..z9e..z7e..z8e; + +lowy := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar("z",1ex#+2ss#,ex#,dep#); "The Letter z"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,90); +z0r = (ss,h-o); +penpos1(2thinl,180); +z1l = (w-ss,h); +penpos2(thickl/2,90); +z2 = 0.666[z0,z1] shifted (-thinl,-thinl); +penpos3(2thinl,180); +z3r = (ss,0-o); +penpos4(thinl,70); +z4r = (x0l+thinl/2,y0l); +penpos5(3thickl/4,90); +z5r = ((x0+x2)/2,h+o); +penpos6(thickl,-90); +z6r = (w-ss,-2d/3); +penpos7(thickl/2,-90); +z7 = (w/2,0); +penpos8(3thickl/4,-90); +z8 = 0.5[(x7,0),(x6,0)] shifted (0,-d/3); +penpos9(thinl,230); +z9l = z3l; + +penstroke z4e--z0e; +penstroke z0e..z5e..z2e..z1e; +penstroke z1e--z3e; +penstroke z3e..z9e{right}..z7e..z8e..z6e; + +lowz := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"031",0.6ex#+2ss#,ex#,0); "dotless i"; +italcorr(ex#*slant); + +currentpicture := dotlessi; + +endchar; + +beginchar(oct"032",0.6ex#+2ss#,ex#,dep#); "dotless j"; +italcorr(ex#*slant); + +currentpicture := dotlessj; + +endchar; + +beginchar(oct"360",ex#+2ss#,asch#,0); "The Letter eth"; +italcorr(ex#*slant); + +z0 = (ss,h); +z1 = z0 shifted (0,-thinl); +z2 = 0.5[z0,z1] shifted (-o,0); +z3 = (w/2,ex+o/2); +z4 = z3 shifted (0,-thinl); +z5 = (w/2,-o/2); +z6 = z5 shifted (0,thinl); +z7 = (ss,ex/2); +z8 = z7 shifted (thickl,0); +z9 = (w-ss,ex/2); +z10 = z9 shifted (-thickl,0); + +fill +z7{up}..{right}z3{right}..{down}z9{down}..{left}z5{left}..{up}cycle; +unfill +z8{up}..{right}z4{right}..{down}z10{down}..{left}z6{left}..{up}cycle; +fill z9{up}..{left}z0..z2..z1{right}..{down}z10--cycle; + +pickup pencircle scaled thinl; +top rt z11 = (3w/4,h); +z13 = (0,h/2); +bot lft z14 = (z11--z13) intersectionpoint + (z10{up}..{left}z1); +z12 = 2.5[z11,z14]; +draw z11--z12; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"370",1ex#+2ss#,ex#,0); "The slashed o"; +italcorr(ex#*slant); + +currentpicture := lowo; + +pickup pencircle scaled thinl; +bot lft z0 = (ss,0-o); +top rt z1 = (w-ss,h+o); +draw z0--z1; + +penlabels(0,1,2,3,4); +endchar; + +beginchar(oct"033",1.6ex#+2ss#,asch#,0); "The ligature ff"; +italcorr(ex#*slant); + +currentpicture := lowf + lowf shifted (0.5ex,0); + +endchar; + +beginchar(oct"034",1.1ex#+2ss#,asch#,0); "The ligature fi"; +italcorr(ex#*slant); + +currentpicture := lowf; +pickup pencircle yscaled thinl; +z0 = (w/2,curlh) shifted (0.45ex,0); +z1 = (w/2,ex) shifted (0.45ex,0); +penpos0(thickl,0); +penpos1(thickl,0); +botcurl(0,4,5); +penstroke z5e..z4e..z0e--z1e; + +picture filig; filig := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"036",1.85ex#+2ss#,asch#,0); "The ligature ffi"; +italcorr(ex#*slant); + +currentpicture := lowf + filig shifted (0.5ex,0); + +endchar; + +beginchar(oct"035",1.2ex#+2ss#,asch#,0); "The ligature fl"; +italcorr(ex#*slant); + +currentpicture := lowf; +pickup pencircle yscaled thinl; +z0 = (w/2,curlh) shifted (0.39ex,0); +z1 = (w/2,h-curlh) shifted (0.39ex,0); +penpos0(thickl,0); +penpos1(thickl,0); +botcurl(0,4,5); +penstroke z5e..z4e..z0e--z1e; + +picture fllig; fllig := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"037",1.85ex#+2ss#,asch#,0); "The ligature ffl"; +italcorr(ex#*slant); + +currentpicture := lowf + fllig shifted (0.5ex,0); + +endchar; + +beginchar(oct"040",((ex#/phi)*2)+ss#+2o#,asch#,0); "The ligature ft"; +italcorr(ex#*slant); + +currentpicture := lowf + lowt shifted (0.68ex,0); +pickup pencircle scaled thinl; +penpos0(1.6thinl,45); +lft z0r = (ss,ex); +penpos1(1.6thinl,45); +z1r = (w-thickl,ex); +penstroke z0e--z1e; + +penlabels(0,1); +endchar; + +beginchar(oct"377",1ex#+2ss#,asch#,dep#); "The Letter Eszett"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0r = (w-ss,3h/4); +penpos1(thinl,90); +z1r = (w/2,h+o); +penpos2(thickl,180); +z2r = (ss,3h/4); +penpos3(thickl,180); +z3r = (ss,-d+curlh); +penpos4(1.5thinl,90); +z4l = (x3r-curlw,-d-o); +penpos5(1.5thinl,0); +z5 = (x4-curlw,y4+curlh); +penpos6(thinl,-90); +z6l = ((x2l+x1)/2,3h/5); +penpos7(thickl,180); +z7l = (w-ss,h/4); +penpos8(thinl,90); +z8l = (x6+thinl,0-o); +penpos9(thinl,0); +z9r = z8r shifted (-thinl,thinl); +penpos10(thinl,-90); +z10r = z9r shifted (thinl,thinl); + +penstroke z5e..z4e..z3e---z2e..z1e..z0e..{left}z6e; +penstroke z6e{right}..z7e..{left}z8e..z9e..z10e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"367",1.4ex#+2ss#,ex#,0); "the ligature oe"; +italcorr(ex#*slant); + +hw = w/2; +z30 = (hw+hw/2-ss,h+o); +z31 = (w-ss,h/2); +z33 = z30 shifted (0,-thinl); +z34 = (w/2-thickl/2,h/2); +z35 = z34 shifted (thickl,0); +z36 = z30 shifted (0,-h-o); +z37 = z36 shifted (0,thinl); +z38 = z31 shifted (0,-h/4); +z39 = z38 shifted (0,hair/2); +z40 = z39 shifted (-hair/2,0); +z41 = z31 shifted (-thickl,thinl); +z42 = z35 shifted (0,thinl); +% o part +z0 = (ss,h/2); +z1 = (hw/2+ss,h+o); +z2 = z0 shifted (thickl,0); +z3 = z1 shifted (0,-thinl); +z4 = (hw/2+ss,-o/2); +z5 = z4 shifted (0,thinl); + +fill z1..z35..z4..z0..cycle; +unfill z3..z34..z5..z2..cycle; + +fill +z31{up}..{left}z30{left}..{down}z34{down}..{right}z36{right}..z38..z39..z40..{left}z37{left}..{up}z35{up}..{right}z33{right}..{down}z41--z42--z35--z31--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"346",1.4ex#+2ss#,ex#,0); "the ligature ae (aesc)"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thinl,90); +penpos1(thinl,-90); +penpos2(curvl,180); +penpos3(thickl,0); +penpos4(thickl,0); +penpos7(thickl,0); +penpos8(thickl,0); +top z0 = (hw/2+thickl/2,h+o); +bot z1 = (hw/2+thickl/2,0-o); +lft z2r = (ss,h/2); +rt z3r = (hw+thickl/2,h/2); +rt z4r = (hw+thickl/2,curlh); +rt z8r = (hw+thickl/2,h); +penpos9(thickl,0); +z9 = (x8,0); +penstroke z1e..z2e..z0e..z3e..cycle; +penstroke z8e--z9e; +% e part +pickup pencircle yscaled thinl; +penpos10(thickl,0); +penpos11(thinl,90); +penpos12(thickl,180); +penpos13(thinl,270); +penpos14(thickl,0); +penpos15(thinl,-90); +penpos16(thinl,-90); +rt z10r = (w-ss,3h/4); +z11r = (hw+hw/2,h+o); +z12l = z3r; +z13r = (hw+hw/2,0-o); +rt z14r = (w-ss,h/4); +z15 = (x11,h/2); +z16 = z12; + +penstroke z16e{right}..z15e{right}..z10e..z11e{left}.. + z12e..z13e..z14e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"255",ex#+2ss#,ex#,dep#); "The Letter ng"; +italcorr(ex#*slant); + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z2 = z1 shifted (o+2lserwl,0); +z3 = z2 shifted (thickl,0); +z20 = (ss+userwl,h-userhl); +z21 = z20 shifted (thickl,0); +z22 = z21 shifted (0,userhl); +z23 = z21 shifted (o+2userwl,0); +z24 = z23 shifted (thickl,-thinl); +z29 = z20 shifted (0,userhl); +z30 = z24 shifted (0,userhl+thinl); +z31 = 0.5[z30,z29] shifted (0,o/2); +z32 = z31 shifted (0,-0.8thinl); +z33 = z28 shifted (0,-userhl); +z40 = z2; +z41 = z3; +z49 = (x40-6o,-dep); +z50 = z49 shifted (0,thinl); +z51 = (x1,-dep/2); +z56 = 0.5[z2,(x2,-dep)]; + +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +ulserif(20,25,26,27,28)(1); +ulftbulb(51,52,53,54,55); + +fill +z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z20..{right}z31{right}..{down}z24--z3{down}..z49..{up}z51..z52..z53..{left}z54{down}..z50..z56..{up}z2--z23..z32..z21--z1..z8..z9--z10--z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56); +endchar; + +beginchar(oct"376",1.3ex#+2ss#,asch#,dep#); "The Letter thorn"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thinl,90); +penpos1(thinl,-90); +penpos2(thickl,180); +penpos3(thickl,0); +penpos4(thickl,0); +penpos7(thickl,0); +penpos8(thickl,0); +penpos9(thickl,0); +top z0 = (w/2+curlw-2ss,ex+o); +bot z1 = (w/2+curlw-2ss,0-o); +lft z2r = (2ss+curlw,ex/2); +rt z3r = (w-ss,ex/2); +lft z4r = (x2l,curlh); +lft z8r = (x2l,h-curlh); +z9 = (x4,-d); +topcurl(8,5,6); +penstroke z1e..z2e..z0e..z3e..cycle; +penstroke z9e--z4e---z8e..z5e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmitpunct.mf b/Master/texmf-dist/fonts/source/public/drm/drmitpunct.mf new file mode 100644 index 00000000000..7010075be0e --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmitpunct.mf @@ -0,0 +1,82 @@ +% +AMDG This document was begun on 8 June 11EX, the feast +% of Pentecost, and it is humbly dedicated to the Immaculate +% Heart of Mary, for her prayers, and to the Sacred Heart of +% Jesus and the Holy Spirit, for their mercy. + +beginchar("&",3em#/4,cap#,0); "The italic ampersand, &"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,3ex/4); +penpos1(thickl,180); +z1r = (ss,ex/4); +penpos2(thinl,-90); +z2r = (w/3,ex+o); +penpos3(thinl,90); +z3 = (x5r,ex/2); +penpos4(thinl,-90); +z4r = (x3,0-o); +penpos5(thinl,180); +z5 = (1w/2,(y2+y0)/2); +penpos6(thickl,0); +z6 = (3w/4,y1); +penpos7(thickl,0); +z7r = (x6,h); +penpos8(1.5thinl,45); +z8l = (x5l,ex); +z10 = (w,y8); +z11 = (z8--z10) intersectionpoint (z6r--z7r); +penpos9(1.5thinl,45); +z9 = 2[z8,z11] shifted (0.5thickstroke,0); + +penstroke z5e..z2e..z0e..{right}z3e; +penstroke z3e{left}..z1e..z4e..z6e..tension 1.5..z7e; +penstroke z8e--z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar("?",digwid#+2ss#,cap#,0); "The italic question mark, ?"; +italcorr(ex#*slant); + +penpos0(thinl,-90); +z0l = (w/2,h); +penpos1(thickl,0); +z1l = (ss,3h/4); +penpos2(thinl,90); +z2l = (w/2,h/2); +penpos3(curvl,180); +z3l = (w-ss,3h/4); +penpos4(thickl,0); +z4 = (2w/3,h/3); +penpos5(1.5thinl,-90); +z5 = (w/2,h/4); +penpos6(thickl,180); +z6 = (w/3,h/3); +penpos7(1.5thinl,90); +z7r = z1r; +penpos8(1.5thinl,180); +z8r = z7r; +penpos9(1.5thinl,-90); +z9r = z8r; + +penstroke z9e..z8e..z7e..z1e{up}..z0e..z3e..z2e..z6e..z5e..z4e; +fill period shifted (w/2-2dotwid+ss,-o); + +questionmark := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"276",digwid#+2ss#,cap#,dep#); "The reverse question mark"; + +currentpicture := questionmark rotatedaround ((w/2,(h-dep)/2),180); + +endchar; + +beginchar(oct"275",1.5pwid#,cap#,dep#); "The reverse exclamation point"; + +currentpicture := bang rotatedaround ((w/2,(h-dep)/2),180) + shifted (0.75pwid,0); + +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml10.mf b/Master/texmf-dist/fonts/source/public/drm/drml10.mf new file mode 100644 index 00000000000..32b9ea5995c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drml10.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.0pt#; +slantwid#=1.0pt#; +thickstroke#=0.8pt#; +thinstroke#=0.3pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml11.mf b/Master/texmf-dist/fonts/source/public/drm/drml11.mf new file mode 100644 index 00000000000..77e73fd1129 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drml11.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=9pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.1pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml12.mf b/Master/texmf-dist/fonts/source/public/drm/drml12.mf new file mode 100644 index 00000000000..bf5c281f264 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drml12.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=10pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.2pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml14.mf b/Master/texmf-dist/fonts/source/public/drm/drml14.mf new file mode 100644 index 00000000000..994361b6354 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drml14.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=12pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.4pt#; +slantwid#=1.4pt#; +thickstroke#=1.2pt#; +thinstroke#=0.4pt#; +loopgap#=1.4pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml17.mf b/Master/texmf-dist/fonts/source/public/drm/drml17.mf new file mode 100644 index 00000000000..30d70c6a6a5 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drml17.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=15pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant := 0; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.7pt#; +slantwid#=1.7pt#; +thickstroke#=1.5pt#; +thinstroke#=0.6pt#; +loopgap#=1.7pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml24.mf b/Master/texmf-dist/fonts/source/public/drm/drml24.mf new file mode 100644 index 00000000000..582bda57177 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drml24.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=21pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=2.1pt#; +slantwid#=2.1pt#; +thickstroke#=1.9pt#; +thinstroke#=0.9pt#; +loopgap#=1.7pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml6.mf b/Master/texmf-dist/fonts/source/public/drm/drml6.mf new file mode 100644 index 00000000000..6727e90c906 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drml6.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=4pt#; +u#=2cap#/3; +em#=1.4cap#; +ex#=0.8cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.09u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.4pt#; +slantwid#=0.4pt#; +thickstroke#=0.4pt#; +thinstroke#=0.3pt#; +loopgap#=0.6pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/16; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml7.mf b/Master/texmf-dist/fonts/source/public/drm/drml7.mf new file mode 100644 index 00000000000..329a5368b2b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drml7.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=5pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.5pt#; +slantwid#=0.5pt#; +thickstroke#=0.5pt#; +thinstroke#=0.3pt#; +loopgap#=0.7pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/8; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml8.mf b/Master/texmf-dist/fonts/source/public/drm/drml8.mf new file mode 100644 index 00000000000..1b9b4a98384 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drml8.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=6pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.7pt#; +slantwid#=0.7pt#; +thickstroke#=0.7pt#; +thinstroke#=0.3pt#; +loopgap#=0.8pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drml9.mf b/Master/texmf-dist/fonts/source/public/drm/drml9.mf new file mode 100644 index 00000000000..efe51ea1567 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drml9.mf @@ -0,0 +1,73 @@ +% +AMDG + +font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=7pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.8pt#; +slantwid#=0.8pt#; +thickstroke#=0.7pt#; +thinstroke#=0.3pt#; +loopgap#=0.9pt#; +o#=0.1pt#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmligs.mf b/Master/texmf-dist/fonts/source/public/drm/drmligs.mf new file mode 100644 index 00000000000..eec609e67bc --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmligs.mf @@ -0,0 +1,236 @@ +% +AMDG This document was begun on 19 August 2007, the Feast of St. John +% Eudes, and it is humbly dedicated to him and to the Immaculate Heart of Mary +% for their prayers, and to the Sacred Heart of Jesus for His mercy. + +ligtable "f" : "l" =: oct"035", "f" =: oct"033", + "i" =: oct"034", "t" =: oct"040", "j" =: oct"027"; +ligtable oct"033" : "i" =: oct"036", "l" =: oct"037"; +ligtable "-" : "-" =: oct"025"; +ligtable oct"025" : "-" =: oct"026"; +ligtable "`" : "`" =: oct"020"; +ligtable "'" : "'" =: oct"021"; +ligtable "?" : "`" =: oct"276"; +ligtable "!" : "`" =: oct"275"; + +ligtable "A" : oct"200" : oct "201" : oct"300" : oct"301" : + oct"302" : oct"303" : oct"304" : oct"305" : "C" kern-0.1u#, + "G" kern-0.1u#,"J" kern-0.1u#, + "O" kern-0.1u#,"Q" kern-0.1u#,"T" kern-0.2u#,"U" kern-0.2u#, + "V" kern-0.2u#,"W" kern-0.2u#,"Y" kern-0.2u#, + "c" kern-0.1u#,"d" kern-0.1u#,"e" kern-0.1u#, + "j" kern-0.05u#,"o" kern-0.1u#,"p" kern-0.05u#, + "q" kern-0.1u#,"t" kern-0.1u#,"u" kern-0.1u#, + "v" kern-.2u#,"w" kern-0.2u#,"y" kern-0.2u#, + "f" kern-0.1u#; +ligtable "B" : "G" kern 0.1u#,"O" kern 0.1u#, + "Q" kern 0.1u#,"S" kern 0.1u#,"a" kern 0.1u#, + "d" kern 0.1u#,"e" kern 0.1u#,"g" kern 0.1u#, + "o" kern 0.1u#,"q" kern 0.1u#,"s" kern 0.1u#, + "c" kern 0.1u#,"u" kern 0.05u#; +ligtable "C" : oct"202" : oct"203" : oct"307" : "v" kern -0.10u#, + "w" kern -0.10u#,"y" kern -0.10u#; +ligtable "D" : oct"204" : oct"320" : oct"336" : "C" kern 0.1u#, + "G" kern 0.2u#,"O" kern 0.1u#, "Q" kern 0.2u#,"S" kern 0.1u#, + "H" kern 0.1u#, "M" kern 0.1u#,"P" kern 0.1u#, + "S" kern 0.1u#,"X" kern -0.05u#,"Y" kern -0.05u#, + "V" kern -0.05u#,"W" kern -0.05u#, + "a" kern 0.1u#, "d" kern 0.1u#,"e" kern 0.1u#, + "g" kern 0.1u#, "o" kern 0.1u#,"q" kern 0.1u#, + "s" kern 0.1u#, "c" kern 0.1u#; +ligtable "E" : oct"205" : oct"206" : oct"306" : + oct"310" : oct"311" : oct"312" : oct"313" : + oct"327" : "a" kern 0.1u#,"b" kern 0.1u#, + "c" kern 0.1u#,"d" kern 0.1u#,"f" kern 0.1u#, + "g" kern 0.1u#,"h" kern 0.1u#,"i" kern 0.1u#, + "k" kern 0.1u#,"l" kern 0.1u#,"m" kern 0.1u#, + "n" kern 0.1u#,"o" kern 0.1u#,"p" kern 0.1u#, + "q" kern 0.1u#,"r" kern 0.1u#,"s" kern 0.1u#, + "t" kern 0.1u#,"u" kern 0.1u#,"x" kern 0.1u#, + "z" kern 0.1u#; +ligtable "F" : "A" kern -0.2u#,"a" kern -0.2u#, + "c" kern -0.2u#,"d" kern -0.2u#,"e" kern -0.2u#, + "g" kern -0.2u#,"m" kern -0.2u#,"n" kern -0.2u#, + "o" kern -0.2u#,"p" kern -0.2u#,"q" kern -0.2u#, + "r" kern -0.2u#,"t" kern -0.2u#,"v" kern -0.2u#, + "w" kern -0.2u#,"x" kern -0.2u#,"y" kern -0.2u#, + "z" kern -0.2u#; +ligtable "G" : oct"207" : "A" kern -0.1u#,"B" kern -0.1u#, + "D" kern -0.1u#, "E" kern -0.1u#, "F" kern -0.1u#, + "H" kern -0.1u#, "I" kern -0.1u#, "J" kern -0.1u#, + "K" kern -0.1u#, "L" kern -0.1u#, "M" kern -0.1u#, + "N" kern -0.1u#, "P" kern -0.1u#, "R" kern -0.1u#, + "T" kern -0.1u#, "U" kern -0.1u#, "V" kern -0.1u#, + "W" kern -0.1u#,"X" kern -0.1u#,"Y" kern -0.1u#, + "b" kern -0.1u#,"h" kern -0.1u#,"k" kern -0.1u#, + "l" kern -0.1u#,"t" kern -0.1u#; +ligtable "I" : oct"314" : oct"315" : oct"316" : + oct"317" : oct"235" : "t" kern-0.1u#; +ligtable "K" : "C" kern -0.1u#,"G" kern -0.1u#, + "O" kern -0.1u#,"Q" kern -0.1u#,"u" kern -0.1u#, + "v" kern -0.2u#,"w" kern -0.2u#,"y" kern -0.2u#; +ligtable "O" : oct"216" : oct"323" : oct"324" : + oct"325" : oct"326" : oct"330" : "A" kern -0.05u#, + "C" kern 0.1u#,"G" kern 0.1u#,"O" kern 0.1u#,"Q" kern 0.1u#, + "S" kern 0.1u#,"V" kern -0.05u#,"W" kern -0.05u#, + "X" kern -0.05u#,"Y" kern -0.05u#,"c" kern 0.2u#, + "d" kern 0.2u#,"e" kern 0.2u#, + "g" kern 0.2u#,"o" kern 0.2u#,"q" kern 0.2u#, + "s" kern 0.2u#; +ligtable "P" : "A" kern -0.1u#,"d" kern -0.05u#, + "o" kern -0.05u#; +ligtable "Q" : "A" kern -0.05u#,"C" kern 0.1u#, + "G" kern 0.1u#,"O" kern 0.1u#,"Q" kern 0.1u#, + "S" kern 0.1u#,"V" kern -0.05u#,"W" kern -0.05u#, + "X" kern -0.05u#,"Y" kern -0.05u#,"c" kern 0.2u#, + "d" kern 0.2u#,"e" kern 0.2u#, + "g" kern 0.2u#,"o" kern 0.2u#,"q" kern 0.2u#, + "s" kern 0.2u#; +ligtable "S" : oct"221" : oct"222" : oct"223" : + "A" kern -0.1u#,"o" kern 0.1u#, + "q" kern 0.1u#,"s" kern 0.1u#,"a" kern 0.1u#, + "c" kern 0.1u#,"d" kern 0.1u#,"e" kern 0.1u#, + "g" kern 0.1u#,"y" kern-0.1u#; +ligtable "T" : oct"224" : oct"225" : "A" kern -0.2u#, + "a" kern -0.1u#, + "c" kern -0.1u#,"d" kern -0.1u#,"e" kern -0.1u#, + "g" kern -0.1u#,"m" kern -0.1u#,"n" kern -0.1u#, + "o" kern -0.1u#,"p" kern -0.1u#,"q" kern -0.1u#, + "r" kern -0.1u#,"s" kern -0.1u#,"u" kern -0.1u#, + "v" kern -0.1u#,"w" kern -0.1u#,"x" kern -0.1u#, + "y" kern -0.2u#,"z" kern -0.1u#,"h" =: oct"136"; +ligtable "U" : oct"331" : oct"332" : oct"333" : + oct"334" : oct"226" : oct"227" : "A" kern -0.05u#; +ligtable "V" : "A" kern -0.2u#,"C" kern -0.05u#, + "G" kern -0.05u#,"O" kern -0.05u#,"Q" kern -0.05u#, + "a" kern -0.05u#,"c" kern -0.05u#,"d" kern -0.05u#, + "e" kern -0.05u#,"g" kern -0.05u#,"m" kern -0.05u#, + "n" kern -0.05u#,"o" kern -0.05u#,"p" kern -0.05u#, + "q" kern -0.05u#,"s" kern -0.05u#,"u" kern -0.05u#, + "v" kern -0.05u#,"w" kern -0.05u#,"x" kern -0.05u#, + "y" kern -0.05u#,"z" kern -0.05u#; +ligtable "W" : "A" kern -0.2u#,"C" kern -0.05u#, + "G" kern -0.05u#,"O" kern -0.05u#,"Q" kern -0.05u#, + "a" kern -0.05u#,"c" kern -0.05u#,"d" kern -0.05u#, + "e" kern -0.05u#,"g" kern -0.05u#,"m" kern -0.05u#, + "n" kern -0.05u#,"o" kern -0.05u#,"p" kern -0.05u#, + "q" kern -0.05u#,"s" kern -0.05u#,"u" kern -0.05u#, + "v" kern -0.05u#,"w" kern -0.05u#,"x" kern -0.05u#, + "y" kern -0.05u#,"z" kern -0.05u#; +ligtable "X" : "C" kern -0.05u#,"G" kern -0.05u#, + "O" kern -0.05u#,"Q" kern -0.05u#,"v" kern -0.05u#, + "w" kern -0.05u#,"y" kern -0.05u#; +ligtable "Y" : oct"335" : oct"230" : "A" kern -0.2u#, + "C" kern -0.05u#,"G" kern -0.05u#,"O" kern -0.05u#, + "Q" kern -0.05u#, "a" kern -0.05u#,"c" kern -0.05u#, + "d" kern -0.05u#,"e" kern -0.05u#,"g" kern -0.05u#, + "m" kern -0.05u#,"n" kern -0.05u#,"o" kern -0.05u#, + "p" kern -0.05u#,"q" kern -0.05u#,"s" kern -0.05u#, + "u" kern -0.05u#,"v" kern -0.05u#,"w" kern -0.05u#, + "x" kern -0.05u#,"y" kern -0.05u#,"z" kern -0.05u#, + "r" kern -0.1u#,"t" kern -0.1u#; +ligtable "a" : oct"240" : oct"241" : oct"340" : oct"341" : + oct"342" : oct"343" : oct"344" : oct"345" : + "c" kern -0.05u#,"d" kern -0.05u#, + "e" kern -0.05u#,"o" kern -0.05u#,"q" kern -0.05u#, + "t" kern -0.1u#,"u" kern -0.05u#,"v" kern -0.1u#, + "w" kern -0.1u#,"y" kern -0.2u#,"p" kern -0.1u#, + "l" kern -0.1u#,"n" kern-0.1u#,"m" kern-0.05u#, + "k" kern-0.05u#; +ligtable "b" : oct"376" : "o" kern 0.05u#,"c" kern 0.05u#, + "d" kern 0.05u#,"e" kern 0.05u#,"g" kern 0.05u#,"q" kern 0.05u#, + "s" kern 0.1u#,"x" kern -0.1u#,"y" kern -0.1u#, + "a" kern0.05u#; +ligtable "e" : oct"245" : oct"246" : oct"346" : oct"350" : + oct"351" : oct"352" : oct"353" : "c" kern 0.1u#, + "d" kern 0.1u#,"e" kern 0.05u#, + "g" kern 0.1u#,"o" kern 0.1u#,"x" kern -0.1u#, + "s" kern 0.1u#,"a" kern 0.05u#,"l" kern-0.05u#, + "y" kern-0.1u#,"t" kern -0.05u#,"m" kern-0.05u#, + "n" kern-0.05u#,"r" kern-0.05u#,"v" kern-0.1u#; +ligtable "c" : oct"242" : oct"243" : oct"347" : + "e" kern 0.1u#,"d" kern 0.1u#,"e" kern 0.1u#, + "g" kern 0.1u#,"o" kern 0.1u#,"x" kern -0.1u#, + "s" kern 0.1u#,"a" kern 0.1u#; +ligtable "d" : oct"244" : oct"236" : "v" kern -0.1u#, + "y" kern-0.2u#,"i" kern-0.1u#,"u" kern-0.05u#; +ligtable "p" : "e" kern 0.05u#,"d" kern 0.05u#,"e" kern 0.05u#, + "g" kern 0.05u#,"o" kern 0.05u#,"x" kern -0.1u#, + "s" kern 0.1u#,"c" kern 0.05u#,"a" kern 0.1u#, + "w" kern-0.05u#,"v" kern-0.05u#; +ligtable "o" : oct"370" : oct"362" : oct"363" : oct"364" : + oct"365" : oct"366" : "a" kern 0.1u#, "c" kern 0.1u#, + "d" kern 0.1u#,"e" kern 0.1u#,"g" kern 0.1u#, + "o" kern 0.1u#,"q" kern 0.1u#,"s" kern 0.1u#, + "v" kern -0.05u#,"m" kern -0.05u#,"n" kern-0.05u#, + "w" kern -0.05u#,"l" kern-0.05u#,"i" kern-0.05u#; +ligtable "s" : oct"261" : oct"262" : oct"263" : + "a" kern 0.1u#, "c" kern 0.1u#, + "d" kern 0.1u#,"e" kern 0.1u#,"g" kern 0.1u#, + "o" kern 0.1u#,"q" kern 0.1u#,"s" kern 0.1u#, + "i" kern 0.05u#; +ligtable "m" : "e" kern-0.05u#,"o" kern-0.05u#, + "c" kern-0.05u#,"q" kern-0.05u#,"p" kern-0.1u#, + "b" kern-0.05u#,"y" kern-0.05u#; +ligtable "g" : oct"247" : "a" kern 0.1u#,"b" kern 0.1u#,"c" kern 0.1u#, + "d" kern 0.1u#,"e" kern 0.1u#,"f" kern 0.1u#, + "g" kern 0.1u#,"h" kern 0.1u#,"i" kern 0.1u#, + "j" kern 0.1u#,"k" kern 0.1u#,"l" kern 0.1u#, + "m" kern 0.1u#,"n" kern 0.1u#,"o" kern 0.1u#, + "p" kern 0.1u#,"q" kern 0.1u#,"r" kern 0.1u#, + "s" kern 0.1u#,"t" kern 0.1u#,"u" kern 0.1u#, + "v" kern 0.1u#,"w" kern 0.1u#,"x" kern 0.1u#, + "y" kern 0.1u#,"z" kern 0.1u#; +ligtable "h" : oct"136" : "a" kern 0.0u#, "b" kern -0.1u#, + "c" kern -0.05u#, "d" kern -0.1u#,"e" kern -0.05u#, + "f" kern -0.1u#, "g" kern -0.05u#,"h" kern -0.1u#, + "i" kern -0.1u#, "j" kern -0.1u#,"k" kern -0.1u#, + "l" kern -0.1u#, "m" kern -0.1u#,"n" kern -0.1u#, + "o" kern 0.00u#, "p" kern -0.1u#,"q" kern -0.05u#, + "r" kern -0.1u#, "s" kern -0.0u#,"t" kern -0.1u#, + "u" kern -0.1u#, "v" kern -0.1u#,"w" kern -0.1u#, + "x" kern -0.1u#, "y" kern -0.1u#,"z" kern -0.1u#; +ligtable "j" : "a" kern 0.1u#,"b" kern 0.1u#,"c" kern 0.1u#, + "d" kern 0.1u#,"e" kern 0.1u#,"f" kern 0.1u#, + "g" kern 0.1u#,"h" kern 0.1u#,"i" kern 0.1u#, + "j" kern 0.1u#,"k" kern 0.1u#,"l" kern 0.1u#, + "m" kern 0.1u#,"n" kern 0.1u#,"o" kern 0.1u#, + "p" kern 0.1u#,"q" kern 0.1u#,"r" kern 0.1u#, + "s" kern 0.1u#,"t" kern 0.1u#,"u" kern 0.1u#, + "v" kern 0.1u#,"w" kern 0.1u#,"x" kern 0.1u#, + "y" kern 0.1u#,"z" kern 0.1u#; +ligtable "k" : "c" kern -0.1u#,"d" kern -0.1u#, + "e" kern -0.1u#,"o" kern -0.1u#,"q" kern -0.1u#; +ligtable "l" : oct"250" : oct"251" : oct"252" : + "l" kern -0.05u#,"y" kern-0.1u#, + "i" kern-0.05u#,"d" kern-0.05u#; +ligtable "n" : oct"253" : oct"254" : oct"255" : + oct"361" : "g" kern 0.05u#, "a" kern 0.1u#, + "d" kern 0.05u#,"e" kern 0.0u#,"s" kern 0.1u#, + "t" kern-0.1u#,"w" kern-0.1u#,"v" kern-0.1u#, + "u" kern-0.1u#; +ligtable "q" : "u" kern -0.1u#; +ligtable "r" : oct"257" : "e" kern 0.05u#,"s" kern 0.02u#, + "g" kern 0.1u#,"k" kern-0.05u#,"b" kern-0.05u#, + "n" kern-0.05u#,"m" kern-0.05u#,"a" kern 0.05u#; +ligtable "i" : oct"354" : oct"355" : oct"356" : oct"357" : + "s" kern 0.05u#,"t" kern -0.1u#, + "n" kern-0.1u#,"l" kern-0.05u#,"v" kern-0.05u#; +ligtable "t" : oct"040" : oct"264" : oct"265" : + "h" kern -0.05u#,"e" kern 0.00u#, + "o" kern 0.05u#,"s" kern 0.05u#,"a" kern 0.1u#, + "y" kern-0.05u#; +ligtable "u" : oct"371" : oct"372" : oct"373" : oct"374" : + oct"266" : oct"267" : "n" kern -0.1u#,"t" kern -0.05u#, + "p" kern-0.05u#; +ligtable "v" : "e" kern -0.1u#,"o" kern-0.1u#; +ligtable "w" : "e" kern -0.1u#,"a" kern-0.05u#, + "o" kern-0.1u#,"q" kern-0.1u#,"c" kern-.1u#; +ligtable "y" : oct"375" : oct"270" : "p" kern -0.1u#,"m" kern -0.05u#, + "o" kern-0.05u#,"e" kern-0.1u#; +ligtable "(" : "a" kern-0.15u#, "c" kern-0.15u#, + "d" kern-0.15u#,"e" kern-0.15u#,"g" kern-0.15u#, + "i" kern-0.15u#,"j" kern-0.15u#,"m" kern-0.15u#, + "n" kern-0.15u#,"o" kern-0.15u#,"q" kern-0.15u#, + "s" kern-0.15u#,"t" kern-0.15u#,"u" kern-0.15u#, + "v" kern-0.15u#,"w" kern-0.15u#,"x" kern-0.15u#, + "z" kern-0.15u#; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmlow.mf b/Master/texmf-dist/fonts/source/public/drm/drmlow.mf new file mode 100644 index 00000000000..ed5713c75a7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmlow.mf @@ -0,0 +1,1358 @@ +% +AMDG This document was begun on 1X April 11EX, Easter +% Tuesday, and it is humbly dedicated to Our Risen Lord +% Jesus Christ, for His mercy. + +beginchar("a",exw#+2ss#,ex#,0); "The Letter a"; + +z0 = (ss,3h/4); +z1 = (x3/2,h+o); +z2 = (w-ss-lserwl,3h/4); +z3 = (x2,lserhl); +z8 = z7 shifted (0,lserhl); +z9 = 0.5[z18,z19]; y9 := 0-o; +z10 = (ss-o,h/4); +z15 = z2 shifted (-thickl,0); +z16 = z1 shifted (0,-thinl); +z17 = z9 shifted (0,thinl); +z18 = z10 shifted (thickl,0); +z19 = z3 shifted (-thickl,lserhl); +z20 = (w/2-thickl,h/2); +z21 = z20 shifted (thickl/2,-thinl); +z22 = 0.2[z15,z19]; +z23 = z19 shifted (-thinl,0); +z24 = z22 shifted (0,-thickl/2); +z25 = z16 shifted (.5thickl,0); + +lrserif(3,4,5,6,7)(1); +drtbulb(0,11,12,13,14); + +fill +z13..z12..z11..z0{up}..{right}z1{right}..{down}z2--z3..z4..z5--z6--z7--z8..z9..{up}z10..z20..z22--z15{up}..{left}z16{left}..z13..cycle; +unfill z18..z21..z24--z19..z17..cycle; + +lowa := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("b",1.2exw#+2ss#,asch#,0); "The Letter b"; + +z0 = (ss+userwl,h-userhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+lserwl,lserhl); +z3 = z2 shifted (thickl,0); +z12 = z1 shifted (0,userhl); +z13 = z3 shifted (0,-lserhl); +z19 = 0.5[z15,z17]; +z20 = (w-ss,(ex+o)/2); +z21 = (x2,y19); +z14 = 0.5[z22,z23] shifted (0,ex/2); +z15 = z14 shifted (0,-thinl); +z16 = 0.5[z22,z23] shifted (0,-ex/2-o); +z17 = z16 shifted (0,thinl); +z22 = z21 shifted (thickl,0); +z23 = z20 shifted (-curvl,0); + +ulserif(0,4,5,6,7)(1); +llserif(2,8,9,10,11)(1); + +fill z0..z4..z5--z6--z12--z13--z10--z9..z8..z2--cycle; +fill +z21{up}..{right}z14{right}..{down}z20{down}..{left}z16{left}..{up}z21..cycle; +unfill +z22{up}..{right}z15{right}..{down}z23{down}..{left}z17{left}..{up}z22..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("d",1.2exw#+2ss#,asch#,0); "The Letter d"; + +z0 = (w-ss-lserwl,h-userhl); +z1 = z0 shifted (-thickl,0); +z2 = (x0,lserhl); +z3 = z2 shifted (-thickl,0); +z12 = z0 shifted (0,userhl); +z13 = z3 shifted (0,-lserhl); +z19 = 0.5[z15,z17]; y19 := ex/2; +z20 = (x2,(ex+o)/2); +z21 = (ss,(ex+o)/2); +z14 = 0.5[z22,z23] shifted (0,ex/2); +z15 = z14 shifted (0,-thinl); +z16 = 0.5[z22,z23] shifted (0,-ex/2-o); +z17 = z16 shifted (0,thinl); +z22 = z21 shifted (curvl,0); +z23 = z20 shifted (-thickl,0); + +ulserif(1,4,5,6,7)(1); +lrserif(2,8,9,10,11)(1); + +fill z1..z4..z5--z6--z12--z2..z8..z9--z10--z13--z1--cycle; +fill +z21{up}..{right}z14{right}..{down}z20{down}..{left}z16{left}..{up}z21..cycle; +unfill +z22{up}..{right}z15{right}..{down}z23{down}..{left}z17{left}..{up}z22..cycle; + +lowd := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("l",0.6exw#+2ss#,asch#,0); "The Letter l"; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+userwl,h-userhl); +z3 = z2 shifted (thickl,0); +z16 = z3 shifted (0,userhl); + +ulserif(2,4,5,6,7)(1); +llserif(0,8,9,10,11)(1); +lrserif(1,12,13,14,15)(1); + +fill +z0--z2..z4..z5--z6--z7--z16--z1..z12..z13--z14--z10--z9..z8..z0..cycle; + +lowl := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("h",exw#+2ss#+5hair#,asch#,0); "The Letter h"; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+userwl,h-userhl); +z3 = z2 shifted (thickl,0); +z16 = z3 shifted (0,userhl); +z50 = 0.5[z0,z19]; +z17 = (x50,ex+o); +z18 = z17 shifted (0,-thinl); +z44 = z17; +z45 = z44 shifted (0,-thinl); +z19 = (w-ss-lserwl,lserhl); +z20 = z19 shifted (-thickl,0); +z25 = z20 shifted (0,-lserhl); +z26 = z1 shifted (0,-lserhl); +z27 = z19 shifted (0,w/3); +z28 = z27 shifted (-thickl,0); +z29 = z1 shifted (0,w/3); +z30 = z29 shifted (-thickl,0); +z35 = (x28,ex-thickl); +z36 = (x27,ex-thickl); +z37 = (x30,ex-thickl); +z38 = (x29,ex-thickl); + +ulserif(2,4,5,6,7)(1); +llserif(0,8,9,10,11)(1); +lrserif(19,21,22,23,24)(1); +llserif(20,40,41,42,43)(1); +lrserif(1,31,32,33,34)(1); + +path hone; path htwo; +hone = +z26--z10--z9..z8..z0--z2..z4..z5--z6--z16--z1..z31..z32--z33--cycle; +htwo = +z1--z29--z38{up}..{right}z18{right}..{right}z45{right}..{down}z35--z28--z20..z40..z41--z42--z23--z22..z21..z19--z27---z36{up}..{left}z44{left}..{left}z17{left}..{down}z37--z30--z0--cycle; +fill hone; fill htwo; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("p",1.2exw#+2ss#,ex#,dep#); "The Letter p"; + +z0 = (ss+lserwl,-d+lserhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+userwl,h-userhl); +z3 = z2 shifted (thickl,0); +z16 = z3 shifted (0,userhl); +z22 = z1 shifted (0,userhl); +z23 = z3 shifted (0,-lserhl); +z50 = 0.5[z2,(w-ss,y2)]; +z24 = (x50,h); +z25 = z24 shifted (0,-thinl); +z26 = (x50,0); +z27 = z26 shifted (0,thinl); +z29 = 0.5[z25,z27]; +z30 = (w-ss,y29); +z31 = (x0,y30); +z32 = z31 shifted (thickl,0); +z33 = z30 shifted (-curvl,0); + +ulserif(2,4,5,6,7)(1); +llserif(0,8,9,10,11)(1); +lrserif(1,12,13,14,15)(1); + +fill z0..z8..z9--z10--z14--z13..z12..z1--z16--z6--z5..z4..z2--cycle; +fill +z31{up}..{right}z24{right}..{down}z30{down}..{left}z26{left}..{up}z31..cycle; +unfill +z32{up}..{right}z25{right}..{down}z33{down}..{left}z27{left}..{up}z32..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("q",1.2exw#+2ss#,ex#,dep#); "The Letter q"; + +z0 = (w-(ss+lserwl),-d+lserhl); +z1 = z0 shifted (-thickl,0); +z2 = (w-(ss+userwl),h-userhl); +z3 = z2 shifted (-thickl,0); +z16 = z3 shifted (0,userhl); +z17 = 0.5[z16 shifted (thickl,0),(ss,y16)]; +z18 = z17 shifted (0,-thinl); +z19 = (x17,0); +z20 = z19 shifted (0,thinl); +z21 = 0.5[z18,z20]; +z22 = (ss,h/2); +z23 = z22 shifted (curvl,0); +z24 = z16 shifted (0,-h/2); +z25 = z24 shifted (thickl,0); + +lrserif(0,4,5,6,7)(1); +llserif(1,8,9,10,11)(1); +urserif(2,12,13,14,15)(1); + +fill +z16--z14--z13..z12..z2--z0..z4..z5--z6--z10--z9..z8..z1--z16--cycle; +fill +z22{up}..{right}z17{right}..{down}z25{down}..{left}z19{left}..{up}z22..cycle; +unfill +z23{up}..{right}z18{right}..{down}z24{down}..{left}z20{left}..{up}z23..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("t",exw#/phi+2ss#,theight#,0); "The Letter t"; + +z0 = (ss+hair,ex); +z1 = z0 shifted (0,-thinl); +z2 = (w-ss/2-hair,ex); +z3 = z2 shifted (0,-thinl); +z4 = (w/2+thickl/2,h+o); +z5 = (w/2,0-o); +z6 = z5 shifted (-thickl/2,2lserh); +z7 = z6 shifted (thickl,0); +z8 = (x7,y2); +z9 = (x7,y3); +z10 = (x6,y1); +z11 = (w-ss,y7); +z12 = z11 shifted (-thinl/2,0); +z13 = 0.5[z7,z12] shifted (0,-y7/2); +z14 = (x7,y5); +z15 = 0.5[z2,z3] shifted (hair,0); +z16 = 0.5[z0,z1] shifted (-hair,0); +z17 = (x10,y0); +z18 = 0.5[z0,z17]; +z19 = z4 shifted (-hair/4,0); + +pickup pencircle scaled 2; +fill +z4--z8--z2..z15..z3--z9--z7{down}..{right}z13{right}..{up}z12..z11{down}..{left}z14{left}..{up}z6--z10--z1..z16..z0--z18{right}..{dir +80}z19--z4--cycle; + +lowt := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("f",exw#/phi+2ss#,asch#,0); "The Letter f"; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+lserwl,h-1.5userhl); +z3 = z2 shifted (thickl,0); +z12 = (x0,ex-thinl); +z13 = z12 shifted (thickl,0); +z14 = z12 shifted (0,thinl); +z15 = z13 shifted (0,thinl); +z16 = (ss+hair,y12); +armlen = x12 - x16; +z17 = z13 shifted (armlen,0); +z18 = z16 shifted (0,thinl); +z19 = z17 shifted (0,thinl); +z20 = 0.5[z16,z18] shifted (-hair,0); +z21 = 0.5[z19,z17] shifted (hair,0); +z22 = (x19,y3); +z27 = 0.5[z3,z22]; y27 := h+o; +z28 = z27 shifted (0,-thinl); + +lrserif(1,4,5,6,7)(1); +llserif(0,8,9,10,11)(1); +dlftbulb(22,23,24,25,26); + +fill +z1..z4..z5--z6--z10--z9..z8..z0--z12--z16..z20..z18--z14--z2{up}..{right}z27{right}..{down}z24..z23..z22..{right}z25{dir 160}..z28..{down}z3--z15--z19..z21..z17--z13--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("o",exw#+2ss#,ex#,0); "The Letter o"; + +z0 = (w/2,h+o); +z1 = (w/2,-o); +z2 = (ss,h/2); +z3 = (w-ss,h/2); +z4 = z3 shifted (-curvl,0); +z5 = z2 shifted (curvl,0); +z6 = z0 shifted (0,-thinl); +z7 = z1 shifted (0,thinl); + +fill z1..z3..z0..z2..cycle; +unfill z4..z6..z5..z7..cycle; + +lowo := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("u",1.2exw#+2ss#,ex#,0); "The Letter u"; + +z0 = (ss+userwl,h-userhl); +z1 = z0 shifted (thickl,0); +z2 = (w-ss-lserwl,lserhl); +z3 = z2 shifted (-thickl,0); +z12 = z1 shifted (0,userhl); +z13 = z3 shifted (0,-lserhl); +z14 = (w/2,-o); +z15 = z14 shifted (0,1.5thinl); +z16 = (x0,h/4); +z17 = 0.5[z16,z14] shifted (0,-lserwl); +z18 = z17 shifted (3o,lserhl); +z19 = z16 shifted (thickl,0); +z20 = (w-ss-userwl,h-userhl); +z21 = z20 shifted (-thickl,0); +z22 = (x21,h/4); +z23 = z22 shifted (thickl,0); +z24 = 0.5[z23,z14] shifted (-2o,-lserwl); +z29 = z20 shifted (0,userhl); +z30 = z24 shifted (0,lserhl); + +ulserif(0,4,5,6,7)(1); +lrserif(2,8,9,10,11)(1); +ulserif(21,25,26,27,28)(1); + +fill +z1--z12--z6--z5..z4..z0--z16{down}..{right}z14{right}..{up}z23--z29--z27--z26..z25..z21--z22{down}..z15..{up}z19--cycle; +fill z13--z10--z9..z8..z2--z23--z22--cycle; + +lowu := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("i",0.6exw#+2ss#,ex#,0); "The Letter i"; + +z0 = (w/2-thickl/2,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (w/2-thickl/2,h-userhl); +z3 = z2 shifted (thickl,0); +z16 = z3 shifted (0,userhl); +% dot +z17 = (w/2,h+2userh+dotwid); +z18 = z17 shifted (0,dotwid); +z19 = z17 shifted (0,-dotwid); +z20 = z17 shifted (dotwid,0); +z21 = z17 shifted (-dotwid,0); + +ulserif(2,4,5,6,7)(1); +llserif(0,8,9,10,11)(1); +lrserif(1,12,13,14,15)(1); + +fill z0..z8..z9--z10--z14--z13..z12..z1--z16--z6--z5..z4..z2--cycle; +dotlessi := currentpicture; +fill z18..z20..z19..z21..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("j",0.4exw#+2ss#,ex#,dep#); "The Letter j"; + +z0 = (w-thickl-ss,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (w-thickl-ss,h-userhl); +z3 = z2 shifted (thickl,0); +z8 = z3 shifted (0,userhl); +z9 = (x0-lserwl,-dep); +z10 = z9 shifted (0,thinl); +z11 = (x0-2lserwl,-dep/2); +% dot +z17 = (w-thickl+userw/3-ss,h+2userh+dotwid); +z18 = z17 shifted (0,dotwid); +z19 = z17 shifted (0,-dotwid); +z20 = z17 shifted (dotwid,0); +z21 = z17 shifted (-dotwid,0); + +ulserif(2,4,5,6,7)(1); +ulftbulb(11,12,13,14,15); + +fill +z5--z6--z8--z1{down}..z9..z11..z12..z13..z14..z10..{up}z0--z2..z4..cycle; +dotlessj := currentpicture; +fill z18..z20..z19..z21..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"031",exw#/phi+2ss#,ex#,0); "dotless i"; + +currentpicture := dotlessi; + +endchar; + +beginchar(oct"032",0.4exw#+2ss#,ex#,dep#); "dotless j"; + +currentpicture := dotlessj; + +endchar; + +beginchar("c",exw#+2ss#,ex#,0); "The Letter c"; + +z0 = (w/2+hair,h+o); +z1 = (w/2+hair,-o); +z2 = (w-ss,0.7h); +z3 = (w-ss,h/4); +z4 = (ss,h/2); +z9 = z0 shifted (0,-thinl); +z10 = z4 shifted (curvl,0); +z11 = z1 shifted (0,thinl); +z12 = z3 shifted (0,hair/2); +z13 = z12 shifted (-hair/2,0); +z14 = (w-ss,h/2); + +urtbulb(2,5,6,7,8); + +fill +z1{right}..z3..z12..z13{dir -135}..{left}z11{left}..{up}z10{up}..{right}z9{right}..{dir +-40}z7{left}..{down}z6..z5..z2..{left}z0{left}..z4..{right}z1..cycle; + +lowc := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("e",exw#+2ss#,ex#,0); "The Letter e"; + +z0 = (w/2,h+o); +z1 = (w/2,-o); +z2 = (w-ss,h/2); +z3 = (w-ss-hair,h/4); +z4 = (ss,h/2); +z9 = z0 shifted (0,-thinl); +z10 = z4 shifted (curvl,0); +z11 = z1 shifted (0,thinl); +z12 = z3 shifted (0,hair/2); +z13 = z12 shifted (-hair/2,0); +z14 = z2 shifted (-curvl,thinl); +z15 = z10 shifted (0,thinl); + +fill +z2{up}..{left}z0{left}..{down}z4{down}..{right}z1{right}..z3..z12..z13{dir +-120}..{left}z11{left}..{up}z10{up}..z9..{down}z14--z15--z10--cycle; + +lowe := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"034",(exw#/phi)*2+2ss#,asch#,0); "The ligature fi"; + +singwid = (ex/phi)/2; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+userwl,h-1.5userhl); +z3 = z2 shifted (thickl,0); +z12 = (x2,ex-thinl); +z13 = z12 shifted (thickl,0); +z14 = z12 shifted (0,thinl); +z15 = z12 shifted (thickl,thinl); +z16 = z12 shifted (-lserwl,0); +z17 = z13 shifted (lserwl+2thickl,0); +z18 = z16 shifted (0,thinl); +z19 = z17 shifted (0,thinl); +z20 = z16 shifted (-hair/2,hair/2); +z21 = z17 shifted (o,o); +z22 = z17 shifted (-thickl+o,h/3-userhl); x22 := x32; +z27 = 0.5[z13,z32]; y27 := h+o; +z28 = z27 shifted (0,-thinl); +z30 = z1 shifted (2lserwl+hair,0); +z31 = z30 shifted (thickl,0); +z32 = (x30,y12); +z33 = z32 shifted (thickl,0); +z46 = (x31,ex); + +lrserif(1,4,5,6,7)(1); +llserif(0,8,9,10,11)(1); +dlftbulb(22,23,24,25,26); +ulserif(32,34,35,36,37)(1); +llserif(30,38,39,40,41)(1); +lrserif(31,42,43,44,45)(1); + +y34 := y13; +y46 := y15; +y32 := y34; + +fill +z1..z4..z5--z6--z10--z9..z8..z0--z12--z16..z20..z18--z14--z2{up}..{right}z27{right}..{down}z24..z23..z22..{right}z25{dir +120}..{left}z28{left}..{down}z3--z15--z46--z31..z42..z43--z44--z40--z39..z38..z30--z32..z34--z13--cycle; + +filig := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("g",exw#+2ss#,ex#,dep#); "The Letter g"; + +gtailwid = thinl/2; +z0 = (w/2,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (w/2,1.5lserwl); +z3 = z2 shifted (0,thinl); +z4 = 0.5[z1,z3]; +z5 = (ss,y4); +z7 = z5 shifted (curvl,0); +z6 = (w-ss,y4); +z8 = z6 shifted (-curvl,0); +z10 = (w-ss,h+o); +z9 = (z0{right}..{down}z6) intersectionpoint (z10--z4); +z11 = z10 shifted (thinl,-1.5thinl); +z12 = z11 shifted (-gtailwid,0); +z13 = z10 shifted (0,-gtailwid); +z14 = z9 shifted (0,-gtailwid);%FFF +z15 = (ss+lserwl/2,lserhl); +z16 = z15 shifted (1.3thinl,0); +z17 = (z5{down}..{right}z2) intersectionpoint (z15--z4); +z21 = (w/2,thinl); +z22 = (w/2,-dep); +z23 = (ss,-dep/2); +z24 = (w-ss,-dep/2); +z25 = z21 shifted (0,-thinl); +z26 = z22 shifted (0,thinl); +z27 = z23 shifted (curvl,0); +z28 = z24 shifted (-curvl,0); +z29 = 0.5[z26,z25]; +z30 = (z23{up}..{right}z21) intersectionpoint (z15--z29); +z31 = (4w/7,y21); +z32 = (3w/7,y21); +z33 = (4w/7,y22); +z34 = (3w/7,y22); +z35 = 0.3[z29,z8]; +z36 = (x35,y25); +z37 = (x35,y26); +z38 = 0.7[z27,z29]; +z39 = (x38,y25); +z40 = (x38,y26); + +fill +z21{right}..{right}z31..z24..z33{left}..{left}z22{left}..{left}z34{left}..z23..{right}z32{right}..cycle; +unfill +z25{right}..{right}z36..z28..z37{left}..{left}z26{left}..{left}z40..z27..{right}z39..cycle; +fill z5..z0..z6..z2..cycle; +unfill z7..z1..z8..z3..cycle; +fill z9..z10..{down}z11..z12..z13{dir 140}..z14..cycle; +fill z17{up}..z15..{up}z30..z16..z17..cycle; + +lowg := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("m",1.1em#+2ss#,ex#,0); "The Letter m"; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +%z2 = z1 shifted (hair+2lserwl,0); +%z3 = z2 shifted (thickl,0); +%z4 = z3 shifted (hair+2lserwl,0); +%z5 = z4 shifted (thickl,0); +z2 = (w/2-thickl/2,lserhl); +z3 = z2 shifted (thickl,0); +z4 = (w-ss-lserwl-thickl,lserhl); +z5 = z4 shifted (thickl,0); +z30 = (ss+userwl,h-userhl); +z31 = z30 shifted (thickl,0); +z32 = z31 shifted (hair+2userwl,0); +z33 = z32 shifted (thickl/2,0); +z34 = z33 shifted (hair+2userwl+thickl/2,0); +z35 = z34 shifted (thickl,-thinl); +z40 = z31 shifted (0,userhl); +x35 := x5; +x32 := x2; +x34 := x4; +z45 = 0.5[z32,z33]; +z46 = 0.5[z34,z35]; +z41 = 0.5[z40,z45]; +z42 = 0.5[z45,z46] shifted (0,userhl); +z43 = z41 shifted (0,-thinl); +z44 = z42 shifted (0,-thinl); +z47 = 0.5[z31,z33] shifted (0,userhl+o); +z48 = 0.5[z55,z34] shifted (0,userhl+o); +z49 = z33 shifted (0,-thinl); +z50 = z31 shifted (0,-thinl); +looph = y47-y41; +z51 = z48 shifted (0,-looph); +z52 = z47 shifted (0,-0.8thinl); +z53 = z49 shifted (-hair/2,hair); +z54 = z49 shifted (-thickl/2,hair); +z55 = z33 shifted (thickl/2,0); +x54 := x2; +x55 := x3; + +llserif(0,6,7,8,9)(1); +lrserif(1,10,11,12,13)(1); +llserif(2,14,15,16,17)(1); +lrserif(3,18,19,20,21)(1); +llserif(4,22,23,24,25)(1); +lrserif(5,26,27,28,29)(1); +ulserif(30,36,37,38,39)(1); + +fill +z1..z10..z11--z12--z8--z7..z6..z0--z30..z36..z37--z38--z40--z31{up}..{right}z47{right}..z55--z32..{right}z48{right}..{down}z35--z5..z26..z27--z28--z24--z23..z22..z4--z34..{left}z51{left}..z55--z3..z18..z19--z20--z16--z15..z14..z2--z54..z41..z50--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56); +endchar; + +beginchar("n",1.2exw#+2ss#,ex#,0); "The Letter n"; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (w-ss-lserwl-thickstroke,lserhl); +z3 = z2 shifted (thickl,0); +z20 = (ss+userwl,h-userhl); +z21 = z20 shifted (thickl,0); +z22 = z21 shifted (0,userhl); +z23 = (x2,y21); +z24 = z23 shifted (thickl,-thinl); +z29 = z20 shifted (0,userhl); +z30 = z24 shifted (0,userhl+thinl); +z31 = 0.5[z30,z29] shifted (0,o); +z32 = z31 shifted (0,-0.8thinl); +z33 = z28 shifted (0,-userhl); + +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +llserif(2,12,13,14,15)(1); +lrserif(3,16,17,18,19)(1); +ulserif(20,25,26,27,28)(1); + +fill +z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z20..{right}z31{right}..{down}z24--z3..z16..z17--z18--z14--z13..z12..z2--z23..z32..z21--z1..z8..z9--z10--z6--cycle; + +lown := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56); +endchar; + +beginchar("r",exw#+2ss#,ex#,0); "The Letter r"; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z10 = (ss+userwl,h-userhl); +z11 = z10 shifted (thickl,0); +z16 = 0.5[z11,z10]; +llserif(0,2,3,4,5)(1); +lrserif(1,6,7,8,9)(1); +ulserif(10,12,13,14,15)(1); +%z15 = z16 shifted (0,userh); +%z17 = z15 shifted (lserwl+o+lserwl+o,-userhl+2o); +hookw = w-x15-ss-bulbsh; +z17 = z16 shifted (hookw,userh/2); +z18 = 0.5[z16,z17]; y18 := h+o; +z23 = z18 shifted (0,-thinl); +z24 = z17 shifted (0,-2hair); +z25 = z16 shifted (thickl/2,-thinl); +rbulb(17,19,20,21,22); + +fill +z1..z6..z7--z8--z4--z3..z2..z0--z10..z12..z13--z14--z15--z16--z10..{right}z18{right}..z17..z19..z20..z21{up}..{down}z24{dir +160}..z23..z11--cycle; + +lowr := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56); +endchar; + +beginchar("k",1.2exw#+2ss#,asch#,0); "The Letter k"; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+userwl,h-userhl); +z3 = z2 shifted (thickl,0); +z16 = z3 shifted (0,userhl); +z17 = (w-ss-lserwl,lserhl); +z18 = z17 shifted (-slantl,0); +z27 = (w-ss-hair-userwl,ex-userhl); +z41 = (x17,y27); +z28 = z27 shifted (-1.5thinl,0); +z37 = 0.5[z41,z17]; x37 := x1; +z38 = z37 shifted (0,slantl-o/2); +z39 = 0.25[z38,z17]; +z40 = 0.30[z39,z38]; +z42 = z37 shifted (0,thinl); +z43 = 0.1[z37,z27]; +z44 = 0.3[z43,z27]; + +ulserif(2,4,5,6,7)(1); +llserif(0,8,9,10,11)(1); +lrserif(1,12,13,14,15)(1); +llserif(18,19,20,21,22)(1); +lrserif(17,23,24,25,26)(1); +urserif(27,29,30,31,32)(1); +ulserif(28,33,34,35,36)(1); + +fill +z3--z16--z6--z5..z4..z2--z0..z8..z9--z10--z14--z13..z12..z1--z37--z43--z18..z19..z20--z21--z25--z24..z23..z17--z44--z27..z29..z30--z31--z35--z34..z33..z28--z42--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56); +endchar; + +beginchar("x",1.2exw#+2ss#,ex#,0); "The Letter x"; + +z0 = (w/2,h/2); +z1 = (ss+userwl,h-userhl); +z2 = (w-ss-userwl,h-userhl); +z3 = (ss+lserwl,lserhl); +z4 = (w-ss-lserwl,lserhl); +z5 = z1 shifted (curvl,0); +z6 = z4 shifted (-curvl,0); +z7 = z2 shifted (-thinl,0); +z8 = z3 shifted (thinl,0); +z41 = ba[z1,z6]; +z41 = bb[z7,z3]; +z42 = bc[z5,z4]; +z42 = bd[z7,z3]; +z43 = be[z8,z2]; +z43 = bf[z6,z1]; +z44 = bg[z8,z2]; +z44 = bh[z5,z4]; + +ulserif(1,9,10,11,12)(1); +urserif(5,13,14,15,16)(1); +ulserif(7,17,18,19,20)(1); +urserif(2,21,22,23,24)(1); +llserif(3,25,26,27,28)(1); +lrserif(8,29,30,31,32)(1); +llserif(6,33,34,35,36)(1); +lrserif(4,37,38,39,40)(1); + +fill z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..z1--cycle; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56); +endchar; + +beginchar("s",0.8exw#+2ss#,ex#,0); "The Letter s"; + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (w-ss-userhl,h-userhl/2); +z3 = (w-ss,h/4); +z4 = (ss,3h/4); +z5 = (userhl+ss,curvl+userhl/2-o); +z14 = z0 shifted (0,-thinstroke); +z15 = z1 shifted (0,thinstroke); +z16 = z4 shifted (curvl,0); +z17 = z3 shifted (-curvl,0); +z18 = z2 shifted (0,-curvl); +z19 = z11 shifted (0,-curvl); +z20 = z5 shifted (0,-curvl); +z21 = z18 shifted (0,-userwl/3); +z22 = z21 shifted (userhl,0); +z24 = z2 shifted (0,userhl/2); +z23 = z24 shifted (userhl,0); +z25 = (w/2,h/2+1.3thinstroke/2); +z26 = (w/2,h/2-1.3thinstroke/2); +z10 = z5 shifted (0,userhl/2); +z11 = z10 shifted (-userhl,0); +z12 = z11 shifted (0,-0.5userhl-curvl-userwl/3); +z13 = z12 shifted (userhl,0); + +%sctbackserif(5,10,11,12,13,20)(2); + +pickup pencircle scaled 1; + +fill +z2..{left}z0{left}..{down}z4{down}..z26..{down}z17{down}..{left}z15{left}..z5--z10..z11--z12..z13--z20..{right}z1{right}..{up}z3{up}..z25..{up}z16{up}..{right}z14{right}..z18--z21..z22--z23..z24--cycle; + +%path outcurves; path incurves; path toprt; +%outcurves = z2..tension 1.1..z0..tension +% 1.1..z4..z26..z17..z15..tension 1.1..z5; +%incurves = z20..tension 1.1..z1..tension +% 1.1..z3..z25..z16..z14..tension 1.1..z18; +%toprt = z18---z21..tension 2..z22---z23..tension 2..z24---z2; + +%fill outcurves & botlftserif & incurves & toprt & cycle; + +lows := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("v",1.2exw#+2ss#,ex#,0); "The Letter v"; + +z1=(ss+userwl,h-userhl); +z2=z1 shifted (slantwid,0); +z3=z1-(0,2h/3); +z4=z3+(thickl,0); +z5=(w-ss-userwl,h-userhl); +z6=z5 shifted (-thinl,0); +z7=z5-(0,2h/3); +z8=z7-(thinl,0); +z9=(w/2,-o); +z30=0.25[z9,z5]; +z10=z30-(thinl,0); +z31 = 0.1[z9,z1]; +z32 = da[z2,z30]; +z32 = db[z6,z31]; + +ulserif(1,11,12,13,14)(1); +urserif(2,15,16,17,18)(1); +ulserif(6,19,20,21,22)(1); +urserif(5,23,24,25,26)(1); + +pickup cappen; + +fill z9--z5..z23..z24--z25--z21--z20..z19..z6--z32--z2..z15..z16--z17--z13--z12--z11..z1--z9--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("z",exw#+2ss#,ex#,0); "The Letter z"; + +z0 = (ss+ssslant,h); +z1 = (w-ss,h); +z3 = (ss,0); +z4 = (w-ss-ssslant,0); +z9 = z0 shifted (lserw,-thinstroke); +z10 = z1 shifted (-1.2curvwid,-thinstroke); +z11 = z3 shifted (1.2curvwid,thinstroke); +z12 = z4 shifted (-lserw,thinstroke); + +lftdownsideserif(0,5,6); +upsideserif(4,7,8); + +fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle; + +lowz := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("w",1.05em#+ss#,ex#,0); "The Letter w"; + +dubbots=w/3; + +z1=(ss+userwl,h-userhl); +z2=z1+(slantwid,0); +z5=(w-ss-userwl,h-userhl); +z6=z5 shifted (-thinl,0); +z3 = 0.5[z2,z6] shifted (-thickl/2,0); +z4 = z3 shifted (thickl,0); +z7=(dubbots,-o); +z8=(2dubbots,-o); +z33=(w/2-o/2,3h/4-2.5o); +pair lined; lined = z4-z33; +%z44 = z8 shifted lined; +z44 = z8 shifted (thickl,0) rotatedaround (z8,60); +z45 = z8 shifted (-thinl,0); +z34 = (z4--z44) intersectionpoint (z6..z45); +lined := z1-z2; +z46 = z7 shifted lined rotatedaround (z7,-120); +z47 = z7 shifted (-thinl,0); +z35 = (z3--z47) intersectionpoint (z2--z46); +z36=0.94[z8,z3]; + +pickup cappen; + +ulserif(1,9,10,11,12)(1); +urserif(2,13,14,15,16)(1); +ulserif(3,17,18,19,20)(1); +urserif(4,21,22,23,24)(1); +ulserif(6,25,26,27,28)(1); +urserif(5,29,30,31,32)(1); + +fill z8--z5..z29..z30--z31--z27--z26..z25..z6--z34--z4..z21..z22--z23--z19--z18..z17..z3--z35--z2..z13..z14--z15--z11--z10..z9..z1--z7--z33--z8--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("y",1.2exw#+2ss#,ex#,dep#); "The Letter y"; + +z0 = (ss+userwl,h-userhl); +z1 = z0 shifted (slantl,0); +z2 = (w-ss-userwl,h-userhl); +z3 = z2 shifted (-thinl,0); +z4 = 0.6[z0,z2] shifted (0,-h+2lserhl); +z21 = z4 shifted (-slantl,0); +z23 = z4 shifted (-thinl,0); +z22 = ca[z1,z4]; +z22 = cb[z3,z23]; +z24 = 1.4[z2,z4] shifted (-1.5thinl,0); +x25 = x24-lserwl; +y25 = -dep; +z26 = z25 shifted (-1.5lserwl,2lserhl); +z29 = z26 shifted (bulbsh,bulbsh); +z30 = z26 shifted (2bulbsh,0); +z31 = z29 shifted (0,-2bulbsh-hair); +z33 = z31 shifted (0,bulbsh); +z27 = z25 shifted (0,1.3thinl); +z28 = z24 shifted (1.5thinl,0); + +ulserif(0,5,6,7,8)(1); +urserif(1,9,10,11,12)(1); +ulserif(3,13,14,15,16)(1); +urserif(2,17,18,19,20)(1); + +fill +z22--z1..z9..z10--z11--z7--z6..z5..z0---z21..z24..{left}z27{left}..{up}z33{down}..z30..z29..z26..z31..{right}z25{right}..z28---z4--z2..z17..z18--z19--z15--z14..z13..z3--cycle; + +lowy := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56); +endchar; + +beginchar(oct"370",exw#+2ss#,ex#,0); "The Letter slash o"; + +pickup pencircle scaled thinl; +bot lft z0 = (o,0); +top rt z1 = (w-o,h); + +currentpicture := lowo; + +draw z0--z1; + +penlabels(0,1); +endchar; + +beginchar(oct"033",1.3exw#+2ss#,asch#,0); "The ligature ff"; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+lserwl,h-1.5userhl); +z3 = z2 shifted (thickl,0); +z12 = (x0,ex-thinl); +z13 = z12 shifted (thickl,0); +z14 = z12 shifted (0,thinl); +z15 = z12 shifted (thickl,thinl); +z16 = (ss+o,y12); +z17 = z13 shifted (lserwl,0); +z18 = z16 shifted (0,thinl); +z19 = z17 shifted (0,thinl); +z20 = 0.5[z18,z16] shifted (-o,0); +z21 = z17 shifted (o,o); +z22 = z33 shifted (-3bulbsh,0); +z27 = 0.5[z3,z32]; y27 := h+o; +z28 = z27 shifted (0,-thinl); +lrserif(1,4,5,6,7)(1); +llserif(0,8,9,10,11)(1); +dlftbulb(22,23,24,25,26); + +z30 = z1 shifted (2lserwl+hair,0); +z31 = z30 shifted (thickl,0); +z33 = (x31,y2); +z32 = z33 shifted (-thickl,0); +z42 = (x30,y12); +z43 = z42 shifted (thickl,0); +z44 = z42 shifted (0,thinl); +z45 = z43 shifted (0,thinl); +z46 = z42 shifted (-lserwl,0); +z47 = z43 shifted (lserwl,0); +z48 = z46 shifted (0,thinl); +z49 = z47 shifted (0,thinl); +z50 = z46 shifted (-o,o); +z51 = z47 shifted (o,o); +z52 = z47 shifted (o,h/3-o); +z57 = 0.5[z33,z52]; y57 := (h+o); +z58 = z57 shifted (0,-thinl); + +lrserif(31,34,35,36,37)(1); +llserif(30,38,39,40,41)(1); +dlftbulb(52,53,54,55,56); + +fill z1..z4..z5--z6--z10--z9..z8..z0--z12--z16..z20..z18-- + z14--z2{up}..{right}z27{right}..{down}z24..z23..z22.. + {right}z25{down}..{left}z28{left}..{down}z3--z15-- + z19..z45--z43--z13--cycle; +flig := currentpicture; +fill z31..z34..z35--z36--z40--z39..z38..z30--z42--z13--z15-- + z44--z32{up}..{right}z57{right}..{down}z54..z53..z52.. + {right}z55{down}..{left}z58{left}..{down}z33--z45--z49.. + z51..z47--z43--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62); +endchar; + +beginchar(oct"035",1.2exw#+2ss#,asch#,0); "The ligature fl"; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+userwl,h-1.5userhl); +z3 = z2 shifted (thickl,0); +z12 = (x0,ex-thinl); +z13 = z12 shifted (thickl,0); +z14 = z12 shifted (0,thinl); +z15 = z13 shifted (0,thinl); +z16 = z12 shifted (-lserwl,0); +z17 = z13 shifted (lserwl,0); +z18 = z16 shifted (0,thinl); +z19 = z17 shifted (0,thinl); +z20 = 0.5[z18,z16] shifted (-o,0); +z21 = z17 shifted (o,o); +z27 = z3 shifted (userwl,thickl); +z28 = z27 shifted (0,-thinl); +% the l part +z30 = z1 shifted (2lserwl+hair,0); +z31 = z30 shifted (thickl,0); +z32 = (x30,h-userhl); +z33 = z32 shifted (thickl,0); +z46 = z33 shifted (0,userhl); +z47 = aca[z32,z30]; +z47 = acb[z19,(w,y19)]; +z48 = acc[z32,z30]; +z48 = acd[z17,(w,y17)]; +z49 = z47 shifted (2o,0); +z50 = z48 shifted (2o,0); +z22 = (x47-(2bulbsh-thickl),y3); +llserif(30,38,39,40,41)(1); +lrserif(31,42,43,44,45)(1); +lrserif(1,4,5,6,7)(1); +llserif(0,8,9,10,11)(1); +dlftbulb(22,23,24,25,26); +fill z1..z4..z5--z6--z10--z9..z8..z0--z12--z16..z20..z18-- + z14--z2{up}..{right}z27{right}..{down}z24..z23..z22.. + {right}z25--z22--z32..{left}z28{left}..{down}z3--z15-- + z49--z50--z13--cycle; + +fill z30--z32--z33--z31..z42..z43--z44--z40--z39..z38.. + z30..cycle; + +fllig := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56); +endchar; + +beginchar(oct"036",1.85exw#+2ss#,asch#,0); "The ligature ffi"; + +currentpicture := flig + filig shifted (hair+2lserwl+thickl,0); + +endchar; + +beginchar(oct"040",((exw#/phi)*2)+ss#+2o#,asch#,0); "The ligature ft"; + +currentpicture := flig + lowt shifted (1.5lserwl+thickl,0); + +endchar; + +beginchar(oct"037",1.85exw#+2ss#,asch#,0); "The ligature ffl"; + +currentpicture := flig + fllig shifted + (hair+2lserwl+thickl,0); + +endchar; + +beginchar(oct"376",1.2exw#+2ss#,asch#,dep#); "The Letter thorn"; + +z0 = (ss+userwl,h-userhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+userwl,lserhl); +z3 = z2 shifted (thickl,0); +z12 = z1 shifted (0,userhl); +z13 = z3 shifted (0,-lserhl); +x19 = (w-x13); y19 = ex/2; +z20 = (w-ss,y19); +z21 = (x2,y19); +z22 = z21 shifted (thickl,0); +z23 = z20 shifted (-curvl,0); +x24 = x2; y24 = -dep+lserhl; +x25 = x3; y25 = -dep+lserhl; +z26 = z25 shifted (0,-lserhl); +z14 = 0.5[z21,z20]; y14 := ex+o; +z15 = z14 shifted (0,-thinl); +z16 = (x14,0-o); +z17 = z16 shifted (0,thinl); + +ulserif(0,4,5,6,7)(1); +llserif(24,8,9,10,11)(1); +lrserif(25,27,28,29,30)(1); + +fill z0..z4..z5--z6--z12--z25..z27..z28--z29--z10--z9..z8..z24--z2--cycle; +fill +z21{up}..{right}z14{right}..{down}z20{down}..{left}z16{left}..{up}z21..cycle; +unfill +z22{up}..{right}z15{right}..{down}z23{down}..{left}z17{left}..{up}z22..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + + +beginchar(oct"027",exw#+2ss#,asch#,dep#); "The ligature fj"; + +z0 = (ss+lserwl,lserh); +z1 = z0 shifted (thickl,0); +z2 = (ss+lserwl,h-1.5userhl); +z3 = z2 shifted (thickl,0); +z12 = z2 shifted (0,-h/3+o); +z13 = z12 shifted (thickl,0); +z14 = z12 shifted (0,thinl); +z15 = z13 shifted (0,thinl); +z16 = z12 shifted (-lserwl,0); +z17 = z13 shifted (lserwl+2thickl-o,0); +z18 = z16 shifted (0,thinl); +z19 = z17 shifted (0,thinl); +z20 = z16 shifted (-o,o); +z21 = z17 shifted (o,o); +z22 = z17 shifted (-2bulbsh,h/3-userhl); +z27 = z3 shifted (thickl+2o,thickl); +z28 = z27 shifted (0,-thinl); +z30 = (w-ss-thickl,lserhl); +z31 = z30 shifted (thickl,0); +z32 = (w-ss-thickl,y13); +z33 = z32 shifted (thickl,0); +z46 = z33 shifted (0,userhl); +z49 = (x30-thickl,-dep); +z50 = z49 shifted (0,thinl); +z51 = (x30-2.5thickl,-dep/2); + +lrserif(1,4,5,6,7)(1); +llserif(0,8,9,10,11)(1); +dlftbulb(22,23,24,25,26); +ulserif(32,34,35,36,37)(1); +ulftbulb(51,52,53,54,55); + +y34 := y13; +y46 := y15; + +fill +z1..z4..z5--z6--z10--z9..z8..z0--z12--z16..z20..z18--z14--z2{up}..{right}z27{right}..{down}z24..z23..z22..{right}z25{dir +160}..{left}z28{left}..{down}z3--z15--z46--z31{down}..z49..z51..z52..z53..{left}z54{down}..z50..{up}z30--z32..z34--z13--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57); + +endchar; + +beginchar(oct"255",exw#+2ss#,ex#,dep#); "The Letter ng"; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z2 = z1 shifted (o+2lserwl,0); +z3 = z2 shifted (thickl,0); +z20 = (ss+userwl,h-userhl); +z21 = z20 shifted (thickl,0); +z22 = z21 shifted (0,userhl); +z23 = z21 shifted (o+2userwl,0); +z24 = z23 shifted (thickl,-thinl); +z29 = z20 shifted (0,userhl); +z30 = z24 shifted (0,userhl+thinl); +z31 = 0.5[z30,z29] shifted (0,o/2); +z32 = z31 shifted (0,-0.8thinl); +z33 = z28 shifted (0,-userhl); +z40 = z2; +z41 = z3; +z49 = (x40-6o,-dep); +z50 = z49 shifted (0,thinl); +z51 = (x1,-dep/2); +z56 = 0.5[z2,(x2,-dep)]; + +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +ulserif(20,25,26,27,28)(1); +ulftbulb(51,52,53,54,55); + +fill +z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z20..{right}z31{right}..{down}z24--z3{down}..z49..{up}z51..z52..z53..{left}z54{down}..z50..z56..{up}z2--z23..z32..z21--z1..z8..z9--z10--z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56); +endchar; + +beginchar(oct"236",1.2exw#+2ss#,asch#,0); "The Letter d-bar"; + +currentpicture := lowd; + +pickup pencircle scaled thinl; +lft z24 = (w/2,h-2userw); +rt z25 = (w-ss,h-2userw); + +draw z24--z25; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"377",1.1exw#+2ss#,asch#,0); "The Letter Eszett"; + +z0 = (w/2,h+o/2); +z1 = (w-ss-thickl/2,3h/4); +z2 = (w-ss,h/4); +z3 = (ss+lserwl,lserhl); +z4 = (x3,h-userwl); +z5 = z3 shifted (thickl,0); +z6 = z2 shifted (-thickl,0); +z7 = z1 shifted (-thickl,0); +z8 = z0 shifted (0,-thinl); +z9 = z5 shifted (0,-lserhl); +z14 = z4 shifted (thickl,0); +z15 = (w/2,h/2+thinl); +z16 = z15 shifted (0,-thinl); +z17 = (x14,y15); +z18 = (x5,y16); +z19 = (x5+thickl,y5); +z20 = z19 shifted (bulbsh,bulbsh); +z21 = z20 shifted (-bulbsh,bulbsh); +z22 = z21 shifted (-bulbsh,-bulbsh); +z23 = (x19,0); + +llserif(3,10,11,12,13)(1); + +pickup pencircle scaled 1; + +fill +z9--z12--z11..z10..z3--z4{up}..{right}z0{right}..{down}z1{down}..{left}z16--z15{right}..{down}z2{down}..{left}z23..z22..z21..z20{down}..{left}z19{right}..{up}z6{up}..{left}z16--z18--z17--z15{right}..{up}z7{up}..{left}z8{left}..{down}z14---cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"360",exw#+2ss#,asch#,0); "The Letter eth"; + +z0 = (ss,h); +z1 = z0 shifted (0,-thinl); +z2 = 0.5[z0,z1] shifted (-o,0); +z3 = (w/2,ex+o/2); +z4 = z3 shifted (0,-thinl); +z5 = (w/2,-o/2); +z6 = z5 shifted (0,thinl); +z7 = (ss,ex/2); +z8 = z7 shifted (thickl,0); +z9 = (w-ss,ex/2); +z10 = z9 shifted (-thickl,0); + +fill +z7{up}..{right}z3{right}..{down}z9{down}..{left}z5{left}..{up}cycle; +unfill +z8{up}..{right}z4{right}..{down}z10{down}..{left}z6{left}..{up}cycle; +fill z9{up}..{left}z0..z2..z1{right}..{down}z10--cycle; + +pickup pencircle scaled thinl; +top rt z11 = (3w/4,h); +z13 = (0,h/2); +bot lft z14 = (z11--z13) intersectionpoint + (z10{up}..{left}z1); +z12 = 2.5[z11,z14]; +draw z11--z12; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"346",1.4exw#+2ss#,ex#,0); "the ligature ae (aesc)"; + +hw = w/2; +z0 = (ss,3h/4); +z1 = (hw/2+ss/2,h+o); +z2 = (hw+thickl/2,2h/3); +z3 = (hw+thickl/2,lserhl); +z8 = z3 shifted (-thickl/2,0); +z9 = (hw/2+ss,-o); +z10 = (ss-o,h/4); +z15 = z2 shifted (-thickl,0); +z16 = z1 shifted (0,-thinl); +z17 = z9 shifted (0,thinl); +z18 = z10 shifted (thickl,0); +z19 = z3 shifted (-thickl,lserhl); +z20 = (hw/2-thickl,3h/8); +z21 = z20 shifted (thickl/2,-thinl); +z22 = 0.2[z15,z19]; +z23 = z19 shifted (-thinl,0); +z24 = z22 shifted (0,-thickl/2); +z25 = z16 shifted (.5thickl,0); +% e part +z30 = (w-hw/2-ss,h+o); +z31 = (w-ss,h/2); +z33 = z30 shifted (0,-thinl); +z34 = (hw-thickl/2,h/2); +z35 = z34 shifted (thickl,0); +z36 = z30 shifted (0,-h-o); +z37 = z36 shifted (0,thinl); +z38 = z31 shifted (0,-h/4); +z39 = z38 shifted (0,hair/2); +z40 = z39 shifted (-hair/2,0); +z41 = z31 shifted (-thickl,thinl); +z42 = z35 shifted (0,thinl); + +drtbulb(0,11,12,13,14); + +fill +z13..z12..z11..z0{up}..z1..{down}z2--z3--z8..z9..{up}z10..z22--z15{up}..z25{left}..z16..z13..cycle; +unfill z18{up}..z24--z19..{left}z17..cycle; + +fill +z31{up}..{left}z30{left}..{down}z34{down}..{right}z36{right}..z38..z39..z40..{left}z37{left}..{up}z35{up}..{right}z33{right}..{down}z41--z42--z35--z31--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"367",1.4exw#+2ss#,ex#,0); "the ligature oe"; + +z30 = (hw+hw/2-ss,h+o); +z31 = (w-ss,h/2); +z33 = z30 shifted (0,-thinl); +z34 = (w/2-thickl/2,h/2); +z35 = z34 shifted (thickl,0); +z36 = z30 shifted (0,-h-o); +z37 = z36 shifted (0,thinl); +z38 = z31 shifted (0,-h/4); +z39 = z38 shifted (0,hair/2); +z40 = z39 shifted (-hair/2,0); +z41 = z31 shifted (-thickl,thinl); +z42 = z35 shifted (0,thinl); +% o part +z0 = (ss,h/2); +z1 = (hw/2+ss,h+o); +z2 = z0 shifted (thickl,0); +z3 = z1 shifted (0,-thinl); +z4 = (hw/2+ss,-o/2); +z5 = z4 shifted (0,thinl); + +fill z1..z35..z4..z0..cycle; +unfill z3..z34..z5..z2..cycle; + +fill +z31{up}..{left}z30{left}..{down}z34{down}..{right}z36{right}..z38..z39..z40..{left}z37{left}..{up}z35{up}..{right}z33{right}..{down}z41--z42--z35--z31--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"136",exw#+ss#+5em#/6,cap#,0);"The ligature Th"; + +z1=(ss+userh,h); +z2=z1-(0,thinstroke); +z3=(5em/6-ss,h); +z4=z3-(0,thinstroke); +z5=((5em/6)/2-thickstroke/2,y2); +z6=((5em/6)/2+thickstroke/2,y2); +z7=(x5,lserh); +z8=z7+(thickstroke,0); + +llserif(7,9,10,11,12)(1); +lrserif(8,13,14,15,16)(1); +tlsideserif(1,17,18,19,20); +trsideserif(3,21,22,23,24); +y11 := 0; y15 := 0; + +fill z7..z9..z10--z11--z15--z14..z13..z8--z6--z4--z3--z1..z17{left}..{left}z18{down}..tension 2..z19..z20{up}---z2--z5--z7--cycle; +fill hone shifted (x3-userwl-ss,0); +fill htwo shifted (x3-userwl-ss,0); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmlowmac.mf b/Master/texmf-dist/fonts/source/public/drm/drmlowmac.mf new file mode 100644 index 00000000000..a9c10385ad2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmlowmac.mf @@ -0,0 +1,140 @@ +% +AMDG This document was begun on 18 May 11EX, the feast +% of St Bernardine of Siena, and it is humbly dedicated to +% him and to the Immaculate Heart of Mary for their prayers, +% and to the Sacred Heart of Jesus for His mercy. + +lserhl := 5lserh/6; +lserwl := 5lserw/6; +userhl := 5userh/6; +userwl := 5userw/6; +lsercl := 5lserc/6; +usercl := 5userc/6; +lserstepl := 5lserstep/6; +userstepl := 5userstep/6; +curvl := curvwid; +slantl := slantwid; +thickl := thickstroke; +thinl := thinstroke; +dotwid := 0.7dotwidth; + +picture lowz; +picture lowy; +picture lows; +picture lowt; +picture lowr; +picture lowg; +picture lowo; +picture lowe; +picture lowa; +picture lowu; +picture lowc; +picture lowd; +picture lowl; +picture lown; +picture dotlessi; +picture dotlessj; +picture filig; +picture flig; +picture fllig; + +%%%% the back serif for the "s" %%%% + +def sctbackserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userhl/2); +z.k=z.j-(userhl,0); +z.l=z.k+(0,-1.5userwl); +z.m=z.l+(userhl,0); +if topbot = 1: +path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +%%%% Define Lower Right Serif on Caps %%%% + +def lrserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(lserwl/3,-lsercl/2); +z.k=z.i+(lserwl,-lsercl); +z.l=z.k-(0,lserstepl); +z.m=z.l-(lserwl+thickl/2,0); +elseif strokewidth = 2: +z.j=z.i+(lserwl/3,-lsercl/2); +z.k=z.i+(lserwl+equalize/2,-lsercl); +z.l=z.k-(0,lserstepl); +z.m=z.l-(lserwl+thickl/2,0); +fi +enddef; + +%%%% Define Lower Left Serif on Caps %%%% + +def llserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i-(lserwl/3,lsercl/2); +z.k=z.i-(lserwl,lsercl); +z.l=z.k-(0,lserstepl); +z.m=z.l+(lserwl+thickl/2,0); +elseif strokewidth = 2: +z.j=z.i-(lserwl/3,lsercl/2); +z.k=z.i-(lserwl+equalize/2,lsercl); +z.l=z.k-(0,lserstepl); +z.m=z.l+(lserwl+thickl/2,0); +fi +enddef; + +%%%% Define Upper Right Serif on Caps %%%% + +def urserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(userwl/3,lsercl/2); +z.k=z.i+(userwl,usercl); +z.l=z.k+(0,userstepl); +z.m=z.l-(userwl+thickl/2,0); +elseif strokewidth = 2: +z.j=z.i+(userwl/3,lsercl/2); +z.k=z.i+(userwl+equalize/2,usercl); +z.l=z.k+(0,userstepl); +z.m=z.l-(userwl+thickl/2,0); +fi +enddef; + +%%%% Define Upper Left Serif on Caps %%%% + +def ulserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(-userwl/3,lsercl/2); +z.k=z.i+(-userwl,usercl); +z.l=z.k+(0,userstepl); +z.m=z.l+(userwl+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(-userwl/3,lsercl/2); +z.k=z.i+(-(userwl+equalize/2),usercl); +z.l=z.k+(0,userstep); +z.m=z.l+(userwl+thickstroke/2,0); +fi +enddef; + +def rbulb(suffix i,j,k,l,m) = +z.j=z.i shifted (bulbsh,-bulbsh); +z.k=z.j shifted (-bulbsh,-bulbsh); +z.l=z.k shifted (-bulbsh,bulbsh); +enddef; + +def drtbulb(suffix i,j,k,l,m) = +z.j=z.i shifted (bulbsh,-bulbsh); +z.k=z.j shifted (bulbsh,bulbsh); +z.l=z.k shifted (-bulbsh,bulbsh); +enddef; + +def urtbulb(suffix i,j,k,l,m) = +z.j=z.i shifted (-bulbsh,-bulbsh); +z.k=z.j shifted (-bulbsh,bulbsh); +z.l=z.k shifted (bulbsh,bulbsh); +enddef; + +def dlftbulb(suffix i,j,k,l,m) = +z.j=z.i shifted (bulbsh,-bulbsh); +z.k=z.j shifted (bulbsh,bulbsh); +z.l=z.k shifted (-bulbsh,bulbsh); +enddef; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmathcal.mf b/Master/texmf-dist/fonts/source/public/drm/drmmathcal.mf new file mode 100644 index 00000000000..af7d8a9ab73 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmmathcal.mf @@ -0,0 +1,712 @@ +% +AMDG This document was begun on 7 July 11EX, the feast +% of Sts. Cyril and Methodius, EEMM, and it is humbly +% dedicated to them and to the Immaculate Heart of Mary for +% their prayers, and to the Sacred Heart of Jesus for His +% mercy. + +beginchar(oct"101",em#+2ss#,cap#,0); "Calligraphic A"; +italcorr(ex#*slant); + +penpos0(thickstroke,0); +z0l = (ss,h/4); +penpos1(thinstroke,90); +z1l = (w/5,0-o); +penpos2(thinstroke,135); +z2r = (w/3,h+o); +penpos3(thinstroke,180); +z3 = (x2,h/2); +penpos4(thickstroke,180); +z4r = z2r; +penpos5(thickstroke,180); +z5 = (2w/3,h/2); +penpos6(thinstroke,-90); +z6r = (w-ss,0-o); +penpos7(thinstroke,-90); +z7 = z3; +penpos8(thinstroke,-90); +z8 = z5; + +penstroke z0e{down}..z1e{right}..{up}z3e..{up}z2e; +penstroke z4e..z5e..{right}z6e;%..z7e; +penstroke z7e--z8e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar(oct"102",3em#/4+2ss#,cap#,0); "Calligraphic B"; +italcorr(ex#*slant); + +penpos0(curvwid,-30); +x0l = ss; y0 = h+o; +penpos1(0.75curvwid,0); +z1r = (x0r,0-o); +penpos2(1.5thinstroke,0); +z2 = (x0,3h/4); +penpos3(thinstroke,-90); +z3l = (w/2,h+o); +penpos4(curvwid,180); +z4l = (w-ss-3hair,3h/4); +penpos5(curvwid,0); +z5r = (w-ss,h/4); +penpos6(thinstroke,-90); +z6 = (x2r,h/2); +penpos7(thinstroke,-90); +z7r = (x1r+thinstroke,curlh); +penpos8(thinstroke,90); +z8 = z6; + +penstroke z0e--z1e; +penstroke z2e{up}..z3e..z4e..{left}z8e; +penstroke z8e{right}..z5e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar(oct"103",5em#/6+ss#,cap#,0); "Calligraphic Letter C"; +italcorr(ex#*slant); + +penpos0(curvwid,0); +z0r = (w-ss,h-2.5curlh); +penpos1(curvwid,0); +z1r = (w-ss,h-1.5curlh); +penpos2(thinstroke,90); +z2r = (w/2,h+o); +penpos3(curvwid,180); +z3r = (ss,h/2); +penpos4(thinstroke,-90); +z4r = (w/2,0-o); +penpos5(thinstroke,0); +z5r = (w-ss,h/4); + +penstroke z0e---z1e..z1e..z2e..z3e..z4e..z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar(oct"104",5em#/6+2ss#,cap#,0); "Calligraphic Letter D"; +italcorr(ex#*slant); + +penpos0(thinstroke,0); +z0l = (ss,h-2curlh); +penpos1(thinstroke,-90); +z1l = (curlw,h+o); +penpos2(curvwid,180); +z2l = (w-ss,h/2); +penpos3(thinstroke,90); +z3l = (w/2,0-o); +penpos4(thinstroke,90); +z4l = (x1,0.5curlh); +penpos5(thinstroke,-90); +z5l = (w/2,h+o); +penpos6(thickstroke,0); +z6l = z1; +penpos7(thickstroke,0); +z7l = (x1,0); +penpos8(thinstroke,0); +z8l = (ss,curlh); + +penstroke z0e..z1e{right}..z5e..z2e..z3e{left}..z4e..z8e; +penstroke z6e--z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar(oct"105",4em#/6+2ss#,cap#,0); "Calligraphic Letter E"; +italcorr(ex#*slant); + +penpos0(curvwid,0); +z0r = (w-ss,3h/4); +penpos1(thinstroke,90); +z1r = (w/2,h+o); +penpos2(curvwid,180); +z2r = (ss,3h/4); +penpos3(thinstroke,-90); +z3 = (2w/3,h/2+thickstroke/2); +penpos4(curvwid,0); +z4l = (ss,h/4); +penpos5(thinstroke,90); +z5l = (w/2,0-o); +penpos6(curvwid,180); +z6l = (w-ss,h/4); + +penstroke z0e..{left}z1e..z2e..{right}z3e; +penstroke z3e{left}..z4e..z5e{right}..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("F",5em#/6+2ss#,cap#,0); "Calligraphic Letter F"; +italcorr(ex#*slant); + +penpos0(thinstroke,0); +z0l = (ss,h-2curlh); +penpos1(0.8thickstroke,-90); +z1l = (ss+curlw,h+o); +penpos2(0.8thickstroke,-90); +z2l = (w-ss-curlw,h+o); +penpos3(thinstroke,180); +z3l = (w-ss,y2r-curlh/2); +penpos4(thickstroke,0); +z4 = (w/3,h-thickstroke/2); +penpos5(thickstroke,0); +z5 = (x4,curlh); +penpos6(thinstroke,-90); +z6r = (x5-curlw,0-o); +penpos7(thinstroke,180); +z7r = (ss,curlh); +penpos8(1.5thinstroke,45); +z8 = (x4,h/2+thinstroke/2); +penpos9(1.5thinstroke,45); +x9r = x2; y9 = h/2+thinstroke/2; + +penstroke z0e..z1e---z2e..z3e; +penstroke z4e---z5e..z6e..z7e; +penstroke z8e--z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("G",5em#/6+2ss#,cap#,dep#); "Calligraphic Letter G"; +italcorr(ex#*slant); + +penpos0(curvwid,0); +z0r = (w-ss,h-1.5curlh); +penpos1(curvwid,0); +z1r = (w-ss,h-1.5curlh); +penpos2(thinstroke,90); +z2r = (w/2,h+o); +penpos3(curvwid,180); +z3r = (ss,h/2); +penpos4(thinstroke,-90); +z4r = (w/2,0-o); +penpos5(thickstroke,0); +z5r = (w-ss,h/2-thickstroke/2); +penpos6(1.5thinstroke,-45); +z6l = z5; +penpos7(1.5thinstroke,-45); +z7 = (x2,y6); +penpos8(thickstroke,0); +z8 = (x5,0); +penpos9(thickstroke,0); +z9 = (x5,-d/2); +penpos10(thinstroke,-90); +z10r = (3w/4,-d); +penpos11(thinstroke,180); +z11r = (w/2,-d/2); +penpos12(thinstroke,90); +z12l = z11l; +penpos13(thinstroke,0); +z13l = z12l; +penpos14(thinstroke,-90); +z14l = z13l; +penstroke z0e---z1e..z1e..z2e..z3e..z4e..z5e; +penstroke z6e--z7e; +penstroke z5e--z8e---z9e..z10e..z11e..z12e..z13e..z14e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("H",em#+2ss#,cap#,0); "Calligraphic Letter H"; +italcorr(ex#*slant); + +penpos0(thickstroke,45); +z0l = (ss+curlw/2,h-2curlh); +penpos1(thinstroke,-90); +z1l = (ss+curlw,h+o); +penpos2(thickstroke,180); +z2 = (ss+2curlw,h-curlh); +penpos3(thickstroke,180); +z3 = (x2,curlh); +penpos4(thinstroke,90); +z4l = (x1,0-o); +penpos5(thickstroke,-45); +z5l = (ss+curlw/2,2curlh); +penpos6(1.5thinl,90); +z6 = (x2,h/2+thickstroke/2); +penpos7(1.5thinl,90); +z7 = (w/2+thickstroke,y6); + +penstroke z0e..z1e..z2e---z3e..z4e..z5e; +penstroke z6e--z7e; +penstroke (z0e..z1e..z2e---z3e..z4e..z5e) reflectedabout + ((w/2,h),(w/2,0)); +penstroke (z6e--z7e) reflectedabout ((w/2,h),(w/2,0)); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("I",0.75em#+2ss#,cap#,0); "Calligraphic Letter I"; +italcorr(ex#*slant); + +penpos0(thinstroke,0); +z0l = (ss,h-2curlh); +penpos1(1.5thinstroke,-90); +z1l = (w/4,h+o); +penpos2(1.5thinstroke,-90); +z2l = (w-ss,h+o); +penpos3(thickstroke,0); +z3 = (w/2,h); +penpos4(thickstroke,0); +z4 = (x3,0); + +penstroke z0e..z1e---z2e; +penstroke z3e--z4e; +penstroke (z0e..z1e---z2e) reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("J",0.75em#+2ss#,cap#,dep#); "Calligraphic Letter J"; +italcorr(ex#*slant); + +penpos0(thinstroke,0); +z0l = (ss,h-2curlh); +penpos1(1.5thinstroke,-90); +z1l = (w/4,h+o); +penpos2(1.5thinstroke,-90); +z2l = (w-ss,h+o); +penpos3(thickstroke,0); +z3 = (w/2,h); +penpos4(thickstroke,0); +z4 = (x3,-d/2); +penpos5(thinstroke,-90); +z5r = (w/4,-d); +penpos6(thinstroke,180); +z6r = (ss,-d/2); +penpos7(thinstroke,90); +z7l = z6l; +penpos8(thinstroke,0); +z8l = z7l; +penpos9(thinstroke,-90); +z9l = z8l; + +penstroke z0e..z1e---z2e; +penstroke z3e---z4e..z5e..z6e..z7e..z8e..z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("K",0.75em#+2ss#,cap#,0); "Calligraphic Letter K"; +italcorr(ex#*slant); + +penpos0(thinstroke,0); +z0l = (ss,h+o); +penpos1(thickstroke,0); +z1r = (w/4,h/2); +penpos2(thinstroke,0); +z2l = (ss,0-o); +penpos3(thinstroke,0); +z3r = (w-ss,h-curlh); +penpos4(thinstroke,90); +z4 = (w-ss-curlw,h+o); +penpos5(thinstroke,180); +z5 = (h/2,5h/6); +penpos6(thickstroke,180); +z6 = z1; +penpos7(1.5thinstroke,90); +z7 = z6; +penpos8(1.5thinstroke,45); +z8 = (w/2,0.4h); +penpos9(1.5thinstroke,0); +z9r = (w-ss,0-o); + +penstroke z0e..z1e..z2e; +penstroke z3e..z4e..z5e..z6e; +penstroke z7e..z8e..z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("L",5em#/6+2ss#,cap#,0); "Calligraphic Letter L"; +italcorr(ex#*slant); + +penpos0(2thinstroke,0); +z0 = (w/2,h-2curlh); +penpos1(thinstroke,90); +z1r = (w/4,h+o); +penpos2(thickstroke,180); +z2r = (ss,h-curlh); +penpos3(thickstroke,180); +z3l = (w/4,h/4); +penpos4(thinstroke,135); +x4r = ss; y4l = 0-o; +penpos5(thickstroke,90); +z5l = (3w/4,0-o); +penpos6(thinstroke,135); +x6r = w-ss; y6l = curlh; +penpos7(thickstroke,90); +z7 = (w/3,curlh); + +penstroke z0e..z1e..z2e..z3e..z4e; +penstroke z4e..z7e..z5e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("M",em#+2ss#,cap#,0); "Calligraphic Letter M"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,h-curlh); +penpos1(thinl,-90); +z1l = (curlw,h+o); +penpos2(thickl,-180); +z2 = (2curlw,y0); +penpos3(thickl,-180); +z3 = (x2,0); +penpos4(thinl,90); +z4r = (x2+w/6,h+o); +penpos5(thickl,0); +z5 = (x4+w/6,y2); +penpos6(thickl,0); +z6 = (x5,0); +penpos7(thinl,-90); +z7l = (x5+w/6,h+o); +penpos8(thickl,-180); +z8 = (x7+w/6,y5); +penpos9(thickl,-180); +z9 = (x8,0); + +penstroke z0e..z1e..z2e---z3e; +penstroke z3e---z2e..z4e..z5e---z6e; +penstroke z6e---z5e..z7e..z8e---z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("N",0.75em#+2ss#,cap#,0); "Calligraphic Letter N"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,h-curlh); +penpos1(thinl,-90); +z1l = (curlw,h+o); +penpos2(thickl,-180); +z2 = (2curlw,y0); +penpos3(thickl,-180); +z3 = (x2,0); +penpos4(thinl,90); +z4r = (x2+w/4,h+o); +penpos5(thickl,0); +z5 = (x4+w/4,y2); +penpos6(thickl,0); +z6 = (x5,0); + +penstroke z0e..z1e..z2e---z3e; +penstroke z3e---z2e..z4e..z5e---z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("O",5em#/6+2ss#,cap#,0); "Calligraphic Letter O"; +italcorr(ex#*slant); + +penpos0(thinl,-90); +z0l = (w/2,h-curlh); +penpos1(curvl,0); +z1l = (ss,h/2); +penpos2(thinl,90); +z2l = (w/2,0-o); +penpos3(curvl,180); +z3l = (w-ss,h/2); +penpos4(1.5thinl,-90); +z4l = (w/2,h+o); +penpos5(1.5thinl,-90); +z5l = (w/4,h+o); +penpos6(thinl,180); +z6 = 0.5[z0,z3]; + +penstroke z6e..z0e..z1e..z2e..z3e..z4e..z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("P",5em#/6+2ss#,cap#,0); "Calligraphic Letter P"; +italcorr(ex#*slant); + +penpos0(thinstroke,0); +z0l = (ss,h-2curlh); +penpos1(thickstroke,-90); +z1l = (2curlw,h+o); +penpos2(thickstroke,-90); +z2l = (w/2,h+o); +penpos3(1.5thinstroke,180); +z3l = (w-ss,3h/4); +penpos4(thinstroke,90); +z4 = (x1+thickstroke,h/2); +penpos5(thickstroke,0); +z5 = z1; +penpos6(thickstroke,0); +z6 = z1 shifted (thinstroke,-h/2); +penpos7(thickstroke,0); +z7 = (x1,0); + +penstroke z0e..z1e---z2e..z3e..{left}z4e; +penstroke z5e..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("Q",5em#/6+2ss#,cap#,dep#); "Calligraphic Letter Q"; +italcorr(ex#*slant); + +penpos0(thinl,-90); +z0l = (w/2,h-curlh); +penpos1(curvl,0); +z1l = (ss,h/2); +penpos2(thinl,90); +z2l = (w/2,0-o); +penpos3(curvl,180); +z3l = (w-ss,h/2); +penpos4(1.5thinl,-90); +z4l = (w/2,h+o); +penpos5(1.5thinl,-90); +z5l = (w/4,h+o); +penpos6(thinl,180); +z6 = 0.5[z0,z3]; +penpos7(1.5thinstroke,90); +z7l = (ss,curlh); +penpos8(1.5thinstroke,90); +z8 = ((x7+x2)/2,2curlh); +penpos9(1.5thinstroke,90); +z9l = (w-ss,-dep/2); +penpos10(1.5thinstroke,90); +z10 = ((x2+x9)/2,-dep/2); + +penstroke z6e..z0e..z1e..z2e..z3e..z4e..z5e; +penstroke z7e..z8e..z10e..z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("R",5em#/6+2ss#,cap#,0); "Calligraphic Letter R"; +italcorr(ex#*slant); + +penpos0(thinstroke,0); +z0l = (ss,h-2curlh); +penpos1(thickstroke,-90); +z1l = (2curlw,h+o); +penpos2(thickstroke,-90); +z2l = (w/2,h+o); +penpos3(1.5thinstroke,180); +z3l = (w-ss,3h/4); +penpos4(thinstroke,90); +z4 = (x1+thickstroke,h/2); +penpos5(thickstroke,0); +z5 = z1; +penpos6(thickstroke,0); +z6 = z1 shifted (thinstroke,-h/2); +penpos7(thickstroke,0); +z7 = (x1,0); +penpos9(thickstroke,0); +z9r = (w-ss,0); +penpos8(thickstroke,15); +z8 = (z3..{left}z4) intersectionpoint (z9--z2); + +penstroke z0e..z1e---z2e..z3e..{left}z4e; +penstroke z5e..z6e..z7e; +penstroke z8e{down}..z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("S",2em#/3+2ss#,cap#,0); "Calligraphic Letter S"; +italcorr(ex#*slant); + +penpos0(curvwid,45); +z0r = (w-ss,3h/4); +penpos1(thinstroke,90); +z1r = (w/2,h+o); +penpos2(curvwid,180); +z2r = (ss,3h/4); +penpos3(thinstroke,-90); +z3 = (w/2,h/2+thinstroke); +penpos4(curvwid,180); +z4r = (w-ss,h/4); +penpos5(thinstroke,90); +z5l = (w/2,0-o); +penpos6(curvwid,-30); +z6l = (ss,h/4); + +penstroke z0e..z1e..z2e..z3e..z4e..z5e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("T",5em#/6+2ss#,cap#,0); "Calligraphic Letter T"; +italcorr(ex#*slant); + +penpos0(thinstroke,0); +z0l = (ss,h-2curlh); +penpos1(0.8thickstroke,-90); +z1l = (ss+curlw,h+o); +penpos2(0.8thickstroke,-90); +z2l = (w-ss-curlw,h+o); +penpos3(thinstroke,180); +z3l = (w-ss,y2r-curlh/2); +penpos4(thickstroke,0); +z4 = (w/2,h); +penpos5(thickstroke,0); +z5 = (w/2-thickstroke,0); + +penstroke z0e..z1e---z2e..z3e; +penstroke z4e{down}..z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("U",5em#/6+2ss#,cap#,0); "Calligraphic Letter U"; +italcorr(ex#*slant); + +penpos0(thinstroke,0); +z0l = (ss,h-curlh); +penpos1(thinstroke,-90); +z1l = (curlw,h+o); +penpos2(thickstroke,180); +z2 = (2curlw,h-curlh); +penpos3(thickstroke,180); +z3 = (x2,2curlh); +penpos4(thinstroke,-90); +z4r = (w/2+curlw/2,0-o); +penpos5(thickstroke,0); +z5r = (w-ss,2curlh); +penpos6(thickstroke,0); +z6r = (w-ss,h); +penpos7(thinstroke,90); +z7l = (x5r,0-o); +penpos8(thinstroke,180); +z8 = z7 shifted (curlw,curlh); + +penstroke z0e..z1e..z2e---z3e..z4e..z5e---z6e; +penstroke z5e{down}..z7e..z8e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("V",2em#/3+2ss#,cap#,0); "Calligraphic Letter V"; +italcorr(ex#*slant); + +penpos0(thickstroke,135); +z0r = (ss-thickstroke,h-curlh); +penpos1(thickstroke,45); +z1r = (ss+curlw,h+o); +penpos2(thickstroke,45); +z2l = (w/2,0-o); +penpos3(1.5thinstroke,-45); +z3 = (3w/4,3h/4); +penpos4(thinstroke,-45); +x4r = w-ss; y4 = h+o; + +penstroke z0e{up}..z1e; +penstroke z1e--z2e; +penstroke z2e..z3e..z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("W",em#+2ss#,cap#,0); "Calligraphic Letter W"; +italcorr(ex#*slant); + +penpos0(thickstroke,135); +z0r = (ss-thickstroke,h-curlh); +penpos1(thickstroke,45); +z1r = (ss+curlw,h+o); +penpos2(thickstroke,45); +z2l = ((w/2)/2,0-o); +penpos3(1.5thinstroke,-45); +z3 = ((3w/4)/2,3h/4); +penpos4(thinstroke,-45); +x4r = (w-ss)/2; y4 = h+o; +penpos5(thickstroke,45); +z5l = (w/2,0-o); +penpos6(1.5thinstroke,-45); +z6 = (3w/4,3h/4); +penpos7(thinstroke,-45); +x7r = w-ss; y7 = h+o; + +penstroke z0e{up}..z1e; +penstroke z1e--z2e; +penstroke z2e..z3e..z4e; +penstroke z4e..z5e; +penstroke z5e..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("X",2em#/3+2ss#,cap#,0); "Calligraphic Letter X"; +italcorr(ex#*slant); + +penpos0(thinstroke,0); +z0l = (ss,h-curlh); +penpos1(thinstroke,-90); +z1l = (curlw,h+o); +penpos2(thickstroke,180); +z2 = (2curlw,y0); +penpos4(thinstroke,0); +z4r = (w-ss,curlh); +penpos5(thinstroke,-90); +z5r = (w-ss-curlw,0-o); +penpos3(thickstroke,180); +z3 = (w-2curlw,y4); +penpos6(1.5thinstroke,0); +z6r = (w-ss,h+o); +penpos7(1.5thinstroke,0); +z7l = (ss,0-o); + +penstroke z0e..z1e..z2e---z3e..z5e..z4e; +penstroke z6e--z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("Y",5em#/6+2ss#,cap#,dep#); "Calligraphic Letter Y"; +italcorr(ex#*slant); + +penpos0(thinstroke,0); +z0l = (ss,h-curlh); +penpos1(thinstroke,-90); +z1l = (curlw,h+o); +penpos2(thickstroke,180); +z2 = (2curlw,h-curlh); +penpos3(thickstroke,180); +z3 = (x2,2curlh); +penpos4(thinstroke,-90); +z4r = (w/2+curlw/2,0-o); +penpos5(thickstroke,0); +z5r = (w-ss,2curlh); +penpos6(thickstroke,0); +z6r = (w-ss,h); +penpos7(thickstroke,0); +z7r = (w-ss,-dep/2); +penpos8(thinstroke,180); +z8r = (x3r,-dep/2); +penpos9(thinstroke,-90); +z9r = (w/2,-dep); + +penstroke z0e..z1e..z2e---z3e..z4e..z5e---z6e; +penstroke z6e---z7e..z9e..z8e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar("Z",5em#/6+2ss#,cap#,0); "Calligraphic Letter Z"; +italcorr(ex#*slant); + +penpos0(thickstroke,-90); +z0l = (ss,h-curlh); +penpos1(thickstroke,-90); +z1l = (w/4,h+o); +penpos2(thickstroke,-90); +z2l = (2w/3,h-curlh); +penpos3(1.5thinstroke,0); +z3r = (w-ss,h+o); +penpos4(1.5thinstroke,0); +z4l = (ss,0-o); + +penstroke z0e..z1e..z2e..z3e; +penstroke z3e--z4e; +penstroke (z0e..z1e..z2e..z3e) shifted (0,-h+curlh); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmathfrac.mf b/Master/texmf-dist/fonts/source/public/drm/drmmathfrac.mf new file mode 100644 index 00000000000..f39810d08d7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmmathfrac.mf @@ -0,0 +1,85 @@ +% +AMDG This document was begun on 7 July 11EX, the feast +% of Sts. Cyril and Methodius, EEMM, and it is humbly +% dedicated to them and to the Immaculate Heart of Mary for +% their prayers, and to the Sacred Heart of Jesus for His +% mercy. + +beginchar(oct"074",em#,cap#,0); "Fraktur R"; + +pickup pencircle scaled 1.5thinl; +penpos0(thinl,90); +z0 = (w/4,h/2); +penpos1(thinl,0); +z1l = (ss,3h/4); +penpos2(thickl,-90); +z2l = (x0,h+o); +penpos3(thickl,180); +z3 = (w/2,h/2); +penpos4(thickl,45); +x4 = x2; y4l = 0-o; +penpos5(thickl,45); +x5l = ss; y5r = h/4; +penpos6(thinl,180); +z6 = (x3,y1); +penpos7(1.5thinl,90); +z7r = (3w/4,h+o); +penpos8(thickl,0); +z8r = (w-ss,y6l); +z9r = z3l; z9l = z3r; +penpos10(thickl,0); +z10r = (w-ss,h/2+thickl); +penpos11(thickl,20); +z11l = z3; +penpos12(thickl,0); +z12l = (x7,h/4); +penpos13(thickl,0); +z13l = (x12r,h/12); +penpos14(thickl,0); +z14r = (w-ss,0-o); + +penstroke z0e..z1e..z2e..z3e..z4e--z5e; +penstroke z6e..z7e..z8e..z10e--z9e; +penstroke z11e..{down}z12e..{down}z14e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +penlabels(13,14,15,16,17,18); +endchar; + +beginchar(oct"075",0.75em#,cap#,0); "Fraktur I"; + +pickup pencircle scaled 1.5thinl; +penpos0(thinl,90); +z0 = (w/4,h/2); +penpos1(thinl,0); +z1l = (ss,3h/4); +penpos2(thickl,-90); +z2l = (x0,h+o); +penpos3(thickl,-135); +z3 = (w/2,11h/12); +penpos4(thickl,-90); +z4 = (3w/4,10h/12); +penpos5(thinl,0); +z5r = (w-ss,h); +penpos6(thinl,0); +z6r = (w-ss,h/2); +penpos7(thickl,90); +z7r = (x4,y4r-1.5thinl); +penpos8(thickl,180); +z8 = (7w/12,h/2); +penpos9(thinl,-90); +z9 = (x7,h/3); +penpos10(thinl,180); +z10l = (w-ss,h/6); +penpos11(thickl,90); +z11l = (x9,0-o); +penpos12(thickl,90); +z12 = (x0,h/4); +penpos13(thinl,180); +z13r = (ss,0-o); + +penstroke z0e..z1e..z2e..z3e..z4e..z5e; +penstroke z6e{up}..z7e..z8e..z9e..z10e..z11e..z12e..z13e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +penlabels(13,14,15,16,17,18); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmathheb.mf b/Master/texmf-dist/fonts/source/public/drm/drmmathheb.mf new file mode 100644 index 00000000000..47e4cf3ac12 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmmathheb.mf @@ -0,0 +1,38 @@ +% +AMDG This document was begun on 7 July 11EX, the feast +% of Sts. Cyril and Methodius, EEMM, and it is humbly +% dedicated to them and to the Immaculate Heart of Mary for +% their prayers, and to the Sacred Heart of Jesus for His +% mercy. + +beginchar(oct"100",0.75em#+2ss#,cap#,0); "Aleph"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,h-0.75thinl); +bot rt z1 = (w-ss,0-o); +draw z0--z1; +penpos2(thinl,90); +z2l = (ss,0); +penpos3(thinl,90); +z3l = (w/6,0); +penpos4(thickl,180); +z4 = (w/3,curlh); +penpos5(1.5thinl,180); +z5r = (ss+hair,0.4h); +z6 = (w/2,h); +z7 = (z5--z6) intersectionpoint (z0--z1); +penpos7(thinl,135); +penpos8(thickl,90); +z8r = (2w/3,h+o); +penpos9(thickl,90); +z9 = (w-ss,2h/3); +z10 = ((w/2,h/2)--(w,h)) intersectionpoint (z8--z9); +z11 = (z10--(x10,0)) intersectionpoint (z0--z1); + +penstroke z2e---z3e..z4e..z5e..z7e; +penstroke z8e..z9e; +pickup pencircle scaled thinl; +draw z10--z11; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +penlabels(13,14,15,16,17,18); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmmi10.mf b/Master/texmf-dist/fonts/source/public/drm/drmmi10.mf new file mode 100644 index 00000000000..739fca97f04 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmmi10.mf @@ -0,0 +1,83 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme:="OML"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant := 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=thinstroke#/2; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio + scaled granularity; +input drmcap.mf +input drmlowmac.mf +currenttransform:=identity slanted 0 yscaled aspect_ratio + scaled granularity; +input mathgrkup.mf +input drmpunct.mf +currenttransform:=identity slanted slant yscaled aspect_ratio + scaled granularity; +input drmitlow.mf +input mathgrklow.mf +input mathcursell.mf +currenttransform:=identity slanted 0 yscaled 1 scaled 1; +input drmdigs.mf +input matharrows.mf +input mathsym.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmomx10.mf b/Master/texmf-dist/fonts/source/public/drm/drmomx10.mf new file mode 100644 index 00000000000..5637bb90ba7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmomx10.mf @@ -0,0 +1,68 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme:="OMS"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant := 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=thinstroke#/2; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmlowmac.mf +input mathomx.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmorns.mf b/Master/texmf-dist/fonts/source/public/drm/drmorns.mf new file mode 100644 index 00000000000..48292df8066 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmorns.mf @@ -0,0 +1,51 @@ +% +AMDG This document was begun on 21 June 11EX, the feast +% of St. William the Abbot, and it is humbly dedicated to +% him and to the Immaculate Heart of Mary for their prayers, +% and to the Sacred Heart of Jesus for His mercy. + +font_identifier:="drmorns"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +% This file defines the parameters for the ornaments of the +% DRM font. + +phi = (1+sqrt5)/2; +%ornshort# = 2in#; +%ornheight# = ornshort#/phi; +%centerwid# = ornshort#/12; +%centerht# = centerwid#/2; +%ccurvrad# = centerht#/2; +cap#=8pt#; +ex#=0.6cap#; +doubex#=2ex#; +borderwid# = 0.02pt; +extrathin# = 0.001pt; +thinline# = 0.01pt; +thinerase# = 2thinline#; +thickline# = 2thinline#; +smallspace# = thinline#; +medspace# = 2smallspace#; +bigspace# = 2medspace#; +extbigspace# = 2bigspace#; +ss# = 0.2pt#; +dotwid#=0.6pt#; +define_pixels(ornshort,ornheight,centerwid,centerht,ccurvrad,ss); +define_pixels(thinline,thickline,smallspace,borderwid,thinerase); +define_pixels(medspace,extrathin,bigspace,extbigspace); +define_pixels(dotwid,cap,ex,doubex); + +pen borderpen; borderpen = pensquare scaled borderwid; +pen thinpen; thinpen = pensquare scaled thinline; +pen extthinpen; extthinpen = pensquare scaled extrathin; +pen thinerasepen; thinerasepen = pensquare scaled thinerase; +pen thickpen; thickpen = pensquare scaled thickline; +pen extthickpen; extthickpen = pensquare scaled 2thickline; +pen semiextextthickpen; semiextextthickpen = pensquare scaled 3thickline; +pen extextthickpen; extextthickpen = pensquare scaled 4thickline; +pen medpen; medpen = pensquare scaled 1.5thinline; + +%input ornbars.mf; +input ornfont.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmpunct.mf b/Master/texmf-dist/fonts/source/public/drm/drmpunct.mf new file mode 100644 index 00000000000..0999bba8f4f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmpunct.mf @@ -0,0 +1,714 @@ +% +AMDG This document was begun on 26 April 11EX, the feast +% of St. Catherine of Siena, and it is humbly dedicated to +% her and the Immaculate Heart of Mary for their prayers, +% and to the Sacred Heart of Jesus for His mercy. + +picture hyphen; +picture paren; +picture period; +picture opendoublequote; +picture questionmark; +picture bang; +picture leftsinguill; +picture leftdoubguill; +picture slash; +picture lessthan; +picture opensquare; + +beginchar(".",pwid#,pwid#,0); "The period ."; + +z0 = (w/2,dotwid); +z1 = z0 shifted (dotwid,0); +z2 = z0 shifted (0,dotwid); +z3 = z0 shifted (-dotwid,0); +z4 = z0 shifted (0,-dotwid); + +path period; +period = z1..z2..z3..z4..cycle; +fill period; + +%period := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(",",pwid#,pwid#,0); "The comma ,"; + +z0 = (w/2,dotwid); +z1 = z0 shifted (dotwid,0); +z2 = z0 shifted (0,dotwid); +z3 = z0 shifted (-dotwid,0); +z4 = z0 shifted (0,-dotwid/2); +z5 = z3 shifted (-dotwid/2,-3dotwid); +z6 = z1 shifted (-o,-2.0dotwid); + +path commapost; +commapost = z4..{dir -165}z5{right}..z6..z1..z2..z3..z4--cycle; +fill commapost; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"047",pwid#,cap#,0); "The apostrophe"; + +fill commapost shifted (0,h-2dotwid+o/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +thinwid# = 0.4pt#; +define_pixels(thinwid); + +beginchar("-",2pwid#,ex#,0); "The hyphen, -"; + +z0 = (ss,3h/4); +z1 = (w-ss,y0); +z2 = z0 shifted (thinwid/2,thinwid/2); +z3 = z2 shifted (0,-thinwid); +z4 = z1 shifted (-thinwid/2,thinwid/2); +z5 = z4 shifted (0,-thinwid); + +fill z2..z0..z3--z5..z1..z4--cycle; + +hyphen := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"177",2pwid#,ex#,0); "The break hyphen, -"; +currentpicture := hyphen; +endchar; + +beginchar(oct"025",3pwid#,ex#,0); "The en-dash, --"; + +z0 = (ss,3h/4); +z1 = (w-ss,y0); +z2 = z0 shifted (thinwid/2,thinwid/2); +z3 = z2 shifted (0,-thinwid); +z4 = z1 shifted (-thinwid/2,thinwid/2); +z5 = z4 shifted (0,-thinwid); + +fill z2..z0..z3--z5..z1..z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"026",em#+2ss#,ex#,0); "The em-dash, ---"; + +z0 = (ss,3h/4); +z1 = (w-ss,y0); +z2 = z0 shifted (thinwid/2,thinwid/2); +z3 = z2 shifted (0,-thinwid); +z4 = z1 shifted (-thinwid/2,thinwid/2); +z5 = z4 shifted (0,-thinwid); + +fill z2..z0..z3--z5..z1..z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("(",1.5pwid#,cap#,dep#); "The open parenthesis, ("; + +z0 = (w,h+o); +z1 = (w,-dep-o); +z2 = (ss,(h-dep)/2); +z3 = z2 shifted (thickl,0); + +path parenpath; +parenpath = z1{dir 150}..{up}z3{up}..{dir 30}z0{dir + 200}..{down}z2{down}..{dir -20}z1..cycle; +fill parenpath; + +paren := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(")",1.5pwid#,cap#,dep#); "The close parenthesis, )"; +pair center; center = (w/2,(h-dep)/2); +fill parenpath rotatedaround (center,180); + +endchar; + +beginchar(":",pwid#,ex#,0); "The colon, :"; + +fill period; +fill period shifted (0,ex-2dotwid-o); + +endchar; + +beginchar(";",pwid#,ex#,0); "The semicolon, ;"; + +fill period shifted (0,ex-2dotwid-o); +fill commapost; + +endchar; + +beginchar(oct"140",pwid#,cap#,0); "The open quote, `"; + +fill commapost rotatedaround ((w/2,h/2),180) + shifted (0,-0.5pwid); + +endchar; + +beginchar(oct"020",1.75pwid#,cap#,0); "The open double quote, ``"; + +fill commapost rotatedaround ((w/2,h/2),180) + shifted (0,-2dotwid); +fill commapost rotatedaround ((w/2,h/2),180) + shifted (-0.75pwid,-2dotwid); + +opendoublequote := currentpicture; + +endchar; + +beginchar(oct"021",1.75pwid#,cap#,0); "The close double quote, ''"; + +fill commapost shifted (0pwid,h-2dotwid); +fill commapost shifted (0.75pwid,h-2dotwid); + +endchar; + +beginchar(oct"022",1.75pwid#,cap#,0); "The baseline open double quote, ,,"; + +fill commapost shifted (0pwid,0); +fill commapost shifted (0.75pwid,0); + +endchar; + +beginchar("?",digwid#+2ss#,cap#,0); "The question mark, ?"; + +z0 = (w/2,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (w-ss,3h/4); +z3 = z2 shifted (-curvl,0); +z4 = (ss,3h/4); +z5 = (w/2-thickl/2,3dotwid); +z6 = z5 shifted (thickl,0); +z7 = (w/2-thickl/2,h/2); +z8 = z7 shifted (thickl,0); +z9 = z7 shifted (0,thinl); +z10 = z9 shifted (thickl,0); + +drtbulb(4,11,12,13,14); + +fill +z4{up}..{right}z0{right}..{down}z2{down}..{left}z8--z6--z5--z7{up}..{right}z10..{up}z3{up}..{left}z1{left}..{dir +-115}z13{right}..z12..z11..cycle; +z16 = 0.5[z5,z6]; y16 := dotwid; +fill fullcircle scaled 2dotwid shifted z16; + +questionmark := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"041",1.5pwid#,cap#,0); "The exclamation point, !"; + +z0 = (w/2-thickl/2,h); +z1 = z0 shifted (thickl/2,o); +z2 = z0 shifted (thickl,0); +z3 = (x0+o,3dotwid); +z4 = (x2-o,y3); +z5 = 0.5[z3,z4] shifted (0,-o); + +fill z0..z1..z2--z4..z5..z3--cycle; +fill fullcircle scaled 2dotwid shifted (x5,dotwid); + + +bang := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"275",1.5pwid#,cap#,dep#); "The reverse exclamation point"; + +currentpicture := bang rotatedaround ((w/2,(h-dep)/2),180); + +endchar; + +beginchar(oct"276",digwid#+2ss#,cap#,dep#); "The reverse question mark"; + +currentpicture := questionmark rotatedaround ((w/2,(h-dep)/2),180); + +endchar; + +beginchar(oct"016",pwid#+2ss#,ex#,0); "Left single guillemet"; + +z0 = (o,h/2); +z1 = (w-3o,7h/8); +z2 = (w-3o,h/8); +z3 = 0.5[z0,z1]; +z4 = 0.5[z0,z2]; +z5 = 0.1[z3,z2]; +z6 = 0.1[z4,z1]; +z7 = z0 shifted (curvl,0); +z8 = 0.5[z3,z12]; +z9 = 0.5[z4,z12]; +z10 = z1 shifted (2o,0); +z11 = z2 shifted (2o,0); +z12 = (w,h/2); + +path guillone; path guilltwo; +guillone = z0{dir 10}..z5..{dir 60}z1..z10{dir -100}..z8..z7--cycle; +guilltwo = z0{dir -10}..z6..{dir -60}z2..z11{dir 100}..z9..z7--cycle; +fill guillone; fill guilltwo; + +leftsinguill := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"017",pwid#+2ss#,ex#,0); "Right single guillemet"; + +fill guillone reflectedabout ((w/2,0),(w/2,h)); +fill guilltwo reflectedabout ((w/2,0),(w/2,h)); + +endchar; + +beginchar(oct"023",1.5pwid#+2ss#,ex#,0); "Left double guillemet"; + +fill guillone shifted (-o/2,0); +fill guillone shifted (pwid/2+o/2,0); +fill guilltwo shifted (-o/2,0); +fill guilltwo shifted (pwid/2+o/2,0); + +leftdoubguill := currentpicture; + +endchar; + +beginchar(oct"024",1.5pwid#+2ss#,ex#,0); "Right double guillemet"; + +fill guillone shifted (-o/2,0) + rotatedaround ((w/2,h/2),180); +fill guillone shifted (pwid/2+o/2,0) + rotatedaround ((w/2,h/2),180); +fill guilltwo shifted (-o/2,0) + rotatedaround ((w/2,h/2),180); +fill guilltwo shifted (pwid/2+o/2,0) + rotatedaround ((w/2,h/2),180); +%fill guillone reflectedabout ((w/2,0),(w/2,h)) +% shifted (-o/2,0); +%fill guillone reflectedabout ((w/2,0),(w/2,h)) +% shifted (pwid/2+o/2,0); +%fill guilltwo reflectedabout ((w/2,0),(w/2,h)) +% shifted (-o/2,0); +%fill guilltwo reflectedabout ((w/2,0),(w/2,h)) +% shifted (pwid/2+o/2,0); + +endchar; + +beginchar(oct"030",1.4pwid#+2ss#,3ex#/4,0); "Lower 0 for pertriqua"; + +zeroh = 1.2pwid; +zerohh = 3ex/4; +z0 = (w/2,h); +z1 = z0 shifted (0,-thinl); +z2 = (w/2,0); +z3 = z2 shifted (0,thinl); +z4 = (w-ss,h/2); +z5 = z4 shifted (-1.7thinl,0); +z6 = (ss,h-zerohh/2); +z7 = z6 shifted (thinl,0); + +fill z0..z4..z2..z6..cycle; +unfill z1..z5..z3..z7..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"052",ex#,ex#,0); "Asterisk, *"; + +z0 = (w/2,h/2); +z1 = (w/2,o); +z2 = (w/2,h-o); +z3 = z1 rotatedaround (z0,60); +z4 = z3 rotatedaround (z0,60); +z5 = z4 rotatedaround (z0,120); +z6 = z5 rotatedaround (z0,60); +z7 = z6 rotatedaround (z0,60); + +pickup pencircle scaled thinl; + +draw z2--z1; +draw z4--z6; +draw z5--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"053",ex#,ex#,0); "Plus (addition) sign, +"; + +pickup pencircle scaled thinl; +top z0 = (w/2,h-o); +bot z1 = (w/2,o); +lft z2 = (o,h/2); +rt z3 = (w-o,h/2); + +draw z0--z1; +draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"057",ex#/2+2ss#,cap#,0); "The forward slash, /"; + +pickup pencircle scaled thinl; +lft z0 = (o,o); +rt z1 = (w-o,h-o); + +draw z0--z1; + +slash := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"134",ex#/2+2ss#,cap#,0); "The backslash, \"; + +currentpicture := slash reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"042",1.75pwid#,cap#,0); "straight double quote"; + +z0 = (w/2-thickl,h-o); +z1 = z0 shifted (2accwid,-2accwid); +z2 = z0 shifted (-2accwid,-2accwid); +z3 = z0 shifted (0,-1.5pwid); +z4 = z3 shifted (-accwid,o); +z5 = z3 shifted (accwid,o); + +path singquote; singquote = z2..z0..z1--z5..z3..z4--cycle; + +fill singquote; +fill singquote shifted (2thickl,0); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("#",em#+ss#,cap#,dep#); "The pound sign, #"; + +full = h+d; + +z0 = (0.33w-hair,0.25full-dep+hair) shifted (ss,ss); +z1 = (0.57w-hair,0.25full-dep+hair) shifted (ss,ss); +z2 = (0.33w+hair,0.5full-dep+hair) shifted (ss,ss); +z3 = (0.57w+hair,0.5full-dep+hair) shifted (ss,ss); +z4 = 2[z0,z2]; +z5 = 2[z2,z0]; +z6 = 2[z1,z3]; +z7 = 2[z3,z1]; +z8 = 2[z2,z3]; +z9 = 2[z3,z2]; +z10 = 2[z0,z1]; +z11 = 2[z1,z0]; + +pickup pencircle scaled thinl; + +draw z4--z5; draw z7--z6; draw z9--z8; draw z11--z10; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar("$",3em#/4+2ss#,cap#,0); "The dollar sign, $"; + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (w-ss,3h/4); +z3 = (w-ss,h/4); +z4 = (ss,3h/4); +z5 = (ss,h/4); +z6 = z4 shifted (curvl,0); +z7 = z3 shifted (-curvl,0); +z8 = z0 shifted (0,-thinl); +z9 = z1 shifted (0,thinl); + +urtbulb(2,10,11,12,13); +ulftbulb(5,14,15,16,17); + +fill +z2{up}..{left}z0{left}..{down}z4{down}..{down}z7{down}..{left}z9{left}..{dir +120}z16{right}..{up}z15{up}..{left}z14{left}..{down}z5{down}..{right}z1{right}..{up}z3{up}..{up}z6{up}..{right}z8{right}..{dir +-60}z12{left}..{down}z11{down}..{right}z10{right}..{up}cycle; + +pickup pencircle scaled 1.2thinl; + +z20 = (w/2-3thickl/4,h+o); +z21 = (w/2-3thickl/4,-o); +z22 = (w/2+3thickl/4,h+o); +z23 = (w/2+3thickl/4,-o); + +draw z20--z21; draw z22--z23; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar("<",ex#,ex#,0); "The less than sign, <"; + +z0 = (2o,h/2); +z1 = (w-2o,h-o); +z2 = (w-2o,o); + +pickup pencircle scaled thinl; + +draw z1--z0--z2; + +lessthan := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(">",ex#,ex#,0); "The greater than sign, >"; +currentpicture := lessthan reflectedabout ((w/2,h),(w/2,0)); +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar("=",ex#,ex#,0); "The equals sign, ="; + +z0 = (2o,h/3); +z1 = (w-2o,h/3); +z2 = (2o,2h/3); +z3 = (w-2o,2h/3); + +pickup pencircle scaled thinl; + +draw z0--z1; +draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar("%",5em#/6,cap#,0); "The perbiqua sign, %"; + +z0 = (0.6zeroh,h); +z1 = z0 shifted (0,-thinl); +z2 = (0.6zeroh,h-zerohh); +z3 = z2 shifted (0,thinl); +z4 = (1.2zeroh,h-zerohh/2); +z5 = z4 shifted (-1.7thinl,0); +z6 = (ss,h-zerohh/2); +z7 = z6 shifted (thinl,0); + +fill z0..z4..z2..z6..cycle; +unfill z1..z5..z3..z7..cycle; + +z10 = (w-0.6zeroh,zerohh); +z11 = z10 shifted (0,-thinl); +z12 = (w-0.6zeroh,0); +z13 = z12 shifted (0,thinl); +z14 = (w-ss,zerohh/2); +z15 = z14 shifted (-1.7thinl,0); +z16 = (w-1.2zeroh,zerohh/2); +z17 = z16 shifted (thinl,0); + +fill z10..z14..z12..z16..cycle; +unfill z11..z15..z13..z17..cycle; + +z22 = (w-ss,h); +z23 = z22 shifted (0,-thinl); +z20 = 0.5[z0,z22] shifted (0,-0.25pwid); +z21 = z20 shifted (0,-thinl); +z24 = (ss,-o); +z25 = z24 shifted (0,0.75thinl); +z26 = z24 shifted (0.75thinl,0); +z27 = z23 shifted (-1.5thinl,-hair); + +fill z0..z20..z22--z23--z26..z24..z25--z27..z21..z1--cycle; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar("&",3em#/4,cap#,0); "The ampersand, &"; + +z0 = (w-userw/2,4h/9); +z1 = z0 shifted (-thickl,0); +z2 = (w/2,0-o); +z3 = z2 shifted (0,thinl); +z4 = (ss,h/3); +z5 = z4 shifted (thickl,0); +z6 = (w/2-thickl/2-hair/2,h-2userh); +z7 = z6 shifted (thickl-o,0); +z8 = (w/2-hair/2,h+o); +z9 = (w-ss,0); +z10 = z9 shifted (-thinl,0); +z11 = z6 shifted (-thinl,0); +z12 = z7 shifted (thinl,0); +z13 = z8 shifted (0,-thinl); +z14 = z1 shifted (-hair,hair/2); +z15 = z0 shifted (hair,hair/2); +z16 = z14 shifted (0,hair/2); +z17 = z15 shifted (0,hair/2); +z18 = 0.5[z1,z14]; +z19 = 0.5[z0,z15]; + +pickup pencircle scaled 1; +fill +z10..z11..{right}z8{right}..z12..z5..{right}z3{right}..{up}z1..z18..z14--z16--z17--z15..z19..z0{down}..{left}z2{left}..{up}z4{up}..z7..{left}z13{left}..z6..z9--cycle; +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar("[",2pwid#,cap#+ss#,dep#); "The open square bracket, ["; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thinl); +z2 = (ss,h); +z3 = z2 shifted (thinl,-thinl); +z4 = (ss,-dep); +z5 = z4 shifted (thinl,thinl); +z6 = (w-ss,-dep); +z7 = z6 shifted (0,thinl); +z8 = 0.5[z0,z1] shifted (0,0); +z9 = 0.5[z7,z6] shifted (0,0); + +path squarebrack; +squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; +fill squarebrack; + +opensquare := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar("]",2pwid#,cap#+ss#,dep#); "The close square bracket, ]"; +fill squarebrack rotatedaround ((w/2,(h-dep)/2),180); +endchar; + +beginchar("|",pwid#/2,cap#+ss#,dep#); "The pipe, |"; + +z0 = (w/2,h-o); +z1 = (w/2,-dep+o); + +pickup pencircle scaled thinl; +draw z0--z1; + +endchar; + +beginchar("{",1.8pwid#,cap#+ss#,dep#); "The open curly bracket, {"; + +brackwid = 2thinl; +toth = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-dep); +lft z2 = (ss,h-toth/2); +z3 = (3(x0-x2)/4,h-toth/4); +z4 = (3(x0-x2)/4,h-3toth/4); + +path curlybrack; +curlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; +draw curlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar("}",1.8pwid#,cap#+ss#,dep#); "The close curly bracket, }"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw curlybrack rotatedaround ((w/2,(h-dep)/2),180); +endchar; + +beginchar(oct"237",4ex#/5,cap#,dep#); "The section symbol"; + +sh = 2toth/3-thinl+o; +z0 = (w-ss,h-sh/4); +z1 = (w/2,h+o); +z2 = z1 shifted (0,-thinl); +z3 = (ss,h-sh/4); +z4 = z3 shifted (thinl,0); +z5 = (w-ss,h-3sh/4); +z6 = z5 shifted (-thinl,0); +z7 = (w/2,h-sh); +z8 = z7 shifted (0,-thinl); +z9 = (w/2,h-sh/2+curvl/2); +z10 = z9 shifted (0,-curvl); +z11 = z0 shifted (-thinl,0); +z12 = 0.5[z0,z11] shifted (0,-o); +z13 = (ss,h-3sh/4); +z14 = z13 shifted (thinl,0); +z15 = 0.5[z13,z14] shifted (0,hair/2); + +path halfsect; +halfsect = +z0{up}..{left}z1{left}..{down}z3{down}..z10..{down}z6{down}..{left}z7{left}..{up}z14..z15..{down}z13{down}..{right}z8{right}..{up}z5{up}..z9..{up}z4{up}..{right}z2{right}..{down}z11..z12..cycle; +fill halfsect; +fill halfsect shifted (0,-sh/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"277",5em#/6+2ss#,cap#,0); "The British pound sign"; + +z0 = (3w/4,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (w-ss-hair,4h/5); +z3 = z2 shifted (-thinl,0); +z4 = 0.5[z2,z3] shifted (0,-hair/2); +z5 = (0.5w,4h/5); +z6 = z5 shifted (-thickl,0); +z7 = (w/2+thickl/2,h/4); +z8 = z7 shifted (-thickl,0); +z9 = (x8-thickl,-hair/4); +z10 = z9 shifted (0,thinl); +z12 = (ss,h/5); +z13 = z12 shifted (thickl,0); +z14 = 0.5[z8,z7] shifted (0,-thinl); +z15 = z14 shifted (0,1.3thinl); +z16 = (3w/4,-hair/4); +z17 = z16 shifted (0,thinl); +z18 = (w-ss-hair,userw); +z19 = z18 shifted (0,thinl); +z20 = 0.5[z18,z19] shifted (hair,0); + +z21 = (2ss,0.6h); +z22 = (w-2ss,0.6h); + +fill +z2{up}..{left}z0{left}..z6..z8..{left}z10{left}..{up}z13{up}..z14..{right}z16{right}..z18..z20..z19{dir +200}..{left}z17{left}..z15..z12..z9..z7..z5..{right}z1{right}..{down}z3..z4..cycle; + +pickup pencircle scaled thinl; + +draw z21--z22; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"100",em#,cap#,0); "The at sign, @"; + +z0 = (w/4-o,h/2); +z1 = (3w/4-o,h/2); +z2 = (w/2-o,3h/4); +z3 = (w/2-o,h/4); +z4 = z2 shifted (0,-thinl); +z5 = z3 shifted (0,thinl); +z6 = z0 shifted (thickl,0); +z7 = z1 shifted (-0.8thickl,0); +z8 = (x7,y5+2thinl); +z9 = (x1,y5+2thinl); +z10 = (x7,y3+2thinl); +z11 = (x1,y3+2thinl); +z12 = z11 shifted (thinl,-thinl); +z13 = z12 shifted (0,-thinl); +z14 = (w-o,h/2); +z15 = z14 shifted (-thinl,0); +z16 = (w/2,h); +z17 = z16 shifted (0,-thinl); +z18 = (o,h/2); +z19 = z18 shifted (thinl,0); +z20 = (w/2,0); +z21 = z20 shifted (0,thinl); +z22 = z12 shifted (thickl,-thickl); +z23 = z22 shifted (0,-thinl); +z24 = 0.5[z22,z23] shifted (o,0); +z25 = (x7,y2-thinl/2); +z26 = (x1,y2-thinl/2); + +fill z0..z2..z1..z3..cycle; +unfill z6..z4..z7..z5..cycle; +fill +z26--z1--z11..z12..{up}z15{up}..{left}z17{left}..{down}z19{down}..{right}z21{right}..z22{dir +30}..z24..z23{dir -150}..{left}z20{left}..{up}z18{up}..{right}z16{right}..{down}z14{down}..{left}z13{left}..z10--z7--z25--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmromannums.mf b/Master/texmf-dist/fonts/source/public/drm/drmromannums.mf new file mode 100644 index 00000000000..f0ccadf511c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmromannums.mf @@ -0,0 +1,203 @@ +% +AMDG This document was begun on 11 June 11EX, the feast +% of St. Anthony of Padua, C, and it is humbly dedicated to +% him and to the Immaculate Heart of Mary for their prayers, +% and to the Sacred Heart of Jesus for His mercy. + +def topbotbars = +penpos50(thinl,90); +z50r = (0,h); +penpos51(thinl,90); +z51r = (w,h); +penpos52(thinl,90); +z52l = (0,0); +penpos53(thinl,90); +z53l = (w,0); +penstroke z50e--z51e; penstroke z52e--z53e; +enddef; + +beginchar(oct"100",thickstroke#+2lserw#+2ss#+2hair#,cap#,0); +"Roman numeral I"; + +topbotbars; +z1 = (ss+hair+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+hair+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +lrserif(2,9,10,11,25)(1); +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +path romone; romone = z14--z11--z10..z9..z2--z4..z15..z16--z17--z20--z19.. + z18..z3--z1..z12..z13--z14--cycle; +fill romone shifted (-ss/2,0); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"101",5em#/6+2ss#,cap#,0); +"Roman numeral V"; + +z1=(ss+userw,h-userh); +z2=z1+(slantwid,0); +z3=z1-(0,2h/3); +z4=z3+(thickstroke,0); +z5=((5em/6)-ss-userw,h-userh); +z6=z5-(thinstroke,0); +z7=z5-(0,2h/3); +z8=z7-(thinstroke,0); +z9=((5em/6)/2,0); +z30=0.25[z9,z5]; +z10=z30 shifted (-0.7thinstroke,1.3thinstroke); + +ulserif(1,11,12,13,14)(1); +urserif(2,15,16,17,18)(1); +ulserif(6,19,20,21,22)(1); +urserif(5,23,24,25,26)(1); + +path romfive; romfive = z9--z5..z23..z24--z25--z21--z20..z19..z6--z10--z2..z15..z16--z17--z13--z12--z11..z1--z9--cycle; + +topbotbars; +fill romfive shifted (ss/2,0); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"102",5em#/6+2ss#,cap#,0); "Roman numeral X"; + +z0 = (w/2,h/2); +z1 = (ss+userw,h-userh); +z2 = (w-ss-userw,h-userh); +z3 = (ss+lserw,lserh); +z4 = (w-ss-lserw,lserh); +z5 = z1 shifted (slantwid,0); +z6 = z4 shifted (-slantwid,0); +z7 = z2 shifted (-thinstroke,0); +z8 = z3 shifted (thinstroke,0); +z41 = aa[z1,z6]; +z41 = ab[z7,z3]; +z42 = ac[z5,z4]; +z42 = ad[z7,z3]; +z43 = ae[z8,z2]; +z43 = af[z6,z1]; +z44 = ag[z8,z2]; +z44 = ah[z5,z4]; + +ulserif(1,9,10,11,12)(1); +urserif(5,13,14,15,16)(1); +ulserif(7,17,18,19,20)(1); +urserif(2,21,22,23,24)(1); +llserif(3,25,26,27,28)(1); +lrserif(8,29,30,31,32)(1); +llserif(6,33,34,35,36)(1); +lrserif(4,37,38,39,40)(1); + +topbotbars; +fill z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..z1--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"103",5em#/6+2ss#,cap#,0); "Roman numeral L"; + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z5=(x4,thinstroke+thinl); +z6=(w-ss-ssslant,thinl); +z30=z6+(-thickstroke,thinstroke); +upsideserif(6,7,29); + +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +fill z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle; + +topbotbars; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"104",5em#/6+2ss#,cap#,0); "Roman numeral C"; + +z1=(w-ss-hair-userh,h-userh); +z2=z1-(0,thickstroke); +z3=(w-ss-hair-userh,userh); +z4=z3+(0,thickstroke+o); +z5=(w/2,h); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2+o); +z10=z9+(curvwid,0); +ctsideserif(1,11,12,13,14,2)(1); +ctsideserif(4,15,16,17,18,3)(2); + +pickup cappen; +path cbody; cbody=z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path cinbody; cinbody=z2..z6..z10..z8..z4; + +fill cinbody & botserif & cbody & topserif & cycle; + +topbotbars; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"105",em#+2ss#,cap#,0); "Roman numeral D"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z13 = (x4,h); +z14 = (x4,h-thinstroke); +z15 = (w-ss,h/2); +z16 = z15-(curvwid,0); +z17 = (x2,0); +z18 = z17+(0,thinstroke); +z19 = (w/2,h); +z20 = z19-(0,thinstroke); +z21 = (w/2,0); +z22 = z21+(0,thinstroke); +llserif(1,5,6,7,8)(1); +ulserif(3,9,10,11,12)(1); + +topbotbars; +fill z17{right}..{right}z21..z15..{left}z19{left}..{left}z13--z11--z10..z9..z3--z1..z5..z6--z7--z17--cycle; +unfill z18{right}..{right}z22..z16..{left}z20{left}..{left}z14--z18--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"106",em#+2ss#,cap#,0); "Roman numeral M"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thinstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thinstroke,0); +z5 = (w/2-thickstroke/3,0); +z6 = (w-ss-lserw,lserh); +z7 = z6 shifted (-thickstroke,0); +z8 = (w-ss-userw,h-userh); +z9 = z8 shifted (-thickstroke,0); +z14 = z13 shifted (-2thickstroke/3,0); +z23 = 0.22[z5,z9]; +z28 = 0.1[z23,z29]; +z29=z27+(2curvwid/3,0); + +urserif(8,10,11,12,13)(1); +lrserif(6,15,16,17,18)(1); +llserif(7,19,20,21,22)(1); +ulserif(3,24,25,26,27)(1); +llserif(1,30,31,32,33)(2); +lrserif(2,34,35,36,37)(2); + +fill z5--z9--z7..z19..z20--z21--z17--z16..z15..z6--z8..z10..z11--z12--z14--z28--z29--z26--z25..z24..z3--z1..z30..z31--z32--z36--z35..z34..z2--z4--z5--cycle; + +topbotbars; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsc10.mf b/Master/texmf-dist/fonts/source/public/drm/drmsc10.mf new file mode 100644 index 00000000000..682305f00ed --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsc10.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drmsc"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.3pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant=0; +font_slant 0u#; +font_normal_space 1u#; +font_normal_stretch 1u#; +font_normal_shrink 1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 2u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.0pt#; +slantwid#=1.0pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmscap.mf +input drmpunct.mf +input drmacc.mf +input drmscacclet.mf +input drmscdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsc11.mf b/Master/texmf-dist/fonts/source/public/drm/drmsc11.mf new file mode 100644 index 00000000000..438ebcf36e8 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsc11.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=9pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant=0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.3pt#; +slantwid#=1.3pt#; +thickstroke#=1.1pt#; +loopgap#=1.1pt#; +thinstroke#=0.5pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmscap.mf +input drmpunct.mf +input drmacc.mf +input drmscacclet.mf +input drmscdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsc12.mf b/Master/texmf-dist/fonts/source/public/drm/drmsc12.mf new file mode 100644 index 00000000000..7af8ccebaa2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsc12.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=10pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant=0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.4pt#; +slantwid#=1.4pt#; +thickstroke#=1.2pt#; +loopgap#=1.2pt#; +thinstroke#=0.5pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmscap.mf +input drmpunct.mf +input drmacc.mf +input drmscacclet.mf +input drmscdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsc14.mf b/Master/texmf-dist/fonts/source/public/drm/drmsc14.mf new file mode 100644 index 00000000000..f727e8c7d1c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsc14.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=12pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant=0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.6pt#; +slantwid#=1.6pt#; +thickstroke#=1.4pt#; +loopgap#=1.4pt#; +thinstroke#=0.6pt#; +o#=0.4thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmscap.mf +input drmpunct.mf +input drmacc.mf +input drmscacclet.mf +input drmscdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsc17.mf b/Master/texmf-dist/fonts/source/public/drm/drmsc17.mf new file mode 100644 index 00000000000..b5cfff00ba5 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsc17.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drmsc"; font_size:=17pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=15pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant=0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.9pt#; +slantwid#=1.9pt#; +thickstroke#=1.7pt#; +loopgap#=1.7pt#; +thinstroke#=0.8pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmscap.mf +input drmpunct.mf +input drmacc.mf +input drmscacclet.mf +input drmscdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsc24.mf b/Master/texmf-dist/fonts/source/public/drm/drmsc24.mf new file mode 100644 index 00000000000..24997e7aced --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsc24.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=21pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant=0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=2.4pt#; +slantwid#=2.4pt#; +thickstroke#=2.2pt#; +loopgap#=1.7pt#; +thinstroke#=1.2pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmscap.mf +input drmpunct.mf +input drmacc.mf +input drmscacclet.mf +input drmscdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsc6.mf b/Master/texmf-dist/fonts/source/public/drm/drmsc6.mf new file mode 100644 index 00000000000..31cc8eb2603 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsc6.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1"; +pixels_per_inch:=2400; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=4pt#; +u#=2cap#/3; +em#=1.4cap#; +ex#=0.7cap#; +dep#=cap#/3; +ss#=0.4pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.6pt#; +slantwid#=0.6pt#; +thickstroke#=0.6pt#; +loopgap#=0.6pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/16; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmscap.mf +input drmpunct.mf +input drmacc.mf +input drmscacclet.mf +input drmscdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsc7.mf b/Master/texmf-dist/fonts/source/public/drm/drmsc7.mf new file mode 100644 index 00000000000..eec07487217 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsc7.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=5pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.4pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.7pt#; +slantwid#=0.7pt#; +thickstroke#=0.7pt#; +loopgap#=0.7pt#; +thinstroke#=0.3pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmscap.mf +input drmpunct.mf +input drmacc.mf +input drmscacclet.mf +input drmscdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsc8.mf b/Master/texmf-dist/fonts/source/public/drm/drmsc8.mf new file mode 100644 index 00000000000..5e24d96626a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsc8.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=6pt#; +u#=5cap#/6; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.3pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant=0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.9pt#; +slantwid#=0.9pt#; +thickstroke#=0.8pt#; +loopgap#=0.8pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmscap.mf +input drmpunct.mf +input drmacc.mf +input drmscacclet.mf +input drmscdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsc9.mf b/Master/texmf-dist/fonts/source/public/drm/drmsc9.mf new file mode 100644 index 00000000000..b42543a329f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsc9.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=7pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.3pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant=0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.0pt#; +slantwid#=1.0pt#; +thickstroke#=0.9pt#; +loopgap#=0.9pt#; +thinstroke#=0.3pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmscap.mf +input drmpunct.mf +input drmacc.mf +input drmscacclet.mf +input drmscdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmscacclet.mf b/Master/texmf-dist/fonts/source/public/drm/drmscacclet.mf new file mode 100644 index 00000000000..bb51196719b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmscacclet.mf @@ -0,0 +1,685 @@ +% +AMDG This document was begun on 1E May 11EX, and it is +% humbly dedicated to the Immaculate Heart of Mary for her +% prayers, and to the Sacred Heart of Jesus for His mercy. + +beginchar(oct"350",7em#/12+2ss#,ex#,0); "The letter egrave"; + +currentpicture := lowe + grave shifted + (w/2-pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"351",7em#/12+2ss#,ex#,0); "The letter eacute"; + +currentpicture := lowe + acute shifted + (w/2-pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"354",0.28em#+2ss#,ex#,0); "the letter igrave"; +currentpicture := dotlessi + grave shifted + (w/2-pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"355",0.28em#+2ss#,ex#,0); "the letter iacute"; +currentpicture := dotlessi + acute shifted + (w/2-pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"356",0.28em#+2ss#,ex#,0); "the letter icirc"; +currentpicture := dotlessi + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); +endchar; + +beginchar(oct"357",0.28em#+2ss#,ex#,0); "dotless i with diaresis"; + +currentpicture := dotlessi + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"352",7em#/12+2ss#,ex#,0); "e with circumflex"; + +currentpicture := lowe + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"353",7em#/12+2ss#,ex#,0); "e with diaresis"; + +currentpicture := lowe + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"362",4em#/6+2ss#,ex#,0); "the letter ograve"; + +currentpicture := lowo + grave shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"363",4em#/6+2ss#,ex#,0); "the letter oacute"; + +currentpicture := lowo + acute shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"366",4em#/6+2ss#,ex#,0); "o with diaresis"; + +currentpicture := lowo + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"365",4em#/6+2ss#,ex#,0); "o with tilde"; + +currentpicture := lowo + tilde shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"364",4em#/6+2ss#,ex#,0); "o with circumflex"; + +currentpicture := lowo + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"340",2em#/3+2ss#,ex#,0); "The letter agrave"; + +currentpicture := lowa + grave shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"341",2em#/3+2ss#,ex#,0); "The letter aacute"; + +currentpicture := lowa + acute shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"342",2em#/3+2ss#,ex#,0); "a with circumflex"; + +currentpicture := lowa + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"343",2em#/3+2ss#,ex#,0); "a with tilde"; + +currentpicture := lowa + tilde shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"344",2em#/3+2ss#,ex#,0); "a with diaresis"; + +currentpicture := lowa + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"345",2em#/3+2ss#,ex#,0); "a with ring"; + +currentpicture := lowa; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-1.1pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"267",7em#/12+2ss#,ex#,0); "u with ring"; + +currentpicture := lowu; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"347",ex#+2ss#,ex#,1.5pwid#); "c cedille"; + +currentpicture := lowc + cedille shifted (w-1.7pwid,0); + +endchar; + +beginchar(oct"200",em#+2ss#,cap#,0); "The Letter A, reverse circumflex"; + +currentpicture := capa + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"201",em#+2ss#,cap#,0); "The Letter A, reverse cedilla"; + +currentpicture := capa + revcid shifted (2w/3,0); + +endchar; + +beginchar(oct"202",5em#/6+ss#,cap#,0); "The Letter C with acute accent"; + +currentpicture := capc + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"203",5em#/6+ss#,cap#,0); "The Letter C, reverse circumflex"; + +currentpicture := capc + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"204",5em#/6+2ss#,cap#,0); "The Letter D, reverse circumflex"; + +currentpicture := capd + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"205",5em#/6+2ss#,cap#,0); "The Letter E, reverse circumflex"; + +currentpicture := cape + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"206",5em#/6+2ss#,cap#,0); "The Letter E, reverse cedilla"; + +currentpicture := cape + revcid shifted (2w/3-8o,0); + +endchar; + +beginchar(oct"207",em#+2ss#,cap#,0); "The Letter G, reverse circumflex"; + +currentpicture := capg + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"210",5em#/6+2ss#,cap#,0); "The Letter L, acute accent"; + +currentpicture := capl + acute shifted (w/2-1.5pwid,pwid); + +endchar; + +beginchar(oct"211",5em#/6+2ss#,cap#,0); "The Letter L, apostrophe accent"; + +currentpicture := capl; +fill commapost shifted (ss+2userw+thickl+o,h-0.5pwid); + +endchar; + +beginchar(oct"212",5em#/6+2ss#,cap#,0); "The Letter slashed L"; + +currentpicture := capl; + +pickup pencircle scaled thinstroke; +lft z0 = (-2hair,h/2); +z2 = (z0--(w,h/2)) intersectionpoint ((ss+userw+thickstroke/2,h)-- + (ss+userw+thickstroke/2,0)); +z1 = 2[z0,z2] shifted (thickstroke,0); +path intline; intline = z0--z1; + +draw intline rotatedaround(z2,30); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"213",5em#/6+2ss#,cap#,0); "The Letter N, with acute accent"; + +currentpicture := capn + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"214",5em#/6+2ss#,cap#,0); "The Letter N, inverted circumflex"; + +currentpicture := capn + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"216",5em#/6+2ss#,cap#,0); "The Letter O, Hungarian diaresis"; + +currentpicture := capo + hungum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"217",5em#/6+2ss#,cap#,0); "The Letter R, acute accent"; + +currentpicture := capr + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"220",5em#/6+2ss#,cap#,0); "The Letter R, inverse circumflex"; + +currentpicture := capr + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"221",(3(em#+2ss#)/4),cap#,0); "The Letter S, acute accent"; + +currentpicture := caps + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"222",(3(em#+2ss#)/4),cap#,0); "The Letter S, inverse circum"; + +currentpicture := caps + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"223",(3(em#+2ss#)/4),cap#,0); "The Letter S, cedilla"; + +currentpicture := caps + cedille shifted (w/2-pwid/2,0); + +endchar; + +beginchar(oct"224",5em#/6+2ss#,cap#,0);"The Letter T, inverse circum"; + +currentpicture := capt + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"225",5em#/6+2ss#,cap#,0);"The Letter T, cedilla"; + +currentpicture := capt + cedille shifted (w/2-pwid/2,0); + +endchar; + +beginchar(oct"226",5em#/6+2ss#,cap#,0); "The Letter U, Hungarian umlaut"; + +currentpicture := capu + hungum shifted (w/2-pwid/2-2o,1.2pwid); + +endchar; + +beginchar(oct"227",5em#/6+2ss#,cap#,0); "The Letter U, ring accent"; + +currentpicture := capu; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"230",5em#/6+2ss#,cap#,0); "The Letter Y, umlaut"; + +currentpicture := capy + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"231",5em#/6+2ss#,cap#,0); "The Letter Z, acute accent"; + +currentpicture := capz + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"232",5em#/6+2ss#,cap#,0); "The Letter Z, inverse circum"; + +currentpicture := capz + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"233",5em#/6+2ss#,cap#,0); "The Letter Z, overdot"; + +currentpicture := capz + overdot shifted (w/2-1.5dotwid,pwid); + +endchar; + +beginchar(oct"235",0.38em#+2ss#,cap#,0); "The Letter I, overdot"; + +currentpicture := capi + overdot shifted (w/2-1.5dotwid,pwid); + +endchar; + +beginchar(oct"240",2em#/3+2ss#,ex#,0); "The letter a, inverse circum"; + +currentpicture := lowa + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"241",2em#/3+2ss#,ex#,0); "The letter a, reverse cedilla"; + +currentpicture := lowa + revcid shifted (2w/3,0); + +endchar; + +beginchar(oct"242",8em#/12+2ss#,ex#,0); "c with acute"; + +currentpicture := lowc + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"243",8em#/12+2ss#,ex#,0); "c inverse circum"; + +currentpicture := lowc + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"244",7em#/12+2ss#,asch#,0); "d apostrophe"; + +currentpicture := lowd; +fill commapost shifted (w-0.2pwid-ss,h-(h-ex)-0.5pwid); + +endchar; + +beginchar(oct"245",7em#/12+2ss#,ex#,0); "e, inverse circumflex"; + +currentpicture := lowe + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"246",7em#/12+2ss#,ex#,0); "e, reverse cedilla"; + +currentpicture := lowe + revcid shifted (w/2-0.3pwid,0); + +endchar; + +beginchar(oct"247",2em#/3+2ss#,ex#,dep#); "g, inverse circum"; + +currentpicture := lowg + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"250",7em#/12+2ss#,asch#,0); "l, with acute"; + +currentpicture := lowl + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"251",7em#/12+2ss#,asch#,0); "l, with apostrophe"; + +currentpicture := lowl; +fill commapost shifted (w-pwid-ss,h-(h-ex)-0.5pwid); + +endchar; + +beginchar(oct"252",7em#/12+2ss#,ex#,0); "slashed l"; + +currentpicture := lowl; + +pickup pencircle scaled thinl; +z0 = (0,h/2); +z1 = z0 shifted (3thickstroke,0); +z2 = 0.5[z0,z1]; +path crossbar; crossbar = z0--z1; +draw crossbar rotatedaround (z2,30); + +penlabels(0,1,2); +endchar; + +beginchar(oct"253",7em#/12+2ss#,ex#,0); "n, acute accent"; + +currentpicture := lown + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"254",7em#/12+2ss#,ex#,0); "n, inverse circum"; + +currentpicture := lown + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"256",4em#/6+2ss#,ex#,0); "o, Hungarian umlaut"; + +currentpicture := lowo + hungum shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"257",8em#/12+2ss#,ex#,0); "r, with acute accent"; + +currentpicture := lowr + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"260",8em#/12+2ss#,ex#,0); "r, reverse circum"; + +currentpicture := lowr + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"261",3em#/6+2ss#,ex#,0); "s, with acute accent"; + +currentpicture := lows + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"262",3em#/6+2ss#,ex#,0); "s, reverse circum"; + +currentpicture := lows + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"263",3em#/6+2ss#,ex#,0); "s, cedilla"; + +currentpicture := lows + cedille shifted (w/2-pwid/2,0); + +endchar; + +beginchar(oct"264",5em#/6+2ss#,theight#,0); "t, with apostrophe"; + +currentpicture := lowt; +fill commapost shifted (w-0.5pwid-ss,h-(h-ex)-0.5pwid); + +endchar; + +beginchar(oct"265",4em#/6+2ss#,theight#,0); "t, with cedilla"; + +currentpicture := lowt + cedille shifted (w/2-pwid/4,0); + +endchar; + +beginchar(oct"266",7em#/12+2ss#,ex#,0); "u with Hungarian umlaut"; + +currentpicture := lowu + hungum shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"270",7em#/12+2ss#,ex#,dep#); "y, with diaresis"; + +currentpicture := lowy + diaresis shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"271",6em#/12+2ss#,ex#,0); "z, acute accent"; + +currentpicture := lowz + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"272",6em#/12+2ss#,ex#,0); "z, inverse circum"; + +currentpicture := lowz + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"273",6em#/12+2ss#,ex#,0); "z, overdot"; + +currentpicture := lowz + overdot shifted (w/2-1.5dotwid,-0.5pwid); + +endchar; + +beginchar(oct"300",em#+2ss#,cap#,0); "A, acute accent"; + +currentpicture := capa + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"301",em#+2ss#,cap#,0); "A, grave accent"; + +currentpicture := capa + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"302",em#+2ss#,cap#,0); "A, circumflex"; + +currentpicture := capa + circumflex shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"303",em#+2ss#,cap#,0); "A, tilde"; + +currentpicture := capa + tilde shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"304",em#+2ss#,cap#,0); "A, diaresis"; + +currentpicture := capa + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"305",em#+2ss#,cap#,0); "A, ring"; + +currentpicture := capa; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"307",5em#/6+2ss#,cap#,0); "C cedille"; + +currentpicture := capc + cedille shifted (w/2-0.5pwid,0); + +endchar; + +beginchar(oct"311",5em#/6+2ss#,cap#,0); "E, acute"; + +currentpicture := cape + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"310",5em#/6+2ss#,cap#,0); "E, grave"; + +currentpicture := cape + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"312",5em#/6+2ss#,cap#,0); "E, circumflex"; + +currentpicture := cape + circumflex shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"313",5em#/6+2ss#,cap#,0); "E, diaresis"; + +currentpicture := cape + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"314",0.38em#+2ss#,cap#,0); "I, acute"; + +currentpicture := capi + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"315",0.38em#+2ss#,cap#,0); "I, grave"; + +currentpicture := capi + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"316",0.38em#+2ss#,cap#,0); "I, circumflex"; + +currentpicture := capi + circumflex shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"317",0.38em#+2ss#,cap#,0); "I, diaresis"; + +currentpicture := capi + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"321",5em#/6+2ss#,cap#,0); "N, tilde"; + +currentpicture := capn + tilde shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"322",5em#/6+2ss#,cap#,0); "O, acute"; + +currentpicture := capo + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"323",5em#/6+2ss#,cap#,0); "O, grave"; + +currentpicture := capo + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"324",5em#/6+2ss#,cap#,0); "O, circumflex"; + +currentpicture := capo + circumflex shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"325",5em#/6+2ss#,cap#,0); "O, tilde"; + +currentpicture := capo + tilde shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"326",5em#/6+2ss#,cap#,0); "O, diaresis"; + +currentpicture := capo + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"331",5em#/6+2ss#,cap#,0); "U, acute"; + +currentpicture := capu + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"332",5em#/6+2ss#,cap#,0); "U, grave"; + +currentpicture := capu + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"333",5em#/6+2ss#,cap#,0); "U, circumflex"; + +currentpicture := capu + circumflex shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"334",5em#/6+2ss#,cap#,0); "U, diaresis"; + +currentpicture := capu + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"335",5em#/6+2ss#,cap#,0); "Y, acute"; + +currentpicture := capy + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"361",7em#/12+2ss#,ex#,0); "n, tilde"; + +currentpicture := lown + tilde shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"371",7em#/12+2ss#,ex#,0); "u, acute"; + +currentpicture := lowu + acute shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"372",7em#/12+2ss#,ex#,0); "u, grave"; + +currentpicture := lowu + grave shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"373",7em#/12+2ss#,ex#,0); "u, circumflex"; + +currentpicture := lowu + circumflex shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"374",7em#/12+2ss#,ex#,0); "u, diaresis"; + +currentpicture := lowu + diaresis shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"375",7em#/12+2ss#,ex#,dep#); "y, acute"; + +currentpicture := lowy + acute shifted (w/2-pwid,0); + +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmscap.mf b/Master/texmf-dist/fonts/source/public/drm/drmscap.mf new file mode 100644 index 00000000000..4efcbdc0844 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmscap.mf @@ -0,0 +1,1114 @@ +% +AMDG This document was begun on 15 August 2007, the +% Feast of the Assumption of the Blessed Virgin Mary, and it +% is humbly offered to her for her prayers, and to the +% Sacred Heart of Jesus for His mercy. + +picture lowo; +picture lowa; +picture lowl; +picture lowc; +picture lowd; +picture lowe; +picture lowg; +picture lown; +picture lowu; +picture lowr; +picture lows; +picture lowt; +picture lowy; +picture lowz; +picture lowi; +lserw := 0.1u; +userw := 0.1u; + +def ulftbulb(suffix i,j,k,l,m) = +z.j=z.i shifted (bulbsh,bulbsh); +z.k=z.j shifted (bulbsh,-bulbsh); +z.l=z.k shifted (-bulbsh,-bulbsh); +enddef; + +%%%FFF Fix W, M, A from dependence on stroke widths FFF%%% + +%%%% Define Lower Right Serif on Caps %%%% + +def lrserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(lserw/3,-lserc/2); +z.k=z.i+(lserw,-lserc); +z.l=z.k-(0,lserstep); +z.m=z.l-(lserw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(lserw/3,-lserc/2); +z.k=z.i+(lserw+equalize/2,-lserc); +z.l=z.k-(0,lserstep); +z.m=z.l-(lserw+thickstroke/2,0); +fi +enddef; + +%%%% Define Lower Left Serif on Caps %%%% + +def llserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i-(lserw/3,lserc/2); +z.k=z.i-(lserw,lserc); +z.l=z.k-(0,lserstep); +z.m=z.l+(lserw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i-(lserw/3,lserc/2); +z.k=z.i-(lserw+equalize/2,lserc); +z.l=z.k-(0,lserstep); +z.m=z.l+(lserw+thickstroke/2,0); +fi +enddef; + +%%%% Define Upper Right Serif on Caps %%%% + +def urserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(userw/3,lserc/2); +z.k=z.i+(userw,userc); +z.l=z.k+(0,userstep); +z.m=z.l-(userw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(userw/3,lserc/2); +z.k=z.i+(userw+equalize/2,userc); +z.l=z.k+(0,userstep); +z.m=z.l-(userw+thickstroke/2,0); +fi +enddef; + +%%%% Define Upper Left Serif on Caps %%%% + +def ulserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(-userw/3,lserc/2); +z.k=z.i+(-userw,userc); +z.l=z.k+(0,userstep); +z.m=z.l+(userw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(-userw/3,lserc/2); +z.k=z.i+(-(userw+equalize/2),userc); +z.l=z.k+(0,userstep); +z.m=z.l+(userw+thickstroke/2,0); +fi +enddef; + +%%%% Define T Side Serifs on Caps %%%% + +def tlsideserif(suffix i,j,k,l,m) = +z.j=z.i+(0,seriftail); +z.k=z.j-((userh/2),0); +z.l=z.k-(userh/2,1.5userw); +z.m=z.l+(userh/2,0); +enddef; + +def trsideserif(suffix i,j,k,l,m) = +z.j=z.i+(0,seriftail); +z.k=z.j+((userh/2),0); +z.l=z.k+(userh/2,-1.5userw); +z.m=z.l-(userh/2,0); +enddef; + +%%%% Define C Side Serifs on Caps %%%% + +def ctsideserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userw/4); +z.k=z.j+(0.5userh,0); +z.l=z.k-(0,2.5userw); +z.m=z.l-(0.5userh,0); +if topbot = 1: +path topserif; topserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botserif; botserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +def ctbackserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userh/2); +z.k=z.j-(userh,0); +z.l=z.k+(0,-2.7userw); +z.m=z.l+(userh,0); +if topbot = 1: +path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +%%%% Define L, E, Z, and F side serifs on Caps %%%% + +def upsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,2lserw); +z.k=z.j-(lserh,lserw); +enddef; + +def downsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,-2lserw); +z.k=z.j+(-lserh,lserw); +enddef; + +def lftdownsideserif(suffix i,j,k) = +z.j=z.i-(ssslant,2lserw); +z.k=z.j+(lserh,lserw); +enddef; + +%beginchar("i",0.28em#+2ss#,ex#,0); "The Letter I"; +beginchar("i",2ss#+thickstroke#+0.2u#,ex#,0); "The Letter I"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +lrserif(2,9,10,11,25)(1); +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +fill z14--z11--z10..z9..z2--z4..z15..z16--z17--z20--z19.. + z18..z3--z1..z12..z13--z14--cycle; + +lowi := currentpicture; +dotlessi := currentpicture; + +penlabels(1,2,3,4,9,10,11,12,13,14,15,16,17,18,19,20,25); + +endchar; + +beginchar("o",4em#/6+2ss#,ex#,0); "The Letter O"; + +z1=(ss,h/2); +z2=(w/2,h+o); +z3=(w-ss,h/2); +z4=(w/2,0-o); +z5=z1 shifted (curvwid,0); +z6=z2 shifted (0,-thinstroke); +z7=z3 shifted (-curvwid,0); +z8=z4 shifted (0,thinstroke); + +fill z4..z3..z2..z1..cycle; +unfill z5..z6..z7..z8..cycle; + +lowo := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); + +endchar; + +beginchar("a",2em#/3+2ss#,ex#,0); "The Letter A"; + +scrossh = 3/4; +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thinstroke,0); +z3 = (w-ss-lserw,lserh); +z4 = z3 shifted (-thickstroke,0); +z5 = (w/2+thickstroke/2,h+o); +z6 = z5 shifted (-thickstroke,0) rotatedaround (z5,30); +lrserif(3,7,8,9,10)(1); +llserif(4,11,12,13,14)(1); +lrserif(2,15,16,17,18)(1); +llserif(1,19,20,21,22)(1); +z23 = scrossh[z6,z1]; +z24 = z23 shifted (thinstroke,0); +z25 = (w,y23); +z26 = letba[z23,z25]; +z26 = letbb[z3,z5]; +z27 = z26 shifted (-thickstroke,0); +z28 = 0.8[z27,z6]; +z29 = 0.2[z27,z28]; +z30 = 0.2[z24,z28]; + +fill z3--z5--z6--z1..z19..z20--z21--z17--z16..z15..z2 + --z24--z27--z4..z11..z12--z13--z9--z8..z7..cycle; +unfill z30--z28--z29--cycle; + +lowa := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36); +endchar; + +beginchar("j",0.28em#+2ss#,ex#,dep#); "The Letter J"; + +z1 = ((w/2-(thickstroke/2)),-lserh); +z2 = ((w/2+(thickstroke/2)),-lserh); +z3 = ((w/2-(thickstroke/2)),(h-userh)); +z4 = ((w/2+(thickstroke/2)),(h-userh)); +z5 = (x3-userw,-dep); +z6 = z5 shifted (0,thinstroke); +z8 = z5 shifted (-userw,dep/2); +z7 = z8 shifted (-thinstroke,0); +z9 = (x8,-dep/4); +z10 = 0.5[z8,z9] shifted (thickstroke/2,0); + +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +fill z9..z7{down}..{right}z5{right}..{up}z2--z4..z15.. + z16--z17--z20--z19..z18..z3--z1{down}..{left}z6{left}.. + {up}z8{down}..{up}z10{up}..z9..cycle; + +dotlessj := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25); +endchar; + +beginchar("q",4em#/6+2ss#,ex#,dep#+thickstroke#/2); "The Letter Q"; + +z1=(ss,h/2); +z2=(w/2,h+o); +z3=(w-ss,h/2); +z4=(w/2,0); +z5=z1+(curvwid,0); +z6=z2-(0,thinstroke); +z7=z3-(curvwid,0); +z8=z4+(0,thinstroke); +z9=z4+(curvwid/2,0); +z10=z4-(curvwid/2,0); +z11=(em+qtailunit+thickstroke,-depth); +z12=(em+2qtailunit,-depth); +z13=z12+(qtailunit,depth/2); +z14=z12+(0,2thickstroke/3); +z15=(em+qtailunit,-depth+thickstroke); + +pickup pencircle; + +path outerring; outerring=z9..z3..z2..z1..z10; +path innerring; innerring=z8..z5..z6..z7..cycle; +path bottomqtail; bottomqtail=z10..tension 1.7..z11{right}..{right}z12..z13; +path topqtail; topqtail=z13..tension 1.5..z14..tension 1.5..z15..z9; + +unfill innerring; +fill outerring & bottomqtail & topqtail..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); + +endchar; + +beginchar("h",2em#/3+2ss#,ex#,0); "The Letter H"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z5 = (w-ss-lserw-thickstroke,lserh); +z6 = z5 shifted (thickstroke,0); +z7 = (w-ss-lserw-thickstroke,h-lserh); +z8 = z7 shifted (thickstroke,0); +z46=(0.5)[z4,z2]; +z47=z46+(0,thinstroke/2); +z48=z46-(0,thinstroke/2); +z49=(0.5)[z7,z5]; +z50=z49+(0,thinstroke/2); +z51=z49-(0,thinstroke/2); +lrserif(2,9,10,11,25)(1); +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); +lrserif(6,30,31,32,33)(1); +llserif(5,34,35,36,37)(1); +urserif(8,38,39,40,41)(1); +ulserif(7,42,43,44,45)(1); + +fill z36--z32--z31..z30..z6--z8..z38..z39--z40--z44-- + z43..z42..z7--z50--z47--z4..z15..z16--z17--z20-- + z19..z18..z3--z1..z12..z13--z14--z11--z10..z9..z2 + --z48--z51--z5..z34..z35--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("d",7em#/12+2ss#,ex#,0); "The Letter D"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z13 = (x4,h); +z14 = (x4,h-thinstroke); +z15 = (w-ss,h/2); +z16 = z15-(curvwid,0); +z17 = (x2,0); +z18 = z17+(0,thinstroke); +z19 = (w/2,h); +z20 = z19-(0,thinstroke); +z21 = (w/2,0); +z22 = z21+(0,thinstroke); +llserif(1,5,6,7,8)(1); +ulserif(3,9,10,11,12)(1); + +fill z17{right}..{right}z21..z15..{left}z19{left}..{left}z13--z11--z10..z9..z3--z1..z5..z6--z7--z17--cycle; +unfill z18{right}..{right}z22..z16..{left}z20{left}..{left}z14--z18--cycle; + +lowd := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("p",7em#/12+2ss#,ex#,0); "The Letter P"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3 + thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss,3h/4); +z21 = z20 shifted (-curvwid,0); +z22=(x18,h/2); +z23=z22+(0,thinstroke); +z30=(x4,0); +z26 = z2 shifted (0,-lserh); +z27 = z4 shifted (0,thinstroke); +z24 = 0.5[z26,z27]; +z25 = z24 shifted (0,thinstroke); +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6-- + z7--z8--z15--z14..z13..z2--z24..z22..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2223,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("b",7em#/12+2ss#,ex#,0); "The Letter B"; + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z30=(x4,0); +z40 = z4 shifted (0,thinstroke); +z25 = 0.5[z30,z40] shifted (0,thinstroke); +z32 = z25 shifted (0,-thinstroke); +z24 = 0.5[z25,z32]; +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss-2o,3h/4); +z21=z20-(curvwid,0); +z23=z22+(0,thinstroke/2); +z26 = z32 shifted (loopgap,0); +z27 = 0.5[z32,z2]; x27 := w-ss; +z28=z27-(1curvwid,0); +z29=(x18,0); +z31=z29+(0,thinstroke); +z33=z22-(0,thinstroke/2); +z34 = z25 shifted (loopgap,0); +z22 = 0.5[z34,z26]; +llserif(1,5,6,7,8)(1); +ulserif(3,9,10,11,12)(1); + +path stemtoploop; stemtoploop = z33{right}..{up}z20{up}..{left}z18{left}..z40--z11--z10..z9..z3--z1..z5..z6--z7--z29; +path stembotloop; stembotloop = +z30..{right}z29{right}..{up}z27{up}..{left}z34--z33; +path topinncirc; topinncirc = z25{right}..{right}z23..{up}z21{up}..{left}z19{left}..{left}z4--z25..cycle; +path botinncirc; botinncirc = z2..{right}z31{right}..{up}z28{up}..z33{left}..{left}z32--cycle; + +fill stembotloop & stemtoploop..cycle; +unfill topinncirc; +unfill botinncirc; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("r",8em#/12+2ss#,ex#,0); "The Letter R"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z19 = z4 shifted (loopgap,0); +z18 = z19 shifted (0,thinstroke); +z20=(w-ss-thickstroke,3h/4); +z21=z20-(curvwid,0); +z22 = z24 shifted (loopgap,0); +z23 = z22 shifted (0,thinstroke); +z30=(x4,0); +z24=0.5[z30,z17]; x24 := x4; +z25=z24+(0,thinstroke); +z26=(w-thickstroke-lserw/2,0); +z27=z26+(lserw+lserstep,0); +z28=z27+(0,lserstep); +z29=z28-(lserstep,0); +z32=z22+(thickstroke,0); +z31=(1/thickstroke)[z32,z4]; +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6--z7--z8--z15--z14..z13..z2--z24--z22---z26--z27--z28--z29--z32..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +lowr := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("m",3em#/4+2ss#,ex#,0); "The Letter M"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thinstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thinstroke,0); +z5 = (w/2-thickstroke/3,0); +z6 = (w-ss-lserw,lserh); +z7 = z6 shifted (-thickstroke,0); +z8 = (w-ss-userw,h-userh); +z9 = z8 shifted (-thickstroke,0); +z14 = z13 shifted (-2thickstroke/3,0); +z23 = 0.22[z5,z9]; +z28 = 0.15[z23,z29]; +z29=z27+(1curvwid/2,0); + +urserif(8,10,11,12,13)(1); +lrserif(6,15,16,17,18)(1); +llserif(7,19,20,21,22)(1); +ulserif(3,24,25,26,27)(1); +llserif(1,30,31,32,33)(2); +lrserif(2,34,35,36,37)(2); + +fill z5--z9--z7..z19..z20--z21--z17--z16..z15..z6--z8..z10..z11--z12--z14--z28--z29--z26--z25..z24..z3--z1..z30..z31--z32--z36--z35..z34..z2--z4--z5--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("u",7em#/12+2ss#,ex#,0); "The Letter U"; + +z1=(ss+userw,h-userh); +z2=z1+(thickstroke,0); +z3=z1-(0,2h/3); +z4=z3+(thickstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5 shifted (-thinstroke,0); +z7=z5-(0,2h/3); +z8=z7-(thinstroke,0); +z9=(w/2,0); +z10=z9+(0,.5thickstroke); + +ulserif(1,11,12,13,14)(1); +urserif(2,15,16,17,18)(1); +ulserif(6,19,20,21,22)(1); +urserif(5,23,24,25,26)(1); + +fill +z3..{right}z9{right}..z7---z5..z23..z24--z25--z21--z20..z19..z6--z8..{left}z10{left}..z4--z2..z15..z16--z17--z13--z12..z11..z1---z3---cycle; + +lowu := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("v",4em#/6+2ss#,ex#,0); "The Letter V"; + +z1=(ss+userw,h-userh); +z2=z1+(slantwid,0); +z3=z1-(0,2h/3); +z4=z3+(thickstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5-(thinstroke,0); +z7=z5-(0,2h/3); +z8=z7-(thinstroke,0); +z9=(w/2,0); +z30=0.25[z9,z5]; +z31 = z9 shifted (-thinstroke,0); +z10 = 0.30[z31,z6]; + +ulserif(1,11,12,13,14)(1); +urserif(2,15,16,17,18)(1); +ulserif(6,19,20,21,22)(1); +urserif(5,23,24,25,26)(1); + +fill z9--z5..z23..z24--z25--z21--z20..z19..z6--z10--z2..z15..z16--z17--z13--z12--z11..z1--z9--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + + +endchar; + +beginchar("t",4em#/6+2ss#,ex#,0);"The Letter T"; + +z1=(ss+userh,h); +z2=z1-(0,thinstroke); +z3=(w-ss-userh,h); +z4=z3-(0,thinstroke); +z5=(w/2-thickstroke/2,y2); +z6=(w/2+thickstroke/2,y2); +z7=(x5,lserh); +z8=z7+(thickstroke,0); + +llserif(7,9,10,11,12)(1); +lrserif(8,13,14,15,16)(1); +tlsideserif(1,17,18,19,20); +trsideserif(3,21,22,23,24); + +pickup cappen; + +fill z7..z9..z10--z11--z15--z14..z13..z8--z6--z4---{down}z24..z23..tension 2..{up}z22{left}..{left}z21{down}..z3--z1..z17{left}..{left}z18{down}..tension 2..z19..z20{up}---z2--z5--z7--cycle; + +lowt := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +%beginchar("w",2ss#+2thickstroke#+thinstroke#+6userw#+2hair#,ex#,0);"The Letter W"; +beginchar("w",2ss#+5em#/6,ex#,0);"The Letter W"; + +z1 = (ss+userw,h-userh); +z2 = z1 shifted (thickstroke,0); +z3 = 0.5[z2,z6] shifted (-thickstroke/2,0); +z4 = z3 shifted (thickstroke,0); +z5 = (w-ss-userw,h-userh); +z6 = z5 shifted (-thinstroke,0); +z7 = (w/3+thinstroke/2,0); +z8 = (2w/3+thinstroke/2,0); +z33=(w/2,3h/4); +z34=z8+(.4thinstroke,2.0thickstroke); +z35=z7+(0.4thinstroke,2.0thickstroke); +z36=0.96[z8,z3]; + +ulserif(1,9,10,11,12)(1); +urserif(2,13,14,15,16)(1); +ulserif(3,17,18,19,20)(1); +urserif(4,21,22,23,24)(1); +ulserif(6,25,26,27,28)(1); +urserif(5,29,30,31,32)(1); + +fill z8--z5..z29..z30--z31--z27--z26..z25..z6--z34--z4..z21..z22--z23--z19--z18..z17..z3--z35--z2..z13..z14--z15--z11--z10..z9..z1--z7--z33--z8--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("n",7em#/12+2ss#,ex#,0); "The Letter N"; + +z1 = (ss+userw,h-userh); +z2=z1+(thinstroke,-0.3thickstroke); +z3 = (ss+lserw,lserh); +z4=z3+(thinstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5-(thinstroke,0); +z7=(w-ss-userw,-o); +z28=z7+(-thinstroke,2thickstroke); +z29=z27+(thickstroke/2,0); + +llserif(3,8,9,10,11)(1); +lrserif(4,12,13,14,15)(1); +ulserif(6,16,17,18,19)(1); +urserif(5,20,21,22,23)(1); +ulserif(1,24,25,26,27)(1); + +fill z7--z5..z20..z21--z22--z18--z17..z16..z6--z28--z29--z27--z26--z25..z24..z1--z3..z8..z9--z10--z14--z13..z12..z4--z2--z7--cycle; + +lown := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("c",8em#/12+ss#,ex#,0); "The Letter C"; + +z1=(w-ss-0.5userh,h-0.5userh); +z2=z1-(0,thickstroke); +z3=(w-ss-0.5userh,0.5userh); +z4=z3+(0,thickstroke); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2+o); +z10=z9+(curvwid,0); +ctsideserif(1,11,12,13,14,2)(1); +ctsideserif(4,15,16,17,18,3)(2); + +pickup cappen; +path cbody; cbody=z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path cinbody; cinbody=z2..z6..z10..z8..z4; + +fill cinbody & botserif & cbody & topserif & cycle; + +lowc := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("g",2em#/3+2ss#,ex#,0); "The Letter G"; + +z1=(w-ss-userw-thickstroke/2,h-0.5userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userw,2userh); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2); +z10=z9+(curvwid,0); +z4=z3-(thickstroke,0); +z11=(x3,h/2-userh); +z12=z11-(thickstroke,0); + +ulserif(12,15,16,17,18)(1); +urserif(11,19,20,21,22)(1); +ctsideserif(1,23,24,25,26,2)(1); + +path gbody; gbody = +z17--z21--z20..z19..z11--z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path ginbody; ginbody = z2..{left}z6{left}..{down}z10{down}..{right}z8{right}..z4--z12..z15..z16--z17; + +fill gbody & topserif & ginbody & cycle; + +lowg := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("l",7em#/12+2ss#,ex#,0); "The Letter L"; + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +upsideserif(6,7,29); + +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +fill z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle; + +lowl := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("e",7em#/12+2ss#,ex#,0); "The Letter E"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+lserw,h-lserh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(w/2,y16); +z22=(w/2,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); + +draw z21--z24; + +llserif(1,12,13,14,26)(1); +ulserif(3,18,19,20,28)(1); + +fill +z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle; + +lowe := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("f",7em#/12+2ss#,ex#,0); "The Letter F"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,lserh); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(w/2,y16); +z22=(w/2,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); + +draw z21--z24; + +llserif(1,12,13,14,26)(1); +lrserif(5,31,32,33,34)(1); +ulserif(3,18,19,20,28)(1); + +fill z5--z17--z22..z25..z27--z24..z23..z21--z16--z4--z9..z11..z10--z8--z20--z19..z18..z3--z1..z12..z13--z14--z33--z32..z31..z5..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("k",7em#/12+2ss#,ex#,0); "The Letter K"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z17=z3 shifted (thickstrike,0); +z22=z2 shifted (0,h/2+thinstroke-lserh); +z23=z2 shifted (0,h/2-lserh); +z24=(w-userw-ss,h); +z25=z24 shifted (-thinstroke/2-thinstroke,-userh); +z30=z25 shifted (thinstroke,0); +z35=0.08[z23,z30]; +z46=0.34[z23,z30]; +z37 = (w-ss-lserw,lserh); +z36 = z37 shifted (-thickstroke,0); + +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); +urserif(4,18,19,20,21)(1); +ulserif(25,26,27,28,29)(1); +urserif(30,31,32,33,34)(1); +lrserif(37,38,39,40,41)(1); +llserif(36,42,43,44,45)(1); + +fill +z1..z5..z6--z7--z16--z15--z14..z13..z2--z23--z35--z36..z42..z43--z44--z40--z39..z38..z37--z46--z23--z30..z31..z32--z33--z28--z27..z26..z25--z22--z4..z18..z19--z20--z21--z11--z10..z9..z3--z1--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("y",7em#/12+2ss#,ex#,0); "The Letter Y"; + +z0 = (w/2-thickstroke/2,h/2); +z1 = (w/2+thickstroke/2,h/2); +z2 = (ss+userw,h-userh); +z3 = z2 shifted (thickstroke,0); +z4 = (w-ss-userw,h-userh); +z5 = z4 shifted (-thinstroke,0); +z6 = (w/2-thickstroke/2,lserh); +z7 = (w/2+thickstroke/2,lserh); +z8 = 0.8[z0,z1] shifted (0,lserh/2); + +lrserif(7,14,15,16,17)(1); +llserif(6,10,11,12,13)(1); +ulserif(2,18,19,20,21)(1); +urserif(3,22,23,24,25)(1); +ulserif(5,26,27,28,29)(1); +urserif(4,30,31,32,33)(1); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +fill +z0--z6..z10..z11--z12--z16--z15..z14..z7--z1--z4..z30..z31--z32--z24--z28--z27..z26..z5--z8--z3..z22..z23--z24--z20--z19..z18..z2--z0--cycle; + +lowy := currentpicture; + +endchar; + +beginchar("z",6em#/12+2ss#,ex#,0); "The Letter Z"; + +z0 = (ss+ssslant,h); +z1 = (w-ss,h); +z3 = (ss,0); +z4 = (w-ss-ssslant,0); +z9 = z0 shifted (lserw,-thinstroke); +z10 = z1 shifted (-1.2curvwid,-thinstroke); +z11 = z3 shifted (1.2curvwid,thinstroke); +z12 = z4 shifted (-lserw,thinstroke); + +lftdownsideserif(0,5,6); +upsideserif(4,7,8); + +fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle; + +lowz := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("s",3em#/6+2ss#,ex#,0); "The Letter S"; + +z0 = (w/2,h+o/2); +z1 = (w/2,0-o/2); +z2 = (w-ss-userh-o,h-0.5userh); +z3 = (w-ss,h/4); +z4 = (ss,3h/4); +z5 = (ss+userh,0.5userh+thickstroke); +z14 = z0 shifted (0,-thinstroke); +z15 = z1 shifted (0,thinstroke); +z16 = z4 shifted (curvwid,0); +z17 = z3 shifted (-curvwid,0); +z18 = z2 shifted (0,-thickstroke); +z19 = z11 shifted (0,-2thickstroke); +z20 = z5 shifted (0,-thickstroke); +z21 = z18 shifted (0,-userw/2); +z22 = z21 shifted (userh,0); +z23 = z22 shifted (0,2.5userw); +z24 = z23 shifted (-userh,0); +z25 = (w/2,h/2+1.2thinstroke/2); +z26 = (w/2,h/2-1.2thinstroke/2); + +ctbackserif(5,10,11,12,13,20)(2); + +pickup pencircle scaled 1; + +path outcurves; path incurves; path toprt; +outcurves = z2..tension 1.1..z0..tension + 1.1..z4..z26..z17..z15..tension 1.1..z5; +incurves = z20..tension 1.1..z1..tension + 1.1..z3..z25..z16..z14..tension 1.1..z18; +toprt = z18---z21..tension 2..z22---z23..tension 2..z24---z2; + +fill outcurves & botlftserif & incurves & toprt & cycle; + +lows := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("x",7em#/12+2ss#,ex#,0); "The Letter X"; + +z0 = (w/2,h/2); +z1 = (ss+userw,h-userh); +z2 = (w-ss-userw,h-userh); +z3 = (ss+lserw,lserh); +z4 = (w-ss-lserw,lserh); +z5 = z1 shifted (slantwid,0); +z6 = z4 shifted (-slantwid,0); +z7 = z2 shifted (-thinstroke,0); +z8 = z3 shifted (thinstroke,0); +z41 = ba[z1,z6]; +z41 = bb[z7,z3]; +z42 = bc[z5,z4]; +z42 = bd[z7,z3]; +z43 = be[z8,z2]; +z43 = bf[z6,z1]; +z44 = bg[z8,z2]; +z44 = bh[z5,z4]; + +ulserif(1,9,10,11,12)(1); +urserif(5,13,14,15,16)(1); +ulserif(7,17,18,19,20)(1); +urserif(2,21,22,23,24)(1); +llserif(3,25,26,27,28)(1); +lrserif(8,29,30,31,32)(1); +llserif(6,33,34,35,36)(1); +lrserif(4,37,38,39,40)(1); + +fill z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..z1--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"346",5em#/6+ss#,ex#,0); "The ligature ae"; + +z1=((w/2-(thickstroke/2)),lserh); +z2=((ss_userw+(thickstroke/2)),lserh); +z3=((w/2-(thickstroke/2)),(h-userh)); +z4=((w/2+(thickstroke/2)),(h-thinstroke)); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(0.6w,y16); +z22=(0.6w,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); +z28 = z1 shifted (0,-lserh); +z31 = z3 shifted (0,userh); +z40 = (ss+lserw,lserh); +z41 = z40 shifted (thinstroke,0); +z50 = z31 shifted (0,-1.6thinstroke); +z100 = (0,y15); +z101 = (0,y16); +z102 = (0,y17); +z51 = aba[z50,z41]; +z51 = abb[z16,z101]; +z52 = abc[z50,z41]; +z52 = abd[z17,z102]; + +draw z21--z24; + +pickup pencircle scaled 2; + +llserif(40,42,43,44,45)(1); +lrserif(41,46,47,48,49)(1); + +fill +z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle; +fill z41..z46..z47--z48--z44--z43..z42..z40--z31--z50--cycle; +fill z51--z16--z17--z52--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55); +endchar; + +beginchar(oct"367",5em#/6+ss#,ex#,0); "The ligature oe"; + +z1=((w/2-(thickstroke/2)),lserh); +z2=((ss_userw+(thickstroke/2)),lserh); +z3=((w/2-(thickstroke/2)),(h-userh)); +z4=((w/2+(thickstroke/2)),(h-thinstroke)); +z5=(x4,thinstroke); +z6=(w-o-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(0.6w,y16); +z22=(0.6w,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); +z28 = z1 shifted (0,-lserh); +z31 = z3 shifted (0,userh); +z50 = z31 shifted (0,-1.6thinstroke); +z40 = 0.5[z31,z28]; +z41 = (0,h/2); +z42 = (o,h/2); +z43 = z42 shifted (curvwid,0); +z44 = 0.5[z40,z41] shifted (curvwid/2,h/2+o/2); +z45 = 0.5[z40,z41] shifted (curvwid/2,-(h/2+o/2)); +z46 = z15 shifted (-curvwid,0); +z47 = z44 shifted (0,-thinstroke); +z48 = z45 shifted (0,thinstroke); + +fill +z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle; +fill z44..z15..z45..z42..cycle; +unfill z43..z47..z46..z48..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55); +endchar; + +beginchar(oct"370",4em#/6+2ss#,ex#,0); "The Letter slash o"; + +currentpicture := lowo; + +pickup pencircle scaled thinstroke; +bot lft z0 = (ss,0); +top rt z1 = (w-ss,h); + +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar(oct"376",3em#/6+2ss#,ex#,0); "The Letter thorn"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+lserw,h-lserh); +z4 = z3 shifted (thickstroke,0); +z13=(x4,4h/5); +z14=z13 shifted (0,-thinstroke); +z15=(w-ss,h/2); +z16=z15-(curvwid,0); +z17=(x2,h/5); +z18=z17+(0,thinstroke); +z19=(w/2,h); +z20=z19-(0,thinstroke); +z21=(w/2,0); +z22=z21+(0,thinstroke); +z40 = z13 shifted (thickstroke,0); +z41 = z40 shifted (0,-thinstroke); +z42 = z17 shifted (thickstroke,0); +z43 = z42 shifted (0,thinstroke); + +llserif(1,5,6,7,8)(1); +lrserif(2,30,31,32,33)(1); +ulserif(3,9,10,11,12)(1); +urserif(4,34,35,36,37)(1); + +fill +z1..z5..z6--z7--z32--z31..z30..z2--z17--z42{right}..{up}z15{up}..{left}z40--z13--z4..z34..z35--z36--z11--z10..z9..z3--cycle; +unfill z18--z14--z41{right}..{down}z16{down}..{left}z43--z18--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"255",4em#/6+2ss#,ex#,dep#); "The Letter ng"; + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thickstroke,0); +z2 = z1 shifted (ss+4lserw,0); +z3 = z2 shifted (thickstroke,0); +z20 = (ss+userw,h-userh); +z21 = z20 shifted (thickstroke,0); +z22 = z21 shifted (0,userh); +z23 = z21 shifted (ss+4userw,0); +z24 = z23 shifted (thickstroke,-thinstroke); +z29 = z20 shifted (0,userh); +z30 = z24 shifted (0,userh+thinstroke); +z31 = 0.5[z30,z29] shifted (0,o); +z32 = z31 shifted (0,-thinstroke); +z33 = z28 shifted (0,-userh); +z40 = z2; +z41 = z3; +%z49 = (x40-2userw,-dep); +z49 = (w/2,-dep); +z50 = z49 shifted (0,thinstroke); +z51 = (x8,-dep/3); +z56 = z21 shifted (0,-thinstroke); +z57 = z20 shifted (0,-thinstroke); +z58 = z23 shifted (0,-thinstroke); +z59 = z24 shifted (0,-thinstroke); + +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +ulserif(20,25,26,27,28)(1); +ulftbulb(51,52,53,54,55); + +fill +z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z57{dir +50}..{right}z31{right}..{down}z59--z3{down}..{left}z49{left}..{up}z51..z52..z53..{left}z54{down}..{right}z50{right}..{up}z2--z58..z32..z56--z1..z8..z9--z10--z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59); +endchar; + +beginchar(oct"360",7em#/12+2ss#,ex#,0); "The Letter eth"; + +currentpicture := lowd; + +pickup pencircle scaled thinstroke; +lft z0 = (ss,h/2); +rt z1 = (w/2-ss,h/2); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59); +endchar; + +beginchar(oct"377",em#+2ss#,ex#,0); "The Letter Eszett"; + +currentpicture := lows + lows shifted (em/2+hair,0); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmscdigs.mf b/Master/texmf-dist/fonts/source/public/drm/drmscdigs.mf new file mode 100644 index 00000000000..fa74cd5dfe3 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmscdigs.mf @@ -0,0 +1,265 @@ +% +AMDG This document was begun on 6 Aug 11EX, the Feast of +% the Transfiguration of Our Lord Jesus Christ, and the +% commemorations of St Xystus, PM, and Felicissimus and +% Agapitus, MM, and it is humbly dedicated to them and to +% the Immaculate Heart of Mary for their prayers, and to the +% Sacred Heart of Jesus for His mercy. + +picture six; + +beginchar("1",0.65digwid#+2ss#,ex#,0); "The digit 1"; +italcorr(ex#*slant); + +z0 = (w/2-thickstroke/2,lserhl); +z1 = z0 shifted (thickstroke,0); +z10 = (w/2-thickstroke/2,h-2userh); +z11 = z10 shifted (thickstroke,0); +z12 = z11 shifted (0,2userh+o); +z13 = z12 shifted (-thickstroke,0); +z14 = z10 shifted (-lserwl-o,0); +z15 = z14 shifted (0,thinl); + +llserif(0,2,3,4,5)(1); +lrserif(1,6,7,8,9)(1); + +fill +z0..z2..z3--z4--z8--z7..z6..z1--z12--z13{down}..{left}z15--z14--z10--z0--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("2",0.75digwid#+2ss#,ex#,0); "The digit 2"; +italcorr(ex#*slant); + +z0 = (w/2,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (ss,3h/4); +z3 = z2 shifted (bulbsh,-bulbsh); +z4 = z3 shifted (bulbsh,bulbsh); +z5 = z4 shifted (-bulbsh,bulbsh); +z6 = (w-ss,3h/4); +z7 = z6 shifted (-curvl,0); +z8 = (ss,thickl); +z9 = z8 shifted (1.5thinl,0); +z10 = (ss,0); +z11 = (w-ss,0); +z12 = z11 shifted (0,thickl); +z13 = z12 shifted (0,thinl); +z14 = z13 shifted (-thinl/2,0); +z15 = z12 shifted (-thinl/2,0); + +fill +z5{right}..{down}z4{down}..{left}z3{left}..{up}z2{up}..{right}z0{right}..{down}z6{down}..{down}z9--z15--z14--z13--z11--z10--z8{up}..{up}z7{up}..{left}z1{left}..{dir +-120}cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("3",0.75digwid#+2ss#,ex#,0); "The digit 3"; +italcorr(ex#*slant); + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (ss,.75h); +z3 = (ss,.25h); +z4 = z0 shifted (0,-thinstroke); +z5 = z1 shifted (0,thinstroke); +z6 = z8 shifted (-curvwid,0); +z7 = z9 shifted (-curvwid,0); +z8 = (w-ss,3h/4); +z9 = (w-ss,h/4); +z10 = (w/2-2thinstroke,h/2+thinstroke/2); +z11 = z10 shifted (0,-thinstroke); +z20 = z10 shifted (1.5thickstroke,-thinstroke/2); +z21 = z9 shifted (-o/4,0); +z22 = z10 shifted (1.5thickl,0); +z23 = z11 shifted (1.5thickl,0); + +ulftbulb(2,12,13,14,15); +ulftbulb(3,16,17,18,19); + +fill +z2{up}..{right}z0{right}..{down}z8{down}..z20..{left}z11--z10{right}..z20..{down}z9{down}..{left}z1{left}..{up}z3{up}..{right}z16{right}..{down}z17{down}..{left}z18{dir +-60}..{right}z5{right}..{up}z7{up}..{left}z11--z10{right}..{up}z6{up}..{left}z4{left}..{dir +-120}z12{right}..{down}z13{down}..{left}z14{left}..{up}cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("4",0.75digwid#+2ss#,ex#,0); "The digit 4"; +italcorr(ex#*slant); + +z0 = (w-ss-lserwl,h+2o); +z1 = (x0,2h/5); +y2 = y1; x2 = ss; +z3 = z0 shifted (0,-thinstroke); +z4 = z2 shifted (thinstroke,0); +z6 = z1 shifted (-thickstroke,0); +z7 = z0 shifted (-thickstroke,0); +z5 = zca[z3,z4]; +z5 = zcb[z6,z7]; +z8 = z2 shifted (0,-thinstroke); +z9 = z4 shifted (0,-thinstroke); +z10 = z6 shifted (0,-thinstroke); +z11 = z1 shifted (0,-thinstroke); +z12 = z1 shifted (lserwl,0); +z13 = z11 shifted (lserwl,0); +x14 = x10; y14 = lserhl; +z15 = z14 shifted (thickstroke,0); + +llserif(14,16,17,18,19)(1); +lrserif(15,20,21,22,23)(1); + +fill +z14..z16..z17--z18--z22--z21..z20..z15--z11--z13--z12--z1--z0--z2--z8--z10--cycle; +unfill z4--z6--z5--z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("5",0.75digwid#+2ss#,ex#,0); "The digit 5"; +italcorr(ex#*slant); + +z0 = (w-ss-bulbsh,h+o); +z1 = (ss+bulbsh,h+o); +z2 = z0 shifted (0,-thickstroke); +z3 = z1 shifted (0,-thickstroke); +z4 = (w/2,0); +z5 = z4 shifted (0,thinstroke); +z6 = z3 shifted (thinstroke,0); +z7 = (ss+0.6bulbsh,0.55h); +z19 = z7 shifted (thinstroke,0); +z8 = (w-ss,2h/3); +z9 = z7 shifted (thinstroke,thinstroke); +z10 = (w-ss-thickstroke,h/3); +z11 = (ss,h/3); +z16 = z10 shifted (thickstroke,0); +z17 = (w/2,2h/3); +z18 = z17 shifted (0,-thinstroke); +z29 = z2 shifted (0,-thinl); +z20 = z29 shifted (-thinl/2,0); +z21 = z20 shifted (0,thinl); + +ulftbulb(11,12,13,14,15); + +fill +z6--z21--z20--z29--z2--z0--z1--z7--z19..{right}z18{right}..{down}z10{down}..{left}z5{left}..{up}z14{right}..{up}z13..z12..z11{down}..{right}z4{right}..z16{up}..{left}z17{left}..z9--z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("7",0.65digwid#+2ss#,ex#,0); "The digit 7"; +italcorr(ex#*slant); + +z0 = (ss,h+o); +z1 = z0 shifted (0,-thickstroke); +z2 = (w-ss,h+o); +z3 = z2 shifted (0,-thickstroke); +z4 = (w/4,0); +z5 = z4 shifted (thickstroke,0); +z6 = z3 shifted (-1.8thinstroke,0); +z7 = (w/3,0.6h); +z8 = z7 shifted (1.2thinstroke,0); +z9 = z1 shifted (0,-0.7userh); +z10 = z9 shifted (0.5thinstroke,0); +z11 = z10 shifted (0,0.7userh); + +fill z11--z10--z9--z0--z2--z3..z8..z5--z4..z7..z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("8",0.75digwid#+2ss#,ex#,0); "The digit 8"; +italcorr(ex#*slant); + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (ss+bulbsh/2,3h/4); +z3 = (ss,h/4); +z4 = (w-ss-bulbsh/2,3h/4); +z5 = (w-ss,h/4); +z6 = z0 shifted (0,-thinstroke); +z7 = z1 shifted (0,thinstroke); +z8 = z2 shifted (0.8curvwid,0); +z9 = z3 shifted (curvwid,0); +z10 = z5 shifted (-curvwid,0); +z11 = z4 shifted (-0.8curvwid,0); +z12 = (w/2,h/2+thinstroke); +z13 = z12 shifted (0,-thinstroke); + +pickup pencircle scaled 1; + +fill z0..z4..z13--z12..z5..z1..z3..z12--z13..z2..cycle; +unfill z8..z6..z11..z12..cycle; +unfill z7..z10..z13..z9..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("0",0.75digwid#+2ss#,ex#,0); "The digit 0"; +italcorr(ex#*slant); + +z0 = (w/2,h+o); +z1 = (w/2,-o); +z2 = (w-ss,h/2); +z3 = (ss,h/2); +z4 = z0 shifted (0,-thinstroke); +z5 = z1 shifted (0,thinstroke); +z6 = z2 shifted (-curvwid,0); +z7 = z3 shifted (curvwid,0); + +fill z0{right}..{down}z2{down}..{left}z1{left}..{up}z3{up}..{right}cycle; +unfill z4..z6..z5..z7..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("6",0.75digwid#+2ss#,ex#,0); "The digit 6"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (2w/3,h+o); +penpos1(2thinl,180); +z1r = (ss+thinl,2h/3); +penpos2(thickl,180); +z2r = (ss,ex/4); +penpos3(thinl,-90); +z3r = (w/2,0-o); +penpos4(thickl,0); +z4r = (w-ss,ex/4); +penpos5(thinl,90); +z5l = (w/2,ex/2+o); +penpos6(thinl,0); +z6l = z0l; +penpos7(thinl,-90); +z7l = z6l; +penpos8(thinl,180); +z8l = z7l; + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("9",0.75digwid#+2ss#,ex#,0); "The digit 9"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0l = (w/3,0-o); +penpos1(2thinl,180); +z1l = (w-ss-thinl,h/3); +penpos2(thickl,180); +z2l = (w-ss,h-ex/4); +penpos3(thinl,90); +z3r = (w/2,h-ex/2-o); +penpos4(thickl,0); +z4l = (ss,h-ex/4); +penpos5(thinl,-90); +z5l = (w/2,h+o); + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmscligs.mf b/Master/texmf-dist/fonts/source/public/drm/drmscligs.mf new file mode 100644 index 00000000000..d1755a36a53 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmscligs.mf @@ -0,0 +1,125 @@ +% +AMDG This document was begun on 19 August 2007, the Feast of St. John +% Eudes, and it is humbly dedicated to him and to the Immaculate Heart of Mary +% for their prayers, and to the Sacred Heart of Jesus for His mercy. + +ligtable "-" : "-" =: oct"025"; +ligtable oct"025" : "-" =: oct"026"; +ligtable "`" : "`" =: oct"020"; +ligtable "'" : "'" =: oct"021"; +ligtable "?" : "`" =: oct"276"; +ligtable "!" : "`" =: oct"275"; + +ligtable "A" : oct"200" : oct"201" : oct"300" : oct"301" : + oct"302" : oct"303" : oct"304" : oct"305" : "C" kern-0.1u#, + "G" kern-0.1u#,"J" kern-0.1u#, + "O" kern-0.1u#,"Q" kern-0.1u#,"T" kern-0.2u#,"U" kern-0.2u#, + "V" kern-0.2u#,"W" kern-0.2u#,"Y" kern-0.2u#; +ligtable "B" : "G" kern 0.1u#,"O" kern 0.1u#, + "Q" kern 0.1u#,"S" kern 0.1u#; +ligtable "D" : oct"204" : oct"320" : oct"336" : + "C" kern 0.1u#,"G" kern 0.2u#, + "O" kern 0.1u#, "Q" kern 0.2u#,"S" kern 0.1u#, + "H" kern 0.1u#, "M" kern 0.1u#,"P" kern 0.1u#, + "S" kern 0.1u#,"X" kern -0.05u#,"Y" kern -0.05u#, + "V" kern -0.05u#,"W" kern -0.05u#; +ligtable "F" : "A" kern -0.2u#, + "a" kern-0.1u#,"b" kern-0.1u#,"c" kern-0.1u#, + "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.1u#, + "g" kern-0.1u#,"h" kern-0.1u#,"i" kern-0.2u#, + "h" kern-0.1u#,"k" kern-0.1u#,"l" kern-0.1u#, + "m" kern-0.1u#,"n" kern-0.1u#,"o" kern-0.1u#, + "p" kern-0.1u#,"q" kern-0.1u#,"r" kern-0.1u#, + "s" kern-0.1u#,"t" kern-0.1u#,"u" kern-0.1u#, + "v" kern-0.1u#,"w" kern-0.1u#,"x" kern-0.1u#, + "y" kern-0.1u#,"z" kern-0.1u#; +ligtable "G" : oct"207" : "A" kern -0.1u#,"B" kern -0.1u#, + "D" kern -0.1u#, "E" kern -0.1u#, "F" kern -0.1u#, + "H" kern -0.1u#, "I" kern -0.1u#, "J" kern -0.1u#, + "K" kern -0.1u#, "L" kern -0.1u#, "M" kern -0.1u#, + "N" kern -0.1u#, "P" kern -0.1u#, "R" kern -0.1u#, + "T" kern -0.1u#, "U" kern -0.1u#, "V" kern -0.1u#, + "W" kern -0.1u#,"X" kern -0.1u#,"Y" kern -0.1u#; +ligtable "K" : "C" kern -0.1u#,"G" kern -0.1u#, + "O" kern -0.1u#,"Q" kern -0.1u#; +ligtable "O" : oct"216" : oct"322" : oct"323" : oct"324" : + oct"325" : oct"326" : "A" kern -0.05u#,"C" kern 0.1u#, + "G" kern 0.1u#,"O" kern 0.1u#,"Q" kern 0.1u#, + "S" kern 0.1u#,"V" kern -0.05u#,"W" kern -0.05u#, + "X" kern -0.05u#,"Y" kern -0.05u#; +ligtable "P" : "A" kern -0.1u#; +ligtable "Q" : "A" kern -0.05u#,"C" kern 0.1u#, + "G" kern 0.1u#,"O" kern 0.1u#,"Q" kern 0.1u#, + "S" kern 0.1u#,"V" kern -0.05u#,"W" kern -0.05u#, + "X" kern -0.05u#,"Y" kern -0.05u#; +ligtable "S" : oct"221" : oct"222" : oct"223" : + "A" kern -0.1u#; +ligtable "T" : oct"224" : oct"225" : "A" kern -0.1u#, + "h" kern -0.2u#, + "a" kern-0.2u#,"b" kern-0.2u#,"c" kern-0.2u#, + "d" kern-0.2u#,"e" kern-0.2u#,"f" kern-0.2u#, + "g" kern-0.2u#,"h" kern-0.2u#,"i" kern-0.2u#, + "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#, + "m" kern-0.2u#,"n" kern-0.2u#,"o" kern-0.2u#, + "p" kern-0.2u#,"q" kern-0.2u#,"r" kern-0.2u#, + "s" kern-0.2u#,"t" kern-0.2u#,"u" kern-0.2u#, + "v" kern-0.2u#,"w" kern-0.2u#,"x" kern-0.2u#, + "y" kern-0.2u#,"z" kern-0.2u#; +ligtable "U" : oct"226" : oct"227" : oct"331" : oct"332" : + oct"333" : oct"334" : "A" kern -0.05u#; +ligtable "V" : "A" kern -0.2u#,"C" kern -0.05u#, + "G" kern -0.05u#,"O" kern -0.05u#,"Q" kern -0.05u#; +ligtable "W" : "A" kern -0.2u#,"C" kern -0.05u#, + "G" kern -0.05u#,"O" kern -0.05u#,"Q" kern -0.05u#, + "a" kern -0.3u#; +ligtable "X" : "C" kern -0.05u#,"G" kern -0.05u#, + "O" kern -0.05u#,"Q" kern -0.05u#; +ligtable "Y" : oct"230" : oct"335" : "A" kern -0.2u#, + "C" kern -0.05u#,"G" kern -0.05u#,"O" kern -0.05u#, + "Q" kern -0.05u#; +ligtable "a" : oct"240" : oct"241" : oct"340" : oct"341" : + oct"342" : oct"343" : oct"344" : oct"345" : "c" kern-0.1u#, + "g" kern-0.1u#,"j" kern-0.1u#,"o" kern-0.1u#,"q" kern-0.1u#, + "t" kern-0.2u#,"u" kern-0.2u#,"y" kern-0.2u#, + "v" kern-0.2u#,"w" kern-0.1u#,"r" kern-0.1u#; +ligtable "b" : "g" kern 0.1u#,"o" kern 0.1u#, + "Q" kern 0.1u#,"S" kern 0.1u#; +ligtable "c" : oct"242" : oct"243" : "v" kern -0.10u#, + oct"347" : "w" kern -0.10u#, "y" kern -0.10u#; +ligtable "d" : oct"244" : oct"360" : "c" kern 0.1u#,"g" kern 0.2u#, + "o" kern 0.1u#, "q" kern 0.2u#,"s" kern 0.1u#, + "h" kern 0.1u#, "m" kern 0.1u#,"p" kern 0.1u#, + "s" kern 0.1u#,"x" kern -0.05u#,"y" kern -0.05u#, + "v" kern -0.05u#,"w" kern -0.05u#; +ligtable "f" : "a" kern -0.2u#; +ligtable "g" : oct"247" : "a" kern -0.1u#,"b" kern -0.1u#, + "d" kern -0.1u#, "e" kern -0.1u#, "f" kern -0.1u#, + "h" kern -0.1u#, "i" kern -0.1u#, "j" kern -0.1u#, + "k" kern -0.1u#, "l" kern -0.1u#, "m" kern -0.1u#, + "n" kern -0.1u#, "p" kern -0.1u#, "r" kern -0.1u#, + "t" kern -0.1u#, "u" kern -0.1u#, "v" kern -0.1u#, + "w" kern -0.1u#,"x" kern -0.1u#,"y" kern -0.1u#; +ligtable "h" : "C" kern -0.1u#,"G" kern -0.1u#, + "O" kern -0.1u#,"Q" kern -0.1u#; +ligtable "o" : oct"256" : oct"362" : oct"363" : oct"364" : + oct"365" : oct"366" : "a" kern -0.05u#,"c" kern 0.1u#, + "g" kern 0.1u#,"o" kern 0.1u#,"q" kern 0.1u#, + "s" kern 0.1u#,"v" kern -0.05u#,"w" kern -0.05u#, + "x" kern -0.05u#,"y" kern -0.05u#; +ligtable "p" : "A" kern -0.1u#; +ligtable "q" : "a" kern -0.05u#,"c" kern 0.1u#, + "g" kern 0.1u#,"o" kern 0.1u#,"q" kern 0.1u#, + "s" kern 0.1u#,"v" kern -0.05u#,"w" kern -0.05u#, + "x" kern -0.05u#,"y" kern -0.05u#; +ligtable "r" : oct"257" : "n" kern -0.1u#,"t" kern -0.1u#; +ligtable "s" : oct"261" : oct"262" : oct"263" : "a" kern -0.1u#; +ligtable "t" : "a" kern -0.2u#; +ligtable "u" : "a" kern -0.05u#; +ligtable "v" : "a" kern -0.2u#,"c" kern -0.05u#, + "g" kern -0.05u#,"o" kern -0.05u#,"q" kern -0.05u#; +ligtable "w" : "a" kern -0.2u#,"c" kern -0.05u#, + "g" kern -0.05u#,"o" kern -0.05u#,"q" kern -0.05u#; +ligtable "x" : "c" kern -0.05u#,"g" kern -0.05u#, + "o" kern -0.05u#,"q" kern -0.05u#; +ligtable "y" : oct"270" : oct"375" : "a" kern -0.2u#, + "c" kern -0.05u#,"g" kern -0.05u#,"o" kern -0.05u#, + "q" kern -0.05u#; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl10.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl10.mf new file mode 100644 index 00000000000..14f94a04995 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl10.mf @@ -0,0 +1,75 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant := 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl11.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl11.mf new file mode 100644 index 00000000000..527ca972141 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl11.mf @@ -0,0 +1,75 @@ +% +AMDG + +font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=9pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.3pt#; +slantwid#=1.3pt#; +thickstroke#=1.1pt#; +loopgap#=1.1pt#; +thinstroke#=0.5pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl12.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl12.mf new file mode 100644 index 00000000000..f36d8767443 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl12.mf @@ -0,0 +1,75 @@ +% +AMDG + +font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=10pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.4pt#; +slantwid#=1.4pt#; +thickstroke#=1.2pt#; +loopgap#=1.2pt#; +thinstroke#=0.5pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl14.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl14.mf new file mode 100644 index 00000000000..ade02c586c3 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl14.mf @@ -0,0 +1,75 @@ +% +AMDG + +font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=12pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.6pt#; +slantwid#=1.6pt#; +thickstroke#=1.4pt#; +loopgap#=1.4pt#; +thinstroke#=0.6pt#; +o#=0.4thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl17.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl17.mf new file mode 100644 index 00000000000..7c5503e4d0f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl17.mf @@ -0,0 +1,75 @@ +% +AMDG + +font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=15pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.9pt#; +slantwid#=1.9pt#; +thickstroke#=1.7pt#; +loopgap#=1.7pt#; +thinstroke#=0.8pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl24.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl24.mf new file mode 100644 index 00000000000..da8c8250592 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl24.mf @@ -0,0 +1,75 @@ +% +AMDG + +font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=21pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=2.4pt#; +slantwid#=2.4pt#; +thickstroke#=2.2pt#; +loopgap#=1.7pt#; +thinstroke#=1.2pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl6.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl6.mf new file mode 100644 index 00000000000..ba4de40bc31 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl6.mf @@ -0,0 +1,75 @@ +% +AMDG + +font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1"; +pixels_per_inch:=2400; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=4pt#; +u#=2cap#/3; +em#=1.2cap#; +ex#=0.8cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.09u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.6pt#; +slantwid#=0.6pt#; +thickstroke#=0.6pt#; +loopgap#=0.6pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/16; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl7.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl7.mf new file mode 100644 index 00000000000..0a0a24ebf9d --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl7.mf @@ -0,0 +1,75 @@ +% +AMDG + +font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=5pt#; +u#=2cap#/3; +em#=1.2cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.4pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.07u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.7pt#; +slantwid#=0.7pt#; +thickstroke#=0.7pt#; +loopgap#=0.7pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl8.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl8.mf new file mode 100644 index 00000000000..cbb6e2c1f50 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl8.mf @@ -0,0 +1,75 @@ +% +AMDG + +font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=6pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.9pt#; +slantwid#=0.9pt#; +thickstroke#=0.8pt#; +loopgap#=0.8pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsl9.mf b/Master/texmf-dist/fonts/source/public/drm/drmsl9.mf new file mode 100644 index 00000000000..e717c6f630e --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsl9.mf @@ -0,0 +1,75 @@ +% +AMDG + +font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=7pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.3pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.0pt#; +slantwid#=1.0pt#; +thickstroke#=0.9pt#; +loopgap#=0.9pt#; +thinstroke#=0.3pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; + +input drmligs +input drmcap.mf +input drmlowmac.mf +input drmlow.mf +input drmpunct.mf +input drmacc.mf +input drmacclet.mf +input drmdigs.mf +input oldstynums.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsy10.mf b/Master/texmf-dist/fonts/source/public/drm/drmsy10.mf new file mode 100644 index 00000000000..8510c178c43 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsy10.mf @@ -0,0 +1,72 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme:="OMS"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant := 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=thinstroke#/2; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmlowmac.mf +input mathoms.mf +input drmmathfrac.mf +input drmmathheb.mf +currenttransform:=identity slanted slant yscaled aspect_ratio scaled granularity; +input drmmathcal.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym10.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym10.mf new file mode 100644 index 00000000000..f50bfd30586 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym10.mf @@ -0,0 +1,74 @@ +% +AMDG + +font_identifier:="drmsym"; font_size:=10pt#; font_coding_scheme "TS1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +font_slant 0u#; +slant = 0; +font_normal_space 1u#; +font_normal_stretch 1u#; +font_normal_shrink 1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 2u#; +thinwid# = 0.4pt#; +define_pixels(thinwid); + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmlowmac.mf +input symbols.mf +input drmacc.mf +input oldstynums.mf +input oldstyfracs.mf +input drmdigs.mf +input drmromannums.mf; +input ornaments.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym11.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym11.mf new file mode 100644 index 00000000000..d522bd90870 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym11.mf @@ -0,0 +1,74 @@ +% +AMDG + +font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "TS1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=9pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.3pt#; +slantwid#=1.3pt#; +thickstroke#=1.1pt#; +loopgap#=1.1pt#; +thinstroke#=0.5pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); +thinwid# = 0.4pt#; +define_pixels(thinwid); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmlowmac.mf +input symbols.mf +input drmacc.mf +input oldstynums.mf +input oldstyfracs.mf +input drmdigs.mf +input drmromannums.mf; +input ornaments.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym12.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym12.mf new file mode 100644 index 00000000000..c90912da586 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym12.mf @@ -0,0 +1,74 @@ +% +AMDG + +font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "TS1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=10pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.4pt#; +slantwid#=1.4pt#; +thickstroke#=1.2pt#; +loopgap#=1.2pt#; +thinstroke#=0.5pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); +thinwid# = 0.4pt#; +define_pixels(thinwid); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmlowmac.mf +input symbols.mf +input drmacc.mf +input oldstynums.mf +input oldstyfracs.mf +input drmdigs.mf +input drmromannums.mf; +input ornaments.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym14.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym14.mf new file mode 100644 index 00000000000..20c1d10df5b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym14.mf @@ -0,0 +1,74 @@ +% +AMDG + +font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "TS1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=12pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.6pt#; +slantwid#=1.6pt#; +thickstroke#=1.4pt#; +loopgap#=1.4pt#; +thinstroke#=0.6pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); +thinwid# = 0.4pt#; +define_pixels(thinwid); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmlowmac.mf +input symbols.mf +input drmacc.mf +input oldstynums.mf +input oldstyfracs.mf +input drmdigs.mf +input drmromannums.mf; +input ornaments.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym17.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym17.mf new file mode 100644 index 00000000000..d64076a5043 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym17.mf @@ -0,0 +1,74 @@ +% +AMDG + +font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "TS1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=15pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.9pt#; +slantwid#=1.9pt#; +thickstroke#=1.7pt#; +loopgap#=1.7pt#; +thinstroke#=0.8pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); +thinwid# = 0.4pt#; +define_pixels(thinwid); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmlowmac.mf +input symbols.mf +input drmacc.mf +input oldstynums.mf +input oldstyfracs.mf +input drmdigs.mf +input drmromannums.mf; +input ornaments.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym24.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym24.mf new file mode 100644 index 00000000000..d26f25c5a22 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym24.mf @@ -0,0 +1,74 @@ +% +AMDG + +font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "TS1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=21pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=2.4pt#; +slantwid#=2.4pt#; +thickstroke#=2.2pt#; +loopgap#=1.7pt#; +thinstroke#=1.2pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); +thinwid# = 0.4pt#; +define_pixels(thinwid); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmlowmac.mf +input symbols.mf +input drmacc.mf +input oldstynums.mf +input oldstyfracs.mf +input drmdigs.mf +input drmromannums.mf; +input ornaments.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym6.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym6.mf new file mode 100644 index 00000000000..e9276d01075 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym6.mf @@ -0,0 +1,74 @@ +% +AMDG + +font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "TS1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=4pt#; +u#=2cap#/3; +em#=1.4cap#; +ex#=0.8cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.09u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.6pt#; +slantwid#=0.6pt#; +thickstroke#=0.6pt#; +loopgap#=0.6pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/16; +theight#=8asch#/8; +define_pixels(theight); +thinwid# = 0.4pt#; +define_pixels(thinwid); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmlowmac.mf +input symbols.mf +input drmacc.mf +input oldstynums.mf +input oldstyfracs.mf +input drmdigs.mf +input drmromannums.mf; +input ornaments.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym7.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym7.mf new file mode 100644 index 00000000000..814af98e7eb --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym7.mf @@ -0,0 +1,74 @@ +% +AMDG + +font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "TS1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=5pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.7pt#; +slantwid#=0.7pt#; +thickstroke#=0.7pt#; +loopgap#=0.7pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/8; +theight#=8asch#/8; +define_pixels(theight); +thinwid# = 0.4pt#; +define_pixels(thinwid); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmlowmac.mf +input symbols.mf +input drmacc.mf +input oldstynums.mf +input oldstyfracs.mf +input drmdigs.mf +input drmromannums.mf; +input ornaments.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym8.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym8.mf new file mode 100644 index 00000000000..1735510b800 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym8.mf @@ -0,0 +1,74 @@ +% +AMDG + +font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "TS1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=6pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.9pt#; +slantwid#=0.9pt#; +thickstroke#=0.8pt#; +loopgap#=0.8pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); +thinwid# = 0.4pt#; +define_pixels(thinwid); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmlowmac.mf +input symbols.mf +input drmacc.mf +input oldstynums.mf +input oldstyfracs.mf +input drmdigs.mf +input drmromannums.mf; +input ornaments.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmsym9.mf b/Master/texmf-dist/fonts/source/public/drm/drmsym9.mf new file mode 100644 index 00000000000..73175bf1f83 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmsym9.mf @@ -0,0 +1,74 @@ +% +AMDG + +font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "TS1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=7pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +exw# = ex#; define_pixels(exw); +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.0pt#; +slantwid#=0.9pt#; +thickstroke#=0.9pt#; +loopgap#=0.9pt#; +thinstroke#=0.4pt#; +o#=0.1pt#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); +thinwid# = 0.4pt#; +define_pixels(thinwid); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmlowmac.mf +input symbols.mf +input drmacc.mf +input oldstynums.mf +input oldstyfracs.mf +input drmdigs.mf +input drmromannums.mf; +input ornaments.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtc10.mf b/Master/texmf-dist/fonts/source/public/drm/drmtc10.mf new file mode 100644 index 00000000000..7758139276c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtc10.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drmsc"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.3pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 1u#; +font_normal_stretch 1u#; +font_normal_shrink 1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 2u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.0pt#; +slantwid#=1.0pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmtcap.mf +input drmpunct.mf +input drmacc.mf +input drmtcacclet.mf +input drmtcdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtc11.mf b/Master/texmf-dist/fonts/source/public/drm/drmtc11.mf new file mode 100644 index 00000000000..e9719b41112 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtc11.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=9pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.3pt#; +slantwid#=1.3pt#; +thickstroke#=1.1pt#; +loopgap#=1.1pt#; +thinstroke#=0.5pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmtcap.mf +input drmpunct.mf +input drmacc.mf +input drmtcacclet.mf +input drmtcdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtc12.mf b/Master/texmf-dist/fonts/source/public/drm/drmtc12.mf new file mode 100644 index 00000000000..80e516dad50 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtc12.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=10pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.4pt#; +slantwid#=1.4pt#; +thickstroke#=1.2pt#; +loopgap#=1.2pt#; +thinstroke#=0.5pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmtcap.mf +input drmpunct.mf +input drmacc.mf +input drmtcacclet.mf +input drmtcdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtc14.mf b/Master/texmf-dist/fonts/source/public/drm/drmtc14.mf new file mode 100644 index 00000000000..7b89819392c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtc14.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=12pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.6pt#; +slantwid#=1.6pt#; +thickstroke#=1.4pt#; +loopgap#=1.4pt#; +thinstroke#=0.6pt#; +o#=0.4thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmtcap.mf +input drmpunct.mf +input drmacc.mf +input drmtcacclet.mf +input drmtcdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtc17.mf b/Master/texmf-dist/fonts/source/public/drm/drmtc17.mf new file mode 100644 index 00000000000..622fee616c3 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtc17.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drmsc"; font_size:=17pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=15pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.9pt#; +slantwid#=1.9pt#; +thickstroke#=1.7pt#; +loopgap#=1.7pt#; +thinstroke#=0.8pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmtcap.mf +input drmpunct.mf +input drmacc.mf +input drmtcacclet.mf +input drmtcdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtc24.mf b/Master/texmf-dist/fonts/source/public/drm/drmtc24.mf new file mode 100644 index 00000000000..272dc924a7f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtc24.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=21pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=2.4pt#; +slantwid#=2.4pt#; +thickstroke#=2.2pt#; +loopgap#=1.7pt#; +thinstroke#=1.2pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmtcap.mf +input drmpunct.mf +input drmacc.mf +input drmtcacclet.mf +input drmtcdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtc6.mf b/Master/texmf-dist/fonts/source/public/drm/drmtc6.mf new file mode 100644 index 00000000000..ed8db1e13a4 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtc6.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1"; +pixels_per_inch:=2400; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=4pt#; +u#=2cap#/3; +em#=1.4cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.4pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.6pt#; +slantwid#=0.6pt#; +thickstroke#=0.6pt#; +loopgap#=0.6pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/16; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmtcap.mf +input drmpunct.mf +input drmacc.mf +input drmtcacclet.mf +input drmtcdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtc7.mf b/Master/texmf-dist/fonts/source/public/drm/drmtc7.mf new file mode 100644 index 00000000000..f88b8982926 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtc7.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=5pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.4pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.7pt#; +slantwid#=0.7pt#; +thickstroke#=0.7pt#; +loopgap#=0.7pt#; +thinstroke#=0.3pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmtcap.mf +input drmpunct.mf +input drmacc.mf +input drmtcacclet.mf +input drmtcdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtc8.mf b/Master/texmf-dist/fonts/source/public/drm/drmtc8.mf new file mode 100644 index 00000000000..1b247f60c9f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtc8.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=6pt#; +u#=5cap#/6; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.3pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.9pt#; +slantwid#=0.9pt#; +thickstroke#=0.8pt#; +loopgap#=0.8pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmtcap.mf +input drmpunct.mf +input drmacc.mf +input drmtcacclet.mf +input drmtcdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtc9.mf b/Master/texmf-dist/fonts/source/public/drm/drmtc9.mf new file mode 100644 index 00000000000..e8c8b13e7e0 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtc9.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=7pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.3pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 0; +font_slant 0u#; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.0pt#; +slantwid#=1.0pt#; +thickstroke#=0.9pt#; +loopgap#=0.9pt#; +thinstroke#=0.3pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmscligs +input drmcap.mf +input drmlowmac.mf +input drmtcap.mf +input drmpunct.mf +input drmacc.mf +input drmtcacclet.mf +input drmtcdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtcacclet.mf b/Master/texmf-dist/fonts/source/public/drm/drmtcacclet.mf new file mode 100644 index 00000000000..aaf08062b59 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtcacclet.mf @@ -0,0 +1,685 @@ +% +AMDG This document was begun on 1E May 11EX, and it is +% humbly dedicated to the Immaculate Heart of Mary for her +% prayers, and to the Sacred Heart of Jesus for His mercy. + +beginchar(oct"350",7em#/12+2ss#,1.2ex#,0); "The letter egrave"; + +currentpicture := lowe + grave shifted + (w/2-pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"351",7em#/12+2ss#,1.2ex#,0); "The letter eacute"; + +currentpicture := lowe + acute shifted + (w/2-pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"354",0.28em#+2ss#,1.2ex#,0); "the letter igrave"; +currentpicture := dotlessi + grave shifted + (w/2-pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"355",0.28em#+2ss#,1.2ex#,0); "the letter iacute"; +currentpicture := dotlessi + acute shifted + (w/2-pwid,-(cap-ex)+pwid); +endchar; + +beginchar(oct"356",0.28em#+2ss#,1.2ex#,0); "the letter icirc"; +currentpicture := dotlessi + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); +endchar; + +beginchar(oct"357",0.28em#+2ss#,1.2ex#,0); "dotless i with diaresis"; + +currentpicture := dotlessi + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"352",7em#/12+2ss#,1.2ex#,0); "e with circumflex"; + +currentpicture := lowe + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"353",7em#/12+2ss#,1.2ex#,0); "e with diaresis"; + +currentpicture := lowe + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"362",4em#/6+2ss#,1.2ex#,0); "the letter ograve"; + +currentpicture := lowo + grave shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"363",4em#/6+2ss#,1.2ex#,0); "the letter oacute"; + +currentpicture := lowo + acute shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"366",4em#/6+2ss#,1.2ex#,0); "o with diaresis"; + +currentpicture := lowo + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"365",4em#/6+2ss#,1.2ex#,0); "o with tilde"; + +currentpicture := lowo + tilde shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"364",4em#/6+2ss#,1.2ex#,0); "o with circumflex"; + +currentpicture := lowo + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"340",2em#/3+2ss#,1.2ex#,0); "The letter agrave"; + +currentpicture := lowa + grave shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"341",2em#/3+2ss#,1.2ex#,0); "The letter aacute"; + +currentpicture := lowa + acute shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"342",2em#/3+2ss#,1.2ex#,0); "a with circumflex"; + +currentpicture := lowa + circumflex shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"343",2em#/3+2ss#,1.2ex#,0); "a with tilde"; + +currentpicture := lowa + tilde shifted + (w/2-pwid,-(cap-ex)+1.5pwid); + +endchar; + +beginchar(oct"344",2em#/3+2ss#,1.2ex#,0); "a with diaresis"; + +currentpicture := lowa + diaresis shifted + (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"345",2em#/3+2ss#,1.2ex#,0); "a with ring"; + +currentpicture := lowa; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-1.1pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"267",7em#/12+2ss#,1.2ex#,0); "u with ring"; + +currentpicture := lowu; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-pwid,-(cap-ex)+pwid); + +endchar; + +beginchar(oct"347",ex#+2ss#,1.2ex#,1.5pwid#); "c cedille"; + +currentpicture := lowc + cedille shifted (w-1.7pwid,0); + +endchar; + +beginchar(oct"200",em#+2ss#,cap#,0); "The Letter A, reverse circumflex"; + +currentpicture := capa + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"201",em#+2ss#,cap#,0); "The Letter A, reverse cedilla"; + +currentpicture := capa + revcid shifted (2w/3,0); + +endchar; + +beginchar(oct"202",5em#/6+ss#,cap#,0); "The Letter C with acute accent"; + +currentpicture := capc + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"203",5em#/6+ss#,cap#,0); "The Letter C, reverse circumflex"; + +currentpicture := capc + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"204",5em#/6+2ss#,cap#,0); "The Letter D, reverse circumflex"; + +currentpicture := capd + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"205",5em#/6+2ss#,cap#,0); "The Letter E, reverse circumflex"; + +currentpicture := cape + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"206",5em#/6+2ss#,cap#,0); "The Letter E, reverse cedilla"; + +currentpicture := cape + revcid shifted (2w/3-8o,0); + +endchar; + +beginchar(oct"207",em#+2ss#,cap#,0); "The Letter G, reverse circumflex"; + +currentpicture := capg + invcircum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"210",5em#/6+2ss#,cap#,0); "The Letter L, acute accent"; + +currentpicture := capl + acute shifted (w/2-1.5pwid,pwid); + +endchar; + +beginchar(oct"211",5em#/6+2ss#,cap#,0); "The Letter L, apostrophe accent"; + +currentpicture := capl; +fill commapost shifted (ss+2userw+thickl+o,h-0.5pwid); + +endchar; + +beginchar(oct"212",5em#/6+2ss#,cap#,0); "The Letter slashed L"; + +currentpicture := capl; + +pickup pencircle scaled thinstroke; +lft z0 = (-2hair,h/2); +z2 = (z0--(w,h/2)) intersectionpoint ((ss+userw+thickstroke/2,h)-- + (ss+userw+thickstroke/2,0)); +z1 = 2[z0,z2] shifted (thickstroke,0); +path intline; intline = z0--z1; + +draw intline rotatedaround(z2,30); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"213",5em#/6+2ss#,cap#,0); "The Letter N, with acute accent"; + +currentpicture := capn + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"214",5em#/6+2ss#,cap#,0); "The Letter N, inverted circumflex"; + +currentpicture := capn + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"216",5em#/6+2ss#,cap#,0); "The Letter O, Hungarian diaresis"; + +currentpicture := capo + hungum shifted (w/2-pwid,1.2pwid); + +endchar; + +beginchar(oct"217",5em#/6+2ss#,cap#,0); "The Letter R, acute accent"; + +currentpicture := capr + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"220",5em#/6+2ss#,cap#,0); "The Letter R, inverse circumflex"; + +currentpicture := capr + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"221",(3(em#+2ss#)/4),cap#,0); "The Letter S, acute accent"; + +currentpicture := caps + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"222",(3(em#+2ss#)/4),cap#,0); "The Letter S, inverse circum"; + +currentpicture := caps + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"223",(3(em#+2ss#)/4),cap#,0); "The Letter S, cedilla"; + +currentpicture := caps + cedille shifted (w/2-pwid/2,0); + +endchar; + +beginchar(oct"224",5em#/6+2ss#,cap#,0);"The Letter T, inverse circum"; + +currentpicture := capt + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"225",5em#/6+2ss#,cap#,0);"The Letter T, cedilla"; + +currentpicture := capt + cedille shifted (w/2-pwid/2,0); + +endchar; + +beginchar(oct"226",5em#/6+2ss#,cap#,0); "The Letter U, Hungarian umlaut"; + +currentpicture := capu + hungum shifted (w/2-pwid/2-2o,1.2pwid); + +endchar; + +beginchar(oct"227",5em#/6+2ss#,cap#,0); "The Letter U, ring accent"; + +currentpicture := capu; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"230",5em#/6+2ss#,cap#,0); "The Letter Y, umlaut"; + +currentpicture := capy + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"231",5em#/6+2ss#,cap#,0); "The Letter Z, acute accent"; + +currentpicture := capz + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"232",5em#/6+2ss#,cap#,0); "The Letter Z, inverse circum"; + +currentpicture := capz + invcircum shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"233",5em#/6+2ss#,cap#,0); "The Letter Z, overdot"; + +currentpicture := capz + overdot shifted (w/2-1.5dotwid,pwid); + +endchar; + +beginchar(oct"235",0.38em#+2ss#,cap#,0); "The Letter I, overdot"; + +currentpicture := capi + overdot shifted (w/2-1.5dotwid,pwid); + +endchar; + +beginchar(oct"240",2em#/3+2ss#,1.2ex#,0); "The letter a, inverse circum"; + +currentpicture := lowa + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"241",2em#/3+2ss#,1.2ex#,0); "The letter a, reverse cedilla"; + +currentpicture := lowa + revcid shifted (2w/3,0); + +endchar; + +beginchar(oct"242",8em#/12+2ss#,1.2ex#,0); "c with acute"; + +currentpicture := lowc + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"243",8em#/12+2ss#,1.2ex#,0); "c inverse circum"; + +currentpicture := lowc + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"244",7em#/12+2ss#,asch#,0); "d apostrophe"; + +currentpicture := lowd; +fill commapost shifted (w-0.2pwid-ss,h-(h-ex)-0.5pwid); + +endchar; + +beginchar(oct"245",7em#/12+2ss#,1.2ex#,0); "e, inverse circumflex"; + +currentpicture := lowe + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"246",7em#/12+2ss#,1.2ex#,0); "e, reverse cedilla"; + +currentpicture := lowe + revcid shifted (w/2-0.3pwid,0); + +endchar; + +beginchar(oct"247",2em#/3+2ss#,1.2ex#,dep#); "g, inverse circum"; + +currentpicture := lowg + invcircum shifted (w/2-pwid,-0.3pwid); + +endchar; + +beginchar(oct"250",7em#/12+2ss#,asch#,0); "l, with acute"; + +currentpicture := lowl + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"251",7em#/12+2ss#,asch#,0); "l, with apostrophe"; + +currentpicture := lowl; +fill commapost shifted (w-pwid-ss,h-(h-ex)-0.5pwid); + +endchar; + +beginchar(oct"252",7em#/12+2ss#,1.2ex#,0); "slashed l"; + +currentpicture := lowl; + +pickup pencircle scaled thinl; +z0 = (0,h/2); +z1 = z0 shifted (3thickstroke,0); +z2 = 0.5[z0,z1]; +path crossbar; crossbar = z0--z1; +draw crossbar rotatedaround (z2,30); + +penlabels(0,1,2); +endchar; + +beginchar(oct"253",7em#/12+2ss#,1.2ex#,0); "n, acute accent"; + +currentpicture := lown + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"254",7em#/12+2ss#,1.2ex#,0); "n, inverse circum"; + +currentpicture := lown + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"256",4em#/6+2ss#,1.2ex#,0); "o, Hungarian umlaut"; + +currentpicture := lowo + hungum shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"257",8em#/12+2ss#,1.2ex#,0); "r, with acute accent"; + +currentpicture := lowr + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"260",8em#/12+2ss#,1.2ex#,0); "r, reverse circum"; + +currentpicture := lowr + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"261",3em#/6+2ss#,1.2ex#,0); "s, with acute accent"; + +currentpicture := lows + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"262",3em#/6+2ss#,1.2ex#,0); "s, reverse circum"; + +currentpicture := lows + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"263",3em#/6+2ss#,1.2ex#,0); "s, cedilla"; + +currentpicture := lows + cedille shifted (w/2-pwid/2,0); + +endchar; + +beginchar(oct"264",5em#/6+2ss#,theight#,0); "t, with apostrophe"; + +currentpicture := lowt; +fill commapost shifted (w-0.5pwid-ss,h-(h-ex)-0.5pwid); + +endchar; + +beginchar(oct"265",4em#/6+2ss#,theight#,0); "t, with cedilla"; + +currentpicture := lowt + cedille shifted (w/2-pwid/4,0); + +endchar; + +beginchar(oct"266",7em#/12+2ss#,1.2ex#,0); "u with Hungarian umlaut"; + +currentpicture := lowu + hungum shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"270",7em#/12+2ss#,1.2ex#,dep#); "y, with diaresis"; + +currentpicture := lowy + diaresis shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"271",6em#/12+2ss#,1.2ex#,0); "z, acute accent"; + +currentpicture := lowz + acute shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"272",6em#/12+2ss#,1.2ex#,0); "z, inverse circum"; + +currentpicture := lowz + invcircum shifted (w/2-pwid,-0.5pwid); + +endchar; + +beginchar(oct"273",6em#/12+2ss#,1.2ex#,0); "z, overdot"; + +currentpicture := lowz + overdot shifted (w/2-1.5dotwid,-0.5pwid); + +endchar; + +beginchar(oct"300",em#+2ss#,cap#,0); "A, acute accent"; + +currentpicture := capa + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"301",em#+2ss#,cap#,0); "A, grave accent"; + +currentpicture := capa + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"302",em#+2ss#,cap#,0); "A, circumflex"; + +currentpicture := capa + circumflex shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"303",em#+2ss#,cap#,0); "A, tilde"; + +currentpicture := capa + tilde shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"304",em#+2ss#,cap#,0); "A, diaresis"; + +currentpicture := capa + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"305",em#+2ss#,cap#,0); "A, ring"; + +currentpicture := capa; +pickup pencircle scaled thinl; +draw ringaccent shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"307",5em#/6+2ss#,cap#,0); "C cedille"; + +currentpicture := capc + cedille shifted (w/2-0.5pwid,0); + +endchar; + +beginchar(oct"311",5em#/6+2ss#,cap#,0); "E, acute"; + +currentpicture := cape + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"310",5em#/6+2ss#,cap#,0); "E, grave"; + +currentpicture := cape + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"312",5em#/6+2ss#,cap#,0); "E, circumflex"; + +currentpicture := cape + circumflex shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"313",5em#/6+2ss#,cap#,0); "E, diaresis"; + +currentpicture := cape + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"314",0.38em#+2ss#,cap#,0); "I, acute"; + +currentpicture := capi + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"315",0.38em#+2ss#,cap#,0); "I, grave"; + +currentpicture := capi + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"316",0.38em#+2ss#,cap#,0); "I, circumflex"; + +currentpicture := capi + circumflex shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"317",0.38em#+2ss#,cap#,0); "I, diaresis"; + +currentpicture := capi + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"321",5em#/6+2ss#,cap#,0); "N, tilde"; + +currentpicture := capn + tilde shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"322",5em#/6+2ss#,cap#,0); "O, acute"; + +currentpicture := capo + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"323",5em#/6+2ss#,cap#,0); "O, grave"; + +currentpicture := capo + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"324",5em#/6+2ss#,cap#,0); "O, circumflex"; + +currentpicture := capo + circumflex shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"325",5em#/6+2ss#,cap#,0); "O, tilde"; + +currentpicture := capo + tilde shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"326",5em#/6+2ss#,cap#,0); "O, diaresis"; + +currentpicture := capo + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"331",5em#/6+2ss#,cap#,0); "U, acute"; + +currentpicture := capu + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"332",5em#/6+2ss#,cap#,0); "U, grave"; + +currentpicture := capu + grave shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"333",5em#/6+2ss#,cap#,0); "U, circumflex"; + +currentpicture := capu + circumflex shifted (w/2-pwid,1.5pwid); + +endchar; + +beginchar(oct"334",5em#/6+2ss#,cap#,0); "U, diaresis"; + +currentpicture := capu + diaresis shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"335",5em#/6+2ss#,cap#,0); "Y, acute"; + +currentpicture := capy + acute shifted (w/2-pwid,pwid); + +endchar; + +beginchar(oct"361",7em#/12+2ss#,1.2ex#,0); "n, tilde"; + +currentpicture := lown + tilde shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"371",7em#/12+2ss#,1.2ex#,0); "u, acute"; + +currentpicture := lowu + acute shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"372",7em#/12+2ss#,1.2ex#,0); "u, grave"; + +currentpicture := lowu + grave shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"373",7em#/12+2ss#,1.2ex#,0); "u, circumflex"; + +currentpicture := lowu + circumflex shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"374",7em#/12+2ss#,1.2ex#,0); "u, diaresis"; + +currentpicture := lowu + diaresis shifted (w/2-pwid,0); + +endchar; + +beginchar(oct"375",7em#/12+2ss#,1.2ex#,dep#); "y, acute"; + +currentpicture := lowy + acute shifted (w/2-pwid,0); + +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtcap.mf b/Master/texmf-dist/fonts/source/public/drm/drmtcap.mf new file mode 100644 index 00000000000..2776df83320 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtcap.mf @@ -0,0 +1,1113 @@ +% +AMDG This document was begun on 15 August 2007, the +% Feast of the Assumption of the Blessed Virgin Mary, and it +% is humbly offered to her for her prayers, and to the +% Sacred Heart of Jesus for His mercy. + +picture lowo; +picture lowa; +picture lowl; +picture lowc; +picture lowd; +picture lowe; +picture lowg; +picture lown; +picture lowu; +picture lowr; +picture lows; +picture lowt; +picture lowy; +picture lowz; +picture lowi; +lserw := 0.1u; +userw := 0.1u; + +def ulftbulb(suffix i,j,k,l,m) = +z.j=z.i shifted (bulbsh,bulbsh); +z.k=z.j shifted (bulbsh,-bulbsh); +z.l=z.k shifted (-bulbsh,-bulbsh); +enddef; + +%%%FFF Fix W, M, A from dependence on stroke widths FFF%%% + +%%%% Define Lower Right Serif on Caps %%%% + +def lrserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(lserw/3,-lserc/2); +z.k=z.i+(lserw,-lserc); +z.l=z.k-(0,lserstep); +z.m=z.l-(lserw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(lserw/3,-lserc/2); +z.k=z.i+(lserw+equalize/2,-lserc); +z.l=z.k-(0,lserstep); +z.m=z.l-(lserw+thickstroke/2,0); +fi +enddef; + +%%%% Define Lower Left Serif on Caps %%%% + +def llserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i-(lserw/3,lserc/2); +z.k=z.i-(lserw,lserc); +z.l=z.k-(0,lserstep); +z.m=z.l+(lserw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i-(lserw/3,lserc/2); +z.k=z.i-(lserw+equalize/2,lserc); +z.l=z.k-(0,lserstep); +z.m=z.l+(lserw+thickstroke/2,0); +fi +enddef; + +%%%% Define Upper Right Serif on Caps %%%% + +def urserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(userw/3,lserc/2); +z.k=z.i+(userw,userc); +z.l=z.k+(0,userstep); +z.m=z.l-(userw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(userw/3,lserc/2); +z.k=z.i+(userw+equalize/2,userc); +z.l=z.k+(0,userstep); +z.m=z.l-(userw+thickstroke/2,0); +fi +enddef; + +%%%% Define Upper Left Serif on Caps %%%% + +def ulserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(-userw/3,lserc/2); +z.k=z.i+(-userw,userc); +z.l=z.k+(0,userstep); +z.m=z.l+(userw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(-userw/3,lserc/2); +z.k=z.i+(-(userw+equalize/2),userc); +z.l=z.k+(0,userstep); +z.m=z.l+(userw+thickstroke/2,0); +fi +enddef; + +%%%% Define T Side Serifs on Caps %%%% + +def tlsideserif(suffix i,j,k,l,m) = +z.j=z.i+(0,seriftail); +z.k=z.j-((userh/2),0); +z.l=z.k-(userh/2,1.5userw); +z.m=z.l+(userh/2,0); +enddef; + +def trsideserif(suffix i,j,k,l,m) = +z.j=z.i+(0,seriftail); +z.k=z.j+((userh/2),0); +z.l=z.k+(userh/2,-1.5userw); +z.m=z.l-(userh/2,0); +enddef; + +%%%% Define C Side Serifs on Caps %%%% + +def ctsideserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userw/4); +z.k=z.j+(0.5userh,0); +z.l=z.k-(0,2.5userw); +z.m=z.l-(0.5userh,0); +if topbot = 1: +path topserif; topserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botserif; botserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +def ctbackserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userh/2); +z.k=z.j-(userh,0); +z.l=z.k+(0,-2.7userw); +z.m=z.l+(userh,0); +if topbot = 1: +path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +%%%% Define L, E, Z, and F side serifs on Caps %%%% + +def upsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,2lserw); +z.k=z.j-(lserh,lserw); +enddef; + +def downsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,-2lserw); +z.k=z.j+(-lserh,lserw); +enddef; + +def lftdownsideserif(suffix i,j,k) = +z.j=z.i-(ssslant,2lserw); +z.k=z.j+(lserh,lserw); +enddef; + +beginchar("i",2ss#+thickstroke#+0.2u#,1.2ex#,0); "The Letter I"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +lrserif(2,9,10,11,25)(1); +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +fill z14--z11--z10..z9..z2--z4..z15..z16--z17--z20--z19.. + z18..z3--z1..z12..z13--z14--cycle; + +lowi := currentpicture; +dotlessi := currentpicture; + +penlabels(1,2,3,4,9,10,11,12,13,14,15,16,17,18,19,20,25); + +endchar; + +beginchar("o",4em#/6+2ss#,1.2ex#,0); "The Letter O"; + +z1=(ss,h/2); +z2=(w/2,h+o); +z3=(w-ss,h/2); +z4=(w/2,0-o); +z5=z1 shifted (curvwid,0); +z6=z2 shifted (0,-thinstroke); +z7=z3 shifted (-curvwid,0); +z8=z4 shifted (0,thinstroke); + +fill z4..z3..z2..z1..cycle; +unfill z5..z6..z7..z8..cycle; + +lowo := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); + +endchar; + +beginchar("a",2em#/3+2ss#,1.2ex#,0); "The Letter A"; + +scrossh = 3/4; +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thinstroke,0); +z3 = (w-ss-lserw,lserh); +z4 = z3 shifted (-thickstroke,0); +z5 = (w/2+thickstroke/2,h+o); +z6 = z5 shifted (-thickstroke,0) rotatedaround (z5,30); +lrserif(3,7,8,9,10)(1); +llserif(4,11,12,13,14)(1); +lrserif(2,15,16,17,18)(1); +llserif(1,19,20,21,22)(1); +z23 = scrossh[z6,z1]; +z24 = z23 shifted (thinstroke,0); +z25 = (w,y23); +z26 = letba[z23,z25]; +z26 = letbb[z3,z5]; +z27 = z26 shifted (-thickstroke,0); +z28 = 0.8[z27,z6]; +z29 = 0.2[z27,z28]; +z30 = 0.2[z24,z28]; + +fill z3--z5--z6--z1..z19..z20--z21--z17--z16..z15..z2 + --z24--z27--z4..z11..z12--z13--z9--z8..z7..cycle; +unfill z30--z28--z29--cycle; + +lowa := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36); +endchar; + +beginchar("j",0.28em#+2ss#,1.2ex#,dep#); "The Letter J"; + +z1 = ((w/2-(thickstroke/2)),-lserh); +z2 = ((w/2+(thickstroke/2)),-lserh); +z3 = ((w/2-(thickstroke/2)),(h-userh)); +z4 = ((w/2+(thickstroke/2)),(h-userh)); +z5 = (x3-userw,-dep); +z6 = z5 shifted (0,thinstroke); +z8 = z5 shifted (-userw,dep/2); +z7 = z8 shifted (-thinstroke,0); +z9 = (x8,-dep/4); +z10 = 0.5[z8,z9] shifted (thickstroke/2,0); + +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +fill z9..z7{down}..{right}z5{right}..{up}z2--z4..z15.. + z16--z17--z20--z19..z18..z3--z1{down}..{left}z6{left}.. + {up}z8{down}..{up}z10{up}..z9..cycle; + +dotlessj := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25); +endchar; + +beginchar("q",4em#/6+2ss#,1.2ex#,dep#+thickstroke#/2); "The Letter Q"; + +z1=(ss,h/2); +z2=(w/2,h+o); +z3=(w-ss,h/2); +z4=(w/2,0); +z5=z1+(curvwid,0); +z6=z2-(0,thinstroke); +z7=z3-(curvwid,0); +z8=z4+(0,thinstroke); +z9=z4+(curvwid/2,0); +z10=z4-(curvwid/2,0); +z11=(em+qtailunit+thickstroke,-depth); +z12=(em+2qtailunit,-depth); +z13=z12+(qtailunit,depth/2); +z14=z12+(0,2thickstroke/3); +z15=(em+qtailunit,-depth+thickstroke); + +pickup pencircle; + +path outerring; outerring=z9..z3..z2..z1..z10; +path innerring; innerring=z8..z5..z6..z7..cycle; +path bottomqtail; bottomqtail=z10..tension 1.7..z11{right}..{right}z12..z13; +path topqtail; topqtail=z13..tension 1.5..z14..tension 1.5..z15..z9; + +unfill innerring; +fill outerring & bottomqtail & topqtail..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); + +endchar; + +beginchar("h",2em#/3+2ss#,1.2ex#,0); "The Letter H"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z5 = (w-ss-lserw-thickstroke,lserh); +z6 = z5 shifted (thickstroke,0); +z7 = (w-ss-lserw-thickstroke,h-lserh); +z8 = z7 shifted (thickstroke,0); +z46=(0.5)[z4,z2]; +z47=z46+(0,thinstroke/2); +z48=z46-(0,thinstroke/2); +z49=(0.5)[z7,z5]; +z50=z49+(0,thinstroke/2); +z51=z49-(0,thinstroke/2); +lrserif(2,9,10,11,25)(1); +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); +lrserif(6,30,31,32,33)(1); +llserif(5,34,35,36,37)(1); +urserif(8,38,39,40,41)(1); +ulserif(7,42,43,44,45)(1); + +fill z36--z32--z31..z30..z6--z8..z38..z39--z40--z44-- + z43..z42..z7--z50--z47--z4..z15..z16--z17--z20-- + z19..z18..z3--z1..z12..z13--z14--z11--z10..z9..z2 + --z48--z51--z5..z34..z35--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("d",7em#/12+2ss#,1.2ex#,0); "The Letter D"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z13 = (x4,h); +z14 = (x4,h-thinstroke); +z15 = (w-ss,h/2); +z16 = z15-(curvwid,0); +z17 = (x2,0); +z18 = z17+(0,thinstroke); +z19 = (w/2,h); +z20 = z19-(0,thinstroke); +z21 = (w/2,0); +z22 = z21+(0,thinstroke); +llserif(1,5,6,7,8)(1); +ulserif(3,9,10,11,12)(1); + +fill z17{right}..{right}z21..z15..{left}z19{left}..{left}z13--z11--z10..z9..z3--z1..z5..z6--z7--z17--cycle; +unfill z18{right}..{right}z22..z16..{left}z20{left}..{left}z14--z18--cycle; + +lowd := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("p",7em#/12+2ss#,1.2ex#,0); "The Letter P"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3 + thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss,3h/4); +z21 = z20 shifted (-curvwid,0); +z22=(x18,h/2); +z23=z22+(0,thinstroke); +z30=(x4,0); +z26 = z2 shifted (0,-lserh); +z27 = z4 shifted (0,thinstroke); +z24 = 0.5[z26,z27]; +z25 = z24 shifted (0,thinstroke); +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6-- + z7--z8--z15--z14..z13..z2--z24..z22..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2223,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("b",7em#/12+2ss#,1.2ex#,0); "The Letter B"; + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z30=(x4,0); +z40 = z4 shifted (0,thinstroke); +z25 = 0.5[z30,z40] shifted (0,thinstroke); +z32 = z25 shifted (0,-thinstroke); +z24 = 0.5[z25,z32]; +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss-2o,3h/4); +z21=z20-(curvwid,0); +z23=z22+(0,thinstroke/2); +z26 = z32 shifted (loopgap,0); +z27 = 0.5[z32,z2]; x27 := w-ss; +z28=z27-(1curvwid,0); +z29=(x18,0); +z31=z29+(0,thinstroke); +z33=z22-(0,thinstroke/2); +z34 = z25 shifted (loopgap,0); +z22 = 0.5[z34,z26]; +llserif(1,5,6,7,8)(1); +ulserif(3,9,10,11,12)(1); + +path stemtoploop; stemtoploop = z33{right}..{up}z20{up}..{left}z18{left}..z40--z11--z10..z9..z3--z1..z5..z6--z7--z29; +path stembotloop; stembotloop = +z30..{right}z29{right}..{up}z27{up}..{left}z34--z33; +path topinncirc; topinncirc = z25{right}..{right}z23..{up}z21{up}..{left}z19{left}..{left}z4--z25..cycle; +path botinncirc; botinncirc = z2..{right}z31{right}..{up}z28{up}..z33{left}..{left}z32--cycle; + +fill stembotloop & stemtoploop..cycle; +unfill topinncirc; +unfill botinncirc; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("r",8em#/12+2ss#,1.2ex#,0); "The Letter R"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z19 = z4 shifted (loopgap,0); +z18 = z19 shifted (0,thinstroke); +z20=(w-ss-thickstroke,3h/4); +z21=z20-(curvwid,0); +z22 = z24 shifted (loopgap,0); +z23 = z22 shifted (0,thinstroke); +z30=(x4,0); +z24=0.5[z30,z17]; x24 := x4; +z25=z24+(0,thinstroke); +z26=(w-thickstroke-lserw/2,0); +z27=z26+(lserw+lserstep,0); +z28=z27+(0,lserstep); +z29=z28-(lserstep,0); +z32=z22+(thickstroke,0); +z31=(1/thickstroke)[z32,z4]; +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6--z7--z8--z15--z14..z13..z2--z24--z22---z26--z27--z28--z29--z32..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +lowr := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("m",3em#/4+2ss#,1.2ex#,0); "The Letter M"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thinstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thinstroke,0); +z5 = (w/2-thickstroke/3,0); +z6 = (w-ss-lserw,lserh); +z7 = z6 shifted (-thickstroke,0); +z8 = (w-ss-userw,h-userh); +z9 = z8 shifted (-thickstroke,0); +z14 = z13 shifted (-2thickstroke/3,0); +z23 = 0.22[z5,z9]; +z28 = 0.15[z23,z29]; +z29=z27+(1curvwid/2,0); + +urserif(8,10,11,12,13)(1); +lrserif(6,15,16,17,18)(1); +llserif(7,19,20,21,22)(1); +ulserif(3,24,25,26,27)(1); +llserif(1,30,31,32,33)(2); +lrserif(2,34,35,36,37)(2); + +fill z5--z9--z7..z19..z20--z21--z17--z16..z15..z6--z8..z10..z11--z12--z14--z28--z29--z26--z25..z24..z3--z1..z30..z31--z32--z36--z35..z34..z2--z4--z5--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("u",7em#/12+2ss#,1.2ex#,0); "The Letter U"; + +z1=(ss+userw,h-userh); +z2=z1+(thickstroke,0); +z3=z1-(0,2h/3); +z4=z3+(thickstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5 shifted (-thinstroke,0); +z7=z5-(0,2h/3); +z8=z7-(thinstroke,0); +z9=(w/2,0); +z10=z9+(0,.5thickstroke); + +ulserif(1,11,12,13,14)(1); +urserif(2,15,16,17,18)(1); +ulserif(6,19,20,21,22)(1); +urserif(5,23,24,25,26)(1); + +fill +z3..{right}z9{right}..z7---z5..z23..z24--z25--z21--z20..z19..z6--z8..{left}z10{left}..z4--z2..z15..z16--z17--z13--z12..z11..z1---z3---cycle; + +lowu := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("v",4em#/6+2ss#,1.2ex#,0); "The Letter V"; + +z1=(ss+userw,h-userh); +z2=z1+(slantwid,0); +z3=z1-(0,2h/3); +z4=z3+(thickstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5-(thinstroke,0); +z7=z5-(0,2h/3); +z8=z7-(thinstroke,0); +z9=(w/2,0); +z30=0.25[z9,z5]; +z31 = z9 shifted (-thinstroke,0); +z10 = 0.30[z31,z6]; + +ulserif(1,11,12,13,14)(1); +urserif(2,15,16,17,18)(1); +ulserif(6,19,20,21,22)(1); +urserif(5,23,24,25,26)(1); + +fill z9--z5..z23..z24--z25--z21--z20..z19..z6--z10--z2..z15..z16--z17--z13--z12--z11..z1--z9--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + + +endchar; + +beginchar("t",4em#/6+2ss#,1.2ex#,0);"The Letter T"; + +z1=(ss+userh,h); +z2=z1-(0,thinstroke); +z3=(w-ss-userh,h); +z4=z3-(0,thinstroke); +z5=(w/2-thickstroke/2,y2); +z6=(w/2+thickstroke/2,y2); +z7=(x5,lserh); +z8=z7+(thickstroke,0); + +llserif(7,9,10,11,12)(1); +lrserif(8,13,14,15,16)(1); +tlsideserif(1,17,18,19,20); +trsideserif(3,21,22,23,24); + +pickup cappen; + +fill z7..z9..z10--z11--z15--z14..z13..z8--z6--z4---{down}z24..z23..tension 2..{up}z22{left}..{left}z21{down}..z3--z1..z17{left}..{left}z18{down}..tension 2..z19..z20{up}---z2--z5--z7--cycle; + +lowt := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +%beginchar("w",2ss#+2thickstroke#+thinstroke#+6userw#+2hair#,1.2ex#,0);"The Letter W"; +beginchar("w",2ss#+5em#/6,1.2ex#,0);"The Letter W"; + +z1 = (ss+userw,h-userh); +z2 = z1 shifted (thickstroke,0); +z3 = 0.5[z2,z6] shifted (-thickstroke/2,0); +z4 = z3 shifted (thickstroke,0); +z5 = (w-ss-userw,h-userh); +z6 = z5 shifted (-thinstroke,0); +z7 = (w/3+thinstroke/2,0); +z8 = (2w/3+thinstroke/2,0); +z33=(w/2,3h/4); +z34=z8+(.4thinstroke,2.0thickstroke); +z35=z7+(0.4thinstroke,2.0thickstroke); +z36=0.96[z8,z3]; + +ulserif(1,9,10,11,12)(1); +urserif(2,13,14,15,16)(1); +ulserif(3,17,18,19,20)(1); +urserif(4,21,22,23,24)(1); +ulserif(6,25,26,27,28)(1); +urserif(5,29,30,31,32)(1); + +fill z8--z5..z29..z30--z31--z27--z26..z25..z6--z34--z4..z21..z22--z23--z19--z18..z17..z3--z35--z2..z13..z14--z15--z11--z10..z9..z1--z7--z33--z8--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("n",7em#/12+2ss#,1.2ex#,0); "The Letter N"; + +z1 = (ss+userw,h-userh); +z2=z1+(thinstroke,-0.3thickstroke); +z3 = (ss+lserw,lserh); +z4=z3+(thinstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5-(thinstroke,0); +z7=(w-ss-userw,-o); +z28=z7+(-thinstroke,2thickstroke); +z29=z27+(thickstroke/2,0); + +llserif(3,8,9,10,11)(1); +lrserif(4,12,13,14,15)(1); +ulserif(6,16,17,18,19)(1); +urserif(5,20,21,22,23)(1); +ulserif(1,24,25,26,27)(1); + +fill z7--z5..z20..z21--z22--z18--z17..z16..z6--z28--z29--z27--z26--z25..z24..z1--z3..z8..z9--z10--z14--z13..z12..z4--z2--z7--cycle; + +lown := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("c",8em#/12+ss#,1.2ex#,0); "The Letter C"; + +z1=(w-ss-0.5userh,h-0.5userh); +z2=z1-(0,thickstroke); +z3=(w-ss-0.5userh,0.5userh); +z4=z3+(0,thickstroke); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2+o); +z10=z9+(curvwid,0); +ctsideserif(1,11,12,13,14,2)(1); +ctsideserif(4,15,16,17,18,3)(2); + +pickup cappen; +path cbody; cbody=z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path cinbody; cinbody=z2..z6..z10..z8..z4; + +fill cinbody & botserif & cbody & topserif & cycle; + +lowc := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("g",2em#/3+2ss#,1.2ex#,0); "The Letter G"; + +z1=(w-ss-userw-thickstroke/2,h-0.5userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userw,2userh); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2); +z10=z9+(curvwid,0); +z4=z3-(thickstroke,0); +z11=(x3,h/2-userh); +z12=z11-(thickstroke,0); + +ulserif(12,15,16,17,18)(1); +urserif(11,19,20,21,22)(1); +ctsideserif(1,23,24,25,26,2)(1); + +path gbody; gbody = +z17--z21--z20..z19..z11--z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path ginbody; ginbody = z2..{left}z6{left}..{down}z10{down}..{right}z8{right}..z4--z12..z15..z16--z17; + +fill gbody & topserif & ginbody & cycle; + +lowg := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("l",7em#/12+2ss#,1.2ex#,0); "The Letter L"; + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +upsideserif(6,7,29); + +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +fill z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle; + +lowl := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("e",7em#/12+2ss#,1.2ex#,0); "The Letter E"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+lserw,h-lserh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(w/2,y16); +z22=(w/2,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); + +draw z21--z24; + +llserif(1,12,13,14,26)(1); +ulserif(3,18,19,20,28)(1); + +fill +z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle; + +lowe := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("f",7em#/12+2ss#,1.2ex#,0); "The Letter F"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,lserh); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(w/2,y16); +z22=(w/2,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); + +draw z21--z24; + +llserif(1,12,13,14,26)(1); +lrserif(5,31,32,33,34)(1); +ulserif(3,18,19,20,28)(1); + +fill z5--z17--z22..z25..z27--z24..z23..z21--z16--z4--z9..z11..z10--z8--z20--z19..z18..z3--z1..z12..z13--z14--z33--z32..z31..z5..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("k",7em#/12+2ss#,1.2ex#,0); "The Letter K"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z17=z3 shifted (thickstrike,0); +z22=z2 shifted (0,h/2+thinstroke-lserh); +z23=z2 shifted (0,h/2-lserh); +z24=(w-userw-ss,h); +z25=z24 shifted (-thinstroke/2-thinstroke,-userh); +z30=z25 shifted (thinstroke,0); +z35=0.08[z23,z30]; +z46=0.34[z23,z30]; +z37 = (w-ss-lserw,lserh); +z36 = z37 shifted (-thickstroke,0); + +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); +urserif(4,18,19,20,21)(1); +ulserif(25,26,27,28,29)(1); +urserif(30,31,32,33,34)(1); +lrserif(37,38,39,40,41)(1); +llserif(36,42,43,44,45)(1); + +fill +z1..z5..z6--z7--z16--z15--z14..z13..z2--z23--z35--z36..z42..z43--z44--z40--z39..z38..z37--z46--z23--z30..z31..z32--z33--z28--z27..z26..z25--z22--z4..z18..z19--z20--z21--z11--z10..z9..z3--z1--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("y",7em#/12+2ss#,1.2ex#,0); "The Letter Y"; + +z0 = (w/2-thickstroke/2,h/2); +z1 = (w/2+thickstroke/2,h/2); +z2 = (ss+userw,h-userh); +z3 = z2 shifted (thickstroke,0); +z4 = (w-ss-userw,h-userh); +z5 = z4 shifted (-thinstroke,0); +z6 = (w/2-thickstroke/2,lserh); +z7 = (w/2+thickstroke/2,lserh); +z8 = 0.8[z0,z1] shifted (0,lserh/2); + +lrserif(7,14,15,16,17)(1); +llserif(6,10,11,12,13)(1); +ulserif(2,18,19,20,21)(1); +urserif(3,22,23,24,25)(1); +ulserif(5,26,27,28,29)(1); +urserif(4,30,31,32,33)(1); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +fill +z0--z6..z10..z11--z12--z16--z15..z14..z7--z1--z4..z30..z31--z32--z24--z28--z27..z26..z5--z8--z3..z22..z23--z24--z20--z19..z18..z2--z0--cycle; + +lowy := currentpicture; + +endchar; + +beginchar("z",6em#/12+2ss#,1.2ex#,0); "The Letter Z"; + +z0 = (ss+ssslant,h); +z1 = (w-ss,h); +z3 = (ss,0); +z4 = (w-ss-ssslant,0); +z9 = z0 shifted (lserw,-thinstroke); +z10 = z1 shifted (-1.2curvwid,-thinstroke); +z11 = z3 shifted (1.2curvwid,thinstroke); +z12 = z4 shifted (-lserw,thinstroke); + +lftdownsideserif(0,5,6); +upsideserif(4,7,8); + +fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle; + +lowz := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("s",3em#/6+2ss#,1.2ex#,0); "The Letter S"; + +z0 = (w/2,h+o/2); +z1 = (w/2,0-o/2); +z2 = (w-ss-userh-o,h-0.5userh); +z3 = (w-ss,h/4); +z4 = (ss,3h/4); +z5 = (ss+userh,0.5userh+thickstroke); +z14 = z0 shifted (0,-thinstroke); +z15 = z1 shifted (0,thinstroke); +z16 = z4 shifted (curvwid,0); +z17 = z3 shifted (-curvwid,0); +z18 = z2 shifted (0,-thickstroke); +z19 = z11 shifted (0,-2thickstroke); +z20 = z5 shifted (0,-thickstroke); +z21 = z18 shifted (0,-userw/2); +z22 = z21 shifted (userh,0); +z23 = z22 shifted (0,2.5userw); +z24 = z23 shifted (-userh,0); +z25 = (w/2,h/2+1.2thinstroke/2); +z26 = (w/2,h/2-1.2thinstroke/2); + +ctbackserif(5,10,11,12,13,20)(2); + +pickup pencircle scaled 1; + +path outcurves; path incurves; path toprt; +outcurves = z2..tension 1.1..z0..tension + 1.1..z4..z26..z17..z15..tension 1.1..z5; +incurves = z20..tension 1.1..z1..tension + 1.1..z3..z25..z16..z14..tension 1.1..z18; +toprt = z18---z21..tension 2..z22---z23..tension 2..z24---z2; + +fill outcurves & botlftserif & incurves & toprt & cycle; + +lows := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("x",7em#/12+2ss#,1.2ex#,0); "The Letter X"; + +z0 = (w/2,h/2); +z1 = (ss+userw,h-userh); +z2 = (w-ss-userw,h-userh); +z3 = (ss+lserw,lserh); +z4 = (w-ss-lserw,lserh); +z5 = z1 shifted (slantwid,0); +z6 = z4 shifted (-slantwid,0); +z7 = z2 shifted (-thinstroke,0); +z8 = z3 shifted (thinstroke,0); +z41 = ba[z1,z6]; +z41 = bb[z7,z3]; +z42 = bc[z5,z4]; +z42 = bd[z7,z3]; +z43 = be[z8,z2]; +z43 = bf[z6,z1]; +z44 = bg[z8,z2]; +z44 = bh[z5,z4]; + +ulserif(1,9,10,11,12)(1); +urserif(5,13,14,15,16)(1); +ulserif(7,17,18,19,20)(1); +urserif(2,21,22,23,24)(1); +llserif(3,25,26,27,28)(1); +lrserif(8,29,30,31,32)(1); +llserif(6,33,34,35,36)(1); +lrserif(4,37,38,39,40)(1); + +fill z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..z1--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"346",5em#/6+ss#,1.2ex#,0); "The ligature ae"; + +z1=((w/2-(thickstroke/2)),lserh); +z2=((ss_userw+(thickstroke/2)),lserh); +z3=((w/2-(thickstroke/2)),(h-userh)); +z4=((w/2+(thickstroke/2)),(h-thinstroke)); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(0.6w,y16); +z22=(0.6w,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); +z28 = z1 shifted (0,-lserh); +z31 = z3 shifted (0,userh); +z40 = (ss+lserw,lserh); +z41 = z40 shifted (thinstroke,0); +z50 = z31 shifted (0,-1.6thinstroke); +z100 = (0,y15); +z101 = (0,y16); +z102 = (0,y17); +z51 = aba[z50,z41]; +z51 = abb[z16,z101]; +z52 = abc[z50,z41]; +z52 = abd[z17,z102]; + +draw z21--z24; + +pickup pencircle scaled 2; + +llserif(40,42,43,44,45)(1); +lrserif(41,46,47,48,49)(1); + +fill +z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle; +fill z41..z46..z47--z48--z44--z43..z42..z40--z31--z50--cycle; +fill z51--z16--z17--z52--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55); +endchar; + +beginchar(oct"367",5em#/6+ss#,1.2ex#,0); "The ligature oe"; + +z1=((w/2-(thickstroke/2)),lserh); +z2=((ss_userw+(thickstroke/2)),lserh); +z3=((w/2-(thickstroke/2)),(h-userh)); +z4=((w/2+(thickstroke/2)),(h-thinstroke)); +z5=(x4,thinstroke); +z6=(w-o-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(0.6w,y16); +z22=(0.6w,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); +z28 = z1 shifted (0,-lserh); +z31 = z3 shifted (0,userh); +z50 = z31 shifted (0,-1.6thinstroke); +z40 = 0.5[z31,z28]; +z41 = (0,h/2); +z42 = (o,h/2); +z43 = z42 shifted (curvwid,0); +z44 = 0.5[z40,z41] shifted (curvwid/2,h/2+o/2); +z45 = 0.5[z40,z41] shifted (curvwid/2,-(h/2+o/2)); +z46 = z15 shifted (-curvwid,0); +z47 = z44 shifted (0,-thinstroke); +z48 = z45 shifted (0,thinstroke); + +fill +z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle; +fill z44..z15..z45..z42..cycle; +unfill z43..z47..z46..z48..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55); +endchar; + +beginchar(oct"370",4em#/6+2ss#,1.2ex#,0); "The Letter slash o"; + +currentpicture := lowo; + +pickup pencircle scaled thinstroke; +bot lft z0 = (ss,0); +top rt z1 = (w-ss,h); + +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar(oct"376",3em#/6+2ss#,1.2ex#,0); "The Letter thorn"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+lserw,h-lserh); +z4 = z3 shifted (thickstroke,0); +z13=(x4,4h/5); +z14=z13 shifted (0,-thinstroke); +z15=(w-ss,h/2); +z16=z15-(curvwid,0); +z17=(x2,h/5); +z18=z17+(0,thinstroke); +z19=(w/2,h); +z20=z19-(0,thinstroke); +z21=(w/2,0); +z22=z21+(0,thinstroke); +z40 = z13 shifted (thickstroke,0); +z41 = z40 shifted (0,-thinstroke); +z42 = z17 shifted (thickstroke,0); +z43 = z42 shifted (0,thinstroke); + +llserif(1,5,6,7,8)(1); +lrserif(2,30,31,32,33)(1); +ulserif(3,9,10,11,12)(1); +urserif(4,34,35,36,37)(1); + +fill +z1..z5..z6--z7--z32--z31..z30..z2--z17--z42{right}..{up}z15{up}..{left}z40--z13--z4..z34..z35--z36--z11--z10..z9..z3--cycle; +unfill z18--z14--z41{right}..{down}z16{down}..{left}z43--z18--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"255",4em#/6+2ss#,1.2ex#,dep#); "The Letter ng"; + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thickstroke,0); +z2 = z1 shifted (ss+4lserw,0); +z3 = z2 shifted (thickstroke,0); +z20 = (ss+userw,h-userh); +z21 = z20 shifted (thickstroke,0); +z22 = z21 shifted (0,userh); +z23 = z21 shifted (ss+4userw,0); +z24 = z23 shifted (thickstroke,-thinstroke); +z29 = z20 shifted (0,userh); +z30 = z24 shifted (0,userh+thinstroke); +z31 = 0.5[z30,z29] shifted (0,o); +z32 = z31 shifted (0,-thinstroke); +z33 = z28 shifted (0,-userh); +z40 = z2; +z41 = z3; +%z49 = (x40-2userw,-dep); +z49 = (w/2,-dep); +z50 = z49 shifted (0,thinstroke); +z51 = (x8,-dep/3); +z56 = z21 shifted (0,-thinstroke); +z57 = z20 shifted (0,-thinstroke); +z58 = z23 shifted (0,-thinstroke); +z59 = z24 shifted (0,-thinstroke); + +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +ulserif(20,25,26,27,28)(1); +ulftbulb(51,52,53,54,55); + +fill +z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z57{dir +50}..{right}z31{right}..{down}z59--z3{down}..{left}z49{left}..{up}z51..z52..z53..{left}z54{down}..{right}z50{right}..{up}z2--z58..z32..z56--z1..z8..z9--z10--z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59); +endchar; + +beginchar(oct"360",7em#/12+2ss#,1.2ex#,0); "The Letter eth"; + +currentpicture := lowd; + +pickup pencircle scaled thinstroke; +lft z0 = (ss,h/2); +rt z1 = (w/2-ss,h/2); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59); +endchar; + +beginchar(oct"377",em#+2ss#,1.2ex#,0); "The Letter Eszett"; + +currentpicture := lows + lows shifted (em/2+hair,0); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtcdigs.mf b/Master/texmf-dist/fonts/source/public/drm/drmtcdigs.mf new file mode 100644 index 00000000000..d6dc3fc7c52 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtcdigs.mf @@ -0,0 +1,265 @@ +% +AMDG This document was begun on 6 Aug 11EX, the Feast of +% the Transfiguration of Our Lord Jesus Christ, and the +% commemorations of St Xystus, PM, and Felicissimus and +% Agapitus, MM, and it is humbly dedicated to them and to +% the Immaculate Heart of Mary for their prayers, and to the +% Sacred Heart of Jesus for His mercy. + +picture six; + +beginchar("1",0.65digwid#+2ss#,1.2ex#,0); "The digit 1"; +italcorr(ex#*slant); + +z0 = (w/2-thickstroke/2,lserhl); +z1 = z0 shifted (thickstroke,0); +z10 = (w/2-thickstroke/2,h-2userh); +z11 = z10 shifted (thickstroke,0); +z12 = z11 shifted (0,2userh+o); +z13 = z12 shifted (-thickstroke,0); +z14 = z10 shifted (-lserwl-o,0); +z15 = z14 shifted (0,thinl); + +llserif(0,2,3,4,5)(1); +lrserif(1,6,7,8,9)(1); + +fill +z0..z2..z3--z4--z8--z7..z6..z1--z12--z13{down}..{left}z15--z14--z10--z0--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("2",0.75digwid#+2ss#,1.2ex#,0); "The digit 2"; +italcorr(ex#*slant); + +z0 = (w/2,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (ss,3h/4); +z3 = z2 shifted (bulbsh,-bulbsh); +z4 = z3 shifted (bulbsh,bulbsh); +z5 = z4 shifted (-bulbsh,bulbsh); +z6 = (w-ss,3h/4); +z7 = z6 shifted (-curvl,0); +z8 = (ss,thickl); +z9 = z8 shifted (1.5thinl,0); +z10 = (ss,0); +z11 = (w-ss,0); +z12 = z11 shifted (0,thickl); +z13 = z12 shifted (0,thinl); +z14 = z13 shifted (-thinl/2,0); +z15 = z12 shifted (-thinl/2,0); + +fill +z5{right}..{down}z4{down}..{left}z3{left}..{up}z2{up}..{right}z0{right}..{down}z6{down}..{down}z9--z15--z14--z13--z11--z10--z8{up}..{up}z7{up}..{left}z1{left}..{dir +-120}cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("3",0.75digwid#+2ss#,1.2ex#,0); "The digit 3"; +italcorr(ex#*slant); + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (ss,.75h); +z3 = (ss,.25h); +z4 = z0 shifted (0,-thinstroke); +z5 = z1 shifted (0,thinstroke); +z6 = z8 shifted (-curvwid,0); +z7 = z9 shifted (-curvwid,0); +z8 = (w-ss,3h/4); +z9 = (w-ss,h/4); +z10 = (w/2-2thinstroke,h/2+thinstroke/2); +z11 = z10 shifted (0,-thinstroke); +z20 = z10 shifted (1.5thickstroke,-thinstroke/2); +z21 = z9 shifted (-o/4,0); +z22 = z10 shifted (1.5thickl,0); +z23 = z11 shifted (1.5thickl,0); + +ulftbulb(2,12,13,14,15); +ulftbulb(3,16,17,18,19); + +fill +z2{up}..{right}z0{right}..{down}z8{down}..z20..{left}z11--z10{right}..z20..{down}z9{down}..{left}z1{left}..{up}z3{up}..{right}z16{right}..{down}z17{down}..{left}z18{dir +-60}..{right}z5{right}..{up}z7{up}..{left}z11--z10{right}..{up}z6{up}..{left}z4{left}..{dir +-120}z12{right}..{down}z13{down}..{left}z14{left}..{up}cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("4",0.75digwid#+2ss#,1.2ex#,0); "The digit 4"; +italcorr(ex#*slant); + +z0 = (w-ss-lserwl,h+2o); +z1 = (x0,2h/5); +y2 = y1; x2 = ss; +z3 = z0 shifted (0,-thinstroke); +z4 = z2 shifted (thinstroke,0); +z6 = z1 shifted (-thickstroke,0); +z7 = z0 shifted (-thickstroke,0); +z5 = zca[z3,z4]; +z5 = zcb[z6,z7]; +z8 = z2 shifted (0,-thinstroke); +z9 = z4 shifted (0,-thinstroke); +z10 = z6 shifted (0,-thinstroke); +z11 = z1 shifted (0,-thinstroke); +z12 = z1 shifted (lserwl,0); +z13 = z11 shifted (lserwl,0); +x14 = x10; y14 = lserhl; +z15 = z14 shifted (thickstroke,0); + +llserif(14,16,17,18,19)(1); +lrserif(15,20,21,22,23)(1); + +fill +z14..z16..z17--z18--z22--z21..z20..z15--z11--z13--z12--z1--z0--z2--z8--z10--cycle; +unfill z4--z6--z5--z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("5",0.75digwid#+2ss#,1.2ex#,0); "The digit 5"; +italcorr(ex#*slant); + +z0 = (w-ss-bulbsh,h+o); +z1 = (ss+bulbsh,h+o); +z2 = z0 shifted (0,-thickstroke); +z3 = z1 shifted (0,-thickstroke); +z4 = (w/2,0); +z5 = z4 shifted (0,thinstroke); +z6 = z3 shifted (thinstroke,0); +z7 = (ss+0.6bulbsh,0.55h); +z19 = z7 shifted (thinstroke,0); +z8 = (w-ss,2h/3); +z9 = z7 shifted (thinstroke,thinstroke); +z10 = (w-ss-thickstroke,h/3); +z11 = (ss,h/3); +z16 = z10 shifted (thickstroke,0); +z17 = (w/2,2h/3); +z18 = z17 shifted (0,-thinstroke); +z29 = z2 shifted (0,-thinl); +z20 = z29 shifted (-thinl/2,0); +z21 = z20 shifted (0,thinl); + +ulftbulb(11,12,13,14,15); + +fill +z6--z21--z20--z29--z2--z0--z1--z7--z19..{right}z18{right}..{down}z10{down}..{left}z5{left}..{up}z14{right}..{up}z13..z12..z11{down}..{right}z4{right}..z16{up}..{left}z17{left}..z9--z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("7",0.65digwid#+2ss#,1.2ex#,0); "The digit 7"; +italcorr(ex#*slant); + +z0 = (ss,h+o); +z1 = z0 shifted (0,-thickstroke); +z2 = (w-ss,h+o); +z3 = z2 shifted (0,-thickstroke); +z4 = (w/4,0); +z5 = z4 shifted (thickstroke,0); +z6 = z3 shifted (-1.8thinstroke,0); +z7 = (w/3,0.6h); +z8 = z7 shifted (1.2thinstroke,0); +z9 = z1 shifted (0,-0.7userh); +z10 = z9 shifted (0.5thinstroke,0); +z11 = z10 shifted (0,0.7userh); + +fill z11--z10--z9--z0--z2--z3..z8..z5--z4..z7..z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("8",0.75digwid#+2ss#,1.2ex#,0); "The digit 8"; +italcorr(ex#*slant); + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (ss+bulbsh/2,3h/4); +z3 = (ss,h/4); +z4 = (w-ss-bulbsh/2,3h/4); +z5 = (w-ss,h/4); +z6 = z0 shifted (0,-thinstroke); +z7 = z1 shifted (0,thinstroke); +z8 = z2 shifted (0.8curvwid,0); +z9 = z3 shifted (curvwid,0); +z10 = z5 shifted (-curvwid,0); +z11 = z4 shifted (-0.8curvwid,0); +z12 = (w/2,h/2+thinstroke); +z13 = z12 shifted (0,-thinstroke); + +pickup pencircle scaled 1; + +fill z0..z4..z13--z12..z5..z1..z3..z12--z13..z2..cycle; +unfill z8..z6..z11..z12..cycle; +unfill z7..z10..z13..z9..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("0",0.75digwid#+2ss#,1.2ex#,0); "The digit 0"; +italcorr(ex#*slant); + +z0 = (w/2,h+o); +z1 = (w/2,-o); +z2 = (w-ss,h/2); +z3 = (ss,h/2); +z4 = z0 shifted (0,-thinstroke); +z5 = z1 shifted (0,thinstroke); +z6 = z2 shifted (-curvwid,0); +z7 = z3 shifted (curvwid,0); + +fill z0{right}..{down}z2{down}..{left}z1{left}..{up}z3{up}..{right}cycle; +unfill z4..z6..z5..z7..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("6",0.75digwid#+2ss#,1.2ex#,0); "The digit 6"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (2w/3,h+o); +penpos1(2thinl,180); +z1r = (ss+thinl,2h/3); +penpos2(thickl,180); +z2r = (ss,ex/4); +penpos3(thinl,-90); +z3r = (w/2,0-o); +penpos4(thickl,0); +z4r = (w-ss,ex/4); +penpos5(thinl,90); +z5l = (w/2,ex/2+o); +penpos6(thinl,0); +z6l = z0l; +penpos7(thinl,-90); +z7l = z6l; +penpos8(thinl,180); +z8l = z7l; + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("9",0.75digwid#+2ss#,1.2ex#,0); "The digit 9"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0l = (w/3,0-o); +penpos1(2thinl,180); +z1l = (w-ss-thinl,h/3); +penpos2(thickl,180); +z2l = (w-ss,h-ex/4); +penpos3(thinl,90); +z3r = (w/2,h-ex/2-o); +penpos4(thickl,0); +z4l = (ss,h-ex/4); +penpos5(thinl,-90); +z5l = (w/2,h+o); + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtcligs.mf b/Master/texmf-dist/fonts/source/public/drm/drmtcligs.mf new file mode 100644 index 00000000000..4a0db49553a --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtcligs.mf @@ -0,0 +1,125 @@ +% +AMDG This document was begun on 19 August 2007, the Feast of St. John +% Eudes, and it is humbly dedicated to him and to the Immaculate Heart of Mary +% for their prayers, and to the Sacred Heart of Jesus for His mercy. + +ligtable "-" : "-" =: oct"025"; +ligtable oct"025" : "-" =: oct"026"; +ligtable "`" : "`" =: oct"020"; +ligtable "'" : "'" =: oct"021"; +ligtable "?" : "`" =: oct"276"; +ligtable "!" : "`" =: oct"275"; + +ligtable "A" : oct"200" : oct"201" : oct"300" : oct"301" : + oct"302" : oct"303" : oct"304" : oct"305" : "C" kern-0.1u#, + "G" kern-0.1u#,"J" kern-0.1u#, + "O" kern-0.1u#,"Q" kern-0.1u#,"T" kern-0.2u#,"U" kern-0.2u#, + "V" kern-0.2u#,"W" kern-0.2u#,"Y" kern-0.2u#; +ligtable "B" : "G" kern 0.1u#,"O" kern 0.1u#, + "Q" kern 0.1u#,"S" kern 0.1u#; +ligtable "D" : oct"204" : oct"320" : oct"336" : + "C" kern 0.1u#,"G" kern 0.2u#, + "O" kern 0.1u#, "Q" kern 0.2u#,"S" kern 0.1u#, + "H" kern 0.1u#, "M" kern 0.1u#,"P" kern 0.1u#, + "S" kern 0.1u#,"X" kern -0.05u#,"Y" kern -0.05u#, + "V" kern -0.05u#,"W" kern -0.05u#; +ligtable "F" : "A" kern -0.2u#, + "a" kern-0.1u#,"b" kern-0.1u#,"c" kern-0.1u#, + "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.1u#, + "g" kern-0.1u#,"h" kern-0.1u#,"i" kern-0.2u#, + "h" kern-0.1u#,"k" kern-0.1u#,"l" kern-0.1u#, + "m" kern-0.1u#,"n" kern-0.1u#,"o" kern-0.1u#, + "p" kern-0.1u#,"q" kern-0.1u#,"r" kern-0.1u#, + "s" kern-0.1u#,"t" kern-0.1u#,"u" kern-0.1u#, + "v" kern-0.1u#,"w" kern-0.1u#,"x" kern-0.1u#, + "y" kern-0.1u#,"z" kern-0.1u#; +ligtable "G" : oct"207" : "A" kern -0.1u#,"B" kern -0.1u#, + "D" kern -0.1u#, "E" kern -0.1u#, "F" kern -0.1u#, + "H" kern -0.1u#, "I" kern -0.1u#, "J" kern -0.1u#, + "K" kern -0.1u#, "L" kern -0.1u#, "M" kern -0.1u#, + "N" kern -0.1u#, "P" kern -0.1u#, "R" kern -0.1u#, + "T" kern -0.1u#, "U" kern -0.1u#, "V" kern -0.1u#, + "W" kern -0.1u#,"X" kern -0.1u#,"Y" kern -0.1u#; +ligtable "K" : "C" kern -0.1u#,"G" kern -0.1u#, + "O" kern -0.1u#,"Q" kern -0.1u#; +ligtable "O" : oct"216" : oct"322" : oct"323" : oct"324" : + oct"325" : oct"326" : "A" kern -0.05u#,"C" kern 0.1u#, + "G" kern 0.1u#,"O" kern 0.1u#,"Q" kern 0.1u#, + "S" kern 0.1u#,"V" kern -0.05u#,"W" kern -0.05u#, + "X" kern -0.05u#,"Y" kern -0.05u#; +ligtable "P" : "A" kern -0.1u#; +ligtable "Q" : "A" kern -0.05u#,"C" kern 0.1u#, + "G" kern 0.1u#,"O" kern 0.1u#,"Q" kern 0.1u#, + "S" kern 0.1u#,"V" kern -0.05u#,"W" kern -0.05u#, + "X" kern -0.05u#,"Y" kern -0.05u#; +ligtable "S" : oct"221" : oct"222" : oct"223" : + "A" kern -0.1u#; +ligtable "T" : oct"224" : oct"225" : "A" kern -0.1u#, + "h" kern -0.2u#, + "a" kern-0.2u#,"b" kern-0.2u#,"c" kern-0.2u#, + "d" kern-0.2u#,"e" kern-0.2u#,"f" kern-0.2u#, + "g" kern-0.2u#,"h" kern-0.2u#,"i" kern-0.2u#, + "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.2u#, + "m" kern-0.2u#,"n" kern-0.2u#,"o" kern-0.2u#, + "p" kern-0.2u#,"q" kern-0.2u#,"r" kern-0.2u#, + "s" kern-0.2u#,"t" kern-0.2u#,"u" kern-0.2u#, + "v" kern-0.2u#,"w" kern-0.2u#,"x" kern-0.2u#, + "y" kern-0.2u#,"z" kern-0.2u#; +ligtable "U" : oct"226" : oct"227" : oct"331" : oct"332" : + oct"333" : oct"334" : "A" kern -0.05u#; +ligtable "V" : "A" kern -0.2u#,"C" kern -0.05u#, + "G" kern -0.05u#,"O" kern -0.05u#,"Q" kern -0.05u#; +ligtable "W" : "A" kern -0.2u#,"C" kern -0.05u#, + "G" kern -0.05u#,"O" kern -0.05u#,"Q" kern -0.05u#, + "a" kern -0.3u#; +ligtable "X" : "C" kern -0.05u#,"G" kern -0.05u#, + "O" kern -0.05u#,"Q" kern -0.05u#; +ligtable "Y" : oct"230" : oct"335" : "A" kern -0.2u#, + "C" kern -0.05u#,"G" kern -0.05u#,"O" kern -0.05u#, + "Q" kern -0.05u#; +ligtable "a" : oct"240" : oct"241" : oct"340" : oct"341" : + oct"342" : oct"343" : oct"344" : oct"345" : "c" kern-0.1u#, + "g" kern-0.1u#,"j" kern-0.1u#,"o" kern-0.1u#,"q" kern-0.1u#, + "t" kern-0.2u#,"u" kern-0.2u#,"y" kern-0.2u#, + "v" kern-0.2u#,"w" kern-0.1u#,"r" kern-0.1u#; +ligtable "b" : "g" kern 0.1u#,"o" kern 0.1u#, + "Q" kern 0.1u#,"S" kern 0.1u#; +ligtable "c" : oct"242" : oct"243" : "v" kern -0.10u#, + oct"347" : "w" kern -0.10u#, "y" kern -0.10u#; +ligtable "d" : oct"244" : oct"360" : "c" kern 0.1u#,"g" kern 0.2u#, + "o" kern 0.1u#, "q" kern 0.2u#,"s" kern 0.1u#, + "h" kern 0.1u#, "m" kern 0.1u#,"p" kern 0.1u#, + "s" kern 0.1u#,"x" kern -0.05u#,"y" kern -0.05u#, + "v" kern -0.05u#,"w" kern -0.05u#; +%ligtable "f" : "a" kern -0.2u#; +ligtable "g" : oct"247" : "a" kern -0.1u#,"b" kern -0.1u#, + "d" kern -0.1u#, "e" kern -0.1u#, "f" kern -0.1u#, + "h" kern -0.1u#, "i" kern -0.1u#, "j" kern -0.1u#, + "k" kern -0.1u#, "l" kern -0.1u#, "m" kern -0.1u#, + "n" kern -0.1u#, "p" kern -0.1u#, "r" kern -0.1u#, + "t" kern -0.1u#, "u" kern -0.1u#, "v" kern -0.1u#, + "w" kern -0.1u#,"x" kern -0.1u#,"y" kern -0.1u#; +ligtable "h" : "C" kern -0.1u#,"G" kern -0.1u#, + "O" kern -0.1u#,"Q" kern -0.1u#; +ligtable "o" : oct"256" : oct"362" : oct"363" : oct"364" : + oct"365" : oct"366" : "a" kern -0.05u#,"c" kern 0.1u#, + "g" kern 0.1u#,"o" kern 0.1u#,"q" kern 0.1u#, + "s" kern 0.1u#,"v" kern -0.05u#,"w" kern -0.05u#, + "x" kern -0.05u#,"y" kern -0.05u#; +ligtable "p" : "A" kern -0.1u#; +ligtable "q" : "a" kern -0.05u#,"c" kern 0.1u#, + "g" kern 0.1u#,"o" kern 0.1u#,"q" kern 0.1u#, + "s" kern 0.1u#,"v" kern -0.05u#,"w" kern -0.05u#, + "x" kern -0.05u#,"y" kern -0.05u#; +ligtable "r" : oct"257" : "n" kern -0.1u#,"t" kern -0.1u#; +ligtable "s" : oct"261" : oct"262" : oct"263" : "a" kern -0.1u#; +ligtable "t" : "a" kern -0.2u#; +ligtable "u" : "a" kern -0.05u#; +ligtable "v" : "a" kern -0.2u#,"c" kern -0.05u#, + "g" kern -0.05u#,"o" kern -0.05u#,"q" kern -0.05u#; +ligtable "w" : "a" kern -0.2u#,"c" kern -0.05u#, + "g" kern -0.05u#,"o" kern -0.05u#,"q" kern -0.05u#; +ligtable "x" : "c" kern -0.05u#,"g" kern -0.05u#, + "o" kern -0.05u#,"q" kern -0.05u#; +ligtable "y" : oct"270" : oct"375" : "a" kern -0.2u#, + "c" kern -0.05u#,"g" kern -0.05u#,"o" kern -0.05u#, + "q" kern -0.05u#; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmtt10.mf b/Master/texmf-dist/fonts/source/public/drm/drmtt10.mf new file mode 100644 index 00000000000..95dad68ca90 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmtt10.mf @@ -0,0 +1,71 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +font_slant 0u#; +slant = 0; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +lserc#=0; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.08u#; +userc#=0; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.08u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=1.0pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.0u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmligs +input drmttcap.mf +%input drmlowmac.mf +%input drmlow.mf +%input drmpunct.mf +%input drmacc.mf +%input drmacclet.mf +%input drmdigs.mf + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmttcap.mf b/Master/texmf-dist/fonts/source/public/drm/drmttcap.mf new file mode 100644 index 00000000000..f17ad55a883 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmttcap.mf @@ -0,0 +1,1107 @@ +% +AMDG This document was begun on 15 August 2007, the +% Feast of the Assumption of the Blessed Virgin Mary, and it +% is humbly offered to her for her prayers, and to the +% Sacred Heart of Jesus for His mercy. + +picture capo; +picture capa; +picture capl; +picture capc; +picture capd; +picture cape; +picture capg; +picture capn; +picture capu; +picture capr; +picture caps; +picture capt; +picture capy; +picture capz; +picture capi; + +def ulftbulb(suffix i,j,k,l,m) = +z.j=z.i shifted (bulbsh,bulbsh); +z.k=z.j shifted (bulbsh,-bulbsh); +z.l=z.k shifted (-bulbsh,-bulbsh); +enddef; + +%%%FFF Fix W, M, A from dependence on stroke widths FFF%%% + +%%%% Define Lower Right Serif on Caps %%%% + +def lrserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(lserw/3,-lserc/2); +z.k=z.i+(lserw,-lserc); +z.l=z.k-(0,lserstep); +z.m=z.l-(lserw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(lserw/3,-lserc/2); +z.k=z.i+(lserw+equalize/2,-lserc); +z.l=z.k-(0,lserstep); +z.m=z.l-(lserw+thickstroke/2,0); +fi +enddef; + +%%%% Define Lower Left Serif on Caps %%%% + +def llserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i-(lserw/3,lserc/2); +z.k=z.i-(lserw,lserc); +z.l=z.k-(0,lserstep); +z.m=z.l+(lserw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i-(lserw/3,lserc/2); +z.k=z.i-(lserw+equalize/2,lserc); +z.l=z.k-(0,lserstep); +z.m=z.l+(lserw+thickstroke/2,0); +fi +enddef; + +%%%% Define Upper Right Serif on Caps %%%% + +def urserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(userw/3,lserc/2); +z.k=z.i+(userw,userc); +z.l=z.k+(0,userstep); +z.m=z.l-(userw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(userw/3,lserc/2); +z.k=z.i+(userw+equalize/2,userc); +z.l=z.k+(0,userstep); +z.m=z.l-(userw+thickstroke/2,0); +fi +enddef; + +%%%% Define Upper Left Serif on Caps %%%% + +def ulserif(suffix i,j,k,l,m)(expr strokewidth) = +if strokewidth = 1: +z.j=z.i+(-userw/3,lserc/2); +z.k=z.i+(-userw,userc); +z.l=z.k+(0,userstep); +z.m=z.l+(userw+thickstroke/2,0); +elseif strokewidth = 2: +z.j=z.i+(-userw/3,lserc/2); +z.k=z.i+(-(userw+equalize/2),userc); +z.l=z.k+(0,userstep); +z.m=z.l+(userw+thickstroke/2,0); +fi +enddef; + +%%%% Define T Side Serifs on Caps %%%% + +def tlsideserif(suffix i,j,k,l,m) = +z.j=z.i+(0,seriftail); +z.k=z.j-((userh/2),0); +z.l=z.k-(userh/2,1.5userw); +z.m=z.l+(userh/2,0); +enddef; + +def trsideserif(suffix i,j,k,l,m) = +z.j=z.i+(0,seriftail); +z.k=z.j+((userh/2),0); +z.l=z.k+(userh/2,-1.5userw); +z.m=z.l-(userh/2,0); +enddef; + +%%%% Define C Side Serifs on Caps %%%% + +def ctsideserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userw/2); +z.k=z.j+(userh,0); +z.l=z.k-(0,2userw); +z.m=z.l-(userh,0); +if topbot = 1: +path topserif; topserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botserif; botserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +def ctbackserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userh/2); +z.k=z.j-(userh,0); +z.l=z.k+(0,-2userw); +z.m=z.l+(userh,0); +if topbot = 1: +path toplftserif; toplftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botlftserif; botlftserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +%%%% Define L, E, Z, and F side serifs on Caps %%%% + +def upsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,2lserw); +z.k=z.j-(lserh,lserw); +enddef; + +def downsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,-2lserw); +z.k=z.j+(-lserh,lserw); +enddef; + +def lftdownsideserif(suffix i,j,k) = +z.j=z.i-(ssslant,2lserw); +z.k=z.j+(lserh,lserw); +enddef; + +beginchar("I",thickstroke#+2lserw#+2ss#,cap#,0); "The Letter I"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +lrserif(2,9,10,11,25)(1); +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +fill z14--z11--z10..z9..z2--z4..z15..z16--z17--z20--z19.. + z18..z3--z1..z12..z13--z14--cycle; + +capi := currentpicture; + +penlabels(1,2,3,4,9,10,11,12,13,14,15,16,17,18,19,20,25); + +endchar; + +beginchar("O",5em#/6+2ss#,cap#,0); "The Letter O"; + +z1=(ss,h/2); +z2=(w/2,h+o); +z3=(w-ss,h/2); +z4=(w/2,0-o); +z5=z1 shifted (curvwid,0); +z6=z2 shifted (0,-thinstroke); +z7=z3 shifted (-curvwid,0); +z8=z4 shifted (0,thinstroke); + +fill z4..z3..z2..z1..cycle; +unfill z5..z6..z7..z8..cycle; + +capo := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); + +endchar; + +beginchar("A",em#+2ss#,cap#,0); "The Letter A"; + +crossh = 1/phi; +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thinstroke,0); +z3 = (w-ss-lserw,lserh); +z4 = z3 shifted (-thickstroke,0); +z5 = (w/2+thickstroke/2,h+o); +z6 = z5 shifted (-thickstroke,0) rotatedaround (z5,30); +lrserif(3,7,8,9,10)(1); +llserif(4,11,12,13,14)(1); +lrserif(2,15,16,17,18)(1); +llserif(1,19,20,21,22)(1); +z23 = crossh[z6,z1]; +z24 = z23 shifted (thinstroke,0); +z25 = (w,y23); +z26 = letaa[z23,z25]; +z26 = letab[z3,z5]; +z27 = z26 shifted (-thickstroke,0); +z28 = 0.9[z27,z6]; +z29 = 0.1[z27,z28]; +z30 = 0.1[z24,z28]; + +fill z3--z5--z6--z1..z19..z20--z21--z17--z16..z15..z2 + --z24--z27--z4..z11..z12--z13--z9--z8..z7..cycle; +unfill z30--z28--z29--cycle; + +capa := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36); +endchar; + +beginchar("J",0.38em#+2ss#,cap#,dep#); "The Letter J"; + +z1 = ((w/2-(thickstroke/2)),-lserh); +z2 = ((w/2+(thickstroke/2)),-lserh); +z3 = ((w/2-(thickstroke/2)),(h-userh)); +z4 = ((w/2+(thickstroke/2)),(h-userh)); +z5 = (x3-userw,-dep); +z6 = z5 shifted (0,thinstroke); +z8 = z5 shifted (-userw,dep/2); +z7 = z8 shifted (-thinstroke,0); +z9 = (x8,-dep/4); +z10 = 0.5[z8,z9] shifted (thickstroke/2,0); + +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +fill z9..z7{down}..{right}z5{right}..{up}z2--z4..z15.. + z16--z17--z20--z19..z18..z3--z1{down}..{left}z6{left}.. + {up}z8{down}..{up}z10{up}..z9..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25); +endchar; + +beginchar("Q",em#+2ss#,cap#,dep#+thickstroke#/2); "The Letter Q"; + +depth=6d/8; +qtailunit=em/2.5; +z1=(ss,h/2); +z2=(w/2,h+o); +z3=(w-ss,h/2); +z4=(w/2,0); +z5=z1+(curvwid,0); +z6=z2-(0,thinstroke); +z7=z3-(curvwid,0); +z8=z4+(0,thinstroke); +z9=z4+(curvwid/2,0); +z10=z4-(curvwid/2,0); +z11=(em+qtailunit+thickstroke,-depth); +z12=(em+2qtailunit,-depth); +z13=z12+(qtailunit,depth/2); +z14=z12+(0,2thickstroke/3); +z15=(em+qtailunit,-depth+thickstroke); + +pickup pencircle; + +path outerring; outerring=z9..z3..z2..z1..z10; +path innerring; innerring=z8..z5..z6..z7..cycle; +path bottomqtail; bottomqtail=z10..tension 1.7..z11{right}..{right}z12..z13; +path topqtail; topqtail=z13..tension 1.5..z14..tension 1.5..z15..z9; + +unfill innerring; +fill outerring & bottomqtail & topqtail..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); + +endchar; + +beginchar("H",em#+2ss#,cap#,0); "The Letter H"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z5 = (w-ss-lserw-thickstroke,lserh); +z6 = z5 shifted (thickstroke,0); +z7 = (w-ss-lserw-thickstroke,h-lserh); +z8 = z7 shifted (thickstroke,0); +z46=(0.5)[z4,z2]; +z47=z46+(0,thinstroke/2); +z48=z46-(0,thinstroke/2); +z49=(0.5)[z7,z5]; +z50=z49+(0,thinstroke/2); +z51=z49-(0,thinstroke/2); +lrserif(2,9,10,11,25)(1); +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); +lrserif(6,30,31,32,33)(1); +llserif(5,34,35,36,37)(1); +urserif(8,38,39,40,41)(1); +ulserif(7,42,43,44,45)(1); + +fill z36--z32--z31..z30..z6--z8..z38..z39--z40--z44-- + z43..z42..z7--z50--z47--z4..z15..z16--z17--z20-- + z19..z18..z3--z1..z12..z13--z14--z11--z10..z9..z2 + --z48--z51--z5..z34..z35--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("D",5em#/6+2ss#,cap#,0); "The Letter D"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z13 = (x4,h); +z14 = (x4,h-thinstroke); +z15 = (w-ss,h/2); +z16 = z15-(curvwid,0); +z17 = (x2,0); +z18 = z17+(0,thinstroke); +z19 = (w/2,h); +z20 = z19-(0,thinstroke); +z21 = (w/2,0); +z22 = z21+(0,thinstroke); +llserif(1,5,6,7,8)(1); +ulserif(3,9,10,11,12)(1); + +fill z17{right}..{right}z21..z15..{left}z19{left}..{left}z13--z11--z10..z9..z3--z1..z5..z6--z7--z17--cycle; +unfill z18{right}..{right}z22..z16..{left}z20{left}..{left}z14--z18--cycle; + +capd := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("P",2em#/3+2ss#,cap#,0); "The Letter P"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3 + thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss,3h/4); +z21 = z20 shifted (-curvwid,0); +z22=(x18,h/2); +z23=z22+(0,thinstroke); +z30=(x4,0); +z26 = z2 shifted (0,-lserh); +z27 = z4 shifted (0,thinstroke); +z24 = 0.5[z26,z27]; +z25 = z24 shifted (0,thinstroke); +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6-- + z7--z8--z15--z14..z13..z2--z24..z22..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2223,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("B",3em#/4+2ss#,cap#,0); "The Letter B"; + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z30=(x4,0); +z40 = z4 shifted (0,thinstroke); +z25 = 0.5[z30,z40] shifted (0,thinstroke); +z32 = z25 shifted (0,-thinstroke); +z24 = 0.5[z25,z32]; +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss-2o,3h/4); +z21=z20-(curvwid,0); +z23=z22+(0,thinstroke/2); +z26 = z32 shifted (loopgap,0); +z27 = (w-ss,h/4); +z28=z27-(1.1curvwid,0); +z29=(x18,0); +z31=z29+(0,thinstroke); +z33=z22-(0,thinstroke/2); +z34 = z25 shifted (loopgap,0); +z22 = 0.5[z34,z26]; +llserif(1,5,6,7,8)(1); +ulserif(3,9,10,11,12)(1); + +path stemtoploop; stemtoploop = z33{right}..{up}z20{up}..{left}z18{left}..z40--z11--z10..z9..z3--z1..z5..z6--z7--z29; +path stembotloop; stembotloop = +z30..{right}z29{right}..{up}z27{up}..{left}z34--z33; +path topinncirc; topinncirc = z25{right}..{right}z23..{up}z21{up}..{left}z19{left}..{left}z4--z25..cycle; +path botinncirc; botinncirc = z2..{right}z31{right}..{up}z28{up}..z33{left}..{left}z32--cycle; + +fill stembotloop & stemtoploop..cycle; +unfill topinncirc; +unfill botinncirc; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("R",5em#/6+2ss#,cap#,0); "The Letter R"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z19 = z4 shifted (loopgap,0); +z18 = z19 shifted (0,thinstroke); +z20=(w-ss-thickstroke,3h/4); +z21=z20-(curvwid,0); +z22 = z24 shifted (loopgap,0); +z23 = z22 shifted (0,thinstroke); +z30=(x4,0); +z24=0.5[z30,z17]; x24 := x4; +z25=z24+(0,thinstroke); +z26=(w-thickstroke-lserw/2,0); +z27=z26+(lserw+lserstep,0); +z28=z27+(0,lserstep); +z29=z28-(lserstep,0); +z32=z22+(thickstroke,0); +z31=(1/thickstroke)[z32,z4]; +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6--z7--z8--z15--z14..z13..z2--z24--z22---z26--z27--z28--z29--z32..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +capr := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("M",em#+2ss#,cap#,0); "The Letter M"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thinstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thinstroke,0); +z5 = (w/2-thickstroke/3,0); +z6 = (w-ss-lserw,lserh); +z7 = z6 shifted (-thickstroke,0); +z8 = (w-ss-userw,h-userh); +z9 = z8 shifted (-thickstroke,0); +z14 = z13 shifted (-2thickstroke/3,0); +z23 = 0.22[z5,z9]; +z28 = 0.1[z23,z29]; +%z28 = z23 shifted (-thinstroke/2,thinstroke/2); +z29=z27+(2curvwid/3,0); + +urserif(8,10,11,12,13)(1); +lrserif(6,15,16,17,18)(1); +llserif(7,19,20,21,22)(1); +ulserif(3,24,25,26,27)(1); +llserif(1,30,31,32,33)(2); +lrserif(2,34,35,36,37)(2); + +fill z5--z9--z7..z19..z20--z21--z17--z16..z15..z6--z8..z10..z11--z12--z14--z28--z29--z26--z25..z24..z3--z1..z30..z31--z32--z36--z35..z34..z2--z4--z5--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("U",5em#/6+2ss#,cap#,0); "The Letter U"; + +z1=(ss+userw,h-userh); +z2=z1+(thickstroke,0); +z3=z1-(0,2h/3); +z4=z3+(thickstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5 shifted (-thinstroke,0); +z7=z5-(0,2h/3); +z8=z7-(thinstroke,0); +z9=(w/2,0); +z10=z9+(0,.5thickstroke); + +ulserif(1,11,12,13,14)(1); +urserif(2,15,16,17,18)(1); +ulserif(6,19,20,21,22)(1); +urserif(5,23,24,25,26)(1); + +fill z3..{right}z9{right}..z7---z5..z23..z24--z25--z21--z20..z19..z6--z8{down}..{left}z10{left}..z4--z2..z15..z16--z17--z13--z12..z11..z1---z3---cycle; + +capu := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("V",5em#/6+2ss#,cap#,0); "The Letter V"; + +z1=(ss+userw,h-userh); +z2=z1+(slantwid,0); +z3=z1-(0,2h/3); +z4=z3+(thickstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5-(thinstroke,0); +z7=z5-(0,2h/3); +z8=z7-(thinstroke,0); +z9=(w/2,0); +z30=0.25[z9,z5]; +z10=z30-(thinstroke,0); + +ulserif(1,11,12,13,14)(1); +urserif(2,15,16,17,18)(1); +ulserif(6,19,20,21,22)(1); +urserif(5,23,24,25,26)(1); + +fill z9--z5..z23..z24--z25--z21--z20..z19..z6--z10--z2..z15..z16--z17--z13--z12--z11..z1--z9--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + + +endchar; + +beginchar("T",5em#/6+2ss#,cap#,0);"The Letter T"; + +seriftail=userw/5; + +z1=(ss+userh,h); +z2=z1-(0,thinstroke); +z3=(w-ss-userh,h); +z4=z3-(0,thinstroke); +z5=(w/2-thickstroke/2,y2); +z6=(w/2+thickstroke/2,y2); +z7=(x5,lserh); +z8=z7+(thickstroke,0); + +llserif(7,9,10,11,12)(1); +lrserif(8,13,14,15,16)(1); +tlsideserif(1,17,18,19,20); +trsideserif(3,21,22,23,24); + +pickup cappen; + +path tpath; +tpath = z7..z9..z10--z11--z15--z14..z13..z8--z6--z4---{down}z24..z23..tension 2..{up}z22{left}..{left}z21{down}..z3--z1..z17{left}..{left}z18{down}..tension 2..z19..z20{up}---z2--z5--z7--cycle; +fill tpath; + +capt := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("W",2ss#+2thickstroke#+thinstroke#+6userw#+2hair#,cap#,0);"The Letter W"; + +bottompoints=(w-2ss)/3; + +z1 = (ss+userw,h-userh); +z2 = z1 shifted (thickstroke,0); +z3 = z2 shifted (userw+hair+userw,0); +z4 = z3 shifted (thickstroke,0); +z5 = z4 shifted (userw+hair+userw+thinstroke,0); +z6 = z5 shifted (-thinstroke,0); +z7 = (w/3+thinstroke/2,0); +z8 = (2w/3+thinstroke/2,0); +z33=(w/2,3h/4); +z34=z8+(.4thinstroke,2.2thickstroke); +z35=z7+(0.4thinstroke,2.2thickstroke); +z36=0.96[z8,z3]; + +ulserif(1,9,10,11,12)(1); +urserif(2,13,14,15,16)(1); +ulserif(3,17,18,19,20)(1); +urserif(4,21,22,23,24)(1); +ulserif(6,25,26,27,28)(1); +urserif(5,29,30,31,32)(1); + +fill z8--z5..z29..z30--z31--z27--z26..z25..z6--z34--z4..z21..z22--z23--z19--z18..z17..z3--z36--z35--z2..z13..z14--z15--z11--z10..z9..z1--z7--z33--z8--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("N",5em#/6+2ss#,cap#,0); "The Letter N"; + +z1 = (ss+userw,h-userh); +z2=z1+(thinstroke,-0.3thickstroke); +z3 = (ss+lserw,lserh); +z4=z3+(thinstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5-(thinstroke,0); +z7=(w-ss-userw,-o); +z28=z7+(-thinstroke,2.5thickstroke); +z29=z27+(thickstroke/2,0); + +llserif(3,8,9,10,11)(1); +lrserif(4,12,13,14,15)(1); +ulserif(6,16,17,18,19)(1); +urserif(5,20,21,22,23)(1); +ulserif(1,24,25,26,27)(1); + +fill z7--z5..z20..z21--z22--z18--z17..z16..z6--z28--z29--z27--z26--z25..z24..z1--z3..z8..z9--z10--z14--z13..z12..z4--z2--z7--cycle; + +capn := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("C",5em#/6+ss#,cap#,0); "The Letter C"; + +z1=(w-ss-userh,h-userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userh,userh); +z4=z3+(0,thickstroke); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2+o); +z10=z9+(curvwid,0); +ctsideserif(1,11,12,13,14,2)(1); +ctsideserif(4,15,16,17,18,3)(2); + +pickup cappen; +path cbody; cbody=z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path cinbody; cinbody=z2..z6..z10..z8..z4; + +fill cinbody & botserif & cbody & topserif & cycle; + +capc := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("G",em#+2ss#,cap#,0); "The Letter G"; + +z1=(w-ss-userw-thickstroke/2,h-userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userw,2userh); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2); +z10=z9+(curvwid,0); +z4=z3-(thickstroke,0); +z11=(x3,h/2-userh); +z12=z11-(thickstroke,0); + +ulserif(12,15,16,17,18)(1); +urserif(11,19,20,21,22)(1); +ctsideserif(1,23,24,25,26,2)(1); + +path gbody; gbody = +z17--z21--z20..z19..z11--z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path ginbody; ginbody = z2..{left}z6{left}..{down}z10{down}..{right}z8{right}..z4--z12..z15..z16--z17; + +fill gbody & topserif & ginbody & cycle; + +capg := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("L",5em#/6+2ss#,cap#,0); "The Letter L"; + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +upsideserif(6,7,29); + +llserif(1,12,13,14,26)(1); +urserif(4,15,16,17,27)(1); +ulserif(3,18,19,20,28)(1); + +fill z5--z4..z16..z16--z17--z20--z19..z18..z3--z1..z12..z13--z14--z6--z7..z29..z30--z5--cycle; + +capl := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("E",5em#/6+2ss#,cap#,0); "The Letter E"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+lserw,h-lserh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(w/2,y16); +z22=(w/2,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); + +draw z21--z24; + +llserif(1,12,13,14,26)(1); +ulserif(3,18,19,20,28)(1); + +fill +z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle; + +cape := currentpicture; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("F",5em#/6+2ss#,cap#,0); "The Letter F"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,lserh); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(w/2,y16); +z22=(w/2,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); + +draw z21--z24; + +llserif(1,12,13,14,26)(1); +lrserif(5,31,32,33,34)(1); +ulserif(3,18,19,20,28)(1); + +fill z5--z17--z22..z25..z27--z24..z23..z21--z16--z4--z9..z11..z10--z8--z20--z19..z18..z3--z1..z12..z13--z14--z33--z32..z31..z5..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("K",5em#/6+2ss#,cap#,0); "The Letter K"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = z3 shifted (thickstroke,0); +z17=z3 shifted (thickstrike,0); +z22=z2 shifted (0,h/2+thinstroke-lserh); +z23=z2 shifted (0,h/2-lserh); +z24=(w-userw-ss,h); +z25=z24 shifted (-thinstroke/2-thinstroke,-userh); +z30=z25 shifted (thinstroke,0); +z35=0.08[z23,z30]; +z46=0.28[z23,z30]; +z37 = (w-ss-lserw,lserh); +z36 = z37 shifted (-thickstroke,0); + +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); +urserif(4,18,19,20,21)(1); +ulserif(25,26,27,28,29)(1); +urserif(30,31,32,33,34)(1); +lrserif(37,38,39,40,41)(1); +llserif(36,42,43,44,45)(1); + +fill +z1..z5..z6--z7--z16--z15--z14..z13..z2--z23--z35--z36..z42..z43--z44--z40--z39..z38..z37--z46--z23--z30..z31..z32--z33--z28--z27..z26..z25--z22--z4..z18..z19--z20--z21--z11--z10..z9..z3--z1--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("Y",5em#/6+2ss#,cap#,0); "The Letter Y"; + +z0 = (w/2-thickstroke/2,h/2); +z1 = (w/2+thickstroke/2,h/2); +z2 = (ss+userw,h-userh); +z3 = z2 shifted (thickstroke,0); +z4 = (w-ss-userw,h-userh); +z5 = z4 shifted (-thinstroke,0); +z6 = (w/2-thickstroke/2,lserh); +z7 = (w/2+thickstroke/2,lserh); +z8 = 0.8[z0,z1] shifted (0,lserh/2); + +lrserif(7,14,15,16,17)(1); +llserif(6,10,11,12,13)(1); +ulserif(2,18,19,20,21)(1); +urserif(3,22,23,24,25)(1); +ulserif(5,26,27,28,29)(1); +urserif(4,30,31,32,33)(1); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +fill +z0--z6..z10..z11--z12--z16--z15..z14..z7--z1--z4..z30..z31--z32--z24--z28--z27..z26..z5--z8--z3..z22..z23--z24--z20--z19..z18..z2--z0--cycle; + +capy := currentpicture; + +endchar; + +beginchar("Z",5em#/6+2ss#,cap#,0); "The Letter Z"; + +z0 = (ss+ssslant,h); +z1 = (w-ss,h); +z3 = (ss,0); +z4 = (w-ss-ssslant,0); +z9 = z0 shifted (lserw,-thinstroke); +z10 = z1 shifted (-1.2curvwid,-thinstroke); +z11 = z3 shifted (1.2curvwid,thinstroke); +z12 = z4 shifted (-lserw,thinstroke); + +lftdownsideserif(0,5,6); +upsideserif(4,7,8); + +fill z1--z0--z5..z6..z9--z10--z3--z4--z7..z8..z12--z11--z1--cycle; + +capz := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("S",(3(em#+2ss#)/4),cap#,0); "The Letter S"; + +z0 = (w/2,h+o/2); +z1 = (w/2,0-o/2); +z2 = (w-ss-userh-o,h-userh); +z3 = (w-ss,h/4); +z4 = (ss,3h/4); +z5 = (ss+userh-o,userh+thickstroke+o); +z14 = z0 shifted (0,-thinstroke); +z15 = z1 shifted (0,thinstroke); +z16 = z4 shifted (curvwid,0); +z17 = z3 shifted (-curvwid,0); +z18 = z2 shifted (0,-thickstroke); +z19 = z11 shifted (0,-thickstroke); +z20 = z5 shifted (0,-thickstroke); +z21 = z18 shifted (0,-userw/2); +z22 = z21 shifted (userh,0); +z23 = z22 shifted (0,2userw); +z24 = z23 shifted (-userh,0); +z25 = (w/2,h/2+1.2thinstroke/2); +z26 = (w/2,h/2-1.2thinstroke/2); + +ctbackserif(5,10,11,12,13,20)(2); + +pickup pencircle scaled 1; + +path outcurves; path incurves; path toprt; +outcurves = z2..tension 1.1..z0..tension + 1.1..z4..z26..z17..z15..tension 1.1..z5; +incurves = z20..tension 1.1..z1..tension + 1.1..z3..z25..z16..z14..tension 1.1..z18; +toprt = z18---z21..tension 2..z22---z23..tension 2..z24---z2; + +fill outcurves & botlftserif & incurves & toprt & cycle; + +caps := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar("X",5em#/6+2ss#,cap#,0); "The Letter X"; + +z0 = (w/2,h/2); +z1 = (ss+userw,h-userh); +z2 = (w-ss-userw,h-userh); +z3 = (ss+lserw,lserh); +z4 = (w-ss-lserw,lserh); +z5 = z1 shifted (slantwid,0); +z6 = z4 shifted (-slantwid,0); +z7 = z2 shifted (-thinstroke,0); +z8 = z3 shifted (thinstroke,0); +z41 = aa[z1,z6]; +z41 = ab[z7,z3]; +z42 = ac[z5,z4]; +z42 = ad[z7,z3]; +z43 = ae[z8,z2]; +z43 = af[z6,z1]; +z44 = ag[z8,z2]; +z44 = ah[z5,z4]; + +ulserif(1,9,10,11,12)(1); +urserif(5,13,14,15,16)(1); +ulserif(7,17,18,19,20)(1); +urserif(2,21,22,23,24)(1); +llserif(3,25,26,27,28)(1); +lrserif(8,29,30,31,32)(1); +llserif(6,33,34,35,36)(1); +lrserif(4,37,38,39,40)(1); + +fill z1--z41--z3..z25..z26--z27--z31--z30..z29..z8--z43--z6..z33..z34--z35--z39--z38..z37..z4--z44--z2..z21..z22--z23--z19--z18..z17..z7--z42--z5..z13..z14--z15--z11--z10..z9..z1--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"306",6em#/6+ss#,cap#,0); "The ligature AE"; + +z1=((w/2-(thickstroke/2)),lserh); +z2=((ss_userw+(thickstroke/2)),lserh); +z3=((w/2-(thickstroke/2)),(h-userh)); +z4=((w/2+(thickstroke/2)),(h-thinstroke)); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(0.6w,y16); +z22=(0.6w,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); +z28 = z1 shifted (0,-lserh); +z31 = z3 shifted (0,userh); +z40 = (ss+lserw,lserh); +z41 = z40 shifted (thinstroke,0); +z50 = z31 shifted (0,-1.6thinstroke); +z100 = (0,y15); +z101 = (0,y16); +z102 = (0,y17); +z51 = aaa[z50,z41]; +z51 = aab[z16,z101]; +z52 = aac[z50,z41]; +z52 = aad[z17,z102]; + +draw z21--z24; + +pickup pencircle scaled 2; + +llserif(40,42,43,44,45)(1); +lrserif(41,46,47,48,49)(1); + +fill +z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle; +fill z41..z46..z47--z48--z44--z43..z42..z40--z31--z50--cycle; +fill z51--z16--z17--z52--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55); +endchar; + +beginchar(oct"327",em#+ss#,cap#,0); "The ligature OE"; + +z1=((w/2-(thickstroke/2)),lserh); +z2=((ss_userw+(thickstroke/2)),lserh); +z3=((w/2-(thickstroke/2)),(h-userh)); +z4=((w/2+(thickstroke/2)),(h-thinstroke)); +z5=(x4,thinstroke); +z6=(w-o-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(0.6w,y16); +z22=(0.6w,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); +z28 = z1 shifted (0,-lserh); +z31 = z3 shifted (0,userh); +z50 = z31 shifted (0,-1.6thinstroke); +z40 = 0.5[z31,z28]; +z41 = (0,h/2); +z42 = (o,h/2); +z43 = z42 shifted (curvwid,0); +z44 = 0.5[z40,z41] shifted (curvwid/2,h/2+o/2); +z45 = 0.5[z40,z41] shifted (curvwid/2,-(h/2+o/2)); +z46 = z15 shifted (-curvwid,0); +z47 = z44 shifted (0,-thinstroke); +z48 = z45 shifted (0,thinstroke); + +fill +z1--z3--z31--z8--z10---z11..{left}z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30{right}..z29---z7--z6--z28--z1..cycle; +fill z44..z15..z45..z42..cycle; +unfill z43..z47..z46..z48..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55); +endchar; + +beginchar(oct"330",5em#/6+2ss#,cap#,0); "The Letter slash O"; + +currentpicture := capo; + +pickup pencircle scaled thinstroke; +bot lft z0 = (ss,0); +top rt z1 = (w-ss,h); + +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; + +beginchar(oct"336",(3(em#)/4),cap#,0); "The Letter Thorn"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+lserw,h-lserh); +z4 = z3 shifted (thickstroke,0); +z13=(x4,4h/5); +z14=z13 shifted (0,-thinstroke); +z15=(w-ss,h/2); +z16=z15-(curvwid,0); +z17=(x2,h/5); +z18=z17+(0,thinstroke); +z19=(w/2,h); +z20=z19-(0,thinstroke); +z21=(w/2,0); +z22=z21+(0,thinstroke); +z40 = z13 shifted (thickstroke,0); +z41 = z40 shifted (0,-thinstroke); +z42 = z17 shifted (thickstroke,0); +z43 = z42 shifted (0,thinstroke); + +llserif(1,5,6,7,8)(1); +lrserif(2,30,31,32,33)(1); +ulserif(3,9,10,11,12)(1); +urserif(4,34,35,36,37)(1); + +fill +z1..z5..z6--z7--z32--z31..z30..z2--z17--z42{right}..{up}z15{up}..{left}z40--z13--z4..z34..z35--z36--z11--z10..z9..z3--cycle; +unfill z18--z14--z41{right}..{down}z16{down}..{left}z43--z18--cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"215",em#+ss#/2,cap#,dep#); "The Letter NG"; + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thickstroke,0); +z2 = z1 shifted (ss+4lserw,0); +z3 = z2 shifted (thickstroke,0); +z20 = (ss+userw,h-userh); +z21 = z20 shifted (thickstroke,0); +z22 = z21 shifted (0,userh); +z23 = z21 shifted (ss+4userw,0); +z24 = z23 shifted (thickstroke,-thinstroke); +z29 = z20 shifted (0,userh); +z30 = z24 shifted (0,userh+thinstroke); +z31 = 0.5[z30,z29] shifted (0,o); +z32 = z31 shifted (0,-thinstroke); +z33 = z28 shifted (0,-userh); +z40 = z2; +z41 = z3; +%z49 = (x40-2userw,-dep); +z49 = (w/2,-dep); +z50 = z49 shifted (0,thinstroke); +z51 = (x8,-dep/3); +z56 = z21 shifted (0,-thinstroke); +z57 = z20 shifted (0,-thinstroke); +z58 = z23 shifted (0,-thinstroke); +z59 = z24 shifted (0,-thinstroke); + +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +ulserif(20,25,26,27,28)(1); +ulftbulb(51,52,53,54,55); + +fill +z6--z5..z4..z0--z20..z25..z26--z27--z28--z33--z57{dir +50}..{right}z31{right}..{down}z59--z3{down}..{left}z49{left}..{up}z51..z52..z53..{left}z54{down}..{right}z50{right}..{up}z2--z58..z32..z56--z1..z8..z9--z10--z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59); +endchar; + +beginchar(oct"320",em#+2ss#,cap#,0); "The Letter Eth"; + +currentpicture := capd; + +pickup pencircle scaled thinstroke; +lft z0 = (ss,h/2); +rt z1 = (w/2-ss,h/2); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui10.mf b/Master/texmf-dist/fonts/source/public/drm/drmui10.mf new file mode 100644 index 00000000000..a0f49f1f170 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmui10.mf @@ -0,0 +1,77 @@ +% +AMDG + +font_identifier:="drm"; font_size:=10pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=8pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant := 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.2pt#; +slantwid#=1.2pt#; +thickstroke#=1.0pt#; +thinstroke#=0.4pt#; +loopgap#=1.0pt#; +hair#=0.2pt#; +o#=0.1pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input itoldstydigs.mf; +input drmuiligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui11.mf b/Master/texmf-dist/fonts/source/public/drm/drmui11.mf new file mode 100644 index 00000000000..15df22c9893 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmui11.mf @@ -0,0 +1,77 @@ +% +AMDG + +font_identifier:="drm"; font_size:=11pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=9pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.3pt#; +slantwid#=1.3pt#; +thickstroke#=1.1pt#; +loopgap#=1.1pt#; +thinstroke#=0.5pt#; +o#=0.5thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input itoldstydigs.mf; +input drmuiligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui12.mf b/Master/texmf-dist/fonts/source/public/drm/drmui12.mf new file mode 100644 index 00000000000..7db99ed9a5c --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmui12.mf @@ -0,0 +1,77 @@ +% +AMDG + +font_identifier:="drm"; font_size:=12pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=10pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.4pt#; +slantwid#=1.4pt#; +thickstroke#=1.2pt#; +loopgap#=1.2pt#; +thinstroke#=0.5pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input itoldstydigs.mf; +input drmuiligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui14.mf b/Master/texmf-dist/fonts/source/public/drm/drmui14.mf new file mode 100644 index 00000000000..a85319bf9d5 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmui14.mf @@ -0,0 +1,77 @@ +% +AMDG + +font_identifier:="drm"; font_size:=14pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=12pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.6pt#; +slantwid#=1.6pt#; +thickstroke#=1.4pt#; +loopgap#=1.4pt#; +thinstroke#=0.6pt#; +o#=0.2thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input itoldstydigs.mf; +input drmuiligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui17.mf b/Master/texmf-dist/fonts/source/public/drm/drmui17.mf new file mode 100644 index 00000000000..63ce1005b18 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmui17.mf @@ -0,0 +1,77 @@ +% +AMDG + +font_identifier:="drm"; font_size:=17pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=15pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.9pt#; +slantwid#=1.9pt#; +thickstroke#=1.7pt#; +loopgap#=1.7pt#; +thinstroke#=0.8pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input itoldstydigs.mf; +input drmuiligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui24.mf b/Master/texmf-dist/fonts/source/public/drm/drmui24.mf new file mode 100644 index 00000000000..cc8988bdf1f --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmui24.mf @@ -0,0 +1,77 @@ +% +AMDG + +font_identifier:="drm"; font_size:=24pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=21pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=2.4pt#; +slantwid#=2.4pt#; +thickstroke#=2.2pt#; +loopgap#=1.7pt#; +thinstroke#=1.2pt#; +o#=0.0thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input itoldstydigs.mf; +input drmuiligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui6.mf b/Master/texmf-dist/fonts/source/public/drm/drmui6.mf new file mode 100644 index 00000000000..aa7257860d6 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmui6.mf @@ -0,0 +1,77 @@ +% +AMDG + +font_identifier:="drm"; font_size:=6pt#; font_coding_scheme "T1"; +pixels_per_inch:=2400; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=4pt#; +u#=2cap#/3; +em#=1.2cap#; +ex#=0.8cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.09u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.6pt#; +slantwid#=0.6pt#; +thickstroke#=0.6pt#; +loopgap#=0.6pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/16; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input itoldstydigs.mf; +input drmuiligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui7.mf b/Master/texmf-dist/fonts/source/public/drm/drmui7.mf new file mode 100644 index 00000000000..4042b8bcb79 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmui7.mf @@ -0,0 +1,77 @@ +% +AMDG + +font_identifier:="drm"; font_size:=7pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=5pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.7cap#; +dep#=cap#/3; +ss#=0.4pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.07u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.7pt#; +slantwid#=0.7pt#; +thickstroke#=0.7pt#; +loopgap#=0.7pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=3userw#; +accwid# = pwid#/8; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input itoldstydigs.mf; +input drmuiligs.mf; + +end; diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui8.mf b/Master/texmf-dist/fonts/source/public/drm/drmui8.mf new file mode 100644 index 00000000000..8d6eb304037 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmui8.mf @@ -0,0 +1,78 @@ +% +AMDG + +font_identifier:="drm"; font_size:=8pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=6pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.7u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.1u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=0.9pt#; +slantwid#=0.9pt#; +thickstroke#=0.8pt#; +loopgap#=0.8pt#; +thinstroke#=0.3pt#; +o#=0.1thinstroke#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=8asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input itoldstydigs.mf; +input drmuiligs.mf; + +end; + diff --git a/Master/texmf-dist/fonts/source/public/drm/drmui9.mf b/Master/texmf-dist/fonts/source/public/drm/drmui9.mf new file mode 100644 index 00000000000..24e5e39f488 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmui9.mf @@ -0,0 +1,78 @@ +% +AMDG + +font_identifier:="drm"; font_size:=9pt#; font_coding_scheme "T1"; +pixels_per_inch:=1200; +mode_setup; + +%%%% Define Dimensions for Whole Boxes %%%% + +phi=(1+sqrt5)/2; +cap#=7pt#; +u#=2cap#/3; +em#=cap#; +ex#=0.6cap#; +dep#=cap#/3; +ss#=0.2pt#; +asch#=12cap#/12; +digwid#=1ex#; +slant = 1/3; +font_slant slant; +font_normal_space 0.5u#; +font_normal_stretch 0.2u#; +font_normal_shrink 0.2u#; +font_x_height cap#/phi; +font_quad em#; +font_extra_space 0.5u#; + +penwidth#=0.01pt#; + +%%%% Define Dimensions for Letters %%%% + +curlw#=0.2u#; +curlh#=0.2u#; +define_pixels(curlw,curlh); +lserc#=0.08u#; +lserh#=lserc#+lserstep#; +lhigh#=0.3u#; +lserstep#=0.05u#; +userc#=0.08u#; +userh#=userc#+userstep#; +lserw#=0.2u#; +userw#=0.2u#; +userstep#=0.05u#; +bulbsh#=0.10u#; +curvwid#=1.0pt#; +slantwid#=0.9pt#; +thickstroke#=0.9pt#; +loopgap#=0.9pt#; +thinstroke#=0.4pt#; +o#=0.1pt#; +hair#=0.2pt#; +ssslant#=0.1u#; +dotwidth#=userw#-o#; +pwid#=2userw#; +accwid# = pwid#/8; +theight#=7asch#/8; +define_pixels(theight); + +define_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair,loopgap,dotwidth); +define_blacker_pixels(accwid,cap,u,em,ex,dep,ss,penwidth,lserh,userh,lhigh,lserw,bulbsh,userw,lserc,userc,lserstep,userstep,ssslant,curvwid,slantwid,pwid,hair); +define_blacker_pixels(thickstroke,thinstroke,penwidth,o,hair); + +pickup pencircle scaled penwidth; cappen:=savepen; +equalize=thickstroke/2-thinstroke/2; + +input drmcap.mf; +input drmitcap.mf; +input drmlowmac.mf; +input drmitlow.mf; +input drmpunct.mf; +input drmacc.mf; +input drmitacclet.mf; +input drmitpunct.mf; +input drmitdigs.mf; +input itoldstydigs.mf; +input drmuiligs.mf; + +end; + diff --git a/Master/texmf-dist/fonts/source/public/drm/drmuiligs.mf b/Master/texmf-dist/fonts/source/public/drm/drmuiligs.mf new file mode 100644 index 00000000000..f9baa3c0ec2 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/drmuiligs.mf @@ -0,0 +1,263 @@ +% +AMDG This document was begun on 19 August 2007, the Feast of St. John +% Eudes, and it is humbly dedicated to him and to the Immaculate Heart of Mary +% for their prayers, and to the Sacred Heart of Jesus for His mercy. + +% "j" =: oct"027"; +ligtable "f" : "f" =: oct"033","i" =: oct"034", + "l" =: oct"035","t" =: oct"040","e" kern-0.05u#; +ligtable oct"033" : "i" =: oct"036","l" =: oct"037"; +ligtable "-" : "-" =: oct"025"; +ligtable oct"025" : "-" =: oct"026"; +ligtable "`" : "`" =: oct"020"; +ligtable "'" : "'" =: oct"021"; +ligtable "?" : "`" =: oct"276"; +ligtable "!" : "`" =: oct"275"; + +ligtable "A" : oct"200" : oct "201" : oct"300" : oct"301" : + oct"302" : oct"303" : oct"304" : oct"305" : + "A" kern-0.1u#,"B" kern-0.1u#, + "C" kern-0.1u#,"D" kern-0.1u#,"E" kern-0.1u#, + "F" kern-0.1u#, "G" kern-0.2u#,"H" kern-0.1u#, + "I" kern-0.1u#,"J" kern-0.1u#,"K" kern-0.1u#, + "L" kern-0.1u#,"M" kern-0.1u#,"N" kern-0.1u#, + "O" kern-0.2u#,"P" kern-0.1u#,"Q" kern-0.1u#, + "R" kern-0.1u#,"S" kern-0.05u#,"T" kern-0.2u#, + "U" kern-0.2u#,"V" kern-0.2u#,"W" kern-0.2u#, + "X" kern-0.1u#,"Y" kern-0.2u#,"Z" kern-0.05u#, + "a" kern-0.1u#,"b" kern-0.3u#,"c" kern-0.1u#, + "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.2u#, + "g" kern-0.1u#,"h" kern-0.3u#,"i" kern-0.06u#, + "j" kern-0.05u#,"k" kern-0.3u#,"l" kern-0.2u#, + "m" kern-0.2u#,"n" kern-0.05u#,"o" kern-0.1u#, + "p" kern-0.15u#,"q" kern-0.1u#,"r" kern-0.2u#, + "s" kern-0.1u#,"t" kern-0.2u#,"u" kern-0.2u#, + "v" kern-0.15u#,"w" kern-0.15u#,"x" kern-0.2u#, + "y" kern-0.2u#; +ligtable "B" : "G" kern 0.1u#,"O" kern 0.1u#, + "Q" kern 0.1u#,"S" kern 0.1u#,"a" kern 0.1u#, + "c" kern 0.05u#,"d" kern 0.1u#,"e" kern 0.1u#, + "f" kern-0.05u#,"g" kern 0.1u#,"o" kern 0.1u#, + "q" kern 0.1u#,"s" kern 0.1u#,"c" kern 0.1u#, + "u" kern 0.1u#; +ligtable "C" : oct"202" : oct"203" : oct"307" : + "Z" kern 0.01u#,"f" kern-0.05u#, + "y" kern -0.1u#; +ligtable "D" : oct"204" : oct"320" : oct"336" : + "G" kern 0.05u#,"V" kern-0.05u#, + "W" kern-0.05u#,"X" kern-0.05u#,"Y" kern-0.05u#, + "b" kern-0.05u#,"f" kern-0.05u#,"h" kern-0.05u#, + "k" kern-0.05u#,"l" kern-0.05u#,"x" kern-0.05u#; +ligtable "E" : oct"205" : oct"206" : oct"306" : + oct"310" : oct"311" : oct"312" : oct"313" : + oct"327" : "f" kern-0.05u#,"u" kern-0.1u#, + "t" kern-0.1u#,"r" kern-0.1u#,"p" kern-0.1u#, + "m" kern-0.1u#; +ligtable "F" : "A" kern-0.1u#,"a" kern-0.1u#, + "c" kern-0.1u#,"d" kern-0.1u#,"e" kern-0.1u#, + "f" kern-0.1u#,"g" kern-0.1u#,"m" kern-0.2u#, + "n" kern-0.05u#,"o" kern-0.2u#,"p" kern-0.2u#, + "q" kern-0.1u#,"v" kern-0.1u#,"w" kern-0.1u#, + "r" kern-0.2u#,"s" kern-0.1u#,"t" kern-0.1u#, + "u" kern-0.2u#,"x" kern-0.2u#,"y" kern-0.2u#, + "z" kern-0.1u#; +ligtable "G" : oct"207" : "A" kern-0.1u#,"J" kern-0.05u#, + "b" kern-0.1u#,"f" kern-0.1u#,"h" kern-0.05u#, + "k" kern-0.1u#,"l" kern-0.05u#,"p" kern-0.05u#, + "r" kern-0.05u#,"t" kern-0.05u#,"u" kern-0.05u#, + "t" kern-0.05u#,"u" kern-0.1u#,"x" kern-0.05u#, + "y" kern-0.05u#; +ligtable "H" : "f" kern-0.2u#,"m" kern-0.05u#,"e" kern-0.05u#, + "o" kern-0.05u#,"p" kern-0.1u#,"r" kern-0.05u#, + "s" kern-0.05u#,"t" kern-0.1u#,"u" kern-0.1u#, + "x" kern-0.05u#,"y" kern-0.05u#; +ligtable "K" : "a" kern-0.1u#,"c" kern-0.1u#, + "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.1u#, + "g" kern-0.1u#,"m" kern-0.1u#,"p" kern-0.05u#, + "m" kern-0.1u#,"n" kern-0.1u#,"q" kern-0.1u#, + "r" kern-0.1u#,"s" kern-0.05u#,"t" kern-0.1u#, + "u" kern-0.1u#,"y" kern-0.3u#; +ligtable "L" : "f" kern-0.1u#,"h" kern-0.1u#, + "k" kern-0.1u#,"m" kern-0.1u#,"p" kern-0.1u#, + "r" kern-0.1u#,"u" kern-0.1u#,"y" kern-0.2u#; +ligtable "M" : "m" kern-0.05u#,"r" kern-0.05u#; +ligtable "N" : "a" kern-0.1u#,"c" kern-0.1u#, + "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.1u#, + "g" kern-0.1u#,"m" kern-0.1u#,"n" kern-0.1u#, + "o" kern-0.1u#,"p" kern-0.1u#,"q" kern-0.1u#, + "r" kern-0.1u#,"s" kern-0.1u#,"t" kern-0.1u#, + "x" kern-0.1u#,"y" kern-0.1u#,"z" kern-0.1u#; +ligtable "P" : "A" kern-0.1u#,"g" kern-0.05u#, + "y" kern-0.05u#,"o" kern-0.05u#,"q" kern-0.05u#, + "g" kern-0.05u#,"e" kern-0.05u#,"d" kern-0.05u#, + "c" kern-0.05u#; +ligtable "R" : "V" kern-0.05u#,"W" kern-0.05u#, + "b" kern-0.1u#,"f" kern-0.1u#,"g" kern-0.05u#, + "h" kern-0.1u#,"k" kern-0.1u#,"m" kern-0.1u#, + "r" kern-0.1u#,"u" kern-0.1u#,"y" kern-0.1u#, + "a" kern-0.1u#,"c" kern-0.1u#,"d" kern-0.1u#, + "e" kern-0.1u#,"o" kern-0.1u#,"p" kern-0.1u#, + "q" kern-0.1u#,"r" kern-0.1u#,"t" kern-0.1u#; +ligtable "S" : oct"221" : oct"222" : oct"223" : + "a" kern 0.05u#,"b" kern 0.05u#, + "c" kern 0.05u#,"d" kern 0.05u#,"e" kern 0.05u#, + "g" kern 0.05u#,"i" kern 0.05u#,"j" kern 0.05u#, + "k" kern 0.05u#,"l" kern 0.05u#,"n" kern 0.05u#, + "o" kern 0.05u#,"p" kern 0.05u#,"q" kern 0.05u#, + "s" kern 0.05u#,"t" kern 0.05u#,"v" kern 0.05u#, + "w" kern 0.05u#,"x" kern 0.05u#,"z" kern 0.05u#; +ligtable "T" : oct"224" : oct"225" : "A" kern -0.1u#, + "a" kern-0.3u#, + "c" kern-0.3u#,"d" kern-0.3u#,"e" kern-0.3u#, + "f" kern-0.1u#,"g" kern-0.3u#,"m" kern-0.3u#, + "n" kern-0.3u#,"o" kern-0.3u#,"p" kern-0.3u#, + "q" kern-0.3u#,"r" kern-0.3u#,"s" kern-0.3u#, + "t" kern-0.1u#,"u" kern-0.3u#,"v" kern-0.3u#, + "w" kern-0.3u#,"x" kern-0.3u#,"y" kern-0.3u#, + "z" kern-0.3u#; +ligtable "U" : oct"331" : oct"332" : oct"333" : + oct"334" : oct"226" : oct"227" : + "A" kern-0.05u#,"f" kern-0.05u#,"a" kern-0.05u#, + "c" kern-0.05u#,"d" kern-0.05u#,"e" kern-0.05u#, + "g" kern-0.05u#,"o" kern-0.05u#,"p" kern-0.05u#, + "q" kern-0.05u#,"r" kern-0.05u#,"s" kern-0.05u#, + "t" kern-0.05u#,"u" kern-0.05u#,"x" kern-0.05u#, + "y" kern-0.05u#,"z" kern-0.05u#; +ligtable "V" : "A" kern-0.2u#,"O" kern-0.2u#, + "a" kern-0.2u#,"c" kern-0.2u#,"d" kern-0.2u#, + "e" kern-0.2u#,"f" kern-0.2u#,"g" kern-0.2u#, + "p" kern-0.2u#,"q" kern-0.2u#,"x" kern-0.2u#, + "y" kern-0.2u#; +ligtable "W" : "A" kern-0.2u#,"O" kern-0.1u#, + "a" kern-0.1u#,"c" kern-0.1u#,"d" kern-0.1u#, + "e" kern-0.1u#,"f" kern-0.1u#,"g" kern-0.1u#, + "p" kern-0.1u#,"q" kern-0.1u#,"x" kern-0.1u#, + "y" kern-0.1u#; +ligtable "X" : "O" kern-0.2u#,"a" kern-0.1u#, + "c" kern-0.1u#,"d" kern-0.1u#,"e" kern-0.05u#, + "f" kern-0.2u#,"g" kern-0.05u#,"m" kern-0.1u#, + "n" kern-0.1u#,"p" kern-0.1u#,"q" kern-0.05u#, + "r" kern-0.2u#,"t" kern-0.1u#,"u" kern-0.1u#, + "y" kern-0.2u#; +ligtable "Y" : oct"335" : oct"230" : + "A" kern-0.1u#,"O" kern-0.05u#,"a" kern-0.2u#, + "c" kern-0.2u#,"d" kern-0.2u#,"e" kern-0.2u#, + "f" kern-0.1u#,"g" kern-0.2u#,"m" kern-0.2u#, + "n" kern-0.2u#,"o" kern-0.2u#,"p" kern-0.2u#, + "q" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.2u#, + "t" kern-0.1u#,"u" kern-0.2u#,"v" kern-0.2u#, + "w" kern-0.2u#,"x" kern-0.2u#,"y" kern-0.2u#, + "z" kern-0.2u#; +ligtable "Z" : oct"231" : oct"232" : oct"233" : + "A" kern-0.1u#,"a" kern-0.1u#,"c" kern-0.1u#, + "d" kern-0.1u#,"e" kern-0.1u#,"m" kern-0.1u#, + "o" kern-0.1u#,"q" kern-0.1u#,"r" kern-0.05u#, + "s" kern-0.05u#,"t" kern-0.05u#,"u" kern-0.05u#, + "x" kern-0.1u#; +ligtable "o" : "o" kern0.05u#,"e" kern0.05u#,"c" kern0.05u#, + "d" kern0.05u#,"e" kern0.05u#,"q" kern0.05u#, + "k" kern-0.2u#,"f" kern-0.05u#,"h" kern-0.2u#, + "r" kern-0.1u#; +ligtable "a" : oct"240" : oct"241" : oct"340" : oct"341" : + oct"342" : oct"343" : oct"344" : oct"345" : + "a" kern-0.1u#,"b" kern-0.2u#,"c" kern-0.1u#, + "d" kern-0.1u#,"e" kern-0.1u#,"f" kern-0.2u#, + "g" kern-0.1u#, "h" kern-0.2u#,"i" kern-0.1u#, + "j" kern-0.05u#, "k" kern-0.2u#,"l" kern-0.2u#, + "m" kern-0.2u#,"n" kern-0.1u#,"o" kern-0.1u#,"p" kern-0.2u#, + "q" kern-0.2u#,"r" kern-0.2u#,"s" kern-0.1u#, + "t" kern-0.2u#,"u" kern-0.2u#,"v" kern-0.1u#, + "w" kern-0.1u#,"x" kern-0.2u#,"y" kern-0.2u#, + "z" kern-0.1u#; +ligtable "b" : oct"376" : "b" kern-0.1u#,"f" kern-0.1u#, + "h" kern-0.2u#,"o" kern0.05u#,"l" kern-0.1u#, + "e" kern0.05u#,"c" kern0.05u#,"d" kern0.05u#, + "q" kern0.05u#,"k" kern-0.2u#,"x" kern-0.05u#, + "y" kern-0.05u#; +ligtable "c" : oct"347" : oct"242" : oct"243" : + "h" kern-0.1u#,"b" kern-0.1u#,"k" kern-0.1u#; +ligtable "d" : oct"244" : oct"236" : + "b" kern-0.1u#,"f" kern-0.1u#, + "g" kern-0.1u#,"h" kern-0.1u#,"i" kern-0.1u#, + "k" kern-0.1u#,"l" kern-0.05u#,"m" kern-0.1u#, + "n" kern-0.1u#,"p" kern-0.1u#,"r" kern-0.15u#, + "t" kern-0.1u#,"u" kern-0.1u#,"x" kern-0.1u#, + "y" kern-0.2u#; +ligtable "e" : oct"245" : oct"246" : oct"346" : oct"350" : + oct"351" : oct"352" : oct"353" : + "m" kern-0.1u#,"b" kern-0.1u#,"h" kern-0.1u#, + "k" kern-0.1u#; +ligtable "g" : oct"247" : "b" kern-0.1u#,"k" kern-0.1u#, + "h" kern-0.1u#; +ligtable "h" : oct"136" : "b" kern-0.1u#,"f" kern-0.1u#, + "h" kern-0.1u#,"k" kern-0.1u#,"l" kern-0.1u#, + "p" kern-0.1u#,"r" kern-0.1u#,"t" kern-0.1u#, + "u" kern-0.1u#,"x" kern-0.1u#,"y" kern-0.1u#; +ligtable "i" : "f" kern-0.1u#,"m" kern-0.1u#; +ligtable "j" : "a" kern-0.1u#,"b" kern-0.1u#, + "c" kern-0.1u#,"d" kern-0.1u#,"e" kern-0.1u#, + "f" kern-0.1u#,"g" kern-0.1u#,"h" kern-0.1u#, + "k" kern-0.1u#,"m" kern-0.1u#,"n" kern-0.1u#, + "o" kern-0.1u#,"p" kern-0.1u#,"q" kern-0.1u#, + "t" kern-0.1u#,"u" kern-0.1u#,"x" kern-0.1u#, + "y" kern-0.1u#,"z" kern-0.1u#; +ligtable "k" : "b" kern-0.2u#,"f" kern-0.1u#, + "h" kern-0.2u#,"k" kern-0.1u#,"l" kern-0.1u#; +ligtable "l" : "m" kern-0.1u#,"y" kern-0.1u#; +ligtable "m" : "b" kern-0.2u#,"f" kern-0.1u#, + "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.1u#, + "m" kern-0.1u#,"p" kern-0.1u#,"r" kern-0.1u#, + "u" kern-0.1u#,"y" kern-0.2u#; +ligtable "n" : oct"253" : oct"254" : oct"255" : + oct"361" : "f" kern-0.1u#,"h" kern-0.1u#, + "k" kern-0.1u#,"p" kern-0.05u#,"u" kern-0.05u#, + "y" kern-0.05u#,"m" kern-0.1u#,"r" kern-0.1u#; +ligtable "p" : "b" kern-0.2u#,"f" kern-0.05u#, + "h" kern-0.1u#,"k" kern-0.2u#,"x" kern-0.05u#; +ligtable "q" : "a" kern-0.2u#,"b" kern-0.4u#, + "c" kern-0.2u#,"d" kern-0.2u#,"e" kern-0.2u#, + "h" kern-0.4u#,"k" kern-0.4u#,"l" kern-0.3u#, + "m" kern-0.2u#,"n" kern-0.2u#,"o" kern-0.2u#, + "p" kern-0.2u#,"s" kern-0.1u#,"v" kern-0.1u#, + "q" kern-0.2u#,"r" kern-0.2u#,"t" kern-0.2u#, + "u" kern-0.2u#,"x" kern-0.2u#,"w" kern-0.1u#, + "z" kern-0.1u#; +ligtable "r" : "b" kern-0.2u#,"h" kern-0.2u#, + "k" kern-0.2u#,"l" kern-0.1u#; +ligtable "t" : "b" kern-0.1u#,"h" kern-0.1u#,"k" kern-0.1u#; +ligtable "s" : "k" kern-0.1u#,"h" kern-0.1u#, + "b" kern-0.1u#; +ligtable "u" : oct"371" : oct"372" : oct"373" : oct"374" : + oct"266" : oct"267" : "b" kern-0.2u#,"c" kern-0.1u#,"d" kern-0.1u#, + "f" kern-0.2u#,"h" kern-0.2u#,"i" kern-0.1u#,"j" kern-0.05u#, + "k" kern-0.2u#,"l" kern-0.2u#,"m" kern-0.2u#, + "n" kern-0.1u#,"o" kern-0.1u#,"p" kern-0.2u#,"q" kern-0.1u#, + "r" kern-0.2u#,"t" kern-0.15u#,"u" kern-0.2u#,"v" kern-0.05u#, + "x" kern-0.1u#,"y" kern-0.2u#; +ligtable "v" : "a" kern 0.1u#,"c" kern 0.1u#, + "d" kern 0.1u#,"o" kern 0.1u#,"q" kern 0.1u#, + "s" kern 0.1u#,"v" kern0.1u#,"w" kern 0.1u#, + "e" kern 0.1u#,"h" kern-0.1u#; +ligtable "w" : "a" kern 0.1u#,"c" kern 0.1u#, + "d" kern 0.1u#,"o" kern 0.1u#,"q" kern 0.1u#, + "s" kern 0.1u#,"v" kern0.1u#,"w" kern 0.1u#, + "e" kern 0.1u#,"h" kern-0.1u#,"k" kern-0.1u#, + "b" kern-0.1u#; +ligtable "x" : "f" kern-0.1u#,"h" kern-0.2u#,"b" kern-0.2u#, + "k" kern-0.2u#,"t" kern-0.1u#,"l" kern-0.1u#, + "y" kern-0.1u#; +ligtable "y" : oct"375" : oct"270" : "a" kern 0.05u#, + "g" kern 0.05u#, + "n" kern 0.05u#,"m" kern 0.05u#,"o" kern 0.05u#, + "q" kern 0.05u#,"r" kern 0.05u#,"s" kern 0.05u#, + "v" kern 0.05u#,"w" kern 0.05u#,"z" kern 0.05u#; +ligtable "z" : oct"271" : oct"272" : oct"273" : + "a" kern-0.05u#,"b" kern-0.2u#, + "c" kern-0.05u#,"d" kern-0.05u#,"e" kern-0.05u#, + "h" kern-0.2u#,"k" kern-0.2u#,"l" kern-0.1u#; +ligtable "(" : "a" kern-0.15u#, "c" kern-0.15u#, + "d" kern-0.15u#,"e" kern-0.15u#,"g" kern-0.15u#, + "i" kern-0.15u#,"j" kern-0.15u#,"m" kern-0.15u#, + "n" kern-0.15u#,"o" kern-0.15u#,"q" kern-0.15u#, + "s" kern-0.15u#,"t" kern-0.15u#,"u" kern-0.15u#, + "v" kern-0.15u#,"w" kern-0.15u#,"x" kern-0.15u#, + "z" kern-0.15u#; diff --git a/Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf b/Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf new file mode 100644 index 00000000000..5fe086cf2cf --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/itoldstydigs.mf @@ -0,0 +1,298 @@ +% +AMDG This document was begun on 9 June 11EX, the +% commemoration of Ss. Primus and Felicianus, M, and it is +% humbly dedicated to them and to the Immaculate Heart of +% Mary for their prayers, and to the Sacred Heart of Jesus +% for His mercy. + + +beginchar("1",0.6ex#+2ss#,ex#,0); "The digit 1"; +italcorr(ex#*slant); + +pickup pencircle scaled thinl; +penpos0(thickl,0); +z0 = (w/2,h); +penpos1(thinl,-90); +z1 = (w/2-2curlw,h-2curlh); +penpos2(thickl,0); +z2 = (w/2,0); + +penstroke z1e{right}..{up}z0e; +penstroke z0e--z2e; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("2",digwid#+2ss#,cap#,0); "The digit 2"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0 = (w/2,5h/6); +penpos1(thinl,0); +z1 = (3w/5,3h/4); +penpos2(thinl,-90); +z2 = (w/2,3h/5); +penpos3(thinl,180); +z3 = (2w/5,(y0l+y2l)/2); +penpos4(thickl,180); +z4r = (ss,3h/4); +penpos5(thinl,90); +z5r = (w/2,h+o); +penpos6(thickl,0); +z6r = (w-ss,y4); +penpos8(0.7thickl,-45); +z8 = (w/2,2h/5); +penpos7(thinl,-90); +z7r = (ss,0-o); +penpos9(1.75thinl,-90); +z9r = (w/3,y7l); +penpos10(2thinl,-90); +z10r = (2w/3,0-o); +penpos11(thickl,-90); +z11r = (w-ss,y10); + +penstroke z3e..z0e..z1e..z2e..z4e..z5e..z6e..z8e..z7e; +penstroke z7e..z9e..z10e..z11e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("3",digwid#+2ss#,cap#,dep#); "The digit 3"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,3h/4); +penpos1(thinl,-90); +z1l = (w/2,h+o); +penpos2(thickl,180); +z2l = (w-ss,3h/4); +penpos3(thinl,90); +z3 = (w/2,h/2); +penpos4(thickl,0); +z4r = (w-ss,h/4); +penpos5(thinl,-90); +z5r = (w/2,0-o); +penpos6(thickl,180); +z6r = (ss,h/4); +penpos7(1.5thinl,90); +z7 = z0 shifted (curlw,-curlh); +penpos8(thinl,180); +z8 = z7 shifted (curlw,curlh); +penpos9(thinl,-90); +z9 = z8 shifted (-curlw/2,curlh/2); +penpos10(1.5thinl,90); +z10 = z6 shifted (curlw,curlh); +penpos11(thinl,0); +z11 = z10 shifted (curlw,-curlh); +penpos12(thinl,-90); +z12 = z11 shifted (-curlw/2,-curlh/2); + +penstroke z9e..z8e..z7e..z0e{up}..z1e..z2e..z3e; +penstroke z3e..z4e..z5e..{up}z6e..z10e..z11e..z12e; + +picture three; three := currentpicture; +currentpicture := three shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("4",digwid#+2ss#,cap#,0); "The digit 4"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0r = (5w/6,h+o); +penpos1(thickl,0); +z1r = (5w/6,0); +penpos2(thickl,0); +z2r = (0.6w,h+o); +penpos3(thickl,0); +z3l = (ss,h/3); +penpos4(thinl,-45); +z4l = z3l; +penpos5(thinl,-45); +z5 = (w-ss,y4); +penpos6(thickl,0); +z6 = 0.25[z3,z2]; +z8 = (x1,y3); +penpos7(thickl,0); +z7 = 0.15[z8,z0]; +penpos9(0.75thickl,0); +z9 = 0.65[z3,z2]; +penpos10(0.75thickl,0); +z10 = 0.5[z8,z0]; +penpos11(0.5thickl,0); +z11 = 0.9[z3,z2]; +penpos12(0.5thickl,0); +z12 = 0.8[z8,z0]; +penpos13(thinl,0); +z13 = z2; +penpos14(thinl,0); +z14 = z0; + +penstroke z3e--z6e--z9e--z11e--z13e; +penstroke z1e--z7e--z10e--z12e--z14e; +penstroke z4e--z5e; + +picture four; four := currentpicture; +currentpicture := four shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("5",digwid#+2ss#,cap#,0); "The digit 5"; +italcorr(ex#*slant); + +penpos0(thickl,90); +z0r = (w-ss-thickl/2,h+o); +penpos1(thickl,90); +z1r = (ss+thickl/2,h+o); +penpos2(thickl,90); +z2 = (ss+thickl/3,h/2); +penpos3(thickl,0); +z3r = (w-ss,h/3); +penpos4(thinl,-90); +z4r = (w/2,0-o); +penpos5(thickl,180); +z5r = (ss,h/5); +penpos6(thinl,0); +z6l = z1l; +penpos7(thinl,0); +z7l = z2r; +penpos8(1.5thinl,90); +z8 = z5 shifted (curlw,curlh); +penpos9(thinl,0); +z9 = z8 shifted (curlw,-curlh); + +penstroke z0e--z1e--z2e; +penstroke z6e--z7e; +penstroke z2e..z3e..z4e..z5e..z8e..z9e; + +picture five; five := currentpicture; +currentpicture := five shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("6",digwid#+2ss#,cap#,0); "The digit 6"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (2w/3,h+o); +penpos1(2thinl,180); +z1r = (ss+thinl,2h/3); +penpos2(thickl,180); +z2r = (ss,ex/2); +penpos3(thinl,-90); +z3r = (w/2,0-o); +penpos4(thickl,0); +z4r = (w-ss,ex/2); +penpos5(thinl,90); +z5r = (w/2,ex+o); +penpos6(thinl,0); +z6l = z0l; +penpos7(thinl,-90); +z7l = z6l; +penpos8(thinl,180); +z8l = z7l; + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("9",0.9ex#+2ss#,cap#,0); "The digit 9"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0l = (w/3,0-o); +penpos1(2thinl,180); +z1l = (w-ss-thinl,h/3); +penpos2(thickl,180); +z2l = (w-ss,h-ex/2); +penpos3(thinl,90); +z3l = (w/2,h-ex-o); +penpos4(thickl,0); +z4l = (ss,h-ex/2); +penpos5(thinl,-90); +z5l = (w/2,h+o); + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +picture nine; nine := currentpicture; +currentpicture := nine shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("7",digwid#+2ss#,cap#,0); "The digit 7"; +italcorr(ex#*slant); + +penpos0(thickl,90); +z0r = (ss,h+o); +penpos1(thickl,90); +z1r = (w-ss,h+o); +penpos2(1.5thinl,180); +z2 = (w/3,h/2); +penpos3(thickl,180); +z3r = (w/3,0); +penpos4(thinl,45); +z4 = (ss,h/2); +penpos5(thinl,45); +z5 = 2[z4,z2] shifted (thickl,thickl); +penpos6(thinl,45); +z6 = z4 shifted (0,thickl); + +penstroke z0e--z1e; +penstroke z1e..z2e..z3e; +penstroke z6e--z5e; + +picture seven; seven := currentpicture; +currentpicture := seven shifted (0,-dep); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("8",digwid#+2ss#,cap#,0); "The digit 8"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (w/2,h+o); +penpos1(1.75thinl,0); +z1r = (w-ss,3h/4); +penpos2(1.75thinl,0); +z2l = (ss,h/4); +penpos3(thickl,180); +z3r = (ss,3h/4); +penpos4(thickl,180); +z4l = (w-ss,h/4); +penpos5(thinl,90); +z5l = (w/2,0-o); +penpos6(thinl,-45); +z6 = (w/2,h/2); +penpos7(thickl/2,-135); +z7 = z6; + +penstroke +z0e{right}..{down}z1e{down}..z6e..{down}z2e{down}..{right}z5e{right}..{up}z4e{up}..z7e..{up}z3e{up}..{right}cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("0",0.9ex#+2ss#,ex#,0); "The digit 0"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (w/2,h+o); +penpos1(thickl,0); +z1r = (w-ss,h/2); +penpos2(thinl,-90); +z2r = (w/2,0-o); +penpos3(thickl,180); +z3r = (ss,h/2); + +penstroke z0e..z1e..z2e..z3e..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/matharrows.mf b/Master/texmf-dist/fonts/source/public/drm/matharrows.mf new file mode 100644 index 00000000000..66eeef38f11 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/matharrows.mf @@ -0,0 +1,46 @@ +% +AMDG This document was begun on 2 July 11EX, the feast +% of the Visitation of the Blessed Virgin Mary and the +% Commemoration of Sts. Processus and Martinian, MM, and it +% is humbly dedicated to them and to the Immaculate Heart of +% Mary for their prayers, and to the Sacred Heart of Jesus +% for His mercy. + +beginchar(oct"050",1.5em#,asch#,0); "Leftward upper arrow"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,h/2); +top z1 = (0.4w,h); +rt z2 = (w-ss,y0); +z3 = z1 shifted (0,-3h/8); + +path shaft; shaft = z2--z0; +path head; head = z0{z3-z0}..{up}z1; +draw shaft; draw head; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"051",1.5em#,asch#,0); "Leftward lower arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft; +draw head reflectedabout ((0,h/2),(w,h/2)); + +endchar; + +beginchar(oct"052",1.5em#,asch#,0); "Rightward upper arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft; +draw head reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"053",1.5em#,asch#,0); "Rightward lower arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft; +draw head reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); + +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/mathcursell.mf b/Master/texmf-dist/fonts/source/public/drm/mathcursell.mf new file mode 100644 index 00000000000..12e91e232a6 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/mathcursell.mf @@ -0,0 +1,27 @@ +% +AMDG This document was begun on 3 July 11EX, the feast +% of St. Irenaeus, EM, and it is humbly dedicated to him and +% to the Immaculate Heart of Mary for their prayers, and to +% the Sacred Heart of Jesus for His mercy. + +beginchar(oct"140",0.6ex#+2ss#,asch#,0); "Cursive l"; +italcorr(asch#*slant); + +penpos0(thinl,0); +z0l = (ss,0); +penpos1(thinl,0); +z1r = (w-ss,3h/4); +penpos2(1.5thinl,90); +z2r = (w/2,h+o); +penpos3(thickl,180); +z3r = (ss,3h/4); +penpos4(thickl,180); +z4l = (w-ss,0); +penpos5(thickl,180); +z5 = (w/2,h/4); +penpos6(thinl,0); +z6 = z5; + +penstroke z0e..z6e..z1e..z2e..z3e..z5e..z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/mathgrklow.mf b/Master/texmf-dist/fonts/source/public/drm/mathgrklow.mf new file mode 100644 index 00000000000..50bfd0fec54 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/mathgrklow.mf @@ -0,0 +1,728 @@ +% +AMDG This document was begun on 26 June 11EX, the +% Commemoration of St. Paul and St. Peter, and it is humbly +% dedicated to them and to the Immaculate Heart of Mary for +% their prayers, and to the Sacred Heart of Jesus for His +% mercy. + +beginchar(oct"013",ex#+2ss#,ex#,0); "The letter alpha"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +penpos0(thinl,90); +bot z0 = (w-ss,0-o); +penpos1(thinl,90); +bot z1 = (w-ss-w/12,0-o); +penpos2(thickl,45); +z2r = z1r; +penpos3(thickl,0); +z3r = (x1r,h/2); +penpos4(thinl,90); +z4r = (w/2,h+o); +penpos5(thickl,180); +z5r = (ss,h/2); +penpos6(thinl,270); +z6r = (w/2,0-o); +penpos7(thinl,270); +z7l = (w-ss,h); +penpos8(thickl,0); +z8 = z3; + +penstroke z0e..z1e..z2e---z3e..z4e..z5e..z6e..{up}z8e{up}..{right}z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"014",ex#+2ss#,asch#,dep#); "The letter beta"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,-dep); +penpos1(thickl,0); +z1l = (ss+hair,0); +penpos2(thickl,0); +z2l = (ss+hair,3h/4); +penpos3(thinl,-90); +z3l = (w/2,h+o); +penpos4(curvl,180); +z4l = (w-ss-hair,y2); +penpos5(thinl,90); +z5 = (x2r,h/2); +penpos6(curvl,0); +z6r = (w-ss,h/4); +penpos7(thinl,-90); +z7r = z1r; + +penstroke z0e..z1e..z2e..z3e..z4e..{left}z5e;% +penstroke z5e{right}..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"015",1.2ex#+2ss#,ex#,dep#); "The letter gamma"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,3h/4); +penpos1(thinl,-135); +z1l = (w/4,h+o); +penpos2(thickl,200); +z2 = (w/2,0); +penpos3(thickl,180); +z3 = (w/3,-dep); +penpos4(thinl,135); +z4l = (w-ss,h); +penpos5(thickl,135); +z5 = z2; + +penstroke z0e..z1e{dir 0}..z2e..z3e;% +penstroke z5e{dir 45}..z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"016",ex#+2ss#,asch#,0); "The letter delta"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0r = (w-ss,4h/5); +penpos1(thinl,90); +z1r = (w/2,h+o); +penpos2(thickl,180); +z2r = (w/4,4h/5); +penpos3(curvl,180); +z3l = (w-ss,h/4); +penpos4(thinl,90); +z4l = (w/2,0-o); +penpos5(curvl,0); +z5l = (ss,h/4); +penpos6(thinl,-90); +z6 = (w/2,h/2); + +penstroke z0e..z1e..z2e..{down}z3e..z4e..z5e..z6e..z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"017",0.8ex#+2ss#,ex#,0); "The letter epsilon"; +italcorr(ex#*slant); + +penpos0(thinl,-90); +z0l = (w-ss,h+o); +penpos1(curvl,0); +z1l = (ss,h/2); +penpos2(thinl,90); +z2l = (w-ss,0-o); +penpos4(1.5thinl,45); +z4 = z1; +penpos3(1.5thinl,45); +x3r = w-ss; y3r = y4r; + +penstroke z0e{left}..{down}z1e{down}..{right}z2e; +penstroke z3e--z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"020",ex#+2ss#,asch#,dep#); "The letter zeta"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0 = (w/2,h+o); +penpos1(1.5thinl,90); +z1 = (3w/4,6h/8); +penpos2(1.5thinl,180); +z2l = (w-ss,7h/8); +penpos3(1.5thinl,-90); +z3 = (x1,15h/16); +penpos4(curvl,0); +z4l = (ss,h/2); +penpos5(curvl,90); +z5l = (w/2,0-o); +penpos6(1.5thinl,0); +z6r = (w-ss,-dep/3); +penpos7(thickl,-90); +z7r = (w/2,-dep); + +penstroke z0e..z1e..z2e..z3e{left}..z4e..{right}z5e{right}..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"021",ex#+2ss#,ex#,dep#); "The letter eta"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,4h/5); +penpos1(thinl,-90); +z1l = (x0r+hair,h+o); +penpos3(thickl,180); +z3r = (x1r+hair,3h/4); +penpos2(thickl,180); +z2r = (x3r,0); +penpos5(thickl,0); +z5r = (w-ss,3h/4); +penpos4(thinl,90); +z4r = ((x3+x5)/2,h+o); +penpos6(thickl,0); +z6 = (x5,-dep); + +penstroke z0e..z1e..z3e---z2e; +penstroke z2e---z3e..z4e..z5e---z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"022",ex#+2ss#,asch#,0); "The letter theta"; +italcorr(ex#*slant); + +penpos0(curvl,0); +z0l = (ss,h/2); +penpos1(thinl,-90); +z1l = (w/2,h+o); +penpos2(curvl,180); +z2l = (w-ss,h/2); +penpos3(thinl,90); +z3l = (w/2,0-o); +penpos4(1.5thinl,90); +z4 = z0; +penpos5(1.5thinl,90); +z5 = z2; + +penstroke z0e..z1e..z2e..z3e..cycle; +penstroke z4e--z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"023",0.4ex#+2ss#,ex#,0); "The letter iota"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,h); +penpos1(thickl,0); +z1l = (ss,h/5); +penpos2(thinl,90); +z2l = (x1r+hair,0-o); +penpos3(1.5thinl,180); +z3r = (x2r+hair,y1); + +penstroke z0e---z1e..z2e..{up}z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"024",ex#+2ss#,ex#,0); "The letter kappa"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,h); +penpos1(thickl,0); +z1l = (ss,0); +penpos3(1.5thinl,0); +z3r = (w-ss-1.5thinl,h+o); +penpos4(1.5thinl,-90); +z4 = (x0r,h/2); +penpos5(thickl,0); +z5r = (3w/4,h/5); +penpos6(1.5thinl,45); +z6 = (w/2,h/2); +penpos7(thinl,90); +z7 = z4; +penpos8(1.5thinl,90); +z8l = (x5r+hair,0-o); +penpos9(1.5thinl,180); +z9l = (w-ss,h/5); + +penstroke z0e--z1e; +penstroke z3e--z4e; +penstroke z7e..z6e..z5e..z8e..z9e; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"025",ex#+2ss#,asch#,0); "The letter lambda"; +italcorr(ex#*slant); + +penpos0(1.5thinl,0); +z0l = (ss,0); +penpos1(1.5thinl,-45); +z1 = (w/2,h/2); +penpos2(thickl,0); +z2l = (ss,h); +penpos3(thickl,45); +z3 = z1; +penpos4(thickl,0); +z4r = (w-ss,0); + +penstroke z2e{down}..z3e..z4e; +penstroke z0e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"026",ex#+2ss#,ex#,dep#); "The letter mu"; +italcorr(ex#*slant); + +penpos0(thickl,180); +z0r = (ss,-dep); +penpos1(thickl,180); +z1r = (ss,h); +penpos2(thickl,180); +z2r = (ss,curlh); +penpos4(thickl,0); +z4l = (w-ss-2curlw,y2); +penpos5(thickl,0); +z5l = (w-ss-2curlw,h); +penpos3(thinl,-90); +z3r = ((x2+x4)/2,0-o); +botcurl(4,6,7); + +penstroke z0e--z1e; +penstroke z1e---z2e..z3e..z4e---z5e; +penstroke z5e--z4e..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"027",1.2ex#+2ss#,ex#,0); "The letter nu"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0 = (ss+2curlw,h-curlh); +topcurl(0,1,2); +penpos3(1.5thinl,45); +x3r = x0r; y3l = 0-o; +penpos4(thickl,180); +z4l = (w-ss,h-thinl); +penpos5(1.5thinl,-90); +z5r = z4r; +penpos6(thinl,0); +z6r = z5r; +penpos7(thinl,90); +z7r = z6r; +penpos8(1.5thinl,45); +z8r = z3r; + +penstroke z2e..z1e..z0e---z8e; +penstroke z8e..z3e{right}..{up}z4e; +penstroke z4e..z5e..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"030",ex#+2ss#,asch#,dep#); "The letter xi"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0 = (w/2,h+o); +penpos1(1.5thinl,90); +z1 = (3w/4,6h/8); +penpos2(1.5thinl,180); +z2l = (w-ss,7h/8); +penpos3(1.5thinl,-90); +z3 = (x1,15h/16); +penpos4(curvl,0); +z4l = (ss,3h/4); +penpos5(thinl,90); +z5 = (w/2,h/2-thinl); +penpos6(thinl,180); +z6 = (w/2+thickl,h/2); +penpos7(thinl,-90); +z7 = (w/2,h/2+thinl); +penpos8(curvl,0); +z8l = (ss,h/4); +penpos12(curvl,90); +z12l = (w/2,0-o); +penpos13(1.5thinl,0); +z13r = (w-ss,-dep/3); +penpos14(thickl,-90); +z14r = (w/2,-dep); + +penstroke +z0e..z1e..z2e..z3e{left}..z4e..z5e..z6e..z7e..z8e..{right}z12e{right}..z13e..z14e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"031",ex#+2ss#,ex#,0); "The letter pi"; +italcorr(ex#*slant); + +penpos0(1.5thinl,0); +z0 = (2w/3,h); +penpos1(1.5thinl,0); +z1 = (w/3,h); +penpos2(thickl,0); +z2 = (w/4,0); +penpos3(thickl,0); +z3 = (3w/4,0); +penpos4(thinl,90); +z4 = (ss,h-curlh); +penpos5(thickl,90); +z5r = (ss+curlw,h+o); +penpos6(thickl,90); +z6r = (w-ss,h+o); + +penstroke z4e..z5e---z6e; +penstroke z1e{down}..z2e; +penstroke z0e{down}..z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"032",ex#+2ss#,ex#,dep#); "The letter rho"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,-dep); +penpos1(thickl,0); +z1l = (ss,h/2); +penpos2(thinl,-90); +z2l = (w/2,h+o); +penpos3(curvl,180); +z3l = (w-ss,h/2); +penpos4(thinl,90); +z4l = (w/2,0-o); + +penstroke z0e---z1e..z2e..z3e..z4e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"033",ex#+2ss#,ex#,0); "The letter sigma"; +italcorr(ex#*slant); + +penpos0(1.5thinl,-90); +z0l = (w,h+o); +penpos1(thickl,0); +z1l = (ss,h/2); +penpos2(thinl,-90); +z2l = (w/2,h+o); +penpos3(curvl,180); +z3l = (w-ss,h/2); +penpos4(thinl,90); +z4l = (w/2,0-o); +penpos5(1.5thinl,-90); +z5l = z2l; + +penstroke z1e..z2e..z3e..z4e..cycle; +penstroke z1e..z5e---z0e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"034",ex#+2ss#,ex#,0); "The letter tau"; +italcorr(ex#*slant); + +penpos0(1.5thinl,0); +z0 = (w/2,h); +penpos1(1.5thinl,0); +z1 = (w/2,0); +penpos4(thinl,90); +z4 = (ss,h-curlh); +penpos5(thickl,90); +z5r = (ss+curlw,h+o); +penpos6(thickl,90); +z6r = (w-ss,h+o); + +penstroke z4e..z5e---z6e; +penstroke z0e{down}..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"035",1.2ex#+2ss#,ex#,0); "The letter upsilon"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0 = (ss+2curlw,h-curlh); +topcurl(0,1,2); +penpos3(1.5thinl,90); +x3r = w/2; y3l = 0-o; +penpos4(thickl,180); +z4l = (w-ss,h-thinl); +penpos5(1.5thinl,-90); +z5r = z4r; +penpos6(thinl,0); +z6r = z5r; +penpos7(thinl,90); +z7r = z6r; +penpos8(1.5thinl,90); +z8r = z3r; +penpos9(1.5thinl,0); +z9 = (x0,curlh); + +penstroke z2e..z1e..z0e{down}..z9e..{right}z8e{right}..{up}z4e; +penstroke z4e..z5e..z6e..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"036",1.2ex#+2ss#,asch#,dep#); "The letter phi"; +italcorr(ex#*slant); + +penpos1(thickl,0); +z1l = (ss,ex/2); +penpos2(thinl,-90); +z2l = (w/2,ex+o); +penpos3(curvl,180); +z3l = (w-ss,ex/2); +penpos4(thinl,90); +z4l = (w/2,0-o); + +penstroke z1e..z2e..z3e..z4e..cycle; +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z5 = (ss,-dep); +draw z0--z5; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"037",1.4ex#+2ss#,ex#,dep#); "The letter chi"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (ss,h-curlh); +penpos1(thickl,90); +z1r = (ss+curlw,h); +penpos2(thickl,0); +z2 = (w/2,(h+dep)/2-dep); +penpos3(thickl,90); +z3l = (w-ss-curlw,-dep); +penpos4(thinl,90); +z4l = (w-ss,-dep+curlh); +penpos5(thinl,-135); +z5l = (w-ss,h-curlh/2); +penpos6(thinl,-90); +z6l = (w-ss-0.7curlw,h+o); +penpos7(1.5thinl,0); +z7 = z2; +penpos8(thinl,-90); +z8r = (ss+0.7curlw,-dep); +penpos9(thinl,-135); +z9r = (ss,-dep+curlh/2); + +penstroke z0e..z1e..z2e..z3e..z4e; +penstroke z5e..z6e..tension 2.5..z7e; +penstroke z9e..z8e..tension 2.5..z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"040",1.2ex#+2ss#,asch#,dep#); "The letter psi"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos0(thickl,0); +z0 = (ss+2curlw,ex-curlh); +topcurl(0,1,2); +penpos3(1.5thinl,90); +x3r = w/2; y3l = 0-o; +penpos4(thickl,180); +z4l = (w-ss,ex-thinl); +penpos5(1.5thinl,-90); +z5r = z4r; +penpos6(thinl,0); +z6r = z5r; +penpos7(thinl,90); +z7r = z6r; +penpos8(1.5thinl,90); +z8r = z3r; +penpos9(1.5thinl,0); +z9 = (x0,curlh); + +penstroke z2e..z1e..z0e{down}..z9e..{right}z8e{right}..{up}z4e; +penstroke z4e..z5e..z6e..z7e; +pickup pencircle scaled 1.5thinl; +top z10 = (w/2+1.5thinl,h+o); +bot z11 = (w/2+1.5thinl,-dep); +draw z10--z11; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"041",1.5ex#+2ss#,ex#,0); "The letter omega"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss+w/5,h); +penpos1(curvl,0); +z1l = (ss,h/2); +penpos2(thinl,90); +z2l = (w/3,0-o); +penpos3(1.5thinl,180); +z3 = (w/2,h/2); +penpos4(thinl,-90); +z4r = (2w/3,0-o); +penpos5(curvl,0); +z5r = (w-ss,h/2); +penpos6(thinl,0); +z6r = (w-ss-w/5,h); + +penstroke z0e..z1e..z2e{right}..z3e; +penstroke z3e..{right}z4e..z5e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"042",0.8ex#+2ss#,ex#,0); "The letter varepsilon"; +italcorr(ex#*slant); + +penpos0(1.5thinl,225); +z0l = (w-ss,h-curlh); +penpos1(thickl,0); +z1l = (ss,3h/4); +penpos2(thinl,135); +z2l = (w-ss,curlh); +penpos3(thickl,0); +z3l = (ss,h/4); +penpos4(thinl,90); +z4 = (w/2-thinl,h/2-thinl); +penpos5(thinl,-90); +z5 = (w/2-thinl,h/2+thinl); +penpos6(thinl,180); +z6 = (w/2+thinl,h/2); +penpos7(thinl,-90); +z7l = (w/2,h+o); +penpos8(thinl,90); +z8l = (w/2,0-o); + +penstroke z0e..z7e..z1e..z4e..z6e..z5e..z3e..z8e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"043",1.2ex#+2ss#,asch#,0); "The letter vartheta"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0 = (w-ss,ex); +penpos1(thinl,0); +z1 = (w/4,ex+((h-ex)/2)); +penpos2(thinl,-90); +z2l = (w/2,h+o); +penpos3(2thinl,180); +z3 = (3w/4,y1); +penpos4(thickl,180); +z4 = (x3,2curlh); +penpos6(thickl,0); +z6l = (ss+1.5curlw,y4); +penpos5(thinl,90); +z5l = ((x6+x4)/2,0-o); +penpos7(thickl,0); +z7 = (x6,ex-1.5curlh); +topcurl(7,8,9); + +penstroke +z0e{left}..z1e..z2e..z3e---z4e..z5e..z6e---z7e..z8e..z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"044",1.5ex#+2ss#,ex#,0); "The letter varpi"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss+2w/5,h); +penpos1(curvl,0); +z1l = (ss+hair,h/2); +penpos2(thinl,90); +z2l = (w/3,0-o); +penpos3(1.5thinl,180); +z3 = (w/2,h/2); +penpos4(thinl,-90); +z4r = (2w/3,0-o); +penpos5(curvl,0); +z5r = (w-ss-hair,h/2); +penpos6(thinl,0); +z6r = (w-ss-2w/5,h); + +penstroke z0e..z1e..z2e{right}..z3e; +penstroke z3e..{right}z4e..z5e..z6e; +penpos7(thinl,90); +z7 = (ss,h-curlh); +penpos8(thickl,90); +z8r = (ss+curlw,h+o); +penpos9(thickl,90); +z9r = (w-ss,h+o); +penstroke z7e..z8e---z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"045",ex#+2ss#,ex#,dep#); "The letter varrho"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0l = (ss,-dep/2); +penpos1(thickl,0); +z1l = (ss,h/2); +penpos2(thinl,-90); +z2l = (w/2,h+o); +penpos3(curvl,180); +z3l = (w-ss,h/2); +penpos4(thinl,90); +z4l = (w/2,0-o); +penpos5(thinl,90); +z5l = (w/2,-dep); +penpos6(thickl,180); +z6l = (w-ss-hair,-dep/2); + +penstroke z6e{down}..z5e..z0e---z1e..z2e..z3e..z4e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"046",ex#+2ss#,ex#,dep#); "The letter varsigma"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0r = (w-ss,h-curlh); +penpos1(thinl,90); +z1r = (w-ss-curlw,h+o); +penpos2(1.5thinl,90); +z2r = (ss+1.5curlw,h+o); +penpos3(curvl,180); +z3r = (ss,h/2); +penpos4(1.5thinl,-90); +z4r = (w/2,0-o); +penpos5(1.5thinl,180); +z5l = (w-ss,0-curlh); +penpos6(thinl,90); +z6l = (w/2,-dep); + +penstroke +z0e{up}..z1e..z2e..{down}z3e{down}..z4e{right}..z5e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"047",1.2ex#+2ss#,ex#,dep#); "The letter varphi"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +penpos2(thickl,0); +z2 = (ss+1.5curlw,h-curlh); +topcurl(2,1,0); +penpos3(thickl,180); +z3l = (w-ss,3h/4); +penpos4(thinl,90); +z4l = ((x2+x3)/2,0-o); +penpos5(thinl,-60); +z5l = ((x4+x3)/2,h+o); +penpos6(thickl,0); +z6 = (x4,h/2); +penpos7(thickl,0); +z7 = (x6,-dep); +penpos8(thickl,0); +z8 = (x2,h/2); +penpos9(thickl,180); +z9 = (x3,h/2); + +penstroke z0e..z1e..z2e---z8e..z4e..z9e---z3e..z5e{left}..z6e---z7e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/mathgrkup.mf b/Master/texmf-dist/fonts/source/public/drm/mathgrkup.mf new file mode 100644 index 00000000000..2f4e8e55d08 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/mathgrkup.mf @@ -0,0 +1,230 @@ +% +AMDG This document was begun on 24 June 11EX, the Eve of +% the feast of Sts. Peter and Paul, and it is humbly +% dedicated to them and to the Immaculate Heart of Mary for +% their prayers, and to the Sacred Heart of Jesus for his +% mercy. + +beginchar(oct"000",5em#/6+2ss#,cap#,0); "The letter Gamma"; +italcorr(ex#*slant); + +fill capell reflectedabout ((0,h/2),(w,h/2)); + +endchar; + +beginchar(oct"001",5em#/6+2ss#,cap#,0); "The letter Delta"; +italcorr(ex#*slant); + +z0 = (ss,0-o); +z1 = (x0+1.5thinstroke,y0) rotatedaround(z0,30); +z2 = (w/2,h); +z3 = z2 shifted (0,-2thinstroke); +z4 = (w-ss-1.5thinstroke,0-o); +z5 = (x4-1.5thinstroke,y4) rotatedaround(z4,-30); +z6 = z2 shifted (thinstroke,0); +z7 = z4 shifted (thinstroke,0); + +fill z0--z2--z4--cycle; +unfill z1--z3--z5--cycle; +fill z2--z6--z7--z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"002",5em#/6+2ss#,cap#,0); "The letter Theta"; +italcorr(ex#*slant); + +z1=(ss,h/2); +z2=(w/2,h+o); +z3=(w-ss,h/2); +z4=(w/2,0-o); +z5=z1 shifted (curvwid,0); +z6=z2 shifted (0,-thinstroke); +z7=z3 shifted (-curvwid,0); +z8=z4 shifted (0,thinstroke); + +fill z4..z3..z2..z1..cycle; +unfill z5..z6..z7..z8..cycle; +fill capeye rotated (90) xscaled 0.4 shifted (w/2+0.2cap, + h/2-lserw-thickstroke/2-ss); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"003",6em#/6+2ss#,cap#,0); "The letter Lambda"; +italcorr(ex#*slant); + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thinstroke,0); +z2 = (w-ss-lserw,lserh); +z3 = z2 shifted (-thickstroke,0); +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +llserif(3,12,13,14,15)(1); +lrserif(2,16,17,18,19)(1); +z20 = (w/2,h+o); +z24 = z20 shifted (thinstroke,0); +z25 = z20 shifted (-thickstroke,0); +z21 = (z1--z24) intersectionpoint (z3--z25); + +fill +z0..z4..z5--z6--z10--z9..z8..z1--z21--z3..z12..z13--z14--z18--z17..z16..z2--z20--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + + +beginchar(oct"004",5em#/6+2ss#,cap#,0); "The letter Xi"; +italcorr(ex#*slant); + +z0 = (ss,h-thickstroke-thinstroke); +z1 = z0 shifted (thinstroke,0); +z2 = z1 shifted (0,thinstroke); +z3 = (w-ss,h-thickstroke-thinstroke); +z4 = z3 shifted (-thinstroke,0); +z5 = z4 shifted (0,thinstroke); +z6 = (ss,h); +z7 = (w-ss,h); + +path xitop; xitop = z0--z6--z7--z3--z4--z5--z2--z1--cycle; +fill xitop; +fill xitop reflectedabout ((0,h/2),(w,h/2)); + +fill capeye rotated (90) xscaled 0.4 shifted (w/2+0.2cap, + h/2-lserw-thickstroke/2-ss); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"005",6em#/6+2ss#,cap#,0); "The letter Pi"; +italcorr(ex#*slant); + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thickstroke,0); +z2 = (w-ss-lserw,lserh); +z3 = z2 shifted (-thickstroke,0); +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +llserif(3,12,13,14,15)(1); +lrserif(2,16,17,18,19)(1); +z20 = (x0,h-lserh); +z21 = (x1,h-thinstroke); +z22 = (x3,h-thinstroke); +z23 = (x2,h-lserh); +ulserif(20,24,25,26,27)(1); +urserif(23,28,29,30,31)(1); + +fill +z0..z4..z5--z6--z10--z9..z8..z1--z21--z22--z3..z12..z13--z14--z18--z17..z16..z2--z23..z28..z29--z30--z26--z25..z24..z20--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"006",5em#/6+2ss#,cap#,0); "The letter Sigma"; +italcorr(ex#*slant); + +z0 = (w-ss,h); +z1 = (w-ss,h-thickstroke-thinstroke); +z2 = z1 shifted (-thinstroke,0); +z3 = z2 shifted (0,thinstroke); +z4 = (ss,h); +z5 = (ss,h-thickstroke); +z6 = (w/2-1.5thinstroke/2,h/2); +z7 = z6 shifted (1.5thinstroke,0); +z8 = (ss,0); +z9 = z8 shifted (0,thickstroke); +z10 = (w-ss,0); +z11 = z10 shifted (0,thickstroke+thinstroke); +z12 = z11 shifted (-thinstroke,0); +z13 = z12 shifted (0,-thinstroke); +z14 = z5 shifted (1.5thinstroke,0); +z15 = z9 shifted (1.5thinstroke,0); + +fill z11--z10--z8--z9--z6--z5--z4--z0--z1--z2--z3--z14-- + z7--z15--z13--z12--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"007",5em#/6+2ss#,cap#,0); "The letter Upsilon"; +italcorr(ex#*slant); + +fill capwhy; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"010",5em#/6+2ss#,cap#,0); "The letter Phi"; +italcorr(ex#*slant); + +fill capeye shifted (w/2-lserw-thickstroke/2-ss,0); +fill fillo yscaled 0.6 shifted (0,0.2h); +unfill unfillo yscaled 0.6 shifted (0,0.2h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"011",5em#/6+2ss#,cap#,0); "The letter Psi"; +italcorr(ex#*slant); + +fill capeye shifted (w/2-lserw-thickstroke/2-ss,0); +pickup pencircle scaled thickstroke; +penpos0(0.8thickstroke,0); +z0 = (w/4,3h/5); +penpos1(0.8thickstroke,180); +z1 = (3w/4,3h/5); +penpos2(0.8thickstroke,0); +z2 = (w/4,2h/5); +penpos3(0.8thickstroke,180); +z3 = (3w/4,2h/5); +penpos4(thinstroke,90); +z4 = (w/2,h/5); +penpos5(thinstroke,90); +z5 = (ss,4h/5); +penpos6(thinstroke,90); +z6 = (w-ss,4h/5); + +penstroke z5e..z0e..z2e..z4e..z3e..z1e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"012",5em#/6+2ss#,cap#,0); "The letter Omega"; +italcorr(ex#*slant); + +z0 = (ss,0); +z1 = (w-ss,0); +z2 = z0 shifted (thickstroke,0); +z3 = z1 shifted (-thickstroke,0); +z4 = z0 shifted (0,2lserh); +z5 = z1 shifted (0,2lserh); +z6 = z5 shifted (-lserstep,0); +z7 = z4 shifted (lserstep,0); +z8 = z2 shifted (thickstroke,0); +z9 = z3 shifted (-thickstroke,0); +z10 = (ss,h/2+2lserh); +z11 = (w-ss,h/2+2lserh); +z12 = z10 shifted (curvwid,0); +z13 = z11 shifted (-curvwid,0); +z14 = (w/2,h+o); +z15 = z14 shifted (0,-thinstroke); +z16 = z8 shifted (0,thinstroke); +z17 = z9 shifted (0,thinstroke); +z18 = z9 shifted (-thickstroke,0); +z19 = z8 shifted (thickstroke,0); + +path omega; omega = + z8--z0--z4--z7{down}..{right}z16{dir 120}..{up}z10{up}.. + {right}z14{right}..{down}z11{down}..{dir -120}z17{right}.. + {up}z6--z5--z1--z18{dir 60}..{up}z13{up}..{left}z15{left}.. + {down}z12{down}..{dir -60}z19--cycle; +fill omega; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/mathoms.mf b/Master/texmf-dist/fonts/source/public/drm/mathoms.mf new file mode 100644 index 00000000000..5ccbebddd7e --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/mathoms.mf @@ -0,0 +1,1385 @@ +% +AMDG This document was begun on 3 July 11EX, the feast +% of St. Irenaeus, EM, and it is humbly dedicated to him and +% to the Immaculate Heart of Mary for their prayers, and to +% the Sacred Heart of Jesus for His mercy. + +beginchar(oct"000",3pwid#,ex#,0); "Minus sign"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,3h/4); +rt z1 = (w-ss,3h/4); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"001",pwid#,ex#,0); "Dot product"; + +z0 = (w/2,3h/4); +z1 = z0 shifted (dotwidth,0); +z2 = z0 shifted (0,dotwidth); +z3 = z0 shifted (-dotwidth,0); +z4 = z0 shifted (0,-dotwidth); + +path dotprod; +dotprod = z1..z2..z3..z4..cycle; +fill dotprod; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"002",ex#,ex#,0); "Cross product"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +bot rt z1 = (w-ss,0); +top rt z2 = (w-ss,h); +bot lft z3 = (ss,0); +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"003",ex#,ex#,0); "Asterisk"; + +pickup pencircle scaled 1.5thinl; +z12 = (w/2,h/2); +top z0 = (w/2,h); +bot z1 = (w/2,0); +z2 = z0 rotatedaround (z12,60); +z3 = z2 rotatedaround (z12,60); +z4 = z3 rotatedaround (z12,60); +z5 = z4 rotatedaround (z12,60); +z6 = z5 rotatedaround (z12,60); +draw z0--z1; draw z2--z5; draw z3--z6; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"004",1.5ex#+2ss#,ex#,2dotwidth#); "The division sign"; + +pickup pencircle scaled thinl; +lft z0 = (ss,(h+d)/2-d); +rt z1 = (w-ss,(h+d)/2-d); + +draw z0--z1; +fill fullcircle scaled 2dotwid shifted (w/2,h-dotwid); +fill fullcircle scaled 2dotwid shifted (w/2,-d+dotwid); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"005",ex#,ex#,0); "Diamond, lozenge"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h+o); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0-o); +lft z3 = (ss,h/2); +draw z0--z1--z2--z3--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"006",em#,cap#,0); "The plus minus"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +bot z1 = (w/2,0); +lft z3 = (ss,h/2); +rt z4 = (w-ss,h/2); +bot lft z5 = (ss,0); +bot rt z6 = (w-ss,0); + +draw z0--z1; draw z3--z4; draw z5--z6; +picture plusminus; plusminus := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"007",em#,cap#,0); "Inverse plus minus"; + +currentpicture := plusminus reflectedabout + ((0,h/2),(w,h/2)); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"010",em#,cap#,0); "oplus"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +draw z0..z1..z2..z3..cycle; +draw z0--z2; +draw z1--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"011",em#,cap#,0); "ominus"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +draw z0..z1..z2..z3..cycle; +draw z1--z3; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"012",em#,cap#,0); "otimes"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +z5 = z0 rotatedaround ((w/2,h/2),45); +z6 = z1 rotatedaround ((w/2,h/2),45); +z7 = z2 rotatedaround ((w/2,h/2),45); +z8 = z3 rotatedaround ((w/2,h/2),45); +draw z0..z1..z2..z3..cycle; +draw z5--z7; draw z8--z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"013",em#,cap#,0); "oslash"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +z5 = z0 rotatedaround ((w/2,h/2),45); +z6 = z1 rotatedaround ((w/2,h/2),45); +z7 = z2 rotatedaround ((w/2,h/2),45); +z8 = z3 rotatedaround ((w/2,h/2),45); +draw z0..z1..z2..z3..cycle; +draw z8--z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"014",em#,cap#,0); "odot"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +draw z0..z1..z2..z3..cycle; + +fill fullcircle scaled 2dotwidth shifted (w/2,h/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"015",1.1em#,1.1cap#,0); "bigcirc"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +draw z0..z1..z2..z3..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"016",ex#,ex#,0); "circ"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +draw z0..z1..z2..z3..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"017",ex#,ex#,0); "bullet"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); +filldraw z0..z1..z2..z3..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"020",em#,cap#,0); "asymp"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +top rt z1 = (w-ss,h); +bot z2 = (w/2,h/2+thickstroke/2); +path halfwavy; halfwavy = z0..z2..z1; +draw halfwavy; +draw halfwavy reflectedabout ((0,h/2),(w,h/2)); + +penlabels(0,1,2,3); +endchar; + +beginchar(oct"021",em#,cap#,0); "three horizontal lines"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +top rt z1 = (w-ss,h); +path hozline; hozline = z0--z1; +draw hozline; +draw hozline shifted (0,-w/3); +draw hozline shifted (0,-2w/3); + + +penlabels(0,1,2,3); +endchar; + +beginchar(oct"022",em#,cap#,0); "subseteq"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,2h/3); +rt z2 = (w-ss,h/3); +bot lft z3 = (ss,0); +bot rt z4 = (w-ss,0); +top z5 = (w/3,h); +z6 = (w/3,y2); + +draw z0---z5..{down}z1{down}..z6---z2; +draw z3--z4; + +picture subseteq; +subseteq := currentpicture; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"023",em#,cap#,0); "supseteq"; + +currentpicture := subseteq reflectedabout ((w/2,h),(w/2,0)); +picture supseteq; supseteq := currentpicture; + +endchar; + +beginchar(oct"024",em#,cap#,0); "leq"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,2h/3); +rt z2 = (w-ss,h/3); +bot lft z3 = (ss,0); +bot rt z4 = (w-ss,0); +top z5 = (w/3,h); +z6 = (w/3,y2); + +draw z0--z1--z2; +draw z3--z4; + +picture leq; +leq := currentpicture; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"025",em#,cap#,0); "geq"; + +currentpicture := leq reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"026",em#,cap#,0); "preceq"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,2h/3); +rt z2 = (w-ss,h/3); +bot lft z3 = (ss,0); +bot rt z4 = (w-ss,0); +top z5 = (w/3,h); +z6 = (w/3,y2); + +draw z0..{left}z1; draw z2..{left}z1; +draw z3--z4; + +picture preceq; +preceq := currentpicture; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"027",em#,cap#,0); "succeq"; + +currentpicture := preceq reflectedabout ((w/2,h),(w/2,0)); +picture succeq; succeq := currentpicture; + +endchar; + +beginchar(oct"030",em#,cap#,0); "sim"; + +pickup pencircle scaled 1.5thinl; +penpos0(thinstroke,225); +z0r = (ss,0.4h); +penpos1(1.5thinstroke,90); +z1 = (w/3,0.6h); +penpos2(1.5thinstroke,90); +z2 = (2w/3,0.4h); +penpos3(thinstroke,225); +z3l = (w-ss,0.6h); + +penstroke z0e..z1e..z2e..z3e; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"031",em#,cap#,0); "approx"; + +pickup pencircle scaled 1.5thinl; +penpos0(thinstroke,225); +z0r = (ss,0.4h); +penpos1(1.5thinstroke,90); +z1 = (w/3,0.6h); +penpos2(1.5thinstroke,90); +z2 = (2w/3,0.4h); +penpos3(thinstroke,225); +z3l = (w-ss,0.6h); + +penstroke (z0e..z1e..z2e..z3e) shifted (0,thickl); +penstroke (z0e..z1e..z2e..z3e) shifted (0,-thickl); + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"032",em#,cap#,0); "subset"; + +currentpicture := subseteq; +pickup pencircle scaled 1.5thinl; +bot lft z3 = (ss,0); +bot rt z4 = (w-ss,0); +undraw z3--z4; + +endchar; + +beginchar(oct"033",em#,cap#,0); "supset"; + +currentpicture := supseteq; +pickup pencircle scaled 1.5thinl; +bot lft z3 = (ss,0); +bot rt z4 = (w-ss,0); +undraw z3--z4; + +picture supset; supset := currentpicture; + +endchar; + +beginchar(oct"034",em#,cap#,0); "ll"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss-w/4,h); +lft z1 = (ss+w/4,2h/3); +rt z2 = (w-ss-w/4,h/3); +path lesser; lesser = z0--z1--z2; +draw lesser shifted (-thickl,0); +draw lesser shifted (thickl,0); + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"035",em#,cap#,0); "gg"; + +pickup pencircle scaled 1.5thinl; +draw lesser reflectedabout ((w/2,h),(w/2,0)) shifted (-thickl,0); +draw lesser reflectedabout ((w/2,h),(w/2,0)) shifted (thickl,0); + +endchar; + +beginchar(oct"036",em#,cap#,0); "prec"; + +pickup pencircle scaled 1.5thinl; +currentpicture := preceq; +bot z0 = (ss,0); bot z1 = (w-ss,0); +undraw z0--z1; +picture prec; prec := currentpicture; + +endchar; + +beginchar(oct"037",em#,cap#,0); "succ"; + +currentpicture := prec reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"040",1em#,cap#,0); "left arrow"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,h/2); +top z1 = (0.3w,13h/16); +rt z2 = (w-ss,y0); +z3 = z1 shifted (0,-3h/16); +bot z4 = (0.3w,3h/16); +z5 = (x3,y4+3h/16); + +path shaft; shaft = z2--z0; +path head; head = z4{up}..{z0-z5}z0{z3-z0}..{up}z1; +draw shaft; draw head; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"041",em#,cap#,0); "right arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft; draw head reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"042",em#,cap#,0); "up arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),-90); +draw head rotatedaround ((w/2,h/2),-90); + +endchar; + +beginchar(oct"043",em#,cap#,0); "down arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),90); +draw head rotatedaround ((w/2,h/2),90); + +endchar; + +beginchar(oct"044",em#,cap#,0); "left-right arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft; draw head; +draw head reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"045",em#,cap#,0); "northeast arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),-135); +draw head rotatedaround ((w/2,h/2),-135); + +endchar; + +beginchar(oct"046",em#,cap#,0); "southeast arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),-225); +draw head rotatedaround ((w/2,h/2),-225); + +endchar; + +beginchar(oct"055",em#,cap#,0); "northwest arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),-45); +draw head rotatedaround ((w/2,h/2),-45); + +endchar; + +beginchar(oct"056",em#,cap#,0); "southwest arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),45); +draw head rotatedaround ((w/2,h/2),45); + +endchar; + +beginchar(oct"047",em#,cap#,0); "simeq"; + +pickup pencircle scaled 1.5thinl; +penpos0(thinstroke,225); +z0r = (ss,0.4h); +penpos1(1.5thinstroke,90); +z1 = (w/3,0.6h); +penpos2(1.5thinstroke,90); +z2 = (2w/3,0.4h); +penpos3(thinstroke,225); +z3l = (w-ss,0.6h); +bot lft z4 = (ss,0); +bot rt z5 = (w-ss,0); + +penstroke z0e..z1e..z2e..z3e; +draw z4--z5; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"050",em#,cap#,0); "double-width left arrow"; + +pickup pencircle scaled 1.5thinl; +rt z0 = (w-ss,h/2+thickl); +rt z1 = (w-ss,h/2-thickl); +z2 = (ss,y0); +z3 = (ss,y1); +z4 = (z0--z2) intersectionpoint head; +z5 = (z1--z3) intersectionpoint head; +draw head; +draw z0--z4; draw z5--z1; + +picture doubleftarrow; doubleftarrow := currentpicture; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"051",em#,cap#,0); "double-width right arrow"; + +currentpicture := doubleftarrow reflectedabout + ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"052",em#,cap#,0); "double-width up arrow"; + +currentpicture := doubleftarrow rotatedaround + ((w/2,h/2),-90); + +endchar; + +beginchar(oct"053",em#,cap#,0); "double-width down arrow"; + +currentpicture := doubleftarrow rotatedaround + ((w/2,h/2),90); + +endchar; + +beginchar(oct"054",em#,cap#,0); "double-width left-right arrow"; + +pickup pencircle scaled 1.5thinl; +rt z0 = (w/2,h/2+thickl); +rt z1 = (w/2,h/2-thickl); +z2 = (ss,y0); +z3 = (ss,y1); +z4 = (z0--z2) intersectionpoint head; +z5 = (z1--z3) intersectionpoint head; +draw head; draw head reflectedabout ((w/2,h),(w/2,0)); +draw z0--z4; draw z5--z1; +draw z0--z4 reflectedabout ((w/2,h),(w/2,0)); +draw z1--z5 reflectedabout ((w/2,h),(w/2,0)); + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"057",em#,ex#,0); "propto"; + +pickup pencircle scaled 1.5thinl; +penpos0(thinl,-90); +z0l = (w-ss,h); +penpos1(thinl,-90); +z1l = (5w/6,h); +penpos2(thickl,0); +z2 = (0.55w,h/2); +penpos3(thinl,-90); +z3r = (0.3w,0-o); +penpos4(curvl,180); +z4r = (ss,h/2); +penpos5(thinl,90); +z5r = (x3,h+o); +penpos6(thickl,0); +z6 = (0.55w,h/2); +penpos7(thinl,90); +z7l = (x1,0); +penpos8(thinl,90); +z8l = (x0,0); + +penstroke z0e---z1e..z2e..z3e..z4e..z5e..z6e..z7e---z8e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"060",1.4pwid#+2ss#,cap#,0); "large prime"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2,h+o); +z1 = z0 shifted (-pwid/3,-pwid/3); +z2 = z0 shifted (pwid/3,-pwid/3); +z3 = (x0,h/4); +z4 = z3 shifted (-pwid/6,pwid/6); +z5 = z3 shifted (pwid/6,pwid/6); +fill z0..z2---z5..z3..z4---z1..cycle + rotatedaround ((w/2,(y0+y3)/2),-15); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"061",em#,ex#,0); "infty"; + +pickup pencircle scaled 1.5thinl; +penpos0(thickl,180); +z0l = (w-ss,h/2); +penpos2(thickl,0); +z2 = (0.5w,h/2); +penpos4(thickl,180); +z4r = (ss,h/2); +penpos6(thickl,0); +z6 = (0.5w,h/2); +penpos7(thinl,90); +z7l = (x1,0-o); +penpos8(thinl,90); +z8l = (x0,0); +penpos1(thinl,-90); +z1l = ((x0+x2)/2,h+o); +penpos5(thinl,90); +z5r = (x3,h+o); +penpos3(thinl,-90); +z3r = ((x6+x4)/2,0-o); + +penstroke z0e..z1e..z2e..z3e..z4e..z5e..z6e..z7e..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"062",1.5ex#,cap#,0); "in"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +top z1 = (w/2,h); +lft z2 = (ss,h/2); +bot z3 = (w/2,0); +bot rt z4 = (w-ss,0); +rt z5 = (w-ss,h/2); +draw z0{left}..z2..{right}z4; +draw z2--z5; + +picture inset; inset := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"063",1.5ex#,cap#,0); "ni"; +currentpicture := inset reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"064",em#,cap#,0); "upward triangle"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h+o); +bot lft z1 = (ss,0-o); +bot rt z2 = (w-ss,0-o); + +draw z0--z1--z2--cycle; +picture triangle; triangle := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"065",em#,cap#,0); "downward triangle"; +currentpicture := triangle reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"066",2pwid#,cap#,0); "slash, solidus"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z1 = (ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"067",pwid#,ex#,0); "straight prime"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h+o); +z1 = (w/2,h/2); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"070",1.2ex#,cap#,0); "inverse A"; + +pickup pencircle scaled 1.5thinl; +bot z0 = (w/2,0-o); +top lft z1 = (ss,h+o); +top rt z2 = (w-ss,h+o); +draw z0--z1; draw z0--z2; +z3 = 0.618[z0,z1]; z4 = 0.618[z0,z2]; +draw z3--z4; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"071",1.2ex#,cap#,0); "inverse E"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot rt z2 = (w-ss,0-o); +bot lft z3 = (ss,0-o); +draw z0--z1--z2--z3; +lft z4 = (ss,h/2); +rt z5 = (w-ss,h/2); +draw z4--z5; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"072",1.6ex#,ex#,0); "neg"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,3h/4); +rt z1 = (w-ss,y0); +bot rt z2 = (w-ss,0); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"073",digwid#+2ss#,cap#,0); "null set"; + +pickup pencircle scaled 1.5thinl; +penpos0(thickl,0); +z0r = (w-ss,h/2); +penpos1(thinl,-90); +z1r = (w/2,0-o); +penpos2(thickl,180); +z2r = (ss,h/2); +penpos3(thinl,90); +z3r = (w/2,h+o); +top rt z4 = (w-ss,h+o); +bot lft z5 = (ss,0-o); +draw z4--z5; +penstroke z0e..z1e..z2e..z3e..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"076",1.4ex#,cap#,0); "top"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot z2 = (w/2,0-o); +top z3 = (w/2,h+o); +draw z0--z1; draw z2--z3; +picture toppic; toppic := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"077",1.4ex#,cap#,0); "perp"; +currentpicture := toppic reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"133",0.75em#+2ss#,cap#,0); "union"; +currentpicture := supset rotatedaround ((em/2,cap/2),-90) + shifted (-1/3cap+1.5thinl,0); +endchar; + +beginchar(oct"134",0.75em#+2ss#,cap#,0); "intersection"; +currentpicture := supset rotatedaround ((em/2,cap/2),90) + shifted (1.5thinl/2,0); +endchar; + +beginchar(oct"135",0.75em#+2ss#,cap#,0); "union"; +currentpicture := supset rotatedaround ((em/2,cap/2),-90) + shifted (-1/3cap+1.5thinl,0); +pickup pencircle scaled 1.5thinl; +z0 = (-w/2,h-w/2-thinl/2); +z1 = (w/2,h-w/2-thinl/2); +z2 = (0,h); +z3 = (0,h-w-2ss); +draw (z0--z1) scaled 0.5 shifted (w/2,w/4); +draw (z2--z3) scaled 0.5 shifted (w/2,w/4); +penlabels (0,1,2,3,4); +endchar; + +beginchar(oct"136",0.75em#+2ss#,cap#,0); "upward pointing"; +pickup pencircle scaled 1.5thinl; +draw lesser rotatedaround ((w/2,h/2),-90) + shifted (-w/4+2ss,h/8); +endchar; + +beginchar(oct"137",0.75em#+2ss#,cap#,0); "downward pointing"; +pickup pencircle scaled 1.5thinl; +draw lesser rotatedaround ((w/2,h/2),90) + shifted (w/4-2ss,-h/8); +endchar; + +beginchar(oct"140",0.75em#+2ss#,cap#,0); "leftward T"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,0-o); +lft z2 = (ss,h/2); +rt z3 = (w-ss,h/2); + +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"141",0.75em#+2ss#,cap#,0); "rightward T"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,0-o); +rt z2 = (w-ss,h/2); +lft z3 = (ss,h/2); + +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"142",0.25em#+2ss#,cap#,dep#); "left floor"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-dep); +bot rt z2 = (w-ss,-dep); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"143",0.25em#+2ss#,cap#,dep#); "right floor"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-dep); +bot lft z2 = (ss,-dep); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"144",0.25em#+2ss#,cap#,dep#); "left ceil"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-dep); +top rt z2 = (w-ss,h+o); +draw z1--z0--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"145",0.25em#+2ss#,cap#,dep#); "right ceil"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-dep); +top lft z2 = (ss,h+o); +draw z2--z0--z1; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"146",1.8pwid#,cap#+ss#,dep#); "The open curly bracket, {"; + +brackwid = 2thinl; +toth = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-dep); +lft z2 = (ss,h-toth/2); +z3 = (3(x0-x2)/4,h-toth/4); +z4 = (3(x0-x2)/4,h-3toth/4); + +path curlybrack; +curlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; +draw curlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"147",1.8pwid#,cap#+ss#,dep#); "The close curly bracket, }"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw curlybrack rotatedaround ((w/2,(h-dep)/2),180); +endchar; + +beginchar(oct"150",1.8pwid#,cap#+ss#,dep#); "Open angle bracket"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,(h+d)/2-dep); +bot rt z2 = (w-ss,-dep); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"151",1.8pwid#,cap#+ss#,dep#); "Close angle bracket"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +rt z1 = (w-ss,(h+d)/2-dep); +bot lft z2 = (ss,-dep); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"152",0.9pwid#,cap#+ss#,dep#); "Pipe"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +bot z1 = (w/2,-d); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"153",1.5pwid#,cap#+ss#,dep#); "Double pipe"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2-thickstroke,h); +bot z1 = (w/2-thickstroke,-d); +top z2 = (w/2+thickstroke,h); +bot z3 = (w/2+thickstroke,-d); +draw z0--z1; +draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"154",em#,cap#,0); "up-down arrow"; + +pickup pencircle scaled 1.5thinl; +draw shaft rotatedaround ((w/2,h/2),-90); +draw head rotatedaround ((w/2,h/2),-90); +draw head rotatedaround ((w/2,h/2),90); + +endchar; + +beginchar(oct"155",em#,cap#,0); "double-width up-down arrow"; + +pickup pencircle scaled 1.5thinl; +rt z0 = (w/2,h/2+thickl); +rt z1 = (w/2,h/2-thickl); +z2 = (ss,y0); +z3 = (ss,y1); +z4 = (z0--z2) intersectionpoint head; +z5 = (z1--z3) intersectionpoint head; +z6 = (w-x4,y4); +z7 = (w-x5,y5); +draw head rotatedaround ((w/2,h/2),-90); +draw head rotatedaround ((w/2,h/2),90); +draw (z4--z6) rotatedaround ((w/2,h/2),-90); +draw (z5--z7) rotatedaround ((w/2,h/2),-90); + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"156",2pwid#,cap#,0); "backslash"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot rt z1 = (w-ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"157",2pwid#,cap#,0); "Vertical tilde"; + +penpos0(thinstroke,90); +z0r = (ss,h+o); +penpos1(curvwid,0); +z1r = (w-ss,2h/3); +penpos2(curvwid,0); +z2l = (ss,h/3); +penpos3(thinstroke,90); +z3l = (w-ss,0-o); + +penstroke z0e{right}..z1e..z2e..{right}z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"160",em#+2ss#,cap#,0); "Square root sign"; + +pickup pencircle scaled 1.5thinl; + +penpos0(thinl,-45); +lft z0 = (ss,h/4); +penpos1(thinl,-45); +z1 = (w/6,h/3); +penpos3(1.5thinl,-90); +bot z3 = (3w/4,h+o+thinl); +penpos4(1.5thinl,-90); +z4 = (w-ss,y3); +penpos5(thickl,45); +z5l = z1l; +penpos6(thickl,45); +z6l = (w/3,0-o); +penpos2(1.5thinl,-45); +z2r = z6r; +penpos7(1.5thinl,-45); +z7r = z3r; + +penstroke z0e--z1e; +penstroke z5e--z6e; +penstroke z2e--z7e..z3e--z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"161",6em#/6+2ss#,cap#,0); "Inverted Pi"; +italcorr(ex#*slant); + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thickstroke,0); +z2 = (w-ss-lserw,lserh); +z3 = z2 shifted (-thickstroke,0); +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +llserif(3,12,13,14,15)(1); +lrserif(2,16,17,18,19)(1); +z20 = (x0,h-lserh); +z21 = (x1,h-thinstroke); +z22 = (x3,h-thinstroke); +z23 = (x2,h-lserh); +ulserif(20,24,25,26,27)(1); +urserif(23,28,29,30,31)(1); +y26 := y27 := y31 := y30 := h; +y6 := y10 := y14 := y18 := 0; + +fill +(z0..z4..z5--z6--z10--z9..z8..z1--z21--z22--z3..z12..z13--z14--z18--z17..z16..z2--z23..z28..z29--z30--z26--z25..z24..z20--cycle) + rotatedaround ((w/2,h/2),180); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +penlabels(35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50); +endchar; + +beginchar(oct"162",5em#/6+2ss#,cap#,0); "Inverted Delta"; +italcorr(ex#*slant); + +z0 = (ss,0-o); +z1 = (x0+1.5thinstroke,y0) rotatedaround(z0,30); +z2 = (w/2,h); +z3 = z2 shifted (0,-2thinstroke); +z4 = (w-ss-1.5thinstroke,0-o); +z5 = (x4-1.5thinstroke,y4) rotatedaround(z4,-30); +z6 = z2 shifted (thinstroke,0); +z7 = z4 shifted (thinstroke,0); + +fill (z0--z2--z4--cycle) rotatedaround ((w/2,h/2),180); +unfill (z1--z3--z5--cycle)rotatedaround ((w/2,h/2),180); +fill (z2--z6--z7--z4--cycle)rotatedaround ((w/2,h/2),180); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"163",ex#+2ss#,asch#,dep#); "Integral"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0 = (w/2,h-curlh); +penpos1(thickl,0); +z1 = (w/2,-d+curlh); +penpos2(thinl,-90); +z2 = (3w/4,h+o); +penpos3(thinl,-90); +z3 = (x1-curlw,-d-o); +penpos4(thickl,180); +z4 = (x2+curlw,y0); +penpos5(thickl,-180); +z5 = (x3-curlw,y1); +penpos6(thinl,70); +z6r = (w/2,ex); +penpos7(thinl,70); +z7 = (ss,y6); +penpos8(thinl,70); +z8 = (w-ss,y6); +penpos9(thinl,0); +z9r = z4r; +penpos10(thinl,225); +z10r = z9r; +penpos11(thinl,0); +z11l = z5l; +penpos12(thinl,225); +z12l = z11l; + +penstroke +z12e..z11e..z5e..{right}z3e{right}..z1e---z0e..{right}z2e{right}..z4e..z9e..z10e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"164",1.5ex#,cap#,0); "upward square cup"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot lft z2 = (ss,0-o); +bot rt z3 = (w-ss,0-o); +draw z0--z2--z3--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"165",1.5ex#,cap#,0); "downward square cup"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot lft z2 = (ss,0-o); +bot rt z3 = (w-ss,0-o); +draw z2--z0--z1--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"166",1.5ex#,cap#,0); "rightward square cup, line"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot lft z2 = (ss,2thickstroke); +rt z3 = (w-ss,y2); +bot lft z4 = (ss,0-o); +bot rt z5 = (w-ss,0-o); + +draw z1--z0--z2--z3; draw z4--z5; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"167",1.5ex#,cap#,0); "leftward square cup, line"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot lft z2 = (ss,2thickstroke); +rt z3 = (w-ss,y2); +bot lft z4 = (ss,0-o); +bot rt z5 = (w-ss,0-o); + +draw z0--z1--z3--z2; draw z4--z5; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"170",4ex#/5,cap#,dep#); "The section symbol"; + +sh = 2toth/3-thinl+o; +z0 = (w-ss,h-sh/4); +z1 = (w/2,h+o); +z2 = z1 shifted (0,-thinl); +z3 = (ss,h-sh/4); +z4 = z3 shifted (thinl,0); +z5 = (w-ss,h-3sh/4); +z6 = z5 shifted (-thinl,0); +z7 = (w/2,h-sh); +z8 = z7 shifted (0,-thinl); +z9 = (w/2,h-sh/2+curvl/2); +z10 = z9 shifted (0,-curvl); +z11 = z0 shifted (-thinl,0); +z12 = 0.5[z0,z11] shifted (0,-o); +z13 = (ss,h-3sh/4); +z14 = z13 shifted (thinl,0); +z15 = 0.5[z13,z14] shifted (0,hair/2); + +path halfsect; +halfsect = +z0{up}..{left}z1{left}..{down}z3{down}..z10..{down}z6{down}..{left}z7{left}..{up}z14..z15..{down}z13{down}..{right}z8{right}..{up}z5{up}..z9..{up}z4{up}..{right}z2{right}..{down}z11..z12..cycle; +fill halfsect; +fill halfsect shifted (0,-sh/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"171",ex#+2ss#,cap#,dep#); "dagger"; + +z0 = (w/2,h+o); +z1 = (w/2,-dep); +z2 = (ss,2h/3); +z3 = (w-ss,2h/3); +z4 = (w/2,2h/3); +z5 = 0.75[z4,z3]; +z6 = 0.75[z4,z2]; +z7 = z6 rotatedaround (z4,-90); +z8 = z6 rotatedaround (z4,90); +z9 = z5 shifted (0,thickl/2); +z10 = z5 shifted (0,-thickl/2); +z11 = z6 shifted (0,thickl/2); +z12 = z6 shifted (0,-thickl/2); +z13 = z7 shifted (thickl/2,0); +z14 = z7 shifted (-thickl/2,0); +z15 = z8 shifted (thickl/2,0); +z16 = z8 shifted (-thickl/2,0); +z17 = 1.0[z4,z8]; +z18 = z17 shifted (thickl/2,0); +z19 = z17 shifted (-thickl/2,0); +z20 = z0 shifted (thickl/2,-hair); +z21 = z0 shifted (-thickl/2,-hair); +z22 = z3 shifted (-hair,thickl/2); +z23 = z3 shifted (-hair,-thickl/2); +z24 = z2 shifted (hair,thickl/2); +z25 = z2 shifted (hair,-thickl/2); +z26 = z4 shifted (hair,hair); +z27 = z4 shifted (hair,-hair); +z28 = z4 shifted (-hair,-hair); +z29 = z4 shifted (-hair,hair); +z30 = z1 shifted (hair,hair); +z31 = z1 shifted (-hair,hair); + +fill +z0..z20--z13--z26--z9--z22..z3..z23--z10--z27--z15--z18--z30..z1..z31--z19--z16--z28--z12--z25..z2..z24--z11--z29--z14--z21..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"172",ex#+2ss#,cap#,dep#); "double dagger"; + +z0 = (w/2,h+o); +z1 = (w/2,(h-dep)/2); +z2 = (ss,(3h-dep)/4); +z3 = (w-ss,(3h-dep)/4); +z4 = (w/2,(3h-dep)/4); +z5 = 0.75[z4,z3]; +z6 = 0.75[z4,z2]; +z7 = z6 rotatedaround (z4,-90); +z8 = z6 rotatedaround (z4,90); +z9 = z5 shifted (0,thickl/2); +z10 = z5 shifted (0,-thickl/2); +z11 = z6 shifted (0,thickl/2); +z12 = z6 shifted (0,-thickl/2); +z13 = z7 shifted (thickl/2,0); +z14 = z7 shifted (-thickl/2,0); +z15 = z8 shifted (thickl/2,0); +z16 = z8 shifted (-thickl/2,0); +z17 = 1.0[z4,z8]; +z18 = z17 shifted (thickl/2,0); +z19 = z17 shifted (-thickl/2,0); +z20 = z0 shifted (thickl/2,-hair); +z21 = z0 shifted (-thickl/2,-hair); +z22 = z3 shifted (-hair,thickl/2); +z23 = z3 shifted (-hair,-thickl/2); +z24 = z2 shifted (hair,thickl/2); +z25 = z2 shifted (hair,-thickl/2); +z26 = z4 shifted (hair,hair); +z27 = z4 shifted (hair,-hair); +z28 = z4 shifted (-hair,-hair); +z29 = z4 shifted (-hair,hair); +z30 = z1 shifted (thickl/2,hair); +z31 = z1 shifted (-thickl/2,hair); + +path halfdag; +halfdag = +z0..z20--z13--z26--z9--z22..z3..z23--z10--z27--z15--z18--z30..z1..z31--z19--z16--z28--z12--z25..z2..z24--z11--z29--z14--z21..cycle; + +fill halfdag; +fill halfdag shifted (0,-(h-dep)-o); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"173",4em#/5+2ss#,cap#,0); "double-line pilcrow"; + +pickup pencircle scaled thinl; +z0 = (w-ss-lserw,lserhl); +z1 = z0 shifted (-1.5thickstroke,0); +z2 = (w-ss-userw,h-userhl); +z3 = z2 shifted (-1.5thickstroke,0); +urserif(2,4,5,6,7)(1); +llserif(1,8,9,10,11)(1); +lrserif(0,12,13,14,15)(1); +lft z16 = (ss,3h/4); +z17 = z16 shifted (curvwid,0); +z18 = (x1,h/2); +z19 = z18 shifted (1.5thickstroke,0); +z20 = (x3,h); + +filldraw z20{left}..{down}z16{down}..{right}z18--cycle; +draw +z1..z8..z9--z10--z14--z13..z12..z0--z2..z4..z5--z6--z20--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"174",em#+2ss#,cap#,0); "Clubs"; + +z0 = (w/2-thinstroke,0); +z1 = z0 shifted (2thinstroke,0); +z2 = z0 shifted (0,2thickstroke); +z3 = z1 shifted (0,2thickstroke); +z4 = (w/4,thickstroke/2); +z5 = (ss,h/3); +z6 = (x4,2h/3); +z7 = (x2,y5); +z8 = (x6,3h/4); +z9 = (w/2,h); +z10 = (3w/4,y8); +z11 = (x3,y7); +z12 = (x10,y6); +z13 = (w-ss,y5); +z14 = (x10,y4); + +path leftleaf; +leftleaf = z0--z2..z4..z5..z6..z7; +path topleaf; +topleaf = z7..z8..z9..z10..z11; +path rightleaf; +rightleaf = z11..z12..z13..z14..z3--z1--z0; + +fill leftleaf & topleaf & rightleaf & cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"175",em#+2ss#,cap#,0); "Diamonds"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2,h+o); +z1 = (w-ss,h/2); +z2 = (w/2,0-o); +z3 = (ss,h/2); +draw z0--z1--z2--z3--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"176",em#+2ss#,cap#,0); "Hearts"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2,3h/4); +z1 = (w/4,h+o); +z2 = (3w/4,h+o); +z3 = (ss,3h/4); +z4 = (w-ss,3h/4); +z5 = (w/2,0); + +draw z5---z4..z2..z0; +draw z5---z3..z1..z0; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"177",em#+2ss#,cap#,0); "Spades"; + +z0 = (w/2-thinstroke,0); +z1 = z0 shifted (2thinstroke,0); +z2 = z0 shifted (0,2thickstroke); +z3 = z1 shifted (0,2thickstroke); +z4 = (w/4,thickstroke/2); +z5 = (ss,h/3); +z6 = (w/4,2h/3); +z7 = (w/2,h+o); +z8 = (3w/4,2h/3); +z9 = (w-ss,h/3); +z10 = (3w/4,thickstroke/2); + +fill z0--z2..z4..z5..z6..{dir 70}z7{dir -70}..z8..z9..z10..z3--z1--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/mathomx.mf b/Master/texmf-dist/fonts/source/public/drm/mathomx.mf new file mode 100644 index 00000000000..efd130ddd5b --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/mathomx.mf @@ -0,0 +1,1463 @@ +% +AMDG This document was begun on 10 July 11EX, the feast +% of St. John Gualbert, A, and it is humbly dedicated to him +% and to the Immaculate Heart of Mary for their prayers, and +% to the Sacred Heart of Jesus for His mercy. + +picture paren; +picture squarebrack; + +beginchar(oct"000",1.5pwid#,cap#,dep#); "The open parenthesis, ("; + +z0 = (w,h+o); +z1 = (w,-d-o); +z2 = (ss,(h-d)/2); +z3 = z2 shifted (thickl,0); + +fill z1{dir 150}..{up}z3{up}..{dir 30}z0{dir + 200}..{down}z2{down}..{dir -20}z1..cycle; + +paren := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"001",1.5pwid#,cap#,dep#); "The close parenthesis, )"; + +currentpicture := paren rotatedaround ((w/2,(h-d)/2),180); + +endchar; + +beginchar(oct"002",2pwid#,cap#+ss#,dep#); "The open square bracket, ["; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thickl); +z2 = (ss,h); +z3 = z2 shifted (thickl,-thickl); +z4 = (ss,-d); +z5 = z4 shifted (thickl,thickl); +z6 = (w-ss,-d); +z7 = z6 shifted (0,thickl); +z8 = 0.5[z0,z1] shifted (0,0); +z9 = 0.5[z7,z6] shifted (0,0); + +path squarebrack; +squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; +fill squarebrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"003",2pwid#,cap#+ss#,dep#); "The close square bracket, ]"; +fill squarebrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"004",2pwid#,cap#,dep#); "left floor"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"005",2pwid#,cap#,dep#); "right floor"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"006",2pwid#,cap#,dep#); "left ceil"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +top rt z2 = (w-ss,h+o); +draw z1--z0--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"007",2pwid#,cap#,dep#); "right ceil"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +top lft z2 = (ss,h+o); +draw z2--z0--z1; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"010",1.8pwid#,cap#+ss#,dep#); "The open curly bracket, {"; + +brackwid = thickl; +toth = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-d); +lft z2 = (ss,h-toth/2); +z3 = (3(x0-x2)/4,h-toth/4); +z4 = (3(x0-x2)/4,h-3toth/4); + +path curlybrack; +curlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; +draw curlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"011",1.8pwid#,cap#+ss#,dep#); "The close curly bracket, }"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw curlybrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"012",1.8pwid#,cap#+ss#,dep#); "Open angle bracket"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,(h+d)/2-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"013",1.8pwid#,cap#+ss#,dep#); "Close angle bracket"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +rt z1 = (w-ss,(h+d)/2-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"014",0.9pwid#,ex#,0); "pipe extender"; + +pickup pencircle scaled thickl; +z0 = (w/2,h); +z1 = (w/2,0); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"015",0.9pwid#,ex#,0); "pipe extender"; + +pickup pencircle scaled thickl; +z0 = (w/2-thickstroke,h); +z1 = (w/2-thickstroke,0); +z2 = (w/2+thickstroke,h); +z3 = (w/2+thickstroke,0); +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"016",2pwid#,cap#,0); "slash, solidus"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z1 = (ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"017",2pwid#,cap#,0); "backslash"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot rt z1 = (w-ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"020",2.5pwid#,2cap#,2dep#); "Bigger open parenthesis, ("; + +z0 = (w,h+o); +z1 = (w,-d-o); +z2 = (ss,(h-d)/2); +z3 = z2 shifted (thickl,0); + +fill z1{dir 150}..{up}z3{up}..{dir 30}z0{dir + 200}..{down}z2{down}..{dir -20}z1..cycle; + +picture biggerparen; +biggerparen := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"021",2.5pwid#,2cap#,2dep#); "Bigger close parenthesis, )"; + +currentpicture := biggerparen rotatedaround ((w/2,(h-d)/2),180); + +endchar; + +beginchar(oct"022",3pwid#,3cap#,3dep#); "Bigger open parenthesis, ("; + +z0 = (w,h+o); +z1 = (w,-d-o); +z2 = (ss,(h-d)/2); +z3 = z2 shifted (thickl,0); + +fill z1{dir 150}..{up}z3{up}..{dir 30}z0{dir + 200}..{down}z2{down}..{dir -20}z1..cycle; + +picture biggererparen; +biggererparen := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"023",3pwid#,3cap#,3dep#); "Bigger close parenthesis, )"; + +currentpicture := biggererparen rotatedaround ((w/2,(h-d)/2),180); + +endchar; + +beginchar(oct"040",4pwid#,4cap#,4dep#); "Bigger open parenthesis, ("; + +z0 = (w,h+o); +z1 = (w,-d-o); +z2 = (ss,(h-d)/2); +z3 = z2 shifted (thickl,0); + +fill z1{dir 150}..{up}z3{up}..{dir 30}z0{dir + 200}..{down}z2{down}..{dir -20}z1..cycle; + +picture biggestparen; +biggestparen := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"041",4pwid#,4cap#,4dep#); "Bigger close parenthesis, )"; + +currentpicture := biggestparen rotatedaround ((w/2,(h-d)/2),180); + +endchar; + +beginchar(oct"024",3pwid#,3cap#+ss#,3dep#); "The open square bracket, ["; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thickl); +z2 = (ss,h); +z3 = z2 shifted (thickl,-thickl); +z4 = (ss,-d); +z5 = z4 shifted (thickl,thickl); +z6 = (w-ss,-d); +z7 = z6 shifted (0,thickl); +z8 = 0.5[z0,z1] shifted (0,0); +z9 = 0.5[z7,z6] shifted (0,0); + +path biggersquarebrack; +biggersquarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; +fill biggersquarebrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"025",3pwid#,3cap#+ss#,3dep#); "The close square bracket, ]"; +fill biggersquarebrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"042",4pwid#,4cap#+ss#,4dep#); "The open square bracket, ["; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thickl); +z2 = (ss,h); +z3 = z2 shifted (thickl,-thickl); +z4 = (ss,-d); +z5 = z4 shifted (thickl,thickl); +z6 = (w-ss,-d); +z7 = z6 shifted (0,thickl); +z8 = 0.5[z0,z1] shifted (0,0); +z9 = 0.5[z7,z6] shifted (0,0); + +path biggestsquarebrack; +biggestsquarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; +fill biggestsquarebrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"043",4pwid#,4cap#+ss#,4dep#); "The close square bracket, ]"; +fill biggestsquarebrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"026",3pwid#,3cap#,3dep#); "left floor"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"027",3pwid#,3cap#,3dep#); "right floor"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"044",4pwid#,4cap#,4dep#); "left floor"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"045",4pwid#,4cap#,4dep#); "right floor"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"030",3pwid#,3cap#,3dep#); "left ceil"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +top rt z2 = (w-ss,h+o); +draw z1--z0--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"031",3pwid#,3cap#,3dep#); "right ceil"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +top lft z2 = (ss,h+o); +draw z2--z0--z1; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"046",4pwid#,4cap#,4dep#); "left ceil"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +top rt z2 = (w-ss,h+o); +draw z1--z0--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"047",4pwid#,4cap#,4dep#); "right ceil"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +top lft z2 = (ss,h+o); +draw z2--z0--z1; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"032",3pwid#,3cap#+ss#,3dep#); "The open curly bracket, {"; + +biggertoth = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-d); +lft z2 = (ss,h-biggertoth/2); +z3 = (3(x0-x2)/4,h-biggertoth/4); +z4 = (3(x0-x2)/4,h-3biggertoth/4); + +path biggercurlybrack; +biggercurlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; +draw biggercurlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"033",3pwid#,3cap#+ss#,3dep#); "The close curly bracket, }"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw biggercurlybrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"050",4pwid#,4cap#+ss#,4dep#); "The open curly bracket, {"; + +biggesttoth = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-d); +lft z2 = (ss,h-biggesttoth/2); +z3 = (3(x0-x2)/4,h-biggesttoth/4); +z4 = (3(x0-x2)/4,h-3biggesttoth/4); + +path biggestcurlybrack; +biggestcurlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; +draw biggestcurlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"051",4pwid#,4cap#+ss#,4dep#); "The close curly bracket, }"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw biggestcurlybrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"150",2.5pwid#,2cap#+ss#,2dep#); "The open square bracket, ["; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thickl); +z2 = (ss,h); +z3 = z2 shifted (thickl,-thickl); +z4 = (ss,-d); +z5 = z4 shifted (thickl,thickl); +z6 = (w-ss,-d); +z7 = z6 shifted (0,thickl); +z8 = 0.5[z0,z1] shifted (0,0); +z9 = 0.5[z7,z6] shifted (0,0); + +path squarebrack; +squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; +fill squarebrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"151",2.5pwid#,2cap#+ss#,2dep#); "The close square bracket, ]"; +fill squarebrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"152",2.5pwid#,2cap#,2dep#); "left floor"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"153",2.5pwid#,2cap#,2dep#); "right floor"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"154",2.5pwid#,2cap#,2dep#); "left ceil"; + +pickup pencircle scaled thickl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,-d); +top rt z2 = (w-ss,h+o); +draw z1--z0--z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"155",2.5pwid#,2cap#,2dep#); "right ceil"; + +pickup pencircle scaled thickl; +top rt z0 = (w-ss,h+o); +bot rt z1 = (w-ss,-d); +top lft z2 = (ss,h+o); +draw z2--z0--z1; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"156",2.5pwid#,2cap#+ss#,2dep#); "The open curly bracket, {"; + +brackwid := 2thinl; +tothtwo = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-d); +lft z2 = (ss,h-tothtwo/2); +z3 = (3(x0-x2)/4,h-tothtwo/4); +z4 = (3(x0-x2)/4,h-3tothtwo/4); + +path curlybrack; +curlybrack = z0{left}..{down}z3..{left}z2{right}..z4{down}..{right}z1; +draw curlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"157",2.5pwid#,2cap#+ss#,2dep#); "The close curly bracket, }"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw curlybrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"104",2.5pwid#,2cap#+ss#,3dep#); "Open angle bracket"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,(h+d)/2-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"034",3pwid#,3cap#+ss#,3dep#); "Open angle bracket"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,(h+d)/2-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"105",2.5pwid#,2cap#+ss#,3dep#); "Close angle bracket"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +rt z1 = (w-ss,(h+d)/2-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"035",3pwid#,3cap#+ss#,3dep#); "Close angle bracket"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +rt z1 = (w-ss,(h+d)/2-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"036",3pwid#,3cap#,0); "slash, solidus"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z1 = (ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"037",3pwid#,3cap#,0); "backslash"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot rt z1 = (w-ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"052",4pwid#,4cap#+ss#,4dep#); "Open angle bracket"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,(h+d)/2-d); +bot rt z2 = (w-ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"053",4pwid#,4cap#+ss#,4dep#); "Close angle bracket"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +rt z1 = (w-ss,(h+d)/2-d); +bot lft z2 = (ss,-d); +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"054",4pwid#,4cap#,0); "slash, solidus"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z1 = (ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"055",4pwid#,4cap#,0); "backslash"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot rt z1 = (w-ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"056",2.5pwid#,2cap#,0); "slash, solidus"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z1 = (ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"057",2.5pwid#,2cap#,0); "backslash"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot rt z1 = (w-ss,0-o); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); +endchar; + +beginchar(oct"060",3pwid#,3cap#,3dep#); "The open paren top exten"; + +z0 = (w,h+o); +z1 = (w,-d-o); +z2 = (ss,-d); +z3 = z2 shifted (thickl,0); + +fill z3{up}...{dir 30}z0{dir 200}...{down}z2--cycle; + +picture openparentop; +openparentop := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"061",3pwid#,3cap#,3dep#); "The close paren top exten"; + +currentpicture := openparentop reflectedabout + ((w/2,h),(w/2,(h-d)/2)); + +endchar; + +beginchar(oct"062",3pwid#,3cap#+ss#,3dep#); +"The top open square bracket exten"; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thickl); +z2 = (ss,h); +z3 = z2 shifted (thickl,-thickl); +z4 = (ss,-d); +z5 = z4 shifted (thickl,0); + +path topsquarebrack; +topsquarebrack = z0--z2--z4--z5--z3--z1--cycle; +fill topsquarebrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"063",3pwid#,3cap#+ss#,3dep#); +"The top close square bracket exten"; +fill topsquarebrack reflectedabout ((w/2,h),(w/2,-d)); +endchar; + +beginchar(oct"064",3pwid#,3cap#+ss#,3dep#); +"The bottom open square bracket exten"; +fill topsquarebrack reflectedabout ((0,(h-d)/2),(w,(h-d)/2)); +endchar; + +beginchar(oct"065",3pwid#,3cap#+ss#,3dep#); +"The bottom open square bracket exten"; +fill topsquarebrack rotatedaround ((w/2,(h-d)/2),180); +endchar; + +beginchar(oct"066",3pwid#,ex#,dep#); +"left square bracket extension piece"; +z0 = (ss,h); +z1 = z0 shifted (thickl,0); +z2 = (ss,-d); +z3 = z2 shifted (thickl,0); +fill z0--z1--z3--z2--cycle; +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"067",3pwid#,ex#,dep#); +"right square bracket extension piece"; +z0 = (w-ss,h); +z1 = z0 shifted (-thickl,0); +z2 = (w-ss,-d); +z3 = z2 shifted (-thickl,0); +fill z0--z1--z3--z2--cycle; +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"102",3pwid#,ex#,dep#); "Left paren exten"; + +z0 = (ss,h); +z1 = (ss,-d); +z2 = z1 shifted (thickl,0); +z3 = z0 shifted (thickl,0); +fill z0--z1--z2--z3--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"103",3pwid#,ex#,dep#); "Right paren exten"; + +z0 = (w-ss,h); +z1 = (w-ss,-d); +z2 = z1 shifted (-thickl,0); +z3 = z0 shifted (-thickl,0); +fill z0--z1--z2--z3--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"100",3pwid#,3cap#,3dep#); "The open paren bot exten"; +currentpicture := openparentop reflectedabout + ((0,(h-d)/2),(w,(h-d)/2)); +endchar; + +beginchar(oct"101",3pwid#,3cap#,3dep#); "The close paren bot exten"; +currentpicture := openparentop reflectedabout + ((0,(h-d)/2),(w,(h-d)/2)) reflectedabout + ((w/2,h),(w/2,(h-d)/2)); +endchar; + +beginchar(oct"070",3pwid#,cap#,0); "The open curly top exten"; + +brackwid := thickl; +toth := h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +z1 = (w/2,0); +draw z0{left}..{down}z1; + +picture curlyopentop; curlyopentop := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"071",3pwid#,cap#,0); "The close curly top exten"; +currentpicture := curlyopentop reflectedabout + ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"072",3pwid#,cap#,0); "The open curly bot exten"; +currentpicture := curlyopentop reflectedabout + ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"073",3pwid#,cap#,0); "The close curly bot exten"; +currentpicture := curlyopentop reflectedabout + ((0,h/2),(w,h/2)) reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"076",3pwid#,ex#,0); "The open curly brack exten"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw (w/2,h)--(w/2,0); +endchar; + +beginchar(oct"074",3pwid#,3cap#,0); "The open middle curly brack"; +pickup pencircle xscaled brackwid yscaled (thinl); +z0 = (w/2,h); +z1 = (2w/3,0.6h); +z2 = (ss,h/2); +z3 = (2w/3,0.4h); +z4 = (w/2,0); +draw z0{down}..{dir -165}z2; +draw z4{up}..{dir -195}z2; +picture midcurly; midcurly := currentpicture; +endchar; + +beginchar(oct"075",3pwid#,3cap#,0); "The close middle curly brack"; +currentpicture := midcurly reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"077",ex#,ex#,0); "Vertical arrow extension"; +pickup pencircle scaled 1.5thinl; +draw (w/2,h)--(w/2,0); +endchar; + +beginchar(oct"170",ex#,cap#,0); "Upward arrow head"; +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +bot z1 = (w/2,0); +lft z2 = (0,2h/3); +rt z3 = (w,2h/3); +draw z0--z1; +draw z2--z0--z3; +picture uparrow; uparrow := currentpicture; +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"171",ex#,cap#,0); "Downward arrow head"; +currentpicture := uparrow reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"176",em#,cap#,0); "Double up arrow with head"; +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +lft z1 = (0,2h/3); +rt z2 = (w,2h/3); +path head; head = z1--z0--z2; draw head; +z3 = (w/3,0); +z4 = (2w/3,0); +z5 = (z3--(x3,h)) intersectionpoint head; +z6 = (z4--(x4,h)) intersectionpoint head; +draw z3--z5; draw z4--z6; +picture doublehead; doublehead := currentpicture; +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"177",em#,cap#,0); "Double down arrow with head"; +currentpicture := doublehead reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"167",em#,cap#,0); "Double arrow exten"; +pickup pencircle scaled 1.5thinl; +draw (w/3,0)--(w/3,h); +draw (2w/3,0)--(2w/3,h); +endchar; + +beginchar(oct"106",1.5ex#,cap#,0); "small upward square cup"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot lft z2 = (ss,0-o); +bot rt z3 = (w-ss,0-o); +path upsquarecup; upsquarecup = z0--z2--z3--z1; +draw upsquarecup; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"107",3ex#,2cap#,ex#); "large upward square cup"; + +pickup pencircle scaled thickl; +draw upsquarecup scaled 2 shifted (0,-ex); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"142",ex#,cap#,0); "narrow hat"; + +z0 = (ss,h-pwid); +z1 = (w/2,h+o); +z2 = (w-ss,y0); +z3 = z1 shifted (0,-thickl); +z4 = z0 shifted (0,thinl); +z5 = z2 shifted (0,thinl); +path hat; hat = z1--z5{dir -45}..z2--z3--z0{dir -225}..z4--cycle; +fill hat; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"143",2ex#,cap#,0); "middle hat"; +fill hat xscaled 2; +endchar; + +beginchar(oct"144",3ex#,cap#,0); "wide hat"; +fill hat xscaled 3; +endchar; + +beginchar(oct"145",ex#,cap#,0); "narrow tilde"; + +z0 = (ss,h-pwid-o); +z1 = (w/3,h-ss); +z2 = (2w/3,h-pwid); +z3 = (w-ss,h); +z4 = z1 shifted (0,-1.5thinl); +z5 = z2 shifted (0,1.5thinl); + +path tildpath; +tildpath = z0..{right}z1{right}..{right}z5{right}.. + {dir 60}z3{dir -95}..{left}z2{left}..{left}z4{left}.. + z0..cycle; +fill tildpath; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"146",2ex#,cap#,0); "middle tilde"; +fill tildpath xscaled 2; +endchar; + +beginchar(oct"147",3ex#,cap#,0); "wide tilde"; +fill tildpath xscaled 3; +endchar; + +beginchar(oct"122",ex#+2ss#,asch#,dep#); "Integral; moustache"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0 = (w/2,h-curlh); +penpos1(thickl,0); +z1 = (w/2,-d+curlh); +penpos2(thinl,-90); +z2 = (3w/4,h+o); +penpos3(thinl,-90); +z3 = (x1-curlw,-d-o); +penpos4(thickl,180); +z4 = (x2+curlw,y0); +penpos5(thickl,-180); +z5 = (x3-curlw,y1); +penpos6(thinl,70); +z6r = (w/2,ex); +penpos7(thinl,70); +z7 = (ss,y6); +penpos8(thinl,70); +z8 = (w-ss,y6); +penpos9(thinl,0); +z9r = z4r; +penpos10(thinl,225); +z10r = z9r; +penpos11(thinl,0); +z11l = z5l; +penpos12(thinl,225); +z12l = z11l; + +penstroke (z12e..z11e..z5e..{right}z3e{right}..z1e--- + z0e..{right}z2e{right}..z4e..z9e..z10e) + slanted (1/6); + +picture smallint; smallint := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"132",2ex#+2ss#,2asch#,2dep#); "Large integral; moustache"; +italcorr(ex#*slant); + +penpos0(thickl,0); +z0 = (w/2,h-curlh); +penpos1(thickl,0); +z1 = (w/2,-d+curlh); +penpos2(thinl,-90); +z2 = (3w/4,h+o); +penpos3(thinl,-90); +z3 = (x1-curlw,-d-o); +penpos4(thickl,180); +z4 = (x2+curlw,y0); +penpos5(thickl,-180); +z5 = (x3-curlw,y1); +penpos6(thinl,70); +z6r = (w/2,ex); +penpos7(thinl,70); +z7 = (ss,y6); +penpos8(thinl,70); +z8 = (w-ss,y6); +penpos9(thinl,0); +z9r = z4r; +penpos10(thinl,225); +z10r = z9r; +penpos11(thinl,0); +z11l = z5l; +penpos12(thinl,225); +z12l = z11l; + +penstroke (z12e..z11e..z5e..{right}z3e{right}..z1e--- + z0e..{right}z2e{right}..z4e..z9e..z10e) + slanted (1/6); + +picture largeint; largeint := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"110",ex#+2ss#,asch#,dep#); +"Integral, circled; moustache, circled"; +italcorr(ex#*slant); + +currentpicture := smallint; +pickup pencircle scaled 1.5thinl; +draw (fullcircle scaled (w/2+3thinl) shifted (w/2,h/3)) + slanted (1/6); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"111",2ex#+2ss#,2asch#,2dep#); +"Large Integral, circled; Large moustache, circled"; +italcorr(ex#*slant); + +currentpicture := largeint; +pickup pencircle scaled 1.5thinl; +draw (fullcircle scaled (w/2+3thinl) shifted (w/2,h/3)) + slanted (1/6); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"160",3em#/4+2ss#,thickstroke#,cap#); "square root"; + +z0 = (ss,cap/3); +z1 = (w/8,cap/3+thickl); +z2 = (w/3,0-o); +z3 = (w-ss,cap+thickl); +z4 = z0 shifted (0,-thinl/2); +z5 = z1 shifted (0,-1.5thickl); +z6 = z2 shifted (0,1.5thickl); +z7 = z3 shifted (0,-thickl); +z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted + (thinl/2,-thinl/2); +z9 = z3 shifted (thickl,0); +z10 = z7 shifted (thickl,0); + +fill (z0--z4--z8--z5--z2--z7--z10--z9--z3--z6--z1--cycle) + shifted (0,-cap); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"161",3em#/4+2ss#,thickstroke#,2cap#); "second square root"; + +z0 = (ss,2cap/3); +z1 = (w/8,2cap/3+2thickl); +z2 = (w/3,0-o); +z3 = (w-ss-thinl,2cap+thickl); +z4 = z0 shifted (0,-thinl); +z5 = z1 shifted (0,-3thickl); +z6 = z2 shifted (0,3thickl); +z7 = z3 shifted (thinl,-thickl); +z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted + (thinl/4,-thinl); +z9 = z3 shifted (2thickl,0); +z10 = z7 shifted (2thickl,0); + +fill (z0--z4--z8--z5--z2--z7--z10--z9--z3--z6--z1--cycle) + shifted (0,-2cap); +endchar; + +beginchar(oct"162",em#+2ss#,thickstroke#,3cap#); "third square root"; +z0 = (ss,3cap/3); +z1 = (w/8,3cap/3+3thickl); +z2 = (w/3,0-o); +z3 = (w-ss-2thinl,3cap+thickl); +z4 = z0 shifted (0,-thinl); +z5 = z1 shifted (0,-3thickl); +z6 = z2 shifted (0,5thickl); +z7 = z3 shifted (2thinl,-thickl); +z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted + (thinl/2,-thinl); +z9 = z3 shifted (2thickl,0); +z10 = z7 shifted (2thickl,0); + +fill (z0--z4--z8--z5--z2--z7--z10--z9--z3--z6--z1--cycle) + shifted (0,-3cap); +endchar; + +beginchar(oct"163",em#+2ss#,thickstroke#,4cap#); "fourth square root"; +z0 = (ss,4cap/3); +z1 = (w/8,4cap/3+4thickl); +z2 = (w/3,0-o); +z3 = (w-ss-2thinl,4cap+thickl); +z4 = z0 shifted (0,-thinl); +z5 = z1 shifted (0,-4thickl); +z6 = z2 shifted (0,7thickl); +z7 = z3 shifted (2thinl,-thickl); +z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted + (thinl/2,-thinl); +z9 = z3 shifted (2thickl,0); +z10 = z7 shifted (2thickl,0); + +fill (z0--z4--z8--z5--z2--z7--z10--z9--z3--z6--z1--cycle) + shifted (0,-4cap); +endchar; + +beginchar(oct"164",3em#/4+2ss#,2cap#,0); "radical bot exten"; + +z0 = (ss,3h/4-2thickl); +z1 = (w/8,3h/4+thickl); +z2 = (w-ss,0-o); +z3 = (w-ss,h+o); +z4 = z0 shifted (0,-thinl/2); +z5 = z1 shifted (0,-2thickl); +z6 = z2 shifted (0,2thickl); +z7 = z3 shifted (-thickl,0); +z8 = ((z4--z1) intersectionpoint (z5--(0,y1))) shifted + (thinl/2,-thinl/2); +z9 = 0.19[z6,z1]; +z10 = z4 rotatedaround (z0,45); + +fill z0--z10--z5--z2--z3--z7--z9--z1--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"165",3em#/4+2ss#,ex#,0); "radical exten"; + +z0 = (w-ss,h); +z1 = z0 shifted (-thickl,0); +z2 = (w-ss,0); +z3 = z2 shifted (-thickl,0); + +fill z0--z1--z3--z2--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"166",3em#/4+2ss#,thickstroke#,ex#); "radical top exten"; + +z0 = (w-ss,h); +z1 = z0 shifted (-thickstroke,0); +z2 = (w-ss,-d); +z3 = z2 shifted (-thickstroke,0); +z4 = z0 shifted (0,-thickstroke); +z5 = z4 shifted (thickl,0); +z6 = z0 shifted (thickl,0); + +fill (z3--z1--z6--z5--z4--z2--cycle); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"112",em#+2ss#,asch#,0); "circle dot"; +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h/2); +fill fullcircle scaled (1.5thickl) shifted (w/2,h/2); +endchar; + +beginchar(oct"113",2em#+2ss#,2asch#,0); "large circle dot"; +pickup pencircle scaled thickl; +draw fullcircle scaled (w-2ss-thickl) shifted (w/2,h/2); +fill fullcircle scaled (2thickl) shifted (w/2,h/2); +endchar; + +beginchar(oct"114",em#+2ss#,asch#,0); "circle plus"; +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h/2); +lft z0 = (ss,h/2); rt z1 = (w-ss,h/2); +top z2 = (w/2,h); bot z3 = (w/2,0); +draw z0--z1; draw z2--z3; +endchar; + +beginchar(oct"115",2em#+2ss#,2asch#,0); "large circle plus"; +pickup pencircle scaled thickl; +draw fullcircle scaled (w-2ss-thickl) shifted (w/2,h/2); +lft z0 = (ss,h/2); rt z1 = (w-ss,h/2); +top z2 = (w/2,h); bot z3 = (w/2,0); +draw z0--z1; draw z2--z3; +endchar; + +beginchar(oct"116",em#+2ss#,asch#,0); "circle x"; +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h/2); +lft z0 = (ss,h/2); rt z1 = (w-ss,h/2); +top z2 = (w/2,h); bot z3 = (w/2,0); +draw (z0--z1) rotatedaround ((w/2,h/2),45); +draw (z2--z3) rotatedaround ((w/2,h/2),45); +endchar; + +beginchar(oct"117",2em#+2ss#,2asch#,0); "large circle x"; +pickup pencircle scaled thickl; +draw fullcircle scaled (w-2ss-thickl) shifted (w/2,h/2); +lft z0 = (ss,h/2); rt z1 = (w-ss,h/2); +top z2 = (w/2,h); bot z3 = (w/2,0); +draw (z0--z1) rotatedaround ((w/2,h/2),45); +draw (z2--z3) rotatedaround ((w/2,h/2),45); +endchar; + +beginchar(oct"120",5em#/6+2ss#,cap#,0); "The letter Sigma"; +italcorr(ex#*slant); + +z0 = (w-ss,h); +z1 = (w-ss,h-thickstroke-thinstroke); +z2 = z1 shifted (-thinstroke,0); +z3 = z2 shifted (0,thinstroke); +z4 = (ss,h); +z5 = (ss,h-thickstroke); +z6 = (w/2-1.5thinstroke/2,h/2); +z7 = z6 shifted (1.5thinstroke,0); +z8 = (ss,0); +z9 = z8 shifted (0,thickstroke); +z10 = (w-ss,0); +z11 = z10 shifted (0,thickstroke+thinstroke); +z12 = z11 shifted (-thinstroke,0); +z13 = z12 shifted (0,-thinstroke); +z14 = z5 shifted (1.5thinstroke,0); +z15 = z9 shifted (1.5thinstroke,0); + +fill z11--z10--z8--z9--z6--z5--z4--z0--z1--z2--z3--z14-- + z7--z15--z13--z12--cycle; + +picture Sigma; Sigma := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"130",10em#/6+2ss#,2cap#,0); "Large Sigma"; +italcorr(ex#*slant); +currentpicture := Sigma scaled 2 shifted (-ss,0); +endchar; + +beginchar(oct"121",6em#/6+2ss#,cap#,0); "The letter Pi"; +italcorr(ex#*slant); + +z0 = (ss+lserw,lserh); +z1 = z0 shifted (thickstroke,0); +z2 = (w-ss-lserw,lserh); +z3 = z2 shifted (-thickstroke,0); +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +llserif(3,12,13,14,15)(1); +lrserif(2,16,17,18,19)(1); +z20 = (x0,h-lserh); +z21 = (x1,h-thinstroke); +z22 = (x3,h-thinstroke); +z23 = (x2,h-lserh); +ulserif(20,24,25,26,27)(1); +urserif(23,28,29,30,31)(1); +y26 := y30 := h; +y6 := y10 := y14 := y18 := 0; + +fill +z0..z4..z5--z6--z10--z9..z8..z1--z21--z22--z3..z12..z13--z14--z18--z17..z16..z2--z23..z28..z29--z30--z26--z25..z24..z20--cycle; + +picture pipic; pipic := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +penlabels(19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endchar; + +beginchar(oct"131",2em#+2ss#,2cap#,0); "Large Pi"; +italcorr(ex#*slant); +currentpicture := pipic scaled 2 shifted (-ss,0); +endchar; + +beginchar(oct"140",em#+2ss#,cap#,0); "Inverse Pi"; +italcorr(ex#*slant); +currentpicture := pipic shifted (-ss,0) + reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"141",2em#+2ss#,2cap#,0); "Large Inverse Pi"; +italcorr(ex#*slant); +currentpicture := pipic scaled 2 shifted (-ss,0) + reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"123",0.75em#+2ss#,cap#,0); "union"; +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +bot z1 = (w/2,0); +top rt z2 = (w-ss,h); +lft z5 = (ss,w/3); +rt z6 = (w-ss,y5); + +draw z0---z5..{right}z1{right}..z6---z2; +picture union; union := currentpicture; +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"133",1.25em#+2ss#,2cap#,0); "big union"; +pickup pencircle scaled thickl; +top lft z0 = (ss,h); +bot z1 = (w/2,0); +top rt z2 = (w-ss,h); +lft z5 = (ss,w/3); +rt z6 = (w-ss,y5); +draw z0---z5..{right}z1{right}..z6---z2; +picture bigunion; bigunion := currentpicture; +endchar; + +beginchar(oct"124",0.75em#+2ss#,cap#,0); "intersection"; +currentpicture := union reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"134",1.25em#+2ss#,2cap#,0); "big intersection"; +currentpicture := bigunion reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"125",0.75em#+2ss#,cap#,0); "intersection"; +currentpicture := union; +pickup pencircle scaled 1.5thinl; +z0 = (w/4,h/2); +z1 = (3w/4,h/2); +z2 = z0 rotatedaround ((w/2,h/2),90); +z3 = z0 rotatedaround ((w/2,h/2),-90); +draw z0--z1; draw z2--z3; +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"135",1.25em#+2ss#,2cap#,0); "big intersection"; +currentpicture := bigunion; +pickup pencircle scaled thickl; +z0 = (w/4,h/2); +z1 = (3w/4,h/2); +z2 = z0 rotatedaround ((w/2,h/2),90); +z3 = z0 rotatedaround ((w/2,h/2),-90); +draw z0--z1; draw z2--z3; +endchar; + +beginchar(oct"126",0.75em#+2ss#,cap#,0); "upward triangle"; +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +bot lft z1 = (ss,0); +bot rt z2 = (w-ss,0); +draw z0--z1; draw z0--z2; +picture uptri; uptri := currentpicture; +endchar; + +beginchar(oct"136",1.25em#+2ss#,2cap#,0); "big upward triangle"; +pickup pencircle scaled thickl; +top z0 = (w/2,h); +bot lft z1 = (ss,0); +bot rt z2 = (w-ss,0); +draw z0--z1; draw z0--z2; +picture biguptri; biguptri := currentpicture; +endchar; + +beginchar(oct"127",0.75em#+2ss#,cap#,0); "upward triangle"; +currentpicture := uptri reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"137",1.25em#+2ss#,2cap#,0); "big upward triangle"; +currentpicture := biguptri reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"172",cap#,3pwid#,0); "downbrace left"; +currentpicture := curlyopentop reflectedabout ((0,h/2),(w,h/2)) + rotatedaround ((w/2,h/2),-90) shifted (pwid/2,0); +endchar; + +beginchar(oct"173",cap#,3pwid#,0); "downbrace right"; +currentpicture := curlyopentop reflectedabout ((0,h/2),(w,h/2)) + rotatedaround ((w/2,h/2),90) shifted (-pwid/2,0) + reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"174",cap#,3pwid#,0); "upbrace left"; +currentpicture := curlyopentop reflectedabout ((0,h/2),(w,h/2)) + rotatedaround ((w/2,h/2),90) shifted (-pwid/2,0) + reflectedabout ((w/2,0),(w/2,h)); +endchar; + +beginchar(oct"175",cap#,3pwid#,0); "upbrace right"; +currentpicture := curlyopentop reflectedabout ((0,h/2),(w,h/2)) + rotatedaround ((w/2,h/2),90) shifted (-pwid/2,0); +endchar; + +% open parens +charlist oct"000" : oct"020" : oct"022" : oct"040" : oct"060"; +extensible oct"060": oct"060",0,oct"100",oct"102"; +% close parens +charlist oct"001" : oct"021" : oct"023" : oct"041" : oct"061"; +extensible oct"061": oct"061",0,oct"101",oct"103"; +% open square brackets +charlist oct"002" : oct"150" : oct"024" : oct"042" : oct"062"; +extensible oct"062" : oct"062",0,oct"064",oct"066"; +% close square brackets +charlist oct"003" : oct"151" : oct"025" : oct"043" : oct"063"; +extensible oct"063" : oct"063",0,oct"065",oct"067"; +% open floor +charlist oct"004" : oct"152" : oct"026" : oct"044" : oct"064"; +extensible oct"064" : 0,0,oct"064",oct"066"; +% close floor +charlist oct"005" : oct"153" : oct"027" : oct"045" : oct"065"; +extensible oct"065" : 0,0,oct"065",oct"067"; +% open ceiling +charlist oct"006": oct"154": oct"030": oct"046": oct"066"; +extensible oct"066": oct"062",0,0,oct"066"; +% close ceiling +charlist oct"007": oct"155": oct"031": oct"047": oct"067"; +extensible oct"067": oct"063",0,0,oct"067"; +% open curly +charlist oct"010": oct"156": oct"032": oct"050": oct"070"; +extensible oct"070": oct"070",oct"074",oct"072",oct"076"; +% close curly +charlist oct"011": oct"157": oct"033": oct"051": oct"071"; +extensible oct"071": oct"071",oct"075",oct"073",oct"076"; +% left angle brackets +charlist oct"012": oct"104": oct"034": oct"052"; +% right angle brackets +charlist oct"013": oct"105": oct"035": oct"053"; +charlist oct"016": oct"056": oct"036": oct"054"; % slashes +charlist oct"017": oct"057": oct"037": oct"055"; % backslashes +% single arrow extensions +extensible oct"074": 0,0,0,oct"077"; % arrow extension modules only +extensible oct"077": oct"170",0,oct"171",oct"077"; % updownarrow +extensible oct"170": oct"170",0,0,oct"077"; % uparrow +extensible oct"171": 0,0,oct"171",oct"077"; % downarrow +% double arrow extensions +extensible oct"075": 0,0,0,oct"167"; % double arrow extension modules only +extensible oct"167": oct"176",0,oct"177",oct"167"; % double updownarrow +extensible oct"176": oct"176",0,0,oct"167"; % double uparrow +extensible oct"177": 0,0,oct"177",oct"167"; % double downarrow +% radical extensions +charlist oct"160": oct"161": oct"162": oct"163": oct"164"; % radical signs +extensible oct"164": oct"166",0,oct"164",oct"165"; % radical sign +% vertical line +extensible oct"014": 0,0,0,oct"014"; +% double vertical line +extensible oct"015": 0,0,0,oct"015"; +% sharp parentheses +extensible oct"072": oct"070",0,oct"072",oct"076"; +extensible oct"073": oct"071",0,oct"073",oct"076"; +% parentheses extension modules only +extensible oct"102": 0,0,0,oct"102"; +extensible oct"103": 0,0,0,oct"103"; +% brace exension modules only +extensible oct"076": 0,0,0,oct"076"; +% large inegral signs ("moustaches") +extensible oct"100": oct"070",0,oct"073",oct"076"; +extensible oct"101": oct"071",0,oct"072",oct"076"; +% summation signs +charlist oct"120" : oct"130"; +% product signs +charlist oct"121" : oct"131"; +% integral signs; moustaches +charlist oct"122" : oct"132"; +% cups +charlist oct"123" : oct"133"; +% caps +charlist oct"124" : oct"134"; +% capplus +charlist oct"125" : oct"135"; +% wedges +charlist oct"126" : oct"136"; +% vees +charlist oct"127" : oct"137"; +% coprods +charlist oct"140" : oct"141"; +% circle times +charlist oct"116" : oct"117"; +% circle plus +charlist oct"114" : oct"115"; +% circle dot +charlist oct"112" : oct"113"; +% circle integrals +charlist oct"110" : oct"111"; +% squarecups +charlist oct"106" : oct"107"; diff --git a/Master/texmf-dist/fonts/source/public/drm/mathsym.mf b/Master/texmf-dist/fonts/source/public/drm/mathsym.mf new file mode 100644 index 00000000000..91155c685cf --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/mathsym.mf @@ -0,0 +1,284 @@ +% +AMDG This document was begun on 23 June 11EX, the feast +% of the Sacred Heart, and it is humbly dedicated to the +% Sacred Heart of Jesus, for His mercy. + +beginchar(oct"173",0.6ex#+2ss#,ex#,0); "dotless i"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +currentpicture := dotlessi; + +endchar; + +beginchar(oct"174",0.6ex#+2ss#,ex#,dep#); "dotless j"; +italcorr(ex#*slant); + +pickup pencircle yscaled thinl; +currentpicture := dotlessj; + +endchar; + +beginchar(oct"054",0.3ex#+2ss#,ex#,0); "open c"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,4h/5); +rt z2 = (w-ss,3h/5); +path mathc; mathc = z0{left}..z1..{right}z2; +draw mathc; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"055",0.3ex#+2ss#,ex#,0); "close c"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +draw mathc reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"056",ex#+2ss#,ex#,0); "right-pointing triangle"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; + +rt z0 = (w-ss,h/2); +top lft z1 = (ss,h); +bot lft z2 = (ss,0); +path mathtri; mathtri = z0--z1--z2--cycle; +draw mathtri; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); +endchar; + +beginchar(oct"057",ex#+2ss#,ex#,0); "left-pointing triangle"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +draw mathtri reflectedabout ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"072",pwid#,pwid#,0); "The decimal point, ."; +fill period; +endchar; + +beginchar(oct"073",pwid#,pwid#,0); "The comma, ,"; +fill commapost; +endchar; + +beginchar(oct"075",ex#/2+2ss#,cap#,0); "The forward slash, /"; + +currentpicture := slash; + +endchar; + +beginchar(oct"077",theight#+2ss#,theight#,0); "solid five-pointed star"; + +z0 = (w/2,h/2); +z1 = (w/2,h+o); +z2 = z1 rotatedaround (z0,72); +z3 = z2 rotatedaround (z0,72); +z4 = z3 rotatedaround (z0,72); +z5 = z4 rotatedaround (z0,72); +z6 = (z2--z5) intersectionpoint (z1--z4); +z7 = (z2--z5) intersectionpoint (z1--z3); +z8 = (z3--z5) intersectionpoint (z4--z1); +z9 = (z4--z2) intersectionpoint (z3--z1); +z10 = (z2--z4) intersectionpoint (z3--z5); + +path fivestar; fivestar = z1--z6--z5--z8--z4--z10--z3--z9--z2--z7--cycle; +fill fivestar; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"100",ex#+2ss#,cap#,0); "partial differential"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,h-1.5curlh); +penpos1(thinl,90); +z1r = z0r; +penpos2(thinl,180); +z2r = z1r; +penpos3(thinl,-90); +z3r = z2r; +penpos4(thinl,-90); +z4l = (w/2,h+o); +penpos5(thickl,180); +z5l = (w-ss,3h/4); +penpos6(thickl,180); +z6l = (w-ss,h/4); +penpos7(thinl,90); +z7l = (w/2,0-o); +penpos8(curvl,0); +z8l = (ss,h/4); +penpos9(thinl,-90); +z9l = (w/2,ex+o); + +penstroke z3e..z2e..z1e..z0e; +penstroke z0e{up}..z4e..z5e---z6e..z7e..z8e..z9e..z6e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"133",0.6ex#+2ss#,asch#,0); "musical flat"; +italcorr(ex#*slant); + +penpos0(thinl,0); +z0l = (ss,h); +penpos1(thinl,0); +z1l = (ss,0); +penpos2(thinl,90); +z2l = z1; +penpos3(curvl,180); +z3l = (w-ss,0.4h); +penpos5(thinl,-90); +z5 = (x1,0.4h); + +penstroke z0e--z1e; +penstroke z2e{right}..z3e..z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"134",0.6ex#+2ss#,asch#,dep#); "musical natural"; +italcorr(ex#*slant); + +penpos0(thinl,30); +z0l = (ss,h); +penpos1(thinl,30); +z1l = (ss,-dep/2); +penpos2(thinl,30); +z2r = (w-ss,h-dep/2); +penpos3(thinl,30); +z3r = (w-ss,-dep); +penpos4(thickl,-90); +z4r = z1r; +penpos5(thickl,-90); +z5l = z2l; +z6 = (w,y4); +penpos7(thickl,-90); +z7 = z6 rotatedaround(z4,30); +z8 = (0,y5); +z9 = z8 rotatedaround(z5,30); +penpos9(thickl,-90); + +penstroke z0e--z1e; +penstroke z2e--z3e; +penstroke z4e--z7e; +penstroke z9e--z5e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"135",ex#+2ss#,asch#,dep#); "musical sharp"; +italcorr(ex#*slant); + +penpos0(thinl,30); +z0l = (w/4,h); +penpos1(thinl,30); +z1l = (w/4,-dep/2); +penpos2(thinl,30); +z2r = (3w/4,h-dep/2); +penpos3(thinl,30); +z3r = (3w/4,-dep); +penpos4(thickl,120); +x4r = (ss); y4r = 0; +penpos5(thickl,120); +x5l = w-ss; y5l = h-dep; +z6 = (ss,y5); +z7 = (w-ss,y4); +penpos8(thickl,120); +z8 = z6 rotatedaround (z5,15); +penpos9(thickl,120); +z9 = z7 rotatedaround (z4,15); +penpos10(thinl,30); +z10 = (x1,-dep); +penpos11(thinl,30); +z11 = (x2,h+o); + +penstroke z0e--z10e; +penstroke z11e--z3e; +penstroke z8e--z5e; +penstroke z4e--z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"136",cap#+dep#+2ss#,asch#,dep#); "curve open up"; +italcorr(ex#*slant); + +currentpicture := paren rotated (90) shifted + (w/2+dep,h/2-pwid); + +endchar; + +beginchar(oct"137",cap#+dep#+2ss#,asch#,dep#); "curve open down"; +italcorr(ex#*slant); + +currentpicture := paren rotated (-90) shifted + (w/2-dep,h/2+pwid/2); + +endchar; + +beginchar(oct"176",ex#+2ss#,cap#,0); "vector arrow"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,h-curlh); +rt z1 = (w-ss,h-curlh); +z2 = (2w/3,h+o); +z3 = (2w/3,h-2curlh); + +draw z0--z1; +filldraw z2--z1--z3--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"177",ex#+2ss#,cap#,0); "tie"; +italcorr(ex#*slant); + +pickup pencircle scaled 1.5thinl; +top z0 = (w-ss,h-curlh); +top z1 = (w+w/2,h+o); +top z2 = (2w,h-curlh); + +draw z0..z1..z2; + +penlabels(0,1,2,3,4,5,6); +endchar; + +beginchar(oct"175",1.2ex#+2ss#,ex#,dep#); "wp"; +italcorr(ex#*slant); + +penpos0(thinl,-90); +z0 = (w/4,h); +penpos1(thickl,0); +z1l = (ss,3h/4); +penpos2(thickl,0); +z2l = (w/4,0); +penpos3(thinl,-90); +z3r = (w/8+hair,-dep); +penpos4(thinl,180); +z4r = (ss,-dep/2); +penpos5(thinl,90); +z5r = (0.6w,h+o); +penpos6(thickl,0); +z6r = (w-ss,h/2); +penpos7(thinl,-90); +z7r = (0.6w,0-o); +penpos8(thinl,0); +z8 = (x1r,h/4); +penpos9(thinl,180); +z9r = (x2r,y8); + +penstroke z0e{left}..z1e..z8e..z2e..z3e..z4e..{right}z5e.. + z6e..z7e..z9e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/oe.mf b/Master/texmf-dist/fonts/source/public/drm/oe.mf new file mode 100644 index 00000000000..792d276a1c3 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/oe.mf @@ -0,0 +1,34 @@ +beginchar(oct"327",em#+2ss#,cap#,0); "The ligature OE"; + +z1=((w/2-(thickstroke/2)),lserh); +z2=((ss_userw+(thickstroke/2)),lserh); +z3=((w/2-(thickstroke/2)),(h-userh)); +z4=((w/2+(thickstroke/2)),(h-thinstroke)); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); +z15=.5[z4,z5]; +z16=z15+(0,thinstroke/2); +z17=z16-(0,thinstroke); +z21=(0.6w,y16); +z22=(0.6w,y17); +z23=z21+(1.5ssslant,lserw/2); +z24=z23+(ssslant,lserw); +z25=z22+(1.5ssslant,-lserw/2); +z27=z25+(ssslant,-lserw); +z28 = z1 shifted (0,-lserh); +z31 = z3 shifted (0,userh); +z40 = (o+lserw,lserh); +z41 = z40 shifted (thinstroke,0); +z50 = z31 shifted (0,-1.6thinstroke); + +fill +z1--z3--z31--z8--z10..z11..z9--z4--z16--z21..z23..z24--z27..z25..z22--z17--z5--z30..z29..z7--z6--z28--z1..cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55); +endchar; + diff --git a/Master/texmf-dist/fonts/source/public/drm/oldstyfracs.mf b/Master/texmf-dist/fonts/source/public/drm/oldstyfracs.mf new file mode 100644 index 00000000000..b08bb87ba12 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/oldstyfracs.mf @@ -0,0 +1,73 @@ +% +AMDG This document was begun on 6 Aug 11EX, the Feast of +% the Transfiguration of Our Lord Jesus Christ, and the +% commemorations of St Xystus, PM, and Felicissimus and +% Agapitus, MM, and it is humbly dedicated to them and to +% the Immaculate Heart of Mary for their prayers, and to the +% Sacred Heart of Jesus for His mercy. + +beginchar(oct"275",em#+2ss#,cap#,0); "old-style fraction 1/2"; + +pickup pencircle scaled thinl; +top rt z0 = (w-ss-pwid,h); +bot lft z1 = (ss,0); +draw z0--z1; + +fill one scaled 0.85 shifted (0,h/2); +fill two scaled 0.85 shifted (w/2-pwid/2,0); + +penlabels(0,1); +endchar; + +beginchar(oct"274",em#+2ss#,cap#,dep#); "old-style fraction 1/4"; + +pickup pencircle scaled thinl; +top rt z0 = (w-ss-pwid,h); +bot lft z1 = (ss,0); +draw z0--z1; + +fill one scaled 0.85 shifted (0,h/2); +fill fourfill scaled 0.85 shifted (w/2-pwid/2,dep/2); +unfill fourun scaled 0.85 shifted (w/2-pwid/2,dep/2); + +penlabels(0,1); +endchar; + +beginchar(oct"276",em#+2ss#,cap#,dep#); "old-style fraction 3/4"; + +pickup pencircle scaled thinl; +top rt z0 = (w-ss,h); +bot lft z1 = (ss+pwid,0); +draw z0--z1; + +fill three scaled 0.85 shifted (0,h/2+pwid/2); +fill fourfill scaled 0.85 shifted (w/2,dep/2); +unfill fourun scaled 0.85 shifted (w/2,dep/2); + +penlabels(0,1); +endchar; + +beginchar(oct"304",em#+2ss#,cap#,dep#); "old-style fraction 1/3"; + +pickup pencircle scaled thinl; +top rt z0 = (w-ss-pwid,h); +bot lft z1 = (ss,0); +draw z0--z1; + +fill one scaled 0.85 shifted (0,h/2); +fill three scaled 0.85 shifted (w/2-ss,dep/2); + +penlabels(0,1); +endchar; + +beginchar(oct"305",7em#/6+2ss#,cap#,dep#); "old-style fraction 2/3"; + +pickup pencircle scaled thinl; +top rt z0 = (w-ss-pwid,h); +bot lft z1 = (ss+pwid,0); +draw z0--z1; + +fill two scaled 0.85 shifted (0,h/2); +fill three scaled 0.85 shifted (w/2,0); + +penlabels(0,1); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/oldstynums.mf b/Master/texmf-dist/fonts/source/public/drm/oldstynums.mf new file mode 100644 index 00000000000..fd6cbc1e3e7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/oldstynums.mf @@ -0,0 +1,261 @@ +% +AMDG This document was begun on 1E May 11EX, and it is +% humbly dedicated to the Immaculate Heart of Mary for her +% prayers, and to the Sacred Heart of Jesus for His mercy. + +beginchar("0",0.9exw#+2ss#,ex#,0); "old-style digit 0"; + +z0 = (w/2,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (w/2,0-o); +z3 = z2 shifted (0,thinl); +z4 = (ss,h/2); +z5 = z4 shifted (thickl,0); +z6 = (w-ss,h/2); +z7 = z6 shifted (-thickl,0); + +fill z0..z4..z2..z6..cycle; +unfill z1..z5..z3..z7..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("1",2ss#+2lserw#+thickstroke#,ex#,0); "old-style digit 1"; + +z0 = (ss+lserw,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+userw,h-userhl); +z3 = z2 shifted (thickl,0); +llserif(0,4,5,6,7)(1); +lrserif(1,8,9,10,11)(1); +ulserif(2,12,13,14,15)(1); +urserif(3,16,17,18,19)(1); + +path one; one = +z2--z0..z4..z5--z6--z10--z9..z8..z1--z3..z16..z17--z18--z14--z13..z12..cycle; +fill one; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("2",0.8exw#+2ss#,ex#,0); "old-style digit 2"; + +z0 = (w/2,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (ss+o,2h/3); +z3 = z2 shifted (bulbsh,bulbsh); +z4 = z3 shifted (bulbsh,-bulbsh); +z5 = z4 shifted (-bulbsh,-bulbsh); +z6 = (w-ss-o,2h/3); +z7 = z6 shifted (-thickl,0); +z8 = (ss,1.5thinl); +z9 = (x8,0); +z10 = (w-ss,0); +z11 = (w-ss,1.5thinl+thinl); +z12 = z11 shifted (-thinl/2,0); +z13 = z12 shifted (0,-thinl); +z14 = z8 shifted (thickl,0); + +path two; two = +z14--z13--z12--z11--z10--z9--z8{dir +30}..{up}z7..{left}z1{left}..{dir +230}z3{right}..{down}z4{down}..{left}z5{left}..{up}z2{up}..{right}z0{right}..z6{down}..{dir +-160}cycle; +fill two; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("3",0.9exw#+2ss#,ex#,dep#); "old-style digit 3"; + +threeh = (ex+dep); +z0 = (w/2,h+o); +z1 = (w/2,0-dep); +z2 = (ss,.75threeh-dep); +z3 = (ss,.25threeh-dep); +z4 = z0 shifted (0,-thinstroke); +z5 = z1 shifted (0,thinstroke); +z6 = z8 shifted (-curvwid,0); +z7 = z9 shifted (-curvwid,0); +z8 = (w-ss,3threeh/4-dep); +z9 = (w-ss,threeh/4-dep); +z10 = (w/2-2thinstroke,threeh/2+thinstroke-dep); +z11 = z10 shifted (0,-thinstroke); +z20 = z10 shifted (2thickstroke,-thinstroke/2); +z21 = z9 shifted (-o/4,0); +z22 = z10 shifted (2thickl,0); +z23 = z11 shifted (2thickl,0); + +ulftbulb(2,12,13,14,15); +ulftbulb(3,16,17,18,19); + +path three; three = +z2{up}..{right}z0{right}..{down}z8{down}..z20..{left}z11--z10{right}..z20..{down}z9{down}..{left}z1{left}..{up}z3{up}..{right}z16{right}..{down}z17{down}..{left}z18{dir +-60}..{right}z5{right}..{up}z7{up}..{left}z11--z10{right}..{up}z6{up}..{left}z4{left}..{dir +-120}z12{right}..{down}z13{down}..{left}z14{left}..{up}cycle; + +fill three; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("4",digwid#+2ss#,ex#,dep#); "old-style digit 4"; + +z0 = (w-ss-lserwl,h+o); +z1 = (x0,2threeh/5-dep); +y2 = y1; x2 = ss; +z3 = z0 shifted (0,-thinstroke); +z4 = z2 shifted (thinstroke,0); +z6 = z1 shifted (-thickstroke,0); +z7 = z0 shifted (-thickstroke,0); +z5 = bca[z3,z4]; +z5 = bcb[z6,z7]; +z8 = z2 shifted (0,-thinstroke); +z9 = z4 shifted (0,-thinstroke); +z10 = z6 shifted (0,-thinstroke); +z11 = z1 shifted (0,-thinstroke); +z12 = z1 shifted (lserwl,0); +z13 = z11 shifted (lserwl,0); +x14 = x10; y14 = -dep+lserhl; +z15 = z14 shifted (thickstroke,0); + +llserif(14,16,17,18,19)(1); +lrserif(15,20,21,22,23)(1); + +path fourfill; fourfill = +z14..z16..z17--z18--z22--z21..z20..z15--z11--z13--z12--z1--z0--z2--z8--z10--cycle; +path fourun; fourun = z4--z6--z5--z4--cycle; +fill fourfill; unfill fourun; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("5",0.9exw#+2ss#,ex#,dep#); "old-style digit 5"; + +z0 = (w-ss-bulbsh,h+o); +z1 = (ss+bulbsh,h+o); +z2 = z0 shifted (0,-thickstroke); +z3 = z1 shifted (0,-thickstroke); +z4 = (w/2,-dep); +z5 = z4 shifted (0,thickstroke); +z6 = z3 shifted (thinstroke,0); +z7 = (ss+0.6bulbsh,0.55threeh-dep); +z19 = z7 shifted (thinstroke,0); +z8 = (w-ss,2threeh/3-dep); +z9 = z7 shifted (thinstroke,thinstroke); +z10 = (w-ss-thickstroke,threeh/3-dep); +z11 = (ss,threeh/3-dep); +z16 = z10 shifted (thickstroke,0); +z17 = (w/2,2threeh/3-dep); +z18 = z17 shifted (0,-thinstroke); +z29 = z2 shifted (0,-thinl); +z20 = z29 shifted (-thinl/2,0); +z21 = z20 shifted (0,thinl); + +ulftbulb(11,12,13,14,15); + +path five; five = +z6--z21--z20--z29--z2--z0--z1--z7--z19..{right}z18{right}..{down}z10{down}..{left}z5{left}..{up}z14{right}..{up}z13..z12..z11{down}..{right}z4{right}..z16{up}..{left}z17{left}..z9--z6--cycle; + +fill five; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("7",0.8exw#+2ss#,ex#,dep#); "old-style digit 7"; + +z0 = (ss,h+o); +z1 = z0 shifted (0,-thickstroke); +z2 = (w-ss,h+o); +z3 = z2 shifted (0,-thickstroke); +z4 = (w/4,-dep); +z5 = z4 shifted (thickstroke,0); +z6 = z3 shifted (-1.8thinstroke,0); +z7 = (w/2,0.6h); +z8 = z7 shifted (1.2thinstroke,0); +z9 = z1 shifted (0,-0.7userh); +z10 = z9 shifted (0.5thinstroke,0); +z11 = z10 shifted (0,0.7userh); + +fill z11--z10--z9--z0--z2--z3..z8..z5--z4..z7..z6--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar("8",digwid#+2ss#,asch#,0); "old-style digit 8"; + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (ss+bulbsh/2,3h/4); +z3 = (ss,h/4); +z4 = (w-ss-bulbsh/2,3h/4); +z5 = (w-ss,h/4); +z6 = z0 shifted (0,-thinstroke); +z7 = z1 shifted (0,thinstroke); +z8 = z2 shifted (0.8curvwid,0); +z9 = z3 shifted (curvwid,0); +z10 = z5 shifted (-curvwid,0); +z11 = z4 shifted (-0.8curvwid,0); +z12 = (w/2,h/2+thinstroke); +z13 = z12 shifted (0,-thinstroke); + +pickup pencircle scaled 1; + +fill z0..z4..z13--z12..z5..z1..z3..z12--z13..z2..cycle; +unfill z8..z6..z11..z12..cycle; +unfill z7..z10..z13..z9..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + + +beginchar("6",0.9exw#+2ss#,cap#,0); "The digit 6"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0r = (2w/3,h+o); +penpos1(2thinl,180); +z1r = (ss+thinl,2h/3); +penpos2(thickl,180); +z2r = (ss,ex/2); +penpos3(thinl,-90); +z3r = (w/2,0-o); +penpos4(thickl,0); +z4r = (w-ss,ex/2); +penpos5(thinl,90); +z5r = (w/2,ex+o); +penpos6(thinl,0); +z6l = z0l; +penpos7(thinl,-90); +z7l = z6l; +penpos8(thinl,180); +z8l = z7l; + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +picture oldsix; oldsix := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar("9",0.9exw#+2ss#,ex#,dep#); "The digit 9"; +italcorr(ex#*slant); + +penpos0(thinl,90); +z0l = (w/3,-d-o); +penpos1(2thinl,180); +z1l = (w-ss-thickl,h/3-dep); +penpos2(thickl,180); +z2l = (w-ss,h-ex/2); +penpos3(thinl,90); +z3l = (w/2,h-ex-o); +penpos4(thickl,0); +z4l = (ss,h-ex/2); +penpos5(thinl,-90); +z5l = (w/2,h+o); + +penstroke z5e..z2e..z3e..z4e..cycle; +penstroke z0e..z1e..z2e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/ornaments.mf b/Master/texmf-dist/fonts/source/public/drm/ornaments.mf new file mode 100644 index 00000000000..82a13829ce7 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/ornaments.mf @@ -0,0 +1,1018 @@ +% +AMDG This document was begun on 16 July 11EX, the +% Commemorations of St. Comillus de Lellis, C, and St. +% Symphorosa and her seven Sons, MM, and it is humbly +% dedicated to them and to the Immaculate Heart of Mary for +% their prayers, and to the Sacred Heart of Jesus for His +% mercy. + +beginchar(oct"016",9.8em#/5,cap#,dep#); "Right-facing simple fleuron"; + +% draw the basal ornament +curveornw = 9.8em/6; +penpos0(thickl,90); +z0r = (curveornw/6,h); +penpos1(1.5thinl,180); +z1r = (ss,3h/4); +penpos2(thinl,225); +z2 = ((x1l+x0)/2,h/2); +penpos3(1.5thinl,180); +z3r = (x0+o,h/4); +penpos4(thickl,90); +z4l = (ss+1.5thinl,0); +penpos5(1.5thinl,0); +z5l = z0l; +penpos6(thinl,-90); +z6l = z5l; +penpos7(thinl,180); +z7l = z6l; +penpos8(1.5thinl,0); +z8r = z4r; +penpos9(thinl,-90); +z9r = z8r; +penpos10(thinl,180); +z10r = z9r; +penstroke z0e..z1e..z2e..z3e..z4e; +penstroke z0e..z5e..z6e..z7e; +penstroke z4e..z8e..z9e..z10e; + +% construct the vaguely heart-shaped leaf bit +z11 = (0.6w,-dep/3); +z12 = (w-ss,0.4h); +z13 = (7w/8,h/4); +z14 = (3w/4,h/2); +z15 = (x11-thickstroke,h); +z16 = (0.4w,3h/4); +z17 = (w/2,h/2); +z18 = (w/3,h/4); +z19 = z12 shifted (-thinl,thinl); +z20 = z19 shifted (-thinl,-thinl); +z21 = z20 shifted (thinl,-thinl); +z22 = (x16,(y15+y16)/2-thinl); +fill +z11{right}..{up}z12..z19..z20..{right}z21{down}..z13.. + z14..{left}z15{left}..z22..{down}z16{down}.. + {dir -45}z17{dir -160}..{down}z18{down}..{right}cycle; + +% draw the stem +penpos23(thinl,90); +z23 = z17; +penpos24(1.5thinl,90); +z24 = ((x16+x0)/2,y16); +penpos25(1.5thinl,135); +z25 = z2; +penpos26(1.5thinl,225); +z26 = z3; + +penstroke z23e{left}..z24e..z25e..z26e; + +picture simpfleuron; simpfleuron := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"017",9.8em#/5,cap#,dep#); +"Right-facing simple fleuron, upsidedown"; +currentpicture := simpfleuron reflectedabout + ((0,h/2),(w,h/2)) shifted (0,-dep/3); +endchar; + +beginchar(oct"020",9.8em#/5,cap#,dep#); +"Left-facing simple fleuron"; +currentpicture := simpfleuron reflectedabout ((w/2,h),(w/2,-d)); +endchar; + +beginchar(oct"021",9.8em#/5,cap#,dep#); +"Left-facing simple fleuron, upsidedown"; +currentpicture := simpfleuron reflectedabout ((w/2,h),(w/2,-d)) + reflectedabout ((0,h/2),(w,h/2)) shifted (0,-dep/3); +endchar; + +beginchar(oct"050",cap#+dep#/3,9.8em#/5,0); +"Up-facing simple fleuron"; +currentpicture := simpfleuron rotated (90) shifted (cap,0); +endchar; + +beginchar(oct"051",cap#+dep#/3,9.8em#/5,0); +"Up-facing simple fleuron, backwards"; +currentpicture := simpfleuron rotated (90) shifted (cap,0) + reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"077",cap#+dep#/3,9.8em#/5,0); +"Down-facing simple fleuron"; +currentpicture := simpfleuron rotated (-90) + shifted (dep/3,9.8em/5); +endchar; + +beginchar(oct"107",cap#+dep#/3,9.8em#/5,0); +"Down-facing simple fleuron, backwards"; +currentpicture := simpfleuron rotated (-90) shifted (dep/3,9.8em/5) + reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"041",9.8em#/36+1.5thinstroke#+ss#,cap#,0); +"Simple curve ornament, vertical"; + +penpos0(thickl,90); +z0r = (curveornw/6,h); +penpos1(1.5thinl,180); +z1r = (ss,3h/4); +penpos2(thinl,225); +z2 = ((x1l+x0)/2,h/2); +penpos3(1.5thinl,180); +z3r = (x0+o,h/4); +penpos4(thickl,90); +z4l = (ss+1.5thinl,0); +penpos5(1.5thinl,0); +z5l = z0l; +penpos6(thinl,-90); +z6l = z5l; +penpos7(thinl,180); +z7l = z6l; +penpos8(1.5thinl,0); +z8r = z4r; +penpos9(thinl,-90); +z9r = z8r; +penpos10(thinl,180); +z10r = z9r; + +penstroke z0e..z1e..z2e..z3e..z4e; +penstroke z0e..z5e..z6e..z7e; +penstroke z4e..z8e..z9e..z10e; + +picture curveorn; curveorn := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"042",9.8em#/36+1.5thinstroke#+ss#,cap#,0); +"Simple curve ornament, backwards"; +currentpicture := curveorn reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"043",cap#,9.8em#/36+1.5thinstroke#+ss#,0); +"Simple curve ornament, horizontal"; +currentpicture := curveorn rotated (-90) + shifted (0,9.8em/36+1.5thinstroke+ss); +endchar; + +beginchar(oct"045",cap#,9.8em#/36+1.5thinstroke#+ss#,0); +"Simple curve ornament, horizontal, backwards"; +currentpicture := curveorn rotated (90) shifted (cap,0); +endchar; + +beginchar(oct"023",9.8em#/5,cap#,cap#); "Double tulip fleuron"; + +% set the points for the tulip +tulw = (6cap/8); +z0 = (ss+5tulw/6,h/6+2thickstroke); +z1 = (ss+tulw/2,h/6); +z2 = z1 shifted (0,thinl); +z3 = (x0-thickl,y2+thinl); +z4 = (x3+thinl,h/3); +z5 = (tulw,15h/16); +z6 = (x5-thinl,y5-thinl); +z7 = (tulw/2,2h/3); +z8 = (x3,y5); +z9 = z8 shifted (-0.5thinl,-0.5thinl); +z10 = ((x7+x9)/2,13h/16); +z11 = (x2-thinstroke/2,h); +z12 = ((x10+x11)/2,13h/16); +z13 = z1 shifted (-thinstroke/2,0); +z14 = z10 reflectedabout (z11,z13); +z15 = z1 reflectedabout (z11,z13); + +% define the paths for the tulip +path rightbase; +rightbase = z1{right}..{up}z0{dir 260}..{left}z2--cycle; +path leftbase; leftbase = rightbase reflectedabout (z11,z13); +path rightpetal; rightpetal = z2{right}..z3..z4.. + {dir 45}z6..{dir 45}z5{left}..{dir 205}z9.. + {dir -135}z7{up}--z15--cycle; +path leftpetal; leftpetal = rightpetal reflectedabout (z11,z13); +path centpetal; centpetal = z10..{dir 135}z11{dir 225}.. + z14{down}..{right}z7{right}..{up}cycle; +% unit all the paths into a macro, allowing for shifting +% and rotating around its own center +def drawtulip(expr rot)(expr shift) = + pickup pencircle scaled thinl; + erase draw centpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + erase draw leftpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + erase draw rightpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + erase draw leftbase rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + erase draw rightbase rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + fill centpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + fill leftpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + fill rightpetal rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + fill leftbase rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); + fill rightbase rotatedaround (((tulw/2),(y11+y13)/2),rot) + shifted (shift); +enddef; + +% define the points for the stems + +penpos20(thinl,45); +z20l = z4; +penpos21(1.5thinl,90); +z21 = (w/2,h/4); +penpos22(thinl,135); +z22r = z21r shifted (thinl,thinl); +penpos23(1.5thinl,-90); +z23l = (w/2,h); +penpos24(thinl,45); +z24 = z22 reflectedabout (z23,z21); +penpos25(thinl,135); +z25 = z20 reflectedabout (z23,z21); + +% define the points for the flourishes + +penpos30(thinl,90); +z30 = 0.5[z23,z21]; +penpos31(thinl,90); +z31 = (x25r,5h/6); +penpos32(thinl,90); +z32 = z31 reflectedabout (z23,z21); +penpos33(thinl,180); +z33r = (ss,h/2); +penpos34(1.5thinl,-90); +z34r = (w/4,0); +penpos35(1.5thinl,-90); +z35 = (w/2,h/8); +penpos36(1.5thinl,-90); +z36 = z34 reflectedabout ((w/2,0),(w/2,h)); +penpos37(thinl,0); +z37 = z33 reflectedabout ((w/2,0),(w/2,h)); + +% draw the flourishes + +penstroke z30e..z32e..z33e..z34e..z35e..z36e..z37e..z31e..z30e; + +% draw the two tulips +drawtulip(45,(0,0)); +drawtulip(-45,(w-tulw,0)); + +% draw the stems, erasing first so we have the right +% overlaps +pickup pencircle scaled 1.5thinl; +erase draw z21..z22..z23..z24..z21; +penstroke z20e..z21e..z22e..z23e..z24e..z21e..z25e; + +picture doubletulip; doubletulip := currentpicture; + +currentpicture := doubletulip + + doubletulip reflectedabout ((0,0),(w,0)); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"024",9.8em#/5,cap#,0); +"Double tulip fleuron, half, upward"; +currentpicture := doubletulip; +endchar; + +beginchar(oct"027",9.8em#/5,cap#,cap#); +"Double tulip fleuron, half, downward"; +currentpicture := doubletulip reflectedabout ((0,h/2),(w,h/2)) + shifted (0,-cap); +endchar; + +beginchar(oct"036",cap#,9.8em#/5,0); +"Double tulip fleuron, half, rightward"; +currentpicture := doubletulip rotated (-90) + shifted (0,9.8em/5); +endchar; + +beginchar(oct"037",cap#,9.8em#/5,0); +"Double tulip fleuron, half, leftward"; +currentpicture := doubletulip rotated (90) + shifted (cap,0); +endchar; + +beginchar(oct"046",2cap#,9.8em#/5,0); +"Double tulip fleuron, half, leftward"; +currentpicture := doubletulip rotated (90) + shifted (cap,0) + doubletulip rotated (-90) + shifted (cap,9.8em/5); +endchar; + +beginchar(oct"053",9.8em#/5,cap#,9.8em#/5-cap#); +"Upper left corner tulip fleuron"; + +z0 = (ss+5tulw/6,h/6+2thickstroke); +z1 = (ss+tulw/2,h/6); +z2 = z1 shifted (0,thinl); +z11 = (x2-thinstroke/2,h); +z13 = z1 shifted (-thinstroke/2,0); +z3 = (x0-thickl,y2+thinl); +z4 = (x3+thinl,h/3); +penpos20(thinl,45); +z20l = z4; +penpos21(thinl,0); +%z21r = (0.4w,0); +z21r = (cap,0); +z22 = (w,h) rotatedaround ((0,h),-45); +penpos23(1.5thinl,-90); +z23 = (w/4,-d/3); +penpos24(thinl,0); +z24l = (ss,-2d/3); +penpos25(thinl,90); +z25l = (w/4,-d); +penpos26(0.5thinl,180); +%z26 = (w/3,-2d/3); +z26 = (0.41w,-2d/3); +penpos27(thinl,90); +z27l = (x26l,-d); +penpos28(thinl,45); +z28r = ((x26+x24)/2,y24-thinl); +penpos29(thinl,0); +z29l = (ss,-d/3); +penpos30(thinl,-135); +%z30 = (x26,(y23+y26)/2); +z30 = (x26,(y33+y23)/2); +penpos31(thinl,0); +z31l = (ss,-d/6); +penpos32(thinl,-90); +z32r = (w/3,0); +penpos33(0.5thinl,180); +z33 = (x21,y23); +penpos34(thinl,180); +z34r = (ss,h/8); +penpos35(thinl,90); +z35 = (w/8,2h/3); + +penstroke z35e..z34e..z30e..z27e..z28e..z29e..z31e..z32e..z33e; +penstroke (z35e..z34e..z30e..z27e..z28e..z29e..z31e..z32e..z33e) + reflectedabout (z20,z22); +pickup pencircle scaled 1.5thinl; +erase undraw z20..z21..z23..z24..z25..z26; +erase undraw (z20..z21..z23..z24..z25..z26) + reflectedabout (z20,z22); +drawtulip(45,(0,0)); +penstroke z20e..z21e..z23e..z24e..z25e..z26e; +penstroke (z20e..z21e..z23e..z24e..z25e..z26e) + reflectedabout (z20,z22); + +picture cornertulip; cornertulip := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"072",9.8em#/5,cap#,9.8em#/5-cap#); +"Upper right corner tulip fleuron"; +currentpicture := cornertulip reflectedabout + ((w/2,h),(w/2,-d)); +endchar; + +beginchar(oct"073",9.8em#/5,cap#,9.8em#/5-cap#); +"Lower left corner tulip fleuron"; +currentpicture := cornertulip reflectedabout + ((0,0),(w,0)); +endchar; + +beginchar(oct"110",9.8em#/5,cap#,9.8em#/5-cap#); +"Lower right corner tulip fleuron"; +currentpicture := cornertulip reflectedabout + ((0,0),(w,0)) reflectedabout + ((w/2,h),(w/2,-d)); +endchar; + +beginchar(oct"111",2(9.8em#/5),cap#,0); +"Upward single tulip fleuron"; + +z0 = (ss+5tulw/6,h/6+2thickstroke); +z1 = (ss+tulw/2,h/6); +z2 = z1 shifted (0,thinl); +z11 = (x2-thinstroke/2,h); +z13 = z1 shifted (-thinstroke/2,0); +z3 = (x0-thickl,y2+thinl); +z4 = (x3+thinl,h/3); + +penpos19(thinl,0); +z19 = (w/2,h/2); +penpos20(thinl,0); +z20 = (w/2,h/6); +penpos21(thinl,-90); +z21r = (0.45w,0); +penpos22(thinl,180); +z22 = (0.4w,h/2); +penpos23(thinl,-90); +z23l = (0.3w,h); +penpos24(thinl,-90); +z24r = (0.15w,0); +penpos25(thinl,180); +z25r = (ss,h/2); +penpos26(thinl,0); +z26 = (0.225w,h/2); +penpos27(thinl,90); +z27r = (0.1w,h); +penpos28(0.5thinl,-45); +z28 = (x27,y25); +penpos29(thinl,0); +z29 = (x24,3h/4); +penpos30(thinl,0); +z30 = (w/2,h/2); +penpos31(thinl,90); +z31 = (x22,5h/6); +penpos32(thinl,180); +z32 = ((x23+x26)/2,h/2); +penpos33(thinl,270); +z33r = (x23,0); +penpos34(thinl,0); +z34 = (x23+(x23-x32),y26); +penpos36(thinl,180); +z36 = ((x27+x25)/2,y29); +penpos35(thinl,90); +z35r = ((x36+x23)/2,h); +penpos37(thinl,180); +z37 = ((x25+x28)/2,h/2); +penpos38(thinl,-90); +z38 = (x28,h/4); +penpos39(0.5thinl,0); +z39 = ((x28+x26)/2,h/2); + +penstroke z30e..z31e..z32e..z33e..z34e..z35e..z36e.. + z38e..z39e; +penstroke (z30e..z31e..z32e..z33e..z34e..z35e..z36e.. + z38e..z39e) reflectedabout ((w/2,h),(w/2,0)); +pickup pencircle scaled 1.5thinl; +erase draw z19---z20..z21..z22..z23..z26..z24..z25.. + z27..z29..z28; +erase draw (z19---z20..z21..z22..z23..z26..z24..z25.. + z27..z29..z28) reflectedabout ((w/2,h),(w/2,0)); +drawtulip(0,(w/2-tulw/2,0)); +penstroke z19e---z20e..z21e..z22e..z23e..z26e..z24e..z25e.. + z27e..z29e..z28e; +penstroke (z19e---z20e..z21e..z22e..z23e..z26e..z24e..z25e.. + z27e..z29e..z28e) reflectedabout ((w/2,h),(w/2,0)); + +picture singletulip; singletulip := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"112",2(9.8em#/5),cap#,cap#); +"Downward single tulip fleuron"; +currentpicture := singletulip reflectedabout + ((0,h/2),(w,h/2)) shifted (0,-cap); +endchar; + +beginchar(oct"113",cap#,2(9.8em#/5),0); +"Leftward single tulip fleuron"; +currentpicture := singletulip rotated (90) shifted (cap,0); +picture lefttulip; lefttulip := currentpicture; +endchar; + +beginchar(oct"114",cap#,(9.8em#/5),(9.8em#/5)); +"Rightward single tulip fleuron"; +currentpicture := lefttulip reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"116",cap#,cap#,0); +"Upward single narrow tulip"; + +z0 = (ss+5tulw/6,h/6+2thickstroke); +z1 = (ss+tulw/2,h/6); +z2 = z1 shifted (0,thinl); +z11 = (x2-thinstroke/2,h); +z13 = z1 shifted (-thinstroke/2,0); +z3 = (x0-thickl,y2+thinl); +z4 = (x3+thinl,h/3); +penpos20(thinl,0); +z20 = (w/2,h/2); +penpos21(thinl,0); +z21 = (w/2,h/6); +penpos22(1.2thinl,90); +z22l = (3w/4,0); +penpos23(thinl,180); +z23l = (w-ss,h/2); +penpos24(1.2thinl,-90); +z24l = (3w/4,h); +penpos25(thinl,0); +z25 = (w/2,5h/6); + +penstroke z20e---z21e..z22e..z23e..z24e..z25e; +penstroke (z20e---z21e..z22e..z23e..z24e..z25e) + reflectedabout ((w/2,h),(w/2,0)); +drawtulip(0,(w/2-tulw/2,0)); +pickup pencircle scaled thinl; +draw z20--z21; + +picture singlenarrowtulip; singlenarrowtulip := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"121",cap#,cap#,cap#); +"Downward single narrow tulip"; +currentpicture := singlenarrowtulip reflectedabout + ((0,0),(w,0)); +endchar; + +beginchar(oct"122",cap#,cap#,cap#); +"Leftward single narrow tulip"; +currentpicture := singlenarrowtulip rotatedabout + ((w/2,h/2),90); +endchar; + +beginchar(oct"123",cap#,cap#,cap#); +"Leftward single narrow tulip"; +currentpicture := singlenarrowtulip rotatedabout + ((w/2,h/2),-90); +endchar; + +beginchar(oct"124",3cap#,cap#,0); "Right-pointing spearhead"; + +z0 = (0,h); +z1 = (0,0); +z2 = (ex/3,h/4); +z3 = (ex/3,3h/4); +z4 = (-ex/3,h/4); +z5 = (-ex/3,3h/4); +path solidellipse; +solidellipse = z0{right}..z3---z2..{left}z1{left}..z4---z5..{right}cycle; + +fill solidellipse scaled 0.8 shifted (w/8,0.1h); +pickup pencircle scaled 1.5thinl; +z6 = (0,h/2+thickl); +z7 = z6 shifted (0,-2thickl); +z8 = (w/4,y6); +z9 = (w/4,y7); +top z10 = (w/3,h); +bot z11 = (w/3,0); +z12 = (w/2,3h/4); +z13 = (w/2,h/4); +z14 = (3w/4,2h/3); +z15 = (3w/4,h/3); +rt z16 = (w,h/2); + +draw +z6--z8..z10..z12..z14..{dir -15}z16{dir -165}..z15..z13..z11..z9--z7; + +pickup pencircle scaled thinl; +z17 = 0.5[z10,z11]; +z18 = 0.5[z14,z15]; +draw z17--z18; + +picture spearhead; spearhead := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"125",3cap#,cap#,0); "Left-pointing spearhead"; +currentpicture := spearhead rotatedaround ((w/2,h/2),180); +endchar; + +beginchar(oct"126",pwid#,cap#,0); "Horizontal spear shaft piece"; + +pickup pencircle scaled 1.5thinl; +z0 = (0,h/2+thickl); +z1 = z0 shifted (0,-2thickl); +z2 = (w,y0); +z3 = (w,y1); +draw z0--z2; draw z1--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"132",cap#,3cap#,0); "Up-pointing spearhead"; +currentpicture := spearhead rotatedaround ((1.5cap,cap/2),90) + shifted (-cap,cap); +endchar; + +beginchar(oct"146",cap#,3cap#,0); "Down-pointing spearhead"; +currentpicture := spearhead rotatedaround ((1.5cap,cap/2),-90) + shifted (-cap,cap); +endchar; + +beginchar(oct"147",cap#,pwid#,0); "Vertical spear shaft"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2-thickl,0); +z1 = z0 shifted (2thickl,0); +z2 = (w/2-thickl,h); +z3 = z2 shifted (2thickl,0); +draw z0--z2; draw z1--z3; +penlabels(0,1,2,3); +endchar; + +beginchar(oct"157",cap#+2ss#,cap#,0); "upright fleur-de-lis"; + +z0 = (w/2,h+o); +z1 = (ss,h/2); +z2 = (w-ss,2h/3); +z3 = (w/2,0); +z4 = (0.36w,2h/3); +z5 = (0.64w,2h/3); +z6 = (0.45w,h/3); +z7 = (0.55w,h/3); +z8 = (x4,0); +z9 = (x5,0); +z10 = (z8 shifted (thinstroke,0)) rotatedaround (z8,-45); +z11 = (z9 shifted (thinstroke,0)) rotatedaround (z9,225); +z12 = 0.5[z10,z3]; y12 := 0; +z13 = 0.5[z11,z3]; y13 := 0; +z14 = (x3,y11); +z15 = 0.5[z1,z4]; y15 := 2h/3; +z16 = 0.5[z2,z5]; y16 := 2h/3; +z17 = (x4,h/2); +z18 = z5 shifted (thinstroke,0); +z19 = z6 shifted (-thinstroke,0); +z20 = z7 shifted (thinstroke,0); +z21 = z8 shifted (0,thinstroke); +z22 = z9 shifted (0,thinstroke); +z23 = (2x8/3,0); +z24 = (x8/3,h/4); +z25 = z23 shifted (0,thickstroke); +z26 = z21 shifted (-thinstroke,thinstroke); +z27 = z19 shifted (-thinstroke,0); +z28 = 0.5[z17,z27] shifted (-0.5thinstroke,0); +z29 = z15 shifted (0,-1.5thickstroke); +z30 = (x1,h/3); +z31 = z1 shifted (thinstroke,0); +z32 = z27 shifted (-thickstroke,0); +z33 = z32 reflectedabout ((w/2,h),(w/2,0)); +z34 = z32 shifted (thinstroke,thinstroke); +z35 = z34 reflectedabout ((w/2,h),(w/2,0)); +z36 = z32 shifted (thinstroke,-thinstroke); +z37 = z36 reflectedabout ((w/2,h),(w/2,0)); + +pickup pencircle scaled 2; +path middle; +middle = z0{dir 225}..z4..z6..z8--z10--z12--z14--z13-- + z11--z9..z7..z5..{dir 135}cycle; +fill middle; + +path side; side = z30..z1..z15..z17..z19..z21..z23.. + {up}z24{dir -65}..z25..z27..z28..z29..{down}z30..cycle; +fill side; +fill side reflectedabout ((w/2,h),(w/2,0)); +path binder; binder = z32..z34---z35..z33..z37---z36..cycle; +fill binder; + +picture fleurdelis; fleurdelis := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); +penlabels(31,32,33,34,35,36,37,38,39,40,41,42,43,44); +endchar; + +beginchar(oct"167",cap#+2ss#,cap#,0); "downward fleur-de-lis"; +currentpicture := fleurdelis reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"177",cap#,cap#+2ss#,0); "leftward fleur-de-lis"; +currentpicture := fleurdelis rotatedaround ((w/2+ss,h/2),-90); +endchar; + +beginchar(oct"316",cap#,cap#+2ss#,0); "rightward fleur-de-lis"; +currentpicture := fleurdelis rotatedaround ((w/2,h/2-ss),90); +endchar; + +beginchar(oct"317",ex#,ex#,0); "extension winding cord"; + +cordwid = thickstroke; +pickup pensquare scaled 1.5thinl; +top z0 = (0,h); +top z1 = (w,h); +bot lft z2 = (0,0); +bot z3 = (w,0); +draw z0--z1; draw z2--z3; +pickup pencircle scaled 0.5thinl; +z4 = (w,-cordwid/2); +z5 = z4 shifted (-cordwid/2,cordwid/2); +z6 = (w/2+cordwid/2,h); +z7 = z6 shifted (-cordwid,0); +z8 = 0.5[z6,z7] shifted (0,cordwid/2); +z9 = (0,-cordwid/2); +z10 = z9 shifted (cordwid/2,cordwid/2); +z11 = z5 shifted (cordwid,0); +z12 = (z6--z11) intersectionpoint ((w,h)--(w,0)); + +erase filldraw z4..z5---z7..z8..z6---z11..cycle; +draw z4..z5---z7..z8..z6---z11; +draw z10{down}..z9; + +pickup pencircle scaled 0.25thinl; +z13 = 0.14285[z5,z7]; +z14 = 0.28571[z5,z7]; +z15 = 0.42857[z5,z7]; +z16 = 0.57142[z5,z7]; +z17 = 0.71428[z5,z7]; +z18 = 0.85714[z5,z7]; +z23 = 0.14285[z11,z6]; +z24 = 0.28571[z11,z6]; +z25 = 0.42857[z11,z6]; +z26 = 0.57142[z11,z6]; +z27 = 0.71428[z11,z6]; +z28 = 0.85714[z11,z6]; + +draw z13{dir -45}..z23; +draw z14{dir -45}..z24; +draw z15{dir -45}..z25; +draw z16{dir -45}..z26; +draw z17{dir -45}..z27; +draw z18{dir -45}..z28; +draw z7{dir -45}..z6; + +unfill z10--(-cordwid,h/2)--z9--cycle; + +picture cordext; cordext := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); +endchar; + +beginchar(oct"320",ex#,ex#,0); "left end of winding cord"; + +pickup pensquare scaled 1.5thinl; +top rt z0 = (w,h); +top lft z1 = (w-cordwid,h); +draw z0--z1; +z2 = (w,-cordwid/2); +z3 = (w-cordwid/2,0); +z4 = (w-cordwid/2,h); +z5 = z4 shifted (-cordwid,0); +z6 = 0.5[z4,z5] shifted (0,cordwid/2); +z7 = z3 shifted (cordwid,0); +z8 = z3 shifted (-cordwid,0); +z9 = 0.5[z3,z8] shifted (0,-cordwid/2); +z10 = z5 shifted (-cordwid,0); +z11 = z6 shifted (-cordwid,0); +z12 = z10 shifted (-cordwid,0); +z13 = z11 shifted (-cordwid,0); +z14 = z8 shifted (-cordwid,0); +z15 = z9 shifted (-cordwid,0); +z16 = z14 shifted (-cordwid,0); +z17 = z15 shifted (-cordwid,0); + +pickup pencircle scaled 0.5thinl; +erase filldraw z7---z4..z6..z5---z3..z2..cycle; +draw z7---z4..z6..z5---z3..z2; +% draw the rope lines on the underlying frap +pickup pencircle scaled 0.25thinl; +z23 = 0.14285[z4,z7]; +z24 = 0.28571[z4,z7]; +z25 = 0.42857[z4,z7]; +z26 = 0.57142[z4,z7]; +z27 = 0.71428[z4,z7]; +z28 = 0.85714[z4,z7]; +z33 = 0.14285[z5,z3]; +z34 = 0.28571[z5,z3]; +z35 = 0.42857[z5,z3]; +z36 = 0.57142[z5,z3]; +z37 = 0.71428[z5,z3]; +z38 = 0.85714[z5,z3]; +draw z33{dir -45}..z23; +draw z34{dir -45}..z24; +draw z35{dir -45}..z25; +draw z36{dir -45}..z26; +draw z37{dir -45}..z27; +draw z38{dir -45}..z28; + +% first overlapping frap +pickup pencircle scaled 0.5thinl; +erase filldraw z5---z8..z9..z3---z4..z6..cycle; +draw z5---z8..z9..z3---z4..z6..cycle; +% next overlapping fraps +pickup pencircle scaled 0.5thinl; +draw z8---z5..z11..z10---z14..z15..cycle; +draw z10---z14..z17..z16---z12..z13..cycle; +% draw the rope marks on the straight fraps +pickup pencircle scaled 0.25thinl; +z42 = 0.00000[z4,z3]; +z43 = 0.14285[z4,z3]; +z44 = 0.28571[z4,z3]; +z45 = 0.42857[z4,z3]; +z46 = 0.57142[z4,z3]; +z47 = 0.71428[z4,z3]; +z48 = 0.85714[z4,z3]; +z49 = 1.00000[z4,z3]; +z52 = 0.00000[z5,z8]; +z53 = 0.14285[z5,z8]; +z54 = 0.28571[z5,z8]; +z55 = 0.42857[z5,z8]; +z56 = 0.57142[z5,z8]; +z57 = 0.71428[z5,z8]; +z58 = 0.85714[z5,z8]; +z59 = 1.00000[z5,z8]; +draw z52{dir -45}..z42; +draw z53{dir -45}..z43; +draw z54{dir -45}..z44; +draw z55{dir -45}..z45; +draw z56{dir -45}..z46; +draw z57{dir -45}..z47; +draw z58{dir -45}..z48; +draw z59{dir -45}..z49; +z62 = 0.00000[z5,z8]; +z63 = 0.14285[z5,z8]; +z64 = 0.28571[z5,z8]; +z65 = 0.42857[z5,z8]; +z66 = 0.57142[z5,z8]; +z67 = 0.71428[z5,z8]; +z68 = 0.85714[z5,z8]; +z69 = 1.00000[z5,z8]; +z72 = 0.00000[z10,z14]; +z73 = 0.14285[z10,z14]; +z74 = 0.28571[z10,z14]; +z75 = 0.42857[z10,z14]; +z76 = 0.57142[z10,z14]; +z77 = 0.71428[z10,z14]; +z78 = 0.85714[z10,z14]; +z79 = 1.00000[z10,z14]; +draw z72{dir -45}..z62; +draw z73{dir -45}..z63; +draw z74{dir -45}..z64; +draw z75{dir -45}..z65; +draw z76{dir -45}..z66; +draw z77{dir -45}..z67; +draw z78{dir -45}..z68; +draw z79{dir -45}..z69; +z82 = 0.00000[z10,z14]; +z83 = 0.14285[z10,z14]; +z84 = 0.28571[z10,z14]; +z85 = 0.42857[z10,z14]; +z86 = 0.57142[z10,z14]; +z87 = 0.71428[z10,z14]; +z88 = 0.85714[z10,z14]; +z89 = 1.00000[z10,z14]; +z92 = 0.00000[z12,z16]; +z93 = 0.14285[z12,z16]; +z94 = 0.28571[z12,z16]; +z95 = 0.42857[z12,z16]; +z96 = 0.57142[z12,z16]; +z97 = 0.71428[z12,z16]; +z98 = 0.85714[z12,z16]; +z99 = 1.00000[z12,z16]; +draw z92{dir -45}..z82; +draw z93{dir -45}..z83; +draw z94{dir -45}..z84; +draw z95{dir -45}..z85; +draw z96{dir -45}..z86; +draw z97{dir -45}..z87; +draw z98{dir -45}..z88; +draw z99{dir -45}..z89; + +picture leftcordend; leftcordend := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); +endchar; + +beginchar(oct"321",ex#,ex#,0); "right end of winding cord"; + +pickup pensquare scaled 1.5thinl; +top lft z0 = (0,h); +top rt z1 = (0+cordwid,h); +draw z0--z1; +z2 = (4cordwid,-cordwid/2); +z3 = (x2-cordwid/2,0); +z4 = (x2-cordwid/2,h); +z5 = z4 shifted (-cordwid,0); +z6 = 0.5[z4,z5] shifted (0,cordwid/2); +z7 = z3 shifted (cordwid,0); +z8 = z3 shifted (-cordwid,0); +z9 = 0.5[z3,z8] shifted (0,-cordwid/2); +z10 = z5 shifted (-cordwid,0); +z11 = z6 shifted (-cordwid,0); +z12 = z10 shifted (-cordwid,0); +z13 = z11 shifted (-cordwid,0); +z14 = z8 shifted (-cordwid,0); +z15 = z9 shifted (-cordwid,0); +z16 = z14 shifted (-cordwid,0); +z17 = z15 shifted (-cordwid,0); +z18 = z16 shifted (-cordwid/2,-cordwid/2); + +pickup pencircle scaled 0.5thinl; +erase filldraw z5---z8..z9..z3---z4..z6..cycle; +draw z5---z8..z9..z3---z4..z6..cycle; +draw z12---z16..z18; +% next overlapping fraps +pickup pencircle scaled 0.5thinl; +erase filldraw z8---z5..z11..z10---z14..z15..cycle; +draw z8---z5..z11..z10---z14..z15..cycle; +erase filldraw z10---z14..z17..z16---z12..z13..cycle; +draw z10---z14..z17..z16---z12..z13..cycle; +% draw the rope marks on the straight fraps +pickup pencircle scaled 0.25thinl; +z42 = 0.00000[z4,z3]; +z43 = 0.14285[z4,z3]; +z44 = 0.28571[z4,z3]; +z45 = 0.42857[z4,z3]; +z46 = 0.57142[z4,z3]; +z47 = 0.71428[z4,z3]; +z48 = 0.85714[z4,z3]; +z49 = 1.00000[z4,z3]; +z52 = 0.00000[z5,z8]; +z53 = 0.14285[z5,z8]; +z54 = 0.28571[z5,z8]; +z55 = 0.42857[z5,z8]; +z56 = 0.57142[z5,z8]; +z57 = 0.71428[z5,z8]; +z58 = 0.85714[z5,z8]; +z59 = 1.00000[z5,z8]; +draw z52{dir -45}..z42; +draw z53{dir -45}..z43; +draw z54{dir -45}..z44; +draw z55{dir -45}..z45; +draw z56{dir -45}..z46; +draw z57{dir -45}..z47; +draw z58{dir -45}..z48; +draw z59{dir -45}..z49; +z62 = 0.00000[z5,z8]; +z63 = 0.14285[z5,z8]; +z64 = 0.28571[z5,z8]; +z65 = 0.42857[z5,z8]; +z66 = 0.57142[z5,z8]; +z67 = 0.71428[z5,z8]; +z68 = 0.85714[z5,z8]; +z69 = 1.00000[z5,z8]; +z72 = 0.00000[z10,z14]; +z73 = 0.14285[z10,z14]; +z74 = 0.28571[z10,z14]; +z75 = 0.42857[z10,z14]; +z76 = 0.57142[z10,z14]; +z77 = 0.71428[z10,z14]; +z78 = 0.85714[z10,z14]; +z79 = 1.00000[z10,z14]; +draw z72{dir -45}..z62; +draw z73{dir -45}..z63; +draw z74{dir -45}..z64; +draw z75{dir -45}..z65; +draw z76{dir -45}..z66; +draw z77{dir -45}..z67; +draw z78{dir -45}..z68; +draw z79{dir -45}..z69; +z82 = 0.00000[z10,z14]; +z83 = 0.14285[z10,z14]; +z84 = 0.28571[z10,z14]; +z85 = 0.42857[z10,z14]; +z86 = 0.57142[z10,z14]; +z87 = 0.71428[z10,z14]; +z88 = 0.85714[z10,z14]; +z89 = 1.00000[z10,z14]; +z92 = 0.00000[z12,z16]; +z93 = 0.14285[z12,z16]; +z94 = 0.28571[z12,z16]; +z95 = 0.42857[z12,z16]; +z96 = 0.57142[z12,z16]; +z97 = 0.71428[z12,z16]; +z98 = 0.85714[z12,z16]; +z99 = 1.00000[z12,z16]; +draw z92{dir -45}..z82; +draw z93{dir -45}..z83; +draw z94{dir -45}..z84; +draw z95{dir -45}..z85; +draw z96{dir -45}..z86; +draw z97{dir -45}..z87; +draw z98{dir -45}..z88; +draw z99{dir -45}..z89; + +picture rightcordend; rightcordend := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); +endchar; + +beginchar(oct"322",ex#,ex#,0); "inverted left end of winding cord"; +currentpicture := leftcordend reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"323",ex#,ex#,0); "inverted right end of winding cord"; +currentpicture := rightcordend reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"324",ex#,ex#,0); "inverted extension winding cord"; +currentpicture := cordext reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"325",ex#/2,3ex#/4,0); "horizontal triple rule"; + +pickup pensquare scaled thinl; +top lft z0 = (0,h); +top rt z1 = (w,h); +bot lft z2 = (0,0); +bot rt z3 = (w,0); +draw z0--z1; draw z2--z3; +pickup pensquare scaled 2thinl; +lft z4 = (0,h/2); +rt z5 = (w,h/2); +draw z4--z5; + +picture triplerule; triplerule := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"327",3ex#/4,ex#/2,0); "vertical triple rule"; +currentpicture := triplerule rotatedaround ((w/2,h/2),90) + shifted (ex/8,ex/8); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/ornbars.mf b/Master/texmf-dist/fonts/source/public/drm/ornbars.mf new file mode 100644 index 00000000000..eac6eb7f492 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/ornbars.mf @@ -0,0 +1,152 @@ +% +AMDG This document was begun on 21 June 11EX, the feast +% of St. William the Abbot, and it is humbly dedicated to +% him and to the Immaculate Heart of Mary for their prayers, +% and to the Sacred Heart of Jesus for His mercy. + +beginchar("a",ornshort#+2ss#,ornheight#+2ss#,0); + +% draw the border of the ornament +pickup borderpen; +top lft z20 = (ss,h-ss); top rt z21 = (w-ss,h-ss); +bot rt z22 = (w-ss,ss); bot lft z23 = (ss,ss); +draw z20--z21--z22--z23--cycle; + +% path for the ellipse in the center construct +z0 = (-centerwid/2,0); +z1 = (centerwid/2,0); +z2 = z0 shifted (0,centerht/2); +z3 = z0 shifted (0,-centerht/2); +z4 = z1 shifted (0,centerht/2); +z5 = z1 shifted (0,-centerht/2); +z6 = z0 shifted (-ccurvrad,0); +z7 = z1 shifted (ccurvrad,0); +path centell; centell = z2..z6..z3--z5..z7..z4--cycle; + +% points for placement of center construct +z8 = (w/2,h/2); +z9 = (w/2,h/2+centerht); +z10 = (w/2,h/2-centerht); +z11 = (w/2,h/2+1.75centerht); +z12 = (w/2,h/2-1.75centerht); + +% draw the main cardinal loops +z13 = (w/2,h-ss-borderwid-smallspace); +z14 = 0.75[z11,z13] shifted (-centerwid/2,0); +z15 = 0.75[z11,z13] shifted (centerwid/2,0); +z16 = 0.5[z11,z13] shifted (-centerwid/4,0); +z17 = 0.5[z11,z13] shifted (centerwid/4,0); +pickup thinpen; +path lftshortloop; lftshortloop = z11{up}..z16..z14..{up}z13; +path rtshortloop; rtshortloop = z11{up}..z17..z15..{up}z13; +draw lftshortloop; draw rtshortloop; +draw lftshortloop reflectedabout ((0,h/2),(w,h/2)); +draw rtshortloop reflectedabout ((0,h/2),(w,h/2)); +z18 = (ss+borderwid+smallspace,h/2); +z19 = z8 shifted (-centerwid/2,0); +z24 = 0.75[z19,z18] shifted (0,centerwid/1); +z25 = 0.75[z19,z18] shifted (0,-centerwid/1); +z26 = 0.5[z19,z18] shifted (0,centerwid/2); +z27 = 0.5[z19,z18] shifted (0,-centerwid/2); +path uplongloop; uplongloop = z19{left}..z26..z24..{left}z18; +path downlongloop; downlongloop = z19{left}..z27..z25..{left}z18; +draw uplongloop; draw downlongloop; +draw uplongloop reflectedabout ((w/2,0),(w/2,h)); +draw downlongloop reflectedabout ((w/2,0),(w/2,h)); +% draw the large side loops +z28 = z16 shifted (-smallspace-thinline-centerwid/2,0); +z29 = z26 shifted (smallspace+thinline,smallspace+thinline); +z30 = (x29,y13); +z31 = z8 shifted (-centerwid-smallspace-thinline, + centerht+smallspace+thinline); +z32 = (x18+smallspace+thinline,3h/4); +z33 = (x18+smallspace+thinline,h/4); +z34 = (x30,ss+borderwid+smallspace); +path sideloops; +sideloops = z29{z8-z29}..z31..z28..{left}z30{left}..z32..z24..z25; +% continue on with the side loops; +z80 = (w/4,h/2); +z81 = (x32+bigspace,h-y32); +z82 = (x30,h-y30+bigspace); +z83 = (x31-bigspace,h-y31); +z84 = 0.25[z19,z18]; +path downloops; +downloops := z84{down}..z83..z82..tension 1.5..z81{dir 45}..z80..z29; +% do the internal ornaments +z88 = z29 shifted (0,smallspace); +z85 = (z88--(w/4,h)) intersectionpoint sideloops; +z86 = (z88--(0,h)) intersectionpoint sideloops; +z87 = (z88--(3w/4,h)) intersectionpoint sideloops; +z89 = 0.5[z86,z85] shifted (0,-3bigspace); +z90 = 0.5[z85,z87] shifted (0,-3bigspace); +z91 = 0.5[z86,z85]; +z92 = 0.5[z85,z87]; +z93 = (x29,y29+2bigspace); +z94 = (x25,y93); +z95 = (x84,y93); +z96 = (x86,(y89+y94)/2); +z97 = (x89,y93+2bigspace); +pickup extthinpen; +path curveone; path curvetwo; path curvethree; +curveone = z91..z86..z89..{dir 30}z85{dir -45}..z90..z87..z92; +curvetwo = z89..z93..z94..z96..z97; +curvethree = z90..z93..z95; + +% draw the inner curves +pickup extthinpen; +draw curveone; +draw curveone reflectedabout ((0,h/2),(w,h/2)); +draw curveone reflectedabout ((w/2,h),(w/2,0)); +draw curveone reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); +draw curvetwo; +draw curvetwo reflectedabout ((0,h/2),(w,h/2)); +draw curvetwo reflectedabout ((w/2,h),(w/2,0)); +draw curvetwo reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); +draw curvethree; +draw curvethree reflectedabout ((0,h/2),(w,h/2)); +draw curvethree reflectedabout ((w/2,h),(w/2,0)); +draw curvethree reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); +% erase sideloop paths +pickup thinerasepen; +erase draw sideloops; +erase draw sideloops reflectedabout ((0,h/2),(w,h/2)); +erase draw sideloops reflectedabout ((w/2,h),(w/2,0)); +erase draw sideloops reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); +pickup thinpen; +draw sideloops; +draw sideloops reflectedabout ((0,h/2),(w,h/2)); +draw sideloops reflectedabout ((w/2,h),(w/2,0)); +draw sideloops reflectedabout ((w/2,h),(w/2,0)) + reflectedabout ((0,h/2),(w,h/2)); +% erase the lines that will be the cardinal loops +pickup thinerasepen; +erase draw uplongloop; erase draw downlongloop; +erase draw uplongloop reflectedabout ((w/2,0),(w/2,h)); +erase draw downlongloop reflectedabout ((w/2,0),(w/2,h)); +% now draw in the cardinal loops +pickup thinpen; +draw uplongloop; draw downlongloop; +draw uplongloop reflectedabout ((w/2,0),(w/2,h)); +draw downlongloop reflectedabout ((w/2,0),(w/2,h)); +draw lftshortloop; draw rtshortloop; +draw lftshortloop reflectedabout ((0,h/2),(w,h/2)); +draw rtshortloop reflectedabout ((0,h/2),(w,h/2)); +% draw the center construct +fill centell shifted z8; +fill centell xscaled 0.75 yscaled 0.75 shifted z9; +fill centell xscaled 0.75 yscaled 0.75 shifted z10; +fill centell xscaled 0.25 yscaled 0.5 shifted z11; +fill centell xscaled 0.25 yscaled 0.5 shifted z12; +% add in the binders +fill centell scaled 0.75 rotated (90) shifted z84; +fill centell scaled 0.75 rotated (90) shifted z84 + reflectedabout ((w/2,h),(w/2,0)); +pickup extthinpen; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +penlabels(17,18,19,20,21,22,23,24,25,26,27,28,29,30); +penlabels(31,32,33,34,35,36,37,38,39,40,41,42,43,44); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/ornfont.mf b/Master/texmf-dist/fonts/source/public/drm/ornfont.mf new file mode 100644 index 00000000000..5bcbf432562 --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/ornfont.mf @@ -0,0 +1,154 @@ +% +AMDG This document was begun on 4 August 11EX, the feast +% of St. Dominic, C, and it is humbly dedicated to him and +% to the Immaculate Heart of Mary for their prayers, and to +% the Sacred Heart of Jesus for His mercy. + +beginchar(oct"000",cap#,cap#,0); "Six-petaled flower"; + +fill fullcircle scaled 2dotwid shifted (w/2,h/2); +z0 = (w/2,h/2) shifted (0,1.5dotwid); +z1 = (w/2,h); +z2 = z1 shifted (dotwid,-dotwid); +z3 = z1 shifted (-dotwid,-dotwid); +z4 = z0 shifted (dotwid/2,dotwid/2); +z5 = z0 shifted (-dotwid/2,dotwid/2); +path petal; petal = z0..z4---z2..z1..z3---z5..cycle; +fill petal; +fill petal rotatedaround ((w/2,h/2),60); +fill petal rotatedaround ((w/2,h/2),120); +fill petal rotatedaround ((w/2,h/2),180); +fill petal rotatedaround ((w/2,h/2),240); +fill petal rotatedaround ((w/2,h/2),300); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"001",ex#,ex#,0); "Checkerboard"; + +z0 = (0,h); +z1 = (w/3,h); +z2 = (w/3,2h/3); +z3 = (0,2h/3); +path square; square = z0--z1--z2--z3--cycle; +fill square; +fill square shifted (w/3,-h/3); +fill square shifted (0,-2h/3); +fill square shifted (2w/3,0); +fill square shifted (2w/3,-2h/3); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"002",ex#,ex#,0); "Inverse Checkerboard"; +fill square shifted (w/3,0); +fill square shifted (0,-h/3); +fill square shifted (2w/3,-h/3); +fill square shifted (w/3,-2h/3); +endchar; + +beginchar(oct"003",doubex#,doubex#,0); "Triple bar"; + +pickup semiextextthickpen; +top z0 = (0,h); +top z1 = (w,h); +bot z2 = (0,0); +bot z3 = (w,0); +draw z0--z1; draw z2--z3; +pickup extextthickpen; +z4 = (0,h/2); +z5 = (w,h/2); +draw z4--z5; + +picture triplebarext; triplebarext := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"004",doubex#+ex#,doubex#,ex#); +"Triple bar, upper left corner"; + +pickup semiextextthickpen; +top lft z0 = (0,h); +top rt z1 = (w,h); +bot rt z2 = (doubex,0); +bot rt z3 = (w,0); +draw z0--z1; draw z2--z3; +pickup extextthickpen; +z4 = ((x0+x2)/2,h/2); +rt z5 = (w,h/2); +draw z4--z5; +pickup semiextextthickpen; +z6 = (x0,-d); +draw z0--z6; +pickup extextthickpen; +z7 = (x4,-d); +draw z4--z7; +pickup semiextextthickpen; +z8 = (x2,-d); +draw z2--z8; + +picture triplecorner; triplecorner := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); +endchar; + +beginchar(oct"005",doubex#+ex#,doubex#,ex#); +"Triple bar, upper right corner"; +currentpicture := triplecorner reflectedabout + ((w/2,h),(w/2,-d)); +endchar; + +beginchar(oct"006",doubex#+ex#,doubex#,ex#); +"Triple bar, lower right corner"; +currentpicture := triplecorner reflectedabout + ((w/2,h),(w/2,-d)) reflectedabout + ((0,0),(w,0)) shifted (0,ex); +endchar; + +beginchar(oct"007",doubex#+ex#,doubex#,ex#); +"Triple bar, lower left corner"; +currentpicture := triplecorner reflectedabout + ((0,0),(w,0)) shifted (0,ex); +endchar; + +beginchar(oct"010",doubex#,doubex#,ex#); "Triple bar, lowered"; +currentpicture := triplebarext shifted (0,-d); +endchar; + +beginchar(oct"011",doubex#,doubex#,0); "Triple bar, vertical, left"; +currentpicture := triplebarext rotatedaround ((doubex/2,doubex/2),90); +endchar; + +beginchar(oct"012",2doubex#,doubex#,0); "Triple bar, vertical, right"; +currentpicture := triplebarext rotatedaround ((doubex/2,doubex/2),90) + shifted (doubex,0); +endchar; + +beginchar(oct"013",0.75doubex#,0.75doubex#,0); "Clam shell, upright"; + +z0 = (0,h/4); +z1 = (0,3h/4); +z2 = (w/2,h); +z3 = 0.5[z1,z2]; +z4 = (w/4,0); +z5 = (w/3,h/8); +z6 = 0.5[z4,z5]; +z10 = z0 reflectedabout ((w/2,h),(w/2,0)); +z11 = z1 reflectedabout ((w/2,h),(w/2,0)); +z13 = z3 reflectedabout ((w/2,h),(w/2,0)); +z14 = z4 reflectedabout ((w/2,h),(w/2,0)); +z15 = z5 reflectedabout ((w/2,h),(w/2,0)); +z16 = z6 reflectedabout ((w/2,h),(w/2,0)); +z7 = (z3--(w/2,0)) intersectionpoint (z5--z15); +z17 = z7 reflectedabout ((w/2,h),(w/2,0)); + +pickup extthickpen; +draw z4--z5--z15--z14--cycle; +draw z16---z11..{dir 210}z13{dir 150}..{left}z2{left}.. + {dir 210}z3{dir 150}..z1---z6; +pickup thickpen scaled 2; +draw z3--z7; +draw z13--z17; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17); +endchar; diff --git a/Master/texmf-dist/fonts/source/public/drm/symbols.mf b/Master/texmf-dist/fonts/source/public/drm/symbols.mf new file mode 100644 index 00000000000..0df981ac4ea --- /dev/null +++ b/Master/texmf-dist/fonts/source/public/drm/symbols.mf @@ -0,0 +1,3555 @@ +% +AMDG This document was begun on 1E May 11EX, and it is +% humbly dedicated to the Immaculate Heart of Mary for her +% prayers, and to the Sacred Heart of Jesus for His mercy. + +def ulftbulb(suffix i,j,k,l,m) = +z.j=z.i shifted (bulbsh,bulbsh); +z.k=z.j shifted (bulbsh,-bulbsh); +z.l=z.k shifted (-bulbsh,-bulbsh); +enddef; + +def ctsideserif(suffix i,j,k,l,m,n)(expr topbot) = +z.j=z.i+(0,userw/2); +z.k=z.j+(userh,0); +z.l=z.k-(0,2userw); +z.m=z.l-(userh,0); +if topbot = 1: +path topserif; topserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +elseif topbot = 2: +path botserif; botserif = z.i---z.j..tension 2..z.k---z.l..tension 2..z.m---z.n; +fi; +enddef; + +beginchar(oct"054",pwid#,pwid#,0); "The comma ,"; + +z0 = (w/2,dotwid); +z1 = z0 shifted (dotwid,0); +z2 = z0 shifted (0,dotwid); +z3 = z0 shifted (-dotwid,0); +z4 = z0 shifted (0,-dotwid/2); +z5 = z3 shifted (-dotwid/2,-2.5dotwid); +z6 = z1 shifted (-o,-1.5dotwid); + +path commapost; +commapost = z4..{dir -165}z5{right}..z6..z1..z2..z3..z4--cycle; +fill commapost; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"212",(3(em#+2ss#)/4),cap#,0); "The dollar sign, $, double lined"; + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (w-ss,3h/4); +z3 = (w-ss,h/4); +z4 = (ss,3h/4); +z5 = (ss,h/4); +z6 = z4 shifted (curvl,0); +z7 = z3 shifted (-curvl,0); +z8 = z0 shifted (0,-thinl); +z9 = z1 shifted (0,thinl); + +urtbulb(2,10,11,12,13); +ulftbulb(5,14,15,16,17); + +fill +z2{up}..{left}z0{left}..{down}z4{down}..{down}z7{down}..{left}z9{left}..{dir +120}z16{right}..{up}z15{up}..{left}z14{left}..{down}z5{down}..{right}z1{right}..{up}z3{up}..{up}z6{up}..{right}z8{right}..{dir +-60}z12{left}..{down}z11{down}..{right}z10{right}..{up}cycle; + +pickup pencircle scaled 1.2thinl; + +z20 = (w/2-thinl,h+o); +z21 = (w/2-thinl,-o); +z22 = (w/2+thinl,h+o); +z23 = (w/2+thinl,-o); + +draw z20--z21; draw z22--z23; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"044",(3(em#+2ss#)/4),cap#,0); "The dollar sign, $, single-lined"; + +z0 = (w/2,h+o); +z1 = (w/2,0-o); +z2 = (w-ss,3h/4); +z3 = (w-ss,h/4); +z4 = (ss,3h/4); +z5 = (ss,h/4); +z6 = z4 shifted (curvl,0); +z7 = z3 shifted (-curvl,0); +z8 = z0 shifted (0,-thinl); +z9 = z1 shifted (0,thinl); + +urtbulb(2,10,11,12,13); +ulftbulb(5,14,15,16,17); + +fill +z2{up}..{left}z0{left}..{down}z4{down}..{down}z7{down}..{left}z9{left}..{dir +120}z16{right}..{up}z15{up}..{left}z14{left}..{down}z5{down}..{right}z1{right}..{up}z3{up}..{up}z6{up}..{right}z8{right}..{dir +-60}z12{left}..{down}z11{down}..{right}z10{right}..{up}cycle; + +pickup pencircle scaled 1.2thinl; + +z20 = (w/2,h+o); +z21 = (w/2,-o); + +draw z20--z21; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"052",ex#,ex#,0); "Asterisk, *"; + +z0 = (w/2,h/2); +z1 = (w/2,o); +z2 = (w/2,h-o); +z3 = z1 rotatedaround (z0,60); +z4 = z3 rotatedaround (z0,60); +z5 = z4 rotatedaround (z0,120); +z6 = z5 rotatedaround (z0,60); +z7 = z6 rotatedaround (z0,60); + +pickup pencircle scaled thinl; + +draw z2--z1; +draw z4--z6; +draw z5--z3; + +picture asterisk; asterisk := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"057",ex#/2,cap#,0); "The forward slash, /"; + +z0 = (o,o); +z1 = (w-o,h-o); + +pickup pencircle scaled thinl; + +draw z0--z1; + +penlabels(0,1); +endchar; + +beginchar(oct"055",ex#,ex#,0); "The equals sign, ="; + +pickup pencircle scaled thickl; +lft z0 = (ss,ex-thinl); +rt z1 = (w-ss,y0); +lft z2 = (ss,ex/2); +rt z3 = (w-ss,y2); + +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8); +endchar; + +beginchar(".",pwid#,pwid#,0); "The period ."; + +z0 = (w/2,dotwid); +z1 = z0 shifted (dotwid,0); +z2 = z0 shifted (0,dotwid); +z3 = z0 shifted (-dotwid,0); +z4 = z0 shifted (0,-dotwid); + +path period; +period = z1..z2..z3..z4..cycle; +fill period; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"030",2ex#,theight#,0); "left-pointing arrow"; + +pickup pencircle scaled thickl; +lft z0 = (ss,h/2); +rt z1 = (w-ss,h/2); +top z2 = (x0 + 2thickl,h); +bot z3 = (x0 + 2thickl,0); +z4 = (x0 + thickl,3h/4); +z5 = (x0 + thickl,h/3); + +path arrowpoint; path arrowshaft; +arrowpoint = z2--z0--z3; arrowshaft = z0--z1; +draw arrowpoint; draw arrowshaft; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"031",2ex#,theight#,0); "right-pointing arrow"; +pickup pencircle scaled thickl; +draw arrowpoint rotatedaround ((w/2,h/2),180); +draw arrowshaft rotatedaround ((w/2,h/2),180); +endchar; + +beginchar(oct"040",1.2ex#+2ss#,asch#,0); "The Letter b"; + +z0 = (ss+userwl,h-userhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+lserwl,lserhl); +z3 = z2 shifted (thickl,0); +z12 = z1 shifted (0,userhl); +z13 = z3 shifted (0,-lserhl); +z19 = 0.5[z15,z17]; +z20 = (w-ss,(ex+o)/2); +z21 = (x2,y19); +z14 = 0.5[z22,z23] shifted (0,ex/2); +z15 = z14 shifted (0,-thinl); +z16 = 0.5[z22,z23] shifted (0,-ex/2-o); +z17 = z16 shifted (0,thinl); +z22 = z21 shifted (thickl,0); +z23 = z20 shifted (-curvl,0); + +ulserif(0,4,5,6,7)(1); +llserif(2,8,9,10,11)(1); + +fill z0..z4..z5--z6--z12--z13--z10--z9..z8..z2--cycle; +fill +z21{up}..{right}z14{right}..{down}z20{down}..{left}z16{left}..{up}z21..cycle; +unfill +z22{up}..{right}z15{right}..{down}z23{down}..{left}z17{left}..{up}z22..cycle; +pickup pencircle scaled thinl; +lft z30 = (ss,0.6h); +top z31 = (3w/4,h-o); +draw z30--z31; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"136",theight#+2ss#,cap#,dep#); "up-pointing arrow"; +pickup pencircle scaled thickl; +draw arrowpoint rotated -90 shifted (ss,h); +draw arrowshaft rotated -90 shifted (ss,h); +endchar; + +beginchar(oct"137",theight#+2ss#,cap#,dep#); "down-pointing arrow"; +pickup pencircle scaled thickl; +draw arrowpoint rotated 90 shifted (w-ss,-dep/2-ss); +draw arrowshaft rotated 90 shifted (w-ss,-dep/2-ss); +endchar; + +beginchar(oct"130",em#+2ss#,cap#,0); "Crusader cross"; + +z0 = (w/2-2thickl,h); +z1 = z0 shifted (4thickl,0); +z2 = z0 shifted (0,-1.5thinl); +z3 = z1 shifted (0,-1.5thinl); +z4 = z2 shifted (thickl,0); +z5 = z3 shifted (-thickl,0); +z6 = (x4,h/2-thickl); +z7 = (x5,h/2-thickl); + +path crosspart; +crosspart = z0--z1--z3--z5--z7--z6--z4--z2--cycle; +fill crosspart; +fill crosspart rotatedaround ((w/2,h/2),90); +fill crosspart rotatedaround ((w/2,h/2),180); +fill crosspart rotatedaround ((w/2,h/2),270); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"131",em#+2ss#,cap#,0); "Crusader cross, outline"; + +pickup pencircle scaled thinl; +top z0 = (w/2-2thickl,h); +z1 = z0 shifted (4thickl,0); +z2 = z0 shifted (0,-1.5thinl); +z3 = z1 shifted (0,-1.5thinl); +z4 = z2 shifted (thickl,0); +z5 = z3 shifted (-thickl,0); +z6 = (x4,h/2+thickl); +z7 = (x5,h/2+thickl); + +path crosspart; +crosspart = z7--z5--z3--z1--z0--z2--z4--z6; +draw crosspart; +draw crosspart rotatedaround ((w/2,h/2),90); +draw crosspart rotatedaround ((w/2,h/2),180); +draw crosspart rotatedaround ((w/2,h/2),270); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"120",1.2ex#+2ss#,cap#,0); "Communion Chalice with Host"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,3h/4); +rt z1 = (w-ss,3h/4); +z2 = (w/2-thickl/2,h/2); +z3 = (w/2+thickl/2,h/2); +z4 = (x2,0+thickl); +z5 = (x3,0+thickl); +bot z6 = (w/4,0-o); +bot z7 = (3w/4,0-o); +z8 = (1/4)[z0,z1]; +z9 = (3/4)[z0,z1]; +z10 = (w/2,9h/10); +z11 = z10 shifted (0,thickl); +z12 = z11 shifted (0,1.5thickl); +z13 = 0.5[z8,z9]; +path Hostray; Hostray = z11--z12; +draw Hostray rotatedaround (z13,22.5); +draw Hostray rotatedaround (z13,67.5); +draw Hostray rotatedaround (z13,-22.5); +draw Hostray rotatedaround (z13,-67.5); +draw z2{left}..z0--z1..{left}z3; +draw z2--z4; draw z3--z5; +draw z6{up}..{right}z4; draw z7{up}..{left}z5; draw z6--z7; +draw z8{up}..{right}z10{right}..{down}z9; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"144",1.2ex#+2ss#,cap#,0); "simple Latin cross"; + +pickup pensquare scaled thinl; +top z0 = (w/2-thickstroke/2,h); +z1 = z0 shifted (thickstroke,0); +lft z2 = (ss,2h/3+thickstroke/2); +z3 = z2 shifted (0,-thickstroke); +bot z4 = (w/2-thickstroke/2,0); +z5 = z4 shifted (thickstroke,0); +rt z6 = (w-ss,2h/3+thickstroke/2); +z7 = z6 shifted (0,-thickstroke); +z8 = (z0--z4) intersectionpoint (z2--z6); +z9 = (z1--z5) intersectionpoint (z2--z6); +z10 = (z0--z4) intersectionpoint (z3--z7); +z11 = (z1--z5) intersectionpoint (z3--z7); + +path latincross; +latincross = z0--z1--z9--z6--z7--z11--z5--z4--z10--z3--z2--z8--cycle; +filldraw latincross; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"134",1.2ex#+2ss#,cap#,0); "outline simple Latin cross"; +pickup pensquare scaled thinl; +draw latincross; +endchar; + +beginchar(oct"117",em#+2ss#,cap#,0); "empty circle"; + +pickup pencircle scaled 0.5thickl; +path empcirc; +empcirc = fullcircle scaled (w-2ss-thickl) shifted (w/2,h/2); +draw empcirc; + +endchar; + +beginchar(oct"155",0.9em#+2ss#,cap#,0); "intertwined rings"; + +pickup pencircle scaled (3thickl/4); +draw fullcircle scaled (em/2) shifted (w/3,h/2); +draw fullcircle scaled (em/2) shifted (2w/3,h/2); + +endchar; + +beginchar(oct"143",1.5em#+2ss#,cap#,0); "split rings"; + +pickup pencircle scaled (3thickl/4); +draw fullcircle scaled (em/2) shifted (w/4,h/2); +draw fullcircle scaled (em/2) shifted (3w/4,h/2); +draw (w/2,h-o)--(w/2,0+o); + +endchar; + +beginchar(oct"142",theight#+2ss#,theight#,0); "solid five-pointed star"; + +z0 = (w/2,h/2); +z1 = (w/2,h+o); +z2 = z1 rotatedaround (z0,72); +z3 = z2 rotatedaround (z0,72); +z4 = z3 rotatedaround (z0,72); +z5 = z4 rotatedaround (z0,72); +z6 = (z2--z5) intersectionpoint (z1--z4); +z7 = (z2--z5) intersectionpoint (z1--z3); +z8 = (z3--z5) intersectionpoint (z4--z1); +z9 = (z4--z2) intersectionpoint (z3--z1); +z10 = (z2--z4) intersectionpoint (z3--z5); + +path fivestar; fivestar = z1--z6--z5--z8--z4--z10--z3--z9--z2--z7--cycle; +fill fivestar; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"152",theight#+2ss#,theight#,0); "empty five-pointed star"; +pickup pencircle scaled thinl; +draw fivestar; +endchar; + +beginchar(oct"141",theight#+2ss#,theight#,0); "solid six-pointed star"; + +z0 = (w/2,h/2); +z1 = (w/2,h+o); +z2 = z1 rotatedaround (z0,60); +z3 = z2 rotatedaround (z0,60); +z4 = z3 rotatedaround (z0,60); +z5 = z4 rotatedaround (z0,60); +z6 = z5 rotatedaround (z0,60); +z7 = (z1--z3) intersectionpoint (z2--z6); +z8 = (z1--z5) intersectionpoint (z2--z6); +z9 = (z6--z4) intersectionpoint (z1--z5); +z10 = (z6--z4) intersectionpoint (z3--z5); +z11 = (z2--z4) intersectionpoint (z3--z5); +z12 = (z2--z4) intersectionpoint (z3--z1); + +path davstar; +davstar = z1--z7--z2--z12--z3--z11--z4--z10--z5--z9--z6--z8--cycle; +fill davstar; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"151",theight#+2ss#,theight#,0); "empty six-pointed star"; + +pickup pencircle scaled thinl; +draw davstar; + +endchar; + +beginchar(oct"251",em#+2ss#,cap#,0); "copyright symbol"; + +scalefactor = 0.5; + +pickup pencircle scaled 0.5thickl; +draw empcirc; + +z0 = (w/2,h+o); +z1 = z0 shifted (0,-(1/scalefactor)*thinl); +z2 = (w/2,0-o); +z3 = z2 shifted (0,(1/scalefactor)*thinl); +z4 = (ss,h/2); +z5 = z4 shifted ((1/scalefactor)*thickl,0); +z6 = (w-ss-hair,3h/4); +z7 = (w-ss,h/4); +z8 = z6 shifted (0,1.5thickl); +z9 = z8 shifted (-thickl,0); +z10 = z9 shifted (0,-0.5thickl); +z11 = z12 shifted (-(1/scalefactor)*thinl,0); +z12 = z6 shifted (0,-(1/scalefactor)*thinl); +z13 = z7 shifted (-(1/scalefactor)*thinl,0); + +path csymb; +csymb = z6--z8--z9--z10..z0{left}..{down}z4{down}..{right}z2{right}..z7--z13 +..{left}z3{left}..{up}z5{up}..{right}z1{right}..z11--z12--cycle; + +fill csymb scaled scalefactor shifted + ((scalefactor/2)*w,(scalefactor/2)*h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"253",em#+2ss#,cap#,0); "copyleft symbol"; + +pickup pencircle scaled 0.5thickl; +draw empcirc; +fill csymb scaled scalefactor shifted + ((scalefactor/2)*w,(scalefactor/2)*h) reflectedabout + ((w/2,h),(w/2,0)); + +endchar; + +beginchar(oct"204",ex#+2ss#,cap#,dep#); "dagger"; + +z0 = (w/2,h+o); +z1 = (w/2,-dep); +z2 = (ss,2h/3); +z3 = (w-ss,2h/3); +z4 = (w/2,2h/3); +z5 = 0.75[z4,z3]; +z6 = 0.75[z4,z2]; +z7 = z6 rotatedaround (z4,-90); +z8 = z6 rotatedaround (z4,90); +z9 = z5 shifted (0,thickl/2); +z10 = z5 shifted (0,-thickl/2); +z11 = z6 shifted (0,thickl/2); +z12 = z6 shifted (0,-thickl/2); +z13 = z7 shifted (thickl/2,0); +z14 = z7 shifted (-thickl/2,0); +z15 = z8 shifted (thickl/2,0); +z16 = z8 shifted (-thickl/2,0); +z17 = 1.0[z4,z8]; +z18 = z17 shifted (thickl/2,0); +z19 = z17 shifted (-thickl/2,0); +z20 = z0 shifted (thickl/2,-hair); +z21 = z0 shifted (-thickl/2,-hair); +z22 = z3 shifted (-hair,thickl/2); +z23 = z3 shifted (-hair,-thickl/2); +z24 = z2 shifted (hair,thickl/2); +z25 = z2 shifted (hair,-thickl/2); +z26 = z4 shifted (hair,hair); +z27 = z4 shifted (hair,-hair); +z28 = z4 shifted (-hair,-hair); +z29 = z4 shifted (-hair,hair); +z30 = z1 shifted (hair,hair); +z31 = z1 shifted (-hair,hair); + +fill +z0..z20--z13--z26--z9--z22..z3..z23--z10--z27--z15--z18--z30..z1..z31--z19--z16--z28--z12--z25..z2..z24--z11--z29--z14--z21..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"205",ex#+2ss#,cap#,dep#); "double dagger"; + +z0 = (w/2,h+o); +z1 = (w/2,(h-dep)/2); +z2 = (ss,(3h-dep)/4); +z3 = (w-ss,(3h-dep)/4); +z4 = (w/2,(3h-dep)/4); +z5 = 0.75[z4,z3]; +z6 = 0.75[z4,z2]; +z7 = z6 rotatedaround (z4,-90); +z8 = z6 rotatedaround (z4,90); +z9 = z5 shifted (0,thickl/2); +z10 = z5 shifted (0,-thickl/2); +z11 = z6 shifted (0,thickl/2); +z12 = z6 shifted (0,-thickl/2); +z13 = z7 shifted (thickl/2,0); +z14 = z7 shifted (-thickl/2,0); +z15 = z8 shifted (thickl/2,0); +z16 = z8 shifted (-thickl/2,0); +z17 = 1.0[z4,z8]; +z18 = z17 shifted (thickl/2,0); +z19 = z17 shifted (-thickl/2,0); +z20 = z0 shifted (thickl/2,-hair); +z21 = z0 shifted (-thickl/2,-hair); +z22 = z3 shifted (-hair,thickl/2); +z23 = z3 shifted (-hair,-thickl/2); +z24 = z2 shifted (hair,thickl/2); +z25 = z2 shifted (hair,-thickl/2); +z26 = z4 shifted (hair,hair); +z27 = z4 shifted (hair,-hair); +z28 = z4 shifted (-hair,-hair); +z29 = z4 shifted (-hair,hair); +z30 = z1 shifted (thickl/2,hair); +z31 = z1 shifted (-thickl/2,hair); + +path halfdag; +halfdag = +z0..z20--z13--z26--z9--z22..z3..z23--z10--z27--z15--z18--z30..z1..z31--z19--z16--z28--z12--z25..z2..z24--z11--z29--z14--z21..cycle; + +fill halfdag; +fill halfdag shifted (0,-(h-dep)-o); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"247",4ex#/5,cap#,dep#); "The section symbol"; + +toth = h+dep; +sh = 2toth/3-thinl+o; +z0 = (w-ss,h-sh/4); +z1 = (w/2,h+o); +z2 = z1 shifted (0,-thinl); +z3 = (ss,h-sh/4); +z4 = z3 shifted (thinl,0); +z5 = (w-ss,h-3sh/4); +z6 = z5 shifted (-thinl,0); +z7 = (w/2,h-sh); +z8 = z7 shifted (0,-thinl); +z9 = (w/2,h-sh/2+curvl/2); +z10 = z9 shifted (0,-curvl); +z11 = z0 shifted (-thinl,0); +z12 = 0.5[z0,z11] shifted (0,-o); +z13 = (ss,h-3sh/4); +z14 = z13 shifted (thinl,0); +z15 = 0.5[z13,z14] shifted (0,hair/2); + +path halfsect; +halfsect = +z0{up}..{left}z1{left}..{down}z3{down}..z10..{down}z6{down}..{left}z7{left}..{up}z14..z15..{down}z13{down}..{right}z8{right}..{up}z5{up}..z9..{up}z4{up}..{right}z2{right}..{down}z11..z12..cycle; +fill halfsect; +fill halfsect shifted (0,-sh/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"210",ex#+2ss#,ex#,0); "solid bullet"; + +fill fullcircle scaled 5dotwid shifted (w/2,h-2.5dotwid); + +endchar; + +beginchar(oct"260",2pwid#+2ss#,cap#,0); "degree symbol"; + +pickup pencircle scaled thinl; +path degree; degree = fullcircle scaled 4dotwid shifted (w/2,h-2dotwid); +draw degree; + +endchar; + +beginchar(oct"154",1.2em#+2ss#,cap#,0); "simple leaf"; + +pickup pencircle scaled thinl; +leafwid = ex; +leaflen = 2.5leafwid; +bot lft z0 = (ss,0); +z1 = (leaflen,0); +z2 = z1 rotatedaround (z0,40); +z3 = 0.25[z0,z2]; +z4 = (2/3)[z0,z2]; +z5 = 0.5[z4,z2]; +z13 = 0.6[z0,z2]; +z6 = z5 rotatedaround (z4,45); +z7 = z4 rotatedaround (z0,20); +z8 = z4 rotatedaround (z0,-20); +z9 = (z3--(x3,h)) intersectionpoint (z0..z7..z2); +z10 = (z13--(x13,h)) intersectionpoint (z0..z7..z2); +z11 = (z3--(w,y3)) intersectionpoint (z0..z8..z2); +z12 = (z13--(w,y13)) intersectionpoint (z0..z8..z2); + +draw z0..z7..z2; draw z0..z8..z2; +draw z0--z2; +draw z3--z9; draw z13--z10; +draw z3--z11; draw z13--z12; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"236",ex#+2ss#,ex#,0); "empty bullet"; + +pickup pencircle scaled thinl; +draw fullcircle scaled 5dotwid shifted (w/2,h-2.5dotwid); + +endchar; + +beginchar(oct"211",5em#/6+2ss#+pwid#,cap#,0); "degree Celsius symbol"; + +z1=(w-ss-userh,h-userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userh,userh); +z4=z3+(0,thickstroke); +z5=(w/2+pwid/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2+pwid/2,0); +z8=z7+(0,thinstroke); +z9=(ss+pwid,h/2+o); +z10=z9+(curvwid,0); +ctsideserif(1,11,12,13,14,2)(1); +ctsideserif(4,15,16,17,18,3)(2); + +path cbody; cbody=z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path cinbody; cinbody=z2..z6..z10..z8..z4; + +fill cinbody & botserif & cbody & topserif & cycle; +pickup pencircle scaled thinl; +draw degree shifted (-2pwid/3,0); + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"022",1.75pwid#,1.75pwid#,0); "straight baseline double quote"; + +z0 = (w/2-thickl,h-o); +z1 = z0 shifted (2accwid,-2accwid); +z2 = z0 shifted (-2accwid,-2accwid); +z3 = z0 shifted (0,-1.5pwid); +z4 = z3 shifted (-accwid,o); +z5 = z3 shifted (accwid,o); + +path singquote; singquote = z2..z0..z1--z5..z3..z4--cycle; + +fill singquote; +fill singquote shifted (2thickl,0); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"047",3.5pwid#/4,cap#,0); "straight single quote"; +fill singquote shifted (0,h-1.75pwid); +endchar; + +beginchar(oct"256",em#+2ss#,cap#,0); "registered symbol"; + +scalefactor := 0.5; + +pickup pencircle scaled 0.5thickl; +draw empcirc; + +z1 = (ss+lserwl,lserhl); +z2 = z1 shifted (2thickstroke,0); +z3 = (ss+userwl,h-userhl); +z4 = (x3+2thickstroke,h-2thinstroke); +z17 = ((ss+(2thickstroke/2)+lserwl),h); +z19 = z4 shifted (1loopgap,0); +z18 = z19 shifted (0,2thinstroke); +z20 = (w-ss-thickstroke,3h/4); +z21 = z20-(1.5curvwid,0); +z22 = z24 shifted (loopgap,0); +z23 = z22 shifted (0,2thinstroke); +z30 = (x4,0); +z24 = 0.5[z30,z17]; x24 := x4; +z25 = z24+(0,2thinstroke); +z26 = (w-2thickstroke-lserwl/2,0); +z27 = z26 shifted (2thickstroke,0); +z28 = z27+(0,lserstep); +z29 = z28-(lserstep,0); +z32 = z22+(2thickstroke,0); +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +path rpath; rpath = z18--z17--z12--z11--z10..z9..z3--z1..z5..z6--z7--z8--z15--z14..z13..z2--z24--z22---z26--z27--z28--z29--z32..z20..{left}z18..cycle; +path runpath; runpath = z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +fill rpath scaled scalefactor shifted + ((scalefactor/2)*w+thinstroke/2,(scalefactor/2)*h); +unfill runpath scaled scalefactor shifted + ((scalefactor/2)*w+thinstroke/2,(scalefactor/2)*h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"255",em#+2ss#,cap#,0); "circled P"; + +scalefactor := 0.5; + +pickup pencircle scaled 0.5thickl; +draw empcirc; + +z1 = (ss+lserwl,lserhl); +z2 = z1 shifted (2thickstroke,0); +z3 = (ss+userwl,h-userhl); +z4 = (x3 + 2thickstroke,h-2thinstroke); +z17=((ss+(2thickstroke/2)+lserwl),h); +z18=(w/2,h); +z19=(w/2,h-2thinstroke); +z20 = (w-ss,3h/4); +z21 = z20 shifted (-2curvwid,0); +z22=(x18,h/2); +z23=z22+(0,2thinstroke); +z30=(x4,0); +z26 = z2 shifted (0,-lserhl); +z27 = z4 shifted (0,thinstroke); +z24 = 0.5[z26,z27]; y24 := y22; +z25 = z24 shifted (0,2thinstroke); +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +path pfill; pfill = z18--z17--z12--z11--z10..z9..z3--z1..z5..z6-- + z7--z8--z15--z14..z13..z2--z24..z22..z20..{left}z18..cycle; +path punfill; +punfill = z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +fill pfill scaled scalefactor shifted + ((scalefactor/2)*w,(scalefactor/2)*h); +unfill punfill scaled scalefactor shifted + ((scalefactor/2)*w,(scalefactor/2)*h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; +beginchar(oct"057",ex#/2,cap#,0); "The forward slash, /"; + +z0 = (o,o); +z1 = (w-o,h-o); + +pickup pencircle scaled thinl; + +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"133",2pwid#,cap#+ss#,dep#); "The open square double bracket"; + +z0 = (w-ss,h); +z1 = z0 shifted (0,-thinl); +z2 = (ss,h); +z3 = z2 shifted (thinl,-thinl); +z4 = (ss,-dep); +z5 = z4 shifted (thinl,thinl); +z6 = (w-ss,-dep); +z7 = z6 shifted (0,thinl); +z8 = 0.5[z0,z1] shifted (0,0); +z9 = 0.5[z7,z6] shifted (0,0); +z10 = z3 shifted (thickl,0); +z11 = z5 shifted (thickl,0); + +path secline; secline = z10--z11; +pickup pencircle scaled thinl; +draw secline; + +path squarebrack; +squarebrack = z0--z2--z4--z6--z7--z5--z3--z1--cycle; +fill squarebrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"135",2pwid#,cap#+ss#,dep#); "The close square double bracket"; +fill squarebrack rotatedaround ((w/2,(h-dep)/2),180); +pickup pencircle scaled thinl; +draw secline rotatedaround ((w/2,(h-dep)/2),180); +endchar; + +beginchar(oct"231",3em#/5+2ss#,cap#,0); "single-line pilcrow"; + +z0 = (w-ss-lserw,lserhl); +z1 = z0 shifted (-thickstroke,0); +z2 = (w-ss-userw,h-userhl); +z3 = z2 shifted (-thickstroke,0); +urserif(2,4,5,6,7)(1); +llserif(1,8,9,10,11)(1); +lrserif(0,12,13,14,15)(1); +z16 = (ss,3h/4); +z17 = z16 shifted (curvwid,0); +z18 = (x1,h/2); +z19 = z18 shifted (thickstroke,0); + +fill +z0..z12..z13--z14--z10--z9..z8..z1--z18{left}..{up}z16{up}..{right}z7--z6--z5..z4..z2--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"266",4em#/5+2ss#,cap#,0); "double-line pilcrow"; + +pickup pencircle scaled thinl; +z0 = (w-ss-lserw,lserhl); +z1 = z0 shifted (-1.5thickstroke,0); +z2 = (w-ss-userw,h-userhl); +z3 = z2 shifted (-1.5thickstroke,0); +urserif(2,4,5,6,7)(1); +llserif(1,8,9,10,11)(1); +lrserif(0,12,13,14,15)(1); +lft z16 = (ss,3h/4); +z17 = z16 shifted (curvwid,0); +z18 = (x1,h/2); +z19 = z18 shifted (1.5thickstroke,0); +z20 = (x3,h); + +filldraw z20{left}..{down}z16{down}..{right}z18--cycle; +draw +z1..z8..z9--z10--z14--z13..z12..z0--z2..z4..z5--z6--z20--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"300",ex#+2ss#,ex#,0); "solid triangle bullet"; + +pickup pencircle scaled thinstroke; +z0 = (w/2-thinstroke-ss,h/2); +z1 = (x0+w/2,y0); +z2 = z1 rotatedaround (z0,120); +z3 = z2 rotatedaround (z0,120); + +path tribull; tribull = z1--z2--z3--cycle; +fill tribull; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"301",ex#+2ss#,ex#,0); "empty triangle bullet"; + +pickup pencircle scaled thinstroke; + +draw tribull; + +endchar; + +beginchar(oct"224",digwid#+2ss#,cap#,0); "The interrobang"; + +z0 = (w/2,h+o); +z1 = z0 shifted (0,-thinl); +z2 = (w-ss,3h/4); +z3 = z2 shifted (-1.5thinl,0); +z4 = (ss,3h/4); +z5 = (w/2-thickl/2,3dotwid); +z6 = z5 shifted (thickl,0); +z7 = (w/2-thickl/2,h/2); +z8 = z7 shifted (thickl,0); +z9 = z7 shifted (0,thinl); +z10 = z9 shifted (thickl,0); +z15 = z1 shifted (-thickl/2,-1.5thickl); +z17 = z15 shifted (thickl,0); +z16 = 0.5[z5,z6]; y16 := dotwid; +z19 = 0.5[z15,z17] shifted (0,hair); + +drtbulb(4,11,12,13,14); + +fill +z4{up}..{right}z0{right}..{down}z2{down}..{left}z8--z6--z5--z7{up}..{right}z10..{up}z3{up}..{left}z1{left}..{dir +-115}z13{right}..z12..z11..cycle; +fill z7--z15..z19..z17--z8--cycle; +fill fullcircle scaled 2dotwid shifted z16; + +picture interrobang; +interrobang := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"225",digwid#+2ss#,cap#,dep#); "The inverted interrobang"; + +currentpicture := interrobang rotatedaround ((w/2,(h-dep)/2),180); + +endchar; + +beginchar(oct"302",1.2em#+2ss#,cap#,0); "The asterism"; + +currentpicture := asterisk shifted (w/2-ex/2-ss,h/2) + + asterisk + asterisk shifted (w/2-ss,0); + +endchar; + +beginchar(oct"306",ex#+2ss#,ex#,0); "solid lozenge"; + +pickup pencircle scaled thinl; +top z0 = (w/2,h); +rt z1 = (w-ss,h/2); +bot z2 = (w/2,0); +lft z3 = (ss,h/2); + +path lozenge; lozenge = z0--z1--z2--z3--cycle; +fill lozenge; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"307",ex#+2ss#,ex#,0); "empty lozenge"; + +pickup pencircle scaled thinl; +draw lozenge; + +endchar; + +beginchar(oct"170",ex#+2ss#,ex#,0); "simple Greek cross"; + +pickup pensquare scaled thinl; +top z0 = (w/2-thickstroke/2,h); +z1 = z0 shifted (thickstroke,0); +rt z2 = (w-ss,h/2+thickstroke/2); +z3 = z2 shifted (0,-thickstroke); +bot z4 = (w/2-thickstroke/2,0); +z5 = z4 shifted (thickstroke,0); +lft z6 = (ss,h/2+thickstroke/2); +z7 = z6 shifted (0,-thickstroke); +z8 = (z0--z4) intersectionpoint (z6--z2); +z9 = (z1--z5) intersectionpoint (z6--z2); +z10 = (z7--z3) intersectionpoint (z0--z4); +z11 = (z7--z3) intersectionpoint (z1--z5); + +path greekcross; +greekcross = z0--z8--z6--z7--z10--z4--z5--z11--z3-- + z2--z9--z1--cycle; +filldraw greekcross; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"171",ex#+2ss#,ex#,0); "outline simple Greek cross"; +pickup pensquare scaled thinl; +draw greekcross; +endchar; + +beginchar(oct"172",ex#+2ss#,ex#,0); "simple saltire cross"; + +pickup pencircle scaled thinl; +lft z0 = (ss,h-thickl); +z1 = z0 shifted (thickl,0) rotatedaround (z0,45); +rt z2 = (w-ss,h-thickl); +z3 = z2 shifted (-thickl,0) rotatedaround (z2,-45); +lft z4 = (ss,thickl); +z5 = z4 shifted (thickl,0) rotatedaround (z4,-45); +rt z6 = (w-ss,thickl); +z7 = z6 shifted (thickl,0) rotatedaround (z6,225); +z8 = (z1--z6) intersectionpoint (z4--z3); +z9 = (z0--z7) intersectionpoint (z4--z3); +z10 = (z2--z5) intersectionpoint (z1--z6); +z11 = (z0--z7) intersectionpoint (z5--z2); + +path saltire; +saltire = z1--z8--z3--z2--z10--z6--z7--z11--z5--z4--z9--z0--cycle; +filldraw saltire; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"173",ex#+2ss#,ex#,0); "outline simple saltire cross"; +pickup pencircle scaled thinl; +draw saltire; +endchar; + +beginchar(oct"074",1.8pwid#,cap#+ss#,dep#); "open wide angle bracket"; + +pickup pencircle scaled thinl; +top rt z0 = (w-ss,h); +lft z1 = (ss,(h-dep)/2); +bot rt z2 = (w-ss,-dep); + +path wideanglebrack; wideanglebrack = z0--z1--z2; +draw wideanglebrack; + +endchar; + +beginchar(oct"076",1.8pwid#,cap#+ss#,dep#); "close wide angle bracket"; + +pickup pencircle scaled thinl; +draw wideanglebrack rotatedaround ((w/2,(h-dep)/2),180); + +endchar; + +beginchar(oct"025",3pwid#,ex#,0); "The en-dash, --"; + +z0 = (ss,3h/4); +z1 = (w-ss,y0); +z2 = z0 shifted (thinwid/2,thinwid/2); +z3 = z2 shifted (0,-thinwid); +z4 = z1 shifted (-thinwid/2,thinwid/2); +z5 = z4 shifted (0,-thinwid); + +fill z2..z0..z3--z5..z1..z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"026",em#+2ss#,ex#,0); "The em-dash, ---"; + +z0 = (ss,3h/4); +z1 = (w-ss,y0); +z2 = z0 shifted (thinwid/2,thinwid/2); +z3 = z2 shifted (0,-thinwid); +z4 = z1 shifted (-thinwid/2,thinwid/2); +z5 = z4 shifted (0,-thinwid); + +fill z2..z0..z3--z5..z1..z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"075",3pwid#,ex#,0); "The en-dash, --"; + +z0 = (ss,3h/4); +z1 = (w-ss,y0); +z2 = z0 shifted (thinwid/2,thinwid/2); +z3 = z2 shifted (0,-thinwid); +z4 = z1 shifted (-thinwid/2,thinwid/2); +z5 = z4 shifted (0,-thinwid); + +fill z2..z0..z3--z5..z1..z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"227",1.3em#,cap#,0); "trademark symbol, TM"; + +z0 = (ss,h-2thinstroke); +z1 = (ss,h); +z2 = (ss+8thickstroke,h); +z3 = (x2,y0); +z4 = 0.5[z0,z3] shifted (-2thickstroke/2,0); +z5 = z4 shifted (2thickstroke,0); +z6 = z4 shifted (0,-8thickstroke); +z7 = z6 shifted (2thickstroke,0); +z8 = z0 shifted (0,-2hair); +z9 = z8 shifted (2hair,0); +z10 = z9 shifted (0,2hair); +z11 = z6 shifted (-2hair,0); +z12 = z11 shifted (0,2hair); +z13 = z12 shifted (2hair,0); +z14 = z7 shifted (2hair,0); +z15 = z14 shifted (0,2hair); +z16 = z15 shifted (-2hair,0); +z17 = z3 shifted (0,-2hair); +z18 = z17 shifted (-2hair,0); +z19 = z18 shifted (0,2hair); + +path tradet; +tradet = z4--z10--z9--z8--z1--z2--z17--z18--z19--z5-- + z16--z15--z14--z11--z12--z13--cycle; + +z20 = z2 shifted (2hair,0); +z21 = z20 shifted (2hair,0); +z22 = z20 shifted (0,-2hair); +z23 = z22 shifted (2hair,0); +z24 = (x23,y15); +z25 = z24 shifted (-2hair,0); +z26 = z25 shifted (0,-2hair); +z27 = z26 shifted (2hair,0); +z28 = z27 shifted (2thickstroke,0); +z29 = (x28,y23-2hair); +z30 = z28 shifted (3thickstroke,0); +z31 = z30 shifted (3thickstroke,0); +z32 = (x31,y29-2hair); +z33 = z31 shifted (2thickstroke,0); +z34 = z33 shifted (2hair,0); +z35 = z34 shifted (0,2hair); +z36 = z35 shifted (-2hair,0); +z37 = (x36,y21); +z38 = z37 shifted (2hair,0); +z39 = z38 shifted (0,-2hair); +z40 = z39 shifted (-2hair,0); +z41 = z30 shifted (0,2thickstroke+2hair); +z42 = (x32-2thinstroke,y21); +z43 = (x29+2thinstroke,y21); + +path tradem; +tradem = z24--z25--z26--z27--z28--z29--z30--z32-- + z31--z34--z35--z36--z40--z39--z38--z42--z41--z43-- + z20--z22--z23--cycle; + +fill tradet scaled 0.5 shifted (ss,h-4thickstroke); +fill tradem scaled 0.5 shifted (ss,h-4thickstroke); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"127",5em#/6+2ss#,cap#,0); "capital Omega"; + +z0 = (ss,0); +z1 = (w-ss,0); +z2 = z0 shifted (thickstroke,0); +z3 = z1 shifted (-thickstroke,0); +z4 = z0 shifted (0,2lserhl); +z5 = z1 shifted (0,2lserhl); +z6 = z5 shifted (-lserstep,0); +z7 = z4 shifted (lserstep,0); +z8 = z2 shifted (thickstroke,0); +z9 = z3 shifted (-thickstroke,0); +z10 = (ss,h/2+2lserhl); +z11 = (w-ss,h/2+2lserhl); +z12 = z10 shifted (thickstroke,0); +z13 = z11 shifted (-thickstroke,0); +z14 = (w/2,h+o); +z15 = z14 shifted (0,-thinstroke); +z16 = z8 shifted (0,thinstroke); +z17 = z9 shifted (0,thinstroke); +z18 = z9 shifted (-thickstroke,0); +z19 = z8 shifted (thickstroke,0); + +path omega; omega = + z8--z0--z4--z7{down}..{right}z16{dir 120}..{up}z10{up}.. + {right}z14{right}..{down}z11{down}..{dir -120}z17{right}.. + {up}z6--z5--z1--z18{dir 60}..{up}z13{up}..{left}z15{left}.. + {down}z12{down}..{dir -60}z19--cycle; +fill omega; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"115",5em#/6+2ss#,cap#,0); "upside-down capital Omega"; +fill omega rotatedaround ((w/2,h/2),180); +endchar; + +beginchar(oct"213",ex#+2ss#,ex#,0); "old-style cents symbol"; + +z0 = (w/2+hair,h+o); +z1 = (w/2+hair,-o); +z2 = (w-ss,0.7h); +z3 = (w-ss,h/4); +z4 = (ss,h/2); +z9 = z0 shifted (0,-thinl); +z10 = z4 shifted (curvl,0); +z11 = z1 shifted (0,thinl); +z12 = z3 shifted (0,hair/2); +z13 = z12 shifted (-hair/2,0); +z14 = (w-ss,h/2); + +urtbulb(2,5,6,7,8); + +path cpath; cpath = +z1{right}..z3..z12..z13{dir -135}..{left}z11{left}..{up}z10{up}..{right}z9{right}..{dir +-40}z7{left}..{down}z6..z5..z2..{left}z0{left}..z4..{right}z1..cycle; + +fill cpath; + +z15 = (w-ss,h+thickstroke); +z16 = (ss,-thickstroke); +pickup pencircle scaled thinl; +draw z15--z16; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"214",ex#/phi+2ss#,asch#,0); "The Letter f"; + +z0 = (ss+lserwl,lserhl); +z1 = z0 shifted (thickl,0); +z2 = (ss+lserwl,h-1.5userhl); +z3 = z2 shifted (thickl,0); +z12 = (x0,ex-thinl); +z13 = z12 shifted (thickl,0); +z14 = z12 shifted (0,thinl); +z15 = z13 shifted (0,thinl); +z16 = (ss+hair,y12); +armlen = x12 - x16; +z17 = z13 shifted (armlen,0); +z18 = z16 shifted (0,thinl); +z19 = z17 shifted (0,thinl); +z20 = 0.5[z16,z18] shifted (-hair,0); +z21 = 0.5[z19,z17] shifted (hair,0); +z22 = (x19,y3); +z27 = 0.5[z3,z22]; y27 := h+o; +z28 = z27 shifted (0,-thinl); + +lrserif(1,4,5,6,7)(1); +llserif(0,8,9,10,11)(1); +dlftbulb(22,23,24,25,26); + +fill +z1..z4..z5--z6--z10--z9..z8..z0--z12--z16..z20..z18--z14--z2{up}..{right}z27{right}..{down}z24..z23..z22..{right}z25{dir 160}..z28..{down}z3--z15--z19..z21..z17--z13--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"242",ex#+2ss#,ex#,0); "cents symbol"; + +fill cpath; + +z15 = (w/2,h+thickstroke); +z16 = (w/2,-thickstroke); +pickup pencircle scaled thinl; +draw z15--z16; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"244",em#+2ss#,cap#,0); "empty circle, rays"; + +pickup pencircle scaled 0.5thickl; +draw empcirc; +top rt z0 = (w-ss,h); +top lft z1 = (ss,h); +bot rt z2 = (w-ss,0); +bot lft z3 = (ss,0); +z4 = (w/2,h/2); +z5 = (z0--z4) intersectionpoint empcirc; +z6 = (z3--z4) intersectionpoint empcirc; +z7 = (z2--z4) intersectionpoint empcirc; +z8 = (z1--z4) intersectionpoint empcirc; + +draw z3--z6; draw z2--z7; draw z5--z0; draw z8--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"206",pwid#+2ss#,cap#+ss#,dep#); "The double pipe"; + +pickup pencircle scaled thinl; +lft z0 = (w/2-thickstroke,h-o); +lft z1 = (w/2-thickstroke,-dep+o); +rt z2 = (w/2+thickstroke,h-o); +rt z3 = (w/2+thickstroke,-dep+o); + +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4); +endchar; + +beginchar(oct"326",ex#+2ss#,ex#,0); "The times sign"; + +pickup pencircle scaled thinl; +top lft z0 = (ss,h); +top rt z1 = (w-ss,h); +bot lft z2 = (ss,0); +bot rt z3 = (w-ss,0); + +draw z0--z3; draw z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"366",1.5ex#+2ss#,ex#,2dotwidth#); "The division sign"; + +pickup pencircle scaled thinl; +lft z0 = (ss,(h+d)/2-d); +rt z1 = (w-ss,(h+d)/2-d); + +draw z0--z1; +fill fullcircle scaled 2dotwid shifted (w/2,h-dotwid); +fill fullcircle scaled 2dotwid shifted (w/2,-d+dotwid); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"032",ex#+2ss#,cap#,0); "High tie"; + +penpos0(1.5thinl,0); +z0l = (ss,3h/4); +penpos1(1.5thinl,180); +z1l = (w-ss,3h/4); +penpos2(thickl,-90); +z2l = (w/2,h+o); + +penstroke z0e..z2e..z1e; + +picture tie; tie := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"033",ex#+2ss#,ex#,0); "Low tie"; + +currentpicture := tie shifted (0,-(cap-ex)); + +endchar; + +beginchar(oct"035",ex#+2ss#,cap#,0); "High tie"; + +currentpicture := tie shifted (0,-(cap-ex)); + +endchar; + +beginchar(oct"034",3ex#/4+2ss#,cap#,0); "Narrow tie"; + +penpos0(1.5thinl,0); +z0l = (ss,3h/4); +penpos1(1.5thinl,180); +z1l = (w-ss,3h/4); +penpos2(thickl,-90); +z2l = (w/2,h+o); + +penstroke z0e..z2e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"156",1.2ex#+2ss#,cap#,0); "Eighth note"; + +z0 = (ss,2w/8); +z1 = (2w/8,4w/8-ss); +z2 = (4w/8,2w/8); +z3 = (2w/8,0-o); +z5 = (x2,h+o); +z6 = z5 shifted (-thinl,0); +z7 = z2 shifted (-thinl,0); +penpos8(thinl,0); +z8 = 0.5[z6,z5]; +penpos9(1.25thinl,45); +z9 = z8 shifted (thickl,-2thickl); +penpos10(1.5thinl,0); +z10 = z9 shifted (thickl,-thickl); +penpos11(1.5thinl,0); +z11l = z10 shifted (-thickl,-thickl); +penpos12(1.5thinl,45); +z12l = (x10r,y2); + +fill z0..z1..z2..z3..cycle; +fill z6--z5--z2--z7--cycle; +penstroke z8e..z9e..z10e..z11e;%..z12e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"176",1.8ex#+2ss#,ex#,0); "Large tilde"; + +penpos0(1.5thickl,-30); +z0l = (ss,h-8accwid); +penpos1(1.5thickl,-90); +z1l = (w/3,h+o); +penpos2(1.5thickl,-90); +%z2 = (2w/3,y0r); +z2 = (2w/3,y0); +penpos3(1.5thickl,-30); +y3l = (y1l); +x3r = (w-ss); + +penstroke z0e..{right}z1e; +penstroke z1e{right}..{right}z2e; +penstroke z2e{right}..z3e; +%penstroke z0e..z1e..z2e..z3e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"200",ex#+2ss#,cap#,0); "Cupped tie"; + +penpos0(1.5thinl,0); +z0l = (ss,h+o); +penpos1(1.5thinl,180); +z1l = (w-ss,h+o); +penpos2(thickl,90); +z2l = (w/2,3h/4); + +penstroke z0e..z2e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"201",0.75ex#+2ss#,cap#,0); "Cupped tie"; + +penpos0(1.5thinl,0); +z0l = (ss,h+o); +penpos1(1.5thinl,180); +z1l = (w-ss,h+o); +penpos2(thickl,90); +z2l = (w/2,3h/4); + +penstroke z0e..z2e..z1e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"202",1.9pwid#+2ss#,cap#,0); "Close straight double quotes"; + +z0 = (0,h-2accwid); +z1 = z0 shifted (2accwid,2accwid); +z2 = z1 shifted (2accwid,-2accwid); +z3 = z0 shifted (accwid,-pwid); +z4 = z3 shifted (accwid,-accwid); +z5 = z4 shifted (accwid,accwid); +z6 = 0.5[z1,z4]; +z7 = (w/4,h-1.5accwid-0.5pwid); +z8 = (3w/4,h-1.5accwid-0.5pwid); + +path straight; straight = z0..z1..z2--z5..z4..z3--cycle; +fill straight shifted (w/4-2accwid,0) rotatedaround (z7,-30); +fill straight shifted (3w/4-2accwid,0) rotatedaround (z8,-30); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"203",1.9pwid#+2ss#,cap#,0); "Open straight double quotes"; + +z7 = (w/4,h-1.5accwid-0.5pwid); +z8 = (3w/4,h-1.5accwid-0.5pwid); + +fill straight shifted (w/4-2accwid,0) rotatedaround (z7,30); +fill straight shifted (3w/4-2accwid,0) rotatedaround (z8,30); + +endchar; + +beginchar(oct"207",7.5em#/6,cap#,0); "The pertriqua sign, %"; + +zeroh = 1.2pwid; +zerohh = 3ex/4; +semw = 5em/6-ss; +z0 = (0.6zeroh,h); +z1 = z0 shifted (0,-thinl); +z2 = (0.6zeroh,h-zerohh); +z3 = z2 shifted (0,thinl); +z4 = (1.2zeroh,h-zerohh/2); +z5 = z4 shifted (-1.7thinl,0); +z6 = (ss,h-zerohh/2); +z7 = z6 shifted (thinl,0); + +fill z0..z4..z2..z6..cycle; +unfill z1..z5..z3..z7..cycle; + +z10 = (semw+ss-0.6zeroh,zerohh); +z11 = z10 shifted (0,-thinl); +z12 = (semw+ss-0.6zeroh,0); +z13 = z12 shifted (0,thinl); +z14 = (semw,zerohh/2); +z15 = z14 shifted (-1.7thinl,0); +z16 = (semw+ss-1.2zeroh,zerohh/2); +z17 = z16 shifted (thinl,0); + +fill z10..z14..z12..z16..cycle; +unfill z11..z15..z13..z17..cycle; + +z22 = (semw,h); +z23 = z22 shifted (0,-thinl); +z20 = 0.5[z0,z22] shifted (0,-0.25pwid); +z21 = z20 shifted (0,-thinl); +z24 = (ss,-o); +z25 = z24 shifted (0,1.00thinl); +z26 = z24 shifted (0.75thinl,0); +z27 = z23 shifted (-1.8thinl,-hair); + +fill z0..z20..z22--z23--z26..z24..z25--z27..z21..z1--cycle; + +z30 = (w-0.6zeroh,zerohh); +z31 = z30 shifted (0,-thinl); +z32 = (w-0.6zeroh,0); +z33 = z32 shifted (0,thinl); +z34 = (w-ss,zerohh/2); +z35 = z34 shifted (-1.7thinl,0); +z36 = (w-1.2zeroh,zerohh/2); +z37 = z36 shifted (thinl,0); + +fill z30..z34..z32..z36..cycle; +unfill z31..z35..z33..z37..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"215",5em#/6+ss#,cap#,0); "Capital C, slashed vertically"; + +z1=(w-ss-userh,h-userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userh,userh); +z4=z3+(0,thickstroke); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2+o); +z10=z9+(curvwid,0); +ctsideserif(1,11,12,13,14,2)(1); +ctsideserif(4,15,16,17,18,3)(2); + +pickup cappen; +path cbody; cbody=z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path cinbody; cinbody=z2..z6..z10..z8..z4; + +pickup pencircle scaled 2thinl; +z20 = (3w/5,h+thinl); +z21 = (3w/5,0-thinl); +draw z20---z21; + +fill cinbody & botserif & cbody & topserif & cycle; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar(oct"216",2ss#+2thickstroke#+thinstroke#+6userw#+2hair#,cap#,0); +"Capital W, double slashed horizontally"; + +bottompoints=(w-2ss)/3; + +z1 = (ss+userw,h-userh); +z2 = z1 shifted (thickstroke,0); +z3 = z2 shifted (userw+hair+userw,0); +z4 = z3 shifted (thickstroke,0); +z5 = z4 shifted (userw+hair+userw+thinstroke,0); +z6 = z5 shifted (-thinstroke,0); +z7 = (w/3+thinstroke/2,0); +z8 = (2w/3+thinstroke/2,0); +z33=(w/2,3h/4); +z34=z8+(.4thinstroke,2.2thickstroke); +z35=z7+(0.4thinstroke,2.2thickstroke); +z36=0.96[z8,z3]; + +ulserif(1,9,10,11,12)(1); +urserif(2,13,14,15,16)(1); +ulserif(3,17,18,19,20)(1); +urserif(4,21,22,23,24)(1); +ulserif(6,25,26,27,28)(1); +urserif(5,29,30,31,32)(1); + +y11 := y15 := y19 := y23 := y27 := y31 := h; + +fill z8--z5..z29..z30--z31--z27--z26..z25..z6--z34--z4..z21..z22--z23--z19--z18..z17..z3--z36--z35--z2..z13..z14--z15--z11--z10..z9..z1--z7--z33--z8--cycle; + +pickup pencircle scaled 1.5thinl; + +lft z40 = (ss,2h/3); +lft z41 = (ss,0.4h); +rt z42 = (w-ss,2h/3); +rt z43 = (w-ss,0.4h); + +draw z40--z42; draw z41--z43; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"217",5em#/6+2ss#,cap#,0); +"Capital N, double slashed, horizontally"; + +z1 = (ss+userw,h-userh); +z2=z1+(thinstroke,-0.3thickstroke); +z3 = (ss+lserw,lserh); +z4=z3+(thinstroke,0); +z5=(w-ss-userw,h-userh); +z6=z5-(thinstroke,0); +z7=(w-ss-userw,-o); +z28=z7+(-thinstroke,2thickstroke); +z29=z27+(thickstroke/2,0); + +llserif(3,8,9,10,11)(1); +lrserif(4,12,13,14,15)(1); +ulserif(6,16,17,18,19)(1); +urserif(5,20,21,22,23)(1); +ulserif(1,24,25,26,27)(1); + +y26 := y27 := y29 := y18 := y22 := h; +y10 := y14 := 0; + +fill z7--z5..z20..z21--z22--z18--z17..z16..z6--z28--z29--z27--z26--z25..z24..z1--z3..z8..z9--z10--z14--z13..z12..z4--z2--z7--cycle; + +pickup pencircle scaled 1.5thinl; + +lft z40 = (ss,2h/3); +lft z41 = (ss,0.4h); +rt z42 = (w-ss,2h/3); +rt z43 = (w-ss,0.4h); + +draw z40--z42; draw z41--z43; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"220",em#+2ss#,cap#,0); "Capital G, slashed vertically"; + +z1=(w-ss-userw-thickstroke/2,h-userh); +z2=z1-(0,thickstroke); +z3=(w-ss-userw,2userh); +z5=(w/2,h+o); +z6=z5-(0,thinstroke); +z7=(w/2,0); +z8=z7+(0,thinstroke); +z9=(ss,h/2); +z10=z9+(curvwid,0); +z4=z3-(thickstroke,0); +z11=(x3,h/2-userh); +z12=z11-(thickstroke,0); + +ulserif(12,15,16,17,18)(1); +urserif(11,19,20,21,22)(1); +ctsideserif(1,23,24,25,26,2)(1); + +path gbody; gbody = +z17--z21--z20..z19..z11--z3..{left}z7{left}..{up}z9{up}..{right}z5{right}..z1; +path ginbody; ginbody = z2..{left}z6{left}..{down}z10{down}..{right}z8{right}..z4--z12..z15..z16--z17; + +fill gbody & topserif & ginbody & cycle; + +pickup pencircle scaled 2thinl; +z30 = (w/2,h+thinl); +z31 = (w/2,0-thinl); +draw z30--z31; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"221",2em#/3+2ss#,cap#,0); "Capital P, slashed horizontally"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3 + thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss,3h/4); +z21 = z20 shifted (-curvwid,0); +z22=(x18,h/2); +z23=z22+(0,thinstroke); +z30=(x4,0); +z26 = z2 shifted (0,-lserh); +z27 = z4 shifted (0,thinstroke); +z24 = 0.5[z26,z27]; +z25 = z24 shifted (0,thinstroke); +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +y11 := y12 := h; +y7 := y8 := y15 := 0; + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6-- + z7--z8--z15--z14..z13..z2--z24..z22..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +pickup pencircle scaled 2thinl; +lft z40 = (ss,h/3); +rt z41 = (w-ss,h/3); +draw z40--z41; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2223,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"243",5em#/6+2ss#,cap#,0); +"The British pound sign, single-slashed"; + +z0 = (2w/3,h+o); +z1 = z0 shifted (0,-1.5thinl); +z2 = (w-ss-hair,4h/5); +z3 = z2 shifted (-1.5thinl,0); +z4 = 0.5[z2,z3] shifted (0,-hair/2); +z5 = (0.5w,4h/5); +z6 = z5 shifted (-thickl,0); +z7 = (w/2+thickl/2,h/7); +z8 = z7 shifted (-thickl,0); +z9 = (x8-thickl,-hair/4); +z10 = z9 shifted (0,thinl); +z12 = (ss,h/7); +z13 = z12 shifted (thickl,0); +z14 = 0.5[z8,z7] shifted (0,-thinl); +z15 = z14 shifted (0,1.3thinl); +z16 = (2w/3,-hair/4); +z17 = z16 shifted (0,1.5thinl); +z18 = (w-ss-hair,userw); +z19 = z18 shifted (0,1.5thinl); +z20 = 0.5[z18,z19] shifted (hair,0); +z30 = (x9,y13+(y10+y13)/2); +z31 = z30 shifted (0,1.5thinl); + +fill +z2{up}..{left}z0{left}..z6..z8..{left}z10{left}..{up}z13{up}..z30..z14..{right}z16{right}..z18..z20..z19{dir +200}..{left}z17{left}..z7..z31..z12..z9..z7..z5..{right}z1{right}..{down}z3..z4..cycle; + +picture britpound; britpound := currentpicture; + +pickup pencircle scaled 2thinl; +lft z21 = (w/5,0.5h); +rt z22 = (4w/5,0.5h); + +draw z21--z22; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"222",5em#/6+2ss#,cap#,0); +"The British pound sign, double-slashed"; + +currentpicture := britpound; +pickup pencircle scaled 1.5thinl; +lft z21 = (w/6,0.4h); +rt z22 = (5w/6,0.4h); +lft z23 = (w/6,0.6h); +rt z24 = (5w/6,0.6h); + +draw z21--z22; +draw z23--z24; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,2223,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"223",5em#/6+2ss#,cap#,0); "Recipe symbol"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z17=((ss+(thickstroke/2)+lserw),h); +z19 = z4 shifted (loopgap,0); +z18 = z19 shifted (0,thinstroke); +z20=(w-ss-thickstroke,3h/4); +z21=z20-(curvwid,0); +z22 = z24 shifted (loopgap,0); +z23 = z22 shifted (0,thinstroke); +z30=(x4,0); +z24=0.5[z30,z17]; x24 := x4; +z25=z24+(0,thinstroke); +z26=(w-thickstroke-lserw/2,0); +z27=z26+(lserw+lserstep,0); +z28=z27+(0,lserstep); +z29=z28-(lserstep,0); +z32=z22+(thickstroke,0); +z31=(1/thickstroke)[z32,z4]; +llserif(1,5,6,7,8)(1); +lrserif(2,13,14,15,16)(1); +ulserif(3,9,10,11,12)(1); + +y11 := y12 := h; +y7 := y8 := y15 := 0; + +fill z18--z17--z12--z11--z10..z9..z3--z1..z5..z6--z7--z8--z15--z14..z13..z2--z24--z22---z26--z27--z28--z29--z32..z20..{left}z18..cycle; +unfill z25{right}..{right}z23..z21..z19{left}..{left}z4--z25--cycle; + +pickup pencircle scaled 1.5thinl; +top rt z40 = (w-ss,h/2); +bot lft z41 = (w/2,0); +draw z40--z41; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); + +endchar; + +beginchar(oct"226",1.2ex#+2ss#,asch#,0); +"Lowercase d, slashed and underlined"; + +z0 = (w-ss-lserwl,h-userhl); +z1 = z0 shifted (-thickl,0); +z2 = (x0,lserhl); +z3 = z2 shifted (-thickl,0); +z12 = z0 shifted (0,userhl); +z13 = z3 shifted (0,-lserhl); +z19 = 0.5[z15,z17]; y19 := ex/2; +z20 = (x2,(ex+o)/2); +z21 = (ss,(ex+o)/2); +z14 = 0.5[z22,z23] shifted (0,ex/2); +z15 = z14 shifted (0,-thinl); +z16 = 0.5[z22,z23] shifted (0,-ex/2-o); +z17 = z16 shifted (0,thinl); +z22 = z21 shifted (curvl,0); +z23 = z20 shifted (-thickl,0); + +ulserif(1,4,5,6,7)(1); +lrserif(2,8,9,10,11)(1); + +fill z1..z4..z5--z6--z12--z2..z8..z9--z10--z13--z1--cycle; +fill +z21{up}..{right}z14{right}..{down}z20{down}..{left}z16{left}..{up}z21..cycle; +unfill +z22{up}..{right}z15{right}..{down}z23{down}..{left}z17{left}..{up}z22..cycle; + +pickup pencircle scaled 1.5thinl; +lft z30 = (w/3,3h/4); +rt z31 = (w-ss,3h/4); +lft z32 = (ss,0-thickl); +rt z33 = (w-ss,0-thickl); +draw z30--z31; draw z32--z33; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"237",1.3em#,cap#,0); "SM"; + +th = 8thickl+2thinl; +z0 = (ss,3th/4); +z1 = (3w/4-ss,3th/4); +z2 = (3w/4-ss,th/4); +z3 = (ss,th/4); +z4 = (6w/16,th+o); +z5 = (6w/16,0-o); +z6 = z1 shifted (-2thickl,0); +z7 = z4 shifted (0,-2thinl); +z8 = z0 shifted (2thickl,0); +z9 = z2 shifted (-2thickl,0); +z10 = z5 shifted (0,2thinl); +z11 = z3 shifted (2thickl,0); +z12 = 0.5[z6,z1] shifted (0,-thickl); +z13 = 0.5[z3,z11] shifted (0,thickl); + +pickup pencircle scaled 2; +path sm; sm = +z1{up}..{left}z4{left}..{down}z0{down}..{down}z9{down}..{left}z10{left}..{up}z11..z13..z3{down}..{right}z5{right}..{up}z2{up}..{up}z8{up}..{right}z7{right}..{down}z6..z12..cycle; + +fill sm scaled 0.5 shifted (ss,h-4thickl-thinl); +fill tradem scaled 0.5 shifted (ss,h-4thickl); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"235",1.5ex#+2ss#,cap#,0); "The Letter e"; + +z0 = (w/2,h+o); +z1 = (w/2,-o); +z2 = (w-ss,h/2); +z3 = (w-ss-hair,h/4); +z4 = (ss,h/2); +z9 = z0 shifted (0,-thinl); +z10 = z4 shifted (curvl,0); +z11 = z1 shifted (0,thinl); +z12 = z3 shifted (0,hair/2); +z13 = z12 shifted (-hair/2,0); +z14 = z2 shifted (-curvl,thinl); +z15 = z10 shifted (0,thinl); + +fill +z2{up}..{left}z0{left}..{down}z4{down}..{right}z1{right}..z3..z12..z13{dir +-120}..{left}z11{left}..{up}z10{up}..z9..{down}z14--z15--z10--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"234",ex#+2ss#,cap#,0); "Simple perbiqua sign"; + +pickup pencircle scaled 1.5thinl; +top rt z0 = (w-ss,h+o); +bot lft z1 = (ss,0-o); +z2 = (ss+dotwid,h-dotwid); +z3 = (w-ss-dotwid,dotwid); + +draw z0--z1; +fill fullcircle scaled 2dotwid shifted z2; +fill fullcircle scaled 2dotwid shifted z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"233",8em#/6+2ss#,cap#,0); "Numero (No) sign"; + +z1 = (ss+userw,h-userh); +z2=z1+(thinstroke,-0.3thickstroke); +z3 = (ss+lserw,lserh); +z4=z3+(thinstroke,0); +z5=(5em/6-userw,h-userh); +z6=z5-(thinstroke,0); +z7=(5em/6-userw,-4o); +z28=z7+(-thinstroke,2.5thickstroke); +z29=z27+(thickstroke/2,0); + +llserif(3,8,9,10,11)(1); +lrserif(4,12,13,14,15)(1); +ulserif(6,16,17,18,19)(1); +urserif(5,20,21,22,23)(1); +ulserif(1,24,25,26,27)(1); + +y26 := y29 := y18 := y22 := y27 := h; +y10 := y14 := 0; + +fill z7--z5..z20..z21--z22--z18--z17..z16..z6--z28--z29--z27--z26--z25..z24..z1--z3..z8..z9--z10--z14--z13..z12..z4--z2--z7--cycle; + +z30 = (w-ss-7em/24,h); +z31 = (x30,h/2-thinl); +z32 = (x30-(y30-y31)/2,h-(y30-y31)/2); +z33 = (x30+(y30-y31)/2,h-(y30-y31)/2); +z34 = z30 shifted (0,-thinl); +z35 = z31 shifted (0,thinl); +z36 = z32 shifted (thickl,0); +z37 = z33 shifted (-thickl,0); +z38 = z31 shifted (0,-thickl); +pickup pencircle scaled 2thinl; +lft z39 = (x32,y38); +rt z40 = (x33,y38); + +fill z30..z33..z31..z32..cycle; +unfill z34..z37..z35..z36..cycle; +draw z39--z40; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"232",3em#/4+2ss#,cap#,0); +"Capital B, slashed vertically"; + +z1 = (ss+lserw,lserh); +z2 = (x1+thickstroke,thinstroke); +z3 = (ss+userw,h-userh); +z4 = (x3+thickstroke,h-thinstroke); +z30=(x4,0); +z40 = z4 shifted (0,thinstroke); +z25 = 0.5[z30,z40] shifted (0,thinstroke); +z32 = z25 shifted (0,-thinstroke); +z24 = 0.5[z25,z32]; +z17=((ss+(thickstroke/2)+lserw),h); +z18=(w/2,h); +z19=(w/2,h-thinstroke); +z20 = (w-ss-2o,3h/4); +z21=z20-(curvwid,0); +z23=z22+(0,thinstroke/2); +z26 = z32 shifted (loopgap,0); +z27 = (w-ss,h/4); +z28=z27-(1.1curvwid,0); +z29=(x18,0); +z31=z29+(0,thinstroke); +z33=z22-(0,thinstroke/2); +z34 = z25 shifted (loopgap,0); +z22 = 0.5[z34,z26]; +llserif(1,5,6,7,8)(1); +ulserif(3,9,10,11,12)(1); + +path stemtoploop; stemtoploop = z33{right}..{up}z20{up}..{left}z18{left}..z40--z11--z10..z9..z3--z1..z5..z6--z7--z29; +path stembotloop; stembotloop = +z30..{right}z29{right}..{up}z27{up}..{left}z34--z33; +path topinncirc; topinncirc = z25{right}..{right}z23..{up}z21{up}..{left}z19{left}..{left}z4--z25..cycle; +path botinncirc; botinncirc = z2..{right}z31{right}..{up}z28{up}..z33{left}..{left}z32--cycle; + +fill stembotloop & stemtoploop..cycle; +unfill topinncirc; +unfill botinncirc; + +pickup pencircle scaled 1.5thinl; +z44 = (3w/5,h+thickl); +z45 = (3w/5,0-thickl); +draw z44--z45; + +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"230",9.8em#/6,cap#,0); "The perquadqua sign"; + +z0 = (0.6zeroh,h); +z1 = z0 shifted (0,-thinl); +z2 = (0.6zeroh,h-zerohh); +z3 = z2 shifted (0,thinl); +z4 = (1.2zeroh,h-zerohh/2); +z5 = z4 shifted (-1.7thinl,0); +z6 = (ss,h-zerohh/2); +z7 = z6 shifted (thinl,0); + +fill z0..z4..z2..z6..cycle; +unfill z1..z5..z3..z7..cycle; + +z10 = (semw+ss-0.6zeroh,zerohh); +z11 = z10 shifted (0,-thinl); +z12 = (semw+ss-0.6zeroh,0); +z13 = z12 shifted (0,thinl); +z14 = (semw,zerohh/2); +z15 = z14 shifted (-1.7thinl,0); +z16 = (semw+ss-1.2zeroh,zerohh/2); +z17 = z16 shifted (thinl,0); + +fill z10..z14..z12..z16..cycle; +unfill z11..z15..z13..z17..cycle; + +z22 = (semw,h); +z23 = z22 shifted (0,-thinl); +z20 = 0.5[z0,z22] shifted (0,-0.25pwid); +z21 = z20 shifted (0,-thinl); +z24 = (ss,-o); +z25 = z24 shifted (0,1.00thinl); +z26 = z24 shifted (0.75thinl,0); +z27 = z23 shifted (-1.8thinl,-hair); + +fill z0..z20..z22--z23--z26..z24..z25--z27..z21..z1--cycle; + +z30 = (w-0.6zeroh,zerohh); +z31 = z30 shifted (0,-thinl); +z32 = (w-0.6zeroh,0); +z33 = z32 shifted (0,thinl); +z34 = (w-ss,zerohh/2); +z35 = z34 shifted (-1.7thinl,0); +z36 = (w-1.2zeroh,zerohh/2); +z37 = z36 shifted (thinl,0); + +fill z30..z34..z32..z36..cycle; +unfill z31..z35..z33..z37..cycle; + +z40 = (w-1.8zeroh,zerohh); +z41 = z40 shifted (0,-thinl); +z42 = (w-1.8zeroh,0); +z43 = z42 shifted (0,thinl); +z44 = (w-1.2zeroh-ss,zerohh/2); +z45 = z44 shifted (-1.7thinl,0); +z46 = (w-2.4zeroh-ss,zerohh/2); +z47 = z46 shifted (thinl,0); + +fill z40..z44..z42..z46..cycle; +unfill z41..z45..z43..z47..cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"240",1.2pwid#,cap#+ss#,dep#); +"The open inverse curly bracket"; + +brackwid = 2thinl; +totalh = h+d; +pickup pencircle xscaled brackwid yscaled (thinl); +top rt z0 = (w-ss,h); +bot rt z1 = (w-ss,-dep); +rt z2 = (w-ss,h-totalh/2); +lft z3 = (ss,h-totalh/4); +lft z4 = (ss,h-3totalh/4); + +path invcurlybrack; +invcurlybrack = z0{left}..{down}z3..{right}z2{left}..z4{down}..{right}z1; +draw invcurlybrack; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,100); +endchar; + +beginchar(oct"241",1.2pwid#,cap#+ss#,dep#); +"The close inverse curly bracket"; +pickup pencircle xscaled brackwid yscaled (thinl); +draw invcurlybrack rotatedaround ((w/2,(h-dep)/2),180); +endchar; + +beginchar(oct"245",5em#/6+2ss#,cap#,0); "The yen symbol"; + +z0 = (w/2-thickstroke/2,h/2); +z1 = (w/2+thickstroke/2,h/2); +z2 = (ss+userw,h-userh); +z3 = z2 shifted (thickstroke,0); +z4 = (w-ss-userw,h-userh); +z5 = z4 shifted (-thinstroke,0); +z6 = (w/2-thickstroke/2,lserh); +z7 = (w/2+thickstroke/2,lserh); +z8 = 0.8[z0,z1] shifted (0,lserh/2); + +lrserif(7,14,15,16,17)(1); +llserif(6,10,11,12,13)(1); +ulserif(2,18,19,20,21)(1); +urserif(3,22,23,24,25)(1); +ulserif(5,26,27,28,29)(1); +urserif(4,30,31,32,33)(1); + +fill +z0--z6..z10..z11--z12--z16--z15..z14..z7--z1--z4..z30..z31--z32--z24--z28--z27..z26..z5--z8--z3..z22..z23--z24--z20--z19..z18..z2--z0--cycle; + +pickup pencircle scaled 1.5thinl; +lft z40 = (ss,h/3); +rt z41 = (w-ss,h/3); +lft z42 = (ss,2h/3); +rt z43 = (w-ss,2h/3); + +draw z40--z41; draw z42--z43; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"246",pwid#,cap#,dep#); "The broken pipe"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +bot z1 = (x0,h-(h+d)/2+thickl); +top z2 = bot z1 shifted (0,-2thickl); +bot z3 = (w/2,-d); + +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"257",em#,cap#,0); "high line"; + +pickup pencircle scaled 1.5thinl; + +top lft z0 = (ss,h); +top rt z1 = (w-ss,h); +draw z0--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"254",em#,ex#,0); "inverted backwards L"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +top rt z1 = (w-ss,h); +rt z2 = (w-ss,h/2); + +draw z0--z1--z2; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"252",3ex#/4+2ss#,cap#,0); "feminine ordinal"; + +ordwid = 1.5ex+2ss; +ordh = 1.5ex; +z0 = (ss,3ordh/4); +z1 = (x3/2,ordh+o); +z2 = (ordwid-ss-lserwl,3ordh/4); +z3 = (x2,lserhl); +z8 = z7 shifted (0,lserhl); +z9 = 0.5[z18,z19]; y9 := 0-o; +z10 = (ss-o,ordh/4); +z15 = z2 shifted (-2thickl,0); +z16 = z1 shifted (0,-2thinl); +z17 = z9 shifted (0,2thinl); +z18 = z10 shifted (2thickl,0); +z19 = z3 shifted (-2thickl,lserhl); +z20 = (ordwid/2-2thickl,ordh/2); +z21 = z20 shifted (thickl,-2thinl); +z22 = 0.2[z15,z19]; +z23 = z19 shifted (-2thinl,0); +z24 = z22 shifted (0,-2thickl/2); +z25 = z16 shifted (thickl,0); + +lrserif(3,4,5,6,7)(1); +drtbulb(0,11,12,13,14); + +path afill; afill = +z13..z12..z11..z0{up}..{right}z1{right}..{down}z2--z3..z4..z5--z6--z7--z8..z9..{up}z10..z20..z22--z15{up}..{left}z16{left}..z13..cycle; +path aunfill; aunfill = z18..z21..z24--z19..z17..cycle; +fill afill scaled 0.5 shifted (ss,cap-0.75ex); +unfill aunfill scaled 0.5 shifted (ss,cap-0.75ex); + +pickup pencircle scaled 1.5thinl; +lft z30 = (ss,h/2-thinl); +rt z31 = (w-ss,h/2-thinl); +draw z30--z31; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"272",3ex#/4+2ss#,cap#,0); "masculine ordinal"; + +z0 = (ordwid/2,ordh+o); +z1 = z0 shifted (0,-2thinl); +z2 = (ordwid-2ss,ordh/2); +z3 = z2 shifted (-2curvl,0); +z4 = (ordwid/2,0-o); +z5 = z4 shifted (0,2thinl); +z6 = (ss,ordh/2); +z7 = z6 shifted (2curvl,0); + +path ofill; ofill = z0..z2..z4..z6..cycle; +path ounfill; ounfill = z1..z3..z5..z7..cycle; + +fill ofill scaled 0.5 shifted (ss,cap-0.75ex); +unfill ounfill scaled 0.5 shifted (ss,cap-0.75ex); + +pickup pencircle scaled 1.5thinl; +lft z30 = (ss,h/2-thinl); +rt z31 = (w-ss,h/2-thinl); +draw z30--z31; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"250",2pwid#,cap#,0); "The diaresis"; + +z0 = (w/4,h-dotwid); +z1 = (3w/4,h-dotwid); + +fill fullcircle scaled 2dotwid shifted z0; +fill fullcircle scaled 2dotwid shifted z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"261",em#,cap#,0); "The plus minus"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h); +bot z1 = (w/2,0); +lft z3 = (ss,h/2); +rt z4 = (w-ss,h/2); +lft z5 = (ss,0); +rt z6 = (w-ss,0); + +draw z0--z1; draw z3--z4; draw z5--z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"270",cap#,cap#,0); "The reference mark"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h); +bot rt z1 = (w-ss,0); +top rt z2 = (w-ss,h); +bot lft z3 = (ss,0); +z4 = (w/2,h/2); +z5 = z4 shifted (0,3h/8-hair); +z6 = z4 shifted (-3w/8+hair,0); +z7 = z4 shifted (0,-3h/8+hair); +z8 = z4 shifted (3w/8-hair,0); + +draw z0--z1; draw z2--z3; +fill fullcircle scaled 3dotwid shifted z5; +fill fullcircle scaled 3dotwid shifted z6; +fill fullcircle scaled 3dotwid shifted z7; +fill fullcircle scaled 3dotwid shifted z8; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"267",pwid#,ex#,0); "The interpunct"; + +z0 = (w/2,h-2dotwid); +fill fullcircle scaled 2dotwid shifted z0; + +penlabels(0); +endchar; + +beginchar(oct"262",0.8ex#+2ss#,cap#,0); "superscript digit 2"; + +z0 = (w/2,ex+o); +z1 = z0 shifted (0,-thinl); +z2 = (ss+o,2ex/3); +z3 = z2 shifted (bulbsh,bulbsh); +z4 = z3 shifted (bulbsh,-bulbsh); +z5 = z4 shifted (-bulbsh,-bulbsh); +z6 = (w-ss-o,2ex/3); +z7 = z6 shifted (-thickl,0); +z8 = (ss,1.5thinl); +z9 = (x8,0); +z10 = (w-ss,0); +z11 = (w-ss,1.5thinl+thinl); +z12 = z11 shifted (-thinl/2,0); +z13 = z12 shifted (0,-thinl); +z14 = z8 shifted (thickl,0); + +path supertwo; supertwo = +z14--z13--z12--z11--z10--z9--z8{dir +30}..{up}z7..{left}z1{left}..{dir +230}z3{right}..{down}z4{down}..{left}z5{left}..{up}z2{up}..{right}z0{right}..z6{down}..{dir +-160}cycle; +fill supertwo shifted (0,h-ex); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"263",0.8ex#+2ss#,cap#,0); "superscript digit 3"; + +threehgt = (ex); +z0 = (w/2,ex/2+o); +z1 = (w/2,0-dep-o); +z2 = (ss,.75threehgt-dep); +z3 = (ss,.25threehgt-dep); +z4 = z0 shifted (0,-thinstroke); +z5 = z1 shifted (0,thinstroke); +z6 = z8 shifted (-curvwid,0); +z7 = z9 shifted (-curvwid,0); +z8 = (w-ss,3threehgt/4-dep); +z9 = (w-ss,threehgt/4-dep); +z10 = (w/2-2thinstroke,threehgt/2+thinstroke-dep); +z11 = z10 shifted (0,-thinstroke); +z20 = z10 shifted (1.5thickstroke,-thinstroke/2); +z21 = z9 shifted (-o/4,0); +z22 = z10 shifted (1.5thickl,0); +z23 = z11 shifted (1.5thickl,0); + +ulftbulb(2,12,13,14,15); +ulftbulb(3,16,17,18,19); + +path supthree; supthree = +z2{up}..{right}z0{right}..{down}z8{down}..z20..{left}z11--z10{right}..z20..{down}z9{down}..{left}z1{left}..{up}z3{up}..{right}z16{right}..{down}z17{down}..{left}z18{dir +-60}..{right}z5{right}..{up}z7{up}..{left}z11--z10{right}..{up}z6{up}..{left}z4{left}..{dir +-120}z12{right}..{down}z13{down}..{left}z14{left}..{up}cycle; + +fill supthree shifted (0,cap-ex/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"264",5pwid#/4,cap#,0); "prime mark"; +fill singquote rotatedaround ((w/2,pwid/2),-30) shifted (0,h-1.75pwid); +endchar; + +beginchar(oct"265",1.2ex#+2ss#,ex#,dep#); "Upright mu"; + +z0 = (ss+userwl,h-userhl); +z1 = z0 shifted (thickl,0); +z2 = (w-ss-lserwl,lserhl); +z3 = z2 shifted (-thickl,0); +z12 = z1 shifted (0,userhl); +z13 = z3 shifted (0,-lserhl); +z14 = (w/2,-o); +z15 = z14 shifted (0,1.5thinl); +z16 = (x0,h/4); +z17 = 0.5[z16,z14] shifted (0,-lserwl); +z18 = z17 shifted (3o,lserhl); +z19 = z16 shifted (thickl,0); +z20 = (w-ss-userwl,h-userhl); +z21 = z20 shifted (-thickl,0); +z22 = (x21,h/4); +z23 = z22 shifted (thickl,0); +z24 = 0.5[z23,z14] shifted (-2o,-lserwl); +z29 = z20 shifted (0,userhl); +z30 = z24 shifted (0,lserhl); +z31 = (x16,-dep+lserhl); +z32 = (x19,-dep+lserhl); + +ulserif(0,4,5,6,7)(1); +lrserif(2,8,9,10,11)(1); +ulserif(21,25,26,27,28)(1); +llserif(31,33,34,35,36)(1); +lrserif(32,37,38,39,40)(1); + +fill +z1--z12--z6--z5..z4..z0--z16{down}..{right}z14{right}..{up}z23--z29--z27--z26..z25..z21--z22{down}..z15..{up}z19--cycle; +fill z13--z10--z9..z8..z2--z23--z22--cycle; +fill z16--z31..z33..z34--z35--z39--z38..z37..z32--z19--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"271",digwid#/2+2ss#,cap#,0); "The digit 1"; + +z0 = (w/2-2thickstroke/2,lserhl); +z1 = z0 shifted (2thickstroke,0); +z10 = (w/2-2thickstroke/2,h-2userh); +z11 = z10 shifted (2thickstroke,0); +z12 = z11 shifted (0,2userh+o); +z13 = z12 shifted (-2thickstroke,0); +z14 = z10 shifted (-lserwl-o,0); +z15 = z14 shifted (0,2thinl); + +llserif(0,2,3,4,5)(1); +lrserif(1,6,7,8,9)(1); + +path supone; supone = +z0..z2..z3--z4--z8--z7..z6..z1--z12--z13{down}..{left}z15--z14--z10--z0--cycle; + +fill supone scaled 0.5 shifted (w/4,h/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"273",ex#+2ss#,cap#,0); "Square root sign"; + +pickup pencircle scaled 1.5thinl; + +penpos0(thinl,-45); +lft z0 = (ss,h/4); +penpos1(thinl,-45); +z1 = (w/4,h/3); +penpos3(1.5thinl,-90); +bot z3 = (3w/4,h+o+thinl); +penpos4(1.5thinl,-90); +z4 = (w-ss,y3); +penpos5(thickl,45); +z5l = z1l; +penpos6(thickl,45); +z6l = (w/2,0-o); +penpos2(1.5thinl,-45); +z2r = z6r; +penpos7(1.5thinl,-45); +z7r = z3r; + +penstroke z0e--z1e; +penstroke z5e--z6e; +penstroke z2e--z7e..z3e--z4e; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +def upsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,2lserw); +z.k=z.j-(lserh,lserw); +enddef; + +def downsideserif(suffix i,j,k) = +z.j=z.i+(ssslant,-2lserw); +z.k=z.j+(-lserh,lserw); +enddef; + +beginchar(oct"277",5em#/6+2ss#,cap#,0); "The Euro sign"; + +z1 = (ss+lserw,lserh); +z2 = z1 shifted (thickstroke,0); +z3 = (ss+lserw,h-lserh); +z4 = (x3+thickstroke,h-thinstroke); +z5=(x4,thinstroke); +z6=(w-ss-ssslant,0); +z30=z6+(-thickstroke,thinstroke); +z8=(x6,h); +z9=(x30,h-thinstroke); +upsideserif(6,7,29); +downsideserif(8,10,11); + +llserif(1,12,13,14,26)(1); +ulserif(3,18,19,20,28)(1); + +y14 := y26 := y6 := 0; +y20 := y28 := y8 := h; + +fill +z1--z3..z18..z19--z20--z8--z10---z11..{left}z9--z4--z5--z30{right}..z29---z7--z6--z14--z13..z12..z1..cycle; + +pickup pencircle scaled 1.5thinstroke; +lft z40 = (ss,0.35h); +lft z41 = (ss,0.6h); +rt z42 = (2w/3,0.35h); +rt z43 = (5w/6,0.6h); +draw z40--z42; draw z41--z43; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"174",ex#+2ss#,ex#,0); "simple heart"; + +pickup pencircle scaled thinl; +z0 = (w/4,h); +z1 = (3w/4,h); +z2 = (w/2,0); +z3 = (w/2,h-ex/3); +path heart; heart = z0..{down}z3{up}..z1..{dir -135}z2{dir 135}..cycle; +filldraw heart; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80); +endchar; + +beginchar(oct"175",ex#+2ss#,ex#,0); "simple heart outline"; +pickup pencircle scaled thinl; +draw heart; +endchar; + +beginchar(oct"303",2.4pwid#,cap#,0); "double prime mark"; +fill singquote rotatedaround ((w/2,pwid/2),-30) shifted (0,h-1.75pwid); +fill singquote rotatedaround ((w/2,pwid/2),-30) shifted + (1.00pwid,h-1.75pwid); +endchar; + +beginchar(oct"313",3.7pwid#,cap#,0); "triple prime mark"; +fill singquote rotatedaround ((w/2,pwid/2),-30) shifted (0,h-2.10pwid); +fill singquote rotatedaround ((w/2,pwid/2),-30) shifted + (1.00pwid,h-2.10pwid); +fill singquote rotatedaround ((w/2,pwid/2),-30) shifted + (2.00pwid,h-2.10pwid); +endchar; + +beginchar(oct"153",1.2ex#+2ss#,cap#,0); "Genealogy: male"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (ex-2ss-1.5thinl) shifted (ex/2,ex/2-2ss); +top z2 = (ex-h/3,h+thickl); +z3 = (z2--(ex/2,0)) intersectionpoint (fullcircle scaled + (ex-2ss-1.5thinl) shifted (ex/2,ex/2-2ss)); +z0 = 0.5[z2,z3] shifted (-ex/3,0); +z1 = 0.5[z2,z3] shifted (ex/3,0); +z20 = (ex/2,ex/2-2ss); + +path arrow; arrow = z0--z2--z3--z2--z1; +draw arrow rotatedaround (z20,-30); + +picture mars; mars := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"145",1ex#+2ss#,cap#,0); "Genealogy: female"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h-w/2+ss); +bot z0 = (w/2,0); +z1 = ((w/2,h-ex/2)--z0) intersectionpoint (fullcircle scaled + (w-2ss-1.5thinl) shifted (w/2,h-w/2+ss)); +z2 = 0.5[z0,z1] shifted (w/4,0); +z3 = 0.5[z0,z1] shifted (-w/4,0); +draw z1--z0; +draw z2--z3; + +picture venus; venus := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"140",theight#+2ss#,theight#,0); "Star of David"; + +z0 = (w/2,h/2); +z1 = (w/2,h+o); +z2 = z1 rotatedaround (z0,60); +z3 = z2 rotatedaround (z0,60); +z4 = z3 rotatedaround (z0,60); +z5 = z4 rotatedaround (z0,60); +z6 = z5 rotatedaround (z0,60); +z7 = (z1--z3) intersectionpoint (z2--z6); +z8 = (z1--z5) intersectionpoint (z2--z6); +z9 = (z6--z4) intersectionpoint (z1--z5); +z10 = (z6--z4) intersectionpoint (z3--z5); +z11 = (z2--z4) intersectionpoint (z3--z5); +z12 = (z2--z4) intersectionpoint (z3--z1); + +pickup pencircle scaled thinl; +draw z1--z3--z5--cycle; +draw z2--z6--z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"150",theight#+2ss#,theight#,0); "Lined five-point star"; + +z0 = (w/2,h/2); +z1 = (w/2,h+o); +z2 = z1 rotatedaround (z0,72); +z3 = z2 rotatedaround (z0,72); +z4 = z3 rotatedaround (z0,72); +z5 = z4 rotatedaround (z0,72); +z6 = (z2--z5) intersectionpoint (z1--z4); +z7 = (z2--z5) intersectionpoint (z1--z3); +z8 = (z3--z5) intersectionpoint (z4--z1); +z9 = (z4--z2) intersectionpoint (z3--z1); +z10 = (z2--z4) intersectionpoint (z3--z5); + +pickup pencircle scaled thinl; +draw z1--z3--z5--z2--z4--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"160",1.2em#+2ss#,em#,0); +"Radiation symbol, no circle"; + +z0 = (w/2,h/2); +z1 = (x0,0); +z2 = z1 rotatedaround (z0,30); +z3 = z1 rotatedaround (z0,-30); +z4 = 0.25[z0,z3]; +z5 = 0.25[z0,z2]; +z6 = 0.25[z0,z1]; +path raddiv; raddiv = z4--z3..z1..z2--z5..z6..cycle; +fill raddiv; +fill raddiv rotatedaround (z0,120); +fill raddiv rotatedaround (z0,-120); +fill fullcircle scaled 2dotwid shifted z0; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"161",1.2em#+2ss#,em#,0); +"Radiation symbol, with circle"; + +z0 = (w/2,h/2); +fill raddiv; +fill raddiv rotatedaround (z0,120); +fill raddiv rotatedaround (z0,-120); +fill fullcircle scaled 2dotwid shifted z0; + +pickup pencircle scaled thinl; +z1 = (w/2,0); +draw fullcircle scaled (h+3thinl) shifted (w/2,h/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"162",1.2em#+2ss#,em#,0); +"Biohazard symbol, no circle"; + +circwid = w/2; +z0 = (w/2,h/2); +z1 = z0 shifted (0,circwid/3); +z2 = z1 rotatedaround (z0,-120); +z3 = z1 rotatedaround (z0,120); +z4 = z1 shifted (0,circwid/6); +z5 = z4 rotatedaround (z0,-120); +z6 = z4 rotatedaround (z0,120); +% main trefoil circles +fill fullcircle scaled circwid shifted z1; +fill fullcircle scaled circwid shifted z2; +fill fullcircle scaled circwid shifted z3; +% smaller circles tangent to larger +unfill fullcircle scaled (2circwid/3) shifted z4; +unfill fullcircle scaled (2circwid/3) shifted z4; +unfill fullcircle scaled (2circwid/3) shifted z4; +unfill fullcircle scaled (2circwid/3) shifted z5; +unfill fullcircle scaled (2circwid/3) shifted z5; +unfill fullcircle scaled (2circwid/3) shifted z5; +unfill fullcircle scaled (2circwid/3) shifted z6; +unfill fullcircle scaled (2circwid/3) shifted z6; +unfill fullcircle scaled (2circwid/3) shifted z6; +% central circle +unfill fullcircle scaled (circwid/6) shifted z0; +unfill fullcircle scaled (circwid/6) shifted z0; +unfill fullcircle scaled (circwid/6) shifted z0; +% the underlying ring +z7 = 2[z5,z0]; +z8 = (z4--z6) intersectionpoint (z5--z7); +pickup pencircle scaled thinl; +draw fullcircle scaled 2(y1-y0) shifted z0; +draw fullcircle scaled 2(y1-y0) shifted z0; +draw fullcircle scaled 2(y1-y0) shifted z0; +% erase the arcs +pickup pencircle scaled (thinl/2); +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z4; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z4; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z5; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z5; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z6; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z6; +z9 = 0.5[z0,z1]; +z10 = 0.5[z0,z3]; +z11 = 0.5[z0,z2]; +undraw z0--z9; undraw z0--z9; undraw z0--z9; +undraw z0--z10; undraw z0--z10; undraw z0--z10; +undraw z0--z11; undraw z0--z11; undraw z0--z11; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"163",1.2em#+2ss#,em#,0); +"Biohazard symbol, with circle"; + +z0 = (w/2,h/2); +z1 = z0 shifted (0,circwid/3); +z2 = z1 rotatedaround (z0,-120); +z3 = z1 rotatedaround (z0,120); +z4 = z1 shifted (0,circwid/6); +z5 = z4 rotatedaround (z0,-120); +z6 = z4 rotatedaround (z0,120); +% main trefoil circles +fill fullcircle scaled circwid shifted z1; +fill fullcircle scaled circwid shifted z2; +fill fullcircle scaled circwid shifted z3; +% smaller circles tangent to larger +unfill fullcircle scaled (2circwid/3) shifted z4; +unfill fullcircle scaled (2circwid/3) shifted z4; +unfill fullcircle scaled (2circwid/3) shifted z4; +unfill fullcircle scaled (2circwid/3) shifted z5; +unfill fullcircle scaled (2circwid/3) shifted z5; +unfill fullcircle scaled (2circwid/3) shifted z5; +unfill fullcircle scaled (2circwid/3) shifted z6; +unfill fullcircle scaled (2circwid/3) shifted z6; +unfill fullcircle scaled (2circwid/3) shifted z6; +% central circle +unfill fullcircle scaled (circwid/6) shifted z0; +unfill fullcircle scaled (circwid/6) shifted z0; +unfill fullcircle scaled (circwid/6) shifted z0; +% the underlying ring +z7 = 2[z5,z0]; +z8 = (z4--z6) intersectionpoint (z5--z7); +pickup pencircle scaled thinl; +draw fullcircle scaled 2(y1-y0) shifted z0; +draw fullcircle scaled 2(y1-y0) shifted z0; +draw fullcircle scaled 2(y1-y0) shifted z0; +% erase the arcs +pickup pencircle scaled (thinl/2); +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z4; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z4; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z5; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z5; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z6; +undraw fullcircle scaled (2circwid/3 - thinl/2) shifted z6; +z9 = 0.5[z0,z1]; +z10 = 0.5[z0,z3]; +z11 = 0.5[z0,z2]; +undraw z0--z9; undraw z0--z9; undraw z0--z9; +undraw z0--z10; undraw z0--z10; undraw z0--z10; +undraw z0--z11; undraw z0--z11; undraw z0--z11; +%surrounding circle +pickup pencircle scaled thinl; +draw fullcircle scaled (w-2ss) shifted (w/2,h/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"164",1.2em#+2ss#,cap#,0); +"General warning sign"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2,h/2); +z1 = (w/2,h); +bot lft z2 = (ss,0); +bot rt z3 = (w-ss,0); +path trisign; trisign = z1---z2---z3---cycle; +draw trisign; + +z6 = (w/2,0); +z4 = 0.6[z0,z1]; +z5 = 0.5[z0,z6]; +z7 = z4 shifted (thinl,-thinl); +z8 = z4 shifted (-thinl,-thinl); +z9 = z5 shifted (thinl/2,thinl/2); +z10 = z5 shifted (-thinl/2,thinl/2); +z11 = 0.4[z5,z6]; + +fill z8..z4..z7---z9..z5..z10---cycle; +fill fullcircle scaled dotwid shifted z11; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"165",1.2ex#+2ss#,cap#,0); +"High voltage warning, no triangle"; + +penpos0(thickl,15); +z0 = (w/2,2h/3); +penpos1(0.9thickl,15); +z1 = (w/2-thinl,h/2); +penpos2(0.9thickl,15); +z2r = (x0r,y1r-thinl/32); +penpos3(0.7thickl,15); +z3l = (x1l,h/3); +penpos4(0.7thickl,15); +z4l = (x3+thinl/2,y3-thinl/4); +penpos5(0.2thinl,15); +z5r = (x3,h/6); + +penstroke z0e--z1e--z2e--z3e--z4e--z5e; +picture lightningbolt; lightningbolt := currentpicture; +currentpicture := nullpicture; +currentpicture := lightningbolt scaled 2 shifted (-w/2+thickl/2,-h/3); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"166",1.2em#+2ss#,cap#,0); +"High voltage warning, with triangle"; + +currentpicture := lightningbolt scaled 1 shifted (w/4-thickl/2,0); +pickup pencircle scaled 1.5thinl; +draw trisign; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"330",1em#+2ss#,cap#,0); +"Astronomy: the sun"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h/2); +fill fullcircle scaled (2dotwid) shifted (w/2,h/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"331",1em#+2ss#,cap#,0); +"Astronomy: the sun with one ray"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/4+ss+1.5thinl,h/4); +draw fullcircle scaled (w/2) shifted z0; +top rt z1 = (w-ss,h); +z2 = (x0,h); +z3 = (w,y0); +z4 = (z0--z2) intersectionpoint (fullcircle scaled (w/2) + shifted z0) shifted (0,1.5thinl/2); +z5 = (z0--z3) intersectionpoint (fullcircle scaled (w/2) + shifted z0) shifted (1.5thinl/2,0); +draw z1--z4; +draw z1--z5; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"332",em#+2ss#,cap#,0); +"Astronomy: waxing crescent"; + +z0 = (w/2,h/2); +path waxcres; waxcres = fullcircle scaled (w-2ss-1.5thinl) shifted z0; +pickup pencircle scaled 1.5thinl; +draw waxcres; +draw waxcres shifted (-w/4,0); +z1 = (waxcres) intersectionpoint (waxcres shifted (-w/4,0)); +z2 = z1 reflectedabout ((0,h/2),(w,h/2)); +unfill (x1,h)--(x1,0)--(-w/2,0)--(-w/2,h)--cycle; + +picture crescent; crescent := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"333",em#+2ss#,cap#,0); +"Astronomy: full moon"; + +pickup pencircle scaled 1.5thinl; +draw waxcres; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"334",em#+2ss#,cap#,0); +"Astronomy: waning crescent"; +currentpicture := crescent reflectedabout ((w/2,h),(w/2,0)); +endchar; + +beginchar(oct"335",em#+2ss#,cap#,0); +"Astronomy: new moon"; + +pickup pencircle scaled 1.5thinl; +filldraw waxcres; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"336",ex#+2ss#,cap#,0); +"Astronomy: Mercury"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted (w/2,h-2w/3+ss); +bot z0 = (w/2,0); +z1 = ((w/2,h-ex/2)--z0) intersectionpoint (fullcircle scaled + (w-2ss-1.5thinl) shifted (w/2,h-2w/3+ss)); +z2 = 0.5[z0,z1] shifted (w/4,0); +z3 = 0.5[z0,z1] shifted (-w/4,0); +draw z1--z0; +draw z2--z3; +z4 = ((w/2,h)--(w/2,h/2)) intersectionpoint (fullcircle + scaled (w-2ss-1.5thinl) shifted (w/2,h-2w/3+ss)); +top lft z5 = (ss,h); +top rt z6 = (w-ss,h); +draw z5..z4..z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"337",em#+2ss#,cap#,0); +"Astronomy: Earth, variant 1"; + +pickup pencircle scaled 1.5thinl; +draw waxcres; +top z0 = (w/2,h); +bot z1 = (w/2,0); +lft z2 = (ss,h/2); +rt z3 = (w-ss,h/2); + +draw z0--z1; draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"340",ex#+2ss#,cap#,0); +"Astronomy: Earth, variant 2"; +currentpicture := venus reflectedabout ((0,h/2),(w,h/2)); +endchar; + +beginchar(oct"341",em#+2ss#,cap#,0); +"Astronomy: Jupiter"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,2h/3); +top z1 = (w/3,h+o); +z2 = (w/2,2h/3); +lft z3 = (ss,w/6); +rt z4 = (w-ss,y3); +bot z5 = (3w/4,0-o); +top z6 = (x5,h+o); + +draw z0{up}..z1..z2..{left}z3--z4; +draw z5--z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"342",1ex#+2ss#,cap#,dep#); +"Astronomy: Saturn"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/4,h+o); +bot z1 = (x0,0-o); +z2 = 0.5[z1,z0]; +z3 = (2w/3,2h/3); +rt z4 = (w-ss,h/2); +z5 = (w/2,0); +z6 = (2w/3,-dep/2); +lft z7 = (ss,5h/6); +z8 = (z0--z2) intersectionpoint (z7--(w,y7)); +z9 = 2[z7,z8]; + +draw z0--z1; +draw z2..z3..z4..z5..z6; +draw z7--z9; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"343",ex#+2ss#,cap#,0); +"Astronomy: Uranus, variant 1"; + +currentpicture := venus reflectedabout ((0,h/2),(w,h/2)); +fill fullcircle scaled 1.5dotwid shifted (w/2,0.3h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"344",em#+2ss#,cap#,0); +"Astronomy: Uranus, variant 2"; + +pickup pencircle scaled 1.5thinl; + +top lft z0 = (ss,h+o); +lft z1 = (ss,h/3); +top rt z2 = (w-ss,h+o); +rt z3 = (w-ss,y1); +z4 = z0 shifted (thickl,0); +z5 = z2 shifted (-thickl,0); +z6 = z1 shifted (thickl,0); +z7 = z3 shifted (-thickl,0); +z8 = 0.5[z4,z6]; +z9 = 0.5[z5,z7]; +top z10 = (w/2,h+o); +z11 = (w/2,0); +draw fullcircle scaled 3dotwid shifted (w/2,2dotwid); +z12 = (z10--z11) intersectionpoint (fullcircle scaled + 3dotwid shifted (w/2,2dotwid)); + +draw z0--z4--z6--z1; +draw z2--z5--z7--z3; +draw z8--z9; +draw z10--z12; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"345",em#+2ss#,cap#,0); +"Astronomy: Neptune"; + +pickup pencircle scaled 1.5thinl; + +top lft z0 = (ss+thickl,h+o); +top rt z1 = (w-ss-thickl,h+o); +lft z2 = z0 shifted (-1.2thickl,-thickl); +rt z3 = z0 shifted (1.2thickl,-thickl); +lft z4 = z1 shifted (-1.2thickl,-thickl); +rt z5 = z1 shifted (1.2thickl,-thickl); +top z6 = (w/2,h+o); +lft z7 = z6 shifted (-1.2thickl,-thickl); +rt z8 = z6 shifted (1.2thickl,-thickl); +bot z9 = (w/2,0-o); +lft z10 = (ss+thickl,h/2); +rt z11 = (w-ss-thickl,y10); +z12 = (w/2,h/3); +z13 = 0.5[z12,z9]; +z14 = z13 shifted (-thickl,0); +z15 = z13 shifted (thickl,0); + +draw z0---z10..z12..z11---z1; +draw z2--z0--z3; draw z7--z6--z8; draw z4--z1--z5; +draw z6--z9; draw z14--z15; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"346",ex#+2ss#,cap#,0); +"Astronomy: Ceres"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,3h/4); +top z1 = (w/2,h+o); +rt z2 = (w-ss,y0); +z3 = (w/2,h-ex); +bot z4 = (w/2,0-o); +z5 = 0.5[z3,z4]; +z6 = z5 shifted (w/4,0); +z7 = z5 shifted (-w/4,0); + +draw z0..z1..z2..z3--z4; +draw z6--z7; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"347",ex#+2ss#,cap#,0); +"Astronomy: Pallas"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h+o); +lft z1 = (ss,h-ex/2); +rt z2 = (w-ss,y1); +z3 = (w/2,h-ex); +bot z4 = (w/2,0-o); +z5 = 0.5[z3,z4]; +z6 = z5 shifted (w/4,0); +z7 = z5 shifted (-w/4,0); + +draw z0--z2--z3--z1--cycle; +draw z3--z4; +draw z6--z7; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"350",ex#+2ss#,cap#,0); +"Astronomy: Juno, variant 1"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2,h-ex/2); +top z1 = (w/2,h+o); +z2 = z1 rotatedaround (z0,45); +z3 = z2 rotatedaround (z0,45); +z4 = z3 rotatedaround (z0,45); +z5 = z4 rotatedaround (z0,45); +z6 = z5 rotatedaround (z0,45); +z7 = z6 rotatedaround (z0,45); +z8 = z7 rotatedaround (z0,45); +bot z9 = (w/2,0-o); +z10 = 0.5[z9,(w/2,h-ex)]; +z11 = z10 shifted (-w/4,0); +z12 = z10 shifted (w/4,0); + +draw z1--z5; draw z8--z4; draw z7--z3; draw z2--z6; +draw z0--z9; draw z11--z12; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"351",ex#+2ss#,cap#,0); +"Astronomy: Juno, variant 2"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (w-2ss-1.5thinl) shifted + (w/2,h-2w/3-ss); +bot z0 = (w/2,0); +z1 = ((w/2,h-ex/2)--z0) intersectionpoint (fullcircle scaled + (w-2ss-1.5thinl) shifted (w/2,h-2w/3-ss)); +z2 = 0.5[z0,z1] shifted (w/4,0); +z3 = 0.5[z0,z1] shifted (-w/4,0); +draw z1--z0; +draw z2--z3; +z4 = ((w/2,h)--(w/2,h/2)) intersectionpoint (fullcircle + scaled (w-2ss-1.5thinl) shifted (w/2,h-2w/3-ss)); +top lft z5 = (ss,h+o); +top rt z6 = (w-ss,h+o); +z7 = (2w/5,h+o); +z8 = (3w/5,h+o); + +draw z4--z5; draw z4--z6; draw z4--z7; draw z4--z8; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"352",em#+2ss#,cap#,0); +"Astronomy: Vesta, variant 1"; + +pickup pencircle scaled 1.5thinl; +bot lft z0 = (ss,0); +bot rt z1 = (w-ss,0); +lft z2 = (ss,h-ex); +rt z3 = (w-ss,h-ex); +draw z0--z1--z3--z2--cycle; +z4 = 0.5[z2,z3]; +top z5 = (w/4,h); +top z6 = (3w/4,h); +z7 = (w/5,h-ex/2); +z8 = (4w/5,y7); +draw z4{up}..{left}z5..z7; +draw z4{up}..{right}z6..z8; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"353",ex#+2ss#,cap#,0); +"Astronomy: Vesta, variant 2"; + +pickup pencircle scaled 1.5thinl; +bot lft z0 = (ss,0); +bot rt z1 = (w-ss,0); +bot lft z2 = (ss+3hair,h/8); +bot rt z3 = (w-ss-3hair,h/8); +z4 = (x2,3h/4); +z5 = (x3,3h/4); +lft z6 = (ss,y4); +rt z7 = (w-ss,y5); +z8 = (w/2,h/2); +draw z0--z1--z3--z2--cycle; +draw z2--z4--z5--z3--cycle; +draw z6--z7; +draw z4--z8; draw z5--z8; +z9 = (w/2,h+o); +z10 = 0.5[z4,z5]; +path ray; ray = z10--z9; +draw ray rotatedaround (z10,18); +draw ray rotatedaround (z10,54); +draw ray rotatedaround (z10,-18); +draw ray rotatedaround (z10,-54); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"354",ex#+2ss#,cap#,0); +"Astronomy: Astraea, variant 1"; + +pickup pencircle scaled 1.5thinl; +top z0 = (w/2,h+o); +lft z1 = (ss+hair,3h/4); +rt z2 = (w-ss-hair,3h/4); +bot z3 = (w/2,0-o); +z4 = z1 shifted (-hair,hair); +z5 = z1 shifted (hair,hair); +z6 = z2 shifted (-hair,hair); +z7 = z2 shifted (hair,hair); +z8 = z3 shifted (-2hair,2hair); +z9 = z3 shifted (2hair,2hair); + +draw z1..z0..z2; +draw z4--z1; draw z5--z1; +draw z6--z2; draw z7--z2; +draw z0--z3; +draw z8--z3; draw z9--z3; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"355",em#+2ss#,cap#,0); +"Astronomy: Astraea, variant 2"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,5h/6); +rt z1 = (w-ss,y0); +top z3 = (w/2,h+o); +z4 = 0.5[z0,z1]; +bot z5 = (w/2,0-o); +lft z6 = (ss,y5); +rt z7 = (w-ss,y5); +z8 = z6 shifted (w/4,0); +z9 = z7 shifted (-w/4,0); +z10 = ((x7+x9)/2,h/2); +z11 = ((x6+x8)/2,h/2); +z12 = (x10,y0); +z13 = (x11,y0); +z14 = z5 shifted (-thinl,0); +z15 = z5 shifted (thinl,0); + +filldraw z7{up}..{dir -225}z10{dir 225}..{down}z9--cycle; +filldraw z8{up}..{dir -225}z11{dir 225}..{down}z6--cycle; +draw z0--z1; draw z3--z5; draw z14--z15; +draw z10--z12; draw z11--z13; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"356",ex#+2ss#,cap#,0); +"Astronomy: Hebe"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +z2 = (w/2,h-ex); +bot z3 = (w/2,0-o); +lft bot z4 = (ss,0-o); +rt bot z5 = (w-ss,0-o); + +draw z4--z5; draw z3--z2; draw z0--z1--z2--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"357",em#+2ss#,ex#,0); +"Astronomy: Iris"; + +pickup pencircle scaled 1.5thinl; +bot lft z0 = (ss,0-o); +bot rt z1 = (w-ss,0-o); +z2 = z0 shifted (thickl,0); +z3 = z1 shifted (-thickl,0); +top z4 = (w/2,h+o); +z5 = z4 shifted (0,-thickl); +draw z0--z1; +draw z0{up}..z4..{down}z1; +draw z2{up}..z5..{down}z3; + +fill fivestar scaled 0.3 shifted (0.37w,0.15h); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"360",em#+2ss#,cap#,0); +"Astronomy: Aries"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,3h/4); +rt z1 = (w-ss,3h/4); +z2 = (w/6,h+o); +z3 = (5w/6,h+o); +z4 = (w/2,h/4); +z5 = (w/2,0-o); +draw z0..z2..{dir -60}z4--z5--z4{dir 60}..z3..z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"361",em#+2ss#,cap#,0); +"Astronomy: Taurus"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled (2w/3) shifted (w/2,w/3); +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +z2 = ((w/2,h)--(w/2,0)) intersectionpoint + (fullcircle scaled (2w/3) shifted (w/2,w/3)); +draw z0{right}..{right}z2{right}..{right}z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"362",em#+2ss#,cap#,0); +"Astronomy: Gemini"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot lft z2 = (ss,0-o); +bot rt z3 = (w-ss,0-o); +z4 = 0.5[z0,z1] shifted (0,-thickl); +z5 = 0.5[z2,z3] shifted (0,thickl); + +path topgemline; topgemline = z0..z4..z1; +path botgemline; botgemline = z2..z5..z3; + +z6 = ((w/3,h)--(w/3,0)) intersectionpoint topgemline; +z7 = ((w/3,h)--(w/3,0)) intersectionpoint botgemline; +z8 = ((2w/3,h)--(2w/3,0)) intersectionpoint topgemline; +z9 = ((2w/3,h)--(2w/3,0)) intersectionpoint botgemline; + +draw topgemline; draw botgemline; +draw z6--z7; draw z8--z9; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"363",em#+2ss#,ex#,0); +"Astronomy: Cancer"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled 3dotwid shifted (2dotwid+ss,h-2.5dotwid); +draw fullcircle scaled 3dotwid shifted (w-2dotwid-ss,2.5dotwid); +z0 = ((2dotwid,h)--(2dotwid,0)) intersectionpoint + (fullcircle scaled 3dotwid shifted (2dotwid+ss,h-2.5dotwid)); +z1 = (halfcircle scaled 3dotwid shifted (w-2dotwid-ss,2.5dotwid) + rotatedaround ((w-2dotwid,2.5dotwid),180)) + intersectionpoint ((w-2dotwid,0)--(w-2dotwid,h)); +top z2 = (w/2,h+o); +bot z3 = (w/2,0-o); +rt z4 = (w-ss,h-thickl); +lft z5 = (ss,thickl); + +draw z0..z2..z4; +draw z1..z3..z5; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"364",0.8em#+2ss#,cap#,dep#); +"Astronomy: Leo"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled 4dotwid shifted (ss+3dotwid,2dotwid); +z0 = (fullcircle scaled 4dotwid shifted (ss+3dotwid,2dotwid)) + intersectionpoint ((w,2dotwid)--(0,2dotwid)); +z1 = (ss+3dotwid,2h/3); +top z2 = (2w/3,h+o); +rt z3 = (w-ss,2h/3); +z4 = (2w/3,-dep/2); +bot z5 = (3w/4,-dep); +rt z6 = (w-ss,-dep/2); + +draw z0{up}..z1..{right}z2{right}..z3..z4..z5..z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"365",0.8em#+2ss#,cap#,dep#); +"Astronomy: Virgo"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (0,h+o); +bot lft z1 = (ss,0); +top z2 = (w/3,h+o); +top z3 = (2w/3-thinl,h+o); +bot z4 = (w/3,0+o); +bot z5 = (2w/3-thinl,0+o); +rt z6 = (w,2h/3); +bot z7 = (5w/6,-d); +z8 = ((x4+x1)/2,-d/2); +z9 = 0.5[z0,z2]; +z10 = 0.5[z2,z3]; +z11 = z0 shifted (ss,-2thickl); +z12 = z2 shifted (0,-2thickl); +z13 = z3 shifted (0,-2thickl); +z14 = 0.5[z13,z5]; + +draw z0--z1; +draw z1--z11{up}..{right}z9{right}..{down}z12--z4; +draw z4--z12{up}..{right}z10{right}..{down}z13---z5..z7; +draw z14..{dir 20}z6{down}..z8; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"367",em#+2ss#,ex#,0); +"Astronomy: Libra"; + +pickup pencircle scaled 1.5thinl; +bot lft z0 = (ss,0); +bot rt z1 = (w-ss,0); +draw z0--z1; +top z2 = (w/2,h+o); +z3 = (2w/5,h/3); +z4 = (3w/5,h/3); +lft z5 = (ss,h/3); +rt z6 = (w-ss,h/3); +draw z5--z3..z2..z4--z6; + + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"370",0.8em#+2ss#,cap#,dep#); +"Astronomy: Scorpius"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (0,h+o); +bot lft z1 = (ss,0); +top z2 = (w/3,h+o); +top z3 = (2w/3-thinl,h+o); +bot z4 = (w/3,0+o); +z5 = (2w/3-thinl,0-thinl); +rt z7 = (w-ss,-d/2); +z9 = 0.5[z0,z2]; +z10 = 0.5[z2,z3]; +z11 = z0 shifted (ss,-2thickl); +z12 = z2 shifted (0,-2thickl); +z13 = z3 shifted (0,-2thickl); +z14 = 0.5[z13,z5]; +z15 = z7 shifted (-thickl,thickl); +z16 = z7 shifted (-thickl,-thickl); + +draw z0--z1; +draw z1--z11{up}..{right}z9{right}..{down}z12--z4; +draw z4--z12{up}..{right}z10{right}..{down}z13--z5; +draw z14---z5{down}..{right}z7; +draw z15--z7; draw z16--z7; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"371",em#+2ss#,cap#,0); +"Astronomy: Sagittarius"; + +pickup pencircle scaled 1.5thinl; + +bot lft z0 = (ss,0-o); +top rt z1 = (w-ss,h+o); +draw z0--z1; +z2 = (w/2,y1); +z3 = (x1,h-w/2); +draw z2--z1; draw z3--z1; +z4 = 0.4[z0,z1]; +z7 = 0.4[z0,z4]; +z5 = z7 rotatedaround (z4,90); +z6 = z7 rotatedaround (z4,-90); +draw z5--z6; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"372",em#+2ss#,cap#,dep#); +"Astronomy: Capricorn"; + +pickup pencircle scaled 1.5thinl; + +top z0 = (ss,h+o); +z1 = (w/3,0); +top z2 = (w/2,h+o); +z3 = (2w/3,0); +z4 = (w/2,-3d/4); +bot z5 = (w/3,-d); +z6 = (x1,h/3); + +draw z0{right}..{down}z6--z1--z6{up}..{dir 45}z2{dir + -45}..{down}z3; +draw z3..z4..z5; +draw fullcircle scaled 3dotwid shifted (w-2dotwid,dotwid); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"373",em#+2ss#,ex#,0); +"Astronomy: Aquarius"; + +pickup pencircle scaled 1.5thinl; +lft z0 = (ss,2h/3); +z1 = (ss+w/4,2h/3+thickl); +z2 = (ss+w/4+w/16,2h/3); +z3 = (ss+2w/4+w/16,2h/3+thickl); +z4 = (ss+2w/4+2w/16,2h/3); +z5 = (ss+3w/4+2w/16,2h/3+thickl); +z6 = (ss+3w/4+3w/16,2h/3); + +path aqr; aqr = z0--z1--z2--z3--z4--z5--z6; +draw aqr; draw aqr shifted (0,-h/3-thickl/2); + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"374",0.8em#+2ss#,cap#,0); +"Astronomy: Pisces"; + +pickup pencircle scaled 1.5thinl; + +top lft z0 = (ss,h+o); +bot lft z1 = (ss,0-o); +top rt z2 = (w-ss,h+o); +bot rt z3 = (w-ss,0-o); +z4 = (w/3,h/2); +z5 = (2w/3,h/2); +lft z6 = (ss,h/2); +rt z7 = (w-ss,h/2); +draw z0..z4..z1; draw z2..z5..z3; draw z6--z7; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"375",ex#+2ss#,cap#,0); +"Astronomy: Pluto"; + +pickup pencircle scaled 1.5thinl; +z0 = (w/2,h/2+1.5thinl); +bot z1 = (w/2,0-o); +z3 = 0.5[z0,z1]; +z4 = z3 shifted (-w/4,0); +z5 = z3 shifted (w/4,0); +draw z0--z1; draw z4--z5; +z8 = 0.5[z0,(w/2,h+o)] shifted (0,1thinl); +lft z6 = (ss,y8); +rt z7 = (w-ss,y8); +draw z6{down}..{right}z0{right}..{up}z7; +draw fullcircle scaled (h/2-thickl-1.5thinl) shifted z8; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"376",ex#+2ss#,cap#,0); +"Astronomy: Pluto, variant"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +bot lft z1 = (ss,0-o); +top z2 = (w/2,h+o); +rt z3 = (w-ss,3h/4); +z4 = 0.5[z1,z0]; +bot rt z5 = (w-ss,0-o); +z6 = (x2,y4); + +draw z0--z1--z5; +draw z0---z2..z3..z6---z4; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"377",em#+2ss#,cap#,0); +"Astronomy: Comet"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled 4dotwid shifted (ss+2.5dotwid,2.5dotwid); +z0 = ((ss,0)--(w-ss,h)) intersectionpoint + (fullcircle scaled 4dotwid shifted (ss+2.5dotwid,2.5dotwid)); +top rt z1 = (w-ss,h+o); +z7 = (ss+2.5dotwid,2.5dotwid); +z2 = z1 rotatedaround (z7,25); +z3 = z1 rotatedaround (z7,-25); +z4 = z0 rotatedaround (z7,60); +z5 = z0 rotatedaround (z7,-60); +z8 = 0.7[z5,z3]; +z9 = 0.7[z4,z2]; +z10 = 0.8[z0,z1]; +draw z0--z10; draw z4--z9; draw z5--z8; +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"310",ex#+2ss#,ex#,0); +"Astronomy: quadrature"; + +pickup pencircle scaled 1.5thinl; +top lft z0 = (ss,h+o); +top rt z1 = (w-ss,h+o); +bot rt z2 = (w-ss,0-o); +bot lft z3 = (ss,0-o); +draw z0--z1--z2--z3--cycle; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"311",em#+2ss#,cap#,0); +"Astronomy: opposition"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled 4dotwid shifted + (2.5dotwid+ss,2.5dotwid); +draw fullcircle scaled 4dotwid shifted + (w-2.5dotwid-ss,h-2.5dotwid); +z0 = (2.5dotwid+ss,2.5dotwid); +z1 = (w-2.5dotwid-ss,h-2.5dotwid); +z2 = (z0--z1) intersectionpoint + (fullcircle scaled 4dotwid shifted + (w-2.5dotwid-ss,h-2.5dotwid)); +z3 = (z1--z0) intersectionpoint + (fullcircle scaled 4dotwid shifted + (2.5dotwid+ss,2.5dotwid)); +draw z2--z3; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"312",em#-2.5dotwidth#+2ss#,ex#,0); +"Astronomy: conjunction"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled 4dotwid shifted + (2.5dotwid+ss,2.5dotwid); +z0 = (2.5dotwid+ss,2.5dotwid); +top rt z1 = (w-ss,h+o); +z2 = (z0--z1) intersectionpoint + (fullcircle scaled 4dotwid shifted + (2.5dotwid+ss,2.5dotwid)); +draw z2--z1; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"315",em#+2ss#,cap#,0); +"Astronomy: ascending node"; + +pickup pencircle scaled 1.5thinl; +draw fullcircle scaled 4dotwid shifted (3dotwid,2dotwid); +draw fullcircle scaled 4dotwid shifted (w-3dotwid,2dotwid); +z0 = ((3dotwid,h)--(3dotwid,0)) intersectionpoint + (fullcircle scaled 4dotwid shifted (3dotwid,2dotwid)); +z1 = ((w-3dotwid,h)--(w-3dotwid,0)) intersectionpoint + (fullcircle scaled 4dotwid shifted (w-3dotwid,2dotwid)); +top z2 = (w/2,h+o); + +draw z0..z2..z1; + +picture astnode; astnode := currentpicture; + +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51); +endchar; + +beginchar(oct"314",em#+2ss#,cap#,0); +"Astronomy: descending node"; +currentpicture := astnode rotatedaround ((w/2,h/2),180); +endchar; diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm10.tfm Binary files differnew file mode 100644 index 00000000000..9ce3b5e2554 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drm10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm100.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm100.tfm Binary files differnew file mode 100644 index 00000000000..4e1b02ce2b8 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drm100.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm11.tfm Binary files differnew file mode 100644 index 00000000000..99e607679ed --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drm11.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm12.tfm Binary files differnew file mode 100644 index 00000000000..a000b7eb8b3 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drm12.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm14.tfm Binary files differnew file mode 100644 index 00000000000..4847b8ac148 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drm14.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm17.tfm Binary files differnew file mode 100644 index 00000000000..06c568a70d1 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drm17.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm24.tfm Binary files differnew file mode 100644 index 00000000000..6680bb6b8b7 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drm24.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm6.tfm Binary files differnew file mode 100644 index 00000000000..61cb6c3c628 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drm6.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm7.tfm Binary files differnew file mode 100644 index 00000000000..01d52e55b0c --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drm7.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm8.tfm Binary files differnew file mode 100644 index 00000000000..d3bc83c6a89 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drm8.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drm9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drm9.tfm Binary files differnew file mode 100644 index 00000000000..6d9512b0e8f --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drm9.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb10.tfm Binary files differnew file mode 100644 index 00000000000..dd7fb3c5155 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmb10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb11.tfm Binary files differnew file mode 100644 index 00000000000..58693eb9456 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmb11.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb12.tfm Binary files differnew file mode 100644 index 00000000000..cd15f721a5b --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmb12.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb14.tfm Binary files differnew file mode 100644 index 00000000000..52f591f800a --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmb14.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb17.tfm Binary files differnew file mode 100644 index 00000000000..86b1df04e1b --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmb17.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb24.tfm Binary files differnew file mode 100644 index 00000000000..cc21c01eb24 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmb24.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb6.tfm Binary files differnew file mode 100644 index 00000000000..f84a2682889 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmb6.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb7.tfm Binary files differnew file mode 100644 index 00000000000..46eda57129c --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmb7.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb8.tfm Binary files differnew file mode 100644 index 00000000000..80b104c19ef --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmb8.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmb9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmb9.tfm Binary files differnew file mode 100644 index 00000000000..9c420f6aa78 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmb9.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbl10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbl10.tfm Binary files differnew file mode 100644 index 00000000000..067a14e84b7 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmbl10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbs10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbs10.tfm Binary files differnew file mode 100644 index 00000000000..694052221fd --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmbs10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx10.tfm Binary files differnew file mode 100644 index 00000000000..ba87a03987c --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmbx10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx11.tfm Binary files differnew file mode 100644 index 00000000000..f2f26e6d538 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmbx11.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx12.tfm Binary files differnew file mode 100644 index 00000000000..f6110cc2c9c --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmbx12.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx14.tfm Binary files differnew file mode 100644 index 00000000000..fb5c56073f3 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmbx14.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx24.tfm Binary files differnew file mode 100644 index 00000000000..66b40e16d8e --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmbx24.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx7.tfm Binary files differnew file mode 100644 index 00000000000..d50aa489a09 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmbx7.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx8.tfm Binary files differnew file mode 100644 index 00000000000..57f82009519 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmbx8.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmbx9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmbx9.tfm Binary files differnew file mode 100644 index 00000000000..bafa8a78c28 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmbx9.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmgrk10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmgrk10.tfm Binary files differnew file mode 100644 index 00000000000..21801f410b5 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmgrk10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit10.tfm Binary files differnew file mode 100644 index 00000000000..5b51daec20d --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmit10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit11.tfm Binary files differnew file mode 100644 index 00000000000..47464021a52 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmit11.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit12.tfm Binary files differnew file mode 100644 index 00000000000..c70c5f6df12 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmit12.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit14.tfm Binary files differnew file mode 100644 index 00000000000..aed50edd1b2 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmit14.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit17.tfm Binary files differnew file mode 100644 index 00000000000..bcce1ca4124 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmit17.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit24.tfm Binary files differnew file mode 100644 index 00000000000..1ec701d8a18 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmit24.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit6.tfm Binary files differnew file mode 100644 index 00000000000..46e01ea6662 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmit6.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit7.tfm Binary files differnew file mode 100644 index 00000000000..4fd2462429d --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmit7.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit8.tfm Binary files differnew file mode 100644 index 00000000000..6414fb39aaf --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmit8.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmit9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmit9.tfm Binary files differnew file mode 100644 index 00000000000..606e3b910cb --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmit9.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml10.tfm Binary files differnew file mode 100644 index 00000000000..65c12265fb7 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drml10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml11.tfm Binary files differnew file mode 100644 index 00000000000..a3730764c1e --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drml11.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml12.tfm Binary files differnew file mode 100644 index 00000000000..869591e8a92 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drml12.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml14.tfm Binary files differnew file mode 100644 index 00000000000..08b4b476f47 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drml14.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml17.tfm Binary files differnew file mode 100644 index 00000000000..a9beb66b261 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drml17.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml24.tfm Binary files differnew file mode 100644 index 00000000000..27e41170483 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drml24.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml6.tfm Binary files differnew file mode 100644 index 00000000000..4d3da307ca5 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drml6.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml7.tfm Binary files differnew file mode 100644 index 00000000000..1e6c2bbf50b --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drml7.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml8.tfm Binary files differnew file mode 100644 index 00000000000..2b126b6bece --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drml8.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drml9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drml9.tfm Binary files differnew file mode 100644 index 00000000000..fcdf277fc44 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drml9.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmmi10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmmi10.tfm Binary files differnew file mode 100644 index 00000000000..c2f791ffdbe --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmmi10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmomx10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmomx10.tfm Binary files differnew file mode 100644 index 00000000000..89b9d056445 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmomx10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmorns.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmorns.tfm Binary files differnew file mode 100644 index 00000000000..1d1fc7025f6 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmorns.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc10.tfm Binary files differnew file mode 100644 index 00000000000..15d8631be56 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsc10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc12.tfm Binary files differnew file mode 100644 index 00000000000..36dce0db30c --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsc12.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc14.tfm Binary files differnew file mode 100644 index 00000000000..6295a192637 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsc14.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc17.tfm Binary files differnew file mode 100644 index 00000000000..cfc0e63a812 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsc17.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc24.tfm Binary files differnew file mode 100644 index 00000000000..44b9aa12783 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsc24.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc6.tfm Binary files differnew file mode 100644 index 00000000000..968e3c6cfd0 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsc6.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc7.tfm Binary files differnew file mode 100644 index 00000000000..877d41b524d --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsc7.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc8.tfm Binary files differnew file mode 100644 index 00000000000..57059402f90 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsc8.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsc9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsc9.tfm Binary files differnew file mode 100644 index 00000000000..ba95ae47700 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsc9.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl10.tfm Binary files differnew file mode 100644 index 00000000000..b4d57537f04 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsl10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl12.tfm Binary files differnew file mode 100644 index 00000000000..4ddfd6076f1 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsl12.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl14.tfm Binary files differnew file mode 100644 index 00000000000..bab2fc47f21 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsl14.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl17.tfm Binary files differnew file mode 100644 index 00000000000..097b89bb930 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsl17.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl6.tfm Binary files differnew file mode 100644 index 00000000000..a79aa77028f --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsl6.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl7.tfm Binary files differnew file mode 100644 index 00000000000..9ef410bc996 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsl7.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl8.tfm Binary files differnew file mode 100644 index 00000000000..fd30fe7ba00 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsl8.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsl9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsl9.tfm Binary files differnew file mode 100644 index 00000000000..097499e0101 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsl9.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsy10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsy10.tfm Binary files differnew file mode 100644 index 00000000000..e2ce777c447 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsy10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsym10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsym10.tfm Binary files differnew file mode 100644 index 00000000000..a69ee98f1eb --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsym10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsym11.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsym11.tfm Binary files differnew file mode 100644 index 00000000000..c13b9868ac9 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsym11.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsym12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsym12.tfm Binary files differnew file mode 100644 index 00000000000..ddeb2e0434e --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsym12.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsym14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsym14.tfm Binary files differnew file mode 100644 index 00000000000..83b1dc458ff --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsym14.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsym17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsym17.tfm Binary files differnew file mode 100644 index 00000000000..bdbb072bc8e --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsym17.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsym24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsym24.tfm Binary files differnew file mode 100644 index 00000000000..64b220e5641 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsym24.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsym6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsym6.tfm Binary files differnew file mode 100644 index 00000000000..6b6c4b5c72b --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsym6.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsym7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsym7.tfm Binary files differnew file mode 100644 index 00000000000..a0cd7b048a9 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsym7.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsym8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsym8.tfm Binary files differnew file mode 100644 index 00000000000..2efd0911386 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsym8.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmsym9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmsym9.tfm Binary files differnew file mode 100644 index 00000000000..700eb16bae9 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmsym9.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc10.tfm Binary files differnew file mode 100644 index 00000000000..d0805206174 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmtc10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc14.tfm Binary files differnew file mode 100644 index 00000000000..ffde0b33295 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmtc14.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc17.tfm Binary files differnew file mode 100644 index 00000000000..7803191d705 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmtc17.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc24.tfm Binary files differnew file mode 100644 index 00000000000..5d43e8336c6 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmtc24.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc7.tfm Binary files differnew file mode 100644 index 00000000000..ea804ff9c53 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmtc7.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtc9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtc9.tfm Binary files differnew file mode 100644 index 00000000000..99503f19ee6 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmtc9.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmtt10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmtt10.tfm Binary files differnew file mode 100644 index 00000000000..78cbdf56eca --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmtt10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui10.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui10.tfm Binary files differnew file mode 100644 index 00000000000..e2338cc32dd --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmui10.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui12.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui12.tfm Binary files differnew file mode 100644 index 00000000000..24b4b1955fe --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmui12.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui14.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui14.tfm Binary files differnew file mode 100644 index 00000000000..d212df4fad0 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmui14.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui17.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui17.tfm Binary files differnew file mode 100644 index 00000000000..bcce1ca4124 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmui17.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui24.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui24.tfm Binary files differnew file mode 100644 index 00000000000..dc125a55c01 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmui24.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui6.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui6.tfm Binary files differnew file mode 100644 index 00000000000..006a76bcff0 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmui6.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui7.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui7.tfm Binary files differnew file mode 100644 index 00000000000..3871c9d115b --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmui7.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui8.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui8.tfm Binary files differnew file mode 100644 index 00000000000..59fa8170d79 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmui8.tfm diff --git a/Master/texmf-dist/fonts/tfm/public/drm/drmui9.tfm b/Master/texmf-dist/fonts/tfm/public/drm/drmui9.tfm Binary files differnew file mode 100644 index 00000000000..2c5996e1b79 --- /dev/null +++ b/Master/texmf-dist/fonts/tfm/public/drm/drmui9.tfm diff --git a/Master/texmf-dist/source/fonts/drm/drm.dtx b/Master/texmf-dist/source/fonts/drm/drm.dtx new file mode 100644 index 00000000000..073c2054ef0 --- /dev/null +++ b/Master/texmf-dist/source/fonts/drm/drm.dtx @@ -0,0 +1,2734 @@ +% \iffalse +% +AMDG This document was begun on 25 May 11EX, the feast +% of St. Mary Magdalen de Pazzi, and it is humbly dedicated +% to her and to the Immaculate Heart of Mary for their +% prayers, and to the Sacred Heart of Jesus for His mercy. +% +% This document is copyright 2014 by Donald P. Goodman, and is +% released publicly under the LaTeX Project Public License. The +% distribution and modification of this work is constrained by the +% conditions of that license. See +% http://www.latex-project.org/lppl.txt +% for the text of the license. This document is released +% under version 1.3 of that license, and this work may be distributed +% or modified under the terms of that license or, at your option, any +% later version. +% +% This work has the LPPL maintenance status 'maintained'. +% +% The Current Maintainer of this work is Donald P. Goodman +% (dgoodmaniii@gmail.com). +% +% This work consists of all files listed in drmfilelist.txt. +% \fi + +% \iffalse +%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01] +%<package>\ProvidesPackage{drm}[2015/01/01 v1.0 support for dozenal fonts] +%<*driver> +\documentclass{ltxdoc} + +\usepackage[absolute]{textpos} +\usepackage{doc} +\usepackage{array} +\usepackage{lettrine} + \setcounter{DefaultLines}{3} + \setlength{\DefaultFindent}{2pt} + \renewcommand{\LettrineFontHook}{\color{red}} +\usepackage{url} +\usepackage{booktabs} +\usepackage{supertabular} +\usepackage{longtable} +\usepackage{fetamont} +\usepackage{spverbatim} +\usepackage[greek,english]{babel} +\languageattribute{greek}{polutoniko} +\usepackage[colorlinks]{hyperref} +\usepackage[]{drm} +\usepackage{makeidx} +\EnableCrossrefs +\PageIndex +\CodelineNumbered +\RecordChanges +\makeindex +\DoNotIndex{\?,\{,\},\|,\DeclareFontFamily,\DeclareFontShape, + \DeclareMathAccent,\DeclareMathAlphabet,\DeclareMathDelimiter, + \DeclareMathSymbol,\DeclareMathVersion,\DeclareSymbolFont,\def, + \drmsym,\encodingdefault,\familydefault,\fontencoding,\fontfamily, + \fontseries,\fontshape,\hfil,\hbox,\mathalpha,\mathclose, + \mathopen,\mathord,\mathversion,\mp,\nabla,\nbshortroman, + \RedefineMRmdclxvij,\relax,\renewcomand,\RequirePackage, + \selectfont,\SetMathAlphabet,\SetSymbolFont,\drmsymbolredef, + \nodefaultfalse,\nodefaultmathfalse,\nodefaultmathtrue,\nodefaulttrue, + \nodefaulttextfalse,\nodefaulttexttrue,\noindent,\numexpr, + \acute,\addtolength\advance,\backslash,\baselineskip, + \char,\counterA,\counterB,\DeclareOption,\ProcessOptions, + \drmmathlets,\symbolsonlytrue,\if,\else,\fi,\ifnum,\fi,\ifdim,\fi, + \symbolsonlyfalse,\fontsize,\newif,\newcount, + \loop,\iter,\let,\renewcommand,\setbox,\setlength,\the,\vss, + \vskip,\vbox,\ifnodefault,\fi,\ifnodefaulttext,\fi, + \ifnodefaultmath,\fi,\ifsymbolsonly,\fi,\newlength, + \counterA,\counterB,\newcount,\r@@t,\z@,\DeclareMathRadical, + \DeclareRobustCommand,\bBigg@,\@ifnextchar,\@sqrt} + +\begin{document} +\DocInput{drm.dtx} +\end{document} +%</driver> +% \fi +% +% \title{The \texttt{drm} Font Package, v1.0} +% \author{Donald P.\ Goodman III} +% \date{\today} +% +% \maketitle +% \begin{abstract} +% The |drm| package provides access to the DRM (Don's +% Revised Modern) family of fonts, which includes a variety +% of optical sizes in Roman, italic, and small caps, along +% with a set of symbols and ornaments. It is intended to be +% a full-body text font, but its larger sizes can also be +% used for simple display purposes, and its significant body +% of symbols can stand on its own. It comes complete with +% textual (``old-style'') and lining figures, and even has +% \emph{small-caps figures}. It also comes with +% extensible decorative rules to be used with ornaments from +% itself or other fonts, along with an extremely flexible +% ellipsis package. A set of decorative initials is planned. +% \end{abstract} +% +% \tableofcontents +% +% \section{Introduction} +% \label{sect:intro} +% +% \lettrine{A}{fter some time} of involvement with \TeX\ and \LaTeX\, +% your author finally bothered to go read \textit{The \TeX +% book} and \textit{The \MF book}. This latter closes, +% of course, with Donald E.\ Knuth's famous exhortation to +% ``\textsc{Go forth} now and create \textsl{masterpieces of +% digital typography!''} This call to arms stirred a longing to actually +% do so in my soul. +% +% I had some experience with the \MF\ language through +% my work with \MP, so I thought I might try my hand at +% it. I started in fits and stops some years ago, and only +% a few months ago took up the cause again in earnest. I +% found that, as Knuth also warned, +% +% \begin{quote}\textsc{Warning}: Type design can be +% hazardous to your other interests. Once you get hooked, +% you will develop intense feelings about letterforms; the +% medium will intrude on the messages that you read. And +% you will perpetually be thinking of improvements to the +% fonts that you see everywhere, especially those of your +% own design.\end{quote} +% +% Truer words were never spoken. +% +% This document is typeset in accordance with the +% \textsc{docstrip} utility for automatically extracting +% package code and documentation. +% +% \section{License(s)} +% +% \lettrine{T}{he \TeX\ and \LaTeX\ code} in this package is +% licensed under the \LaTeX\ Project Public License v1.3c, +% the details of which can be found in Appendix \ref{lppl} +% on page \pageref{lppl}. It's a legal document, and bears +% all the concomitant complications of such. The basic +% import is that you can use and distribute these files as +% you will, provided only that you do not restrict their use +% by their recipients; and that you can even modify them as +% you will, provided that if you distribute your +% modifications, you do so under a different name. +% +% The fonts themselves are licensed under the SIL Open Font +% License, v1.1, the details of which can be found in +% Appendix \ref{sil} on page \pageref{sil}. It's a less +% complex legal document, but a legal document all the same. +% The basic import is that you can't sell the fonts all by +% themselves (why anyone would pay for them anyway is beyond +% me, but there it is); you can distribute original or +% modified versions of the fonts otherwise however you wish, +% as long as you keep the copyright notice and license with +% it; and if you distribute a modified version, that you do +% so under a different name; that you not use the name of +% the font designer to promote a modified version; and that +% any modified versions of the fonts must be kept under the +% same license. +% +% Finally, the software I used to build things, which is +% very simple and mostly uninteresting stuff, is also made +% available, under the GNU General Public License v3. This +% is sufficiently well-known that it's not duplicated in +% this document; but the text is, of course, included in +% the distribution. +% +% That said, I'm pretty easy-going about this sort of thing; +% so if for some reason the above terms don't suit you, feel +% free to contact me and see if we can work something else +% out. But honestly, the terms of these licenses are +% more than fair, and it's hard for me to see a reason to +% depart from them. +% +% \section{Usage} +% \label{sect:usage} +% +% \subsection{Basic Usage} +% \label{sub:basicusage} +% +% Using the DRM fonts is beyond easy; just include the +% following in your preamble: +% +% \begin{quote} +% |\usepackage{drm}| +% \end{quote} +% +% And you're done! This makes the DRM fonts the default for +% your document, and defines appropriate commands for using +% them. I've made every effort to make using DRM as +% unsurprising as possible, so the commands you'd use to +% change sizes, styles, shapes, and so forth should all work +% as expected. That said, there are some unusual shapes and +% options available, and these are explained below. +% +% You do \emph{not} need to load |textcomp|; all those +% symbols and more are available from |drm|. +% +% \subsection{Package Options} +% \label{sub:packopt} +% +% DRM doesn't offer too many options, because too many +% aren't really needed; but it does allow some control over +% what defaults it resets. +% +% \begin{description} +% \item[nodefault] \DescribeMacro{nodefault}The |nodefault| +% option means that |drm| will not change any of the +% defaults of the document; that is, loading |drm| with the +% |nodefault| option should have no effect whatsoever on the +% appearance of your document. The fonts are defined, +% though, so you can use them if you decide you want to. +% Symbols will \emph{not} be redefined. +% \item[nodefaulttext] \DescribeMacro{nodefaulttext}The +% |nodefaulttext| option means that text fonts are +% \emph{not} redefined but math fonts \emph{are}. Symbols +% will \emph{not} be redefined. +% \item[nodefaultmath] \DescribeMacro{nodefaultmath}The +% |nodefaultmath| option means that text fonts \emph{are} +% redefined but math fonts are \emph{not}. Symbols +% \emph{will} be redefined. +% \item[symbolsonly] \DescribeMacro{symbolsonly}The +% |symbolsonly| option defines all the commands for the +% symbols (note that this may overwrite some command names, +% like |\textcopyright|; if you need these undefined, load +% |textcomp| \emph{after} |drm|). +% \end{description} +% +% The default is that none of these are selected; that is, +% the default is that both text and math fonts, along with +% symbols, are redefined to be DRM. Commands which are +% font-independent, like |\tulipframe| and |\extrule|, are +% always defined when the package is loaded. Also, the +% fonts themselves are always defined, so they can be +% accessed directly even if they are not the default. +% +% Note that even if symbols are not redefined, they are +% still available directly through the +% \DescribeMacro{\drmsym}|\drmsym| command. +% This command takes one argument, typically a |\char| +% directive, which will be the decimal, octal (if preceded +% by |'|), or hexadecimal (if preceded by |"|) position of +% the desired symbol in the font. E.g.: +% +% \hbox to\linewidth{% +% \hfil|\drmsym{\char'117}|\hfil|\drmsym{\char"4F}|\hfil% +% |\drmsym{\char79}|\hfil} +% +% \noindent yields +% +% \hbox to\linewidth{% +% \hfil\drmsym{\char'117}\hfil\drmsym{\char"4F}\hfil% +% \drmsym{\char79}\hfil} +% +% \subsection{Interaction with Other Packages} +% \label{sub:interpack} +% +% As far as your author has been able to tell, |drm| has no +% adverse reactions with any other packages. A few notes +% are probably appropriate, however. +% +% \DescribeMacro{textcomp}You do \emph{not} have to load +% |textcomp| when you're loading |drm|; |drm| defines all +% the symbols in |textcomp|, and then some, allowing access +% to them with the same commands. This is the |drmsym| +% font, which is encoded, like the |textcomp| font, as TS1. +% If you're not loading the symbols, though (e.g., you've +% loaded |drm| with options |nodefault| or |nodefaulttext|), +% you may still want to load |textcomp|. +% +% \DescribeMacro{lettrine}The |lettrine| package is used to +% typeset large dropped capitals at the beginning of +% paragraphs; it's an extraordinarily flexible and +% well-designed package. |drm| works just fine with it; +% however, the proportions of the letters make a small +% tweak advisable. If you'll be using lettrines larger than +% two lines high, the following will be helpful: +% +% \hbox to\linewidth{\hfil|\setlength{\DefaultFindent}{2pt}|\hfil} +% +% \noindent This will prevent your text from bumping into +% your lettrine. +% +% \subsection{Further Work Needed} +% \label{sub:further} +% +% While I'm quite happy with DRM right now, there are a few +% notable places where it needs some additional work. +% +% \begin{description} +% \item[Kerning] The kerning is sometimes suboptimal. +% There really isn't much else to say about this. For +% most of the fonts, the kerning is reasonably good (at +% least, in my opinion), but for upright italic, boldface, +% and occasionally small and titling caps, I do still find +% lacun\ae\ in my handling of certain kerning pairs. +% \item[Internal Code] While the code is parameterized +% enough that, for example, boldfacing was a relatively +% simple process, it could use some improvement in this. +% Also, some code was repeated that would surely be better +% off included in macros, especially the placing of accents. +% \item[Decorative Initials] I love, love, \emph{love} +% decorative initials, and want DRM to have them. But +% writing them is a \emph{lot} of work. I decided I wanted +% the fonts as they stand done before I get to work on +% those; but it's still further work that needs to happen. +% \item[More Ornaments] I'm pretty happy with what +% ornaments I've designed for DRM, but it needs more of +% them. A full, 8-bit ornamental font is in the works (the +% decorative initials will likely be A--Z in this font), but +% designing these is a similarly large amount of work, so +% it's still on the burners. +% \item[Greek Fonts] DRM badly needs real Greek fonts. +% After I did the math fonts, Greek fonts seemed like a +% short step; but now I really need to add italic and +% boldface versions, and optically size the upright ones. +% \end{description} +% +% In addition to these specific needs, font metrics may +% still change, though only slightly, and shapes are subject +% to tweaking here and there. But even now, the DRM fonts +% are usable, reasonably complete, and (in my view, at +% least) attractive. +% +% \section{About the DRM Fonts} +% +% So I've been plumbing the depths of alphabet design, and +% having a great time doing it. The result is what you see +% before you, the DRM fonts. +% +% \subsection{About the Fonts} +% +% They're not \textit{modern}, per se, but they do have +% modern characteristics, most especially the distinction +% between thick and thin strokes and the vertical +% orientation. They have a number of old-style +% characteristics, as well, though, like the aforementioned +% ``Q'' tail, the relatively prominent serifs, and the +% slight but still present brackets. +% +% Overall, they're fairly dark fonts on average, as well as +% fairly wide. To my eye, this makes them ideal for reading +% long passages. +% +% They have some unusual features. For example, they have not +% only the standard run of f-ligatures (fi, fl, ff, ffi, +% ffl), but also some unusual f-ligatures (ft, fj), as well +% as a non-f-ligature (Th). Some larger-size examples of +% the ligatures can be found in Table \ref{table:ligs}. DRM +% also contains some unusual shapes, such as \textui{upright +% italic} and \texttc{titling caps}\index{titling caps}. +% +% \begin{table} +% \begin{center}\setlength{\extrarowheight}{9pt} +% \begin{tabular}{>{\Large}c>{\Large\itshape}c +% >{\Large}c>{\Large\itshape}c +% >{\Large}c>{\Large\itshape}c} +% \toprule +% Roman & Italic & Roman & Italic & Roman & Italic \\ +% \midrule +% fi & fi & ff & ff & fl & fl \\ +% fj & fj & ffi & ffi & ffl & ffl \\ +% ft & ft & Th & Th & {} & {} \\ +% \bottomrule +% \end{tabular} +% \caption{Ligatures in the DRM fonts.} +% \label{table:ligs} +% \end{center} +% \end{table} +% +% \subsection{Font Families} +% +% DRM contains a full set of the normal font families you'd +% expect: roman, bold, italic, small caps, and so forth. +% But it also contains some shapes that are rather unusual, +% as well as a wide variety of sizes, forms, and weights +% capable of filling most needs. +% +% \subsubsection{Optical Sizing} +% +% The advent of digital fonts made many typographers lazy. +% Previously, of course, a printer could only print fonts in +% sizes that he had; each size had to be separately cut and +% designed. Digital fonts seemed to relieve this problem; +% now we can simply scale up or down, and only design a +% single size! Experience has shown, however, that this +% produces suboptimal results, as Table \ref{tab:optsize} +% demonstrates. +% +% \begin{table}[htbp] +% \hbox to\linewidth{% +% \hfil% +% \Large Fourteen point font is different% +% \hfil% +% }% +% \hbox to\linewidth{% +% \hfil% +% \font\scalio=drm7 at14pt\scalio from scaled seven point font.% +% \hfil% +% }% +% \caption{Scaling and Optical Sizing Compared} +% \label{tab:optsize} +% \end{table} +% +% The human eye, as it turns out, does not perceive the +% world, least of all letterforms, as geometrically scaled +% versions of larger or smaller shapes. For example, at +% small point sizes the eye tends to run adjacent strokes +% together, so proportionally wider letters and increased +% letterspacing are appropriate in smaller sizes but not in +% larger. For another example, strokes often overlap the +% technical top or bottom lines because a curved line will +% appear to be lower than a straight line at the same +% height. This effect diminishes at larger sizes; so this +% overshoot might be zero at double pica (twenty-four +% point), still significant at pica (twelve-point), and +% quite large at six-point. If we merely scaled the six +% point to get our twenty-four point, this overshoot would +% make the curved strokes look comically larger than the +% straight ones; if we did the opposite, then our curved +% letters would seem noticeably shorter than our straight +% ones. +% +% The only real solution to this is to use \emph{optical +% sizes}; that is, have a reasonable set of sizes which are +% designed for use at that particular size. \LaTeX\ +% (largely transparently to the user, thanks to the magic of +% NFSS) will then select the closest optical size and scale +% as necessary from that. This minimizes the effects of +% scaling on the appearance of the font, and gives vastly +% superior results. +% +% \begin{table}[htbp] +% \begin{center}\footnotesize +% \begin{tabular}{lp{0.2\textwidth}p{0.2\textwidth}p{0.2\textwidth}} +% \toprule +% Point & \multicolumn{2}{c}{Traditional Name} & +% DRM \\ +% {} & American & British & {} \\ +% \midrule +% 3 & Excelsior & Minikin & |\excelsior|, |\minikin| \\ +% 4 & Brilliant & {} & |\brilliant| \\ +% 4.5 & Diamond & {} & |\diamond| \\ +% 5 & Pearl & {} & |\pearl| \\ +% 5.5 & Agate & Ruby & |\agate|, |\ruby| \\ +% 6 & Nonpareille & {} & |\nonpareille| \\ +% 6.5 & Minionette & Emerald & |\minionette|, |\emerald| \\ +% 7 & Minion & {} & |\minion| \\ +% 8 & Brevier, Petit, small text & {} & |\brevier|, +% |\petit|, |\smalltext| \\ +% 9 & Bourgeois; Galliard & {} & |\bourgeois|, +% |\galliard| \\ +% 10 & Long Primer; Corpus; Garamond & {} & +% |\longprimer|, |\corpus|, |\garamond| \\ +% 11 & Small Pica; Philosophy & {} & |\smallpica|, +% |\philosophy| \\ +% 12 & Pica & {} & |\pica| \\ +% 14 & English; Mittel; Augustin & {} & |\english|, +% |\mittel|, |\augustin| \\ +% 16 & Columbian & Two-line Brevier & |\columbian|, +% |\twolinebrevier| \\ +% 18 & Great Primer & {} & |\greatprimer| \\ +% 20 & Paragon & {} & |\paragon| \\ +% 21 & Double Small Pica & {} & |\doublesmallpica| \\ +% 22 & Double Small Pica & Double Pica & +% |\doublesmallpicaus|, |\doublepicabrit| \\ +% 24 & Double Pica & Two-line Pica & |\doublepica|, +% |\twolinepica| \\ +% 28 & Double English & Two-line English & |\doubleenglish|, +% |\twolineenglish| \\ +% 30 & Five-line Nonpareil & {} & |\fivelinenonpareil| \\ +% 32 & Four-line Brevier & {} & |\fourlinebrevier| \\ +% 36 & Double Great Primer & Two-line Great Primer & +% |\doublegreatprimer|, |\twolinegreatprimer| \\ +% 44 & Meridian & Two-line Double Pica; Trafalgar & +% |\meridian|, |\twolinedoublepica|, |\trafalgar| \\ +% 48 & Canon; Four-line & {} & |\canon|, |\fourline| \\ +% 60 & Five-line Pica & {} & |\fivelinepica| \\ +% 72 & Inch & {} & |\inch| \\ +% \bottomrule +% \end{tabular} +% \caption{Traditional size names, both American and +% British, with their corresponding point sizes and DRM +% command names.} +% \label{tab:fontsizes} +% \end{center} +% \end{table} +% +% DRM offers a reasonable selection of optical sizes, at 6-, +% 7-, 8-, 9-, 10-, 11-, 12-, 14-, 17-, and 24-point sizes in +% roman, italic, slanted, small caps, titling +% caps\index{titling caps}, and upright italic. This +% variety should be sufficient for the vast majority of +% needs. +% +% However, traditional printing has developed a vast array +% of standard sizes, with the quaint, colorful names that +% always go with traditional crafts. Setting text in +% Brevier Roman or Long Primer Italic means something very +% specific. \LaTeX\ only offers a few default font +% size commands (e.g., |\small|, |\normalsize|, etc.), and +% DRM leaves those unchanged, as users expect specific +% things to happen when they issue those commands. However, +% DRM does offer those traditional size names as commands, +% as well, giving quite a bit more breadth in font size +% choice than the default before one must resort to explicit +% |\fontsize| commands. Table \ref{tab:fontsizes} on page +% \pageref{tab:fontsizes} lists these commands by name; where +% there is a name unique to British typesetting that differs +% from the American name, both are offered as equivalents. +% +% \subsubsection{Small Caps} +% +% In the first place, it's important to have what +% typographers call ``real'' small caps, not ``faked'' small +% caps. There is a real and noticeable difference between +% the two. Real small caps are designed for a particular +% size; the stroke widths match, the spacing is appropriate, +% and so forth. Faked small caps are produced merely by +% scaling down normal capital letters for a given size, +% which produces inferior results. The two types are +% compared in Table \ref{tab:smallcaps}. +% +% \begin{table}[htbp] +% \hbox to\linewidth{\hfil% +% \LARGE\textsc{These are real small caps.} +% \hfil}% +% \vskip2em% +% \hbox to\linewidth{\hfil% +% \LARGE{T\large HESE ARE FAKED SMALL CAPS.} +% \hfil}% +% \caption{Real and faked small caps compared.} +% \label{tab:smallcaps} +% \end{table} +% +% Plainly, the results of real small caps are far superior, +% and faked ones should only be employed when the +% typographer has no small caps available, and possibly +% not even then. +% +% \index{small caps}\index{small caps>petite small caps} +% \index{small caps>and titling caps, difference between} +% \index{titling caps>and small caps, difference between} +% DRM has, of course, a full set of real small cap fonts, +% which are appropriately scaled. But DRM goes even further +% than this, offering both \emph{small caps} and +% \emph{petite small caps}. +% \index{petite small caps>small caps} +% \index{petite small caps>and titling caps} DRM, though, considers petite +% small caps to be the normal type, and therefore refers to +% these as \emph{small caps} and \emph{titling +% caps}.\index{titling caps}\index{small caps>titling caps} The +% distinction between these two probably bears some +% explanation. +% +% In Anglo-American typography small caps are +% typically a bit larger than the ex-height; in other +% countries, they are typically equal to the +% ex-height.\footnote{These are sometimes called +% \textit{petite small caps} among Anglo-American +% typographers.} I see advantages in both approaches. +% So-called ``petite'' small caps look great in running text +% but seem rather squashed in titles and headings; larger +% small caps look better in titles and headings (they +% maintain the gravity of all-caps without the impression of +% shouting, a rather common impression here in the Internet +% age) but are simply too large to blend well with normal +% lowercase text. So DRM offers both; \textsc{normal small +% caps}, accessed via the normal \LaTeX\ |\textsc| and +% |\scshape| commands, are ``petite'' small caps; +% Anglo-American large small caps are available as +% \texttc{titling small caps}, via the commands +% |\texttc|\DescribeMacro{\texttc}\ and +% |\tcshape|\DescribeMacro{\tcshape}. (These stand, +% transparently enough, for ``titling caps.'') An example +% of the difference, which may give further ideas for the +% appropriate uses for each, is in Table +% \ref{table:littlecaps}. +% +% \begin{table} +% \begin{center} +% \begin{tabular}{>{\centering\arraybackslash}p{0.48\textwidth} +% >{\centering\arraybackslash}p{0.48\textwidth}} +% \LARGE\texttc{The Adventures of Robinson Crusoe} & +% \LARGE\textsc{The Adventures of Robinson Crusoe} \\ +% \texttc{Titling Caps} & +% \textsc{Small Caps} \\ +% \end{tabular} +% \caption{Small caps and titling caps compared.} +% \label{table:littlecaps} +% \end{center} +% \end{table} +% +% \subsubsection{Slanted, Italic, and Upright Italic} +% +% DRM also offers the usual \emph{italic} type, typically +% used for titles of certain types of works, emphasis, and +% similar functions; and the \textsl{slanted} type, which is +% usually simply a poor-man's italic in fonts which don't +% have a real italic, but occasionally does find its uses in +% full-featured fonts. +% +% Often, non-typographers think that italic type is simply +% normal type slanted a little to the right, but that's not +% really the case. A comparison is given in Table +% \ref{tab:slantedtypes}. +% +% \begin{table}[htbp] +% \hbox to\linewidth{\hfil% +% \Large\textsl{This is slanted text.} +% \hfil}% +% \vskip2em% +% \hbox to\linewidth{\hfil% +% \Large\textit{This is italic text.} +% \hfil}% +% \caption{Slanted and italic text compared.} +% \label{tab:slantedtypes} +% \end{table} +% +% As Table \ref{tab:slantedtypes} shows, true italic is much +% more than simply slanted roman. Many of the letterforms +% are quite different; the two-story ``a'' becomes a +% one-story ``\textit{a},'' the straight ``k'' becomes a +% curved or (in DRM's case) looped ``\textit{k},'' the +% double-looped ``g'' becomes a single-looped +% ``\textit{g},'' and so forth. +% +% So DRM offers true italic, often with some very ornate +% and, in the author's opinion, beautiful letterforms. The +% ``\textit{Q}'' and ``\textit{J}'' and particular favorites +% of his, but the somewhat unusual looped ``\textit{k}'' and +% curled ``\textit{h},'' along with some other shapes like +% ``\textit{2}'' and ``\textit{3},'' are also interestingly +% different from most other fonts, as well as visually +% striking in their own right. +% +% DRM also offers \textui{upright italic}, a face with the +% italic letterforms but not slanted at all. Some fonts +% have offered this as a difficult-to-access novelty, but as +% far the author knows DRM is the only one to offer it as a +% first-class citizen, accessed in the same way and just as +% easily as the more usual slanted italic shape. It is +% accessed via the commands |\textui|\DescribeMacro{\textui}\ and +% |\uishape|\DescribeMacro{\uishape}. This shape is not +% commonly used in running text; it remains to be seen +% whether this is due to its being not useful, or simply to +% its being rarely easily available. +% +% Your author can see certain uses for it; for example, when +% some font distinction is needed but no connotation of +% emphasis is desired, as in book titles. In any case, DRM +% makes it easy to use in the event that it is wanted. +% +% \subsubsection{Weights} +% \label{subsub:weights} +% +% \textit{Weight} is the typographical term for what most +% folks call \emph{boldface} type; however, the dimension +% can go much deeper than that. Fonts can be +% \textl{lighter than surrounding text} as well as +% \textbf{heavier}, and heavier weights can often be +% \textbf{extended in width as well as heavier in weight}, +% or simply \textb{heavier in weight without increasing its +% width}. +% +% Some fonts take this to arguably absurd extremes, offering +% up to a dozen weights. I've never seen much sense in +% this, and consequently haven't gone to these lengths. +% Instead, DRM offers three weights: \textl{light}, normal, +% and \textb{bold}. As noted, bold fonts are often wider +% than medium weights, and are referred to as \emph{bold +% extended}; DRM has a \textbf{bold extended}, as well. +% Lighter fonts are sometimes narrower, or \emph{condensed}; +% \textl{DRM's light weight is not condensed, but rather +% normal width}. +% +% Light is achieved by |\textl|\DescribeMacro{\textl}\ and +% |\lseries|\DescribeMacro{\lseries}; boldface by +% |\textb|\DescribeMacro{\textb}\ and +% |\bseries|\DescribeMacro{\bseries}; bold extended by +% |\textbf|\DescribeMacro{\textbf}\ and +% |\bfseries|\DescribeMacro{\bfseries}. Table +% \ref{tab:weights} shows the differences between these +% weights in twelve-point size. +% +% \begin{table}[htbp]\setlength{\extrarowheight}{8pt} +% \begin{tabular}{>{\large}c>{\large}p{0.7\linewidth}} +% |\lseries| & \textl{This sentence shows one of DRM's +% weights.} \\ +% |\mdseries| & \textmd{This sentence shows one of DRM's +% weights.} \\ +% |\bseries| & \textb{This sentence shows one of DRM's +% weights.} \\ +% |\bfseries| & \textbf{This sentence shows one of DRM's +% weights.} \\ +% \end{tabular} +% \caption{DRM's font weights compared.} +% \label{tab:weights} +% \end{table} +% +% One will probably note that bold extended is actually +% bolder than normal bold (that is, |\bfseries| is bolder +% than |\bseries|). This is because the extra space means +% that it can be. This is probably not the way it should +% be; but I think that people expect at least that much +% boldness when selecting |\bfseries|, so I decided to make +% it that way. +% +% DRM does \emph{not} offer a bold italic or a bold small +% caps; this is because both italics and small caps are +% already meant to serve for emphasis, and bolding your +% already emphasized text is really a bad idea. Bold +% italic is a particularly egregious typographical crime. +% +% \subsection{Figures (Digits) (Numbers)} +% \label{sub:figures} +% +% Typographers typically call them ``figures''; +% mathematicians tend to prefer ``digits''; most folks +% simply call them ``numbers.'' Whatever we call them, +% there is a surprisingly large variety of ways to write +% them. +% +% There are, at the very least, five separate kinds of +% figures: textual, lining, tabular textual, tabular +% lining, and small caps. This last is for some reason +% rather rare, and strictly speaking there could be tabular +% and non-tabular versions of them, as well, but I've never +% encountered them. +% +% \emph{Textual figures}, also called \emph{old-style +% figures}, \emph{lowercase figures}, or even +% \emph{medi\ae val figures}, are the ones that look sort +% of\drmelip well, old-styled and lowercase. They are +% centered on the ex-height, like lowercase letters, and +% some have ascenders, some descenders, and some neither, +% like lowercase letters. They blend in with running text +% very well, whereas lining figures (which we'll get to in a +% moment) tend to stick out because they are all quite +% tall and often come in groups. Most commonly, ``0,'' +% ``1,'' and ``2'' have neither ascenders nor descenders; +% ``6'' and ``8'' have ascenders, and ``3,'' ``4,'' ``5,'' +% ``7,'' and ``9'' have descenders; DRM follows this typical +% scheme in its roman types. However, other systems have +% existed, particularly in France, where some famous fonts +% had an ascending rather than descending 3. DRM has a +% non-typical set in its italic fonts, with a descending 3 +% but an ascending 2: \textit{0, 1, 2, 3, +% 4, 5, 6, 7, 8, 9}. +% +% Textual figures are the default in DRM in the roman and +% italic fonts. +% +% \emph{Lining figures}, also called \emph{titling figures} +% or \emph{modern figures}, line up at the baseline and all +% have a common height, typically something close to the +% height of capital letters or the ascenders of lowercase +% letters. They look like this: \liningnums{0123456789}. +% They're great when one wishes to draw extra attention to +% the figures, and practically mandatory when figures are +% being used with all caps; however, they throw off the +% color of the page and don't blend well with other running +% text. In DRM, we get lining figures by using the +% \DescribeMacro{\liningnums}|\liningnums| command, which +% takes a single argument; namely, the number to be typeset +% in lining figures. Each individual number can be accessed +% by command, as well, of the form |\liningzero|, +% |\liningone|, and so forth. +% +% Both of these types of figures can be \emph{tabular} or +% not. This means, as a practical matter, +% \emph{monospaced}; that is, with tabular figures each +% digit takes up an identical horizontal space. This is +% great for lining up numbers in columns, but produces +% rather bad spacing when used in running text. +% +% In DRM, the default textual (old-style) figures \emph{are +% not} tabular, while the lining figures \emph{are} tabular. +% It is possible to have tabular textual figures and +% proportional lining figures, but I've never seen much +% sense in either, as it seems that they defeat the purposes +% of their own particular form. +% +% DRM also has \emph{small-cap figures}, a relative rarity +% in the typographical world. These are simply figures +% which match the style of the small caps fonts. Neither +% textual nor lining figures work well with small caps; +% lining figure are too tall, and textual figures' ascenders +% and descenders don't fit with the relatively straight +% lines of small caps text. So DRM has proportional +% (non-tabular), but short figures for small caps: +% +% \begin{center} +% \scshape\Huge Small caps 0123 figures. +% \end{center} +% +% Otherwise, it would like one of the following: +% +% \begin{center} +% \Huge\scshape Small caps \liningnums{0123} figures. \\ +% Small caps \textup{0123} figures. +% \end{center} +% +% Neither of which looks very good. There are similar +% digits for titling caps. These are, of course, the +% defaults when using small or titling caps; if you need +% lining figures, you can still use |\liningnums|, and if +% you need textual figures, typeset them in normal roman +% text. +% +% \subsection{Symbols and Ornaments} +% \label{sub:symbols} +% +% One of DRM's strengths is its wide variety of symbols +% contained by default; rather than having to import +% separate fonts, or define macros to assemble common +% symbols out of their component parts, we can often simply +% use the symbols contained in DRM. +% +% Starting with the staples of traditional typography like +% the numero \DescribeMacro{\textnumero}(\textnumero) and +% the reference mark % +% \DescribeMacro{\textrefmark}(\textrefmark) to +% near-obsolete typesetting symbols like the asterism +% \DescribeMacro{\textasterism}(\textasterism) to more +% unique symbols like the international sign for radiation +% hazards \DescribeMacro{\textradiation}(\textradiation), +% DRM has something for most needs. +% +% \begin{center} +% \begin{longtable}{>{\Large}cp{0.4\textwidth}>{\raggedright\let\newline\\\arraybackslash}p{0.3\textwidth}} +% \toprule +% \multicolumn{3}{c}{Symbols of the DRM Font} \\ +% \midrule +% \multicolumn{3}{c}{\itshape Religious Symbols} \\ +% \midrule +% \textcrusadecross & |\textcrusadecross|\SpecialIndex{\textcrusadecross} & ``Crusader'' cross \\ +% \textcrusadecrossoutline & |\textcrusadecrossoutline|\SpecialIndex{\textcrusadecrossoutline} & +% ``Crusader'' cross in outline \\ +% \textlatincross & |\textlatincross|\SpecialIndex{\textlatincross} & Latin cross \\ +% \textlatincrossoutline & |\textlatincrossoutline|\SpecialIndex{\textlatincrossoutline} & Latin +% cross in outline \\ +% \textgreekcross & |\textgreekcross|\SpecialIndex{\textgreekcross} & Greek cross \\ +% \textgreekcrossoutline & |\textgreekcrossoutline|\SpecialIndex{\textgreekcrossoutline} & Greek +% cross in outline \\ +% \textsaltirecross & |\textsaltirecross|\SpecialIndex{\textsaltirecross} & Saltire cross; +% cross of St.\ Andrew \\ +% \textsaltirecrossoutline & |\textsaltirecrossoutline|\SpecialIndex{\textsaltirecrossoutline} & +% Saltire cross, cross of St.\ Andrew in outline \\ +% \texteucharist & |\texteucharist|\SpecialIndex{\texteucharist} & Traditional +% representation of the Eucharist; chalice with Host and rays +% \\ +% \textstardavid & |\textstardavid|\SpecialIndex{\textstardavid} & Traditional Star of +% David \\ +% \textstardavidsolid & |\textstardavidsolid|\SpecialIndex{\textstardavidsolid} & Traditional +% Star of David, solid \\ +% \textstardavidoutline & |\textstardavidoutline|\SpecialIndex{\textstardavidoutline} & +% Traditional Star of David in outline \\ +% \midrule +% \multicolumn{3}{c}{\itshape Genealogical Symbols} \\ +% \midrule +% \textborn & |\textborn|\SpecialIndex{\textborn} & Symbol for born \\ +% \textdied & |\textdied|\SpecialIndex{\textdied} & Symbol for died \\ +% \textdivorced & |\textdivorced|\SpecialIndex{\textdivorced} & Symbol for divorced \\ +% \textmarried & |\textmarried|\SpecialIndex{\textmarried} & Symbol for married \\ +% \textleaf & |\textleaf|\SpecialIndex{\textleaf} & Leaf symbol \\ +% \textmale & |\textmale|\SpecialIndex{\textmale} & Symbol for male \\ +% \textfemale & |\textfemale|\SpecialIndex{\textfemale} & Symbol for female \\ +% \midrule +% \multicolumn{3}{c}{\itshape Intellectual Property Symbols} \\ +% \midrule +% \textregistered & |\textregistered|\SpecialIndex{\textregistered} & Registered mark \\ +% \texttrademark & |\texttrademark|\SpecialIndex{\texttrademark} & Trademark sign \\ +% \textservicemark & |\textservicemark|\SpecialIndex{\textservicemark} & Service mark sign \\ +% \textsoundrecording & |\textsoundrecording|\SpecialIndex{\textsoundrecording} & Sound +% recording sign \\ +% \textcopyright & |\textcopyright|\SpecialIndex{\textcopyright} & Copyright mark \\ +% \textcopyleft & |\textcopyleft|\SpecialIndex{\textcopyleft} & Copyleft mark \\ +% \midrule +% \multicolumn{3}{c}{\itshape Astronomical Symbols} \\ +% \midrule +% \textsun & |\textsun|\SpecialIndex{\textsun} & Sun, Sol \\ +% \textsunvar & |\textsunvar|\SpecialIndex{\textsunvar} & Variant Sun or Sol; with ray \\ +% \textwaxcrescent & |\textwaxcrescent|\SpecialIndex{\textwaxcrescent} & Waxing crescent moon \\ +% \textfullmoon & |\textfullmoon|\SpecialIndex{\textfullmoon} & Full moon \\ +% \textwanecrescent & |\textwanecrescent|\SpecialIndex{\textwanecrescent} & Waning crescent moon \\ +% \textnewmoon & |\textnewmoon|\SpecialIndex{\textnewmoon} & New moon \\ +% \textmercury & |\textmercury|\SpecialIndex{\textmercury} & Mercury; Hermes \\ +% \textearth & |\textearth|\SpecialIndex{\textearth}, |\textterra|\SpecialIndex{\textterra} & Earth, Terra \\ +% \textearthvar & |\textearthvar|\SpecialIndex{\textearthvar},|\textterravar|\SpecialIndex{\textterravar} & Variant +% Earth, Terra \\ +% \textmars & |\textmars|\SpecialIndex{\textmars} & Mars, Ares \\ +% \textvenus & |\textvenus|\SpecialIndex{\textvenus} & Venus, Aphrodite \\ +% \textjupiter & |\textjupiter|\SpecialIndex{\textjupiter} & Jupiter, Jove, Zeus \\ +% \textsaturn & |\textsaturn|\SpecialIndex{\textsaturn} & Saturn \\ +% \texturanus & |\texturanus|\SpecialIndex{\texturanus} & Uranus \\ +% \texturanusvar & |\texturanusvar|\SpecialIndex{\texturanusvar} & Variant Uranus \\ +% \textneptune & |\textneptune|\SpecialIndex{\textneptune} & Neptune, Poseidon \\ +% \textpluto & |\textpluto|\SpecialIndex{\textpluto} & Pluto \\ +% \textplutovar & |\textplutovar|\SpecialIndex{\textplutovar} & Variant Pluto \\ +% \textceres & |\textceres|\SpecialIndex{\textceres} & Ceres \\ +% \textpallas & |\textpallas|\SpecialIndex{\textpallas} & Pallas \\ +% \textjuno & |\textjuno|\SpecialIndex{\textjuno} & Juno, Hera \\ +% \textjunovar & |\textjunovar|\SpecialIndex{\textjunovar} & Variant Juno, Hera \\ +% \textvesta & |\textvesta|\SpecialIndex{\textvesta} & Vesta \\ +% \textvestavar & |\textvestavar|\SpecialIndex{\textvestavar} & Variant Vesta \\ +% \textastraea & |\textastraea|\SpecialIndex{\textastraea} & Astr\ae a \\ +% \textastraeavar & |\textastraeavar|\SpecialIndex{\textastraeavar} & Variant Astr\ae a \\ +% \texthebe & |\texthebe|\SpecialIndex{\texthebe} & Hebe \\ +% \textiris & |\textiris|\SpecialIndex{\textiris} & Iris \\ +% \textaries & |\textaries|\SpecialIndex{\textaries}, |\textari|\SpecialIndex{\textari} & Aries \\ +% \texttaurus & |\texttaurus|\SpecialIndex{\texttaurus}, |\texttau|\SpecialIndex{\texttau} & Taurus \\ +% \textgemini & |\textgemini|\SpecialIndex{\textgemini}, |\textgem|\SpecialIndex{\textgem} & Gemini \\ +% \textcancer & |\textcancer|\SpecialIndex{\textcancer}, |\textcnc|\SpecialIndex{\textcnc} & Cancer \\ +% \textleo & |\textleo|\SpecialIndex{\textleo} & Leo \\ +% \textvirgo & |\textvirgo|\SpecialIndex{\textvirgo}, |\textvir|\SpecialIndex{\textvir} & Virgo \\ +% \textlibra & |\textlibra|\SpecialIndex{\textlibra}, |\textlib|\SpecialIndex{\textlib} & Libra \\ +% \textscorpius & |\textscorpius|\SpecialIndex{\textscorpius}, |\textsco|\SpecialIndex{\textsco} & Scorpius \\ +% \textsagittarius & |\textsagittarius|\SpecialIndex{\textsagittarius}, |\textsgr|\SpecialIndex{\textsgr} & Sagittarius \\ +% \textcapricorn & |\textcapricorn|\SpecialIndex{\textcapricorn}, |\textcap|\SpecialIndex{\textcap} & Capricorn \\ +% \textaquarius & |\textaquarius|\SpecialIndex{\textaquarius}, |\textaqr|\SpecialIndex{\textaqr} & Aquarius \\ +% \textpisces & |\textpisces|\SpecialIndex{\textpisces}, |\textpsc|\SpecialIndex{\textpsc} & Pisces \\ +% \textstar & |\textstar|\SpecialIndex{\textstar} & Star \\ +% \textcomet & |\textcomet|\SpecialIndex{\textcomet} & Comet \\ +% \textquadrature & |\textquadrature|\SpecialIndex{\textquadrature} & Quadrature \\ +% \textopposition & |\textopposition|\SpecialIndex{\textopposition} & Opposition \\ +% \textconjunction & |\textconjunction|\SpecialIndex{\textconjunction} & Conjunction \\ +% \textascendingnode & |\textascendingnode|\SpecialIndex{\textascendingnode} & Ascending node \\ +% \textdescendingnode & |\textdescendingnode|\SpecialIndex{\textdescendingnode} & Descending node \\ +% \midrule +% \multicolumn{3}{c}{\itshape Currency Symbols} \\ +% \midrule +% \textdollarsign & |\textdollarsign|\SpecialIndex{\textdollarsign} & Dollar sign \\ +% \textolddollarsign & |\textolddollarsign|\SpecialIndex{\textolddollarsign} & Old-style dollar +% sign; double-slashed dollar sign \\ +% \textcentsign & |\textcentsign|\SpecialIndex{\textcentsign} & Cent sign \\ +% \textoldcentsign & |\textoldcentsign|\SpecialIndex{\textoldcentsign} & Old-style cent sign; +% diagonally slashed cent sign \\ +% \textpoundsterling & |\textpoundsterling|\SpecialIndex{\textpoundsterling} & British pound +% sterling sign \\ +% \textoldpoundsterling & |\textoldpoundsterling|\SpecialIndex{\textoldpoundsterling}, |\textlira|\SpecialIndex{\textlira} & Old-style +% British pound sterling sign; double-slashed British pound +% sterling sign; Italian lira sign \\ +% \texteuro & |\texteuro|\SpecialIndex{\texteuro} & Euro sign \\ +% \textyen & |\textyen|\SpecialIndex{\textyen} & Japanese yen sign \\ +% \textbaht & |\textbaht|\SpecialIndex{\textbaht} & Thai baht sign \\ +% \textcolon & |\textcolon|\SpecialIndex{\textcolon} & Costa Rican, Salvadoran colon sign \\ +% \textdong & |\textdong|\SpecialIndex{\textdong} & Vietnamese dong sign \\ +% \textflorin & |\textflorin|\SpecialIndex{\textflorin} & Florin sign \\ +% \textguarani & |\textguarani|\SpecialIndex{\textguarani} & Uruguayan guarani sign \\ +% \textnaira & |\textnaira|\SpecialIndex{\textnaira} & Nigerian naira sign \\ +% \textpeso & |\textpeso|\SpecialIndex{\textpeso}, |\textruble|\SpecialIndex{\textruble} & Mexican peso sign; Russian ruble +% sign \\ +% \textwon & |\textwon|\SpecialIndex{\textwon} & Won sign \\ +% \textcurrency & |\textcurrency|\SpecialIndex{\textcurrency} & Generic currency \\ +% \midrule +% \multicolumn{3}{c}{\itshape Roman Numerals} \\ +% \midrule +% \romone & |\romone|\SpecialIndex{\romone} & Roman numeral one \\ +% \romfive & |\romfive|\SpecialIndex{\romfive} & Roman numeral five \\ +% \romten & |\romten|\SpecialIndex{\romten} & Roman numeral ten \\ +% \romfifty & |\romfifty|\SpecialIndex{\romfifty} & Roman numeral fifty \\ +% \romhundred & |\romhundred|\SpecialIndex{\romhundred} & Roman numeral hundred \\ +% \romfivehundred & |\romfivehundred|\SpecialIndex{\romfivehundred} & Roman numeral hundred \\ +% \romthousand & |\romthousand|\SpecialIndex{\romthousand} & Roman numeral thousand \\ +% \romanize{1651} & |\romanize{1668}| & Convert Indo-arabic +% numeral to Roman numerals \\ +% \midrule +% \multicolumn{3}{c}{\itshape Lining Numerals} \\ +% \midrule +% \liningzero & |\liningzero|\SpecialIndex{\liningzero} & Lining numeral 0 \\ +% \liningone & |\liningone|\SpecialIndex{\liningone} & Lining numeral 1 \\ +% \liningtwo & |\liningtwo|\SpecialIndex{\liningtwo} & Lining numeral 2 \\ +% \liningthree & |\liningthree|\SpecialIndex{\liningthree} & Lining numeral 3 \\ +% \liningfour & |\liningfour|\SpecialIndex{\liningfour} & Lining numeral 4 \\ +% \liningfive & |\liningfive|\SpecialIndex{\liningfive} & Lining numeral 5 \\ +% \liningsix & |\liningsix|\SpecialIndex{\liningsix} & Lining numeral 6 \\ +% \liningseven & |\liningseven|\SpecialIndex{\liningseven} & Lining numeral 7 \\ +% \liningeight & |\liningeight|\SpecialIndex{\liningeight} & Lining numeral 8 \\ +% \liningnine & |\liningnine|\SpecialIndex{\liningnine} & Lining numeral 9 \\ +% \liningnums{3091} & |\liningnums{3091}| & Convert figures +% into lining figures \\ +% \midrule +% \multicolumn{3}{c}{\itshape Traditional and Innovative Typography} \\ +% \midrule +% \textnumero & |\textnumero|\SpecialIndex{\textnumero} & Numero \\ +% \textrefmark & |\textrefmark|\SpecialIndex{\textrefmark} & Reference mark \\ +% \textasterism & |\textasterism|\SpecialIndex{\textasterism} & Asterism \\ +% \textfeminineordinal & |\textfeminineordinal|\SpecialIndex{\textfeminineordinal} & Feminine +% Ordinal \\ +% \textmasculineordinal & |\textmasculineordinal|\SpecialIndex{\textmasculineordinal} & Masculine +% Ordinal \\ +% \textsupone & |\textsupone|\SpecialIndex{\textsupone} & Superscript 1; superior +% digit 1 \\ +% \textsuptwo & |\textsuptwo|\SpecialIndex{\textsuptwo} & Superscript 2; superior +% digit 2 \\ +% \textsupthree & |\textsupthree|\SpecialIndex{\textsupthree} & Superscript 3; superior +% digit 3\\ +% \textpilcrowsolid & |\textpilcrowsolid|\SpecialIndex{\textpilcrowsolid} & Solid-lined +% pilcrow \\ +% \textpilcrowoutline & |\textpilcrowoutline|\SpecialIndex{\textpilcrowoutline} & Outlined +% pilcrow \\ +% \textsection & |\textsection|\SpecialIndex{\textsection} & Section mark \\ +% \textdagger & |\textdagger|\SpecialIndex{\textdagger}, |\textdag|\SpecialIndex{\textdag}, |\dag|\SpecialIndex{\dag} & Dagger \\ +% \textdbldagger & |\textdbldagger|\SpecialIndex{\textdbldagger}, |\textdbldag|\SpecialIndex{\textdbldag}, |\dbldag|\SpecialIndex{\dbldag} & +% Double dagger \\ +% \textpipe & |\textpipe|\SpecialIndex{\textpipe} & Pipe \\ +% \textbrokenpipe & |\textbrokenpipe|\SpecialIndex{\textbrokenpipe} & Broken pipe \\ +% \textrecipe & |\textrecipe|\SpecialIndex{\textrecipe} & Recipe mark \\ +% \textintbang & |\textintbang|\SpecialIndex{\textintbang} & Interrobang \\ +% \textopenintbang & |\textopenintbang|\SpecialIndex{\textopenintbang} & Opening interrobang \\ +% \midrule +% \multicolumn{3}{c}{\itshape Text-mode Math Symbols} \\ +% \midrule +% \textprime & |\textprime|\SpecialIndex{\textprime} & Single prime mark \\ +% \textdoubleprime & |\textdoubleprime|\SpecialIndex{\textdoubleprime} & Double prime mark \\ +% \texttripleprime & |\texttripleprime|\SpecialIndex{\texttripleprime} & Triple prime mark \\ +% \textsqrt & |\textsqrt|\SpecialIndex{\textsqrt} & Square root sign; radical \\ +% \textquarter & |\textquarter|\SpecialIndex{\textquarter} & One-quarter fraction, +% slanted \\ +% \texthalf & |\texthalf|\SpecialIndex{\texthalf} & One-half fraction, slanted \\ +% \textthreequarters & |\textthreequarters|\SpecialIndex{\textthreequarters} & Three-quarters +% fraction, slanted \\ +% \textthird & |\textthird|\SpecialIndex{\textthird} & One-third fraction, slanted \\ +% \texttwothirds & |\texttwothirds|\SpecialIndex{\texttwothirds} & Two-thirds fraction, +% slanted \\ +% \textperbiqua & |\textperbiqua|\SpecialIndex{\textperbiqua}, |\textpermille|\SpecialIndex{\textpermille} & Perbiqua, +% permille, per thousand \\ +% \textpertriqua & |\textpertriqua|\SpecialIndex{\textpertriqua}, |\textpertenmille|\SpecialIndex{\textpertenmille} & +% Pertriqua, per ten thousand \\ +% \textequals & |\textequals|\SpecialIndex{\textequals} & Equals sign \\ +% \textslash & |\textslash|\SpecialIndex{\textslash} & Forward slash \\ +% \texttimes & |\texttimes|\SpecialIndex{\texttimes} & Multiplication; times \\ +% \textdiv & |\textdiv|\SpecialIndex{\textdiv} & Division sign \\ +% \textuparrow & |\textuparrow|\SpecialIndex{\textuparrow} & Upward-pointing arrow \\ +% \textdownarrow & |\textdownarrow|\SpecialIndex{\textdownarrow} & Downward-pointing arrow \\ +% \textleftarrow & |\textleftarrow|\SpecialIndex{\textleftarrow} & Left-pointing arrow \\ +% \textrightarrow & |\textrightarrow|\SpecialIndex{\textrightarrow} & Right-pointing arrow \\ +% \midrule +% \multicolumn{3}{c}{\itshape Warning Signs} \\ +% \midrule +% \textradiation & |\textradiation|\SpecialIndex{\textradiation} & Radiation warning sign \\ +% \textradiationnocircle & |\textradiationnocircle|\SpecialIndex{\textradiationnocircle} & +% Radiation warning sign, no enclosing circle \\ +% \textbiohazard & |\textbiohazard|\SpecialIndex{\textbiohazard} & Biohazard warning sign \\ +% \textbiohazardnocircle & |\textbiohazardnocircle|\SpecialIndex{\textbiohazardnocircle} & +% Biohazard warning sign, no enclosing circle \\ +% \texthighvoltage & |\texthighvoltage|\SpecialIndex{\texthighvoltage} & High voltage warning +% sign \\ +% \texthighvoltagenotriangle & |\texthighvoltagenotriangle|\SpecialIndex{\texthighvoltagenotriangle} & +% High voltage warning sign, no enclosing triangle \\ +% \textgeneralwarning & |\textgeneralwarning|\SpecialIndex{\textgeneralwarning} & General +% warning sign \\ +% \midrule +% \multicolumn{3}{c}{\itshape Bullets and Other Marks} \\ +% \midrule +% \textbullet & |\textbullet|\SpecialIndex{\textbullet} & Solid circular bullet \\ +% \textopenbullet & |\textopenbullet|\SpecialIndex{\textopenbullet} & Open circular bullet \\ +% \textheart & |\textheart|\SpecialIndex{\textheart} & Solid heart \\ +% \textopenheart & |\textopenheart|\SpecialIndex{\textopenheart} & Open heart \\ +% \texteighthnote & |\texteighthnote|\SpecialIndex{\texteighthnote} & Eighth note \\ +% \textdiamond & |\textdiamond|\SpecialIndex{\textdiamond} & Solid diamond; solid lozenge \\ +% \textopendiamond & |\textopendiamond|\SpecialIndex{\textopendiamond}, |\textlozenge|\SpecialIndex{\textlozenge} & Open +% diamond; open lozenge \\ +% \textdegree & |\textdegree|\SpecialIndex{\textdegree} & Degree symbol \\ +% \textdegreec & |\textdegreec|\SpecialIndex{\textdegreec} & Degrees Celsius \\ +% \texttilde & |\texttilde|\SpecialIndex{\texttilde}, |\tilde|\SpecialIndex{\tilde} & Tilde \\ +% \midrule +% \multicolumn{3}{c}{\itshape Ornaments and Fleurons} \\ +% \midrule +% \textrightupfleuron & |\textrightupfleuron|\SpecialIndex{\textrightupfleuron} & +% Rightward-pointing, upward fleuron \\ +% \textrightdownfleuron & |\textrightdownfleuron|\SpecialIndex{\textrightdownfleuron} & +% Rightward-pointing, downward fleuron \\ +% \textleftupfleuron & |\textleftupfleuron|\SpecialIndex{\textleftupfleuron} & +% Leftward-pointing, upward fleuron \\ +% \textleftdownfleuron & |\textleftdownfleuron|\SpecialIndex{\textleftdownfleuron} & +% Leftward-pointing, downward fleuron \\ +% \textupleftfleuron & |\textupleftfleuron|\SpecialIndex{\textupleftfleuron} & +% Upward-pointing, leftward fleuron \\ +% \textuprightfleuron & |\textuprightfleuron|\SpecialIndex{\textuprightfleuron} & +% Upward-pointing, rightward fleuron \\ +% \textdownrightfleuron & |\textdownrightfleuron|\SpecialIndex{\textdownrightfleuron} & +% Downward-pointing, rightward fleuron \\ +% \textdownleftfleuron & |\textdownleftfleuron|\SpecialIndex{\textdownleftfleuron} & +% Downward-pointing, leftward fleuron \\ +% \textsquaretulip & |\textsquaretulip|\SpecialIndex{\textsquaretulip} & +% Square of four tulips, facing up and down \\ +% \textsquaretulipside & +% |\textsquaretulipside|\SpecialIndex{\textsquaretulipside} & Square of four tulips, +% facing left and right \\ +% \textupdoubletulip & |\textupdoubletulip|\SpecialIndex{\textupdoubletulip} & +% Double tulips, facing upward \\ +% \textdowndoubletulip & +% |\textdowndoubletulip|\SpecialIndex{\textdowndoubletulip} & Double tulips, facing +% downward \\ +% \textrightdoubletulip & +% |\textrightdoubletulip|\SpecialIndex{\textrightdoubletulip} & Double tulips, facing +% righward \\ +% \textleftdoubletulip & +% |\textleftdoubletulip|\SpecialIndex{\textleftdoubletulip} & Double tulips, facing +% leftward \\ +% \textupleftcornertulip & +% |\textupleftcornertulip|\SpecialIndex{\textupleftcornertulip} & Single corner-facing +% tulip, for upper left corners \\ +% \textuprightcornertulip & +% |\textuprightcornertulip|\SpecialIndex{\textuprightcornertulip} & Single corner-facing +% tulips, for upper right corners \\ +% \textlowleftcornertulip & +% |\textlowleftcornertulip|\SpecialIndex{\textlowleftcornertulip} & Single corner-facing +% tulips, for lower left corners \\ +% \textlowrightcornertulip & +% |\textlowrightcornertulip|\SpecialIndex{\textlowrightcornertulip} & Single +% corner-facing tulip, for lower right corners \\ +% \textupsingletuliplong & |\textupsingletuliplong|\SpecialIndex{\textupsingletuliplong} & Single tulip, +% upward-facing \\ +% \textdownsingletuliplong & |\textdownsingletuliplong|\SpecialIndex{\textdownsingletuliplong} & Single +% tulip, downward-facing \\ +% \textleftsingletuliplong & |\textleftsingletuliplong|\SpecialIndex{\textleftsingletuliplong} & Single +% tulip, leftward-facing \\ +% \textrightsingletuliplong & |\textrightsingletuliplong|\SpecialIndex{\textrightsingletuliplong} & Single +% tulip, rightward-facing \\ +% \textupsingletulip & |\textupsingletulip|\SpecialIndex{\textupsingletulip} & Single tulip, +% upright \\ +% \textdownsingletulip & |\textdownsingletulip|\SpecialIndex{\textdownsingletulip} & Single +% tulip, downward \\ +% \textleftsingletulip & |\textleftsingletulip|\SpecialIndex{\textleftsingletulip} & Single +% tulip, leftward \\ +% \textrightsingletulip & |\textrightsingletulip|\SpecialIndex{\textrightsingletulip} & Single +% tulip, rightward \\ +% \spearright & |\spearright|\SpecialIndex{\spearright} & +% Rightward-pointing spear head \\ +% \spearleft & |\spearleft|\SpecialIndex{\spearleft} & +% Leftward-pointing spear head \\ +% \horizspearext & +% |\horizspearext|\SpecialIndex{\horizspearext} & Extension +% piece for horizontal shafts \\ +% \spearup & |\spearup|\SpecialIndex{\spearup} & +% Upward-pointing spear head \\ +% \speardown & |\speardown|\SpecialIndex{\speardown} & +% Downward-pointing spear head \\ +% \vertspearext & |\vertspearext|\SpecialIndex{\vertspearext} +% & Extension piece for vertical shafts \\ +% \fleurdelis & |\fleurdelis|, |\fleurdelys|\SpecialIndex{\fleurdelis} +% \SpecialIndex{\fleurdelys} & Fleur-de-lis \\ +% \fleurdelisdown & +% |\fleurdelisdown|, |\fleurdelysdown|\SpecialIndex{\fleurdelisdown} +% \SpecialIndex{\fleurdelys} & Fleur-de-lis, downward \\ +% \fleurdelisleft & +% |\fleurdelisleft|, |\fleurdelysleft|\SpecialIndex{\fleurdelisleft} +% \SpecialIndex{\fleurdelys} & Fleur-de-lis, leftward \\ +% \fleurdelisright & +% |\fleurdelisright|, |\fleurdelysright|\SpecialIndex{\fleurdelisright} +%\SpecialIndex{\fleurdelys} & Fleur-de-lis, rightward \\ +% \LARGE\woundcordleftext & |\woundcordleftext|\SpecialIndex{\woundcordleftext} +% & Wound cord, leftward facing, extender \\ +% \LARGE\woundcordrightext & +% |\woundcordrightext|\SpecialIndex{\woundcordrightext} & +% Wound cord, rightward facing, extender \\ +% \LARGE\woundcordleftend & |\woundcordleftend|\SpecialIndex{\woundcordleftend} +% & Wound cord, left end \\ +% \LARGE\woundcordrightend & +% |\woundcordrightend|\SpecialIndex{\woundcordrightend} & +% Wound cord, right end \\ +% \LARGE\woundcordleftendinv & +% |\woundcordleftendinv|\SpecialIndex{\woundcordleftendinv} & +% Wound cord, left end, inverted \\ +% \LARGE\woundcordrightendinv & +% |\woundcordrightendinv|\SpecialIndex{\woundcordrightendinv} & +% Wound cord, right end, inverted \\ +% \end{longtable} +% \end{center} +% +% \label{page:orncomment} +% These ornaments are often quite useful for decorative +% purposes, though textual ornaments are too often neglected +% these days. (The sturdy |adforn| and intricate +% |psvectorian| packages for \LaTeX\ are notable and +% admirable exceptions.) The possibilities with even just a +% few decorative shapes are endless. +% +% \subsection{Special Symbol and Ornamental Commands} +% \label{sub:ornamentals} +% +% \lettrine{B}{ecause typography} is an ancient art full of arcane +% knowledge, there are some things that simply won't fit +% into the general rules. As a result, DRM offers a few +% interesting tidbits that your author hasn't found, or +% hasn't found useful, elsewhere. We start with a few +% commands for using the textual ornaments DRM provides, +% followed by some more mundane but still useful +% typographical tools. +% +% \subsubsection{Ornamental Commands} +% \label{subsub:orncommands} +% +% Having just mentioned the great decorative utility of +% old-fashioned textual ornaments,\footnote{\textit{See +% supra} at \pageref{page:orncomment}.} it would be remiss not to +% offer some tools for actually using such ornaments short +% of entering them in and designing interlocking boxes by +% hand. Ornaments, being inherently decorative rather than +% systematic, are not always subject to automation; but some +% limited applications can be, and DRM tries to offer some +% help with them. +% +% DRM offers |\tulipframe|\DescribeMacro{\tulipframe}, which +% frames a title in decorative tulip fleurons: +% +% \vskip1em% +% +% \hbox to\linewidth{\hfil|\tulipframe{\texttc{Example}}|\hfil}% +% {\LARGE\tulipframe{\texttc{Example}}} +% +% \vskip1em% +% +% The nature of the tulip fleurons in DRM's symbol font is +% such that these frames can be extended or shrunk as one +% wishes. |\tulipframe|, alas, is not that intelligent; it +% doesn't grow or shrink with the text, but simply sits as +% it is. Doing better than this will require box-fiddling +% by hand. However, since DRM offers vertical \emph{and} +% horizontal tulip ornaments, it's possible to have +% ornamental frames of any height or width. +% +% DRM also offers an extremely flexible \emph{rule system}, +% allowing the creation of vertical and horizontal rules of +% any length, out of any characters, in the beginning, the +% middle figures, and the end. Meet +% \DescribeMacro{\extrule}|\extrule|, or \emph{extensible +% rule}, which can produce rules with whatever characters +% you'd like. +% +% |\extrule| requires five arguments, as shown below: +% +% \begin{center} +% \cmd{\extrule} \marg{orient} \marg{len} +% \marg{start} \marg{end} \marg{ext} +% \end{center} +% +% \begin{description} +% \item[orient] The rule's \emph{orientation}. This can +% take the value \marg{h}, for \emph{horizontal}, or +% \marg{v}, for \emph{vertical}. +% \item[len] The rule's \emph{length}. This will be the +% total length of the rule, including the start and end +% characters. It can be passed in any form understood by +% \eTeX's |\numexpr| and |\dimexpr|, meaning that you can +% give it formul\ae, such as |{0.2\linewidth}|. +% \item[start] The first character in the rule; this means +% either the left character in a horizontal rule, or the +% bottom character in a vertical rule. +% \item[end] The last character in the rule, either the +% right in a horizontal or the top in a vertical. +% \item[ext] The extension character; this is the character +% which will be repeated until the rule is the appropriate +% length. +% \end{description} +% +% DRM offers several useful characters for producing such +% rules, which are designed to line up properly and thus +% produce attractive decorative rules. Among these are the +% \emph{spear characters}, and we will demonstrate their use +% with a couple of sample rules: +% +% \begin{center} +% \begin{tabular}{m{0.5\linewidth}c} +% |\extrule{h}{\linewidth/2}{\spearleft}| +% |{\spearright}{\horizspearext}| & +% \extrule{h}{\linewidth/6}{\spearleft} +% {\spearright}{\horizspearext} \\ +% |\extrule{v}{\linewidth/6}{\speardown}| +% |{\spearup}{\vertspearext}| & +% \extrule{v}{\linewidth/6}{\speardown} +% {\spearup}{\vertspearext} \\ +% \end{tabular} +% \end{center} +% +% Of course, these are typically more useful when longer, as +% in the rule below, which is equal to the |\linewidth|: +% +% \extrule{h}{\linewidth}{\spearleft}{\spearright}{\horizspearext} +% +% As is evident, |\extrule| also suppresses indentation, +% which is almost certainly the right choice. If you want +% an indent with it, it's easy enough to put one in +% explicitly. +% +% While characters like these, designed to line up +% correctly, are naturally the most likely candidates for +% such rules, you can use any characters you'd like, which +% can sometimes lead to some interesting choices: +% +% |\extrule{h}{\linewidth/2}{\textleftarrow}{\textrightarrow}{\dag}| +% +% \begin{center} +% \extrule{h}{\linewidth/2}{\textleftarrow}{\textrightarrow}{\dag} +% \end{center} +% +% This is a pretty absurd example, of course, but it's +% likely that better ones could and will be devised. +% +% And what about when we desire a special character in the +% \emph{middle} of the rule? Use \emph{two} |\extrule|s and +% put the symbol you want in the middle between them; make +% sure you comment out the end of your first and second +% lines, so as not to introduce any extraneous spaces: +% +% \begin{verbatim} +% \extrule{h}{\linewidth/2}{\spearleft}{}{\horizspearext}% +% \textbigcircle% +% \extrule{h}{\linewidth/2}{}{\spearright}{\horizspearext}% +% \end{verbatim} +% \begin{center} +% \extrule{h}{\linewidth/4}{\spearleft}{}{\horizspearext}\textbigcircle\extrule{h}{\linewidth/4}{}{\spearright}{\horizspearext} +% \end{center} +% +% There's no reason we can't put more than one character into +% these slots, as well, if we want to mix them with some +% different characters: +% +% \begin{verbatim} +% \extrule{h}{\linewidth/2}{\spearleft\raisebox{0.8pt}{\textpipe}}% +% {\raisebox{0.8pt}{\textpipe}\spearright}{\horizspearext}% +% \end{verbatim} +% \begin{center} +% \extrule{h}{\linewidth/2}{\spearleft\raisebox{0.8pt}{\textpipe}}% +% {\raisebox{0.8pt}{\textpipe}\spearright}{\horizspearext}% +% \end{center} +% +% Some other useful characters for decorative rules are the +% ``wound cord'' characters: +% +% \begin{center} +% \Huge +% \extrule{h}{\linewidth/2}{\drmsym{\char'323}}{\drmsym{\char'322}}{\drmsym{\char'324}} +% \extrule{h}{\linewidth/2}{\drmsym{\char'320}}{\drmsym{\char'321}}{\drmsym{\char'317}} +% \end{center} +% \vskip1em% +% +% Finally, these rules can often form very dignified page +% borders. The border on this page, for example, was formed +% very simply by the following (using +% |\usepackage[absolute]{textpos}|): +% \setlength{\TPHorizModule}{\linewidth} +% \begin{textblock}{1}(0.22,2) +% \extrule{v}{\textheight/6*7}{\textbigcircle}{\spearup}{\vertspearext}% +% \hskip-1.3em% +% \extrule{h}{8\textwidth/6}{}{\spearright}{\horizspearext}% +% \end{textblock} +% +% \begin{verbatim} +% \setlength{\TPHorizModule}{\linewidth} +% \begin{textblock}{1}(0.22,2) +% \extrule{v}{\textheight/6*7}{\textbigcircle}{\spearup}{\vertspearext}% +% \hskip-1.3em% +% \extrule{h}{8*\textwidth/6}{}{\spearright}{\horizspearext}% +% \end{textblock} +% \end{verbatim} +% +% This takes a little hand-tuning (e.g., the |\hskip| prior +% to the horizontal |\extrule|, and the offset in the +% parentheses), but once done, it can look quite nice. +% +% \subsubsection{Ellipses} +% \label{subsub:ellipses} +% +% DRM also has some unreasonably configurable ellipses. +% Your author included these because he's often been +% displeased by the default ellipsis options. (Of course, +% there is the excellent |ellipsis| package; but why not fix +% the problem here, when I've got the chance?) DRM offers +% two ellipsis commands, \DescribeMacro{\drmelip}|\drmelip|, +% which gives a three-dot ellipsis, and +% \DescribeMacro{\drmfelip}|\drmfelip|, which gives a +% four-dot ellipsis. +% +% I was always taught then when an ellipsis occurs after a +% period, four dots should be used, the first dot being the +% period itself and the next three being the ellipsis. +% However, using |\ldots| and similar commands after a +% period always seems to result in spacing that was subtlely +% (or not-so-subtlely) off. So DRM tries to fix that +% problem with these commands. +% +% The default behavior of the two: +% +% \begin{table}[htbp] +% \begin{center}\Large +% \begin{tabular}{ll} +% |\drmelip| & |Trying out\drmelip the ellipsis.| \\ +% {} & Trying out\drmelip the ellipsis. \\ +% |\drmfelip| & |\drmelip and so on\drmfelip| \\ +% {} & \drmelip and so on\drmfelip \\ +% \end{tabular} +% \caption{A demonstration of DRM's two types of ellipses.} +% \end{center} +% \end{table} +% +% It goes without saying, of course, that these ellipses +% won't break across lines. +% +% There are four parameters that govern how these ellipses +% actually appear: the space before the ellipsis starts, +% the space in between the ellipsis characters, the space +% after the ellipsis ends, and the character used for the +% ellipsis. Each of these parameters are configurable. +% +% \DescribeMacro{\drmelipgap}|\drmelipgap| is a \LaTeX\ +% length which determines how much space is between each +% ellipsis character; reset it, if you like, with the +% standard |\setlength| command. By default, it is just +% under three points (2.9, to be precise.) +% +% \DescribeMacro{\drmelipbef}|\drmelipbef| and +% \DescribeMacro{\drmelipaft}|\drmelipaft| are, as the names +% imply, the lengths which govern the amount of space +% before and after the ellipsis. Reset them with the +% \LaTeX\ |\setlength| command. By default, they are 2.4 +% points and 1.4 points, respectively. +% +% Finally, the \DescribeMacro{\drmelipchar}|\drmelipchar| +% macro tells \LaTeX\ what character is used for the +% ellipsis. By default, this is |.|, but it can be +% |\def|ed or |\renewcommand|ed to be anything you like. +% Always wanted an ellipse made out ampersands for some +% reason? Or perhaps one made out of daggers? +% +% \vskip2em% +% \hbox to\linewidth{\hfil|\def\drmelipchar{\dag}\drmelip|\hfil} +% \hbox to\linewidth{\hfil\def\drmelipchar{\dag}\drmelip\hfil} +% \vskip2em% +% +% \def\drmelipchar{.}% +% It's probably wise not to abuse this, but it's good for a +% little fun sometimes, and it's easier to use (though +% obviously much less flexible) than \TeX's |\dotfill| +% incantations. +% +% It is occasionally useful, however; e.g., some legal +% writing makes ellipses out of asterisks: +% +% \vskip2em% +% \hbox % to\linewidth{\hfil|\def\drmelipchar{$^*$}The decision is hereby\drmelip reversed.|\hfil} +% \hbox to\linewidth{\hfil\def\drmelipchar{$^*$}The decision is +% hereby\drmelip reversed.\hfil} +% \vskip2em% +% +% \def\drmelipchar{.}% +% So once in a while, we might actually be able to use this +% feature for something other than its novelty value. +% +% \subsection{Math} +% \label{sub:math} +% +% Your author is far from a mathematician, so he's not +% really able to judge the quality of the following; but DRM +% does offer matching math fonts. These are limited to the +% default \TeX\ math fonts, however; AMS extensions and the +% like are not available. Perhaps one day (after finishing +% the ornaments and decorative initials) they will be, but +% for now one will have to pull in other fonts for anything +% that goes beyond plain \TeX. Using them in bold goes a +% long way to making them match the rest of DRM. +% +% First, we have a full set of mathematical Greek letters. +% As seems to be the custom, the capitals are upright and +% the lowercase slanted. These can all be accessed via the +% customary \TeX\ math character names. +% +% \begin{center} +% \begin{longtable}{llllllll} +% \toprule +% \multicolumn{8}{c}{Greek Letters} \\ +% \midrule +% A & |A| & $\alpha$ & |$\alpha$| & B & |B| & $\beta$& |$\beta$| \\ +% $\Gamma$& |$\Gamma$| & $\gamma$& |$\gamma$| & $\Delta$& |$\Delta$| & +% $\delta$& |$\delta$| \\ E & |E| & $\epsilon$& |$\epsilon$| & Z & +% |Z| & +% $\zeta$ & |$\zeta$| \\ H & |H| & $\eta$& |$\eta$| & $\Theta$& |$\Theta$| & +% $\theta$& |$\theta$| \\ I & |I| & $\iota$& |$\iota$| & K & |K| & +% $\kappa$& |$\kappa$| \\ $\Lambda$& |$\Lambda$| & $\lambda$& +% |$\lambda$| & M & |M| & +% $\mu$ & |$\mu$| \\ N & |N| & $\nu$& |$\nu$| & $\Xi$& |$\Xi$| & +% $\xi$& |$\xi$| \\ O & |O| & o & |o| & $\Pi$& |$\Pi$| & +% $\pi$& |$\pi$| \\ P & |P| & $\rho$& |$\rho$| & $\Sigma$& |$\Sigma$| & +% $\sigma$& |$\sigma$| \\ T & |T| & $\tau$& |$\tau$| & Y & |Y| & +% $\upsilon$& |$\upsilon$| \\ $\Phi$& |$\Phi$| & $\phi$& |$\phi$| & X & |X| & +% $\chi$& |$\chi$| \\ $\Psi$& |$\Psi$| & $\psi$& |$\psi$| & $\Omega$& +% |$\Omega$| & $\omega$& |$\omega$| \\ $\vartheta$& |$\vartheta$| & $\varpi$& +% |$\varpi$| & $\varsigma$& |$\varsigma$| & $\varphi$ & +% |$\varphi$| \\ +% \bottomrule +% \end{longtable} +% \end{center} +% +% This alphabet led directly to DRM's Greek font, which we +% discuss elsewhere.\footnote{\textit{See supra}, Section +% \ref{sub:greek}, at \pageref{sub:greek}.} +% +% \begin{center} +% \begin{longtable}{llllllll} +% \toprule +% \multicolumn{8}{c}{Math Calligraphic} \\ +% \midrule +% $\mathcal{A}$ & $\mathcal{B}$ & $\mathcal{C}$ & $\mathcal{D}$ & $\mathcal{E}$ & $\mathcal{F}$ & $\mathcal{G}$ & $\mathcal{H}$ \\ +% $\mathcal{I}$ & $\mathcal{J}$ & $\mathcal{K}$ & $\mathcal{L}$ & $\mathcal{M}$ & $\mathcal{N}$ & $\mathcal{O}$ & $\mathcal{P}$ \\ +% $\mathcal{Q}$ & $\mathcal{R}$ & $\mathcal{S}$ & $\mathcal{T}$ & $\mathcal{U}$ & $\mathcal{V}$ & $\mathcal{W}$ & $\mathcal{X}$ \\ +% $\mathcal{Y}$ & $\mathcal{Z}$ & {} & {} & {} & {} & {} & {} \\ +% \bottomrule +% \end{longtable} +% \end{center} +% +% DRM also has its own extensible characters and +% variable-sized math characters; a few examples +% in various sizes are below. +% +% $$ \sum\limits_{i=1}^n i^2 = \frac{n(n+1)(2n+1)}{6} $$ +% $$ \prod\limits_{i=1}^n i^2 = \left(\frac{n(n+1)(2n+1)}{6}\right) $$ +% $$ \sum\nolimits_{P_i \in Paths(I)} Probes(P_{i}) $$ +% $$ \underbrace{\overbrace{abcdefghijklmnop}} $$ +% +% By default, using |\big| and friends doesn't work, a +% problem I haven't been able to resolve. However, by +% requiring |amsmath|, |drm| provides a more directly +% flexible mechanism for this: % \DescribeMacro{\bigd}|\bigd|, +% which allows arbitrarily sized delimiters. It takes a +% single argument, which is an integer describing the +% desired size: +% +% \begin{center} +% \begin{tabular}{llllll} +% |\bigd{2}\{| & \bigd{2}\{ & +% |\bigd{4}\{| & \bigd{4}\{ & +% |\bigd{8}\{| & \bigd{8}\{ \\ +% \end{tabular} +% \end{center} +% +% |\left| and |\right| work as expected with DRM's +% delimiters. +% +% This symbols, of course, also work inline (as opposed to +% displayed, which is what we have above); you can take +% $\sqrt{2}$ and have $(3\times\left(4\over3\right))$ just +% as easily in a paragraph as in a display, though you may +% want to take care that you're not using too much space for +% your lines. (I didn't take care in this paragraph, and +% you can see how bad it looks.) +% +% \subsection{Greek} +% \label{sub:greek} +% +% Because DRM offers Greek characters in math, it was a +% short step to offer actual Greek text, and so I've done +% so, according to the standard LGR encoding. I can just +% barely read the Greek alphabet and remember very little of +% the grammar, and what little I once knew was all ancient +% and koine, but here it is. DRM's Greek support is +% limited; while it offers all the normal \emph{polutoniko} +% accents, subscripts, and breathings, along with some +% archaic characters like the digamma, there is no italic, +% small caps, or various weights. DRM isn't, therefore, +% really suitable for typesetting whole Greek works; it +% will, however, offer attractive typesetting of Greek +% phrases and quotations within a text set otherwise in the +% Latin alphabet. +% +% The |\grktext|\DescribeMacro{\grktext}\ command changes the +% current font encoding to LGR, which for DRM's purposes +% means it's typesetting with Greek characters from then on. +% The macro |\textgrk|\DescribeMacro{\textgrk}\ is similar, +% but takes a single argument, which is typeset in Greek +% characters. A few examples follow. +% +% \begin{center} +% \begin{tabular}{p{0.4\textwidth}p{0.4\textwidth}} +% \begin{spverbatim}We know that \textgrk{Aqilleuc} was one of the Greeks' greatest warriors.\end{spverbatim} & +% \begin{spverbatim}{\grktext >En {\>a}rq\char'254\ {\>~h}n {\<o} l{\'o}goc, ka{\'i} {\<o} l{\'o}goc {\~\>h}n pr{\'o}c t{\'o}n je{\'o}n, ka{\'i} je{\'o}c {\>\~h}n {\<o} l{\'o}goc.}\end{spverbatim} \\ +% We know that \textgrk{Aqilleuc} was one +% of the Greeks' greatest warriors. & +% {\grktext >En {\>a}rq\char'254\ +% {\>~h}n {\<o} l{\'o}goc, ka{\'i} {\<o} l{\'o}goc {\~\>h}n +% pr{\'o}c t{\'o}n je{\'o}n, ka{\'i} je{\'o}c {\>\~h}n {\<o} +% l{\'o}goc.} \\ +% \end{tabular} +% \end{center} +% +% I understand that |babel| has facilities for making the +% typesetting of all the \textgrk{polutoniko} accents much +% cleaner, but I don't write enough in Greek to have learned +% to use it, resulting in the mess you see above. Note that +% |drm| (the package) does \emph{not} pull in |babel| or the +% |polutoniko| option, or any other Greek typesetting +% package; it simply provides the fonts. If you're +% typesetting long enough passages that you need Greek +% hyphenation and the like, you'll have to invoke the +% appropriate package yourself. +% +% \section{Implementation} +% \label{sect:code} +% +% Load the required packages. DRM contains TS1, LGR, OML, +% OMS, and T1 encoded fonts, so we load |fontenc| with all +% these encodings as options. We also load |modroman| for +% the |\romanize| macro, defined below. +% \begin{macrocode} +\RequirePackage[LGR,OML,OMS,TS1,T1]{fontenc} +\RequirePackage{modroman} +\RequirePackage{amsmath} +% \end{macrocode} +% Now we declare our options. +% \begin{macrocode} +\newif\ifnodefault\nodefaultfalse +\newif\ifnodefaultmath\nodefaultmathfalse +\newif\ifnodefaulttext\nodefaulttextfalse +\newif\ifsymbolsonly\symbolsonlyfalse +\DeclareOption{nodefault}{\nodefaulttrue\nodefaultmathtrue% + \nodefaulttexttrue} +\DeclareOption{nodefaultmath}{\nodefaultmathtrue} +\DeclareOption{nodefaulttext}{\nodefaulttexttrue} +\DeclareOption{symbolsonly}{\symbolsonlytrue\nodefaulttrue% + \nodefaulttexttrue\nodefaultmathtrue} +\ProcessOptions +% \end{macrocode} +% Begin defining the font families. +% \begin{macrocode} +\DeclareFontFamily{T1}{drm}{} +\DeclareFontFamily{TS1}{drm}{} +\DeclareFontFamily{LGR}{drm}{} +\DeclareFontShape{T1}{drm}{m}{n}{ <-7> drm6 <7> drm7 <8> drm8 + <9> drm9 <10-12> drm10 <12-13> drm12 <14-17> drm14 + <17-24> drm17 <24-> drm24 }{} +\DeclareFontShape{T1}{drm}{m}{sc}{<-7> drmsc6 <7> drmsc7 + <8> drmsc8 <9> drmsc9 <10-12> drmsc10 <12-14> drmsc12 + <14-17> drmsc14 <17-24> drmsc17 <24-> drmsc24 }{} +\DeclareFontShape{T1}{drm}{m}{tc}{<-7> drmtc6 <7> drmtc7 + <8> drmtc8 <9> drmtc9 <10-12> drmtc10 <12-14> drmtc12 + <14-17> drmtc14 <17-24> drmtc17 <24-> drmtc24 }{} +\DeclareFontShape{T1}{drm}{m}{sl}{<-7> drmsl6 <7> drmsl7 + <8> drmsl8 <9> drmsl9 <10-12> drmsl10 <12-14> drmsl12 + <14-17> drmsl14 <17-24> drmsl17 <24-> drmsl24 }{} +\DeclareFontShape{T1}{drm}{m}{it}{ <-7> drmit6 <7> drmit7 + <8> drmit8 <9> drmit9 <10-12> drmit10 <12-14> drmit12 + <14-17> drmit14 <17-24> drmit17 <24-> drmit24 }{} +\DeclareFontShape{T1}{drm}{m}{ui}{<-7> drmui6 <7> drmui7 + <8> drmui8 <9> drmui9 <10-12> drmui10 <12-14> drmui12 + <14-17> drmui14 <17-24> drmui17 <24-> drmui24 }{} +\DeclareFontShape{T1}{drm}{l}{n}{<-7> drml6 <7> drml7 + <8> drml8 <9> drml9 <10-12> drml10 <12-14> drml12 + <14-17> drml14 <17-24> drml17 <24-> drml24 }{} +\DeclareFontShape{T1}{drm}{b}{n}{<-7> drmb6 <7> drmb7 + <8> drmb8 <9> drmb9 <10-12> drmb10 <12-14> drmb12 + <14-17> drmb14 <17-24> drmb17 <24-> drmb24 }{} +\DeclareFontShape{T1}{drm}{bx}{n}{<-7> drmbx6 <7> drmbx7 + <8> drmbx8 <9> drmbx9 <10-12> drmbx10 <12-14> drmbx12 + <14-17> drmbx14 <17-24> drmbx17 <24-> drmbx24 }{} +\DeclareFontShape{TS1}{drm}{m}{n}{<-7> drmsym7 + <8> drmsym8 <9> drmsym9 <10-12> drmsym10 <12-14> drmsym12 + <14-17> drmsym14 <17-24> drmsym17 <24-> drmsym24 }{} +\DeclareFontShape{LGR}{drm}{m}{n}{<-> drmgrk10 }{} +% \end{macrocode} +% Now, set the default text font as DRM unless |nodefault| +% or |nodefaulttext| has been specified. +% \begin{macrocode} +\ifnodefault\else\ifnodefaulttext\else + \renewcommand\encodingdefault{T1} + \renewcommand\familydefault{drm} +\fi\fi +% \end{macrocode} +% Now we move on to define commands for the more unusual +% shapes, since \LaTeXe\ doesn't have them built in. We +% start with \texttc{titling small caps}, then move on to +% \textui{upright italics}. We also define |\textgrk| and +% |\grktext|, for typesetting in Greek characters. +% \begin{macrocode} +\def\tcshape{\fontshape{tc}\selectfont} +\def\texttc#1{{\tcshape#1}} +\def\uishape{\fontshape{ui}\selectfont} +\def\textui#1{{\uishape#1}} +\def\grktext{\fontencoding{LGR}\selectfont} +\def\textgrk#1{{\grktext#1}} +% \end{macrocode} +% Next, we define the weights. We know that |\textbf| will +% give us normal boldface, and that |\textmd| will return us +% to medium weight; but since DRM also has a light weight +% and a bold non-extended, we need to define commands for +% those, as well. +% \begin{macrocode} +\def\lseries{\fontseries{l}\selectfont} +\def\textl#1{{\lseries#1}} +\def\bseries{\fontseries{b}\selectfont} +\def\textb#1{{\bseries#1}} +% \end{macrocode} +% Moving on, we define size commands based on +% traditional English-language printers' names. Why? +% \emph{Because we can}, that's why. +% \begin{macrocode} +% \def\loosen{\addtolength{\baselineskip}{1pt}} +% \def\excelsior{\fontsize{3pt}{3.5pt}\selectfont} +% \def\minikin{\excelsior} +% \def\brilliant{\fontsize{4pt}{4.5pt}\selectfont} +% \def\diamond{\fontsize{4.5pt}{5pt}\selectfont} +% \def\pearl{\fontsize{5pt}{6pt}\selectfont} +% \def\agate{\fontsize{5.5pt}{6.5pt}\selectfont} +% \def\ruby{\agate} +% \def\nonpareille{\fontsize{6pt}{7pt}\selectfont} +% \def\minionette{\fontsize{6.5pt}{7.5pt}\selectfont} +% \def\emerald{\minionette} +% \def\minion{\fontsize{7pt}{8pt}\selectfont} +% \def\brevier{\fontsize{8pt}{9pt}\selectfont} +% \def\petit{\brevier} +% \def\smalltext{\brevier} +% \def\bourgeois{\fontsize{9pt}{10pt}\selectfont} +% \def\galliard{\bourgeois} +% \def\longprimer{\fontsize{10pt}{12pt}\selectfont} +% \def\corpus{\longprimer} +% \def\garamond{\longprimer} +% \def\smallpica{\fontsize{11pt}{13pt}\selectfont} +% \def\philosophy{\smallpica} +% \def\pica{\fontsize{12pt}{15pt}\selectfont} +% \def\english{\fontsize{14pt}{17pt}\selectfont} +% \def\mittel{\english} +% \def\augustin{\english} +% \def\columbian{\fontsize{16pt}{19pt}\selectfont} +% \def\twolinebrevier{\columbian} +% \def\greatprimer{\fontsize{18pt}{22pt}\selectfont} +% \def\paragon{\fontsize{20pt}{24pt}\selectfont} +% \def\doublesmallpica{\fontsize{21pt}{25pt}\selectfont} +% \def\doublesmallpicaus{\fontsize{22pt}{26pt}\selectfont} +% \def\doublepicabrit{\doublesmallpicaus} +% \def\doublepica{\fontsize{24pt}{28pt}\selectfont} +% \def\twolinepica{\doublepica} +% \def\doubleenglish{\fontsize{28pt}{33pt}\selectfont} +% \def\twolineenglish{\doubleenglish} +% \def\fivelinenonpareil{\fontsize{30pt}{35pt}\selectfont} +% \def\fourlinebrevier{\fontsize{32pt}{38pt}\selectfont} +% \def\doublegreatprimer{\fontsize{36pt}{42pt}\selectfont} +% \def\twolinegreatprimer{\doublegreatprimer} +% \def\meridian{\fontsize{44pt}{50pt}\selectfont} +% \def\twolinedoublepica{\meridian} +% \def\trafalgar{\meridian} +% \def\canon{\fontsize{48pt}{54pt}\selectfont} +% \def\fourline{\canon} +% \def\fivelinepica{\fontsize{60pt}{66pt}\selectfont} +% \def\inch{\fontsize{72pt}{78pt}\selectfont} +% \end{macrocode} +% Now we move on to define the math fonts. This turned out +% to be a surprisingly convoluted process, and I only +% marginally understand what's going on here; but it works, +% and I'll try to go through it as best as I can. +% +% First, we make \LaTeX\ aware of our math fonts: +% \begin{macrocode} +\DeclareFontFamily{OML}{drm}{} +\DeclareFontShape{OML}{drm}{m}{n}{ <-> drmmi10 }{} +\DeclareFontFamily{OMS}{drm}{} +\DeclareFontShape{OMS}{drm}{m}{n}{ <-> drmsy10 }{} +\DeclareFontFamily{OMX}{drm}{} +\DeclareFontShape{OMX}{drm}{m}{n}{ <-> drmomx10 }{} +% \end{macrocode} +% Next, we declare something called a math \emph{version}; +% this way we can define new math shapes without clobbering +% the default settings. I'm not sure why this is really +% necessary, but it appears to be; so we define a math +% version |drmmath|: +% \begin{macrocode} +\DeclareMathVersion{drmmath} +% \end{macrocode} +% Now we define our symbol fonts. This lets \LaTeX\ know +% where to yank its symbols from when typesetting a math +% formula. +% \begin{macrocode} +\ifnodefault\else\ifnodefaultmath\else +\SetSymbolFont{operators}{drmmath}{T1}{drm}{m}{n} +\SetSymbolFont{letters}{drmmath}{OML}{drm}{m}{n} +\DeclareSymbolFont{symbs}{TS1}{drm}{m}{n} +\SetSymbolFont{symbs}{drmmath}{TS1}{drm}{m}{n} +\DeclareSymbolFont{drmmathsy}{OMS}{drm}{m}{n} +\SetSymbolFont{drmmathsy}{drmmath}{OMS}{drm}{m}{n} +\DeclareSymbolFont{drmmathomx}{OMX}{drm}{m}{n} +\SetSymbolFont{drmmathomx}{drmmath}{OMX}{drm}{m}{n} +\fi\fi +% \end{macrocode} +% Now we write in our \emph{math alphabets}, so that when we +% request |\mathcal| or something similar we'll get DRM and +% not Computer Modern. We define |\mathcal|, of course, and +% also |\drmmathlets|, just in case we want to request DRM +% directly. +% \begin{macrocode} +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathAlphabet{\drmmathlets}{OML}{drm}{m}{n} +\SetMathAlphabet{\drmmathlets}{drmmath}{OML}{drm}{m}{n} +\DeclareMathAlphabet{\mathcal}{OMS}{drm}{m}{n} +\SetMathAlphabet{\mathcal}{drmmath}{OMS}{drm}{m}{n} +\fi\fi +% \end{macrocode} +% Now ensure that we get lining figures in math mode. +% \begin{macrocode} +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathSymbol{0}{0}{symbs}{48} +\DeclareMathSymbol{1}{0}{symbs}{49} +\DeclareMathSymbol{2}{0}{symbs}{50} +\DeclareMathSymbol{3}{0}{symbs}{51} +\DeclareMathSymbol{4}{0}{symbs}{52} +\DeclareMathSymbol{5}{0}{symbs}{53} +\DeclareMathSymbol{6}{0}{symbs}{54} +\DeclareMathSymbol{7}{0}{symbs}{55} +\DeclareMathSymbol{8}{0}{symbs}{56} +\DeclareMathSymbol{9}{0}{symbs}{57} +\fi\fi +% \end{macrocode} +% Now, it appears to be necessary to redefine all the math +% symbols, so we do that. Beginning with the Greek letters: +% \begin{macrocode} +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathSymbol{\Gamma}{0}{letters}{0} +\DeclareMathSymbol{\Delta}{0}{letters}{1} +\DeclareMathSymbol{\Theta}{0}{letters}{2} +\DeclareMathSymbol{\Lambda}{0}{letters}{3} +\DeclareMathSymbol{\Xi}{0}{letters}{4} +\DeclareMathSymbol{\Pi}{0}{letters}{5} +\DeclareMathSymbol{\Sigma}{0}{letters}{6} +\DeclareMathSymbol{\Upsilon}{0}{letters}{7} +\DeclareMathSymbol{\Phi}{0}{letters}{8} +\DeclareMathSymbol{\Psi}{0}{letters}{9} +\DeclareMathSymbol{\Omega}{0}{letters}{10} +\DeclareMathSymbol{\alpha}{0}{letters}{11} +\DeclareMathSymbol{\beta}{0}{letters}{12} +\DeclareMathSymbol{\gamma}{0}{letters}{13} +\DeclareMathSymbol{\delta}{0}{letters}{14} +\DeclareMathSymbol{\epsilon}{0}{letters}{15} +\DeclareMathSymbol{\zeta}{0}{letters}{16} +\DeclareMathSymbol{\eta}{0}{letters}{17} +\DeclareMathSymbol{\theta}{0}{letters}{18} +\DeclareMathSymbol{\iota}{0}{letters}{19} +\DeclareMathSymbol{\kappa}{0}{letters}{20} +\DeclareMathSymbol{\lambda}{0}{letters}{21} +\DeclareMathSymbol{\mu}{0}{letters}{22} +\DeclareMathSymbol{\nu}{0}{letters}{23} +\DeclareMathSymbol{\xi}{0}{letters}{24} +\DeclareMathSymbol{\pi}{0}{letters}{25} +\DeclareMathSymbol{\rho}{0}{letters}{26} +\DeclareMathSymbol{\sigma}{0}{letters}{27} +\DeclareMathSymbol{\tau}{0}{letters}{28} +\DeclareMathSymbol{\upsilon}{0}{letters}{29} +\DeclareMathSymbol{\phi}{0}{letters}{30} +\DeclareMathSymbol{\chi}{0}{letters}{31} +\DeclareMathSymbol{\psi}{0}{letters}{32} +\DeclareMathSymbol{\omega}{0}{letters}{33} +\DeclareMathSymbol{\varepsilon}{0}{letters}{34} +\DeclareMathSymbol{\vartheta}{0}{letters}{35} +\DeclareMathSymbol{\varpi}{0}{letters}{36} +\DeclareMathSymbol{\varrho}{0}{letters}{37} +\DeclareMathSymbol{\varsigma}{0}{letters}{38} +\DeclareMathSymbol{\varphi}{0}{letters}{39} +\fi\fi +% \end{macrocode} +% Now let's define some of the other symbols in the OML +% encoding. +% \begin{macrocode} +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathSymbol{\leftharpoonup}{0}{letters}{40} +\DeclareMathSymbol{\leftharpoondown}{0}{letters}{41} +\DeclareMathSymbol{\rightharpoonup}{0}{letters}{42} +\DeclareMathSymbol{\rightharpoondown}{0}{letters}{43} +\DeclareMathSymbol{\triangleright}{0}{letters}{46} +\DeclareMathSymbol{\triangleleft}{0}{letters}{47} +\DeclareMathSymbol{\flat}{0}{letters}{91} +\DeclareMathSymbol{\natural}{0}{letters}{92} +\DeclareMathSymbol{\sharp}{0}{letters}{93} +\DeclareMathSymbol{\smile}{0}{letters}{94} +\DeclareMathSymbol{\frown}{0}{letters}{95} +\DeclareMathSymbol{\ell}{0}{letters}{96} +\DeclareMathSymbol{\imath}{0}{letters}{123} +\DeclareMathSymbol{\jmath}{0}{letters}{124} +\DeclareMathSymbol{\wp}{0}{letters}{125} +\fi\fi +% \end{macrocode} +% Now we go on to define the symbols from the OMS-encoded +% fonts. +% \begin{macrocode} +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathSymbol{-}{2}{drmmathsy}{'000} +\DeclareMathSymbol{\cdot}{2}{drmmathsy}{'001} +\DeclareMathSymbol{\times}{2}{drmmathsy}{'002} +\DeclareMathSymbol{\ast}{2}{drmmathsy}{'003} +\DeclareMathSymbol{\div}{2}{drmmathsy}{'004} +\DeclareMathSymbol{\diamond}{2}{drmmathsy}{'005} +\DeclareMathSymbol{\pm}{2}{drmmathsy}{'006} +\DeclareMathSymbol{\mp}{2}{drmmathsy}{'007} +\DeclareMathSymbol{\oplus}{2}{drmmathsy}{'010} +\DeclareMathSymbol{\ominus}{2}{drmmathsy}{'011} +\DeclareMathSymbol{\otimes}{2}{drmmathsy}{'012} +\DeclareMathSymbol{\oslash}{2}{drmmathsy}{'013} +\DeclareMathSymbol{\odot}{2}{drmmathsy}{'014} +\DeclareMathSymbol{\bigcirc}{2}{drmmathsy}{'015} +\DeclareMathSymbol{\circ}{2}{drmmathsy}{'016} +\DeclareMathSymbol{\bullet}{2}{drmmathsy}{'017} +\DeclareMathSymbol{\asymp}{3}{drmmathsy}{'020} +\DeclareMathSymbol{\equiv}{3}{drmmathsy}{'021} +\DeclareMathSymbol{\subseteq}{3}{drmmathsy}{'022} +\DeclareMathSymbol{\supseteq}{3}{drmmathsy}{'023} +\DeclareMathSymbol{\leq}{3}{drmmathsy}{'024} +\DeclareMathSymbol{\geq}{3}{drmmathsy}{'025} +\DeclareMathSymbol{\preceq}{3}{drmmathsy}{'026} +\DeclareMathSymbol{\succeq}{3}{drmmathsy}{'027} +\DeclareMathSymbol{\sim}{3}{drmmathsy}{'030} +\DeclareMathSymbol{\approx}{3}{drmmathsy}{'031} +\DeclareMathSymbol{\subset}{3}{drmmathsy}{'032} +\DeclareMathSymbol{\supset}{3}{drmmathsy}{'033} +\DeclareMathSymbol{\ll}{3}{drmmathsy}{'034} +\DeclareMathSymbol{\gg}{3}{drmmathsy}{'035} +\DeclareMathSymbol{\prec}{3}{drmmathsy}{'036} +\DeclareMathSymbol{\succ}{3}{drmmathsy}{'037} +\DeclareMathSymbol{\simeq}{3}{drmmathsy}{'047} +\DeclareMathSymbol{\propto}{3}{drmmathsy}{'057} +\DeclareMathSymbol{\prime}{0}{drmmathsy}{'060} +\DeclareMathSymbol{'}{0}{drmmathsy}{'060} +\DeclareMathSymbol{\infty}{0}{drmmathsy}{'061} +\DeclareMathSymbol{\in}{0}{drmmathsy}{'062} +\DeclareMathSymbol{\ni}{0}{drmmathsy}{'063} +\DeclareMathSymbol{\bigtriangleup}{2}{drmmathsy}{'064} +\DeclareMathSymbol{\bigtriangledown}{2}{drmmathsy}{'065} +\DeclareMathSymbol{/}{2}{drmmathsy}{'066} +%\DeclareMathSymbol{'}{2}{drmmathsy}{'067} +\DeclareMathSymbol{\forall}{2}{drmmathsy}{'070} +\DeclareMathSymbol{\exists}{2}{drmmathsy}{'071} +\DeclareMathSymbol{\neg}{2}{drmmathsy}{'072} +\DeclareMathSymbol{\emptyset}{2}{drmmathsy}{'073} +\DeclareMathSymbol{\Im}{0}{drmmathsy}{'074} +\DeclareMathSymbol{\Re}{0}{drmmathsy}{'075} +\DeclareMathSymbol{\top}{0}{drmmathsy}{'076} +\DeclareMathSymbol{\bot}{0}{drmmathsy}{'077} +%\DeclareMathSymbol{\aleph}{0}{drmmathsy}{'080} +\DeclareMathSymbol{\cup}{2}{drmmathsy}{'133} +\DeclareMathSymbol{\cap}{2}{drmmathsy}{'134} +\DeclareMathSymbol{\uplus}{2}{drmmathsy}{'135} +\DeclareMathSymbol{\wedge}{2}{drmmathsy}{'136} +\DeclareMathSymbol{\vee}{2}{drmmathsy}{'137} +\DeclareMathSymbol{\vdash}{3}{drmmathsy}{'140} +\DeclareMathSymbol{\dashv}{3}{drmmathsy}{'141} +\fi\fi +% \end{macrocode} +% Now we define some arrow symbols; there is a surprisingly +% large variety of these. +% \begin{macrocode} +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathSymbol{\leftarrow}{0}{drmmathsy}{'040} +\DeclareMathSymbol{\rightarrow}{0}{drmmathsy}{'041} +\DeclareMathSymbol{\leftrightarrow}{0}{drmmathsy}{'044} +\DeclareMathSymbol{\nearrow}{0}{drmmathsy}{'045} +\DeclareMathSymbol{\searrow}{0}{drmmathsy}{'046} +\DeclareMathSymbol{\Leftarrow}{0}{drmmathsy}{'050} +\DeclareMathSymbol{\Rightarrow}{0}{drmmathsy}{'051} +\DeclareMathSymbol{\Leftrightarrow}{0}{drmmathsy}{'054} +\DeclareMathSymbol{\nwarrow}{0}{drmmathsy}{'055} +\DeclareMathSymbol{\swarrow}{0}{drmmathsy}{'056} +\DeclareMathSymbol{\wr}{2}{drmmathsy}{'157} +\DeclareMathSymbol{\surd}{0}{drmmathsy}{'160} +\DeclareMathSymbol{\amalg}{2}{drmmathsy}{'161} +\DeclareMathSymbol{\nabla}{0}{drmmathsy}{'162} +\DeclareMathSymbol{\sqcup}{2}{drmmathsy}{'164} +\DeclareMathSymbol{\sqcap}{2}{drmmathsy}{'165} +\DeclareMathSymbol{\sqsubseteq}{2}{drmmathsy}{'166} +\DeclareMathSymbol{\sqsupseteq}{2}{drmmathsy}{'167} +\DeclareMathSymbol{\dagger}{2}{drmmathsy}{'171} +\DeclareMathSymbol{\ddagger}{2}{drmmathsy}{'172} +\DeclareMathSymbol{:}{2}{operators}{'072} +\DeclareMathSymbol{;}{0}{operators}{'073} +\DeclareMathSymbol{.}{0}{letters}{'072} +\DeclareMathSymbol{,}{0}{operators}{'054} +\DeclareMathSymbol{\ldotp}{0}{letters}{'072} +\DeclareMathSymbol{\clubsuit}{0}{letters}{'174} +\DeclareMathSymbol{\diamondsuit}{0}{letters}{'175} +\DeclareMathSymbol{\heartsuit}{0}{letters}{'176} +\DeclareMathSymbol{\spadesuit}{0}{letters}{'177} +\DeclareMathSymbol{\partial}{0}{drmmathsy}{'100} +\fi\fi +% \end{macrocode} +% Now we define some of the large/small symbols, like |\sum| +% and |\prod|. It proved necessary to cancel out the +% previous definitions of these, or \LaTeX\ complained about +% them being already defined; it seems that it ought to be +% possible to redefine them only for a given math version, +% but I haven't figured it out yet. +% \begin{macrocode} +\ifnodefault\else\ifnodefaultmath\else +\let\coprod\relax +\DeclareMathSymbol{\coprod}{\mathop}{drmmathomx}{"60} +\let\bigvee\relax +\DeclareMathSymbol{\bigvee}{\mathop}{drmmathomx}{"57} +\let\bigwedge\relax +\DeclareMathSymbol{\bigwedge}{\mathop}{drmmathomx}{"56} +\let\biguplus\relax +\DeclareMathSymbol{\biguplus}{\mathop}{drmmathomx}{"55} +\let\bigcap\relax +\DeclareMathSymbol{\bigcap}{\mathop}{drmmathomx}{"54} +\let\bigcup\relax +\DeclareMathSymbol{\bigcup}{\mathop}{drmmathomx}{"53} +\let\intop\relax +\DeclareMathSymbol{\intop}{\mathop}{drmmathomx}{"52} + \def\int{\intop\nolimits} +\let\prod\relax +\DeclareMathSymbol{\prod}{\mathop}{drmmathomx}{"51} +\let\sum\relax +\DeclareMathSymbol{\sum}{\mathop}{drmmathomx}{"50} +\let\bigotimes\relax +\DeclareMathSymbol{\bigotimes}{\mathop}{drmmathomx}{"4E} +\let\bigoplus\relax +\DeclareMathSymbol{\bigoplus}{\mathop}{drmmathomx}{"4C} +\let\bigodot\relax +\DeclareMathSymbol{\bigodot}{\mathop}{drmmathomx}{"4A} +\let\ointcup\relax +\DeclareMathSymbol{\ointop}{\mathop}{drmmathomx}{"48} + \def\oint{\ointop\nolimits} +\let\bigsqcup\relax +\DeclareMathSymbol{\bigsqcup}{\mathop}{drmmathomx}{"46} +\fi\fi +% \end{macrocode} +% Moving on to delimiters. +% \begin{macrocode} +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathSymbol{|}{0}{drmmathsy}{'152} +\let\backslash\relax\DeclareMathSymbol{\backslash}{0}{drmmathsy}{'156} +\fi\fi +% \end{macrocode} +% Declare the math accents. +% \begin{macrocode} +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathAccent{\vec}{\mathord}{letters}{126} +\DeclareMathAccent{\acute}{\mathalpha}{operators}{1} +\DeclareMathAccent{\hat}{\mathalpha}{operators}{2} +\DeclareMathAccent{\grave}{\mathalpha}{operators}{0} +\DeclareMathAccent{\check}{\mathalpha}{operators}{7} +\DeclareMathAccent{\bar}{\mathalpha}{operators}{9} +\DeclareMathAccent{\dot}{\mathalpha}{operators}{10} +\DeclareMathAccent{\ddot}{\mathalpha}{operators}{4} +\DeclareMathAccent{\breve}{\mathalpha}{operators}{8} +\DeclareMathAccent{\tilde}{\mathalpha}{operators}{3} +\fi\fi +% \end{macrocode} +% Declare our math delimiters, so that \TeX's +% delimiter-expanding magic can work with our new +% characters. +% \begin{macrocode} +\def\bigd#1{\bBigg@{#1}} +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathDelimiter{(}{\mathopen}{operators}{"28} + {drmmathomx}{"00} +\DeclareMathDelimiter{)}{\mathopen}{operators}{"29} + {drmmathomx}{"01} +\let\{\relax\let\}\relax +\DeclareMathDelimiter{\{}{\mathopen}{operators}{"7B} + {drmmathomx}{"08} +\DeclareMathDelimiter{\}}{\mathopen}{operators}{"7D} + {drmmathomx}{"09} +\DeclareMathDelimiter{[}{\mathopen}{operators}{"5B} + {drmmathomx}{"02} +\DeclareMathDelimiter{]}{\mathopen}{operators}{"5D} + {drmmathomx}{"03} +\DeclareMathDelimiter{\lfloor}{\mathopen}{drmmathsy}{"62} + {drmmathomx}{"04} +\DeclareMathDelimiter{\rfloor}{\mathclose}{drmmathsy}{"63} + {drmmathomx}{"05} +\DeclareMathDelimiter{\lceil}{\mathopen}{drmmathsy}{"64} + {drmmathomx}{"06} +\DeclareMathDelimiter{\rceil}{\mathclose}{drmmathsy}{"65} + {drmmathomx}{"07} +\DeclareMathDelimiter{\langle}{\mathopen}{drmmathsy}{"68} + {drmmathomx}{"0A} +\DeclareMathDelimiter{\rangle}{\mathclose}{drmmathsy}{"69} + {drmmathomx}{"0B} +\DeclareMathDelimiter{|}{\mathclose}{drmmathomx}{"0C} + {drmmathomx}{"0C} +\DeclareMathDelimiter{\vert}{\mathclose}{drmmathomx}{"0C} + {drmmathomx}{"0C} +\DeclareMathDelimiter{\|}{\mathclose}{drmmathomx}{"0D} + {drmmathomx}{"0D} +\DeclareMathDelimiter{\Vert}{\mathclose}{drmmathomx}{"0D} + {drmmathomx}{"0D} +\DeclareMathDelimiter{\uparrow}{\mathrel}{drmmathomx}{"78} + {drmmathomx}{"78} +\DeclareMathDelimiter{\downarrow}{\mathrel}{drmmathomx}{"79} + {drmmathomx}{"79} +\DeclareMathDelimiter{\updownarrow}{\mathrel}{drmmathsy}{"6C} + {drmmathomx}{"3F} +\DeclareMathDelimiter{\Uparrow}{\mathrel}{drmmathsy}{"2A} + {drmmathomx}{"7E} +\DeclareMathDelimiter{\Downarrow}{\mathrel}{drmmathsy}{"2B} + {drmmathomx}{"7F} +\DeclareMathDelimiter{\Updownarrow}{\mathrel}{drmmathsy}{"6D} + {drmmathomx}{"77} +\fi\fi +% \end{macrocode} +% Next, we define a \emph{math radical}, which essentially +% means a square root sign. Curiously, the thickness of the +% rule enclosing the square root sign is governed by the +% \emph{height} of the square root character; this means +% that almost the entire character is \emph{depth}. I had +% to jimmy a bit with the default \LaTeX\ |\sqrt| definition +% to make the root numbers (say, the 3 for the cube root) +% line up properly, as well, which is what all the |\r@@t| +% business here is. +% \begin{macrocode} +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathRadical{\sqrtsign}{drmmathsy}{"70}{drmmathomx}{"70} +\DeclareRobustCommand\sqrt{\@ifnextchar[\@sqrt\sqrtsign} +\def\r@@t#1#2{ + \setbox\z@\hbox{$\m@th#1\sqrtsign{#2}$} + \dimen@\ht\z@ \advance\dimen@-\dp\z@ + \mkern5mu\raise.8\dimen@\copy\rootbox + \mkern-7mu\box\z@} +\fi\fi +% \end{macrocode} +% Now, finally, we declare |drmmath| to be the default math +% version, so that all this will become the norm in a +% document declaring the |drm| package. Unless, of course, +% either |nodefault| or |nodefaultmath| has been specified +% as an option. +% \begin{macrocode} +\ifnodefault\else\ifnodefaultmath\else + \mathversion{drmmath} +\fi\fi +% \end{macrocode} +% Now we define the special symbols. First, we define +% |\drmsym|, which takes a single argument to be typeset +% from the |drmsym| font. Then we define a (rather huge) +% macro for redefining all the symbols. This macro will be +% called only if |nodefault| or |nodefaulttext| have not +% been selected, or if |symbolsonly| has been selected. +% \begin{macrocode} +\def\drmsym#1{{\fontencoding{TS1}\selectfont\fontfamily{drm}\selectfont#1}} +\def\drmsymbolredef{ + \def\textbigcircle{\drmsym{\char'117}} + \def\textregistered{\drmsym{\char'256}} + \def\texttrademark{\drmsym{\char'227}} + \def\textservicemark{\drmsym{\char'237}} + \def\textsoundrecording{\drmsym{\char'255}} + \def\textcopyright{\drmsym{\char'251}} + \def\textcopyleft{\drmsym{\char'253}} + \def\textborn{\drmsym{\char'142}} + \def\textdied{\drmsym{\char'144}} + \def\textdivorced{\drmsym{\char'143}} + \def\textmarried{\drmsym{\char'155}} + \def\textleaf{\drmsym{\char'154}} + \def\textmale{\drmsym{\char'153}} + \def\textfemale{\drmsym{\char'145}} + \def\textcrusadecross{\drmsym{\char'130}} + \def\textcrusadecrossoutline{\drmsym{\char'131}} + \def\textlatincross{\drmsym{\char'144}} + \def\textlatincrossoutline{\drmsym{\char'134}} + \def\textgreekcross{\drmsym{\char'170}} + \def\textgreekcrossoutline{\drmsym{\char'171}} + \def\textsaltirecross{\drmsym{\char'172}} + \def\textsaltirecrossoutline{\drmsym{\char'173}} + \def\texteucharist{\drmsym{\char'120}} + \def\textstardavid{\drmsym{\char'140}} + \def\textstardavidsolid{\drmsym{\char'141}} + \def\textstardavidoutline{\drmsym{\char'151}} + \def\textsun{\drmsym{\char'330}} + \def\textsunvar{\drmsym{\char'331}} + \def\textwaxcrescent{\drmsym{\char'332}} + \def\textfullmoon{\drmsym{\char'333}} + \def\textwanecrescent{\drmsym{\char'334}} + \def\textnewmoon{\drmsym{\char'335}} + \def\textmercury{\drmsym{\char'336}} + \def\textearth{\drmsym{\char'337}} + \def\textterra{\drmsym{\char'337}} + \def\textearthvar{\drmsym{\char'340}} + \def\textterravar{\drmsym{\char'340}} + \def\textmars{\drmsym{\char'153}} + \def\textvenus{\drmsym{\char'145}} + \def\textjupiter{\drmsym{\char'341}} + \def\textsaturn{\drmsym{\char'342}} + \def\texturanus{\drmsym{\char'343}} + \def\texturanusvar{\drmsym{\char'344}} + \def\textneptune{\drmsym{\char'345}} + \def\textceres{\drmsym{\char'346}} + \def\textpallas{\drmsym{\char'347}} + \def\textjuno{\drmsym{\char'350}} + \def\textjunovar{\drmsym{\char'351}} + \def\textvesta{\drmsym{\char'352}} + \def\textvestavar{\drmsym{\char'353}} + \def\textastraea{\drmsym{\char'354}} + \def\textastraeavar{\drmsym{\char'355}} + \def\texthebe{\drmsym{\char'356}} + \def\textiris{\drmsym{\char'357}} + \def\textaries{\drmsym{\char'360}} + \def\textari{\drmsym{\char'360}} + \def\texttaurus{\drmsym{\char'361}} + \def\texttau{\drmsym{\char'361}} + \def\textgemini{\drmsym{\char'362}} + \def\textgem{\drmsym{\char'362}} + \def\textcancer{\drmsym{\char'363}} + \def\textcnc{\drmsym{\char'363}} + \def\textleo{\drmsym{\char'364}} + \def\textvirgo{\drmsym{\char'365}} + \def\textvir{\drmsym{\char'365}} + \def\textlibra{\drmsym{\char'367}} + \def\textlib{\drmsym{\char'367}} + \def\textscorpius{\drmsym{\char'370}} + \def\textsco{\drmsym{\char'370}} + \def\textsagittarius{\drmsym{\char'371}} + \def\textsgr{\drmsym{\char'371}} + \def\textcapricorn{\drmsym{\char'372}} + \def\textcap{\drmsym{\char'372}} + \def\textaquarius{\drmsym{\char'373}} + \def\textaqr{\drmsym{\char'373}} + \def\textpisces{\drmsym{\char'374}} + \def\textpsc{\drmsym{\char'374}} + \def\textpluto{\drmsym{\char'375}} + \def\textplutovar{\drmsym{\char'376}} + \def\textstar{\drmsym{\char'142}} + \def\textcomet{\drmsym{\char'377}} + \def\textquadrature{\drmsym{\char'310}} + \def\textopposition{\drmsym{\char'311}} + \def\textconjunction{\drmsym{\char'312}} + \def\textascendingnode{\drmsym{\char'315}} + \def\textdescendingnode{\drmsym{\char'314}} + \def\textdollarsign{\drmsym{\char'044}} + \def\textolddollarsign{\drmsym{\char'212}} + \def\textcentsign{\drmsym{\char'242}} + \def\textoldcentsign{\drmsym{\char'213}} + \def\textpoundsterling{\drmsym{\char'243}} + \def\textoldpoundsterling{\drmsym{\char'222}} + \def\textlira{\drmsym{\char'222}} + \def\texteuro{\drmsym{\char'277}} + \def\textyen{\drmsym{\char'245}} + \def\textbaht{\drmsym{\char'232}} + \def\textcolon{\drmsym{\char'215}} + \def\textdong{\drmsym{\char'226}} + \def\textflorin{\drmsym{\char'214}} + \def\textguarani{\drmsym{\char'220}} + \def\textnaira{\drmsym{\char'217}} + \def\textpeso{\drmsym{\char'221}} + \def\textruble{\drmsym{\char'221}} + \def\textwon{\drmsym{\char'216}} + \def\textcurrency{\drmsym{\char'244}} + \def\romone{\drmsym{\char'100}} + \def\romfive{\drmsym{\char'101}} + \def\romten{\drmsym{\char'102}} + \def\romfifty{\drmsym{\char'103}} + \def\romhundred{\drmsym{\char'104}} + \def\romfivehundred{\drmsym{\char'105}} + \def\romthousand{\drmsym{\char'106}} + \def\liningzero{\drmsym{\char'060}} + \def\liningone{\drmsym{\char'061}} + \def\liningtwo{\drmsym{\char'062}} + \def\liningthree{\drmsym{\char'063}} + \def\liningfour{\drmsym{\char'064}} + \def\liningfive{\drmsym{\char'065}} + \def\liningsix{\drmsym{\char'066}} + \def\liningseven{\drmsym{\char'067}} + \def\liningeight{\drmsym{\char'070}} + \def\liningnine{\drmsym{\char'071}} + \def\textnumero{\drmsym{\char'233}} + \def\textrefmark{\drmsym{\char'270}} + \def\textasterism{\drmsym{\char'302}} + \def\textfeminineordinal{\drmsym{\char'252}} + \def\textmasculineordinal{\drmsym{\char'272}} + \def\textsupone{\drmsym{\char'271}} + \def\textsuptwo{\drmsym{\char'262}} + \def\textsupthree{\drmsym{\char'263}} + \def\textpilcrowsolid{\drmsym{\char'231}} + \def\textpilcrowoutline{\drmsym{\char'266}} + \def\textsection{\drmsym{\char'247}} + \def\textdagger{\drmsym{\char'204}} + \def\textdag{\drmsym{\char'204}} + \def\dag{\drmsym{\char'204}} + \def\textdbldagger{\drmsym{\char'205}} + \def\textdbldag{\drmsym{\char'205}} + \def\dbldag{\drmsym{\char'205}} + \def\textpipe{\drmsym{\char'206}} + \def\textbrokenpipe{\drmsym{\char'246}} + \def\textprime{\drmsym{\char'264}} + \def\textdoubleprime{\drmsym{\char'303}} + \def\texttripleprime{\drmsym{\char'313}} + \def\textsqrt{\drmsym{\char'273}} + \def\textquarter{\drmsym{\char'274}} + \def\texthalf{\drmsym{\char'275}} + \def\textthreequarters{\drmsym{\char'276}} + \def\textthird{\drmsym{\char'304}} + \def\texttwothirds{\drmsym{\char'305}} + \def\textpermille{\drmsym{\char'207}} + \def\textperbiqua{\drmsym{\char'207}} + \def\textpertenmille{\drmsym{\char'230}} + \def\textpertriqua{\drmsym{\char'230}} + \def\textequals{\drmsym{\char'055}} + \def\textslash{\drmsym{\char'057}} + \def\texttimes{\drmsym{\char'326}} + \def\textdiv{\drmsym{\char'366}} + \def\textradiation{\drmsym{\char'161}} + \def\textradiationnocircle{\drmsym{\char'160}} + \def\textbiohazard{\drmsym{\char'163}} + \def\textbiohazardnocircle{\drmsym{\char'162}} + \def\texthighvoltage{\drmsym{\char'166}} + \def\texthighvoltagenotriangle{\drmsym{\char'165}} + \def\textgeneralwarning{\drmsym{\char'164}} + \def\textuparrow{\drmsym{\char'136}} + \def\textdownarrow{\drmsym{\char'137}} + \def\textleftarrow{\drmsym{\char'030}} + \def\textrightarrow{\drmsym{\char'031}} + \def\textrecipe{\drmsym{\char'223}} + \def\textintbang{\drmsym{\char'224}} + \def\textopenintbang{\drmsym{\char'225}} + \def\textbullet{\drmsym{\char'210}} + \def\textopenbullet{\drmsym{\char'236}} + \def\textheart{\drmsym{\char'174}} + \def\textopenheart{\drmsym{\char'175}} + \def\texteighthnote{\drmsym{\char'156}} + \def\textdiamond{\drmsym{\char'306}} + \def\textopendiamond{\drmsym{\char'307}} + \def\textlozenge{\drmsym{\char'307}} + \def\textdegree{\drmsym{\char'260}} + \def\texttilde{\drmsym{\char'176}} + \def\textasciitilde{\texttilde} + \def\tilde{\texttilde} + \def\textasciicircum{\drmsym{\char'002}} + \def\textdegreec{\drmsym{\char'211}} + \def\textrightupfleuron{\drmsym{\char'016}} + \def\textrightdownfleuron{\drmsym{\char'017}} + \def\textleftupfleuron{\drmsym{\char'020}} + \def\textleftdownfleuron{\drmsym{\char'021}} + \def\textupleftfleuron{\drmsym{\char'050}} + \def\textuprightfleuron{\drmsym{\char'051}} + \def\textdownrightfleuron{\drmsym{\char'077}} + \def\textdownleftfleuron{\drmsym{\char'107}} + \def\textsquaretulip{\drmsym{\char'023}} + \def\textsquaretulipside{\drmsym{\char'046}} + \def\textupdoubletulip{\drmsym{\char'024}} + \def\textdowndoubletulip{\drmsym{\char'027}} + \def\textrightdoubletulip{\drmsym{\char'036}} + \def\textleftdoubletulip{\drmsym{\char'037}} + \def\textupleftcornertulip{\drmsym{\char'053}} + \def\textuprightcornertulip{\drmsym{\char'072}} + \def\textlowleftcornertulip{\drmsym{\char'073}} + \def\textlowrightcornertulip{\drmsym{\char'110}} + \def\textupsingletuliplong{\drmsym{\char'111}} + \def\textdownsingletuliplong{\drmsym{\char'112}} + \def\textleftsingletuliplong{\drmsym{\char'113}} + \def\textrightsingletuliplong{\drmsym{\char'114}} + \def\textupsingletulip{\drmsym{\char'116}} + \def\textdownsingletulip{\drmsym{\char'121}} + \def\textleftsingletulip{\drmsym{\char'122}} + \def\textrightsingletulip{\drmsym{\char'123}} + \def\spearright{\drmsym{\char'124}} + \def\spearleft{\drmsym{\char'125}} + \def\horizspearext{\drmsym{\char'126}} + \def\spearup{\drmsym{\char'132}} + \def\speardown{\drmsym{\char'146}} + \def\vertspearext{\drmsym{\char'147}} + \def\fleurdelis{\drmsym{\char'157}} + \def\fleurdelys{\drmsym{\char'157}} + \def\fleurdelisdown{\drmsym{\char'167}} + \def\fleurdelysdown{\drmsym{\char'167}} + \def\fleurdelisleft{\drmsym{\char'316}} + \def\fleurdelysleft{\drmsym{\char'316}} + \def\fleurdelisright{\drmsym{\char'177}} + \def\fleurdelysright{\drmsym{\char'177}} + \def\woundcordleftext{\drmsym{\char'317}} + \def\woundcordrightext{\drmsym{\char'324}} + \def\woundcordleftend{\drmsym{\char'320}} + \def\woundcordrightend{\drmsym{\char'321}} + \def\woundcordleftendinv{\drmsym{\char'323}} + \def\woundcordrightendinv{\drmsym{\char'322}} +} +\ifnodefault\else\ifnodefaulttext\else + \drmsymbolredef +\fi\fi +\ifsymbolsonly\drmsymbolredef\fi +% \end{macrocode} +% Now, rather than require people to enter the Roman numeral +% macros by hand, we provide a command, |\romanize|, which +% takes as its only argument an Indo-Arabic numeral and +% converts it into a Roman numeral. This macro is a thin +% wrapper around one from the |modroman| package, and in +% fact requires |modroman| to work. +% \begin{macrocode} +\def\romanize#1{% + \RedefineMRmdclxvij{\romthousand}{\romfivehundred} + {\romhundred}{\romfifty}{\romten}{\romfive}{\romone}{\romone}% + \nbshortroman{#1}% +}% +% \end{macrocode} +% We also define a command for producing lining numerals +% rather than old-style figures, so that these long-winded +% command names don't need to be typed if lining numerals +% will be used frequently. It takes the number to be output +% as lining as its only argument. +% \begin{macrocode} +\def\liningnums#1{% + \drmsym{#1}% +}% +% \end{macrocode} +% Now we define the decorative tulip frame macro, as an +% example of the beautiful constructions which are possible +% with fleurons and other textual ornaments. +% \begin{macrocode} +\def\tulipframe#1{% + \vbox{% + \hbox to\linewidth{\hfil% + {\drmsym{\char'053}}% + {\drmsym{\char'111}}% + {\drmsym{\char'024}}% + {\drmsym{\char'111}}% + {\drmsym{\char'072}}\hfil}% + \vskip-0.5\baselineskip% + \hbox to\linewidth{\hfil% + #1% + \hfil% + }% + \vskip-0.5\baselineskip% + \hbox to\linewidth{\hfil% + {\drmsym{\char'073}}% + {\drmsym{\char'112}}% + {\drmsym{\char'027}}% + {\drmsym{\char'112}}% + {\drmsym{\char'110}}\hfil}% + }% +}% +% \end{macrocode} +% Next, we define the macros for the extensible rules. Lots +% of down-and-dirty \TeX\ stuff here. +% \begin{macrocode} +\newcount\counterA +\newcount\counterB +\newcount\iter +\newlength{\extcharwid} +\newlength{\leftcharwid} +\newlength{\rightcharwid} +\newlength{\greaterwid} +\def\extrule#1#2#3#4#5{% + \if#1h% + \settowidth{\extcharwid}{#5}% + \settowidth{\leftcharwid}{#3}% + \settowidth{\rightcharwid}{#4}% + \counterB=\numexpr\dimexpr#2\relax\relax% + \advance\counterB by-\leftcharwid% + \advance\counterB by-\rightcharwid% + \counterA=\dimexpr\extcharwid\relax% + \divide\counterB by\counterA% + \iter=0% + \noindent#3% + \loop% + \ifnum\iter<\counterB% + \advance\iter by 1% + #5% + \repeat% + #4% + \fi% + \if#1v% + \setbox0=\hbox{#3}% + \leftcharwid=\ht0\advance\leftcharwid by\dp0% + \setbox0=\hbox{#4}% + \rightcharwid=\ht0\advance\rightcharwid by\dp0% + \setbox0=\hbox{#5}% + \extcharwid=\ht0\advance\extcharwid by\dp0% + \ifdim\leftcharwid>\rightcharwid% + \greaterwid=\leftcharwid% + \else% + \greaterwid=\rightcharwid% + \fi\if\extcharwid>\greaterwid% + \greaterwid=\extcharwid% + \fi% + \counterB=\numexpr\dimexpr#2\relax\relax% + \advance\counterB by-\leftcharwid% + \advance\counterB by-\rightcharwid% + \counterA=\dimexpr\extcharwid\relax% + \divide\counterB by\counterA% + \iter=0% + \noindent\vbox to\dimexpr#2{\baselineskip=0pt% + \hbox to\greaterwid{\hfil#4\hfil}% + \loop% + \ifnum\iter<\counterB% + \advance\iter by 1% + \vss\hbox to\greaterwid{\hfil#5\hfil}% + \repeat% + \vss\hbox to\greaterwid{\hfil#3\hfil}}% + \fi% +}% +% \end{macrocode} +% Next, we move on to define the unreasonably complex and +% configurable ellipsis commands. First we define the +% |\drmelip|, then the four-dotted |\drmfelip|. +% \begin{macrocode} +\newlength{\drmelipgap}\setlength{\drmelipgap}{2.9pt} +\newlength{\drmelipbef}\setlength{\drmelipbef}{2.4pt} +\newlength{\drmelipaft}\setlength{\drmelipaft}{1.4pt} +\def\drmelipchar{.} +\def\drmelip{% + \hbox{% + \hbox to\the\drmelipbef{\hfil}% + \drmelipchar% + \hbox to\drmelipgap{\hfil}% + \drmelipchar% + \hbox to\drmelipgap{\hfil}% + \drmelipchar% + \hbox to\drmelipaft{\hfil}% + }% +}% +\newlength{\drmfelipbef}\setlength{\drmfelipbef}{0pt} +\newlength{\drmfelipaft}\setlength{\drmfelipaft}{\the\drmelipaft} +\newlength{\drmfelipwid} +\def\drmfelip{% + \hbox{% + \hbox to\the\drmfelipbef{\hfil}% + \drmelipchar% + \hbox to\drmelipgap{\hfil}% + \drmelipchar% + \hbox to\drmelipgap{\hfil}% + \drmelipchar% + \hbox to\drmelipgap{\hfil}% + \drmelipchar% + \hbox to\drmfelipaft{\hfil}% + }% +}% +% \end{macrocode} +% And that's the end. Thanks for reading, +% folks; please email me with any suggestions or improvements. +% +% \appendix +% +% \section{The Secret History: Building DRM} +% +% \lettrine{H}{ere you can get all} the answers to questions about DRM +% that you didn't have and never asked. This appendix is +% essentially an exercise in self-gratification, to explain +% a few things about the fonts and why I made some of the +% choices that I did. As such, it'll probably be +% interesting to few, if any; but here it all is anyway. +% +% \subsection{About the Name} +% \label{sub:aboutname} +% +% When I started this font, I was trying to ape an old-style +% Caslon specimen that I'd found on the Internet. (If you +% search for one, you'll doubtlessly find the one I was +% going for; it's littered all over the place.) You can +% still see certain traces of this, particularly in the long +% tail of the Q (there it is!), and in the serifs on the E +% and F. On the other hand, even at the very beginning, +% before the font had taken on a character of its own, I was +% doing a pretty poor job of imitating this other one. My +% serifs were fairly prominent, but only slightly bracketed; +% there was a pretty drastic distinction between thick and +% thin strokes; it had a vertical orientation. Before long, +% it was clear that I had a very different font. +% +% So the name was ``DRM,'' for ``Day Roman Modern.'' But +% this didn't really accurately describe the font, and it +% didn't keep this meaning for long. (Maybe a few days; the +% original files were titled ``dayroman,'' an even more +% inaccurate appellation.) I've since backronymed this to +% ``Don's Revised Modern,'' which still isn't strictly +% correct, but it's pretty well ensconced at the moment. +% There are a limited number of descriptors with those +% initials, and I've grown pretty fond of those initials; it +% would be difficult for me to think of the font with any +% other name. But if somebody has a better backronym, I'd +% love to hear it. +% +% \subsection{Why \MF?} +% \label{sub:whymf} +% +% So why \MF? Isn't \MF\ horribly out of date, +% unconscionably producing nasty, decrepit bitmapped glyphs +% instead of shiny, futuristic outlines? Doesn't it somehow +% involve hatred of mom's apple pie, summertime barbecues, +% and the girl next door? +% +% Well, in some ways \MF\ is certainly out of date. It's +% limited to eight bits (\liningnums{2}$^8$ characters), for example, and +% that limit can't be circumvented by any trivial means. +% Due to the brilliance of its author, it has several +% similar limits which, while seeming arbitrary and +% capricious to us today, were absolutely necessary for +% allowing \MF\ to run on the machines available at the time +% it was produced. There's really no denying this, and I'd +% be the last to try. +% +% On the other hand, \MF\ is not out of date for the reasons +% most people who eloquently pronounce its obsolescence believe +% it is. The bitmapped glyph issue, for example; there +% really is nothing wrong with this. In fact, in some ways +% it's a benefit. Scaling is not really an issue, +% particularly in this age when \MF\ can be run +% automatically when \TeX\ encounters a size that it doesn't +% already have on hand; we can easily acquire fonts of +% whatever size we need. And, much like \MF's eight-bit +% stricture, whatever memory benefits come from storing +% fonts as outlines rather than bitmaps is surely irrelevant +% in this day and age. +% +% Bitmaps are beneficial in that they remind us that optical +% sizing is still important; outline fonts have made us +% lazy, preventing the development of real font families +% with many optical sizes. Too many amateurs (a term I use +% without derision, and proudly apply to myself) think they +% can avoid designing optical sizes because their outlines +% can be automatically scaled. This leads to poor results. +% +% But most importantly, \MF\ makes writing +% parameter-based fonts easy. The \textb{bold} and +% \textl{light} versions of the DRM fonts, for example, were +% produced by modifying only a few parameters of the base +% DRM roman font; the actual letterforms remain the same. +% This is a powerful tool that assists greatly in the +% creation of \emph{families} of fonts. +% +% \MF\ also lends itself quite nicely to customization. As +% a command-line program, I can easily script it to produce +% proofs, or to produce real fonts for inclusion in test +% documents, or to produce font charts, or all of the above. +% For example, your author used scripts to compile proofs as +% well as working fonts to produce this documentation; it +% was relatively trivial to produce a script which would, +% inelegantly but quite effectively, output proof sheets and +% sample texts along with charts of each individual font, +% from simple roman text to quite complex math. Below is an +% example of the (rather messy, but functional) script I +% used to produce font charts and sample texts for the +% fonts: +% +% \begin{verbatim} +% #!/bin/bash +% # +AMDG +% +% re="^drm([m|b|bx|c|sym]*)([n|it|sl|sc]*)([0-9]{1,2})$"; +% ifmath="mmi"; +% ifmathsym="sy[0-9]"; +% font=$1; +% fname="drm"; +% fenc="T1"; +% commands="\\sample\\bye"; +% if [[ $font =~ $ifmath ]]; then +% fenc="OML"; +% commands="\\table\\math\\bye"; +% fi +% if [[ $font =~ $ifmathsym ]]; then +% fenc="OMS"; +% commands="\\table\\math\\bye"; +% fi +% [[ $font =~ $re ]] && fweight="${BASH_REMATCH[1]}" && +% fshape="${BASH_REMATCH[2]}" && fsize="${BASH_REMATCH[3]}"; +% if [[ $fshape == "" ]]; then +% fshape="m"; +% fi +% if [[ $fweight == "" ]]; then +% fweight="n"; +% elif [[ $fweight == "sym" ]]; then +% fweight="n"; +% fname="drmsym"; +% fi +% #echo "fweight = $fweight; fshape = $fshape; fsize = $fsize"; +% nfssfontin=$(cat <<ENDFONTIN +% $font +% $commands +% $fenc +% $fname +% $fweight +% $fshape +% $fsize +% $commands +% ENDFONTIN +% ) +% echo $nfssfontin; +% +% rm $1*pk; rm $1*gf; +% mf "\mode=localfont; input $1"; +% gftopk $1.600gf $1.pk; +% echo "$nfssfontin" | pdflatex nfssfont; +% \end{verbatim} +% +% This little gem took a single argument, the name of the +% font that I wanted compiled; it then determined the +% appropriate parameters to hand over to |nfssfont|, including +% what type of sample was needed (text or math), and +% compiled it for me, which meant that with a single command +% (|./allcomp fontname|) I could get a complete chart of +% the font I was working on, along with a sample text to +% help judge kerning and general appearance. Doing the same +% with more ``modern'' font programs, particularly GUI ones, +% is doubtlessly more difficult. +% +% Finally, pens. Pens are \emph{endlessly} superior to +% defining points along outlines. The degree to which +% grokking and employing \MF's pen metaphor simplified the +% task of drawing these characters, particularly the more +% calligraphic varieties thereof, simply cannot be +% adequately expressed. Defining points along outlines and +% connecting them with zero-width lines did fine for +% \emph{most} of the roman characters, but would have been +% painfully sluggish with, for example, the italic fonts. +% +% Your author emphasized ``most'' above for good reason: +% while the points-and-outlines approach worked quite +% effectively for the stately forms of roman characters, +% \emph{modifying} those characters was sometimes much more +% difficult. Take, for example, the very basic different +% between ``o'' and ``\o.'' Visually, of course, these are +% almost identical shapes, the latter simply having a line +% drawn through it; however, by outlines these shapes are so +% extremely different that drawing the latter would more +% easily be done from scratch than by a simple modification +% of the former. Using \MF's pen metaphor, though, the +% shape of ``\o'' could be drawn exactly as we would draw it +% on paper: by forming an ``o,'' and then drawing a slash +% through it. And so your author accomplished it. +% +% And though your author put off the development of italic +% until he'd become really proficient with \MF's pens, +% knowing that such intricate shapes as ``\textit{f}'' and +% ``\textit{Q}'' would be quite challenging with +% points-and-outlines, he was able to race through drawing +% the italics with ease, and wound up using \MF's pens much +% more frequently in the development of the remaining fonts +% than points-and-outlines, as drawing shapes with this +% metaphor is much more intuitive and easily visualized, at +% least to him, than the alternatives. +% +% \section{The \LaTeX\ Project Public License, v1.3c} +% \label{lppl} +% \MakePercentComment\input{lppl-1-3c.tex}\MakePercentIgnore +% +% \section{The SIL Open Font License, v1.1} +% \label{sil} +% +% Copyright \textcopyright\ 2014, Donald P. Goodman III +% (dgoodmaniii@gmail.com), with Reserved Font Name Don's +% Revised Modern (DRM). +% +% \input{ofl_v1-1.tex} +% +% \PrintIndex diff --git a/Master/texmf-dist/source/fonts/drm/drm.ins b/Master/texmf-dist/source/fonts/drm/drm.ins new file mode 100644 index 00000000000..fbfa3b00ba9 --- /dev/null +++ b/Master/texmf-dist/source/fonts/drm/drm.ins @@ -0,0 +1,64 @@ +% +AMDG This document was begun on 1E July 11EX, the feast +% of St. Apollinaris, M, and the Commemoration of St. +% Liborius, EC, and it is humbly dedicated to them and to +% the Immaculate Heart of Mary for their prayers, and to the +% Sacred Heart of Jesus for His mercy. +% +% This document is copyright 2014 by Donald P. Goodman, and is +% released publicly under the LaTeX Project Public License. The +% distribution and modification of this work is constrained by the +% conditions of that license. See +% http://www.latex-project.org/lppl.txt +% for the text of the license. This document is released +% under version 1.3 of that license, and this work may be distributed +% or modified under the terms of that license or, at your option, any +% later version. +% +% This work has the LPPL maintenance status 'maintained'. +% +% The Current Maintainer of this work is Donald P. Goodman +% (dgoodmaniii@gmail.com). +% +% This work consists of the files listed in drmfilelist.txt. + +\input docstrip.tex +%\usedir{fonts/drm} + +\preamble +This is a generated file. + +This document is copyright 2014 by Donald P. Goodman, and is +released publicly under the LaTeX Project Public License. The +distribution and modification of this work is constrained by the +conditions of that license. See + http://www.latex-project.org/lppl.txt +for the text of the license. This document is released +under version 1.3 of that license, and this work may be distributed +or modified under the terms of that license or, at your option, any +later version. + +This work has the LPPL maintenance status 'maintained'. + +The Current Maintainer of this work is Donald P. Goodman +(dgoodmaniii@gmail.com). + +This work consists of the files listed in drmfilelist.txt. +\endpreamble + +\keepsilent +\generate{\file{drm.sty}{\from{drm.dtx}{package}}} + +\Msg{******************************************************} +\Msg{*} +\Msg{* To finish the installation you have to move the} +\Msg{* following file into a directory searched by TeX:} +\Msg{*} +\Msg{* \space\space drm.sty} +\Msg{*} +\Msg{* To produce the documentation run the file drm.dtx} +\Msg{* through LaTeX.} +\Msg{*} +\Msg{* Happy TeXing!} +\Msg{******************************************************} + +\endbatchfile diff --git a/Master/texmf-dist/tex/latex/drm/drm.sty b/Master/texmf-dist/tex/latex/drm/drm.sty new file mode 100644 index 00000000000..12695f65d01 --- /dev/null +++ b/Master/texmf-dist/tex/latex/drm/drm.sty @@ -0,0 +1,742 @@ +%% +%% This is file `drm.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% drm.dtx (with options: `package') +%% This is a generated file. +%% +%% This document is copyright 2014 by Donald P. Goodman, and is +%% released publicly under the LaTeX Project Public License. The +%% distribution and modification of this work is constrained by the +%% conditions of that license. See +%% http://www.latex-project.org/lppl.txt +%% for the text of the license. This document is released +%% under version 1.3 of that license, and this work may be distributed +%% or modified under the terms of that license or, at your option, any +%% later version. +%% +%% This work has the LPPL maintenance status 'maintained'. +%% +%% The Current Maintainer of this work is Donald P. Goodman +%% (dgoodmaniii@gmail.com). +%% +%% This work consists of the files listed in drmfilelist.txt. + +\NeedsTeXFormat{LaTeX2e}[1999/12/01] +\ProvidesPackage{drm}[2015/01/01 v1.0 support for dozenal fonts] +\RequirePackage[LGR,OML,OMS,TS1,T1]{fontenc} +\RequirePackage{modroman} +\RequirePackage{amsmath} +\newif\ifnodefault\nodefaultfalse +\newif\ifnodefaultmath\nodefaultmathfalse +\newif\ifnodefaulttext\nodefaulttextfalse +\newif\ifsymbolsonly\symbolsonlyfalse +\DeclareOption{nodefault}{\nodefaulttrue\nodefaultmathtrue% +\nodefaulttexttrue} +\DeclareOption{nodefaultmath}{\nodefaultmathtrue} +\DeclareOption{nodefaulttext}{\nodefaulttexttrue} +\DeclareOption{symbolsonly}{\symbolsonlytrue\nodefaulttrue% +\nodefaulttexttrue\nodefaultmathtrue} +\ProcessOptions +\DeclareFontFamily{T1}{drm}{} +\DeclareFontFamily{TS1}{drm}{} +\DeclareFontFamily{LGR}{drm}{} +\DeclareFontShape{T1}{drm}{m}{n}{ <-7> drm6 <7> drm7 <8> drm8 +<9> drm9 <10-12> drm10 <12-13> drm12 <14-17> drm14 +<17-24> drm17 <24-> drm24 }{} +\DeclareFontShape{T1}{drm}{m}{sc}{<-7> drmsc6 <7> drmsc7 +<8> drmsc8 <9> drmsc9 <10-12> drmsc10 <12-14> drmsc12 +<14-17> drmsc14 <17-24> drmsc17 <24-> drmsc24 }{} +\DeclareFontShape{T1}{drm}{m}{tc}{<-7> drmtc6 <7> drmtc7 +<8> drmtc8 <9> drmtc9 <10-12> drmtc10 <12-14> drmtc12 +<14-17> drmtc14 <17-24> drmtc17 <24-> drmtc24 }{} +\DeclareFontShape{T1}{drm}{m}{sl}{<-7> drmsl6 <7> drmsl7 +<8> drmsl8 <9> drmsl9 <10-12> drmsl10 <12-14> drmsl12 +<14-17> drmsl14 <17-24> drmsl17 <24-> drmsl24 }{} +\DeclareFontShape{T1}{drm}{m}{it}{ <-7> drmit6 <7> drmit7 +<8> drmit8 <9> drmit9 <10-12> drmit10 <12-14> drmit12 +<14-17> drmit14 <17-24> drmit17 <24-> drmit24 }{} +\DeclareFontShape{T1}{drm}{m}{ui}{<-7> drmui6 <7> drmui7 +<8> drmui8 <9> drmui9 <10-12> drmui10 <12-14> drmui12 +<14-17> drmui14 <17-24> drmui17 <24-> drmui24 }{} +\DeclareFontShape{T1}{drm}{l}{n}{<-7> drml6 <7> drml7 +<8> drml8 <9> drml9 <10-12> drml10 <12-14> drml12 +<14-17> drml14 <17-24> drml17 <24-> drml24 }{} +\DeclareFontShape{T1}{drm}{b}{n}{<-7> drmb6 <7> drmb7 +<8> drmb8 <9> drmb9 <10-12> drmb10 <12-14> drmb12 +<14-17> drmb14 <17-24> drmb17 <24-> drmb24 }{} +\DeclareFontShape{T1}{drm}{bx}{n}{<-7> drmbx6 <7> drmbx7 +<8> drmbx8 <9> drmbx9 <10-12> drmbx10 <12-14> drmbx12 +<14-17> drmbx14 <17-24> drmbx17 <24-> drmbx24 }{} +\DeclareFontShape{TS1}{drm}{m}{n}{<-7> drmsym7 +<8> drmsym8 <9> drmsym9 <10-12> drmsym10 <12-14> drmsym12 +<14-17> drmsym14 <17-24> drmsym17 <24-> drmsym24 }{} +\DeclareFontShape{LGR}{drm}{m}{n}{<-> drmgrk10 }{} +\ifnodefault\else\ifnodefaulttext\else +\renewcommand\encodingdefault{T1} +\renewcommand\familydefault{drm} +\fi\fi +\def\tcshape{\fontshape{tc}\selectfont} +\def\texttc#1{{\tcshape#1}} +\def\uishape{\fontshape{ui}\selectfont} +\def\textui#1{{\uishape#1}} +\def\grktext{\fontencoding{LGR}\selectfont} +\def\textgrk#1{{\grktext#1}} +\def\lseries{\fontseries{l}\selectfont} +\def\textl#1{{\lseries#1}} +\def\bseries{\fontseries{b}\selectfont} +\def\textb#1{{\bseries#1}} +\DeclareFontFamily{OML}{drm}{} +\DeclareFontShape{OML}{drm}{m}{n}{ <-> drmmi10 }{} +\DeclareFontFamily{OMS}{drm}{} +\DeclareFontShape{OMS}{drm}{m}{n}{ <-> drmsy10 }{} +\DeclareFontFamily{OMX}{drm}{} +\DeclareFontShape{OMX}{drm}{m}{n}{ <-> drmomx10 }{} +\DeclareMathVersion{drmmath} +\ifnodefault\else\ifnodefaultmath\else +\SetSymbolFont{operators}{drmmath}{T1}{drm}{m}{n} +\SetSymbolFont{letters}{drmmath}{OML}{drm}{m}{n} +\DeclareSymbolFont{symbs}{TS1}{drm}{m}{n} +\SetSymbolFont{symbs}{drmmath}{TS1}{drm}{m}{n} +\DeclareSymbolFont{drmmathsy}{OMS}{drm}{m}{n} +\SetSymbolFont{drmmathsy}{drmmath}{OMS}{drm}{m}{n} +\DeclareSymbolFont{drmmathomx}{OMX}{drm}{m}{n} +\SetSymbolFont{drmmathomx}{drmmath}{OMX}{drm}{m}{n} +\fi\fi +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathAlphabet{\drmmathlets}{OML}{drm}{m}{n} +\SetMathAlphabet{\drmmathlets}{drmmath}{OML}{drm}{m}{n} +\DeclareMathAlphabet{\mathcal}{OMS}{drm}{m}{n} +\SetMathAlphabet{\mathcal}{drmmath}{OMS}{drm}{m}{n} +\fi\fi +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathSymbol{0}{0}{symbs}{48} +\DeclareMathSymbol{1}{0}{symbs}{49} +\DeclareMathSymbol{2}{0}{symbs}{50} +\DeclareMathSymbol{3}{0}{symbs}{51} +\DeclareMathSymbol{4}{0}{symbs}{52} +\DeclareMathSymbol{5}{0}{symbs}{53} +\DeclareMathSymbol{6}{0}{symbs}{54} +\DeclareMathSymbol{7}{0}{symbs}{55} +\DeclareMathSymbol{8}{0}{symbs}{56} +\DeclareMathSymbol{9}{0}{symbs}{57} +\fi\fi +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathSymbol{\Gamma}{0}{letters}{0} +\DeclareMathSymbol{\Delta}{0}{letters}{1} +\DeclareMathSymbol{\Theta}{0}{letters}{2} +\DeclareMathSymbol{\Lambda}{0}{letters}{3} +\DeclareMathSymbol{\Xi}{0}{letters}{4} +\DeclareMathSymbol{\Pi}{0}{letters}{5} +\DeclareMathSymbol{\Sigma}{0}{letters}{6} +\DeclareMathSymbol{\Upsilon}{0}{letters}{7} +\DeclareMathSymbol{\Phi}{0}{letters}{8} +\DeclareMathSymbol{\Psi}{0}{letters}{9} +\DeclareMathSymbol{\Omega}{0}{letters}{10} +\DeclareMathSymbol{\alpha}{0}{letters}{11} +\DeclareMathSymbol{\beta}{0}{letters}{12} +\DeclareMathSymbol{\gamma}{0}{letters}{13} +\DeclareMathSymbol{\delta}{0}{letters}{14} +\DeclareMathSymbol{\epsilon}{0}{letters}{15} +\DeclareMathSymbol{\zeta}{0}{letters}{16} +\DeclareMathSymbol{\eta}{0}{letters}{17} +\DeclareMathSymbol{\theta}{0}{letters}{18} +\DeclareMathSymbol{\iota}{0}{letters}{19} +\DeclareMathSymbol{\kappa}{0}{letters}{20} +\DeclareMathSymbol{\lambda}{0}{letters}{21} +\DeclareMathSymbol{\mu}{0}{letters}{22} +\DeclareMathSymbol{\nu}{0}{letters}{23} +\DeclareMathSymbol{\xi}{0}{letters}{24} +\DeclareMathSymbol{\pi}{0}{letters}{25} +\DeclareMathSymbol{\rho}{0}{letters}{26} +\DeclareMathSymbol{\sigma}{0}{letters}{27} +\DeclareMathSymbol{\tau}{0}{letters}{28} +\DeclareMathSymbol{\upsilon}{0}{letters}{29} +\DeclareMathSymbol{\phi}{0}{letters}{30} +\DeclareMathSymbol{\chi}{0}{letters}{31} +\DeclareMathSymbol{\psi}{0}{letters}{32} +\DeclareMathSymbol{\omega}{0}{letters}{33} +\DeclareMathSymbol{\varepsilon}{0}{letters}{34} +\DeclareMathSymbol{\vartheta}{0}{letters}{35} +\DeclareMathSymbol{\varpi}{0}{letters}{36} +\DeclareMathSymbol{\varrho}{0}{letters}{37} +\DeclareMathSymbol{\varsigma}{0}{letters}{38} +\DeclareMathSymbol{\varphi}{0}{letters}{39} +\fi\fi +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathSymbol{\leftharpoonup}{0}{letters}{40} +\DeclareMathSymbol{\leftharpoondown}{0}{letters}{41} +\DeclareMathSymbol{\rightharpoonup}{0}{letters}{42} +\DeclareMathSymbol{\rightharpoondown}{0}{letters}{43} +\DeclareMathSymbol{\triangleright}{0}{letters}{46} +\DeclareMathSymbol{\triangleleft}{0}{letters}{47} +\DeclareMathSymbol{\flat}{0}{letters}{91} +\DeclareMathSymbol{\natural}{0}{letters}{92} +\DeclareMathSymbol{\sharp}{0}{letters}{93} +\DeclareMathSymbol{\smile}{0}{letters}{94} +\DeclareMathSymbol{\frown}{0}{letters}{95} +\DeclareMathSymbol{\ell}{0}{letters}{96} +\DeclareMathSymbol{\imath}{0}{letters}{123} +\DeclareMathSymbol{\jmath}{0}{letters}{124} +\DeclareMathSymbol{\wp}{0}{letters}{125} +\fi\fi +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathSymbol{-}{2}{drmmathsy}{'000} +\DeclareMathSymbol{\cdot}{2}{drmmathsy}{'001} +\DeclareMathSymbol{\times}{2}{drmmathsy}{'002} +\DeclareMathSymbol{\ast}{2}{drmmathsy}{'003} +\DeclareMathSymbol{\div}{2}{drmmathsy}{'004} +\DeclareMathSymbol{\diamond}{2}{drmmathsy}{'005} +\DeclareMathSymbol{\pm}{2}{drmmathsy}{'006} +\DeclareMathSymbol{\mp}{2}{drmmathsy}{'007} +\DeclareMathSymbol{\oplus}{2}{drmmathsy}{'010} +\DeclareMathSymbol{\ominus}{2}{drmmathsy}{'011} +\DeclareMathSymbol{\otimes}{2}{drmmathsy}{'012} +\DeclareMathSymbol{\oslash}{2}{drmmathsy}{'013} +\DeclareMathSymbol{\odot}{2}{drmmathsy}{'014} +\DeclareMathSymbol{\bigcirc}{2}{drmmathsy}{'015} +\DeclareMathSymbol{\circ}{2}{drmmathsy}{'016} +\DeclareMathSymbol{\bullet}{2}{drmmathsy}{'017} +\DeclareMathSymbol{\asymp}{3}{drmmathsy}{'020} +\DeclareMathSymbol{\equiv}{3}{drmmathsy}{'021} +\DeclareMathSymbol{\subseteq}{3}{drmmathsy}{'022} +\DeclareMathSymbol{\supseteq}{3}{drmmathsy}{'023} +\DeclareMathSymbol{\leq}{3}{drmmathsy}{'024} +\DeclareMathSymbol{\geq}{3}{drmmathsy}{'025} +\DeclareMathSymbol{\preceq}{3}{drmmathsy}{'026} +\DeclareMathSymbol{\succeq}{3}{drmmathsy}{'027} +\DeclareMathSymbol{\sim}{3}{drmmathsy}{'030} +\DeclareMathSymbol{\approx}{3}{drmmathsy}{'031} +\DeclareMathSymbol{\subset}{3}{drmmathsy}{'032} +\DeclareMathSymbol{\supset}{3}{drmmathsy}{'033} +\DeclareMathSymbol{\ll}{3}{drmmathsy}{'034} +\DeclareMathSymbol{\gg}{3}{drmmathsy}{'035} +\DeclareMathSymbol{\prec}{3}{drmmathsy}{'036} +\DeclareMathSymbol{\succ}{3}{drmmathsy}{'037} +\DeclareMathSymbol{\simeq}{3}{drmmathsy}{'047} +\DeclareMathSymbol{\propto}{3}{drmmathsy}{'057} +\DeclareMathSymbol{\prime}{0}{drmmathsy}{'060} +\DeclareMathSymbol{'}{0}{drmmathsy}{'060} +\DeclareMathSymbol{\infty}{0}{drmmathsy}{'061} +\DeclareMathSymbol{\in}{0}{drmmathsy}{'062} +\DeclareMathSymbol{\ni}{0}{drmmathsy}{'063} +\DeclareMathSymbol{\bigtriangleup}{2}{drmmathsy}{'064} +\DeclareMathSymbol{\bigtriangledown}{2}{drmmathsy}{'065} +\DeclareMathSymbol{/}{2}{drmmathsy}{'066} +\DeclareMathSymbol{\forall}{2}{drmmathsy}{'070} +\DeclareMathSymbol{\exists}{2}{drmmathsy}{'071} +\DeclareMathSymbol{\neg}{2}{drmmathsy}{'072} +\DeclareMathSymbol{\emptyset}{2}{drmmathsy}{'073} +\DeclareMathSymbol{\Im}{0}{drmmathsy}{'074} +\DeclareMathSymbol{\Re}{0}{drmmathsy}{'075} +\DeclareMathSymbol{\top}{0}{drmmathsy}{'076} +\DeclareMathSymbol{\bot}{0}{drmmathsy}{'077} +\DeclareMathSymbol{\cup}{2}{drmmathsy}{'133} +\DeclareMathSymbol{\cap}{2}{drmmathsy}{'134} +\DeclareMathSymbol{\uplus}{2}{drmmathsy}{'135} +\DeclareMathSymbol{\wedge}{2}{drmmathsy}{'136} +\DeclareMathSymbol{\vee}{2}{drmmathsy}{'137} +\DeclareMathSymbol{\vdash}{3}{drmmathsy}{'140} +\DeclareMathSymbol{\dashv}{3}{drmmathsy}{'141} +\fi\fi +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathSymbol{\leftarrow}{0}{drmmathsy}{'040} +\DeclareMathSymbol{\rightarrow}{0}{drmmathsy}{'041} +\DeclareMathSymbol{\leftrightarrow}{0}{drmmathsy}{'044} +\DeclareMathSymbol{\nearrow}{0}{drmmathsy}{'045} +\DeclareMathSymbol{\searrow}{0}{drmmathsy}{'046} +\DeclareMathSymbol{\Leftarrow}{0}{drmmathsy}{'050} +\DeclareMathSymbol{\Rightarrow}{0}{drmmathsy}{'051} +\DeclareMathSymbol{\Leftrightarrow}{0}{drmmathsy}{'054} +\DeclareMathSymbol{\nwarrow}{0}{drmmathsy}{'055} +\DeclareMathSymbol{\swarrow}{0}{drmmathsy}{'056} +\DeclareMathSymbol{\wr}{2}{drmmathsy}{'157} +\DeclareMathSymbol{\surd}{0}{drmmathsy}{'160} +\DeclareMathSymbol{\amalg}{2}{drmmathsy}{'161} +\DeclareMathSymbol{\nabla}{0}{drmmathsy}{'162} +\DeclareMathSymbol{\sqcup}{2}{drmmathsy}{'164} +\DeclareMathSymbol{\sqcap}{2}{drmmathsy}{'165} +\DeclareMathSymbol{\sqsubseteq}{2}{drmmathsy}{'166} +\DeclareMathSymbol{\sqsupseteq}{2}{drmmathsy}{'167} +\DeclareMathSymbol{\dagger}{2}{drmmathsy}{'171} +\DeclareMathSymbol{\ddagger}{2}{drmmathsy}{'172} +\DeclareMathSymbol{:}{2}{operators}{'072} +\DeclareMathSymbol{;}{0}{operators}{'073} +\DeclareMathSymbol{.}{0}{letters}{'072} +\DeclareMathSymbol{,}{0}{operators}{'054} +\DeclareMathSymbol{\ldotp}{0}{letters}{'072} +\DeclareMathSymbol{\clubsuit}{0}{letters}{'174} +\DeclareMathSymbol{\diamondsuit}{0}{letters}{'175} +\DeclareMathSymbol{\heartsuit}{0}{letters}{'176} +\DeclareMathSymbol{\spadesuit}{0}{letters}{'177} +\DeclareMathSymbol{\partial}{0}{drmmathsy}{'100} +\fi\fi +\ifnodefault\else\ifnodefaultmath\else +\let\coprod\relax +\DeclareMathSymbol{\coprod}{\mathop}{drmmathomx}{"60} +\let\bigvee\relax +\DeclareMathSymbol{\bigvee}{\mathop}{drmmathomx}{"57} +\let\bigwedge\relax +\DeclareMathSymbol{\bigwedge}{\mathop}{drmmathomx}{"56} +\let\biguplus\relax +\DeclareMathSymbol{\biguplus}{\mathop}{drmmathomx}{"55} +\let\bigcap\relax +\DeclareMathSymbol{\bigcap}{\mathop}{drmmathomx}{"54} +\let\bigcup\relax +\DeclareMathSymbol{\bigcup}{\mathop}{drmmathomx}{"53} +\let\intop\relax +\DeclareMathSymbol{\intop}{\mathop}{drmmathomx}{"52} + \def\int{\intop\nolimits} +\let\prod\relax +\DeclareMathSymbol{\prod}{\mathop}{drmmathomx}{"51} +\let\sum\relax +\DeclareMathSymbol{\sum}{\mathop}{drmmathomx}{"50} +\let\bigotimes\relax +\DeclareMathSymbol{\bigotimes}{\mathop}{drmmathomx}{"4E} +\let\bigoplus\relax +\DeclareMathSymbol{\bigoplus}{\mathop}{drmmathomx}{"4C} +\let\bigodot\relax +\DeclareMathSymbol{\bigodot}{\mathop}{drmmathomx}{"4A} +\let\ointcup\relax +\DeclareMathSymbol{\ointop}{\mathop}{drmmathomx}{"48} + \def\oint{\ointop\nolimits} +\let\bigsqcup\relax +\DeclareMathSymbol{\bigsqcup}{\mathop}{drmmathomx}{"46} +\fi\fi +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathSymbol{|}{0}{drmmathsy}{'152} +\let\backslash\relax\DeclareMathSymbol{\backslash}{0}{drmmathsy}{'156} +\fi\fi +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathAccent{\vec}{\mathord}{letters}{126} +\DeclareMathAccent{\acute}{\mathalpha}{operators}{1} +\DeclareMathAccent{\hat}{\mathalpha}{operators}{2} +\DeclareMathAccent{\grave}{\mathalpha}{operators}{0} +\DeclareMathAccent{\check}{\mathalpha}{operators}{7} +\DeclareMathAccent{\bar}{\mathalpha}{operators}{9} +\DeclareMathAccent{\dot}{\mathalpha}{operators}{10} +\DeclareMathAccent{\ddot}{\mathalpha}{operators}{4} +\DeclareMathAccent{\breve}{\mathalpha}{operators}{8} +\DeclareMathAccent{\tilde}{\mathalpha}{operators}{3} +\fi\fi +\def\bigd#1{\bBigg@{#1}} +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathDelimiter{(}{\mathopen}{operators}{"28} +{drmmathomx}{"00} +\DeclareMathDelimiter{)}{\mathopen}{operators}{"29} +{drmmathomx}{"01} +\let\{\relax\let\}\relax +\DeclareMathDelimiter{\{}{\mathopen}{operators}{"7B} +{drmmathomx}{"08} +\DeclareMathDelimiter{\}}{\mathopen}{operators}{"7D} +{drmmathomx}{"09} +\DeclareMathDelimiter{[}{\mathopen}{operators}{"5B} +{drmmathomx}{"02} +\DeclareMathDelimiter{]}{\mathopen}{operators}{"5D} +{drmmathomx}{"03} +\DeclareMathDelimiter{\lfloor}{\mathopen}{drmmathsy}{"62} +{drmmathomx}{"04} +\DeclareMathDelimiter{\rfloor}{\mathclose}{drmmathsy}{"63} +{drmmathomx}{"05} +\DeclareMathDelimiter{\lceil}{\mathopen}{drmmathsy}{"64} +{drmmathomx}{"06} +\DeclareMathDelimiter{\rceil}{\mathclose}{drmmathsy}{"65} +{drmmathomx}{"07} +\DeclareMathDelimiter{\langle}{\mathopen}{drmmathsy}{"68} +{drmmathomx}{"0A} +\DeclareMathDelimiter{\rangle}{\mathclose}{drmmathsy}{"69} +{drmmathomx}{"0B} +\DeclareMathDelimiter{|}{\mathclose}{drmmathomx}{"0C} +{drmmathomx}{"0C} +\DeclareMathDelimiter{\vert}{\mathclose}{drmmathomx}{"0C} +{drmmathomx}{"0C} +\DeclareMathDelimiter{\|}{\mathclose}{drmmathomx}{"0D} +{drmmathomx}{"0D} +\DeclareMathDelimiter{\Vert}{\mathclose}{drmmathomx}{"0D} +{drmmathomx}{"0D} +\DeclareMathDelimiter{\uparrow}{\mathrel}{drmmathomx}{"78} +{drmmathomx}{"78} +\DeclareMathDelimiter{\downarrow}{\mathrel}{drmmathomx}{"79} +{drmmathomx}{"79} +\DeclareMathDelimiter{\updownarrow}{\mathrel}{drmmathsy}{"6C} +{drmmathomx}{"3F} +\DeclareMathDelimiter{\Uparrow}{\mathrel}{drmmathsy}{"2A} +{drmmathomx}{"7E} +\DeclareMathDelimiter{\Downarrow}{\mathrel}{drmmathsy}{"2B} +{drmmathomx}{"7F} +\DeclareMathDelimiter{\Updownarrow}{\mathrel}{drmmathsy}{"6D} +{drmmathomx}{"77} +\fi\fi +\ifnodefault\else\ifnodefaultmath\else +\DeclareMathRadical{\sqrtsign}{drmmathsy}{"70}{drmmathomx}{"70} +\DeclareRobustCommand\sqrt{\@ifnextchar[\@sqrt\sqrtsign} +\def\r@@t#1#2{ +\setbox\z@\hbox{$\m@th#1\sqrtsign{#2}$} +\dimen@\ht\z@ \advance\dimen@-\dp\z@ +\mkern5mu\raise.8\dimen@\copy\rootbox +\mkern-7mu\box\z@} +\fi\fi +\ifnodefault\else\ifnodefaultmath\else +\mathversion{drmmath} +\fi\fi +\def\drmsym#1{{\fontencoding{TS1}\selectfont\fontfamily{drm}\selectfont#1}} +\def\drmsymbolredef{ +\def\textbigcircle{\drmsym{\char'117}} +\def\textregistered{\drmsym{\char'256}} +\def\texttrademark{\drmsym{\char'227}} +\def\textservicemark{\drmsym{\char'237}} +\def\textsoundrecording{\drmsym{\char'255}} +\def\textcopyright{\drmsym{\char'251}} +\def\textcopyleft{\drmsym{\char'253}} +\def\textborn{\drmsym{\char'142}} +\def\textdied{\drmsym{\char'144}} +\def\textdivorced{\drmsym{\char'143}} +\def\textmarried{\drmsym{\char'155}} +\def\textleaf{\drmsym{\char'154}} +\def\textmale{\drmsym{\char'153}} +\def\textfemale{\drmsym{\char'145}} +\def\textcrusadecross{\drmsym{\char'130}} +\def\textcrusadecrossoutline{\drmsym{\char'131}} +\def\textlatincross{\drmsym{\char'144}} +\def\textlatincrossoutline{\drmsym{\char'134}} +\def\textgreekcross{\drmsym{\char'170}} +\def\textgreekcrossoutline{\drmsym{\char'171}} +\def\textsaltirecross{\drmsym{\char'172}} +\def\textsaltirecrossoutline{\drmsym{\char'173}} +\def\texteucharist{\drmsym{\char'120}} +\def\textstardavid{\drmsym{\char'140}} +\def\textstardavidsolid{\drmsym{\char'141}} +\def\textstardavidoutline{\drmsym{\char'151}} +\def\textsun{\drmsym{\char'330}} +\def\textsunvar{\drmsym{\char'331}} +\def\textwaxcrescent{\drmsym{\char'332}} +\def\textfullmoon{\drmsym{\char'333}} +\def\textwanecrescent{\drmsym{\char'334}} +\def\textnewmoon{\drmsym{\char'335}} +\def\textmercury{\drmsym{\char'336}} +\def\textearth{\drmsym{\char'337}} +\def\textterra{\drmsym{\char'337}} +\def\textearthvar{\drmsym{\char'340}} +\def\textterravar{\drmsym{\char'340}} +\def\textmars{\drmsym{\char'153}} +\def\textvenus{\drmsym{\char'145}} +\def\textjupiter{\drmsym{\char'341}} +\def\textsaturn{\drmsym{\char'342}} +\def\texturanus{\drmsym{\char'343}} +\def\texturanusvar{\drmsym{\char'344}} +\def\textneptune{\drmsym{\char'345}} +\def\textceres{\drmsym{\char'346}} +\def\textpallas{\drmsym{\char'347}} +\def\textjuno{\drmsym{\char'350}} +\def\textjunovar{\drmsym{\char'351}} +\def\textvesta{\drmsym{\char'352}} +\def\textvestavar{\drmsym{\char'353}} +\def\textastraea{\drmsym{\char'354}} +\def\textastraeavar{\drmsym{\char'355}} +\def\texthebe{\drmsym{\char'356}} +\def\textiris{\drmsym{\char'357}} +\def\textaries{\drmsym{\char'360}} +\def\textari{\drmsym{\char'360}} +\def\texttaurus{\drmsym{\char'361}} +\def\texttau{\drmsym{\char'361}} +\def\textgemini{\drmsym{\char'362}} +\def\textgem{\drmsym{\char'362}} +\def\textcancer{\drmsym{\char'363}} +\def\textcnc{\drmsym{\char'363}} +\def\textleo{\drmsym{\char'364}} +\def\textvirgo{\drmsym{\char'365}} +\def\textvir{\drmsym{\char'365}} +\def\textlibra{\drmsym{\char'367}} +\def\textlib{\drmsym{\char'367}} +\def\textscorpius{\drmsym{\char'370}} +\def\textsco{\drmsym{\char'370}} +\def\textsagittarius{\drmsym{\char'371}} +\def\textsgr{\drmsym{\char'371}} +\def\textcapricorn{\drmsym{\char'372}} +\def\textcap{\drmsym{\char'372}} +\def\textaquarius{\drmsym{\char'373}} +\def\textaqr{\drmsym{\char'373}} +\def\textpisces{\drmsym{\char'374}} +\def\textpsc{\drmsym{\char'374}} +\def\textpluto{\drmsym{\char'375}} +\def\textplutovar{\drmsym{\char'376}} +\def\textstar{\drmsym{\char'142}} +\def\textcomet{\drmsym{\char'377}} +\def\textquadrature{\drmsym{\char'310}} +\def\textopposition{\drmsym{\char'311}} +\def\textconjunction{\drmsym{\char'312}} +\def\textascendingnode{\drmsym{\char'315}} +\def\textdescendingnode{\drmsym{\char'314}} +\def\textdollarsign{\drmsym{\char'044}} +\def\textolddollarsign{\drmsym{\char'212}} +\def\textcentsign{\drmsym{\char'242}} +\def\textoldcentsign{\drmsym{\char'213}} +\def\textpoundsterling{\drmsym{\char'243}} +\def\textoldpoundsterling{\drmsym{\char'222}} +\def\textlira{\drmsym{\char'222}} +\def\texteuro{\drmsym{\char'277}} +\def\textyen{\drmsym{\char'245}} +\def\textbaht{\drmsym{\char'232}} +\def\textcolon{\drmsym{\char'215}} +\def\textdong{\drmsym{\char'226}} +\def\textflorin{\drmsym{\char'214}} +\def\textguarani{\drmsym{\char'220}} +\def\textnaira{\drmsym{\char'217}} +\def\textpeso{\drmsym{\char'221}} +\def\textruble{\drmsym{\char'221}} +\def\textwon{\drmsym{\char'216}} +\def\textcurrency{\drmsym{\char'244}} +\def\romone{\drmsym{\char'100}} +\def\romfive{\drmsym{\char'101}} +\def\romten{\drmsym{\char'102}} +\def\romfifty{\drmsym{\char'103}} +\def\romhundred{\drmsym{\char'104}} +\def\romfivehundred{\drmsym{\char'105}} +\def\romthousand{\drmsym{\char'106}} +\def\liningzero{\drmsym{\char'060}} +\def\liningone{\drmsym{\char'061}} +\def\liningtwo{\drmsym{\char'062}} +\def\liningthree{\drmsym{\char'063}} +\def\liningfour{\drmsym{\char'064}} +\def\liningfive{\drmsym{\char'065}} +\def\liningsix{\drmsym{\char'066}} +\def\liningseven{\drmsym{\char'067}} +\def\liningeight{\drmsym{\char'070}} +\def\liningnine{\drmsym{\char'071}} +\def\textnumero{\drmsym{\char'233}} +\def\textrefmark{\drmsym{\char'270}} +\def\textasterism{\drmsym{\char'302}} +\def\textfeminineordinal{\drmsym{\char'252}} +\def\textmasculineordinal{\drmsym{\char'272}} +\def\textsupone{\drmsym{\char'271}} +\def\textsuptwo{\drmsym{\char'262}} +\def\textsupthree{\drmsym{\char'263}} +\def\textpilcrowsolid{\drmsym{\char'231}} +\def\textpilcrowoutline{\drmsym{\char'266}} +\def\textsection{\drmsym{\char'247}} +\def\textdagger{\drmsym{\char'204}} +\def\textdag{\drmsym{\char'204}} +\def\dag{\drmsym{\char'204}} +\def\textdbldagger{\drmsym{\char'205}} +\def\textdbldag{\drmsym{\char'205}} +\def\dbldag{\drmsym{\char'205}} +\def\textpipe{\drmsym{\char'206}} +\def\textbrokenpipe{\drmsym{\char'246}} +\def\textprime{\drmsym{\char'264}} +\def\textdoubleprime{\drmsym{\char'303}} +\def\texttripleprime{\drmsym{\char'313}} +\def\textsqrt{\drmsym{\char'273}} +\def\textquarter{\drmsym{\char'274}} +\def\texthalf{\drmsym{\char'275}} +\def\textthreequarters{\drmsym{\char'276}} +\def\textthird{\drmsym{\char'304}} +\def\texttwothirds{\drmsym{\char'305}} +\def\textpermille{\drmsym{\char'207}} +\def\textperbiqua{\drmsym{\char'207}} +\def\textpertenmille{\drmsym{\char'230}} +\def\textpertriqua{\drmsym{\char'230}} +\def\textequals{\drmsym{\char'055}} +\def\textslash{\drmsym{\char'057}} +\def\texttimes{\drmsym{\char'326}} +\def\textdiv{\drmsym{\char'366}} +\def\textradiation{\drmsym{\char'161}} +\def\textradiationnocircle{\drmsym{\char'160}} +\def\textbiohazard{\drmsym{\char'163}} +\def\textbiohazardnocircle{\drmsym{\char'162}} +\def\texthighvoltage{\drmsym{\char'166}} +\def\texthighvoltagenotriangle{\drmsym{\char'165}} +\def\textgeneralwarning{\drmsym{\char'164}} +\def\textuparrow{\drmsym{\char'136}} +\def\textdownarrow{\drmsym{\char'137}} +\def\textleftarrow{\drmsym{\char'030}} +\def\textrightarrow{\drmsym{\char'031}} +\def\textrecipe{\drmsym{\char'223}} +\def\textintbang{\drmsym{\char'224}} +\def\textopenintbang{\drmsym{\char'225}} +\def\textbullet{\drmsym{\char'210}} +\def\textopenbullet{\drmsym{\char'236}} +\def\textheart{\drmsym{\char'174}} +\def\textopenheart{\drmsym{\char'175}} +\def\texteighthnote{\drmsym{\char'156}} +\def\textdiamond{\drmsym{\char'306}} +\def\textopendiamond{\drmsym{\char'307}} +\def\textlozenge{\drmsym{\char'307}} +\def\textdegree{\drmsym{\char'260}} +\def\texttilde{\drmsym{\char'176}} +\def\textasciitilde{\texttilde} +\def\tilde{\texttilde} +\def\textasciicircum{\drmsym{\char'002}} +\def\textdegreec{\drmsym{\char'211}} +\def\textrightupfleuron{\drmsym{\char'016}} +\def\textrightdownfleuron{\drmsym{\char'017}} +\def\textleftupfleuron{\drmsym{\char'020}} +\def\textleftdownfleuron{\drmsym{\char'021}} +\def\textupleftfleuron{\drmsym{\char'050}} +\def\textuprightfleuron{\drmsym{\char'051}} +\def\textdownrightfleuron{\drmsym{\char'077}} +\def\textdownleftfleuron{\drmsym{\char'107}} +\def\textsquaretulip{\drmsym{\char'023}} +\def\textsquaretulipside{\drmsym{\char'046}} +\def\textupdoubletulip{\drmsym{\char'024}} +\def\textdowndoubletulip{\drmsym{\char'027}} +\def\textrightdoubletulip{\drmsym{\char'036}} +\def\textleftdoubletulip{\drmsym{\char'037}} +\def\textupleftcornertulip{\drmsym{\char'053}} +\def\textuprightcornertulip{\drmsym{\char'072}} +\def\textlowleftcornertulip{\drmsym{\char'073}} +\def\textlowrightcornertulip{\drmsym{\char'110}} +\def\textupsingletuliplong{\drmsym{\char'111}} +\def\textdownsingletuliplong{\drmsym{\char'112}} +\def\textleftsingletuliplong{\drmsym{\char'113}} +\def\textrightsingletuliplong{\drmsym{\char'114}} +\def\textupsingletulip{\drmsym{\char'116}} +\def\textdownsingletulip{\drmsym{\char'121}} +\def\textleftsingletulip{\drmsym{\char'122}} +\def\textrightsingletulip{\drmsym{\char'123}} +\def\spearright{\drmsym{\char'124}} +\def\spearleft{\drmsym{\char'125}} +\def\horizspearext{\drmsym{\char'126}} +\def\spearup{\drmsym{\char'132}} +\def\speardown{\drmsym{\char'146}} +\def\vertspearext{\drmsym{\char'147}} +\def\fleurdelis{\drmsym{\char'157}} +\def\fleurdelys{\drmsym{\char'157}} +\def\fleurdelisdown{\drmsym{\char'167}} +\def\fleurdelysdown{\drmsym{\char'167}} +\def\fleurdelisleft{\drmsym{\char'316}} +\def\fleurdelysleft{\drmsym{\char'316}} +\def\fleurdelisright{\drmsym{\char'177}} +\def\fleurdelysright{\drmsym{\char'177}} +\def\woundcordleftext{\drmsym{\char'317}} +\def\woundcordrightext{\drmsym{\char'324}} +\def\woundcordleftend{\drmsym{\char'320}} +\def\woundcordrightend{\drmsym{\char'321}} +\def\woundcordleftendinv{\drmsym{\char'323}} +\def\woundcordrightendinv{\drmsym{\char'322}} +} +\ifnodefault\else\ifnodefaulttext\else +\drmsymbolredef +\fi\fi +\ifsymbolsonly\drmsymbolredef\fi +\def\romanize#1{% +\RedefineMRmdclxvij{\romthousand}{\romfivehundred} +{\romhundred}{\romfifty}{\romten}{\romfive}{\romone}{\romone}% +\nbshortroman{#1}% +}% +\def\liningnums#1{% +\drmsym{#1}% +}% +\def\tulipframe#1{% +\vbox{% +\hbox to\linewidth{\hfil% +{\drmsym{\char'053}}% +{\drmsym{\char'111}}% +{\drmsym{\char'024}}% +{\drmsym{\char'111}}% +{\drmsym{\char'072}}\hfil}% +\vskip-0.5\baselineskip% +\hbox to\linewidth{\hfil% +#1% +\hfil% +}% +\vskip-0.5\baselineskip% +\hbox to\linewidth{\hfil% +{\drmsym{\char'073}}% +{\drmsym{\char'112}}% +{\drmsym{\char'027}}% +{\drmsym{\char'112}}% +{\drmsym{\char'110}}\hfil}% +}% +}% +\newcount\counterA +\newcount\counterB +\newcount\iter +\newlength{\extcharwid} +\newlength{\leftcharwid} +\newlength{\rightcharwid} +\newlength{\greaterwid} +\def\extrule#1#2#3#4#5{% +\if#1h% +\settowidth{\extcharwid}{#5}% +\settowidth{\leftcharwid}{#3}% +\settowidth{\rightcharwid}{#4}% +\counterB=\numexpr\dimexpr#2\relax\relax% +\advance\counterB by-\leftcharwid% +\advance\counterB by-\rightcharwid% +\counterA=\dimexpr\extcharwid\relax% +\divide\counterB by\counterA% +\iter=0% +\noindent#3% +\loop% +\ifnum\iter<\counterB% +\advance\iter by 1% +#5% +\repeat% +#4% +\fi% +\if#1v% +\setbox0=\hbox{#3}% +\leftcharwid=\ht0\advance\leftcharwid by\dp0% +\setbox0=\hbox{#4}% +\rightcharwid=\ht0\advance\rightcharwid by\dp0% +\setbox0=\hbox{#5}% +\extcharwid=\ht0\advance\extcharwid by\dp0% +\ifdim\leftcharwid>\rightcharwid% +\greaterwid=\leftcharwid% +\else% +\greaterwid=\rightcharwid% +\fi\if\extcharwid>\greaterwid% +\greaterwid=\extcharwid% +\fi% +\counterB=\numexpr\dimexpr#2\relax\relax% +\advance\counterB by-\leftcharwid% +\advance\counterB by-\rightcharwid% +\counterA=\dimexpr\extcharwid\relax% +\divide\counterB by\counterA% +\iter=0% +\noindent\vbox to\dimexpr#2{\baselineskip=0pt% +\hbox to\greaterwid{\hfil#4\hfil}% +\loop% +\ifnum\iter<\counterB% +\advance\iter by 1% +\vss\hbox to\greaterwid{\hfil#5\hfil}% +\repeat% +\vss\hbox to\greaterwid{\hfil#3\hfil}}% +\fi% +}% +\newlength{\drmelipgap}\setlength{\drmelipgap}{2.9pt} +\newlength{\drmelipbef}\setlength{\drmelipbef}{2.4pt} +\newlength{\drmelipaft}\setlength{\drmelipaft}{1.4pt} +\def\drmelipchar{.} +\def\drmelip{% +\hbox{% +\hbox to\the\drmelipbef{\hfil}% +\drmelipchar% +\hbox to\drmelipgap{\hfil}% +\drmelipchar% +\hbox to\drmelipgap{\hfil}% +\drmelipchar% +\hbox to\drmelipaft{\hfil}% +}% +}% +\newlength{\drmfelipbef}\setlength{\drmfelipbef}{0pt} +\newlength{\drmfelipaft}\setlength{\drmfelipaft}{\the\drmelipaft} +\newlength{\drmfelipwid} +\def\drmfelip{% +\hbox{% +\hbox to\the\drmfelipbef{\hfil}% +\drmelipchar% +\hbox to\drmelipgap{\hfil}% +\drmelipchar% +\hbox to\drmelipgap{\hfil}% +\drmelipchar% +\hbox to\drmelipgap{\hfil}% +\drmelipchar% +\hbox to\drmfelipaft{\hfil}% +}% +}% +\endinput +%% +%% End of file `drm.sty'. |