From 216a2aa599705471c6e163494809182ff8813663 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Fri, 13 Jan 2006 00:04:46 +0000
Subject: ptptex

git-svn-id: svn://tug.org/texlive/trunk@1258 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/latex/ptptex/wrapft.sty | 35 +++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 Master/texmf-dist/tex/latex/ptptex/wrapft.sty

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

diff --git a/Master/texmf-dist/tex/latex/ptptex/wrapft.sty b/Master/texmf-dist/tex/latex/ptptex/wrapft.sty
new file mode 100644
index 00000000000..cba2177f7c5
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/ptptex/wrapft.sty
@@ -0,0 +1,35 @@
+\ProvidesPackage{wrapft}[2004/04/12 ver.0.9]
+\RequirePackage{wrapfig}[1999/10/12 \space  v 3.3]
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\newdimen\WF@hsep %horizontal separation between fig and text
+\newdimen\WF@vsep %vspace on the top and the bottom of the figure
+\WF@hsep=1.6\columnsep 
+\WF@vsep=\intextsep
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\def\WF@rapt[#1]#2{% final two args: #1 = overhang,  #2 = width,
+ \ifnum `c=\WF@place % fig in the center
+    \@tempdima\hsize \advance\@tempdima-#2 \divide\@tempdima\tw@
+    \vskip\WF@vsep
+    \noindent \hspace*{\@tempdima}\begin{minipage}[t]{#2}%
+ \else
+  \gdef\WF@ovh{#1}% hold overhang for later, when \width is known
+  \global\setbox\WF@box\vtop\bgroup \setlength\hsize{#2}%
+  \ifdim\hsize>\z@ \@parboxrestore \else 
+  \setbox\z@\hbox\bgroup \let\wf@@caption\caption \let\caption\wf@caption 
+  \ignorespaces \fi
+ \fi}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\let\WF@@putfigmaybe\WF@putfigmaybe
+\def\WF@putfigmaybe{%
+ \columnsep \WF@hsep  \intextsep \WF@vsep
+ \WF@@putfigmaybe}
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\let\@endwr@pfigure\endwrapfigure
+\def\endwrapfigure{%
+ \ifnum `c=\WF@place % fig in the center
+    \end{minipage} \vskip\WF@vsep
+ \else
+    \@endwr@pfigure
+ \fi}
+\let\endwraptable\endwrapfigure
+%----- end of wrapft.sty ---------
-- 
cgit v1.2.3

