home *** CD-ROM | disk | FTP | other *** search
/ NeXTSTEP 3.3.4.17 [SPARC, PA-RISC] / nextstep33_risc.iso / NextLibrary / TeX / tex / inputs / bezier.sty < prev    next >
Encoding:
Text File  |  1995-02-07  |  1.1 KB  |  33 lines
  1. % BEZIER DOCUMENT-STYLE OPTION - released 17 December 1985
  2. %    for LaTeX version 2.09
  3. % Copyright (C) 1985 by Leslie Lamport
  4.  
  5. \newcounter{@sc}
  6. \newcounter{@scp}
  7. \newcounter{@t}
  8. \newlength{\@x}
  9. \newlength{\@xa}
  10. \newlength{\@xb}
  11. \newlength{\@y}
  12. \newlength{\@ya}
  13. \newlength{\@yb}
  14. \newsavebox{\@pt}
  15.  
  16. \def\bezier#1(#2,#3)(#4,#5)(#6,#7){\c@@sc#1\relax
  17.   \c@@scp\c@@sc \advance\c@@scp\@ne
  18.   \@xb #4\unitlength \advance\@xb -#2\unitlength \multiply\@xb \tw@
  19.   \@xa #6\unitlength \advance\@xa -#2\unitlength
  20.       \advance\@xa -\@xb \divide\@xa\c@@sc
  21.   \@yb #5\unitlength \advance\@yb -#3\unitlength \multiply\@yb \tw@
  22.   \@ya #7\unitlength \advance\@ya -#3\unitlength
  23.       \advance\@ya -\@yb \divide\@ya\c@@sc
  24.   \setbox\@pt\hbox{\vrule height\@halfwidth  depth\@halfwidth
  25.    width\@wholewidth}\c@@t\z@
  26.    \put(#2,#3){\@whilenum{\c@@t<\c@@scp}\do
  27.       {\@x\c@@t\@xa \advance\@x\@xb \divide\@x\c@@sc \multiply\@x\c@@t
  28.        \@y\c@@t\@ya \advance\@y\@yb \divide\@y\c@@sc \multiply\@y\c@@t
  29.        \raise \@y \hbox to \z@{\hskip \@x\unhcopy\@pt\hss}%
  30.        \advance\c@@t\@ne}}}
  31.  
  32. \endinput
  33.