SourceBrowser

1%D \module
2%D   [       file=typo-scr,
3%D        version=2012.01.23, % very old ... 1995.10.10 .. moved from core-mis
4%D          title=\CONTEXT\ Typesetting Macros,
5%D       subtitle=Scripts,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\writestatus
{
loading
}{
ConTeXt
 Typesetting
 Macros
 /
 Scripts
}
15
16\unprotect
17
18%D I addition to the commands implemented here, we have alternative commands
19%D \type {shiftup} and \type {shiftdown} that can work across paragraphs.
20
21%D \macros
22%D   {low, high, definelow, definehigh, setuplow, setuphigh}
23%D
24%D Although \TEX\ is pretty well aware of super- and subscripts, its mechanism
25%D is mainly tuned for math mode. The next few commands take care of script
26%D texts both modes.
27%D
28%D \startbuffer
29%D The higher\high{one goes} the lower\low{one drops}, or\lohi{yes}{no}?
30%D \stopbuffer
31%D
32%D \typebuffer
33%D \getbuffer
34%D
35%D Note the different placement of \type {\lohi}, where we need a bit more
36%D space. The implementation looks a bit fuzzy, since some \type {\fontdimen}'s
37%D are involved to determine the optimal placement.
38
39\installcorenamespace
 {
low
}
40\installcorenamespace
 {
high
}
41
42\installcommandhandler
 \??low
  {
low
}
  \??low
43\installcommandhandler
 \??high
 {
high
}
 \??high
44
45\setuplow
 [
\c!style
=
\tx
,
\c!distance
=
\zeropoint
,
\c!down
=
.
4
8
\exheight
]
 % historical
46\setuphigh
[
\c!style
=
\tx
,
\c!distance
=
\zeropoint
,
\c!up
  =
.
8
6
\exheight
]
 % values
47
48\appendtoks
 \setuevalue
\currentlow
 {
\typo_scripts_low
 {
\currentlow
 }}
\to
 \everydefinelow
49\appendtoks
 \setuevalue
\currenthigh
{
\typo_scripts_high
{
\currenthigh
}}
\to
 \everydefinehigh
50
51\unexpanded
\def
\typo_scripts_low
#
1
#
2
%
52  {
\dontleavehmode
53   \begingroup
54   \edef
\currentlow
{
#
1
}
%
55   \kern
\lowparameter
\c!distance
\relax
56   \setbox
\scratchbox
\runninghbox
\bgroup
57     \lower
\lowparameter
\c!down
\hbox
\bgroup
58       \ifx
\fontsize
\empty
59         \ifmmode
60           \mr
 % no color yet
61         \else
62           \uselowstyleandcolor
\c!style\c!color
63         \fi
64       \else
65         \uselowstyleandcolor
\c!style\c!color
66       \fi
67       \dostarttagged
\t!sub
\currentlow
68       #
2
%
69       \dostoptagged
70     \egroup
71   \egroup
72   \ht
\scratchbox\strutht
73   \dp
\scratchbox\strutdp
74   \box
\scratchbox
75   \endgroup
}
76
77\unexpanded
\def
\typo_scripts_high
#
1
#
2
%
78  {
\dontleavehmode
79   \begingroup
80   \edef
\currenthigh
{
#
1
}
%
81   \kern
\highparameter
\c!distance
\relax
82   \setbox
\scratchbox
\runninghbox
\bgroup
83     \raise
\highparameter
\c!up
\hbox
\bgroup
84       \ifx
\fontsize
\empty
85         \ifmmode
86           \mr
 % no color yet
87         \else
88           \usehighstyleandcolor
\c!style\c!color
89         \fi
90       \else
91         \usehighstyleandcolor
\c!style\c!color
92       \fi
93       \dostarttagged
\t!sup
\currenthigh
94       #
2
%
95       \dostoptagged
96     \egroup
97   \egroup
98   \ht
\scratchbox\strutht
99   \dp
\scratchbox\strutdp
100   \box
\scratchbox
101   \endgroup
}
102
103\unexpanded
\def
\low
 {
\typo_scripts_low
 \empty
}
104\unexpanded
\def
\high
{
\typo_scripts_high
\empty
}
105
106%D \macros
107%D   {lohi, hilo, definelohi, setuplohi}
108%D
109%D You can provide an optional keyword \type {left}, in which case the super and
110%D subscripts will be aligned in a way that permits placement at the left of a word
111%D (which means that it will be right aligned).
112%D
113%D \startbuffer
114%D \lohi {aha} {ah} test \lohi {aha} {ah} test
115%D \lohi [left] {aha} {ah} test \lohi [left] {aha} {ah} test
116%D \lohi {aha} {ah} test \lohi {aha} {ah} test
117%D \lohi [left] {aha} {ah}test \lohi [left] {aha} {ah} test
118%D \stopbuffer
119%D
120%D \typebuffer
121%D \getbuffer
122
123\installcorenamespace
 {
lowhigh
}
124
125\installcommandhandler
 \??lowhigh
 {
lowhigh
}
 \??lowhigh
126
127\setuplowhigh
128  [
\c!style
=
\tx
,
129   \c!distance
=
.
1
\exheight
,
  % these are
130   \c!up
=
.
9
6
\exheight
,
       % historical
131   \c!down
=
.
5
8
\exheight
]
     % values
132
133\appendtoks
134    \setuevalue
\currentlowhigh
{
\typo_scripts_lowhigh
{
\currentlowhigh
}
\typo_scripts_lowhigh_indeed
}
%
135\to
 \everydefinelowhigh
136
137\unexpanded
\def
\typo_scripts_lowhigh
#
1
% #2
138  {
\dontleavehmode
139   \runninghbox
\bgroup
140   \edef
\currentlowhigh
{
#
1
}
%
141   \dosingleempty
}
                    % #2
142
143\unexpanded
\def
\typo_scripts_lowhigh_indeed
[#
1
]#
2
#
3
% todo: align .. [#1] is compatible hack
144  {
\dostarttagged
\t!subsup
\currentlowhigh
145   \scratchdimen
\lowhighparameter
\c!distance
\relax
146   \setbox
\plusfour
\hpack
{
\typo_scripts_lowhigh_low_high
\lower
\c!down\t!sub
{
#
2
}}
%
147   \setbox
\plussix
 \hpack
{
\typo_scripts_lowhigh_low_high
\raise
\c!up
  \t!sup
{
#
3
}}
%
148   \edef
\p_align
{
#
1
}
%
149   \ifx
\p_align
\v!left
150     \ifdim
\wd
\plusfour
<
\wd
\plussix
151       \setbox
\plusfour
\hpack
 to
 \wd
\plussix
 {
\hss\box
\plusfour
}
%
152     \else
153       \setbox
\plussix
 \hpack
 to
 \wd
\plusfour
{
\hss\box
\plussix
 }
%
154     \fi
155   \fi
156   \ifdim
\wd
\plusfour
<
\wd
\plussix
157     \wd
\plusfour\zeropoint
158     \box
\plusfour
159     \box
\plussix
160   \else
161     \wd
\plussix\zeropoint
162     \box
\plussix
163     \box
\plusfour
164   \fi
165   \dostoptagged
166   \egroup
}
167
168\def
\typo_scripts_lowhigh_low_high
#
1
#
2
#
3
#
4
%
169  {
\kern
\scratchdimen
170   \setbox
\scratchbox
\hpack
\bgroup
171     #
1
\lowhighparameter
#
2
\hbox
\bgroup
172       \ifx
\fontsize
\empty
173         \ifmmode
174           \mr
 % no color yet
175         \else
176           \uselowhighstyleandcolor
\c!style\c!color
177         \fi
178       \else
179         \uselowhighstyleandcolor
\c!style\c!color
180       \fi
181       \dostarttagged
#
3
\empty
182       #
4
%
183       \dostoptagged
184     \egroup
185   \egroup
186   \ht
\scratchbox\strutht
187   \dp
\scratchbox\strutdp
188   \box
\scratchbox
}
189
190\unexpanded
\def
\typo_scripts_highlow_indeed
[#
1
]#
2
#
3
%
191  {
\typo_scripts_lowhigh_indeed
[#
1
]
{
#
3
}{
#
2
}}
192
193\unexpanded
\def
\lohi
{
\typo_scripts_lowhigh
\empty
\typo_scripts_lowhigh_indeed
}
194\unexpanded
\def
\hilo
{
\typo_scripts_lowhigh
\empty
\typo_scripts_highlow_indeed
}
195
196%D \macros
197%D   {lowmidhigh, definelowmidhigh, setuplowmidhigh}
198%D
199%D The previous command originally didn't have definers. These were introduced when
200%D the next showed up:
201%D
202%D \startbuffer
203%D \definelow       [MyLow]   [style=\txx]
204%D \definehigh      [MyHigh]  [style=\txx]
205%D \definelowhigh   [MyLoHi]  [style=\txx]
206%D \definelowmidhigh[MyLoMiHi][style=\txx]
207%D
208%D We have
209%D     \ruledhbox{\low         {L}} and \ruledhbox{\MyLow         {L}} and
210%D     \ruledhbox{\high        {H}} and \ruledhbox{\MyHigh        {H}} and
211%D     \ruledhbox{\lohi     {L}{H}} and \ruledhbox{\MyLoHi     {L}{H}} and
212%D     \ruledhbox{\lomihi{L}{M}{H}} and \ruledhbox{\MyLoMiHi{L}{M}{H}}.
213%D \stopbuffer
214%D
215%D \typebuffer \getbuffer
216
217\installcorenamespace
 {
lowmidhigh
}
218
219\installcommandhandler
 \??lowmidhigh
 {
lowmidhigh
}
 \??lowmidhigh
220
221\setuplowmidhigh
222  [
\c!style
=
\tx
,
223   \c!up
=
.
8
\struthtdp
,
224   \c!down
=
.
8
\struthtdp
]
225
226\appendtoks
227    \setuevalue
\currentlowmidhigh
{
\typo_scripts_lowmidhigh
{
\currentlowmidhigh
}}
%
228\to
 \everydefinelowmidhigh
229
230\unexpanded
\def
\typo_scripts_lowmidhigh
#
1
#
2
#
3
#
4
%
231  {
\dontleavehmode
232   \runninghbox
\bgroup
233     \edef
\currentlowmidhigh
{
#
1
}
%
234     \dostarttagged
\t!subsup
\currentlowmidhigh
235     \uselowmidhighstyleandcolor
\c!style\c!color
236     \setstrut
237     \setbox
\plustwo
 \hbox
{
\strut
\dostarttagged
\t!sub
\empty
#
2
\dostoptagged
}
%
238     \setbox
\plusfour
\hbox
{
\strut
\dostarttagged
\t!mid
\empty
#
3
\dostoptagged
}
% inefficient
239     \setbox
\plussix
 \hbox
{
\strut
\dostarttagged
\t!sup
\empty
#
4
\dostoptagged
}
%
240     \scratchdimen
 \wd
241        \ifdim
\wd
\plustwo
>
\wd
\plusfour
242          \ifdim
\wd
\plustwo
>
\wd
\plussix
243             \plustwo
244          \else
245             \plussix
246          \fi
247        \else
248          \ifdim
\wd
\plusfour
>
\wd
\plussix
249             \plusfour
250          \else
251             \plussix
252          \fi
253        \fi
254     \relax
255     \setbox
\plustwo
 \hpack
 to
 \scratchdimen
{
\hss\lower
\lowmidhighparameter
\c!down
\box
\plustwo
 \hss
}
%
256     \setbox
\plusfour
\hpack
 to
 \scratchdimen
{
\hss
                                 \box
\plusfour
\hss
}
%
257     \setbox
\plussix
 \hpack
 to
 \scratchdimen
{
\hss\raise
\lowmidhighparameter
\c!up
  \box
\plussix
 \hss
}
%
258     \wd
\plustwo
 \zeropoint
259     \wd
\plusfour\zeropoint
260     \box
\plusfour
261     \box
\plustwo
262     \box
\plussix
263     \dostoptagged
264   \egroup
}
265
266\unexpanded
\def
\lomihi
      {
\typo_scripts_lowmidhigh
\empty
}
267\unexpanded
\def
\himilo
#
1
#
2
#
3
{
\typo_scripts_lowmidhigh
\empty
{
#
3
}{
#
2
}{
#
1
}}
268
269\protect
 \endinput
270
Source Browser ?
