From 34c48d9566089694027f919d621fec0e075d1b84 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 18 Oct 2012 22:33:43 +0000 Subject: sttools (19oct12) git-svn-id: svn://tug.org/texlive/trunk@28013 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/sttools/midfloat.sty | 97 ++++++++++-------------- 1 file changed, 40 insertions(+), 57 deletions(-) (limited to 'Master/texmf-dist/tex/latex/sttools/midfloat.sty') diff --git a/Master/texmf-dist/tex/latex/sttools/midfloat.sty b/Master/texmf-dist/tex/latex/sttools/midfloat.sty index d9d11129ee7..93f6248a549 100644 --- a/Master/texmf-dist/tex/latex/sttools/midfloat.sty +++ b/Master/texmf-dist/tex/latex/sttools/midfloat.sty @@ -1,72 +1,55 @@ -%% midfloat.sty -%% Copyright 1997 Sigitas Tolu\v sis +%% +%% This is file `midfloat.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% midfloat.dtx (with options: `package') +%% +%% Copyright (C) 1997-2012 by Sigitas Tolu\v{s}is %% VTeX Ltd., Akademijos 4, Vilnius, Lithuania -%% e-mail sigitas@vtex.lt %% http://www.vtex.lt/tex/download/macros/ +%% -------------------------------------------------------------------------- +%% This work may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either version 1.3 +%% 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.3 or later is part of all distributions of LaTeX +%% version 2005/12/01 or later. +%% +%% PURPOSE: Insert some material in full-width on double-column page. %% -% This program can redistributed and/or modified under the terms -% of the LaTeX Project Public License Distributed from CTAN -% archives in directory macros/latex/base/lppl.txt; either -% version 1 of the License, or (at your option) any later version. -% -% PURPOSE: Insert some material in full-width on double-column page. -% -% SHORT DESCRIPTION: -% -% It is denoted to place some material (from the left column) -% in full-width at any place (but not at the top) on double-column -% page (\twocolumn mode). Existing text remains as it was before -% insert. Placement is restricted to one page. (It is some kind of -% dbfloat intext). -% -% Provides new environment: -% -% \begin{strip}[#1/#2] ... \end{strip} -% ----------------------------- -% -% Puts \vbox{...} in full-width on double-column page. -% Parameters #1 and #2 are optional. -% By default #1=0pt and #2=0pt. -% The material on the right column under strip is stretched down -% by #1 and below strip is moved down by #2. -% -% It can be problems with floats and footnotes. In the case of -% problems with footnotes it is possible to correct the situation -% using commands \footnotemark and \footnotetext. -% -% \changes{1997/10/01}{some names} -% +\NeedsTeXFormat{LaTeX2e}[1999/12/01] +\ProvidesPackage{midfloat} + [2012/05/29 v1.1 Insert some material in full-width on double-column page] \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{midfloat}[1997/10/01] -% \newif\if@vihproof \@vihprooftrue -\newtoks\juo@sar \juo@sar={} -\def\@ca#1#2#3#4{} -\@ifundefined{stripsep}{\newskip\stripsep\stripsep 15pt}{} -% -\newskip\m@addvipersep -\m@addvipersep\z@ -\newskip\c@addvipersep -\c@addvipersep\z@ +\newtoks\juo@sar \juo@sar={} +\@ifundefined{stripsep}{\newskip\stripsep \stripsep 15\p@}{} +\newskip\m@addvipersep \m@addvipersep\z@ +\newskip\c@addvipersep \c@addvipersep\z@ \newdimen\ht@strip \newdimen\right@cor -\newdimen\cor@height \cor@height=0pt +\newdimen\cor@height \cor@height=\z@ \newdimen\juo@pr \newdimen\juo@ht -\newbox\@viper -\newcount\juo@sk \newdimen\c@colht +\newbox\@viper \newbox\@rightcolumn - -\def\add@strip#1#2#3#4{\begingroup% - \xdef\ex@{\global\noexpand\juo@sar{\the\juo@sar\noexpand\@ca{#1}{#2}{#3}{#4}}}\ex@% -\endgroup} - +\newcount\juo@sk +\def\@ca#1#2#3#4{} +\def\add@strip#1#2#3#4{% + \begingroup + \xdef\ex@{\global\noexpand\juo@sar{\the\juo@sar\noexpand\@ca{#1}{#2}{#3}{#4}}}% + \ex@ + \endgroup + } \def\remove@strip#1{\ifx#1\@empty\global\juo@sk=0\else \global\advance\juo@sk by-1\expandafter\next@item\the #1\@@#1\fi} \def\next@item \@ca #1#2#3#4#5\@@#6{\global #6={#5}\global\juo@pr=#1\global\juo@ht=#2% \global\cor@height=#3\global\m@addvipersep=#4} - \def\strip{\@ifnextsymb[{\@strip}{\@strip[0pt/0pt]}} \def\@strip[#1/#2]{\global\@tempdima=#1\global\@tempdimb=#2% \global \setbox\@viper\vbox\bgroup% @@ -148,7 +131,7 @@ \global\advance\@colht by -\ht\@rightcolumn \global\advance\@colht by\cor@height \global\cor@height=0pt - \else + \else \global\advance\c@colht by-\ht\@rightcolumn \global\@colht\c@colht \fi @@ -184,7 +167,6 @@ \fi \fi } - \def \@cflt{% \let \@elt \@comflelt \setbox\@tempboxa \vbox{}% @@ -206,7 +188,6 @@ \xdef\@freelist{\@freelist\@toplist}% \global\let\@toplist\@empty } - \def\@ifnextsymb#1#2#3{% \let\reserved@d=#1% \def\reserved@a{#2}\def\reserved@b{#3}% @@ -222,5 +203,7 @@ \fi \fi \reserved@c} - +%% \endinput +%% +%% End of file `midfloat.sty'. -- cgit v1.2.3