summaryrefslogtreecommitdiff
path: root/fonts/utilities/qdtexvpl/qdtexvpl.tex
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}}