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.
84 lines
2.9 KiB
84 lines
2.9 KiB
% exaccent.sty: for extended accent.
|
|
% Copyright 2002 FUKUI Rei
|
|
%
|
|
% This program may be distributed and/or modified under the
|
|
% conditions of the LaTeX Project Public License, either version 1.2
|
|
% of this license or (at your option) any later version.
|
|
% The latest version of this license is in
|
|
% http://www.latex-project.org/lppl.txt
|
|
% and version 1.2 or later is part of all distributions of LaTeX
|
|
% version 1999/12/01 or later.
|
|
%
|
|
% This program consists of all files listed in Manifest.txt.
|
|
%
|
|
% Version 1.0 1996/06/10
|
|
%
|
|
% This file is based on `tsipa.sty' for TSIPA created by
|
|
% KOBAYASHI Hajime, FUKUI Rei and SHIRAKAWA Shun.
|
|
%
|
|
|
|
\NeedsTeXFormat{LaTeX2e}
|
|
\ProvidesPackage{exaccent}[1996/06/10 extended accent Version 1.0]
|
|
|
|
{\slshape\xdef\@slshapename{\f@shape}}
|
|
{\itshape\xdef\@itshapename{\f@shape}}
|
|
|
|
\newcommand\upperaccent{\@ifnextchar[{\upper@accent a\empty}%
|
|
{\upper@accent a\empty[\z@]}}
|
|
\newcommand\Upperaccent{\@ifnextchar[{\upper@accent b\empty}%
|
|
{\upper@accent b\empty[\z@]}}
|
|
\newcommand\loweraccent{\@ifnextchar[{\lower@accent a\empty}%
|
|
{\lower@accent a\empty[\z@]}}
|
|
\newcommand\Loweraccent{\@ifnextchar[{\lower@accent b\empty}%
|
|
{\lower@accent b\empty[\z@]}}
|
|
|
|
\def\upper@accent#1#2[#3]#4#5{{\leavevmode
|
|
\setbox\z@\hbox{#5}\setbox\@ne\hbox{#2%
|
|
\if a#1\char#4\else#4\fi}%
|
|
\ifx\empty#5\empty\box\@ne\else
|
|
\@getaccshift \let\c@lcshift\@pshift
|
|
\dimen\z@\ht\@ne
|
|
\ifdim\ht\@ne>1ex \advance\dimen\z@ -1ex \else
|
|
\ifdim\ht\@ne=\z@ \dimen\z@\dp\@ne \fi\fi
|
|
\vbox{\hsize\wd\z@\offinterlineskip
|
|
\hb@xt@\z@{\@accshift{#3}\hb@xt@\wd\z@{%
|
|
\hss\vbox to \dimen\z@{\hbox{\box\@ne}\vss}\hss}\hss}
|
|
\kern#3
|
|
\hbox{#5}}\fi}}
|
|
|
|
\def\lower@accent#1#2[#3]#4#5{{\leavevmode
|
|
\setbox\z@\hbox{#5}\setbox\@ne\hbox{#2%
|
|
\if a#1\char#4\else#4\fi}%
|
|
\ifx\empty#5\empty\box\@ne\else
|
|
\@getaccshift \let\c@lcshift\s@bshift
|
|
\dimen\z@\ht\@ne
|
|
\ifdim\ht\@ne>1ex \advance\dimen\z@ -1.1ex \else
|
|
\ifdim\ht\@ne=\z@ \dimen\z@\dp\@ne \fi\fi
|
|
\vtop{\hsize\wd\z@\offinterlineskip
|
|
\hbox{#5}
|
|
\kern#3
|
|
\hbox{\@accshift{#3}\hb@xt@\wd\z@{%
|
|
\hss\vbox to \dimen\z@{\hbox{\box\@ne}\vss}\hss}}}\fi}}
|
|
|
|
\newcommand\@getaccshift{\def\@accshift##1{}%
|
|
\ifx\f@shape\@slshapename\let\@accshift\@accshiftsl\fi
|
|
\ifx\f@shape\@itshapename\let\@accshift\@accshiftsl\fi}
|
|
|
|
\newcommand\@accshiftsl[1]{\c@lcshift{#1}\kern-.16667\dimen\@ne}
|
|
|
|
\newcommand\@pshift[1]{%
|
|
\dimen\@ne-\ht\z@ % get height of the box to be accented
|
|
\advance\dimen\@ne -#1% % add margin between the letter and accent
|
|
\ifdim\ht\@ne>1ex
|
|
\advance\dimen\@ne 1ex\else
|
|
\ifdim\ht\@ne=\z@
|
|
\advance\dimen\@ne -\dp\@ne\fi\fi}
|
|
|
|
\newcommand\s@bshift[1]{%
|
|
\dimen\@ne\dp\z@ % get depth of the box to be accented
|
|
\ifdim\ht\@ne>\z@
|
|
\advance\dimen\@ne \ht\@ne\fi % add ht of the accent
|
|
\ifdim\ht\@ne>1ex
|
|
\advance\dimen\@ne #1\fi} % add margin between the letter and accent
|
|
|
|
\endinput
|
|
|