From cdc0d80edd38bfcfa7f90b7136f2b0ded4102496 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 20 May 2018 21:31:08 +0000 Subject: platex (20may18) git-svn-id: svn://tug.org/texlive/trunk@47782 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/platex/base/README.md | 2 +- Master/texmf-dist/doc/platex/base/exppl2e.pdf | Bin 170364 -> 153101 bytes Master/texmf-dist/doc/platex/base/pldoc.pdf | Bin 801437 -> 809397 bytes .../source/platex/base/platexrelease.dtx | 3 + Master/texmf-dist/source/platex/base/plcore.dtx | 281 +++++++++++++++++++-- Master/texmf-dist/source/platex/base/plnewsc10.tex | 77 ++++++ Master/texmf-dist/source/platex/base/plvers.dtx | 4 +- Master/texmf-dist/tex/platex/base/exppl2e.sty | 177 +------------ .../texmf-dist/tex/platex/base/platexrelease.sty | 218 +++++++++++++++- Master/texmf-dist/tex/platex/base/plcore.ltx | 56 ++-- 10 files changed, 593 insertions(+), 225 deletions(-) create mode 100644 Master/texmf-dist/source/platex/base/plnewsc10.tex (limited to 'Master') diff --git a/Master/texmf-dist/doc/platex/base/README.md b/Master/texmf-dist/doc/platex/base/README.md index 1a032d3ba84..d2de26b289d 100644 --- a/Master/texmf-dist/doc/platex/base/README.md +++ b/Master/texmf-dist/doc/platex/base/README.md @@ -61,6 +61,6 @@ the 3-clause BSD license (see [LICENSE](./LICENSE)). ## Release Date -2018-05-11 +2018-05-20 Japanese TeX Development Community diff --git a/Master/texmf-dist/doc/platex/base/exppl2e.pdf b/Master/texmf-dist/doc/platex/base/exppl2e.pdf index 0ce852a975a..0517460f60e 100644 Binary files a/Master/texmf-dist/doc/platex/base/exppl2e.pdf and b/Master/texmf-dist/doc/platex/base/exppl2e.pdf differ diff --git a/Master/texmf-dist/doc/platex/base/pldoc.pdf b/Master/texmf-dist/doc/platex/base/pldoc.pdf index 29bcdc25c4b..27be4bf1669 100644 Binary files a/Master/texmf-dist/doc/platex/base/pldoc.pdf and b/Master/texmf-dist/doc/platex/base/pldoc.pdf differ diff --git a/Master/texmf-dist/source/platex/base/platexrelease.dtx b/Master/texmf-dist/source/platex/base/platexrelease.dtx index 6b34e3516f1..dcf030e27eb 100644 --- a/Master/texmf-dist/source/platex/base/platexrelease.dtx +++ b/Master/texmf-dist/source/platex/base/platexrelease.dtx @@ -316,6 +316,9 @@ of this package available from CTAN} some critical bugs. We advise you to\MessageBreak select another format date} \plIncludeInRelease{2017/10/28}{\PackageWarning}{pLaTeX Info}% + % * <2018-05-20> + % * <2018-04-01>+2 + % * <2018-04-01>+1 % * <2018-04-01> % * <2018/03/09>+1 % * <2018/03/09> diff --git a/Master/texmf-dist/source/platex/base/plcore.dtx b/Master/texmf-dist/source/platex/base/plcore.dtx index cf71b1582c5..4dadbc27e65 100644 --- a/Master/texmf-dist/source/platex/base/plcore.dtx +++ b/Master/texmf-dist/source/platex/base/plcore.dtx @@ -86,13 +86,22 @@ % \changes{v1.2x}{2018/03/01}{セル最初の\cs{par}で空行が入らないようにした} % \changes{v1.2x}{2018/03/01}{\cs{everypar}に\cs{inhibitglue}を仕込むマクロ追加} % \changes{v1.2y}{2018/03/12}{\cs{inhibitglue}を\cs{everypar}の末尾に移動} +% \changes{v1.2z}{2018/05/13}{\cs{@tombowbleed}マクロ追加} +% \changes{v1.2z}{2018/05/13}{\cs{@tombowcolor}マクロ追加} +% \changes{v1.2z}{2018/05/13}{bleed幅を\cs{@tombowbleed}に切り出し} +% \changes{v1.2z}{2018/05/13}{色の付いたテキストの途中で改ページすると +% トンボにも色が付く現象に対処、さらにトンボの色を\cs{@tombowcolor}へ・ +% bleed幅を\cs{@tombowbleed}に切り出し} +% \changes{v1.2z}{2018/05/13}{コマンドに分離、さらに +% bleed幅を\cs{@tombowbleed}に切り出し} +% \changes{v1.2z}{2018/05/13}{\cs{@tombowreset@@paper}コマンドに分離} % \fi % % \iffalse %<*driver> \NeedsTeXFormat{pLaTeX2e} % \fi -\ProvidesFile{plcore.dtx}[2018/03/12 v1.2y pLaTeX core file] +\ProvidesFile{plcore.dtx}[2018/05/13 v1.2z pLaTeX core file] % \iffalse \documentclass{jltxdoc} \GetFileInfo{plcore.dtx} @@ -762,6 +771,42 @@ % \end{macrocode} % \end{macro} % +% \begin{macro}{\@tombowbleed} +% |\@tombowbleed|は、bleed幅を指定します。 +% デフォルトは3mmです。 +% \changes{v1.2z}{2018/05/13}{\cs{@tombowbleed}マクロ追加} +% \begin{macrocode} +% +%\plIncludeInRelease{2018/05/20}{\@tombowbleed}{Macro added}% +%<*plcore|platexrelease> +\def\@tombowbleed{3mm} +% +%\plEndIncludeInRelease +%\plIncludeInRelease{0000/00/00}{\@tombowbleed}{Macro added}% +%\let\@tombowbleed\@undefined +%\plEndIncludeInRelease +%<*plcore> +% \end{macrocode} +% \end{macro} +% +% \begin{macro}{\@tombowcolor} +% |\@tombowcolor|は、トンボの色です。 +% デフォルトは|\normalcolor|です。 +% \changes{v1.2z}{2018/05/13}{\cs{@tombowcolor}マクロ追加} +% \begin{macrocode} +% +%\plIncludeInRelease{2018/05/20}{\@tombowcolor}{Macro added}% +%<*plcore|platexrelease> +\def\@tombowcolor{\normalcolor} +% +%\plEndIncludeInRelease +%\plIncludeInRelease{0000/00/00}{\@tombowcolor}{Macro added}% +%\let\@tombowcolor\@undefined +%\plEndIncludeInRelease +%<*plcore> +% \end{macrocode} +% \end{macro} +% % トンボ用の罫線を定義します。 % % \begin{macro}{\@TL} @@ -832,10 +877,15 @@ % |\maketombow|コマンドは、トンボとなるボックスを作るために用います。 % このコマンドは、トンボとなるボックスを作るだけで、それらのボックスを % 出力するのではないことに注意をしてください。 +% \changes{v1.2z}{2018/05/13}{bleed幅を\cs{@tombowbleed}に切り出し} % \begin{macrocode} +% +%\plIncludeInRelease{2018/05/20}{\maketombowbox} +% {Use \@tombowbleed}% +%<*plcore|platexrelease> \def\maketombowbox{% \setbox\@TL\hbox to\z@{\yoko\hss - \vrule width13mm height\@tombowwidth depth\z@ + \vrule width\dimexpr 10mm+\@tombowbleed\relax height\@tombowwidth depth\z@ \vrule height10mm width\@tombowwidth depth\z@ % \end{macrocode} % \changes{v1.0f}{1996/07/10}{トンボの横にDVIファイルの作成日を出力する @@ -848,33 +898,33 @@ \fi}% \setbox\@Tl\hbox to\z@{\yoko\hss \vrule width10mm height\@tombowwidth depth\z@ - \vrule height13mm width\@tombowwidth depth\z@}% + \vrule height\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth depth\z@}% \setbox\@TC\hbox{\yoko \vrule width10mm height\@tombowwidth depth\z@ \vrule height10mm width\@tombowwidth depth\z@ \vrule width10mm height\@tombowwidth depth\z@}% \setbox\@TR\hbox to\z@{\yoko \vrule height10mm width\@tombowwidth depth\z@ - \vrule width13mm height\@tombowwidth depth\z@\hss}% + \vrule width\dimexpr 10mm+\@tombowbleed\relax height\@tombowwidth depth\z@\hss}% \setbox\@Tr\hbox to\z@{\yoko - \vrule height13mm width\@tombowwidth depth\z@ + \vrule height\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth depth\z@ \vrule width10mm height\@tombowwidth depth\z@\hss}% % \setbox\@BL\hbox to\z@{\yoko\hss - \vrule width13mm depth\@tombowwidth height\z@ + \vrule width\dimexpr 10mm+\@tombowbleed\relax depth\@tombowwidth height\z@ \vrule depth10mm width\@tombowwidth height\z@}% \setbox\@Bl\hbox to\z@{\yoko\hss \vrule width10mm depth\@tombowwidth height\z@ - \vrule depth13mm width\@tombowwidth height\z@}% + \vrule depth\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth height\z@}% \setbox\@BC\hbox{\yoko \vrule width10mm depth\@tombowwidth height\z@ \vrule depth10mm width\@tombowwidth height\z@ \vrule width10mm depth\@tombowwidth height\z@}% \setbox\@BR\hbox to\z@{\yoko \vrule depth10mm width\@tombowwidth height\z@ - \vrule width13mm depth\@tombowwidth height\z@\hss}% + \vrule width\dimexpr 10mm+\@tombowbleed\relax depth\@tombowwidth height\z@\hss}% \setbox\@Br\hbox to\z@{\yoko - \vrule depth13mm width\@tombowwidth height\z@ + \vrule depth\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth height\z@ \vrule width10mm depth\@tombowwidth height\z@\hss}% % \setbox\@CL\hbox to\z@{\yoko\hss @@ -884,23 +934,81 @@ \vrule height10mm depth10mm width\@tombowwidth \vrule height.5\@tombowwidth depth.5\@tombowwidth width10mm\hss}% } +% +%\plEndIncludeInRelease +%\plIncludeInRelease{0000/00/00}{\maketombowbox} +% {Use \@tombowbleed}% +%\def\maketombowbox{% +% \setbox\@TL\hbox to\z@{\yoko\hss +% \vrule width13mm height\@tombowwidth depth\z@ +% \vrule height10mm width\@tombowwidth depth\z@ +% \iftombowdate +% \raise4pt\hbox to\z@{\hskip5mm\@bannerfont\the\@bannertoken\hss}% +% \fi}% +% \setbox\@Tl\hbox to\z@{\yoko\hss +% \vrule width10mm height\@tombowwidth depth\z@ +% \vrule height13mm width\@tombowwidth depth\z@}% +% \setbox\@TC\hbox{\yoko +% \vrule width10mm height\@tombowwidth depth\z@ +% \vrule height10mm width\@tombowwidth depth\z@ +% \vrule width10mm height\@tombowwidth depth\z@}% +% \setbox\@TR\hbox to\z@{\yoko +% \vrule height10mm width\@tombowwidth depth\z@ +% \vrule width13mm height\@tombowwidth depth\z@\hss}% +% \setbox\@Tr\hbox to\z@{\yoko +% \vrule height13mm width\@tombowwidth depth\z@ +% \vrule width10mm height\@tombowwidth depth\z@\hss}% +% \setbox\@BL\hbox to\z@{\yoko\hss +% \vrule width13mm depth\@tombowwidth height\z@ +% \vrule depth10mm width\@tombowwidth height\z@}% +% \setbox\@Bl\hbox to\z@{\yoko\hss +% \vrule width10mm depth\@tombowwidth height\z@ +% \vrule depth13mm width\@tombowwidth height\z@}% +% \setbox\@BC\hbox{\yoko +% \vrule width10mm depth\@tombowwidth height\z@ +% \vrule depth10mm width\@tombowwidth height\z@ +% \vrule width10mm depth\@tombowwidth height\z@}% +% \setbox\@BR\hbox to\z@{\yoko +% \vrule depth10mm width\@tombowwidth height\z@ +% \vrule width13mm depth\@tombowwidth height\z@\hss}% +% \setbox\@Br\hbox to\z@{\yoko +% \vrule depth13mm width\@tombowwidth height\z@ +% \vrule width10mm depth\@tombowwidth height\z@\hss}% +% \setbox\@CL\hbox to\z@{\yoko\hss +% \vrule width10mm height.5\@tombowwidth depth.5\@tombowwidth +% \vrule height10mm depth10mm width\@tombowwidth}% +% \setbox\@CR\hbox to\z@{\yoko +% \vrule height10mm depth10mm width\@tombowwidth +% \vrule height.5\@tombowwidth depth.5\@tombowwidth width10mm\hss}% +%} +%\plEndIncludeInRelease +%<*plcore> % \end{macrocode} % \end{macro} % % \begin{macro}{\@outputtombow} % |\@outputtombow|コマンドは、トンボを出力するのに用います。 +% コミュニティ版では、「色付きテキストの途中で改ページが起きた場合に、 +% トンボにも色が付いてしまう」という現象を防ぎ、さらにトンボの色を +% 簡単に変えられるよう、|\@tombowcolor|というマクロに切り出しています。 % \changes{v1.2d}{2016/04/01}{multicolパッケージを使うとトンボの下端が縮む問題を修正} +% \changes{v1.2z}{2018/05/13}{色の付いたテキストの途中で改ページすると +% トンボにも色が付く現象に対処、さらにトンボの色を\cs{@tombowcolor}へ・ +% bleed幅を\cs{@tombowbleed}に切り出し} % \begin{macrocode} % -%\plIncludeInRelease{2016/04/17}{\@outputtombow}{\@outputtombow}% +%\plIncludeInRelease{2018/05/20}{\@outputtombow} +% {Use \@tombowcolor and \@tombowbleed}% %<*plcore|platexrelease> \def\@outputtombow{% \iftombow - \vbox to\z@{\kern-13mm\relax - \boxmaxdepth\maxdimen%% Added (Apr 1, 2016) - \moveleft3mm\vbox to\@@paperheight{% - \hbox to\@@paperwidth{\hskip3mm\relax - \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip3mm}% + \vbox to\z@{\kern-\dimexpr 10mm+\@tombowbleed\relax\relax + \boxmaxdepth\maxdimen + \moveleft\@tombowbleed \vbox to\@@paperheight{% + \color@begingroup + \@tombowcolor + \hbox to\@@paperwidth{\hskip\@tombowbleed\relax + \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip\@tombowbleed}% \kern-10mm \hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}% \vfill @@ -908,14 +1016,37 @@ \vfill \hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}% \kern-10mm - \hbox to\@@paperwidth{\hskip3mm\relax - \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip3mm}% + \hbox to\@@paperwidth{\hskip\@tombowbleed\relax + \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip\@tombowbleed}% + \color@endgroup }\vss }% \fi } % %\plEndIncludeInRelease +%\plIncludeInRelease{2016/04/17}{\@outputtombow}{\@outputtombow}% +%\def\@outputtombow{% +% \iftombow +% \vbox to\z@{\kern-13mm\relax +% \boxmaxdepth\maxdimen +% \moveleft3mm\vbox to\@@paperheight{% +% \hbox to\@@paperwidth{\hskip3mm\relax +% \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip3mm}% +% \kern-10mm +% \hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}% +% \vfill +% \hbox to\@@paperwidth{\copy\@CL\hfill\copy\@CR}% +% \vfill +% \hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}% +% \kern-10mm +% \hbox to\@@paperwidth{\hskip3mm\relax +% \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip3mm}% +% }\vss +% }% +% \fi +%} +%\plEndIncludeInRelease %\plIncludeInRelease{0000/00/00}{\@outputtombow}{\@outputtombow}% %\def\@outputtombow{% % \iftombow @@ -958,6 +1089,38 @@ % \end{macro} % \end{macro} % +% \begin{macro}{\@tombowreset@@paper} +% トンボ出力オプションが指定されている場合に +% 用紙サイズを再設定する命令です。 +% |\@outputpage|へ加える変更を簡潔にするため、分離した上で +% |\@tombowbleed|を使うようにしました。 +% \changes{v1.2z}{2018/05/13}{コマンドに分離、さらに +% bleed幅を\cs{@tombowbleed}に切り出し} +% \begin{macrocode} +% +%\plIncludeInRelease{2018/05/20}{\@tombowreset@@paper} +% {Macro separated}% +%<*plcore|platexrelease> +\def\@tombowreset@@paper{% + \@@topmargin\topmargin + \iftombow + \@@paperwidth\paperwidth + \advance\@@paperwidth 2\dimexpr\@tombowbleed\relax + \@@paperheight\paperheight \advance\@@paperheight 10mm\relax + \advance\@@paperheight 2\dimexpr\@tombowbleed\relax + \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax + \fi +} +% +%\plEndIncludeInRelease +%\plIncludeInRelease{0000/00/00}{\@tombowreset@@paper} +% {Macro separated}% +%\let\@tombowreset@@paper\@undefined +%\plEndIncludeInRelease +%<*plcore> +% \end{macrocode} +% \end{macro} +% % \begin{macro}{\@shipoutsetup} % \changes{v1.1i}{1998/02/03}{Command removed} % |\@outputpage|内に挿入したので削除しました。 @@ -974,8 +1137,8 @@ % \changes{v1.2a}{2001/09/26}{\LaTeX\ \texttt{!<2001/06/01!>}に対応} % \begin{macrocode} % -%\plIncludeInRelease{2017/04/08}{\@outputpage} -% {Reset language for hyphenation}% +%\plIncludeInRelease{2018/05/20}{\@outputpage} +% {Use \@tombowreset@@paper}% %<*plcore|platexrelease> \def\@outputpage{% \begingroup % the \endgroup is put in by \aftergroup @@ -1029,13 +1192,11 @@ % トンボ出力オプションが指定されている場合、ここで用紙サイズを再設定します。 % \TeX の加える左と上部の1インチは、トンボの内側に入ります。 % \changes{v1.1a}{1995/11/10}{\cs{topmargin}が反映されないバグを修正} +% \changes{v1.2z}{2018/05/13}{\cs{@tombowreset@@paper}コマンドに分離} +% \begin{macrocode} + \@tombowreset@@paper +% \end{macrocode} % \begin{macrocode} - \@@topmargin\topmargin - \iftombow - \@@paperwidth\paperwidth \advance\@@paperwidth 6mm\relax - \@@paperheight\paperheight \advance\@@paperheight 16mm\relax - \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax - \fi \reset@font \normalsize \normalsfcodes @@ -1079,6 +1240,76 @@ } % %\plEndIncludeInRelease +%\plIncludeInRelease{2017/04/08}{\@outputpage} +% {Reset language for hyphenation}% +%\def\@outputpage{% +%\begingroup % the \endgroup is put in by \aftergroup +% \iftdir +% \dimen\z@\textwidth \textwidth\textheight \textheight\dimen\z@ +% \fi +% \let \protect \noexpand +% \language\document@default@language +% \@resetactivechars +% \global\let\@@if@newlist\if@newlist +% \global\@newlistfalse +% \@parboxrestore +% \shipout\vbox{\yoko +% \set@typeset@protect +% \aftergroup\endgroup +% \aftergroup\set@typeset@protect +% \if@specialpage +% \global\@specialpagefalse\@nameuse{ps@\@specialstyle}% +% \fi +% \if@twoside +% \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot +% \iftdir\let\@themargin\evensidemargin +% \else\let\@themargin\oddsidemargin\fi +% \else \let\@thehead\@evenhead +% \let\@thefoot\@evenfoot +% \iftdir\let\@themargin\oddsidemargin +% \else\let\@themargin\evensidemargin\fi +% \fi\fi +% \@@topmargin\topmargin +% \iftombow +% \@@paperwidth\paperwidth \advance\@@paperwidth 6mm\relax +% \@@paperheight\paperheight \advance\@@paperheight 16mm\relax +% \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax +% \fi +% \reset@font +% \normalsize +% \normalsfcodes +% \let\label\@gobble +% \let\index\@gobble +% \let\glossary\@gobble +% \baselineskip\z@skip \lineskip\z@skip \lineskiplimit\z@ +% \@begindvi +% \@outputtombow +% \vskip \@@topmargin +% \moveright\@themargin\vbox{% +% \setbox\@tempboxa \vbox to\headheight{% +% \vfil +% \color@hbox +% \normalcolor +% \hb@xt@\textwidth{\@thehead}% +% \color@endbox +% }% %% 22 Feb 87 +% \dp\@tempboxa \z@ +% \box\@tempboxa +% \vskip \headsep +% \box\@outputbox +% \baselineskip \footskip +% \color@hbox +% \normalcolor +% \hb@xt@\textwidth{\@thefoot}% +% \color@endbox +% }% +% }% +% \global\let\if@newlist\@@if@newlist +% \global \@colht \textheight +% \stepcounter{page}% +% \let\firstmark\botmark +%} +%\plEndIncludeInRelease %\plIncludeInRelease{0000/00/00}{\@outputpage} % {Reset language for hyphenation}% %\def\@outputpage{% diff --git a/Master/texmf-dist/source/platex/base/plnewsc10.tex b/Master/texmf-dist/source/platex/base/plnewsc10.tex new file mode 100644 index 00000000000..7abf9d8c7a8 --- /dev/null +++ b/Master/texmf-dist/source/platex/base/plnewsc10.tex @@ -0,0 +1,77 @@ +%% <2018-04-01> and <2018-05-20> +\documentclass{plnews} + +\publicationyear{2018}% 発行年 +\publicationmonth{05}% 発行月 +\publicationissue{c10}% 番号 +\author{日本語\TeX{}開発コミュニティ(\texttt{https://texjp.org/})} + +\def\cs#1{\texttt{\char92 #1}} +\def\pTeX{p\kern-.15em\TeX} +\def\eTeX{$\varepsilon$-\TeX} +\def\epTeX{$\varepsilon$-\pTeX} +\def\pLaTeX{p\kern-.05em\LaTeX} +\def\pLaTeXe{p\kern-.05em\LaTeXe} + +\begin{document} + +\maketitle + +この文書はコミュニティ版\pLaTeXe\ \texttt{<2018-04-01>}および +\texttt{<2018-05-20>}について、 +\pLaTeXe\ \texttt{<2018/03/09>}からの更新箇所をまとめたものです。 +今回から、フォーマットの日付の表記をyyyy/mm/ddからISO 8601準拠の +yyyy-mm-ddに変更しました。 + + +\section{\LaTeXe\ \texttt{<2018-04-01>}対応} +\LaTeXe\ \texttt{<2018-04-01>}で、欧文のinputencの既定が|utf8|に +なりました。これに合わせ、\pLaTeXe で和文用に拡張していた +|\DeclareFontEncoding|命令でも|.dfu|ファイルの読込処理を追加しました。 + + +\section{トンボ関連の修正と機能追加} +従来、colorパッケージなどでテキストに色をつけた場合、 +その色つきテキストの途中に改ページするとそこだけトンボにも +色がつくという問題がありました。\pLaTeXe\ \texttt{<2018-05-20>}では +この問題に対処しました。 + +さらに、トンボをカスタマイズしやすくするため、以下の仕様を定めます。 +パッケージを作る場合などに、以下のマクロやパラメータを +変更することができます。 + +まずはマクロです。 +\begin{itemize} +\item |\maketombowbox|はトンボになる形状を用意する命令です。 +\item |\@outputtombow|は用意されたトンボを定位置に出力する命令です。 +\end{itemize} +次にパラメータです。 +\begin{itemize} +\item トンボに出力するバナーは|\@bannertoken|で表す。 + これはトークンレジスタである。【アスキー版と同様】 +\item トンボの線の幅は|\@tombowwidth|で表す。 + これは|\dimen|レジスタであり、デフォルトは + |.1pt|である。【アスキー版と同様】 +\item トンボの塗り足し(ドブ)の幅は|\@tombowbleed|で表す。 + これは寸法マクロであり、デフォルトは + |\def\@tombowbleed{3mm}|である。【新設】 +\item トンボの色は|\@tombowcolor|マクロで表す。 + デフォルトは|\def\@tombowcolor{\normalcolor}|である。【新設】 +\end{itemize} + + +\section{開発版のテストのお願い} +今後\pLaTeX{}に導入するかもしれない修正パッチや仕様変更のテストにご協力くだ +さい。\TeX{}ファイルの冒頭(|\documentclass|より前)で +\begin{verbatim} + \RequirePackage{exppl2e} +\end{verbatim} +と書くことで、開発版をテストすることができます。 +バグ報告やご意見を歓迎します。 +\TeX\ ForumやGitHubのIssueシステムが利用できます。 +\begin{itemize} +\item \texttt{https://github.com/texjporg/platex} +\item \texttt{https://github.com/texjporg/uplatex} +\end{itemize} + +\end{document} diff --git a/Master/texmf-dist/source/platex/base/plvers.dtx b/Master/texmf-dist/source/platex/base/plvers.dtx index 291bb1487a9..16436150344 100644 --- a/Master/texmf-dist/source/platex/base/plvers.dtx +++ b/Master/texmf-dist/source/platex/base/plvers.dtx @@ -169,10 +169,10 @@ % %\edef\platexreleaseversion %<*plcore|platexrelease> - {2018-04-01} + {2018-05-20} % %<*plcore> -\def\ppatch@level{2} +\def\ppatch@level{0} % % \end{macrocode} % \end{macro} diff --git a/Master/texmf-dist/tex/platex/base/exppl2e.sty b/Master/texmf-dist/tex/platex/base/exppl2e.sty index afdc6718398..b3b29d9ae21 100644 --- a/Master/texmf-dist/tex/platex/base/exppl2e.sty +++ b/Master/texmf-dist/tex/platex/base/exppl2e.sty @@ -34,7 +34,7 @@ % case 1: This file must be a normal package \NeedsTeXFormat{pLaTeX2e} \ProvidesPackage{exppl2e} - [2018/04/06 v1.0u Experimental pLaTeX2e features] + [2018/05/20 v1.0v Experimental pLaTeX2e features] \PackageWarningNoLine{exppl2e}{% This is the unstable, experimental part of pLaTeX2e.\MessageBreak This package may contain:\MessageBreak @@ -406,183 +406,16 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % \subsection{直前のJFM由来スペースの削除【コミュニティ版独自】} -% 現状のp\TeX{}(\TeX\ Live 2017時点)では、 -% |\inhibitglue|プリミティブは「JFM由来のスペース(グルー・カーン)挿入 -% ルーチンを抑制する」働きをします。しかし、既に挿入されてしまった -% JFMグルーやカーンを削除することはできません。 -% -% \begin{macro}{\removejfmglue} -% そこで、「最後のノードがJFMグルーであった場合にそれを削除する」という -% ユーザ向け命令を定義します。この機能にはe-p\TeX{} 180226以降の -% |\lastnodesubtype|プリミティブが必要です。 -% \changes{v1.2x}{2018/03/01}{JFMグルーノードを削除するマクロ追加} -% \begin{macrocode} -%\plIncludeInRelease{2018/03/09}% -% {\removejfmglue}{Macro added}% -%<*plcore|platexrelease> -% \end{macrocode} -% \begin{macrocode} -\ifx\lastnodesubtype\@undefined - \let\removejfmglue\@undefined -\else - \def\pltx@gluetype{11} - \def\pltx@jfmgluesubtype{21} - \protected\def\removejfmglue{% - \ifnum\lastnodetype=\pltx@gluetype\relax - \ifnum\lastnodesubtype=\pltx@jfmgluesubtype\relax - \unskip - \fi - \fi} -\fi -% -%\plEndIncludeInRelease -%\plIncludeInRelease{0000/00/00}% -% {\removejfmglue}{Macro added}% -%\let\removejfmglue\@undefined -%\plEndIncludeInRelease -% \end{macrocode} -% \end{macro} +% +% p\LaTeXe{}カーネル(2018/03/09)に導入したため削除。 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % \section{tabular環境のセル内のJFMグル―} % -% \begin{macro}{\@tabclassz} -% \LaTeX{}カーネルは、アラインメント文字|&|の周囲に半角空白を書いたかどうかに -% かかわらず余分なスペースを出力しないように、|\ignorespaces|と|\unskip|を -% 発行しています(lttab.dtx)。しかし、これだけではJFMグルーが消えずに残って -% しまうので、p\LaTeX{}では追加の対処を入れます。 -% -% まず、|l|, |c|, |r|の場合です。 -% 2017/09/26の修正では「セルの要素を|\mbox|に入れ、 -% その最初で|\inhibitglue|を発行する」という方針でしたが、 -% 2018/03/09の修正では「|\removejfmglue|マクロが定義されている場合は -% 最初に|\inhibitglue|を発行し、最後に|\removejfmglue|を発行する」という -% 方針にします。こうすれば少々\LaTeX{}との互換性が向上します。 -% \changes{v1.2p}{2017/07/21}{tabular環境のセル内のJFMグル―を削除} -% \changes{v1.2r}{2017/09/26}{tabular環境の右揃え(r)で罫線がずれるように -% なっていたバグを修正} -% \changes{v1.2x}{2018/03/01}{\cs{removejfmglue}があれば利用するようにした} -% \begin{macrocode} -%\plIncludeInRelease{2018/03/09}{\@tabclassz} -% {Inhibit JFM glue in tabular cells}% -%<*plcore|platexrelease> -\ifx\removejfmglue\@undefined -\def\@tabclassz{% - \ifcase\@lastchclass - \@acolampacol - \or - \@ampacol - \or - \or - \or - \@addamp - \or - \@acolampacol - \or - \@firstampfalse\@acol - \fi - \edef\@preamble{% - \@preamble{% - \ifcase\@chnum - \hfil\mbox{\inhibitglue\ignorespaces\@sharp\unskip}\hfil % c - \or - \hskip1sp\mbox{\inhibitglue\ignorespaces\@sharp\unskip}\hfil % l - \or - \hfil\hskip1sp\mbox{\inhibitglue\ignorespaces\@sharp\unskip}% % r - \fi}}} -\else -\def\@tabclassz{% - \ifcase\@lastchclass - \@acolampacol - \or - \@ampacol - \or - \or - \or - \@addamp - \or - \@acolampacol - \or - \@firstampfalse\@acol - \fi - \edef\@preamble{% - \@preamble{% - \ifcase\@chnum - \hfil\inhibitglue\ignorespaces\@sharp\unskip\removejfmglue\hfil % c - \or - \hskip1sp\inhibitglue\ignorespaces\@sharp\unskip\removejfmglue\hfil % l - \or - \hfil\hskip1sp\inhibitglue\ignorespaces\@sharp\unskip\removejfmglue % r - \fi}}} -\fi -% -%\plEndIncludeInRelease -% \end{macrocode} -% \end{macro} -% -% \begin{macro}{\@classv} -% 次に、|p|の場合です。 -% 2017/07/29の修正では|\mbox{}\inhibitglue|と|\unskip|を追加していましたが、 -% 以下のように|p|指定のセルの最初で|\par|として -% 改段落を発行すると、一行空いてしまうという症状が起きてしまいます(platex/\#63)。 -%\begin{verbatim} -% \begin{tabular}{p{5cm}} -% A\\ -% \relax\par -% A -% \end{tabular} -%\end{verbatim} -% ここでは、2017/07/29の修正から方針を改め、|\everypar|内に|\inhibitglue|を -% 仕込むという方針で対応します。 -% \changes{v1.2p}{2017/07/21}{tabular環境のセル内のJFMグル―を削除} -% \changes{v1.2x}{2018/03/01}{セル最初の\cs{par}で空行が入らないようにした} -% \begin{macrocode} -%\plIncludeInRelease{2018/03/09}{\@classv} -% {Inhibit JFM glue in tabular cells}% -%<*plcore|platexrelease> -\def\@classv{\@addtopreamble{\@startpbox{\@nextchar}\pltx@next@inhibitglue\ignorespaces -\@sharp\unskip\@endpbox}} -% -%\plEndIncludeInRelease -%\plIncludeInRelease{2017/07/29}{\@classv} -% {Inhibit JFM glue in tabular cells}% -%\def\@classv{\@addtopreamble{\@startpbox{\@nextchar}\mbox{}\inhibitglue\ignorespaces -%\@sharp\unskip\@endpbox}} -%\plEndIncludeInRelease -%\plIncludeInRelease{0000/00/00}{\@classv} -% {Inhibit JFM glue in tabular cells}% -%\def\@classv{\@addtopreamble{\@startpbox{\@nextchar}\ignorespaces -%\@sharp\@endpbox}} -%\plEndIncludeInRelease -% \end{macrocode} -% \end{macro} -% -% \begin{macro}{\pltx@next@inhibitglue} -% 水平モードであればそのまま|\inhibitglue|を発行し、それ以外であれば -% |\everypar|内に|\inhibitglue|を仕込みます。 -% \changes{v1.2x}{2018/03/01}{\cs{everypar}に\cs{inhibitglue}を仕込むマクロ追加} -% \changes{v1.2y}{2018/03/12}{\cs{inhibitglue}を\cs{everypar}の末尾に移動} -% \begin{macrocode} -%\plIncludeInRelease{2018/03/09}{\pltx@next@inhibitglue} -% {Add \pltx@next@inhibitglue}% -%<*plcore|platexrelease> -\protected\def\pltx@next@inhibitglue{% - \ifhmode\inhibitglue\else - \edef\@tempa{\everypar{% - \everypar{\unexpanded\expandafter{\the\everypar}}% - \unexpanded\expandafter{\the\everypar}\inhibitglue}}% - \@tempa\fi} -% -%\plEndIncludeInRelease -%\plIncludeInRelease{0000/00/00}{\pltx@next@inhibitglue} -% {Add \pltx@next@inhibitglue}% -%\let\pltx@next@inhibitglue\@undefined -%\plEndIncludeInRelease -% \end{macrocode} -% \end{macro} +% p\LaTeXe{}カーネル(2017/07/29)に導入したため削除。 % -% % p\LaTeXe{}カーネル(2017/07/29)に導入したため削除。 +% さらなる修正もp\LaTeXe{}カーネル(2018/03/09)に導入したため削除。 % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % diff --git a/Master/texmf-dist/tex/platex/base/platexrelease.sty b/Master/texmf-dist/tex/platex/base/platexrelease.sty index f11e6f6a556..0dcc1e3ac2c 100644 --- a/Master/texmf-dist/tex/platex/base/platexrelease.sty +++ b/Master/texmf-dist/tex/platex/base/platexrelease.sty @@ -18,7 +18,7 @@ \edef\p@known@latexreleaseversion {2018-04-01} \edef\platexreleaseversion - {2018-04-01} + {2018-05-20} \newif\if@plincludeinrelease \@plincludeinreleasefalse \def\plIncludeInRelease#1{% @@ -131,6 +131,9 @@ of this package available from CTAN} some critical bugs. We advise you to\MessageBreak select another format date} \plIncludeInRelease{2017/10/28}{\PackageWarning}{pLaTeX Info}% + % * <2018-05-20> + % * <2018-04-01>+2 + % * <2018-04-01>+1 % * <2018-04-01> % * <2018/03/09>+1 % * <2018/03/09> @@ -837,11 +840,140 @@ of this package available from CTAN} \global \maxdepth \@maxdepth } \plEndIncludeInRelease +\plIncludeInRelease{2018/05/20}{\@tombowbleed}{Macro added}% +\def\@tombowbleed{3mm} +\plEndIncludeInRelease +\plIncludeInRelease{0000/00/00}{\@tombowbleed}{Macro added}% +\let\@tombowbleed\@undefined +\plEndIncludeInRelease +\plIncludeInRelease{2018/05/20}{\@tombowcolor}{Macro added}% +\def\@tombowcolor{\normalcolor} +\plEndIncludeInRelease +\plIncludeInRelease{0000/00/00}{\@tombowcolor}{Macro added}% +\let\@tombowcolor\@undefined +\plEndIncludeInRelease +\plIncludeInRelease{2018/05/20}{\maketombowbox} + {Use \@tombowbleed}% +\def\maketombowbox{% + \setbox\@TL\hbox to\z@{\yoko\hss + \vrule width\dimexpr 10mm+\@tombowbleed\relax height\@tombowwidth depth\z@ + \vrule height10mm width\@tombowwidth depth\z@ + \iftombowdate + \raise4pt\hbox to\z@{\hskip5mm\@bannerfont\the\@bannertoken\hss}% + \fi}% + \setbox\@Tl\hbox to\z@{\yoko\hss + \vrule width10mm height\@tombowwidth depth\z@ + \vrule height\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth depth\z@}% + \setbox\@TC\hbox{\yoko + \vrule width10mm height\@tombowwidth depth\z@ + \vrule height10mm width\@tombowwidth depth\z@ + \vrule width10mm height\@tombowwidth depth\z@}% + \setbox\@TR\hbox to\z@{\yoko + \vrule height10mm width\@tombowwidth depth\z@ + \vrule width\dimexpr 10mm+\@tombowbleed\relax height\@tombowwidth depth\z@\hss}% + \setbox\@Tr\hbox to\z@{\yoko + \vrule height\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth depth\z@ + \vrule width10mm height\@tombowwidth depth\z@\hss}% + \setbox\@BL\hbox to\z@{\yoko\hss + \vrule width\dimexpr 10mm+\@tombowbleed\relax depth\@tombowwidth height\z@ + \vrule depth10mm width\@tombowwidth height\z@}% + \setbox\@Bl\hbox to\z@{\yoko\hss + \vrule width10mm depth\@tombowwidth height\z@ + \vrule depth\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth height\z@}% + \setbox\@BC\hbox{\yoko + \vrule width10mm depth\@tombowwidth height\z@ + \vrule depth10mm width\@tombowwidth height\z@ + \vrule width10mm depth\@tombowwidth height\z@}% + \setbox\@BR\hbox to\z@{\yoko + \vrule depth10mm width\@tombowwidth height\z@ + \vrule width\dimexpr 10mm+\@tombowbleed\relax depth\@tombowwidth height\z@\hss}% + \setbox\@Br\hbox to\z@{\yoko + \vrule depth\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth height\z@ + \vrule width10mm depth\@tombowwidth height\z@\hss}% + \setbox\@CL\hbox to\z@{\yoko\hss + \vrule width10mm height.5\@tombowwidth depth.5\@tombowwidth + \vrule height10mm depth10mm width\@tombowwidth}% + \setbox\@CR\hbox to\z@{\yoko + \vrule height10mm depth10mm width\@tombowwidth + \vrule height.5\@tombowwidth depth.5\@tombowwidth width10mm\hss}% +} +\plEndIncludeInRelease +\plIncludeInRelease{0000/00/00}{\maketombowbox} + {Use \@tombowbleed}% +\def\maketombowbox{% + \setbox\@TL\hbox to\z@{\yoko\hss + \vrule width13mm height\@tombowwidth depth\z@ + \vrule height10mm width\@tombowwidth depth\z@ + \iftombowdate + \raise4pt\hbox to\z@{\hskip5mm\@bannerfont\the\@bannertoken\hss}% + \fi}% + \setbox\@Tl\hbox to\z@{\yoko\hss + \vrule width10mm height\@tombowwidth depth\z@ + \vrule height13mm width\@tombowwidth depth\z@}% + \setbox\@TC\hbox{\yoko + \vrule width10mm height\@tombowwidth depth\z@ + \vrule height10mm width\@tombowwidth depth\z@ + \vrule width10mm height\@tombowwidth depth\z@}% + \setbox\@TR\hbox to\z@{\yoko + \vrule height10mm width\@tombowwidth depth\z@ + \vrule width13mm height\@tombowwidth depth\z@\hss}% + \setbox\@Tr\hbox to\z@{\yoko + \vrule height13mm width\@tombowwidth depth\z@ + \vrule width10mm height\@tombowwidth depth\z@\hss}% + \setbox\@BL\hbox to\z@{\yoko\hss + \vrule width13mm depth\@tombowwidth height\z@ + \vrule depth10mm width\@tombowwidth height\z@}% + \setbox\@Bl\hbox to\z@{\yoko\hss + \vrule width10mm depth\@tombowwidth height\z@ + \vrule depth13mm width\@tombowwidth height\z@}% + \setbox\@BC\hbox{\yoko + \vrule width10mm depth\@tombowwidth height\z@ + \vrule depth10mm width\@tombowwidth height\z@ + \vrule width10mm depth\@tombowwidth height\z@}% + \setbox\@BR\hbox to\z@{\yoko + \vrule depth10mm width\@tombowwidth height\z@ + \vrule width13mm depth\@tombowwidth height\z@\hss}% + \setbox\@Br\hbox to\z@{\yoko + \vrule depth13mm width\@tombowwidth height\z@ + \vrule width10mm depth\@tombowwidth height\z@\hss}% + \setbox\@CL\hbox to\z@{\yoko\hss + \vrule width10mm height.5\@tombowwidth depth.5\@tombowwidth + \vrule height10mm depth10mm width\@tombowwidth}% + \setbox\@CR\hbox to\z@{\yoko + \vrule height10mm depth10mm width\@tombowwidth + \vrule height.5\@tombowwidth depth.5\@tombowwidth width10mm\hss}% +} +\plEndIncludeInRelease +\plIncludeInRelease{2018/05/20}{\@outputtombow} +\def\@outputtombow{% + \iftombow + \vbox to\z@{\kern-\dimexpr 10mm+\@tombowbleed\relax\relax + \boxmaxdepth\maxdimen + \moveleft\@tombowbleed \vbox to\@@paperheight{% + \color@begingroup + \@tombowcolor + \hbox to\@@paperwidth{\hskip\@tombowbleed\relax + \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip\@tombowbleed}% + \kern-10mm + \hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}% + \vfill + \hbox to\@@paperwidth{\copy\@CL\hfill\copy\@CR}% + \vfill + \hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}% + \kern-10mm + \hbox to\@@paperwidth{\hskip\@tombowbleed\relax + \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip\@tombowbleed}% + \color@endgroup + }\vss + }% + \fi +} +\plEndIncludeInRelease \plIncludeInRelease{2016/04/17}{\@outputtombow}{\@outputtombow}% \def\@outputtombow{% \iftombow \vbox to\z@{\kern-13mm\relax - \boxmaxdepth\maxdimen%% Added (Apr 1, 2016) + \boxmaxdepth\maxdimen \moveleft3mm\vbox to\@@paperheight{% \hbox to\@@paperwidth{\hskip3mm\relax \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip3mm}% @@ -880,6 +1012,88 @@ of this package available from CTAN} \fi } \plEndIncludeInRelease +\plIncludeInRelease{2018/05/20}{\@tombowreset@@paper} + {Macro separated}% +\def\@tombowreset@@paper{% + \@@topmargin\topmargin + \iftombow + \@@paperwidth\paperwidth + \advance\@@paperwidth 2\dimexpr\@tombowbleed\relax + \@@paperheight\paperheight \advance\@@paperheight 10mm\relax + \advance\@@paperheight 2\dimexpr\@tombowbleed\relax + \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax + \fi +} +\plEndIncludeInRelease +\plIncludeInRelease{0000/00/00}{\@tombowreset@@paper} + {Macro separated}% +\let\@tombowreset@@paper\@undefined +\plEndIncludeInRelease +\plIncludeInRelease{2018/05/20}{\@outputpage} + {Use \@tombowreset@@paper}% +\def\@outputpage{% +\begingroup % the \endgroup is put in by \aftergroup + \iftdir + \dimen\z@\textwidth \textwidth\textheight \textheight\dimen\z@ + \fi + \let \protect \noexpand + \language\document@default@language + \@resetactivechars + \global\let\@@if@newlist\if@newlist + \global\@newlistfalse + \@parboxrestore + \shipout\vbox{\yoko + \set@typeset@protect + \aftergroup\endgroup + \aftergroup\set@typeset@protect + \if@specialpage + \global\@specialpagefalse\@nameuse{ps@\@specialstyle}% + \fi + \if@twoside + \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot + \iftdir\let\@themargin\evensidemargin + \else\let\@themargin\oddsidemargin\fi + \else \let\@thehead\@evenhead + \let\@thefoot\@evenfoot + \iftdir\let\@themargin\oddsidemargin + \else\let\@themargin\evensidemargin\fi + \fi\fi + \@tombowreset@@paper + \reset@font + \normalsize + \normalsfcodes + \let\label\@gobble + \let\index\@gobble + \let\glossary\@gobble + \baselineskip\z@skip \lineskip\z@skip \lineskiplimit\z@ + \@begindvi + \@outputtombow + \vskip \@@topmargin + \moveright\@themargin\vbox{% + \setbox\@tempboxa \vbox to\headheight{% + \vfil + \color@hbox + \normalcolor + \hb@xt@\textwidth{\@thehead}% + \color@endbox + }% %% 22 Feb 87 + \dp\@tempboxa \z@ + \box\@tempboxa + \vskip \headsep + \box\@outputbox + \baselineskip \footskip + \color@hbox + \normalcolor + \hb@xt@\textwidth{\@thefoot}% + \color@endbox + }% + }% + \global\let\if@newlist\@@if@newlist + \global \@colht \textheight + \stepcounter{page}% + \let\firstmark\botmark +} +\plEndIncludeInRelease \plIncludeInRelease{2017/04/08}{\@outputpage} {Reset language for hyphenation}% \def\@outputpage{% diff --git a/Master/texmf-dist/tex/platex/base/plcore.ltx b/Master/texmf-dist/tex/platex/base/plcore.ltx index 5d4fc36f743..5da961f7a26 100644 --- a/Master/texmf-dist/tex/platex/base/plcore.ltx +++ b/Master/texmf-dist/tex/platex/base/plcore.ltx @@ -33,8 +33,8 @@ \fi \def\pfmtname{pLaTeX2e} \def\pfmtversion - {2018-04-01} -\def\ppatch@level{2} + {2018-05-20} +\def\ppatch@level{0} \edef\platexBANNER{\noexpand\platexNILa \the\everyjob % LaTeX banner and delayed codes \noexpand\platexNILb} @@ -914,6 +914,8 @@ \newif\iftombowdate \tombowdatetrue \newdimen\@tombowwidth \setlength{\@tombowwidth}{.1\p@} +\def\@tombowbleed{3mm} +\def\@tombowcolor{\normalcolor} \newbox\@TL\newbox\@Tl \newbox\@TC \newbox\@TR\newbox\@Tr @@ -927,39 +929,39 @@ \@bannertoken{} \def\maketombowbox{% \setbox\@TL\hbox to\z@{\yoko\hss - \vrule width13mm height\@tombowwidth depth\z@ + \vrule width\dimexpr 10mm+\@tombowbleed\relax height\@tombowwidth depth\z@ \vrule height10mm width\@tombowwidth depth\z@ \iftombowdate \raise4pt\hbox to\z@{\hskip5mm\@bannerfont\the\@bannertoken\hss}% \fi}% \setbox\@Tl\hbox to\z@{\yoko\hss \vrule width10mm height\@tombowwidth depth\z@ - \vrule height13mm width\@tombowwidth depth\z@}% + \vrule height\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth depth\z@}% \setbox\@TC\hbox{\yoko \vrule width10mm height\@tombowwidth depth\z@ \vrule height10mm width\@tombowwidth depth\z@ \vrule width10mm height\@tombowwidth depth\z@}% \setbox\@TR\hbox to\z@{\yoko \vrule height10mm width\@tombowwidth depth\z@ - \vrule width13mm height\@tombowwidth depth\z@\hss}% + \vrule width\dimexpr 10mm+\@tombowbleed\relax height\@tombowwidth depth\z@\hss}% \setbox\@Tr\hbox to\z@{\yoko - \vrule height13mm width\@tombowwidth depth\z@ + \vrule height\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth depth\z@ \vrule width10mm height\@tombowwidth depth\z@\hss}% \setbox\@BL\hbox to\z@{\yoko\hss - \vrule width13mm depth\@tombowwidth height\z@ + \vrule width\dimexpr 10mm+\@tombowbleed\relax depth\@tombowwidth height\z@ \vrule depth10mm width\@tombowwidth height\z@}% \setbox\@Bl\hbox to\z@{\yoko\hss \vrule width10mm depth\@tombowwidth height\z@ - \vrule depth13mm width\@tombowwidth height\z@}% + \vrule depth\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth height\z@}% \setbox\@BC\hbox{\yoko \vrule width10mm depth\@tombowwidth height\z@ \vrule depth10mm width\@tombowwidth height\z@ \vrule width10mm depth\@tombowwidth height\z@}% \setbox\@BR\hbox to\z@{\yoko \vrule depth10mm width\@tombowwidth height\z@ - \vrule width13mm depth\@tombowwidth height\z@\hss}% + \vrule width\dimexpr 10mm+\@tombowbleed\relax depth\@tombowwidth height\z@\hss}% \setbox\@Br\hbox to\z@{\yoko - \vrule depth13mm width\@tombowwidth height\z@ + \vrule depth\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth height\z@ \vrule width10mm depth\@tombowwidth height\z@\hss}% \setbox\@CL\hbox to\z@{\yoko\hss \vrule width10mm height.5\@tombowwidth depth.5\@tombowwidth @@ -970,11 +972,13 @@ } \def\@outputtombow{% \iftombow - \vbox to\z@{\kern-13mm\relax - \boxmaxdepth\maxdimen%% Added (Apr 1, 2016) - \moveleft3mm\vbox to\@@paperheight{% - \hbox to\@@paperwidth{\hskip3mm\relax - \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip3mm}% + \vbox to\z@{\kern-\dimexpr 10mm+\@tombowbleed\relax\relax + \boxmaxdepth\maxdimen + \moveleft\@tombowbleed \vbox to\@@paperheight{% + \color@begingroup + \@tombowcolor + \hbox to\@@paperwidth{\hskip\@tombowbleed\relax + \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip\@tombowbleed}% \kern-10mm \hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}% \vfill @@ -982,8 +986,9 @@ \vfill \hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}% \kern-10mm - \hbox to\@@paperwidth{\hskip3mm\relax - \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip3mm}% + \hbox to\@@paperwidth{\hskip\@tombowbleed\relax + \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip\@tombowbleed}% + \color@endgroup }\vss }% \fi @@ -991,6 +996,16 @@ \newdimen\@@paperheight \newdimen\@@paperwidth \newdimen\@@topmargin +\def\@tombowreset@@paper{% + \@@topmargin\topmargin + \iftombow + \@@paperwidth\paperwidth + \advance\@@paperwidth 2\dimexpr\@tombowbleed\relax + \@@paperheight\paperheight \advance\@@paperheight 10mm\relax + \advance\@@paperheight 2\dimexpr\@tombowbleed\relax + \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax + \fi +} \def\@outputpage{% \begingroup % the \endgroup is put in by \aftergroup \iftdir @@ -1018,12 +1033,7 @@ \iftdir\let\@themargin\oddsidemargin \else\let\@themargin\evensidemargin\fi \fi\fi - \@@topmargin\topmargin - \iftombow - \@@paperwidth\paperwidth \advance\@@paperwidth 6mm\relax - \@@paperheight\paperheight \advance\@@paperheight 16mm\relax - \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax - \fi + \@tombowreset@@paper \reset@font \normalsize \normalsfcodes -- cgit v1.2.3