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'.
|
