From fe42f14592a869d9eb04e6bedbf28054c7c2559d Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Tue, 11 Apr 2017 21:13:38 +0000
Subject: actuarialangle (11apr17)

git-svn-id: svn://tug.org/texlive/trunk@43751 c570f23f-e606-0410-a88d-b1316a301751
---
 .../tex/latex/actuarialangle/actuarialangle.sty    | 203 +++++++++------------
 1 file changed, 85 insertions(+), 118 deletions(-)

(limited to 'Master/texmf-dist/tex/latex/actuarialangle/actuarialangle.sty')

diff --git a/Master/texmf-dist/tex/latex/actuarialangle/actuarialangle.sty b/Master/texmf-dist/tex/latex/actuarialangle/actuarialangle.sty
index 6c79423ec53..23d426b3d3e 100644
--- a/Master/texmf-dist/tex/latex/actuarialangle/actuarialangle.sty
+++ b/Master/texmf-dist/tex/latex/actuarialangle/actuarialangle.sty
@@ -1,125 +1,92 @@
 %%
-%% This file is put in the Public Domain by Vincent Goulet.
+%% This is file `actuarialangle.sty',
+%% generated with the docstrip utility.
 %%
-%% Original author of the code (and comments past this header) is
-%% unknown.
+%% The original source files were:
 %%
-%% This package defines a single command \actuarialangle to typeset
-%% nice looking "angles" in present value of an annuity symbols common
-%% in actuarial and financial notation.
-%%
-%% USAGE
-%%
-%% In math mode
-%%
-%%   \actuarialangle{n}  
-%%
-%% to typeset "angle n". For a complete present value symbol,
-%% something like
-%%
-%%   a_{\actuarialangle{n}}
-%%
-%% SHORTCUTS
-%%
-%% You will most likely want to use the following shortcuts:
-%%
-%% \angl  for \actuarialangle
-%% \angln for \angl{n}
-%% \anglr for \angl{r}
-%%
-\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{actuarialangle}
-
-\catcode`\@=11 
-\def\actuarialangle{\mathpalette\act@angle}
-%
-% The operation of \mathpalette causes \actuarialangle{30} to expand
-% to a mathchoice. This ensures that proper sizing will be done if
-% \angle is ever used outside of a first-level subscript:
-%
-% \mathchoice{%
-% {\act@angle\displaystyle{30}}%
-% {\act@angle\textstyle{30}}%
-% {\act@angle\scriptstyle{30}}%
-% {\act@angle\scriptscriptstyle{30}}%
-% }
-%
-\def\act@angle#1#2{%
-\mathord{%
-\mkern1mu % Add a bit of preceding space
-\vbox{\hrule \hbox{\vbox{%
-% This amount of vertical space is the normal space for \overline in a
-% subscript:
-\kern3\fontdimen8\scriptfont\thr@@
-\hbox{$#1#2\m@th$}}%
-% Make the right-hand rule extend down to the depth of a parenthesis
-% even if the symbol under the angle does not have a descender:
-\setbox\z@\hbox{$#1()$}\vrule depth\dp\z@}}%
-\mkern1mu}% Add a bit of following space 
-}% end \act@angle
-%
-% \topprecedence puts a precedence number above an item, smashed so
-% that the apparent height of the item is its normal height.
-%
-\def\topprecedence#1#2{\mathpalette{\preced@ t{}{#1}}{#2}}
-%
-% Put a multiplier in the empty set of braces to increase
-% the spacing between the precedence number and the
-% symbol to which it applies, e.g.
-%
-% \def\topprecedence#1#2{\mathpalette{\preced@ t{2.5}{#1}}{#2}}
-%
-% This also applies for \botprecedence and \vartopprecedence.
-% If it is desired that all precedence numbers fall at the
-% same height, regardless of whether there is an hrule between
-% them and the symbol to which they apply, then make
-% \topprecedence the same as \vartopprecedence.
-%
-\def\botprecedence#1#2{\mathpalette{\preced@ b{}{#1}}{#2}}
-%
-% \vartopprecedence provides extra space below the top
-% symbol, to accommodate an intervening hrule.
-%
-\def\vartopprecedence#1#2{\mathpalette{\preced@ t3{#1}}{#2}}
-%
-% In \preced@, #1 is `t' for top or `b' for bottom, #2 is a
-% multiplier for the space between the top and bottom symbols (may
-% be empty), #3 is the first argument from the user, #4 is
-% \displaystyle or \textstyle or \scriptstyle or
-% \scriptscriptstyle, from \mathpalette, and #5 is the second
-% argument given by the user. This peculiar ordering of the
-% arguments is done to work around the restriction of \mathpalette
-% that it only reads 2 arguments.
-%
-\def\preced@#1#2#3#4#5{%
-% Measure the arguments:
-\setbox\tw@\hbox{$\m@th#4#3$}%
-\setbox\z@\hbox{$\m@th#4#5$}\dimen@\wd\z@
-\vbox{% to\ht\z@{%
-\baselineskip\z@skip
-% \lineskip is set using AMSTeX's \ex@, if available, for a slight
-% refinement in the spacing if this macro is used in eightpoint
-% text. If \ex@ is not available, \p@ is used.
-\lineskip#2\ifx\UNDEFINED\ex@\p@\else\ex@\fi\relax
-\lineskiplimit\lineskip 
-\if b#1\relax\box\z@\else\vss\fi
-\hbox to\dimen@{\hss\unhbox\tw@\hss}%
-\if t#1\relax\box\z@\else\vss\fi
-}% end \vbox
-}% end \preced@
-% Restore the category code of the @ character:
-\catcode`\@=11
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%To get a little more space after stuff under the angle, define \angl 
-% in the following way:
-%
-\def\angl#1{{\actuarialangle{{#1}\mkern2mu}}}
-%
-%
+%% actuarialangle.dtx  (with options: `package')
+%% 
+%% This is a generated file.
+%% 
+%% Copyright (C) 2017 Vincent Goulet
+%% 
+%% This file may be distributed and/or modified under the conditions
+%% of the LaTeX Project Public License, either version 1.3c 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.3c or later is part of all distributions of LaTeX
+%% version 2006/05/20 or later.
+%% 
+%% This work has the LPPL maintenance status `maintained'.
+%% 
+%% The Current Maintainer of this work is Vincent Goulet
+%% <vincent.goulet@act.ulaval.ca>.
+%% 
+%% This work consists of the files actuarialangle.dtx and
+%% actuarialangle.ins and the derived files listed in the README.md file.
+%% 
+\NeedsTeXFormat{LaTeX2e}[2009/09/24]
+\ProvidesPackage{actuarialangle}[2017/04/10 v2.0 Actuarial angle]
+\newif\ifacta@thinspace \acta@thinspacetrue
+\newif\ifacta@bracket   \acta@brackettrue
+\DeclareOption{thinspace}{\acta@thinspacetrue}
+\DeclareOption{thickspace}{\acta@thinspacefalse}
+\DeclareOption{nobracket}{\acta@bracketfalse}
+\ProcessOptions
+\DeclareRobustCommand{\actuarialangle}{\mathpalette\acta@angle}
+\def\acta@angle#1#2{%
+  \mathord{%
+    \mkern1mu
+    \vbox{\hrule \hbox{%
+        \vbox{%
+          \kern3\fontdimen8\scriptfont\thr@@
+          \hbox{$#1#2\m@th$}}%
+        \setbox\z@\hbox{$#1()$}\vrule depth\dp\z@}}%
+    \mkern1mu}}
+\ifacta@thinspace
+  \def\angl#1{{\actuarialangle{{#1}\mkern1mu}}}
+\else
+  \def\angl#1{{\actuarialangle{{#1}\mkern2mu}}}
+\fi
 \def\angln{{\angl n}}
-%
 \def\anglr{{\angl r}}
-%
-\def\lift#1#2{{\topprecedence{#1}{#2}}}
+\def\anglk{{\angl k}}
+\ifacta@bracket
+  \RequirePackage{pict2e}
+  \DeclareRobustCommand{\overanglebracket}{%
+    \mathpalette\acta@anglebracket}
+  \def\acta@anglebracket#1#2{%
+    \setbox\z@\hbox{$\m@th#1#2$}
+    \dimen0\wd\z@ \dimen1\ht\z@
+    \setbox\tw@\hbox{%
+      \setlength{\unitlength}{\dimen1}%
+      \begin{picture}(0.4,0)
+        \polyline(0.4001,0)(0.4,0)(0,-0.8)
+      \end{picture}%
+      \setlength{\unitlength}{\dimen0}%
+      \begin{picture}(1,0)
+        \put(0,0){\line(1,0){1}}
+      \end{picture}%
+      \setlength{\unitlength}{\dimen1}%
+      \begin{picture}(0.4,0)
+        \polyline(-0.0001,0)(0,0)(0.4,-0.8)
+      \end{picture}}
+    \dimen@\wd\tw@
+    \vbox to\dimen1{%
+      \baselineskip\z@
+      \lineskip3\fontdimen8\scriptfont\thr@@
+      \advance\lineskip by 0.2pt
+      \lineskiplimit\lineskip
+      \vss
+      \box\tw@%
+      \hbox to\dimen@{\hss\unhbox\z@\hss}
+    }
+  }
+  \let\group\overanglebracket
+\fi
+\endinput
 %%
 %% End of file `actuarialangle.sty'.
-- 
cgit v1.2.3

