3 % based on tascmac.sty [2016/04/15 v2.0b (community edition)]
4 % \tbaselineshift=\z@ ==> \ltj@tablshift=\z@
5 % \ybaselineshift=\z@ ==> \ltj@yablshift=\z@
6 % \dimen...=\tbaselineshift ==> \dimen...=\ltj@tablshift sp
7 % \dimen...=\ybaselineshift ==> \dimen...=\ltj@yablshift sp
9 \NeedsTeXFormat{LaTeX2e}
10 \ProvidesPackage{lltjp-tascmac}[2017/12/23 Patch to (t)ascmac for LuaTeX-ja]
12 \RequirePackage{tascmac}
14 %% use Type1 font for ascgrp
15 \pdfextension mapline{+ascgrp <ascgrp.pfb}
18 \def\ascmac@parse@ovarg#1{%
19 \ifnum\ltjgetparameter{direction}=3\relax
21 \@tfor\reserved@a:=#1\do{%
22 \if l\reserved@a \edef\ascmac@ovarg{\ascmac@ovarg t}%
23 \else\if t\reserved@a \edef\ascmac@ovarg{\ascmac@ovarg r}%
24 \else\if r\reserved@a \edef\ascmac@ovarg{\ascmac@ovarg b}%
25 \else\if b\reserved@a \edef\ascmac@ovarg{\ascmac@ovarg l}%
28 \def\ascmac@ovarg{#1}%
32 %% boxnote environment
33 \def\boxnote{\par\vspace{.3\baselineskip}%
34 \@saveybaselineshift\ltj@yablshift sp\ltj@yablshift\z@
35 \@savetbaselineshift\ltj@tablshift sp\ltj@tablshift\z@
36 \setbox\@nbox=\hbox{\@ascgrp\vrule width1.08pt depth35pt b\hss a\hss b}
37 \@whiledim \wd\@nbox<\hsize \do{
38 \setbox\@nbox=\hbox{\@ascgrp\unhbox\@nbox \hss a\hss b}}
39 \setbox\@nbox=\hbox to\hsize{\@ascgrp\unhbox\@nbox \hss a\hss b%
40 \vrule width1.08pt depth35pt}
41 \@bw=\wd\@nbox\advance\@bw -40pt
42 \begin{lrbox}{\@nbody}\begin{minipage}{\@bw}% (KN:1998/02/27)
43 \ltj@yablshift\@saveybaselineshift \ltj@tablshift\@savetbaselineshift}%
47 \typeout{AL: \the\ltj@yablshift:\the\ltj@tablshift.}
48 \typeout{JA: \the\ltj@ykblshift:\the\ltj@tkblshift.}
49 \@saveybaselineshift\ltj@yablshift sp\ltj@yablshift\z@
50 \@savetbaselineshift\ltj@tablshift sp\ltj@tablshift\z@
51 \@ifnextchar[{\@screen}{\@screen[0]}}
52 \def\@screen[#1]{\ifcase#1\def\@r{20}\def\@s{9.8pt}\def\@sx{10pt}\or
53 \def\@r{18}\def\@s{8.8pt}\def\@sx{9pt}\or
54 \def\@r{16}\def\@s{7.8pt}\def\@sx{8pt}\or
55 \def\@r{14}\def\@s{6.8pt}\def\@sx{7pt}\or
56 \def\@r{12}\def\@s{5.8pt}\def\@sx{6pt}\or
57 \def\@r{10}\def\@s{4.8pt}\def\@sx{5pt}\or
58 \def\@r{8}\def\@s{3.8pt}\def\@sx{4pt}\or
59 \def\@r{6}\def\@s{2.8pt}\def\@sx{3pt}\else
60 \def\@r{4}\def\@s{1.8pt}\def\@sx{2pt}\fi
61 \par\vspace{.3\baselineskip}\@scw\linewidth \advance\@scw -\@r pt
62 \setbox\scb@x=\hbox to\@scw\bgroup\begin{minipage}{\@scw}% (KN:1998/02/27)
63 \ltj@yablshift\@saveybaselineshift \ltj@tablshift\@savetbaselineshift}%
65 %% itembox environment
67 \@saveybaselineshift\ltj@yablshift sp\ltj@yablshift\z@
68 \@savetbaselineshift\ltj@tablshift sp\ltj@tablshift\z@
69 \par\vspace{.3\baselineskip}%
70 \setbox\@iboxstr=\hbox{%
71 \ltj@yablshift\@saveybaselineshift \ltj@tablshift\@savetbaselineshift #2}%
72 \@itemh\ht\@iboxstr\advance\@itemh\dp\@iboxstr
73 \vspace{.5\@itemh}\bgroup\@scw\linewidth
74 \advance\@scw-20pt\@iboxpos={#1}%
75 \setbox\scb@x=\hbox to\@scw\bgroup\begin{minipage}{\@scw}%
76 \ltj@yablshift\@saveybaselineshift
77 \ltj@tablshift\@savetbaselineshift
82 {\setbox0=\hbox{\shortstack{#2}}\ltj@yablshift\z@\ltj@tablshift\z@%
83 \dimen0=\wd0\advance\dimen0 5pt\dimen1=\dp0\advance\dimen1 2.5pt%
84 \setbox\scscb@x=\hbox to\dimen0{%
85 \@scw\wd0\hfil\vtop{\offinterlineskip
86 \thinlines\setlength{\unitlength}{1pt}\hrule\kern2.3pt\@hobox{tl}{tr}5%
87 \kern-2.4pt\box0\@hobox{bl}{br}5\kern-.4pt\hrule}\hfil}%
88 \dimen0=\dp\scscb@x\advance\dimen0 -.4pt
89 \setbox0=\vbox{\hbox{\hbox to.2pt{\vtop to\dimen0{\@vrf@{2.3pt}{.4pt}}\hss}%
90 \box\scscb@x\hbox to.2pt{\hss\vtop to\dimen0{\@vrf@{2.3pt}{.4pt}}}}}%
91 \if #1c\mbox{}$\vcenter{\box0}$\mbox{}\else
92 \if #1t\else\if #1b\boxmaxdepth=0pt\else
93 \boxmaxdepth=\dimen1\fi\fi \mbox{}\vbox{\box0}\fi}}
96 \def\mask#1#2{{\setbox\@bwsp=\hbox{#1}%
97 \setbox0=\hbox{\ltj@yablshift\z@\ltj@tablshift\z@ \@ascgrp#2}%
98 \dimen0=\wd\@bwsp\dimen1=\ht\@bwsp\advance\dimen1\dp\@bwsp\dimen2=-\dimen1
99 \setdim@{\dimen0}{\wd0}\setdim@{\dimen1}{\ht0}%
100 \setbox\@@bwsp=\hbox to\dimen0{\leaders
101 \vtop to\dimen1{\leaders\box0\vfil}\hfil}%
102 \advance\dimen2\dp\@@bwsp\divide\dimen2 2
103 \advance\dimen2\dp\@bwsp\boxmaxdepth=\dimen2
104 \setbox\@@bwsp=\vbox{\box\@@bwsp}%
105 \mbox{}\hbox to\wd\@@bwsp{\hbox to0pt{\box\@@bwsp\hss}\hss\unhbox\@bwsp\hss}}}
108 \def\Maskbox#1#2#3#4#5#6{{%
109 \setbox0=\hbox{\ltj@yablshift\z@\ltj@tablshift\z@ \@ascgrp#3}%
110 \dimen0=#1\@setdim{\dimen0}{\wd0}\dimen1=#2\@setdim{\dimen1}{\ht0}%
111 \ifx#4c\skip0=0pt plus1fil\skip1=\skip0\fi
112 \ifx#4r\skip0=0pt plus1fil\skip1=0pt\fi
113 \ifx#4l\skip1=0pt plus1fil\skip0=0pt\fi
115 \hbox{\hbox to0pt{\hbox to\dimen0{\leaders\vbox to\dimen1{\leaders
116 \box0\vfil}\hfil}\hss}%
117 \vrule width#5\vbox to\dimen1{\hrule height#5\vfil
118 \dimen3=#5\advance\dimen0-2\dimen3\advance\dimen0 .15pt
119 \hbox to\dimen0{\hskip\skip0\relax#6\hskip\skip1}%
120 \vfil\hrule height#5}\vrule width#5}}}
122 %% shadebox environment
123 \def\shadebox{\par\vspace{.3\baselineskip}%
124 \@saveybaselineshift\ltj@yablshift sp\ltj@yablshift\z@
125 \@savetbaselineshift\ltj@tablshift sp\ltj@tablshift\z@
126 \dimen0\linewidth \advance\dimen0-20pt
127 \advance\dimen0-2\fboxrule \advance\dimen0-\shaderule
128 \setbox\@tempboxa=\hbox\bgroup\minipage{\dimen0}%
129 \ltj@yablshift\@saveybaselineshift \ltj@tablshift\@savetbaselineshift}
133 % \changes{1996/03/13}{v1.1}{Append \cs{leavevmode} in
134 % \cs{yen}, \cs{return}, \cs{Return} command.}
136 \def\yen{\leavevmode\hbox{\yoko%
137 \setbox0=\hbox{Y}Y\kern-.97\wd0\vbox{\hrule height.1ex width.98\wd0
138 \kern.33ex\hrule height.1ex width.98\wd0\kern.45ex}}}
141 \def\return{\leavevmode\hbox{\yoko\@ascgrp\char"20}}
142 \def\Return{\leavevmode\hbox{\yoko\@ascgrp @}}