blob: ec03bd435f0093bbccdbeab9684f7d9363b07e51 (
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
|
%
% qdtexvpl.tex
%
%
% \texvpl{dst}{cmds}
%
% dst Destination character
% cmds Desired expansion of dst
%
% Example:
%
% \input qdtexvpl
% \font\f=cmr10
% \texvpl{}{\f\"a}
% \texvpl{}{\f\"o}
% \texvpl{}{\f\"u}
% \texvpl{^^ff}{\f I\negthinspace R}
% \bye
%
% Limitations:
%
% - \unusedfont must not be used in `cmds'.
% - \unusedfont must contain an `A'.
%
\nopagenumbers
\font\unusedfont=qdtexvpl
\def\texvpl#1#2{{\noindent\unusedfont A \setbox0=\hbox{#2}%
\special{<#1}\copy0\special{>\the\wd0 \the\ht0 \the\dp0}\par}}
|