diff options
author | Norbert Preining <norbert@preining.info> | 2022-06-12 03:00:56 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2022-06-12 03:00:56 +0000 |
commit | 86d0c4c6729cfb43e13fb29790810c3cc2521806 (patch) | |
tree | a22220c1b5432f0c37a91f070cf061eb20991f8b /fonts/psfonts/ly1/plain/texnansi.tex | |
parent | 040c2af2b17f76a6f7e97a17ddbe0eee645508d4 (diff) |
CTAN sync 202206120300
Diffstat (limited to 'fonts/psfonts/ly1/plain/texnansi.tex')
-rw-r--r-- | fonts/psfonts/ly1/plain/texnansi.tex | 378 |
1 files changed, 378 insertions, 0 deletions
diff --git a/fonts/psfonts/ly1/plain/texnansi.tex b/fonts/psfonts/ly1/plain/texnansi.tex new file mode 100644 index 0000000000..73c75e1559 --- /dev/null +++ b/fonts/psfonts/ly1/plain/texnansi.tex @@ -0,0 +1,378 @@ +% Copyright 2010--2018 TeX Users Group. +% Copyright 1994--1997 Y&Y, Inc. + +% Released under the LaTeX Project Public License, any version. + +% ============================================================================ +% Code to allow plain TeX and LaTeX to fully exploit `texnansi.vec' encoding +% (TeX 'n ANSI) VERSION 2.8 (2018 May 25) +% ============================================================================ + +% \input texnansi in TeX source when using fonts with `TeX n ANSI' encoding. + +% Note that a lot of code that already exists in plain.tex is commented out +% --- it is included here merely for reference. + +% `plain' TeX - and `lplain' TeX - have accents hard-wired to certain codes. +% When a font is encoded differently, compound characters and accents move. +% This file deals with this for TeX 'n ANSI encoding. + +% NOTE: Default is to use the 58 ready-made accented/composite characters +% that occur in text fonts directly, using the macros defined below. +% To instead build them by overprinting, use \buildcomposites. +% To instead link to them via pseudo ligatures, use \usecomposites. + +% NOTE: texnansi.vec is designed to avoid char codes 0, 9, 10, 13, 32, 127 +% since some brain-dead software has trouble with some of these... + +% NOTE: definitions have embedded numbers that depend on the chosen encoding +% These will need to be changed if you use an encoding other than `TEXNANSI' + +% --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- +% First, protect against style files that make quotedbl `active' + +\chardef\dblcode=\catcode`\" % save catcode of quotedbl +\catcode`\"=12 % make quotedbl `other' + +\chardef\atcode=\catcode`\@ % save catcode of atsign +\catcode`\@=11 % make atsign `letter' +% --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- + +% NOTE: plain TeX (and LaTeX) has the accent character positions hardwired to: + +% 16 for `dotlessi', 17 for `dotlessj', 18 for `grave', +% 19 for `acute', 20 for `caron', 21 for `breve', +% 22 for `macron', 23 for `ring', 24 for `cedilla', +% 25 for `germandbls', 26 for `ae', 27 for `oe', +% 28 for `oslash', 29 for `AE', 30 for 'OE', +% 31 for `Oslash', 94 for `circumflex', 95 for `dotaccent', +% 125 for `hungarumlaut', 126 for `tilde', 127 for `dieresis', +% The *real* troublesome ones are `dotaccent' and `hungarumlaut' +% --- and CM fonts do not have `ogonek' --- which we add here. +% (see page 356 of the TeX book for additional information) + +% --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- + +% \ae, \oe, \o, \AE, \OE, \O, \ss are in same place as in TeX text + +% Following constructed from pieces in CM, but exist in Type 1 text fonts + +\def\aa{^^e5} \def\AA{^^c5} % aring (229), Aring (197) +% \def\cc{^^e7} \def\CC{^^c7} % ccedilla (231), Ccedilla (199) + +% NOTE: \cc may conflict with `carbon copy' in letter.sty ... + +\def\l{^^90} \def\L{^^80} % lslash (144), Lslash (128) + +% TEXNANSI also has the Icelandic characters: + +\def\th{^^fe} \def\TH{^^de} % thorn (254), Thorn (222) +\def\dh{^^f0} \def\DH{^^d0} % eth (240), Eth (208) + +\def\pounds{^^a3} \def\copyright{^^a9} % 163 and 169 +\def\registered{^^ae} \def\trademark{^^99} % 174 and 153 +% \def\dag{^^86} \def\ddag{^^87} % dagger (134), daggerdbl (135) +\def\S{^^a7} \def\P{^^b6} % section (167), paragraph (182) + +% Make it more convenient to use { } _ | \ glyphs direct from text font ? + +% \chardef\{=`\{ \chardef\}=`\} \chardef\_=`\_ +% \chardef\|=`\| \chardef\backslash=`\\ + +% --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- + +% Following set up for the 58 accented characters/composites in text fonts: + +% aacute, acircumflex, adieresis, agrave, aring, atilde, ccedilla, +% eacute, ecircumflex, edieresis, egrave, iacute, icircumflex, +% idieresis, igrave, ntilde, oacute, ocircumflex, odieresis, ograve, otilde, +% scaron, uacute, ucircumflex, udieresis, ugrave, yacute, ydieresis, zcaron, +% Aacute, Acircumflex, Adieresis, Agrave, Aring, Atilde, Ccedilla, +% Eacute, Ecircumflex, Edieresis, Egrave, Iacute, Icircumflex, +% Idieresis, Igrave, Ntilde, Oacute, Ocircumflex, Odieresis, Ograve, Otilde, +% Scaron, Uacute, Ucircumflex, Udieresis, Ugrave, Yacute, Ydieresis, Zcaron, + +\def\`#1{% grave +\if#1a^^e0\else% \char224 +\if#1e^^e8\else% \char232 +\if#1i^^ec\else% \char236 +\if#1o^^f2\else% \char242 +\if#1u^^f9\else% \char249 +\if#1A^^c0\else% \char192 +\if#1E^^c8\else% \char200 +\if#1I^^cc\else% \char204 +\if#1O^^d2\else% \char210 +\if#1U^^d9\else% \char217 +% \if#1{\i}^^ec\else% \char236 +\if#1\i^^ec\else% \char236 +{\accent18 #1}% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} + +\def\'#1{% acute +\if#1a^^e1\else% \char225 +\if#1e^^e9\else% \char233 +\if#1i^^ed\else% \char237 +\if#1o^^f3\else% \char243 +\if#1u^^fa\else% \char250 +\if#1y^^fd\else% \char253 +\if#1A^^c1\else% \char193 +\if#1E^^c9\else% \char201 +\if#1I^^cd\else% \char205 +\if#1O^^d3\else% \char211 +\if#1U^^da\else% \char218 +\if#1Y^^dd\else% \char221 +% \if#1{\i}^^ed\else% \char237 +\if#1\i^^ed\else% \char237 +{\accent19 #1}% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} + +\def\^#1{% circumflex +\if#1a^^e2\else% \char226 +\if#1e^^ea\else% \char234 +\if#1i^^ee\else% \char238 +\if#1o^^f4\else% \char244 +\if#1u^^fb\else% \char251 +\if#1A^^c2\else% \char194 +\if#1E^^ca\else% \char202 +\if#1I^^ce\else% \char206 +\if#1O^^d4\else% \char212 +\if#1U^^db\else% \char219 +% \if#1{\i}^^ee\else% \char238 +\if#1\i^^ee\else% \char238 +{\accent94 #1}% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} + +\def\~#1{% tilde +\if#1a^^e3\else% \char227 +\if#1n^^f1\else% \char241 +\if#1o^^f5\else% \char245 +\if#1A^^c3\else% \char195 +\if#1N^^d1\else% \char209 +\if#1O^^d5\else% \char213 +{\accent126 #1}% +\fi\fi\fi\fi\fi\fi} + +\def\"#1{% dieresis +\if#1a^^e4\else% \char228 +\if#1e^^eb\else% \char235 +\if#1i^^ef\else% \char239 +\if#1o^^f6\else% \char246 +\if#1u^^fc\else% \char252 +\if#1y^^ff\else% \char255 +\if#1A^^c4\else% \char196 +\if#1E^^cb\else% \char203 +\if#1I^^cf\else% \char207 +\if#1O^^d6\else% \char214 +\if#1U^^dc\else% \char220 +\if#1Y^^9f\else% \char159 +% \if#1{\i}^^ef\else% \char239 +\if#1\i^^ef\else% \char239 +% {\accent127 #1}% +{\accent168 #1}% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} + +\def\v #1{% caron +\if#1s^^9a\else% \char154 +\if#1z^^9d\else% \char157 +\if#1S^^8a\else% \char138 +\if#1Z^^8d\else% \char141 +{\accent20 #1}% +\fi\fi\fi\fi} + +\def\r #1{% ring +\if#1a^^e5\else% \char229 +\if#1A^^c5\else% \char197 +{\accent23 #1}% +\fi\fi} + +\def\c #1{% cedilla +\if#1c^^e7\else% \char231 +\if#1C^^c7\else% \char199 +{\setbox0\hbox{#1}\ifdim\ht0=1ex\accent24 #1% + \else{\ooalign{\hidewidth\char24\hidewidth\crcr\unhbox0}}\fi}% +\fi\fi} + +\def\H#1{{\accent6 #1}}% hungarumlaut % not in 125 +\def\u#1{{\accent21 #1}}% breve + +% dotaccent and macron have to be treated differently in AMS TeX + +\ifx\amstexloaded@\relax% +\def\D#1{{\accent5 #1}} % dotaccent % not in 95 +\def\B#1{{\accent22 #1}} % macron +\let\graveaccent\` +\let\acuteaccent\' +\let\tildeaccent\~ +\let\hataccent\^ +\let\underscore\_ +\else +\def\.#1{{\accent5 #1}} % dotaccent % not in 95 +\def\=#1{{\accent22 #1}}\fi % macron + +% underline (using macron at 22) +\def\b#1{\oalign{#1\crcr\hidewidth + \vbox to.2ex{\hbox{\char22}\vss}\hidewidth}}% + +% ogonek (using ogonek at 7) +\def\k#1{\setbox0\hbox{#1}\ifdim\ht0=1ex\accent7 #1% + \else{\ooalign{\hidewidth\char7\hidewidth\crcr\unhbox0}}\fi}% + +% --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- + +% For backward compatability, provide for use of font with TeX's \accent: +% (It is however generally better to use ready-made accented characters, since +% \accent creates explicit kerning, which breaks the hyphenation machinery) +% NOTE: Use \buildcomposites only if you want to force accented/composite +% characters to be constructed by `overprinting' base and accent. + +\def\buildcomposites{% +% following four lines are for TeX n ANSI encoding only +\def\.##1{{\accent5 ##1}}% dotaccent % not in 95 +\def\H##1{{\accent6 ##1}}% hungarumlaut % not in 125 +\def\k##1{{\accent7 ##1}}% ogonek % not in CM fonts +\def\"##1{{\accent168 ##1}}% dieresis % alternate to 127 +% following are plain TeX defaults (needed only to undo \usecomposites) +\def\`##1{{\accent18 ##1}}% grave +\def\'##1{{\accent19 ##1}}% acute +\def\^##1{{\accent94 ##1}}% circumflex +\def\~##1{{\accent126 ##1}}% tilde +\def\=##1{{\accent22 ##1}}% macron +\def\v##1{{\accent20 ##1}}% caron +\def\u##1{{\accent21 ##1}}% breve +% \def\"##1{{\accent127 ##1}}% dieresis % use 168 instead +% underline and cedilla accents (macron at 22, cedilla at 24) +\def\b##1{\oalign{##1\crcr\hidewidth + \vbox to.2ex{\hbox{\char22}\vss}\hidewidth}}% +\def\c##1{\setbox0\hbox{##1}\ifdim\ht0=1ex\accent24 ##1% + \else{\ooalign{\hidewidth\char24\hidewidth\crcr\unhbox0}}\fi}% +} + +% --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- + +% USING READY-MADE ACCENTED CHARACTERS: +% We can also use pre-built accented character using pseudo ligatures --- +% provided the TFM files for the text fonts have them wired in. +% The following assumes that the TFM files have the required pseudo-ligatures. +% Use -vadj on the command line with AFMtoTFM to set up these pseudo-ligatures. +% This only works for the 58 ready-made accented/composite characters. + +\def\usecomposites{% +\chardef\`=18 % grave +\chardef\'=19 % acute +\chardef\^=94 % circumflex +\chardef\~=126 % tilde +\chardef\"=127 % dieresis % must match TFM, hence do *not* use 168 here +\chardef\c=24 % cedilla % only for ccedilla, Ccedilla +\chardef\v=20 % caron % only for scaron, zcaron, Scaron, Zcaron +\chardef\r=23 % ring % non-standard, for Aring and aring +% and some extra goodies +\chardef\.=5 % dotaccent % no standard accented chars use this +\chardef\H=6 % hungarumlaut % no standard accented chars use this +\chardef\k=7 % ogonek % no standard accented chars use this +\chardef\u=21 % breve % no standard accented chars use this +\chardef\==22 % macron % no standard accented chars use this +% \chardef\i=16 % dotlessi +} + +% NOTE: To use the above scheme, use \'a, NOT \'{a}, and \c c, NOT \c{c}. + +% --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- + +% \buildcomposites % build composites by overprinting base and accent +% \usecomposites % use 58 ready-made composites via pseudo ligatures + +% Default is to use 58 ready-made composites, and build others by overprinting. + +% --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- + +% Changes required in math macros when roman font is reencoded to `texnansi'. +% (An alternative is to draw the accents from the math fonts) + +% Most accents are in same place as in TeX text encoding (except dotaccent) + +\def\usetextaccents{ +% \def\grave{\mathaccent"7012 } % 18 grave +% \def\acute{\mathaccent"7013 } % 19 acute +% \def\hat{\mathaccent"705E } % 94 circumflex +% \def\tilde{\mathaccent"707E } % 126 tilde +% \def\ddot{\mathaccent"707F } % 127 dieresis +\def\ddot{\mathaccent"70A8 } % 168 dieresis +% \def\bar{\mathaccent"7016 } % 22 macron +% \def\check{\mathaccent"7014 } % 20 caron +% \def\breve{\mathaccent"7015 } % 21 breve +\def\dot{\mathaccent"7005 } % 5 dotaccent +} + +% Do not redefine accents in math mode when using MathTime, +% since MathTime uses accents in the math fonts - not those in the text font + +% In LaTeX 2e check whether mathtime package has been loaded, +% otherwise check whether \MTMI is defined + +\ifx\@ifpackageloaded\undefined\ifx\MTMI\undefined\usetextaccents\fi +\else\@ifpackageloaded{mathtime}{}{\usetextaccents}\fi + +% ************************************************************************** + +% If you want to use < for `guilsinglleft' and > for `guilsinglright' +% then uncomment the following lines: + +% \catcode`\<=\active \chardef<=139 +% \catcode`\>=\active \chardef>=155 + +% If you use < for `exclamdown', > for `questiondown', and | for `emdash' +% then uncomment the following lines: + +% \catcode`\<=\active \chardef<=161 +% \catcode`\>=\active \chardef>=191 +% \catcode`\|=\active \chardef|=151 + +% \chardef\lq=96 \chardef\rq=39 + +% Note that \lq and \rq also provide access to ` and ' + +\catcode`\@=\atcode % restore original catcode of atsign + +\catcode`\"=\dblcode % restore original catcode of quotedbl + +% If you use " for quotedblright then uncomment the following: + +% \catcode`\"=\active \chardef"=148 + +% For proper hyphenation of words with accented characters we need to let +% TeX know how to translate words with accented characters to lower case. +% Hence define \lccode so that one can use them in \hyphenation{...} +% Just for fun, we also define \uccode, and set the \catcode to letter... + +% Mostly in ISO Latin 1, accented characters (and a few special characters) +% occur in upper case form in the range 192 - 222, which is offset +% by 32 from the corresponding lower case forms in the range 224 - 254. + +\bgroup +\newcount\n\newcount\m\n=224\m=192 +\loop\ifnum\n<255 +\global\catcode\n=11\global\catcode\m=11 +\global\lccode\n=\n\global\lccode\m=\n +\global\uccode\m=\m\global\uccode\n=\m +\advance\n by1\advance\m by1\repeat +\egroup + +% Then there are just a few odd ones in TEXNANSI that don't fit this pattern + +\catcode140=11\catcode156=11 % OE, oe +\lccode140=156\lccode156=156 +\uccode140=140\uccode156=140 +\catcode159=11\catcode255=11 % Ydieresis, ydieresis +\lccode159=255\lccode255=255 +\uccode159=159\uccode255=159 +\catcode138=11\catcode154=11 % Scaron, scaron +\lccode138=154\lccode154=154 +\uccode138=138\uccode154=138 +\catcode141=11\catcode157=11 % Zcaron, zcaron +\lccode141=157\lccode157=157 +\uccode157=141\uccode141=141 +\catcode128=11\catcode144=11 % Lslash, lslash +\lccode128=144\lccode144=144 +\uccode144=128\uccode128=128 + +\endinput |