diff options
author | Karl Berry <karl@freefriends.org> | 2016-05-09 23:46:07 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2016-05-09 23:46:07 +0000 |
commit | a0fe732c51650716b95c145d4c68cbe7138f83d4 (patch) | |
tree | ec1711f4aa1db3e9f60ee468741d773f7ec5eb96 /Master/texmf-dist/tex/platex/base/tascmac.sty | |
parent | c143a4632d967b1831be9a77ea54f6ceac5da3ec (diff) |
platex (9may16)
git-svn-id: svn://tug.org/texlive/trunk@40992 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/platex/base/tascmac.sty')
-rw-r--r-- | Master/texmf-dist/tex/platex/base/tascmac.sty | 281 |
1 files changed, 167 insertions, 114 deletions
diff --git a/Master/texmf-dist/tex/platex/base/tascmac.sty b/Master/texmf-dist/tex/platex/base/tascmac.sty index 7bfe0b64066..a38da428621 100644 --- a/Master/texmf-dist/tex/platex/base/tascmac.sty +++ b/Master/texmf-dist/tex/platex/base/tascmac.sty @@ -1,86 +1,132 @@ -% "tascmac" document style option for tate gumi. -% -% Copyright (C) by 1993, ASCII Corporation & Impress Corporation. -% -% 2006/07/14 (ST): itembox, screen environment bug fix. -% 2002/04/01 (KN): ASCII logo macros -% 1998/11/27 (KN and FTEXers): itembox -% 1998/02/27 (KN): set \tbaselineshift in minipage environment. -% -% ascmac.sty 10/28 '88 -% ASCII special macros +%% +%% This is file `tascmac.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% ascmac.dtx (with options: `tascmac') +%% +%% Copyright (c) 2010 ASCII MEDIA WORKS +%% Copyright (c) 2016 Japanese TeX Development Community +%% +%% This file is part of the pLaTeX2e system (community edition). +%% ------------------------------------------------------------- +%% +%% "tascmac" document style option for tate gumi. +%% +%% Original version: +%% Copyright (C) by 1993, ASCII Corporation & Impress Corporation. +%% (Last update: 2006/07/14) +%% Modified by Japanese TeX Development Community, since 2016. +%% +%% (ChangeLog has moved to the source file ``ascmac.dtx'') +%% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{tascmac} + [2016/04/15 v2.0b + ascmac package (community edition) + ] +%% +%% Actually `tascmac' requires pLaTeX2e, but LuaTeX-ja can handle the +%% code properly; so \NeedsTeXFormat{LaTeX2e} on purpose. +%% Check is included below: +%% +\ifx\kanjiskip\@undefined + \@ifpackageloaded{luatexja}{% + \PackageInfo{tascmac}{% + Patch from LuaTeX-ja will be applied}% + }{% + \PackageError{tascmac}{% + `ascmac' and `tascmac' can be used only in pLaTeX,\MessageBreak + upLaTeX or LuaLaTeX with LuaTeX-ja support.\MessageBreak + Consider using `bxascmac' instead.\MessageBreak + See https://github.com/zr-tex8r/BXptool for detail}{}% + }% +\fi +%% +%% ascmac.sty 10/28 '88 +%% ASCII special macros \newdimen\@savetbaselineshift \newdimen\@saveybaselineshift -% +%% %% ASCII logo \def\@@ASCII#1#2#3{\shortstack{#1 ASCII \\[#3] \fontsize{#2}{\z@}\usefont{OT1}{cmss}{m}{n}ASCII CORPORATION}} \def\ascii{\@ifundefined{@ascii}{\font\@ascii=ascii10 scaled \magstep4}{}% -\@@ASCII\@ascii{5pt}{-6pt}} + \@@ASCII\@ascii{5pt}{-6pt}} \def\Ascii{\@ifundefined{@Ascii}{\font\@Ascii=ascii10 scaled \magstep5}{}% -\@@ASCII\@Ascii{6pt}{-7pt}} + \@@ASCII\@Ascii{6pt}{-7pt}} \def\ASCII{\@ifundefined{@ASCII}{\font\@ASCII=ascii36}{}% -\@@ASCII\@ASCII{9pt}{-9pt}} + \@@ASCII\@ASCII{9pt}{-9pt}} %% %% boxnote environment \font\@ascgrp=ascgrp \newbox\scb@x \newbox\scscb@x \newdimen\@bw\newbox\@nbox\newbox\@nbody -\def\boxnote{\par\vspace{\baselineskip} -\@savetbaselineshift\tbaselineshift\tbaselineshift\z@ -\setbox\@nbox=\hbox{\@ascgrp\vrule width1.08pt depth35pt b\hss a\hss b} -\@whiledim \wd\@nbox<\hsize \do{ -\setbox\@nbox=\hbox{\@ascgrp\unhbox\@nbox \hss a\hss b}} -\setbox\@nbox=\hbox to\hsize{\@ascgrp\unhbox\@nbox \hss a\hss b% -\vrule width1.08pt depth35pt} -\@bw=\wd\@nbox\advance\@bw -40pt -\begin{lrbox}{\@nbody}\begin{minipage}{\@bw}% (KN:1998/02/27) - \tbaselineshift\@savetbaselineshift}% +\def\boxnote{\par\vspace{.3\baselineskip}% + \@saveybaselineshift\ybaselineshift\ybaselineshift\z@ + \@savetbaselineshift\tbaselineshift\tbaselineshift\z@ + \setbox\@nbox=\hbox{\@ascgrp\vrule width1.08pt depth35pt b\hss a\hss b} + \@whiledim \wd\@nbox<\hsize \do{ + \setbox\@nbox=\hbox{\@ascgrp\unhbox\@nbox \hss a\hss b}} + \setbox\@nbox=\hbox to\hsize{\@ascgrp\unhbox\@nbox \hss a\hss b% + \vrule width1.08pt depth35pt} + \@bw=\wd\@nbox\advance\@bw -40pt + \begin{lrbox}{\@nbody}\begin{minipage}{\@bw}% (KN:1998/02/27) + \ybaselineshift\@saveybaselineshift \tbaselineshift\@savetbaselineshift}% \def\endboxnote{\end{minipage}\end{lrbox}% -\vbox{\parindent=0pt\offinterlineskip\copy\@nbox -\hbox to\wd\@nbox{\vrule width1.08pt\hfil\box\@nbody\hfil\vrule width1.08pt} -\hbox to\wd\@nbox{\vrule width1.08pt height15pt\hfil -\vrule width1.08pt height15pt}\hrule height1.08pt}} + \vbox{\parindent=0pt\offinterlineskip\copy\@nbox + \hbox to\wd\@nbox{\vrule width1.08pt\hfil\box\@nbody\hfil\vrule width1.08pt} + \hbox to\wd\@nbox{\vrule width1.08pt height15pt\hfil + \vrule width1.08pt height15pt}\hrule height1.08pt}} %% %% screen environment \newdimen\@scw -\def\@hobox#1#2#3{\hbox to\@scw{\@oval(#3,#3)[#1]\hfil\@oval(#3,#3)[#2]}} +\def\@hobox#1#2#3{\hbox to\@scw{\oval(#3,#3)[#1]\hfil\oval(#3,#3)[#2]% + \dimen\z@=#3\unitlength\advance\dimen\z@\@wholewidth + \vrule\@width\z@\@height\z@\@depth.5\dimen\z@}} \def\@vrf@#1#2{\vskip#1\leaders\vrule width#2\vfil\vskip#1} \def\screen{% -\@savetbaselineshift\tbaselineshift \tbaselineshift\z@ -\@ifnextchar[{\@screen}{\@screen[0]}} + \@saveybaselineshift\ybaselineshift \ybaselineshift\z@ + \@savetbaselineshift\tbaselineshift \tbaselineshift\z@ + \@ifnextchar[{\@screen}{\@screen[0]}} \def\@screen[#1]{\ifcase#1\def\@r{20}\def\@s{9.8pt}\def\@sx{10pt}\or -\def\@r{18}\def\@s{8.8pt}\def\@sx{9pt}\or -\def\@r{16}\def\@s{7.8pt}\def\@sx{8pt}\or -\def\@r{14}\def\@s{6.8pt}\def\@sx{7pt}\or -\def\@r{12}\def\@s{5.8pt}\def\@sx{6pt}\or -\def\@r{10}\def\@s{4.8pt}\def\@sx{5pt}\or -\def\@r{8}\def\@s{3.8pt}\def\@sx{4pt}\or -\def\@r{6}\def\@s{2.8pt}\def\@sx{3pt}\else -\def\@r{4}\def\@s{1.8pt}\def\@sx{2pt}\fi -\par\vspace{.3\baselineskip}\@scw\linewidth \advance\@scw -\@r pt -\setbox\scb@x=\hbox to\@scw\bgroup\begin{minipage}{\@scw}% (KN:1998/02/27) - \tbaselineshift\@savetbaselineshift}% + \def\@r{18}\def\@s{8.8pt}\def\@sx{9pt}\or + \def\@r{16}\def\@s{7.8pt}\def\@sx{8pt}\or + \def\@r{14}\def\@s{6.8pt}\def\@sx{7pt}\or + \def\@r{12}\def\@s{5.8pt}\def\@sx{6pt}\or + \def\@r{10}\def\@s{4.8pt}\def\@sx{5pt}\or + \def\@r{8}\def\@s{3.8pt}\def\@sx{4pt}\or + \def\@r{6}\def\@s{2.8pt}\def\@sx{3pt}\else + \def\@r{4}\def\@s{1.8pt}\def\@sx{2pt}\fi + \par\vspace{.3\baselineskip}\@scw\linewidth \advance\@scw -\@r pt + \setbox\scb@x=\hbox to\@scw\bgroup\begin{minipage}{\@scw}% (KN:1998/02/27) + \ybaselineshift\@saveybaselineshift \tbaselineshift\@savetbaselineshift}% \def\endscreen{\end{minipage}\egroup% -\setbox\scscb@x=\hbox to\linewidth{\hfil\vbox{\offinterlineskip% -\thinlines\setlength{\unitlength}{1pt}\hrule\kern\@s% -\@hobox{tl}{tr}{\@r}\kern-\@sx\box\scb@x\@hobox{bl}{br}{\@r}% -\kern-.4pt\hrule}\hfil}\dimen0=\ht\scscb@x% -\noindent\hbox to\linewidth{\hbox to.2pt{\vbox to\dimen0{\@vrf@{\@sx}{.4pt}}% -\hss}\box\scscb@x\hbox to.25pt{\hss\vbox to\dimen0{\@vrf@{\@sx}{.4pt}}}\hss}}% -%% + \setbox\scscb@x=\hbox to\linewidth{\hfil\vbox{\offinterlineskip% + \thinlines\setlength{\unitlength}{1pt}\hrule\kern\@s% + \@hobox{tl}{tr}{\@r}\kern-\@sx\box\scb@x\@hobox{bl}{br}{\@r}% + \kern-.4pt\hrule}\hfil}\dimen0=\ht\scscb@x% + \dimen2=\@sx\advance\dimen2 .2pt + \noindent\hbox to\linewidth{\hbox to.2pt{\vbox to\dimen0{\@vrf@{\dimen2}{.4pt}}% + \hss}\box\scscb@x\hbox to.2pt{\hss\vbox to\dimen0{\@vrf@{\dimen2}{.4pt}}}\hss}}% +%% %% itembox environment %% replace \box0 with \@iboxstr; thanks FTEXers (1998/11/27) \newdimen\@itemh\newtoks\@iboxpos\newbox\@iboxstr \def\@hleader{\leaders\hrule height .8pt\hfil} \def\itembox{\@ifnextchar[{\@itembox}{\@itembox[c]}} \def\@itembox[#1]#2{% + \@saveybaselineshift\ybaselineshift\ybaselineshift\z@ \@savetbaselineshift\tbaselineshift\tbaselineshift\z@ \par\vspace{.3\baselineskip}% - \setbox\@iboxstr=\hbox{#2}\@itemh\ht\@iboxstr\advance\@itemh\dp\@iboxstr + \setbox\@iboxstr=\hbox{% + \ybaselineshift\@saveybaselineshift \tbaselineshift\@savetbaselineshift #2}% + \@itemh\ht\@iboxstr\advance\@itemh\dp\@iboxstr \vspace{.5\@itemh}\bgroup\@scw\linewidth \advance\@scw-20pt\@iboxpos={#1}% \setbox\scb@x=\hbox to\@scw\bgroup\begin{minipage}{\@scw}% + \ybaselineshift\@saveybaselineshift \tbaselineshift\@savetbaselineshift% (KN:1998/02/27) \vspace*{.5\@itemh}}% \def\enditembox{\end{minipage}\egroup% @@ -91,81 +137,88 @@ \space\if r\the\@iboxpos\else \@hleader\fi}\kern9.6pt \@hobox{tl}{tr}{20}\kern-10pt\box\scb@x\@hobox{bl}{br}{20}% \kern-.8pt\hrule height.8pt}\hfil}\dimen0=\ht\scscb@x% - \noindent\hbox to\linewidth{\hbox to.6pt{\vbox to\dimen0{\@vrf@{10pt}{.8pt}}% - \hss}\box\scscb@x\hbox to.6pt{\hss\vbox to\dimen0{\@vrf@{10pt}{.9pt}}}% + \noindent\hbox to\linewidth{\hbox to.4pt{\vbox to\dimen0{\@vrf@{10.4pt}{.8pt}}% + \hss}\box\scscb@x\hbox to.4pt{\hss\vbox to\dimen0{\@vrf@{10.4pt}{.8pt}}}% \hss}\egroup} %% %% \keytop \def\keytop{\@ifnextchar[{\@keytop}{\@keytop[d]}} -\def\@keytop[#1]#2{\tbaselineshift\z@ -{\setbox0=\hbox{\shortstack{#2}}% -\dimen0=\wd0\advance\dimen0 5pt\dimen1=\dp0\advance\dimen1 2.5pt% -\setbox\scscb@x=\hbox to\dimen0{% -\iftdir\tate\else\yoko\fi -\@scw\wd0\hfil\vtop{\offinterlineskip -\thinlines\setlength{\unitlength}{1pt}\hrule\kern2.3pt\@hobox{tl}{tr}5% -\kern-2.4pt\box0\@hobox{bl}{br}5\kern-.25pt\hrule}\hfil}\dimen0=\dp\scscb@x% -\setbox0=\vbox{\hbox{\hbox to0pt{\hss\vtop to\dimen0{\@vrf@{2.5pt}{.4pt}}}% -\box\scscb@x\hbox to.2pt{\hss\vtop to\dimen0{\@vrf@{2.5pt}{.4pt}}}}}% -\if #1c $\vcenter{\box0}$ \else \if #1t\else\if #1b\boxmaxdepth=0pt\else -\boxmaxdepth=\dimen1\fi\fi \mbox{}\vbox{\box0}\fi}} -% +\def\@keytop[#1]#2{% + {\setbox0=\hbox{\shortstack{#2}}\ybaselineshift\z@\tbaselineshift\z@% + \dimen0=\wd0\advance\dimen0 5pt\dimen1=\dp0\advance\dimen1 2.5pt% + \setbox\scscb@x=\hbox to\dimen0{% + \iftdir\tate\else\yoko\fi + \@scw\wd0\hfil\vtop{\offinterlineskip + \thinlines\setlength{\unitlength}{1pt}\hrule\kern2.3pt\@hobox{tl}{tr}5% + \kern-2.4pt\box0\@hobox{bl}{br}5\kern-.4pt\hrule}\hfil}% + \dimen0=\dp\scscb@x\advance\dimen0 -.4pt + \setbox0=\vbox{\hbox{\hbox to.2pt{\vtop to\dimen0{\@vrf@{2.3pt}{.4pt}}\hss}% + \box\scscb@x\hbox to.2pt{\hss\vtop to\dimen0{\@vrf@{2.3pt}{.4pt}}}}}% + \if #1c\mbox{}$\vcenter{\box0}$\mbox{}\else + \if #1t\else\if #1b\boxmaxdepth=0pt\else + \boxmaxdepth=\dimen1\fi\fi \mbox{}\vbox{\box0}\fi}} +%% %% \yen -% -% \changes{1996/03/13}{v1.1}{Append \cs{leavevmode} in -% \cs{yen}, \cs{return}, \cs{Return} command.} -% \def\yen{\leavevmode\hbox{\iftdir\yoko\fi -\setbox0=\hbox{Y}Y\kern-.97\wd0\vbox{\hrule height.1ex width.98\wd0 -\kern.33ex\hrule height.1ex width.98\wd0\kern.45ex}}} -% + \setbox0=\hbox{Y}Y\kern-.97\wd0\vbox{\hrule height.1ex width.98\wd0 + \kern.33ex\hrule height.1ex width.98\wd0\kern.45ex}}} +%% %% return-key \def\return{\leavevmode\hbox{\iftdir\yoko\fi\@ascgrp\char"20}} \def\Return{\leavevmode\hbox{\iftdir\yoko\fi\@ascgrp @}} -% -%% \mask & \maskbox +%% +%% \mask \newbox\@bwsp \newbox\@@bwsp\newcount\@bcal \def\setdim@#1#2{\@bcal=#2\divide#1\@bcal\multiply#1\@bcal\advance#1 1.001#2} -\def\mask#1#2{\tbaselineshift\z@ -{\setbox\@bwsp=\hbox{#1}\setbox0=\hbox{\@ascgrp#2}% -\dimen0=\wd\@bwsp\dimen1=\ht\@bwsp\advance\dimen1\dp\@bwsp\dimen2=-\dimen1 -\setdim@{\dimen0}{\wd0}\setdim@{\dimen1}{\ht0}% -\setbox\@@bwsp=\hbox to\dimen0{\leaders -\vtop to\dimen1{\leaders\hbox{\@ascgrp#2}\vfil}\hfil}% -\advance\dimen2\dp\@@bwsp\divide\dimen2 2 -\advance\dimen2\dp\@bwsp\boxmaxdepth=\dimen2 -\setbox\@@bwsp=\vbox{\box\@@bwsp}% -\mbox{}\hbox to\wd\@@bwsp{\hbox to0pt{\box\@@bwsp\hss}\hss\unhbox\@bwsp\hss}}} -% -% \Maskbox{width}{height}{mask_char}{pos}{rule_wid}{body} +\def\mask#1#2{{\setbox\@bwsp=\hbox{#1}% + \setbox0=\hbox{\ybaselineshift\z@\tbaselineshift\z@ \@ascgrp#2}% + \dimen0=\wd\@bwsp\dimen1=\ht\@bwsp\advance\dimen1\dp\@bwsp\dimen2=-\dimen1 + \setdim@{\dimen0}{\wd0}\setdim@{\dimen1}{\ht0}% + \setbox\@@bwsp=\hbox to\dimen0{\leaders + \vtop to\dimen1{\leaders\box0\vfil}\hfil}% + \advance\dimen2\dp\@@bwsp\divide\dimen2 2 + \advance\dimen2\dp\@bwsp\boxmaxdepth=\dimen2 + \setbox\@@bwsp=\vbox{\box\@@bwsp}% + \mbox{}\hbox to\wd\@@bwsp{\hbox to0pt{\box\@@bwsp\hss}\hss\unhbox\@bwsp\hss}}} +%% +%% \Maskbox{width}{height}{mask_char}{pos}{rule_wid}{body} +%% \maskbox{width}{height}{mask_char}{pos}{body} \def\@setdim#1#2{\@bcal=#2\divide#1\@bcal\multiply#1\@bcal\advance#1 .001#2} -\def\Maskbox#1#2#3#4#5#6{{\tbaselineshift\z@ -\setbox0=\hbox{\@ascgrp#3}% -\dimen0=#1\@setdim{\dimen0}{\wd0}\dimen1=#2\@setdim{\dimen1}{\ht0}% -\ifx#4c\skip0=0pt plus1fil\skip1=\skip0\fi -\ifx#4r\skip0=0pt plus1fil\skip1=0pt\fi -\ifx#4l\skip1=0pt plus1fil\skip0=0pt\fi -\hbox{\hbox to0pt{\hbox to\dimen0{\leaders\vbox to\dimen1{\leaders -\hbox{\@ascgrp#3}\vfil}\hfil}\hss}% -\vrule width#5\vbox to\dimen1{\hrule height#5\vfil -\dimen3=#5\advance\dimen0-2\dimen3\advance\dimen0 .15pt -\hbox to\dimen0{\hskip\skip0\relax#6\hskip\skip1}% -\vfil\hrule height#5}\vrule width#5}}} +\def\Maskbox#1#2#3#4#5#6{{% + \setbox0=\hbox{\ybaselineshift\z@\tbaselineshift\z@ \@ascgrp#3}% + \dimen0=#1\@setdim{\dimen0}{\wd0}\dimen1=#2\@setdim{\dimen1}{\ht0}% + \ifx#4c\skip0=0pt plus1fil\skip1=\skip0\fi + \ifx#4r\skip0=0pt plus1fil\skip1=0pt\fi + \ifx#4l\skip1=0pt plus1fil\skip0=0pt\fi + \leavevmode + \hbox{\hbox to0pt{\hbox to\dimen0{\leaders\vbox to\dimen1{\leaders + \box0\vfil}\hfil}\hss}% + \vrule width#5\vbox to\dimen1{\hrule height#5\vfil + \dimen3=#5\advance\dimen0-2\dimen3\advance\dimen0 .15pt + \hbox to\dimen0{\hskip\skip0\relax#6\hskip\skip1}% + \vfil\hrule height#5}\vrule width#5}}} \def\maskbox#1#2#3#4#5{\Maskbox{#1}{#2}{#3}{#4}{0pt}{#5}} -% +%% %% shadebox environment \newdimen\shaderule\shaderule 5pt -\def\shadebox{\dimen0\linewidth \advance\dimen0-20pt -\advance\dimen0-2\fboxrule \advance\dimen0-\shaderule -\setbox\@tempboxa=\hbox\bgroup\minipage{\dimen0}} -\def\endshadebox{\endminipage\egroup\dimen0=10pt \advance\dimen0-\fboxrule -\setbox\@tempboxa=\hbox{\kern\dimen0\unhbox\@tempboxa\kern\dimen0}% -\setbox0=\vbox{\hrule \@height \fboxrule -\hbox{\vrule \@width \fboxrule \hskip-\fboxrule -\vbox{\vskip\fboxsep \box\@tempboxa\vskip\fboxsep}% -\hskip-\fboxrule\vrule \@width \fboxrule}\hrule \@height \fboxrule}% -\dimen0=\ht0 \advance\dimen0-\shaderule -\hbox{\hbox to \shaderule{\copy0\hss}\kern 0pt -\vrule width\wd0 height0pt depth\shaderule\hskip-\shaderule -\vrule width\shaderule height\dimen0}} - +\def\shadebox{\par\vspace{.3\baselineskip}% + \@saveybaselineshift\ybaselineshift\ybaselineshift\z@ + \@savetbaselineshift\tbaselineshift\tbaselineshift\z@ + \dimen0\linewidth \advance\dimen0-20pt + \advance\dimen0-2\fboxrule \advance\dimen0-\shaderule + \setbox\@tempboxa=\hbox\bgroup\minipage{\dimen0}% + \ybaselineshift\@saveybaselineshift \tbaselineshift\@savetbaselineshift} +\def\endshadebox{\endminipage\egroup\dimen0=10pt + \setbox\@tempboxa=\hbox{\kern\dimen0\unhbox\@tempboxa\kern\dimen0}% + \setbox0=\vbox{\hrule \@height \fboxrule + \hbox{\vrule \@width \fboxrule + \vbox{\vskip\fboxsep \box\@tempboxa\vskip\fboxsep}% + \vrule \@width \fboxrule}\hrule \@height \fboxrule}% + \dimen0=\ht0 \advance\dimen0-\shaderule + \hbox{\hbox to \shaderule{\copy0\hss}\kern 0pt + \vrule width\wd0 height0pt depth\shaderule\hskip-\shaderule + \vrule width\shaderule height\dimen0}} +%% +\endinput +%% +%% End of file `tascmac.sty'. |