%
% 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}}