blob: abe7d23c29fce2ce4418c4c3bf8d3a8133658f9e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
%
% lltjp-tascmac.sty
% based on tascmac.sty [2016/04/15 v2.0b (community edition)]
% \tbaselineshift=\z@ ==> \ltj@tablshift=\z@
% \ybaselineshift=\z@ ==> \ltj@yablshift=\z@
% \dimen...=\tbaselineshift ==> \dimen...=\ltj@tablshift sp
% \dimen...=\ybaselineshift ==> \dimen...=\ltj@yablshift sp
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{lltjp-tascmac}[2016/05/05 Patch to (t)ascmac for LuaTeX-ja]
\RequirePackage{tascmac,luatexja}
%% use Type1 font for ascgrp
\pdfextension mapline{+ascgrp <ascgrp.pfb}
%% boxnote environment
\def\boxnote{\par\vspace{.3\baselineskip}%
\@saveybaselineshift\ltj@yablshift sp\ltj@yablshift\z@
\@savetbaselineshift\ltj@tablshift sp\ltj@tablshift\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)
\ltj@yablshift\@saveybaselineshift \ltj@tablshift\@savetbaselineshift}%
%% screen environment
\def\screen{%
\@saveybaselineshift\ltj@yablshift sp\ltj@yablshift\z@
\@savetbaselineshift\ltj@tablshift sp\ltj@tablshift\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)
\ltj@yablshift\@saveybaselineshift \ltj@tablshift\@savetbaselineshift}%
%% itembox environment
\def\@itembox[#1]#2{%
\@saveybaselineshift\ltj@yablshift sp\ltj@yablshift\z@
\@savetbaselineshift\ltj@tablshift sp\ltj@tablshift\z@
\par\vspace{.3\baselineskip}%
\setbox\@iboxstr=\hbox{%
\ltj@yablshift\@saveybaselineshift \ltj@tablshift\@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}%
\ltj@yablshift\@saveybaselineshift
\ltj@tablshift\@savetbaselineshift
\vspace*{.5\@itemh}}%
%% \keytop
\def\@keytop[#1]#2{%
{\setbox0=\hbox{\shortstack{#2}}\ltj@yablshift\z@\ltj@tablshift\z@%
\dimen0=\wd0\advance\dimen0 5pt\dimen1=\dp0\advance\dimen1 2.5pt%
\setbox\scscb@x=\hbox to\dimen0{%
\@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}}
%% \mask
\def\mask#1#2{{\setbox\@bwsp=\hbox{#1}%
\setbox0=\hbox{\ltj@yablshift\z@\ltj@tablshift\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
\def\Maskbox#1#2#3#4#5#6{{%
\setbox0=\hbox{\ltj@yablshift\z@\ltj@tablshift\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}}}
%% shadebox environment
\def\shadebox{\par\vspace{.3\baselineskip}%
\@saveybaselineshift\ltj@yablshift sp\ltj@yablshift\z@
\@savetbaselineshift\ltj@tablshift sp\ltj@tablshift\z@
\dimen0\linewidth \advance\dimen0-20pt
\advance\dimen0-2\fboxrule \advance\dimen0-\shaderule
\setbox\@tempboxa=\hbox\bgroup\minipage{\dimen0}%
\ltj@yablshift\@saveybaselineshift \ltj@tablshift\@savetbaselineshift}
%% \yen
%
% \changes{1996/03/13}{v1.1}{Append \cs{leavevmode} in
% \cs{yen}, \cs{return}, \cs{Return} command.}
%
\def\yen{\leavevmode\hbox{\yoko%
\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{\yoko\@ascgrp\char"20}}
\def\Return{\leavevmode\hbox{\yoko\@ascgrp @}}
\endinput
|
