\newcounter{@sc}
\newcounter{@scp}
\newcounter{@t}
\newlength{\@x}
\newlength{\@xa}
\newlength{\@xb}
\newlength{\@y}
\newlength{\@ya}
\newlength{\@yb}
\newsavebox{\@pt}

\def\bezier#1(#2,#3)(#4,#5)(#6,#7){\c@@sc#1\relax
  \c@@scp\c@@sc \advance\c@@scp\@ne
  \@xb #4\unitlength \advance\@xb -#2\unitlength \multiply\@xb \tw@
  \@xa #6\unitlength \advance\@xa -#2\unitlength
      \advance\@xa -\@xb \divide\@xa\c@@sc
  \@yb #5\unitlength \advance\@yb -#3\unitlength \multiply\@yb \tw@
  \@ya #7\unitlength \advance\@ya -#3\unitlength
      \advance\@ya -\@yb \divide\@ya\c@@sc
  \setbox\@pt\hbox{\vrule height\@halfwidth  depth\@halfwidth
   width\@wholewidth}\c@@t\z@
   \put(#2,#3){\@whilenum{\c@@t<\c@@scp}\do
      {\@x\c@@t\@xa \advance\@x\@xb \divide\@x\c@@sc \multiply\@x\c@@t
       \@y\c@@t\@ya \advance\@y\@yb \divide\@y\c@@sc \multiply\@y\c@@t
       \raise \@y \hbox to \z@{\hskip \@x\unhcopy\@pt\hss}%
       \advance\c@@t\@ne}}}

\endinput