33 lines
1.1 KiB
TeX
33 lines
1.1 KiB
TeX
% BEZIER DOCUMENT-STYLE OPTION - released 17 December 1985
|
|
% for LaTeX version 2.09
|
|
% Copyright (C) 1985 by Leslie Lamport
|
|
|
|
\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
|