cm-plchr

1. % CM-PLCHR.PPT % Copmputer Modern - PoLish CHaRacters for Polish Plain TeX % Janusz S. Bie\'n % 1990-02-16 % dalsze komentarze za \endinput % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % From is GERMAN.TEX or GERMAN.DOC or GERMAN.STY, as of 16 May 1988, % \ifundefined{protect} \ifx\protect\undefined % \then define it \let\protect=\relax \fi {\catcode`\@=11 % \makeatletter \gdef\allowhyphens{\penalty\@M \hskip\z@skip} % {\nobreak \hskip 0pt plus 0pt\relax} % ... \gdef\set@low@box#1{\setbox1\hbox{,}\setbox\z@\hbox{#1}\dimen\z@\ht\z@ \advance\dimen\z@ -\ht1 \setbox\z@\hbox{\lower\dimen\z@ \box\z@}\ht\z@\ht1 \dp\z@\dp1} % (this lowers the german left quotes to the same level as the comma.) \gdef\@glqq{{\ifhmode \edef\@SF{\spacefactor\the\spacefactor}\else \let\@SF\empty \fi \leavevmode \set@low@box{''}\box\z@\kern-.04em\allowhyphens\@SF\relax}} \gdef\glqq{\protect\@glqq} \gdef\@grqq{\ifhmode \edef\@SF{\spacefactor\the\spacefactor}\else \let\@SF\empty \fi \kern-.07em``\kern.07em\@SF\relax} \gdef\grqq{\protect\@grqq} \gdef\@glq{{\ifhmode \edef\@SF{\spacefactor\the\spacefactor}\else \let\@SF\empty \fi \leavevmode \set@low@box{'}\box\z@\kern-.04em\allowhyphens\@SF\relax}} \gdef\glq{\protect\@glq} \gdef\@grq{\kern-.07em`\kern.07em} \gdef\grq{\protect\@grq} \gdef\@flqq{\ifhmode \edef\@SF{\spacefactor\the\spacefactor}\else \let\@SF\empty \fi \ifmmode \ll \else \leavevmode \raise .2ex \hbox{$\scriptscriptstyle \ll $}\fi \@SF\relax} \gdef\flqq{\protect\@flqq} \gdef\@frqq{\ifhmode \edef\@SF{\spacefactor\the\spacefactor}\else \let\@SF\empty \fi \ifmmode \gg \else \leavevmode \raise .2ex \hbox{$\scriptscriptstyle \gg $}\fi \@SF\relax} \gdef\frqq{\protect\@frqq} \gdef\@flq{\ifhmode \edef\@SF{\spacefactor\the\spacefactor}\else \let\@SF\empty \fi \ifmmode < \else \leavevmode \raise .2ex \hbox{$\scriptscriptstyle < $}\fi \@SF\relax} \gdef\flq{\protect\@flq} \gdef\@frq{\ifhmode \edef\@SF{\spacefactor\the\spacefactor}\else \let\@SF\empty \fi \ifmmode > \else \leavevmode \raise .2ex \hbox{$\scriptscriptstyle > $}\fi \@SF\relax} \gdef\frq{\protect\@frq} } %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % zmiana nazw \let\pql\glqq \def\pqr{''} \let\fql\flqq \let\fqr\frqq % niezmienione: \glq, \grq, \flq, \frq %\endinput %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % to powinno by"c w formacie: \newdimen\plak \newdimen\plAk \newdimen\plek \newdimen\plEk \newdimen\plal \newdimen\plAl \newdimen\plel \newdimen\plEl \newdimen\plad \newdimen\plAd \newdimen\pled \newdimen\plEd \newdimen\plaw \newdimen\plAw \newdimen\plew \newdimen\plEw \newdimen\pllk \newdimen\plLk \newdimen\plzk \newdimen\plZk \newdimen\plll \newdimen\plLl \newdimen\plzr \newdimen\plZr % \def\ogonekbox#1{% \hbox{\setbox0\hbox{\ogonekfont\ogonekchar}\dp0 #1\box0}} \chardef\ogonekchar'054% \lhook \def\diakryt#1{\relax \leavevmode \ifx a#1a\kern\plak\lower\plal\ogonekbox{\plad}\kern\plaw\else \ifx A#1A\kern\plAk\lower\plAl\ogonekbox{\plAd}\kern\plAw\else \ifx c#1\accent'023 c\else \ifx C#1\accent'023 C\else \ifx e#1e\kern\plek\lower\plel\ogonekbox{\pled}\kern\plew\else \ifx E#1E\kern\plEk\lower\plEl\ogonekbox{\plEd}\kern\plEw\else \ifx l#1\poprzeczka\else \ifx L#1\Poprzeczka\else \ifx n#1\accent'023 n\else \ifx N#1\accent'023 N\else \ifx o#1\accent'023 o\else \ifx O#1\accent'023 O\else \ifx r#1\kropka\else \ifx R#1\Kropka\else \ifx s#1\accent'023 s\else \ifx S#1\accent'023 S\else \ifx z#1\accent'023 z\else \ifx Z#1\accent'023 Z\else \errmessage{niepoprawna sekwencja: diakryt litera} \fi\fi\fi\fi\fi \fi\fi\fi\fi\fi \fi\fi\fi\fi\fi \fi\fi\fi } \def\tpoprzeczka{\char'40l} \def\tPoprzeczka{\setbox0=\hbox{L}\hbox to \wd0{\hss\char'40L}} \def\ttpoprzeczka{l\kern\pllk\lower\plll\hbox{\char'023}} \def\ttPoprzeczka{L\kern\plLk\lower\plLl\hbox{\char'023}} \def\tkropka{\accent'137z} \def\tKropka{\accent'137Z} \def\ttkropka{z\kern\plzk\raise\plzr\hbox{\char'056}} \def\ttKropka{Z\kern\plZk\raise\plZr\hbox{\char'056}} \def\tlay#1{% \font\ogonekfont=#1 \let\poprzeczka\tpoprzeczka \let\Poprzeczka\tPoprzeczka \let\kropka\tkropka \let\Kropka\tKropka} \def\ttlay#1{% \font\ogonekfont=#1 \let\poprzeczka\ttpoprzeczka \let\Poprzeczka\ttPoprzeczka \let\kropka\ttkropka \let\Kropka\ttKropka} % % warto"sci prowizoryczne \plak-.21em \plAk-.21em \plek-.26em \plEk-.26em \plal.79ex \plAl.79ex \plel.77ex \plEl.77ex \plad0ex \plAd0ex \pled0ex \plEd0ex \pllk-.45em \plLk-.5em \plzk-.5em \plZk-.5em \plll.3ex \plLl.3ex \plzr1.2ex \plZr1.8ex \tlay{cmmi7} % % \catcode`"\active \let"\diakryt \endinput % konflikt z BRAILLE.PPT % (LPLAIN.TEX) % Here is a list of the characters that have been specially catcoded: \def\dospecials{\do\ \do\\\do\{\do\}\do\$\do\&% \do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~\do\"} % (not counting ascii null, tab, linefeed, formfeed, return, delete) % Each symbol in the list is preceded by \do, which can be defined % if you want to do something to every item in the list. % Quotation mark added by J.S. Bie\'n % % % % \endinput % % Autor: Janusz S. Bie"n % Instytut Informatyki % Uniwersytet Warszawski % Pa"lac Kultury i Nauki p. 838 % tel. 200211 w. 2364 % % 8?-??-?? wersja pierwotna TeX1.1/Pascal 360 % 8?-??-?? wersja IBM PC p. Hanna Ko"lodziejska % Cahiers GUTenberg n. 0 (1988) % 87-11-11 zamiana instrukcji na makrodefinicje % (istotne dla \mark itp.) % 88-06-08 zmiana @ na " % zmiana ekstensji z .TEX na .STY % 88-06-22 \lhook jako ogonek (wg Jerzego Rylla) % 88-09-14 zmiana diakrytu z " na trefl (CtrlE, "05) % umo"rliwienie zmiany diakrytu % dodanie \relax - p. TeXbook s. 240 % zmiana font"ow zgodna z dawnym PL.TEX % zmiana pude"l na makrodefinicje % wg Hanki Kolodziejskiej % - u"latwia standardow"a zmian"e font"ow % L z poprzeczk"a i Z z kropk"a tak"re w foncie tt % (ustawienie prowizoryczne) % TENRM ustawienie ogonka wg Jerzego Rylla % poza tym ustawienie ogonka prowizoryczne % wysoko"sci znak"ow akcentowanych prowizoryczne % 88-12-05 zmiana diakrytu z trefla na " % (BiBTeX nie akceptuje trefla) % wydzielenie zmiany font"ow w OLPLFNTS.STY % 88-12-06 konwersja zapis"ow heksadecymalnych na oktalne % dla unikni"ecia konflikt"ow z aktywnym " % (istotne np. przy wczytywaniu *.TOC) % 88-12-14 dodanie definicji \tlay i \ttlay % (stosowane w LFONTS.TEX) % rozdzielenie PL.TEX i PL.STY % (konflikt z zapisem heksadecymalnym % w LATEX.TEX i LFONTS.TEX) % 88-12-15 wprowadzenie parametru do \tlay i\ttlay % 88-12-30 sparametryzowanie L z poprzeczk"a i Z z kropk"a % 89-02-02 skorygowanie szeroko"sci liter % % mo"rliwe uzupe"lnienia: % kerning p. Alonzo Gariepy % TUGboat 1(88) s.66 % % p"ojd"z, ki"n-"re t"e chmurno"s"c w g"l"ab flaszy\par P"OJD"Z, KI"N-"RE T"E CHMURNO"S"C W G"L"AB FLASZY