\newcount\alt    % the "altitude" of a point
\def\Pixel#1{%
   \def\Head##1##2!{##1}%
   \def\Tail##1##2!{##2}%
   \edef\A{\expandafter\Head\Pat!}%
   \edef\Rest{\expandafter\Tail\Pat!}%
   \edef\T{\Rest}%
   \alt=#1
   \loop\ifnum\alt>0
       \edef\A{\expandafter\Head\T!}%
       \edef\T{\expandafter\Tail\T!}%
       \advance\alt -1
   \repeat
   \edef\Pat{\Rest\A}%
   \A%
}
\def\Line#1{%
    \if #1;\vskip 0pt \else
        \Pixel#1%
        \expandafter\Line
    \fi
}
\def\DLine#1;{%
    \edef\Pat{\StartPattern}%
    \Line#1;%
}
\edef\StartPattern{A-CeL'+MX-/()pd=}
