tabvar

git-svn-id: svn://tug.org/texlive/trunk@1371 c570f23f-e606-0410-a88d-b1316a301751

5 files changed, 285 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/tabvar/tabvar.1 b/Master/texmf-dist/tex/latex/tabvar/tabvar.1
new file mode 100644
index 00000000000..cfc6c674262
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/tabvar/tabvar.1
@@ -0,0 +1,18 @@
+%!PS
+%%BoundingBox: -1 -1 25 13 
+%%Creator: MetaPost
+%%CreationDate: 2005.02.06:1858
+%%Pages: 1
+%%EndProlog
+%%Page: 1 1
+ 0 0.19925 dtransform truncate idtransform setlinewidth pop [] 0 setdash
+ 1 setlinecap 1 setlinejoin 10 setmiterlimit
+newpath 0 0 moveto
+23.91028 11.95514 lineto stroke
+newpath 21.28954 8.93336 moveto
+23.91028 11.95514 lineto
+19.92043 11.67165 lineto
+ closepath
+gsave fill grestore stroke
+showpage
+%%EOF
diff --git a/Master/texmf-dist/tex/latex/tabvar/tabvar.2 b/Master/texmf-dist/tex/latex/tabvar/tabvar.2
new file mode 100644
index 00000000000..521093bcfa0
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/tabvar/tabvar.2
@@ -0,0 +1,18 @@
+%!PS
+%%BoundingBox: -1 -1 25 13 
+%%Creator: MetaPost
+%%CreationDate: 2005.02.06:1858
+%%Pages: 1
+%%EndProlog
+%%Page: 1 1
+ 0 0.19925 dtransform truncate idtransform setlinewidth pop [] 0 setdash
+ 1 setlinecap 1 setlinejoin 10 setmiterlimit
+newpath 0 11.95514 moveto
+23.91028 0 lineto stroke
+newpath 19.92043 0.2835 moveto
+23.91028 0 lineto
+21.28954 3.02177 lineto
+ closepath
+gsave fill grestore stroke
+showpage
+%%EOF
diff --git a/Master/texmf-dist/tex/latex/tabvar/tabvar.3 b/Master/texmf-dist/tex/latex/tabvar/tabvar.3
new file mode 100644
index 00000000000..98946cec643
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/tabvar/tabvar.3
@@ -0,0 +1,18 @@
+%!PS
+%%BoundingBox: -1 -2 25 2 
+%%Creator: MetaPost
+%%CreationDate: 2005.02.06:1858
+%%Pages: 1
+%%EndProlog
+%%Page: 1 1
+ 0 0.19925 dtransform truncate idtransform setlinewidth pop [] 0 setdash
+ 1 setlinecap 1 setlinejoin 10 setmiterlimit
+newpath 0 0 moveto
+23.91028 0 lineto stroke
+newpath 20.21468 -1.5308 moveto
+23.91028 0 lineto
+20.21468 1.5308 lineto
+ closepath
+gsave fill grestore stroke
+showpage
+%%EOF
diff --git a/Master/texmf-dist/tex/latex/tabvar/tabvar.cfg b/Master/texmf-dist/tex/latex/tabvar/tabvar.cfg
new file mode 100644
index 00000000000..3e7d4d85b93
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/tabvar/tabvar.cfg
@@ -0,0 +1,36 @@
+%% Fichier de configuration de l'extension `tabvar.sty'.
+%%
+%% D\'ecommenter la ligne suivante pour que les variantes MetaPost
+%% des fl\`eches soient utilis\'ees \`a la place de la fonte tabvar.pfb.
+%%
+%%\FlechesMPtrue
+%%
+%% Ce param\`etre permet d'ajuster la hauteur des lignes
+%% de `tabvar' correspondant aux variations d'une fonction ;
+%% sa valeur par d\'efaut est :
+%%
+%%\setlength{\TVextraheight}{0.7\baselineskip}
+%%
+%% Valeur de \arraycolsep utilis\'ee dans `tabvar'.
+%%
+%%\setlength{\TVarraycolsep}{1pt}
+%%
+%% Valeur de \arraystretch utilis\'ee dans `tabvar'.
+%%
+%%\renewcommand{\TVarraystretch}{1.5}
+%%
+%% Exemples de d\'efinitions de couleurs pour les colonnes `N'
+%% o\`u la fonction est non d\'efinie.
+%%
+%%\definecolor{TVcolor}{gray}{0.5}
+%%\definecolor{TVcolor}{rgb}{0.33, 0.12, 0}
+%%\definecolor{TVcolor}{cmyk}{0.91,0,0.88,0.12}
+%%
+%% Les valeurs suivantes assurent que les colonnes `N' sont
+%% colori\'ees sur toute leur largeur.
+%%
+%%\setlength{\TVcolorLeftSep}{\TVarraycolsep}
+%%\setlength{\TVcolorRightSep}{\TVarraycolsep}
+\endinput
+%%
+%% End of file `tabvar.cfg'.
diff --git a/Master/texmf-dist/tex/latex/tabvar/tabvar.sty b/Master/texmf-dist/tex/latex/tabvar/tabvar.sty
new file mode 100644
index 00000000000..cb9cd326c51
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/tabvar/tabvar.sty
@@ -0,0 +1,195 @@
+%%
+%% This is file `tabvar.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% tabvar.dtx  (with options: `sty')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from tabvar.sty.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file tabvar.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+%%
+%% Copyright (C) Daniel Flipo 2003-2005 <daniel.flipo@univ-lille1.fr>.
+%%
+\NeedsTeXFormat{LaTeX2e}[1997/06/01]
+\ProvidesFile{tabvar.sty}
+        [2005/02/05 v0.9 (Daniel Flipo)]
+\newif\ifFlechesMP \FlechesMPfalse
+\DeclareOption{FlechesMP}{\FlechesMPtrue}
+\DeclareOption{FlechesPS}{\FlechesMPfalse}
+\ProcessOptions
+\RequirePackage{array}
+\RequirePackage{colortbl}
+\RequirePackage{varwidth}
+\RequirePackage{ifthen}
+\RequirePackage{graphicx}
+\RequirePackage{ifpdf}
+\ifpdf
+  \input{supp-pdf}
+  \DeclareGraphicsRule{*}{mps}{*}{}
+\fi
+\newsavebox{\arup}
+\newsavebox{\ardown}
+\newsavebox{\arhor}
+\providecommand{\@ptsize}{0}
+\sbox{\arup}  {\includegraphics[scale=1.\@ptsize]{tabvar.1}}
+\sbox{\ardown}{\includegraphics[scale=1.\@ptsize]{tabvar.2}}
+\sbox{\arhor} {\includegraphics[scale=1.\@ptsize]{tabvar.3}}
+\newcommand{\FlecheCm}{\raisebox{.5ex}{\usebox{\arup}}}
+\newcommand{\FlecheDm}{\raisebox{.5ex}{\usebox{\ardown}}}
+\newcommand{\FlecheHm}{\raisebox{.5ex}{\usebox{\arhor}}}
+\AtBeginDocument{%
+  \ifFlechesMP
+    \newcommand{\FlecheC}{\FlecheCm}%
+    \newcommand{\FlecheD}{\FlecheDm}%
+    \newcommand{\FlecheH}{\FlecheHm}%
+  \else
+    \DeclareFontFamily{U}{tv}{}%
+    \DeclareFontShape{U}{tv}{m}{n}{<->tabvar}{}%
+    \DeclareSymbolFont{tvsymbols}{U}{tv}{m}{n}%
+    \DeclareMathSymbol{\enearrow}{\mathrel}{tvsymbols}{"25}%
+    \DeclareMathSymbol{\esearrow}{\mathrel}{tvsymbols}{"26}%
+    \DeclareMathSymbol{\eastarrow}{\mathrel}{tvsymbols}{"21}%
+    \newcommand{\FlecheC}{\ensuremath{\enearrow}}%
+    \newcommand{\FlecheD}{\ensuremath{\esearrow}}%
+    \newcommand{\FlecheH}{\ensuremath{\eastarrow}}%
+  \fi}
+\newdimen\TVextraheight
+\setlength{\TVextraheight}{.7\baselineskip}
+\newcount\@niveaux
+\newcount\@pos
+\newif\if@socle
+\newcommand{\niveau}[2]{\global\@pos=#1 \global\@niveaux=#2
+                        \global\@socletrue}
+\newcommand{\@socle}{%
+  \ifnum\@pos=1 \@soclefalse \fi
+  \if@socle
+    \rule{\z@}{\TVextraheight}%
+    \@tempcnta=\@pos
+    \advance\@tempcnta by -1
+    \whiledo{\@tempcnta>0}{\TVnl \null \advance\@tempcnta by -1}%
+  \fi}
+\newif\ifreset@niveaux
+\newcommand{\reset@niveaux}{%
+  \ifreset@niveaux
+    \global\@niveaux=1 \global\@pos=1 \global\@soclefalse
+  \fi}
+\newcolumntype{C}{%
+   >{\begin{varwidth}[b]{5em}\let\TVnl=\\ \let\\=\TVtabularnewline $}%
+   c%
+   <{\@socle \reset@niveaux
+     $\@finalstrut\@arstrutbox\end{varwidth}}}
+\newcolumntype{L}{%
+   >{\begin{varwidth}[b]{5em}\let\TVnl=\\ \let\\=\TVtabularnewline $}%
+   l%
+   <{\@socle \reset@niveaux
+     $\@finalstrut\@arstrutbox\end{varwidth}}}
+\newcolumntype{R}{%
+   >{\begin{varwidth}[b]{5em}\let\TVnl=\\ \let\\=\TVtabularnewline $}%
+   r%
+   <{\@socle \reset@niveaux
+     $\@finalstrut\@arstrutbox\end{varwidth}}}
+\definecolor{TVcolor}{gray}{0.7}
+\newdimen\TVarraycolsep
+\newdimen\TVcolorLeftSep
+\newdimen\TVcolorRightSep
+\setlength{\TVcolorLeftSep}{\TVarraycolsep}
+\setlength{\TVcolorRightSep}{\TVarraycolsep}
+\newcolumntype{N}{%
+   >{\columncolor{TVcolor}[\TVcolorLeftSep][\TVcolorRightSep]}
+   c}
+\newcommand{\decroit}{\FlecheD
+                      \global\advance\@pos by -1
+                      \ifnum\@pos<1
+                      \PackageError{tabvar.sty}%
+                        {Les arguments la commande
+                         \protect\niveau\space sont incorrects}%
+                      \fi}
+\newcommand{\croit}  {\raisebox{-\baselineskip}{\FlecheC}%
+                      \global\advance\@pos by 1
+                      \ifnum\@pos>\@niveaux
+                      \PackageError{tabvar.sty}%
+                        {Les arguments la commande
+                         \protect\niveau\space sont incorrects}%
+                      \fi}
+\newcommand{\constante}{\FlecheH}
+\newcommand{\dbarre}{\ifnum\@niveaux=1
+                       \@tempdimc=\TVarraystretch\baselineskip
+                     \else
+                       \@tempcnta=\@niveaux
+                       \advance\@tempcnta by -1
+                       \@tempdimc=\@tempcnta\baselineskip
+                       \@tempdimb=\TVextraheight
+                       \ifdim\@tempdimb<.7\baselineskip
+                         \@tempdimb=.7\baselineskip
+                       \fi
+                       \advance\@tempdimc by \@tempdimb
+                       \advance\@tempdimc by \dp\@arstrutbox
+                     \fi
+                     \rule[-\dp\@arstrutbox]{.5\p@}{\@tempdimc}%
+                     \kern 2\p@
+                     \rule[-\dp\@arstrutbox]{.5\p@}{\@tempdimc}%
+                     \@soclefalse}
+\newcommand{\discont}[4][0]{%
+     \settowidth{\@tempdimc}{\ensuremath{#2}}%
+     \settowidth{\@tempdimb}{\ensuremath{#4}}%
+     \ifdim\@tempdimc<\@tempdimb \@tempdimc=\@tempdimb\fi
+     \rule{\z@}{\TVextraheight}%
+     \@soclefalse
+     \ifthenelse{\equal{#3}{<}}%
+     {\makebox[\@tempdimc]{\ensuremath{#4}}%
+      \@tempcnta=#1
+      \whiledo{\@tempcnta>0}{\TVnl \null \advance\@tempcnta by -1}%
+      \TVnl
+      \makebox[\@tempdimc]{\ensuremath{#2}}%
+      \@tempcnta=\@pos
+      \advance\@tempcnta by -1
+      \whiledo{\@tempcnta>0}{\TVnl \null \advance\@tempcnta by -1}%
+      \global\advance\@pos by 1
+      \global\advance\@pos by #1
+     }%
+     {\ifthenelse{\equal{#3}{>}}%
+     {\makebox[\@tempdimc]{\ensuremath{#2}}%
+      \@tempcnta=#1
+      \whiledo{\@tempcnta>0}{\TVnl \null \advance\@tempcnta by -1}%
+      \TVnl
+      \makebox[\@tempdimc]{\ensuremath{#4}}%
+      \@tempcnta=\@pos
+      \advance\@tempcnta by -2
+      \advance\@tempcnta by -#1
+      \whiledo{\@tempcnta>0}{\TVnl \null \advance\@tempcnta by -1}%
+      \global\advance\@pos by -1
+      \global\advance\@pos by -#1
+     }%
+     {\PackageError{tabvar.sty}%
+        {Le second argument de \protect\discont\space doit \^etre
+         \MessageBreak soit '<' soit '>'}}%
+     }%
+}
+\newcommand{\TVarraystretch}{1.5}
+\setlength{\TVarraycolsep}{1pt}
+\newenvironment{tabvar}[1]
+  {\renewcommand{\arraystretch}{\TVarraystretch}%
+   \setlength{\arraycolsep}{\TVarraycolsep}%
+   \global\@niveaux=1 \global\@pos=1 \global\@soclefalse
+   \def\TVtabularnewline{\reset@niveauxtrue\tabularnewline}%
+   \begin{array}{#1}}
+  {\end{array}}
+\InputIfFileExists{tabvar.cfg}
+   {\typeout{loading tabvar.cfg}}
+   {\typeout{tabvar.cfg not found, using default values}}
+\endinput
+%%
+%% End of file `tabvar.sty'.