summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/polski/ot1patch.sty
blob: b59a709d89f9caa8f0322bc9b27a385a71b786ce (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
%%
%% This is file `ot1patch.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% ot1patch.dtx  (with options: `package')
%% 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%                                                                      %%
%%                        Package ot1patch                              %%
%%                                                                      %%
%% Purpose: to provide best possible substitutes for Polish national    %%
%%          characters using OT1 Computer Modern Roman fonts            %%
%%                                                                      %%
%%                                                                      %%
%% Copyright (c) by Marcin Woli\'nski                      <1997/06/18> %%
%%                  wolinski@gust.org.pl                                %%
%%                                                                      %%
%%                                                                      %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%                                                                      %%
%% The package may be used freely, but you are not allowed to modify    %%
%% this file.  If you wish to make any changes please make a copy       %%
%% under a different name.                                              %%
%%                                                                      %%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  \def\fileversion{v 0.3}
  \def\docdate{1997/05/16}
  \def\filedate{1997/10/08}
\NeedsTeXFormat{LaTeX2e}[1994/12/01]
\ProvidesPackage{ot1patch}[\filedate\space\fileversion\space
                     A patch for some OT1 characters (MW)]
\dimendef\pl@left=0 \dimendef\pl@down=1
\dimendef\pl@right=2 \dimendef\pl@temp=3
\def\@sob#1#2#3#4#5{%
  \setbox0\hbox{#1}\setbox1\hbox{$_\mathchar'454$}\setbox2\hbox{p}%
  \pl@right=#2\wd0 \advance\pl@right by-#3\wd1
  \pl@down=#5\ht1 \advance\pl@down by-#4\ht0
  \pl@left=\pl@right \advance\pl@left by\wd1
  \pl@temp=-\pl@down \advance\pl@temp by\dp2 \dp1=\pl@temp
  \leavevmode
  \kern\pl@right\lower\pl@down\box1\kern-\pl@left #1}
\def\@iIuUogonek#1{%
        \ifx i#1\@sob i{.66}{.20}{0}{.90}\else
        \ifx I#1\@sob I{.80}{.50}{0}{.90}\else
        \ifx u#1\@sob u{.66}{.20}{0}{.90}\else
        \ifx U#1\@sob U{.60}{.35}{0}{.90}\else
        \@sob {#1}{.50}{.35}{0}{.90}\fi
        \fi \fi \fi
        }
\DeclareTextCommandDefault\k[1]{%
        \ifx a#1\@sob a{.66}{.20}{0}{.90}\else
        \ifx A#1\@sob A{.80}{.50}{0}{.90}\else
        \ifx e#1\@sob e{.50}{.35}{0}{.93}\else
        \ifx E#1\@sob E{.60}{.35}{0}{.90}\else
        \@iIuUogonek{#1}%
        \fi \fi \fi \fi
   }
\def\if@ttfont#1#2{\setbox0=\hbox{\char'40}\ifdim\dp0>0pt#1\else#2\fi}
\def\@spb#1#2#3#4#5{%
  \setbox0\hbox{#1}\setbox2\hbox{\char'023}%
  \pl@right=#2\wd0 \advance\pl@right by-#3\wd2
  \pl@down=#5\ht2 \advance\pl@down by-#4\ht0
  \pl@left=\pl@right \advance\pl@left by\wd2
  \ht2=\pl@down \dp2=-\pl@down
  \leavevmode
  \kern\pl@right\lower\pl@down\box2\kern-\pl@left #1}
\DeclareTextCommand\l{OT1}{%
  \if@ttfont{\@spb l{.45}{.5}{.4}{.8}}%
    {{\char32l}}}
\DeclareTextCommand\L{OT1}{%
  \if@ttfont{\@spb L{.23}{.5}{.4}{.8}}%
    {\leavevmode\setbox0\hbox{L}\hbox to\wd0{\hss\char32L}}}
\def\@skb#1#2#3#4#5{%
  \setbox0\hbox{#1}\setbox1\hbox{\char'056}%
  \pl@right=#2\wd0 \advance\pl@right by-#3\wd1
  \pl@down=#5\ht1 \advance\pl@down by-#4\ht0
  \pl@left=\pl@right \advance\pl@left by\wd1
  \leavevmode
  \kern\pl@right\lower\pl@down\box1\kern-\pl@left #1}
\DeclareTextCompositeCommand\.{OT1}z{%
  \if@ttfont{\@skb z{.5}{.5}{1.2}{0}}%
    {{\accent'137z}}}
\DeclareTextCompositeCommand\.{OT1}Z{%
  \if@ttfont{\@skb Z{.5}{.5}{1.1}{0}}%
    {{\accent'137Z}}}
\DeclareTextCommandDefault\guillemotleft
    {\leavevmode\raise.3ex
        \hbox{$\scriptscriptstyle\langle\!\langle$}}
\DeclareTextCommandDefault\guillemotright
    {\leavevmode\raise.3ex
        \hbox{$\scriptscriptstyle\rangle\!\rangle$}}
\endinput
%%
%% End of file `ot1patch.sty'.