summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2020-02-14 22:32:16 +0000
committerKarl Berry <karl@freefriends.org>2020-02-14 22:32:16 +0000
commitac2299dd56d45edf3052e6b12fe27f79bf65527d (patch)
treee12d00715695820ff6fdf17973f4dbfcc27df472 /Master/texmf-dist/tex
parent9d5c27cd7720260b66f8026e31cbff60ab4fd281 (diff)
fewerfloatpages (14feb20)
git-svn-id: svn://tug.org/texlive/trunk@53779 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
-rw-r--r--Master/texmf-dist/tex/latex/fewerfloatpages/fewerfloatpages.sty248
1 files changed, 248 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/fewerfloatpages/fewerfloatpages.sty b/Master/texmf-dist/tex/latex/fewerfloatpages/fewerfloatpages.sty
new file mode 100644
index 00000000000..6c797aa3cc1
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/fewerfloatpages/fewerfloatpages.sty
@@ -0,0 +1,248 @@
+%%
+%% This is file `fewerfloatpages.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% fewerfloatpages.dtx (with options: `package')
+%%
+%% This is a generated file.
+%%
+%% Copyright 2019-2020 Frank Mittelbach
+%%
+%% This file was generated from file(s) of the LaTeX `fewerfloatpages Bundle'.
+%% --------------------------------------------------------------------------
+%%
+%% It 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 2008 or later.
+%%
+%% This file may only be distributed together with a copy of the LaTeX
+%% `fewerfloatpages Bundle'. You may however distribute the `fewerfloatpages Bundle'
+%% without such generated files.
+%%
+%% The newest sources can be found below
+%%
+%% https://github.com/FrankMittelbach/fmitex/
+%%
+%% where one can also log issues in case there are any.
+%%
+%% File: fewerfloatpages.dtx (C) Copyright 2019-2020 Frank Mittelbach
+
+\def\fewerfloatpagesdate {2020/02/14}
+\def\fewerfloatpagesversion{v1.0a}
+
+
+
+\NeedsTeXFormat{LaTeX2e}[2018-04-01]
+\ProvidesPackage{fewerfloatpages}
+ [\fewerfloatpagesdate\space \fewerfloatpagesversion\space
+ improve float page generation (FMi)]
+\DeclareOption{trace}
+ {\providecommand\fl@trace[1]%
+ {{\let\@elt\@empty\typeout{fewerfloatpages: #1}}}}
+\def\fp@strategy{0}%
+\DeclareOption{nocheck}{\def\fp@strategy{0}} % better name?
+\DeclareOption{addbang}{\def\fp@strategy{1}}
+\DeclareOption{checktb}{\def\fp@strategy{2}}
+\ExecuteOptions{checktb}
+\ProcessOptions
+\providecommand\fl@trace[1]{}
+\newcommand\floatpagekeepfraction{\textfraction}
+
+\newcounter{floatpagedeferlimit} \setcounter{floatpagedeferlimit}{3}
+
+\newcounter{floatpagekeeplimit} \setcounter{floatpagekeeplimit}{3}
+
+
+\AtBeginDocument{%
+\def \@tryfcolumn #1{%
+ \global \@fcolmadefalse
+ \ifx #1\@empty
+ \else
+ \fl@trace{PAGE: trying to make a float
+ \if@twocolumn column/page\else page\fi}%
+ \fl@trace{----- \string #1: #1}%
+ \xdef\@trylist{#1}%
+ \global \let \@failedlist \@empty
+ \begingroup
+ \let \@elt \@xtryfc \@trylist
+ \endgroup
+ \if@fcolmade
+ \fp@candidates\z@
+ \def\@elt##1{\advance\fp@candidates\@ne}%
+ #1%
+ \let\@elt\relax
+ \ifnum \fp@candidates >\c@floatpagedeferlimit
+ \fl@trace{----- too many deferred floats for unraveling
+ (\the\fp@candidates\space> \the\c@floatpagedeferlimit)}%
+ \else
+ \global\@fcolmadefalse
+ \fp@candidates\z@
+ \let\@elt\fp@analyse@floats@for@unraveling
+ \@flsucceed
+ \let\@elt\relax
+ \if@fcolmade \else
+ \@tempdima\floatpagekeepfraction\@colht
+ \ifdim \fp@unused@space >\@tempdima
+ \fl@trace{----- current float page unraveled^^J%
+ \@spaces\@spaces\@spaces\space\space\space
+ (free space \fp@unused@space\space > \the\@tempdima)}%
+ \xdef #1{\@failedlist\@flsucceed\@flfail}%
+ \let\@elt\fp@maybe@add@bang
+ \@flsucceed
+ \let\@elt\relax
+ \else
+ \global \@fcolmadetrue
+ \fl@trace{----- current float page kept, full enough^^J%
+ \@spaces\@spaces\@spaces\space\space\space
+ (free space \fp@unused@space\space < \the\@tempdima)}%
+ \fi
+ \fi
+ \fi
+ \else
+ \fl@trace{ --> fail: no float page made}%
+ \fi
+ \if@fcolmade
+ \@vtryfc #1%
+ \fi
+ \fi}%
+}% -- END of \AtBeginDocument
+\AtBeginDocument{%
+\def\@makefcolumn #1{%
+ \begingroup
+ \@fpmin -\maxdimen
+ \let \@testfp \@gobble
+ \global \@fcolmadefalse
+ \ifx #1\@empty
+ \else
+ \fl@trace{PAGE: trying to make a float
+ \if@twocolumn column/page\else page\fi}%
+ \fl@trace{----- \string #1: #1}%
+ \xdef\@trylist{#1}%
+ \global \let \@failedlist \@empty
+ \begingroup
+ \let \@elt \@xtryfc \@trylist
+ \endgroup
+ \if@fcolmade
+ \@vtryfc #1%
+ \fi
+ \fi
+ \endgroup
+}%
+}% -- END of \AtBeginDocument
+\def\@xtryfc #1{%
+ \fl@trace{ starting with \string#1}%
+ \@next\reserved@a\@trylist{}{}%
+ \@currtype \count #1%
+ \divide\@currtype\@xxxii
+ \multiply\@currtype\@xxxii
+ \@bitor \@currtype \@failedlist
+ \@testfp #1%
+ \@testwrongwidth #1%
+ \ifdim \ht #1>\@colht
+ \@testtrue
+ \fi
+ \if@test
+ \@cons\@failedlist #1%
+ \fl@trace{ --> fail}%
+ \else
+ \@ytryfc #1%
+ \fi
+}%
+\def\@ytryfc #1{%
+ \begingroup
+ \gdef\@flsucceed{\@elt #1}%
+ \global\let\@flfail\@empty
+ \@tempdima\ht #1%
+ \let\@elt\@ztryfc
+ \@trylist
+ \ifdim \@tempdima >\@fpmin
+ \global\@fcolmadetrue
+ \@tempdimb\@colht
+ \advance\@tempdimb-\@tempdima
+ \xdef\fp@unused@space{\the\@tempdimb}%
+ \else
+ \@cons\@failedlist #1%
+ \fl@trace{ --> fail}%
+ \fi
+ \endgroup
+ \if@fcolmade
+ \let\@elt\@gobble
+ \fl@trace{ --> success: \@flsucceed}%
+ \fi}
+\def \@largefloatcheck{%
+ \ifdim \ht\@currbox>\textheight
+ \@tempdima -\textheight
+ \advance \@tempdima \ht\@currbox
+ \@latex@warning {Float too large for page by \the\@tempdima}%
+ \ht\@currbox \textheight
+ \fi
+ \fp@maybe@check@tb
+}
+\newcount\fp@candidates
+\def\fp@unused@space{}
+\def\fp@analyse@floats@for@unraveling#1{%
+ \advance\fp@candidates\@ne
+ \ifnum \fp@candidates <\c@floatpagekeeplimit
+ \@tempcntb\count#1%
+ \divide\@tempcntb 8\relax
+ \multiply\@tempcntb 8\relax
+ \ifnum \count#1=\@tempcntb
+ \global \@fcolmadetrue
+ \fl@trace{----- current float page kept, contains a float}%
+ \fl@trace{\@spaces\space\space with p but no t or b specifier}%
+ \let\@elt\@gobble
+ \fi
+ \else
+ \global \@fcolmadetrue
+ \fl@trace{----- current float page kept
+ (contains at least \the\fp@candidates\space floats)}%
+ \let\@elt\@gobble
+ \fi
+}
+\ifnum\fp@strategy=1
+ \def\fp@maybe@add@bang#1{%
+ \@boxfpsbit #1\sixt@@n
+ \ifodd \@tempcnta
+ \global\advance\count#1-\sixt@@n
+ \fi
+ }
+\else
+ \let\fp@maybe@add@bang\@gobble
+\fi
+\ifnum\fp@strategy=2
+ \def\fp@maybe@check@tb{%
+ \@getfpsbit \sixt@@n
+ \ifodd \@tempcnta
+ \ifdim \ht\@currbox>\topfraction\textheight
+ \@getfpsbit \tw@
+ \ifodd \@tempcnta
+ \global\advance\count\@currbox -\tw@
+ \fp@add@p@bit
+ \@latex@warning {Float too large for top area: t changed to p}%
+ \fi
+ \fi
+ \ifdim \ht\@currbox>\bottomfraction\textheight
+ \@getfpsbit 4\relax
+ \ifodd \@tempcnta
+ \global\advance\count\@currbox -4\relax
+ \fp@add@p@bit
+ \@latex@warning {Float too large for bottom area:
+ b changed to p}%
+ \fi
+ \fi
+ \fi
+ }
+\else \let\fp@maybe@check@tb\relax \fi
+\def\fp@add@p@bit{%
+ \@getfpsbit 8\relax
+ \ifodd \@tempcnta \else \global\advance\count\@currbox 8\relax \fi}
+
+\endinput
+%%
+%% End of file `fewerfloatpages.sty'.