You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
96 lines
4.1 KiB
96 lines
4.1 KiB
%%
|
|
%% 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'.
|
|
|