<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">%
% 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{&lt;#1}\copy0\special{&gt;\the\wd0 \the\ht0 \the\dp0}\par}}
</pre></body></html>