| blob | 9d7ef572a77d748618cd5ccec1d8b897331185f8 |
1 % \iffalse meta-comment
2 %
3 % Copyright 1993-2016
4 % The LaTeX3 Project and any individual authors listed elsewhere
5 % in this file.
6 %
7 % This file is part of the LaTeX base system.
8 % -------------------------------------------
9 %
10 % It may be distributed and/or modified under the
11 % conditions of the LaTeX Project Public License, either version 1.3c
12 % of this license or (at your option) any later version.
13 % The latest version of this license is in
14 % http://www.latex-project.org/lppl.txt
15 % and version 1.3c or later is part of all distributions of LaTeX
16 % version 2005/12/01 or later.
17 %
18 % This file has the LPPL maintenance status "maintained".
19 %
20 % The list of all files belonging to the LaTeX base distribution is
21 % given in the file `manifest.txt'. See also `legal.txt' for additional
22 % information.
23 %
24 % The list of derived (unpacked) files belonging to the distribution
25 % and covered by LPPL is defined by the unpacking scripts (with
26 % extension .ins) which are part of the distribution.
27 %
28 % \fi
29 %
30 % \iffalse
31 %%% From File: ltpictur.dtx
32 %<*driver>
33 % \fi
34 \ProvidesFile{ltpictur.dtx}
35 [2015/02/21 v1.1k LaTeX Kernel (Picture Mode)]
36 % \iffalse
37 \documentclass{ltxdoc}
38 \GetFileInfo{ltpictur.dtx}
39 \title{\filename}
40 \date{\filedate}
41 \author{%
42 Johannes Braams\and
43 David Carlisle\and
44 Alan Jeffrey\and
45 Leslie Lamport\and
46 Frank Mittelbach\and
47 Chris Rowley\and
48 Rainer Sch\"opf}
49 \begin{document}
50 \MaintainedByLaTeXTeam{latex}
51 \maketitle
52 \DocInput{\filename}
53 \end{document}
54 %</driver>
55 % \fi
56 %
57 % \CheckSum{1505}
58 %
59 % \changes{v1.0g}{1995/05/07}{Use \cs{hb@xt@}}
60 % \changes{v1.1a}{1995/05/19}{Support autoloading feature}
61 % \changes{v1.1b}{1995/06/13}{Use \cs{ProvidesFile} in autoload}
62 % \changes{v1.1d}{1995/07/12}{allow 2e commands in 209 mode. latex/1737}
63 % \changes{v1.1e}{1995/10/03}{New autoload code}
64 % \changes{v1.1h}{1999/04/15}{Replaced octal numbers, CAR}
65 % \changes{v1.1k}{2015/02/21}{Removed autoload code}
66 %
67 % \section{Picture Mode}
68 % Picture mode commands. In addition to the commands available in
69 % \LaTeX2.09, This section adds the new |\qbezier| command for
70 % drawing curves.
71 %
72 % \DescribeMacro{\qbezier}
73 % |\qbezier|\oarg{N}\parg{AX,AY}\parg{BX,BY}\parg{CX,CY}
74 % plots a quadratic Bezier curve from \parg{AX,AY} to \parg{CX,CY},
75 % with \parg{BX,BY} as the third Bezier point, using $N+1$ points
76 % equally spaced parametrically.
77 % If $N = 0$ (the default value), then a sufficient number of points
78 % are used to draw a connected curve--except that at most
79 % $|\qbeziermax| + 1$ points are drawn. A ``point'' is a square of
80 % side |\@wholewidth|.
81 %
82 % \DescribeMacro{\bezier}
83 % In addition, to be compatible with the old |bezier| package, a
84 % variant of this command, |\bezier|, is defined, in which the first
85 % argument is not optional.
86 %
87 % \StopEventually{}
88 %
89 %
90 % \changes{v0.1a}{1994/03/07}{Initial version, split from latex.dtx}
91 % \changes{v0.1a}{1994/03/07}{Long lines wrapped to 72 columns}
92 % \changes{v0.1b}{1994/04/24}
93 % {Removed surplus spaces after \cs{hbox to } in several cases}
94 % \changes{v0.1d}{1994/05/13}
95 % {Removed surplus braces from \cs{@if..} constructions}
96 % \changes{v0.1e}{1994/05/22}{Use new warning cmds}
97 % \changes{v1.0f}{1994/11/17}
98 % {\cs{@tempa} to \cs{reserved@a}}
99 %
100 % \begin{oldcomments}
101 %
102 % \unitlength = value of dimension argument
103 % \@wholewidth = current line width
104 % \@halfwidth = half of current line width
105 % \@linefnt = font for drawing lines
106 % \@circlefnt = font for drawing circles
107 %
108 % \linethickness{DIM} : Sets the width of horizontal and vertical lines
109 % in a picture to DIM. Does not change width of slanted lines
110 % or circles. Width of all lines reset by \thinlines and
111 % \thicklines
112 %
113 % \picture(XSIZE,YSIZE)(XORG,YORG)
114 % BEGIN
115 % \@picht :=L YSIZE * \unitlength
116 % box \@picbox :=
117 % \hb@xt@ XSIZE * \unitlength
118 % {\hskip -XORG * \unitlength
119 % \lower YORG * \unitlength
120 % \hbox{
121 % \ignorespaces %% added 13 June 89
122 % END
123 %
124 % \endpicture ==
125 % BEGIN
126 % } \hss }
127 % height of \@picbox := \@picht
128 % depth of \@picbox := 0
129 % \mbox{\box\@picbox} %% change 26 Aug 91
130 % END
131 %
132 % \put(X, Y){OBJ} ==
133 % BEGIN
134 % \@killglue
135 % \raise Y * \unitlength \hb@xt@ 0pt { \hskip X * \unitlength
136 % OBJ \hss }
137 % \ignorespaces
138 % END
139 %
140 % \multiput(X,Y)(DELX,DELY){N}{OBJ} ==
141 % BEGIN
142 % \@killglue
143 % \@multicnt := N
144 % \@xdim := X * \unitlength
145 % \@ydim := Y * \unitlength
146 % while \@multicnt > 0
147 % do \raise \@ydim \hb@xt@ 0pt { \hskip \@xdim
148 % OBJ \hss }
149 % \@multicnt := \@multicnt - 1
150 % \@xdim := \@xdim + DELX * \unitlength
151 % \@ydim := \@ydim + DELY * \unitlength
152 % od
153 % \ignorespaces
154 % END
155 %
156 % \shortstack[POS]{TEXT} : Makes a \vbox containing TEXT stacked as
157 % a one-column array, positioned l, r or c as indicated by POS.
158 %
159 % \end{oldcomments}
160 %
161 % The `2ekernel' code ensures that a |\usepackage{autopict}| is
162 % essentially ignored if a `full' format is being used that has
163 % picture mode already in the format.
164 % \begin{macrocode}
165 %<2ekernel>\expandafter\let\csname ver@autopict.sty\endcsname\fmtversion
166 % \end{macrocode}
167 %
168 % \begin{macro}{\@wholewidth}
169 % \begin{macro}{\@halfwidth}
170 % \begin{macrocode}
171 %<*2ekernel>
172 \newdimen\@wholewidth
173 \newdimen\@halfwidth
174 % \end{macrocode}
175 % \end{macro}
176 % \end{macro}
177 %
178 % \begin{macro}{\unitlength}
179 % \begin{macrocode}
180 \newdimen\unitlength \unitlength =1pt
181 % \end{macrocode}
182 % \end{macro}
183 %
184 % \begin{macro}{\@picbox}
185 % \begin{macro}{\@picht}
186 % \begin{macrocode}
187 \newbox\@picbox
188 \newdimen\@picht
189 % \end{macrocode}
190 % \end{macro}
191 % \end{macro}
192 %
193 % \begin{macro}{\picture}
194 % \changes{v0.1c}{1994/04/28}{(DPC) Ignore spaces before (}
195 % |#1| should be white space.
196 % \begin{macro}{\pictur@}
197 % \changes{v1.0h}{1995/05/12}{Macro added for latex/1355}
198 % |#1| should be a |(| (eating any white space before the bracket),
199 % \begin{macrocode}
200 \long\gdef\picture#1{\pictur@#1}
201 \gdef\pictur@(#1){%
202 \@ifnextchar({\@picture(#1)}{\@picture(#1)(0,0)}}
203 % \end{macrocode}
204 % \end{macro}
205 % \end{macro}
206 %
207 % \begin{macro}{\@picture}
208 % \begin{macrocode}
209 \gdef\@picture(#1,#2)(#3,#4){%
210 \@picht#2\unitlength
211 \setbox\@picbox\hb@xt@#1\unitlength\bgroup
212 \hskip -#3\unitlength
213 \lower #4\unitlength\hbox\bgroup
214 \ignorespaces}
215 % \end{macrocode}
216 % \end{macro}
217 %
218 % \begin{macro}{\endpicture}
219 % \changes{LaTeX2.09}{1991/08/26}
220 % {(RmS \& FMi) extra boxing level around \cs{@picbox}
221 % to guard against unboxing in math mode
222 % (proposed by John Hobby)}
223 %
224 % \begin{macrocode}
225 \gdef\endpicture{%
226 \egroup\hss\egroup
227 \ht\@picbox\@picht\dp\@picbox\z@
228 \mbox{\box\@picbox}}
229 % \end{macrocode}
230 % \end{macro}
231 %
232 % In the definitions of |\put| and |\multiput|, |\hskip| was replaced by
233 % |\kern| just in case arg |#3| = ``plus''. (Bug detected by Don Knuth.
234 % changed 20 Jul 87).
235 %
236 % \begin{macrocode}
237 \long\gdef\put(#1,#2)#3{%
238 \@killglue\raise#2\unitlength
239 \hb@xt@\z@{\kern#1\unitlength #3\hss}%
240 \ignorespaces}
241 % \end{macrocode}
242 %
243 %
244 % \begin{macro}{\multiput}
245 % \changes{v0.1c}{1994/04/28}{(DPC) Ignore spaces between )(}
246 % |#3| had better be a |(|.
247 % \begin{macrocode}
248 \gdef\multiput(#1,#2)#3{%
249 \@xdim #1\unitlength
250 \@ydim #2\unitlength
251 \@multiput(}
252 % \end{macrocode}
253 % \end{macro}
254 %
255 % \begin{macro}{\multiput}
256 % \changes{v0.1c}{1994/04/28}{(DPC) Macro added}
257 % \begin{macrocode}
258 \long\gdef\@multiput(#1,#2)#3#4{%
259 \@killglue\@multicnt #3\relax
260 \@whilenum \@multicnt >\z@\do
261 {\raise\@ydim\hb@xt@\z@{\kern\@xdim #4\hss}%
262 \advance\@multicnt\m@ne
263 \advance\@xdim#1\unitlength\advance\@ydim#2\unitlength}%
264 \ignorespaces}
265 % \end{macrocode}
266 % \end{macro}
267 %
268 % \begin{macro}{\@killglue}
269 % \begin{macrocode}
270 \gdef\@killglue{\unskip\@whiledim \lastskip >\z@\do{\unskip}}
271 % \end{macrocode}
272 % \end{macro}
273 %
274 % \begin{macro}{\thinlines}
275 % \begin{macro}{\thicklines}
276 % \begin{macrocode}
277 \gdef\thinlines{\let\@linefnt\tenln \let\@circlefnt\tencirc
278 \@wholewidth\fontdimen8\tenln \@halfwidth .5\@wholewidth}
279 \gdef\thicklines{\let\@linefnt\tenlnw \let\@circlefnt\tencircw
280 \@wholewidth\fontdimen8\tenlnw \@halfwidth .5\@wholewidth}
281 % \end{macrocode}
282 % \end{macro}
283 % \end{macro}
284 %
285 % \begin{macro}{\linethickness}
286 % \begin{macrocode}
287 \gdef\linethickness#1{\@wholewidth #1\relax \@halfwidth .5\@wholewidth}
288 % \end{macrocode}
289 % \end{macro}
290 %
291 % \begin{macro}{\ishortstack}
292 % \begin{macrocode}
293 \gdef\shortstack{\@ifnextchar[\@shortstack{\@shortstack[c]}}
294 % \end{macrocode}
295 % \end{macro}
296 %
297 % \begin{macro}{\@ishortstack}
298 % \begin{macrocode}
299 \gdef\@shortstack[#1]{%
300 \leavevmode
301 \vbox\bgroup
302 \baselineskip-\p@\lineskip 3\p@
303 \let\mb@l\hss\let\mb@r\hss
304 \expandafter\let\csname mb@#1\endcsname\relax
305 \let\\\@stackcr
306 \@ishortstack}
307 % \end{macrocode}
308 % \end{macro}
309 %
310 %
311 % \changes{LaTeX2.09}{1991/08/14}
312 % {(RmS) inserted extra braces around entry for NFSS}
313 % \changes{LaTeX2.09}{1993/11/03}
314 % {(RmS) changed \cs{halign} to \cs{ialign} to initialize
315 % \cs{tabskip} and \cs{everycr}}
316 %
317 % \begin{macro}{\@ishortstack}
318 % \begin{macrocode}
319 \gdef\@ishortstack#1{\ialign{\mb@l {##}\unskip\mb@r\cr #1\crcr}\egroup}
320 % \end{macrocode}
321 % \end{macro}
322 %
323 % \begin{macro}{\@stackcr}
324 % \begin{macro}{\@ixstackcr}
325 % \begin{macrocode}
326 \gdef\@stackcr{\@ifstar\@ixstackcr\@ixstackcr}
327 \gdef\@ixstackcr{\@ifnextchar[\@istackcr{\cr\ignorespaces}}
328 % \end{macrocode}
329 % \end{macro}
330 % \end{macro}
331 %
332 % \begin{macro}{\@istackcr}
333 % \begin{macrocode}
334 \gdef\@istackcr[#1]{\cr\noalign{\vskip #1}\ignorespaces}
335 % \end{macrocode}
336 % \end{macro}
337 %
338 % \begin{oldcomments}
339 % \line(X,Y){LEN} ==
340 % BEGIN
341 % \@xarg := X
342 % \@yarg := Y
343 % \@linelen := LEN * \unitlength
344 % if \@xarg = 0
345 % then \@vline
346 % else if \@yarg = 0
347 % then \@hline
348 % else \@sline
349 % if
350 % if
351 % END
352 %
353 % \@sline ==
354 % BEGIN
355 % if \@xarg < 0
356 % then @negarg := T
357 % \@xarg := -\@xarg
358 % \@yyarg := -\@yarg
359 % else @negarg := F
360 % \@yyarg := \@yarg
361 % fi
362 % \@tempcnta := |\@yyarg|
363 % if \@tempcnta > 6
364 % then error: 'LATEX ERROR: Illegal \line or \vector argument.'
365 % \@tempcnta := 0
366 % fi
367 % \box\@linechar := \hbox{\@linefnt \@getlinechar(\@xarg,\@yyarg) }
368 % if \@yarg > 0 then \@upordown = \raise
369 % \@clnht := 0
370 % else \@upordown = \lower
371 % \@clnht := height of \box\@linechar
372 % fi
373 % \@clnwd := width of \box\@linechar
374 % if @negarg
375 % then \hskip - width of \box\@linechar
376 % \reserved@a == \hskip - 2* width of box \@linechar
377 % else \reserved@a == \relax
378 % fi
379 % %% Put out integral number of line segments
380 % while \@clnwd < \@linelen
381 % do \@upordown \@clnht \copy\@linechar
382 % \reserved@a
383 % \@clnht := \@clnht + ht of \box\@linechar
384 % \@clnwd := \@clnwd + width of \box\@linechar
385 % od
386 %
387 % %% Put out last segment
388 % \@clnht := \@clnht - height of \box\@linechar
389 % \@clnwd := \@clnwd - width of \box\@linechar
390 % \@tempdima := \@linelen - \@clnwd
391 % \@tempdimb := \@tempdima - width of \box\@linechar
392 % if @negarg then \hskip -\@tempdimb
393 % else \hskip \@tempdimb
394 % fi
395 % \@tempdima := 1000 * \@tempdima
396 % \@tempcnta := \@tempdima / width of \box\@linechar
397 % \@tempdima := (\@tempcnta * ht of \box\@linechar)/1000
398 % \@clnht := \@clnht + \@tempdima
399 % if \@linelen < width of box\@linechar
400 % then \hskip width of box\@linechar
401 % else \hbox{\@upordown \@clnht \copy\@linechar}
402 % fi
403 % END
404 %
405 % \@hline ==
406 % BEGIN
407 % if \@xarg < 0 then \hskip -\@linelen \fi
408 % \vrule height \@halfwidth depth \@halfwidth width \@linelen
409 % if \@xarg < 0 then \hskip -\@linelen \fi
410 % END
411 %
412 % \@vline == if \@yarg < 0 \@downline else \@upline fi
413 %
414 %
415 % \@getlinechar(X,Y) ==
416 % BEGIN
417 % \@tempcnta := 8*X - 9
418 % if Y > 0
419 % then \@tempcnta := \@tempcnta + Y
420 % else \@tempcnta := \@tempcnta - Y + 64
421 % fi
422 % \char\@tempcnta
423 % END
424 %
425 % \vector(X,Y){LEN} ==
426 % BEGIN
427 % \@xarg := X
428 % \@yarg := Y
429 % \@linelen := LEN * \unitlength
430 % if \@xarg = 0
431 % then \@vvector
432 % else if \@yarg = 0
433 % then \@hvector
434 % else \@svector
435 % if
436 % if
437 % END
438 %
439 % \@hvector ==
440 % BEGIN
441 % \@hline
442 % {\@linefnt if \@xarg < 0 then \@getlarrow(1,0)
443 % else \@getrarrow(1,0)
444 % fi}
445 % END
446 %
447 % \@vvector == if \@yarg < 0 \@downvector else \@upvector fi
448 %
449 % \@svector ==
450 % BEGIN
451 % \@sline
452 % \@tempcnta := |\@yarg|
453 % if \@tempcnta < 5
454 % then \hskip - width of \box\@linechar
455 % \@upordown \@clnht \hbox
456 % {\@linefnt
457 % if @negarg then \@getlarrow(\@xarg,\@yyarg)
458 % else \@getrarrow(\@xarg,\@yyarg)
459 % fi }
460 % else error: 'LATEX ERROR: Illegal \line or \vector argument.'
461 % fi
462 % END
463 %
464 % \@getlarrow(X,Y) ==
465 % BEGIN
466 % if Y = 0
467 % then \@tempcnta := '33
468 % else \@tempcnta := 16 * X - 9
469 % \@tempcntb := 2 * Y
470 % if \@tempcntb > 0
471 % then \@tempcnta := \@tempcnta + \@tempcntb
472 % else \@tempcnta := \@tempcnta - \@tempcntb + 64
473 % fi
474 % fi
475 % \char\@tempcnta
476 % END
477 %
478 % \@getrarrow(X,Y) ==
479 % BEGIN
480 % \@tempcntb := |Y|
481 % case of \@tempcntb
482 % 0 : \@tempcnta := '55
483 % 1 : if X < 3
484 % then \@tempcnta := 24*X - 6
485 % else if X = 3
486 % then \@tempcnta := 49
487 % else \@tempcnta := 58 fi
488 % fi
489 % 2 : if X < 3
490 % then \@tempcnta := 24*X - 3
491 % else \@tempcnta := 51 % X must = 3
492 % fi
493 % 3 : \@tempcnta := 16*X - 2
494 % 4 : \@tempcnta := 16*X + 7
495 % endcase
496 % if Y < 0
497 % then \@tempcnta := \@tempcnta + 64
498 % fi
499 % \char\@tempcnta
500 % END
501 % \end{oldcomments}
502 %
503 % \begin{macro}{\if@negarg}
504 % \begin{macrocode}
505 \newif\if@negarg
506 % \end{macrocode}
507 % \end{macro}
508 %
509 % \begin{macro}{\line}
510 % \begin{macrocode}
511 \gdef\line(#1,#2)#3{\@xarg #1\relax \@yarg #2\relax
512 \@linelen #3\unitlength
513 \ifdim\@linelen<\z@\@badlinearg\else
514 \ifnum\@xarg =\z@ \@vline
515 \else \ifnum\@yarg =\z@ \@hline \else \@sline\fi
516 \fi
517 \fi}
518 % \end{macrocode}
519 % \end{macro}
520 %
521 % \begin{macro}{\@sline}
522 % \begin{macrocode}
523 \gdef\@sline{%
524 \ifnum\@xarg<\z@ \@negargtrue \@xarg -\@xarg \@yyarg -\@yarg
525 \else \@negargfalse \@yyarg \@yarg \fi
526 \ifnum \@yyarg >\z@ \@tempcnta\@yyarg \else \@tempcnta -\@yyarg \fi
527 \ifnum\@tempcnta>6 \@badlinearg\@tempcnta\z@ \fi
528 \ifnum\@xarg>6 \@badlinearg\@xarg \@ne \fi
529 \setbox\@linechar\hbox{\@linefnt\@getlinechar(\@xarg,\@yyarg)}%
530 % \end{macrocode}
531 % If we have something like |\line(5,5){30}| the |\@linechar| will
532 % not contain a char and later on we will end in an infinite loop.
533 % So we check the width of the box and put in something as an
534 % emergency fix if necessary.
535 % \changes{v1.1k}{2003/08/27}{check for \cs{@linechar} being empty pr/3570}
536 % \begin{macrocode}
537 \ifdim\wd\@linechar=\z@
538 \setbox\@linechar\hbox{.}%
539 \@badlinearg
540 \fi
541 \ifnum \@yarg >\z@ \let\@upordown\raise \@clnht\z@
542 \else\let\@upordown\lower \@clnht \ht\@linechar\fi
543 \@clnwd \wd\@linechar
544 \if@negarg
545 \hskip -\wd\@linechar \def\reserved@a{\hskip -2\wd\@linechar}%
546 \else
547 \let\reserved@a\relax
548 \fi
549 \@whiledim \@clnwd <\@linelen \do
550 {\@upordown\@clnht\copy\@linechar
551 \reserved@a
552 \advance\@clnht \ht\@linechar
553 \advance\@clnwd \wd\@linechar}%
554 \advance\@clnht -\ht\@linechar
555 \advance\@clnwd -\wd\@linechar
556 \@tempdima\@linelen\advance\@tempdima -\@clnwd
557 \@tempdimb\@tempdima\advance\@tempdimb -\wd\@linechar
558 \if@negarg \hskip -\@tempdimb \else \hskip \@tempdimb \fi
559 \multiply\@tempdima \@m
560 \@tempcnta \@tempdima
561 \@tempdima \wd\@linechar \divide\@tempcnta \@tempdima
562 \@tempdima \ht\@linechar \multiply\@tempdima \@tempcnta
563 \divide\@tempdima \@m
564 \advance\@clnht \@tempdima
565 \ifdim \@linelen <\wd\@linechar
566 \hskip \wd\@linechar
567 % \end{macrocode}
568 % Warn if line gets so short that it can't be printed.
569 % \changes{v1.1g}{1997/09/15}{Warn if lines become invisible pr/2524}
570 % But don't warn if it is exactly zero since that was probably
571 % deliberate (e.g., to get a vector head only).
572 % \changes{v1.1j}{2001/06/04}{Don't warn for exactly zero pr/3318}
573 % \begin{macrocode}
574 \ifdim \@linelen = \z@
575 \else
576 \@picture@warn
577 \fi
578 \else\@upordown\@clnht\copy\@linechar\fi}
579 % \end{macrocode}
580 % \end{macro}
581 %
582 % \begin{macro}{\@hline}
583 % \begin{macrocode}
584 \gdef\@hline{\ifnum \@xarg <\z@ \hskip -\@linelen \fi
585 \vrule \@height \@halfwidth \@depth \@halfwidth \@width \@linelen
586 \ifnum \@xarg <\z@ \hskip -\@linelen \fi}
587 % \end{macrocode}
588 % \end{macro}
589 %
590 % \begin{macro}{\getlinechar}
591 % \begin{macrocode}
592 \gdef\@getlinechar(#1,#2){\@tempcnta#1\relax\multiply\@tempcnta 8%
593 \advance\@tempcnta -9\ifnum #2>\z@ \advance\@tempcnta #2\relax\else
594 \advance\@tempcnta -#2\relax\advance\@tempcnta 64 \fi
595 \char\@tempcnta}
596 % \end{macrocode}
597 % \end{macro}
598 %
599 % \begin{macro}{\vector}
600 % \begin{macrocode}
601 \gdef\vector(#1,#2)#3{\@xarg #1\relax \@yarg #2\relax
602 \@tempcnta \ifnum\@xarg<\z@ -\@xarg\else\@xarg\fi
603 \ifnum\@tempcnta<5\relax
604 \@linelen #3\unitlength
605 \ifdim\@linelen<\z@\@badlinearg\else
606 \ifnum\@xarg =\z@ \@vvector
607 \else \ifnum\@yarg =\z@ \@hvector \else \@svector\fi
608 \fi
609 \fi
610 \else\@badlinearg\fi}
611 % \end{macrocode}
612 % \end{macro}
613 %
614 % \begin{macro}{\@hvector}
615 % \begin{macrocode}
616 \gdef\@hvector{\@hline\hb@xt@\z@{\@linefnt
617 \ifnum \@xarg <\z@ \@getlarrow(1,0)\hss\else
618 \hss\@getrarrow(1,0)\fi}}
619 % \end{macrocode}
620 % \end{macro}
621 %
622 % \begin{macro}{\@vvector}
623 % \begin{macrocode}
624 \gdef\@vvector{\ifnum \@yarg <\z@ \@downvector \else \@upvector \fi}
625 % \end{macrocode}
626 % \end{macro}
627 %
628 % \begin{macro}{\@svector}
629 % \begin{macrocode}
630 \gdef\@svector{\@sline
631 \@tempcnta\@yarg \ifnum\@tempcnta <\z@ \@tempcnta -\@tempcnta\fi
632 \ifnum\@tempcnta <5%
633 \hskip -\wd\@linechar
634 \@upordown\@clnht \hbox{\@linefnt \if@negarg
635 \@getlarrow(\@xarg,\@yyarg)\else \@getrarrow(\@xarg,\@yyarg)\fi}%
636 \else\@badlinearg\fi}
637 % \end{macrocode}
638 % \end{macro}
639 %
640 % \begin{macro}{\@getlarrow}
641 % \changes{v1.1h}{1999/04/15}{Replaced octal number, CAR}
642 % \begin{macrocode}
643 \gdef\@getlarrow(#1,#2){\ifnum #2=\z@ \@tempcnta 27 % '33
644 \else
645 \@tempcnta #1\relax\multiply\@tempcnta \sixt@@n
646 \advance\@tempcnta -9 \@tempcntb #2\relax\multiply\@tempcntb \tw@
647 \ifnum \@tempcntb >\z@ \advance\@tempcnta \@tempcntb
648 \else\advance\@tempcnta -\@tempcntb\advance\@tempcnta 64
649 \fi\fi\char\@tempcnta}
650 % \end{macrocode}
651 % \end{macro}
652 %
653 % \changes{v1.1h}{1999/04/15}{Replaced octal number, CAR}
654 % \begin{macro}{\@getrarrow}
655 % \begin{macrocode}
656 \gdef\@getrarrow(#1,#2){\@tempcntb #2\relax
657 \ifnum\@tempcntb <\z@ \@tempcntb -\@tempcntb\relax\fi
658 \ifcase \@tempcntb\relax \@tempcnta 45 % '55
659 \or
660 \ifnum #1<\thr@@ \@tempcnta #1\relax\multiply\@tempcnta
661 24\advance\@tempcnta -6 \else \ifnum #1=\thr@@ \@tempcnta 49
662 \else\@tempcnta 58 \fi\fi\or
663 \ifnum #1<\thr@@ \@tempcnta=#1\relax\multiply\@tempcnta
664 24\advance\@tempcnta -\thr@@ \else \@tempcnta 51 \fi\or
665 \@tempcnta #1\relax\multiply\@tempcnta
666 \sixt@@n \advance\@tempcnta -\tw@ \else
667 \@tempcnta #1\relax\multiply\@tempcnta
668 \sixt@@n \advance\@tempcnta 7 \fi\ifnum #2<\z@ \advance\@tempcnta 64 \fi
669 \char\@tempcnta}
670 % \end{macrocode}
671 % \end{macro}
672 %
673 % \begin{macro}{\@vline}
674 % \begin{macrocode}
675 \gdef\@vline{\ifnum \@yarg <\z@ \@downline \else \@upline\fi}
676 % \end{macrocode}
677 % \end{macro}
678 %
679 % \begin{macro}{\@upline}
680 % \begin{macrocode}
681 \gdef\@upline{%
682 \hb@xt@\z@{\hskip -\@halfwidth \vrule \@width \@wholewidth
683 \@height \@linelen \@depth \z@\hss}}
684 % \end{macrocode}
685 % \end{macro}
686 %
687 % \begin{macro}{\@downline}
688 % \begin{macrocode}
689 \gdef\@downline{%
690 \hb@xt@\z@{\hskip -\@halfwidth \vrule \@width \@wholewidth
691 \@height \z@ \@depth \@linelen \hss}}
692 % \end{macrocode}
693 % \end{macro}
694 %
695 % \begin{macro}{\@upvector}
696 % \changes{v1.1h}{1999/04/15}{Replaced octal number, CAR}
697 % \changes{v1.1i}{2000/01/15}{Removed space at end-of-line, CAR}
698 % \begin{macrocode}
699 \gdef\@upvector{\@upline\setbox\@tempboxa\hbox{\@linefnt\char 54}% '66
700 \raise \@linelen \hb@xt@\z@{\lower \ht\@tempboxa\box\@tempboxa\hss}}
701 % \end{macrocode}
702 % \end{macro}
703 %
704 % \changes{v1.1h}{1999/04/15}{Replaced octal number, CAR}
705 % \begin{macro}{\@downvector}
706 % \begin{macrocode}
707 \gdef\@downvector{\@downline\lower \@linelen
708 \hb@xt@\z@{\@linefnt\char 63 % '77
709 \hss}}
710 % \end{macrocode}
711 % \end{macro}
712 %
713 % \begin{oldcomments}
714 % \dashbox{D}(X,Y) ==
715 % BEGIN
716 % leave vertical mode
717 % \hb@xt@ 0pt {
718 % \baselineskip := 0pt
719 % \lineskip := 0pt
720 % %% HORIZONTAL DASHES
721 % \@dashdim := X * \unitlength
722 % \@dashcnt := \@dashdim + 200 % to prevent roundoff error
723 % \@dashdim := D * \unitlength
724 % \@dashcnt := \@dashcnt / \@dashdim
725 % if \@dashcnt is odd
726 % then \@dashdim := 0pt
727 % \@dashcnt := (\@dashcnt + 1) / 2
728 % else \@dashdim := \@dashdim / 2
729 % \@dashcnt := \@dashcnt / 2 - 1
730 % \box\@dashbox := \hbox{\vrule height \@halfwidth
731 % depth \@halfwidth width \@dashdim}
732 % \put(0,0){\copy\@dashbox}
733 % \put(0,Y){\copy\@dashbox}
734 % \put(X,0){\hskip -\@dashdim\copy\@dashbox}
735 % \put(X,Y){\hskip -\@dashdim\box\@dashbox}
736 % \@dashdim := 3 * \@dashdim
737 % fi
738 % \box\@dashbox := \hbox{\vrule height \@halfwidth
739 % depth \@halfwidth width D * \unitlength
740 % \hskip D * \unitlength}
741 % \@tempcnta := 0
742 % \put(0,0){\hskip \@dashdim
743 % while \@tempcnta < \@dascnt
744 % do \copy\@dashbox
745 % \@tempcnta := \@tempcnta + 1
746 % od
747 % }
748 % \@tempcnta := 0
749 % put(0,Y){\hskip \@dashdim
750 % while \@tempcnta < \@dascnt
751 % do \copy\@dashbox
752 % \@tempcnta := \@tempcnta + 1
753 % od
754 % }
755 %
756 % %% vertical dashes
757 % \@dashdim := Y * \unitlength
758 % \@dashcnt := \@dashdim + 200 % to prevent roundoff error
759 % \@dashdim := D * \unitlength
760 % \@dashcnt := \@dashcnt / \@dashdim
761 % if \@dashcnt is odd
762 % then \@dashdim := 0pt
763 % \@dashcnt := (\@dashcnt + 1) / 2
764 % else \@dashdim := \@dashdim / 2
765 % \@dashcnt := \@dashcnt / 2 - 1
766 % \box\@dashbox := \hbox{\hskip -\@halfwidth
767 % \vrule width \@wholewidth
768 % height \@dashdim }
769 % \put(0,0){\copy\@dashbox}
770 % \put(X,0){\copy\@dashbox}
771 % \put(0,Y){\lower\@dashdim\copy\@dashbox}
772 % \put(X,Y){\lower\@dashdim\copy\@dashbox}
773 % \@dashdim := 3 * \@dashdim
774 % fi
775 % \box\@dashbox := \hbox{\vrule width \@wholewidth
776 % height D * \unitlength }
777 % \@tempcnta := 0
778 % put(0,0){\hskip -\halfwidth
779 % \vbox{while \@tempcnta < \@dashcnt
780 % do \vskip D*\unitlength
781 % \copy\@dashbox
782 % \@tempcnta := \@tempcnta + 1
783 % od
784 % \vskip \@dashdim
785 % } }
786 % \@tempcnta := 0
787 % put(X,0){\hskip -\halfwidth
788 % \vbox{while \@tempcnta < \@dashcnt
789 % do \vskip D*\unitlength
790 % \copy\@dashbox
791 % \@tempcnta := \@tempcnta + 1
792 % od
793 % \vskip \@dashdim
794 % }
795 % }
796 % } % END DASHES
797 %
798 % \@imakepicbox(X,Y)
799 % END
800 % \end{oldcomments}
801 %
802 % \begin{macro}{\dashbox}
803 % \begin{macrocode}
804 \gdef\dashbox#1(#2,#3){\leavevmode\hb@xt@\z@{\baselineskip \z@skip
805 \lineskip \z@skip
806 \@dashdim #2\unitlength
807 \@dashcnt \@dashdim \advance\@dashcnt 200
808 \@dashdim #1\unitlength\divide\@dashcnt \@dashdim
809 \ifodd\@dashcnt\@dashdim \z@
810 \advance\@dashcnt \@ne \divide\@dashcnt \tw@
811 \else \divide\@dashdim \tw@ \divide\@dashcnt \tw@
812 \advance\@dashcnt \m@ne
813 \setbox\@dashbox \hbox{\vrule \@height \@halfwidth \@depth \@halfwidth
814 \@width \@dashdim}\put(0,0){\copy\@dashbox}%
815 \put(0,#3){\copy\@dashbox}%
816 \put(#2,0){\hskip-\@dashdim\copy\@dashbox}%
817 \put(#2,#3){\hskip-\@dashdim\box\@dashbox}%
818 \multiply\@dashdim \thr@@
819 \fi
820 \setbox\@dashbox \hbox{\vrule \@height \@halfwidth \@depth \@halfwidth
821 \@width #1\unitlength\hskip #1\unitlength}\@tempcnta\z@
822 \put(0,0){\hskip\@dashdim \@whilenum \@tempcnta <\@dashcnt
823 \do{\copy\@dashbox\advance\@tempcnta \@ne }}\@tempcnta\z@
824 \put(0,#3){\hskip\@dashdim \@whilenum \@tempcnta <\@dashcnt
825 \do{\copy\@dashbox\advance\@tempcnta \@ne }}%
826 \@dashdim #3\unitlength
827 \@dashcnt \@dashdim \advance\@dashcnt 200
828 \@dashdim #1\unitlength\divide\@dashcnt \@dashdim
829 \ifodd\@dashcnt \@dashdim \z@
830 \advance\@dashcnt \@ne \divide\@dashcnt \tw@
831 \else
832 \divide\@dashdim \tw@ \divide\@dashcnt \tw@
833 \advance\@dashcnt \m@ne
834 \setbox\@dashbox\hbox{\hskip -\@halfwidth
835 \vrule \@width \@wholewidth
836 \@height \@dashdim}\put(0,0){\copy\@dashbox}%
837 \put(#2,0){\copy\@dashbox}%
838 \put(0,#3){\lower\@dashdim\copy\@dashbox}%
839 \put(#2,#3){\lower\@dashdim\copy\@dashbox}%
840 \multiply\@dashdim \thr@@
841 \fi
842 \setbox\@dashbox\hbox{\vrule \@width \@wholewidth
843 \@height #1\unitlength}\@tempcnta\z@
844 \put(0,0){\hskip -\@halfwidth \vbox{\@whilenum \@tempcnta <\@dashcnt
845 \do{\vskip #1\unitlength\copy\@dashbox\advance\@tempcnta \@ne }%
846 \vskip\@dashdim}}\@tempcnta\z@
847 \put(#2,0){\hskip -\@halfwidth \vbox{\@whilenum \@tempcnta<\@dashcnt
848 \do{\vskip #1\unitlength\copy\@dashbox\advance\@tempcnta \@ne }%
849 \vskip\@dashdim}}}\@makepicbox(#2,#3)}
850 % \end{macrocode}
851 % \end{macro}
852 %
853 % \begin{oldcomments}
854 % CIRCLES AND OVALS
855 %
856 % USER COMMANDS:
857 %
858 % \circle{D} : Produces the circle with the diameter as close as
859 % possible to D * \unitlength. \put(X,Y){\circle{D}}
860 % puts the circle with its center at (X,Y).
861 %
862 % \oval(X,Y) : Makes an oval as round as possible that fits in the
863 % rectangle of width X * \unitlength and height
864 % Y * \unitlength. The reference point is the center.
865 %
866 % \oval(X,Y)[POS] : Save as \oval(X,Y) except it draws only the
867 % half or quadrant of the oval indicated by POS.
868 % E.G., \oval(X,Y)[t] draws just the top half
869 % and \oval(X,Y)[br] draws just the bottom right
870 % quadrant. In all cases, the reference point is
871 % the same as the unqualified \oval(X,Y) command.
872 %
873 % \@ovvert {DELTA1} {DELTA2} : Makes a vbox containing either the left
874 % side or the right side of the oval being constructed. The baseline
875 % will coincide with the outside bottom edge of the oval; the left
876 % side of the box will coincide with the left edge of the vertical
877 % rule. The width of the box will be \@tempdima.
878 % DELTA1 and DELTA2 are added to the character number in \@tempcnta
879 % to get the characters for the top and bottom quarter circle pieces.
880 %
881 % \@ovhorz : Makes an hbox containing the straight rule for either the
882 % top or the bottom of the oval being constructed. The baseline
883 % will coincide with bottom edge of the rule; the left side of
884 % the box will coincide with the left side of the oval.
885 % The width of the box will be \@ovxx.
886 %
887 % \@getcirc {DIAM} : Sets \@tempcnta to the character number
888 % of the top-right quarter circle with the largest
889 % diameter less than or equal to DIAM.
890 % Sets \@tempboxa to an hbox containing that character.
891 % Sets \@tempdima to \wd \@tempboxa, which is the distance
892 % from the circle's left outside edge to its right
893 % inside edge.
894 % (These characters are like those described in the
895 % TeXbook, pp. 389-90.)
896 %
897 % \@getcirc {DIAM} ==
898 % BEGIN
899 % \@tempcnta := integer coercion of (DIAM + 2pt)
900 % + 2pt added 1 Nov 88
901 % \@tempcnta := \@tempcnta / integer coercion of 4pt
902 % if \@tempcnta > 10
903 % then \@tempcnta := 10 fi
904 % if \@tempcnta > 0
905 % then \@tempcnta := \@tempcnta-1
906 % else LaTeX Warning: Oval too small.
907 % fi
908 % \@tempcnta := 4 * \@tempcnta
909 % \@tempboxa := \hbox{\@circlefnt \char \@tempcnta}
910 % \@tempdima := \wd \@tempboxa
911 % END
912 %
913 % \@put{X}{Y}{OBJ} ==
914 % BEGIN
915 % \raise Y \hb@xt@ 0pt{\hskip X OBJ \hss}
916 % END
917 %
918 % \@oval(X,Y)[POS] ==
919 % BEGIN
920 % \begingroup
921 % \boxmaxdepth := \maxdimen
922 % @ovt := @ovb := @ovl := @ovr := true
923 % for all E in POS
924 % do @ovE := false od
925 % \@ovxx := X * \unitlength
926 % \@ovyy := Y * \unitlength
927 % \@tempdimb := min(\@ovxx,\@ovyy)
928 % \@getcirc{\@tempdimb-2pt} %% "-2pt" added 7 Dec 89
929 % \@ovro := \ht \@tempboxa
930 % \@ovri := \dp \@tempboxa
931 % \@ovdx := \@ovxx - \@tempdima
932 % \@ovdx := \@ovdx/2
933 % \@ovdy := \@ovyy - \@tempdima
934 % \@ovdy := \@ovyy/2
935 % \@circlefnt
936 % \@tempboxa :=
937 % \hbox{
938 % if @ovr
939 % then \@ovvert{3}{2} \kern -\@tempdima
940 % fi
941 % if @ovl
942 % then \kern \@ovxx \@ovvert{0}{1} \kern -\@tempdima
943 % \kern -\@ovxx
944 % fi
945 % if @ovt
946 % then \@ovhorz \kern -\@ovxx
947 % fi
948 % if @ovb
949 % then \raise \@ovyy \@ovhorz
950 % fi
951 % }
952 % \@ovdx := \@ovdx + \@ovro
953 % \@ovdy := \@ovdy + \@ovro
954 % \ht\@tempboxa := \dp\@tempboxa := 0
955 % \@put{-\@ovdx}{-\@ovdy}{\box\@tempboxa}
956 % \endgroup
957 % END
958 %
959 % \@ovvert {DELTA1} {DELTA2} ==
960 % BEGIN
961 % \vbox to \@ovyy {
962 % if @ovb
963 % then \@tempcntb := \@tempcnta + DELTA1
964 % \kern -\@ovro
965 % \hbox { \char \@tempcntb }
966 % \nointerlineskip
967 % else \kern \@ovri \kern \@ovdy
968 % fi
969 % \leaders \vrule width \@wholewidth \vfil
970 % \nointerlineskip
971 % if @ovt
972 % then \@tempcntb := \@tempcnta + DELTA2
973 % \hbox { \char \@tempcntb }
974 % else \kern \@ovdy \kern \@ovro
975 % fi
976 % }
977 % END
978 %
979 % \@ovhorz ==
980 % BEGIN
981 % \hb@xt@ \@ovxx{
982 % \kern \@ovro
983 % if @ovr
984 % then
985 % else \kern \@ovdx
986 % fi
987 % \leaders \hrule height \@wholewidth \hfil
988 % if @ovl
989 % then
990 % else \kern \@ovdx
991 % fi
992 % \kern \@ovri
993 % }
994 % END
995 %
996 % \circle{DIAM} ==
997 % BEGIN
998 % \begingroup
999 % \boxmaxdepth := maxdimen
1000 % \@tempdimb := DIAM *\unitlength
1001 % if \@tempdimb > 15.5pt
1002 % then \@getcirc{\@tempdimb}
1003 % \@ovro := \ht \@tempboxa
1004 % \@tempboxa := \hbox{
1005 % \@circlefnt
1006 % \@tempcnta := \@tempcnta + 2
1007 % \char \@tempcnta
1008 % \@tempcnta := \@tempcnta - 1
1009 % \char \@tempcnta
1010 % \kern -2\@tempdima
1011 % \@tempcnta := \@tempcnta + 2
1012 % \raise \@tempdima \hbox { \char \@tempcnta }
1013 % \raise \@tempdima \box\@tempboxa
1014 % }
1015 % \ht\@tempboxa := \dp\@tempboxa := 0
1016 % \@put{-\@ovro}{-\@ovro}{\@tempboxa}
1017 % else
1018 % \@circ{\@tempdimb}{96}
1019 % fi
1020 % \endgroup
1021 % END
1022 %
1023 % \circle*{DIAM} == \@dot{DIAM} == \@circ{DIAM*\unitlength}{112}
1024 %
1025 % \@circ{DIAM}{CHAR} ==
1026 % BEGIN
1027 % \@tempcnta := integer coercion of (DIAM + .5pt)/1pt.
1028 % if \@tempcnta > 15 then \@tempcnta := 15 fi
1029 % if \@tempcnta > 1 then \@tempcnta := \@tempcnta - 1 fi
1030 % \@tempcnta := \@tempcnta + CHAR
1031 % \@circlefnt
1032 % \char \@tempcnta
1033 % END
1034 % \end{oldcomments}
1035 %
1036 %
1037 % \begin{macro}{\if@ovt}
1038 % \begin{macro}{\if@ovb}
1039 % \begin{macro}{\if@ovl}
1040 % \begin{macro}{\if@ovr}
1041 % If producing the Top Bottom Left or Right of an oval.
1042 % \begin{macrocode}
1043 \newif\if@ovt
1044 \newif\if@ovb
1045 \newif\if@ovl
1046 \newif\if@ovr
1047 % \end{macrocode}
1048 % \end{macro}
1049 % \end{macro}
1050 % \end{macro}
1051 % \end{macro}
1052 %
1053 %
1054 % \begin{macro}{\@ovxx}
1055 % \begin{macro}{\@ovyy}
1056 % \begin{macro}{\@ovdx}
1057 % \begin{macro}{\@ovdy}
1058 % \begin{macro}{\@ovro}
1059 % \begin{macro}{\@ovri}
1060 % \begin{macrocode}
1061 \newdimen\@ovxx
1062 \newdimen\@ovyy
1063 \newdimen\@ovdx
1064 \newdimen\@ovdy
1065 \newdimen\@ovro
1066 \newdimen\@ovri
1067 % \end{macrocode}
1068 % \end{macro}
1069 % \end{macro}
1070 % \end{macro}
1071 % \end{macro}
1072 % \end{macro}
1073 % \end{macro}
1074 %
1075 %
1076 % |\advance\@tempdima 2pt\relax| added 1 Nov 88 to fix bug in which
1077 % size of drawn circle not monotonic function of argument of |\circle|,
1078 % caused by different rounding for dimensions of large and small
1079 % circles.
1080 %
1081 %
1082 % \begin{macro}{\@getcirc}
1083 % \changes{v1.1j}{2003/12/30}{issue warning if circle size can't be met pr/3473}
1084 % \begin{macrocode}
1085 \gdef\@getcirc#1{\@tempdima #1\relax \advance\@tempdima 2\p@
1086 \@tempcnta\@tempdima
1087 \@tempdima 4\p@ \divide\@tempcnta\@tempdima
1088 \ifnum \@tempcnta >10\relax
1089 \@picture@warn
1090 \@tempcnta 10\relax
1091 \fi
1092 \ifnum \@tempcnta >\z@ \advance\@tempcnta\m@ne
1093 % \end{macrocode}
1094 % Warn if requirements for oval or circle can't be met.
1095 % \changes{v1.1g}{1997/09/15}{Warn if lines become invisible pr/2524}
1096 % \begin{macrocode}
1097 \else \@picture@warn \fi
1098 \multiply\@tempcnta 4\relax
1099 \setbox \@tempboxa \hbox{\@circlefnt
1100 \char \@tempcnta}\@tempdima \wd \@tempboxa}
1101 % \end{macrocode}
1102 % \end{macro}
1103 %
1104 % \begin{macro}{\@picture@warn}
1105 % Generic warning for lines, vectors (used in |\@sline|) and
1106 % oval or circle (used un |\@getcirc|) are not available at
1107 % right size.
1108 % \changes{v1.1g}{1997/09/15}{Macro added pr/2524}
1109 % \begin{macrocode}
1110 \def\@picture@warn{\@latex@warning{%
1111 \string\oval, \string\circle, or \string\line\space
1112 size unavailable}}
1113 % \end{macrocode}
1114 % \end{macro}
1115 %
1116 % \begin{macro}{\@put}
1117 % \begin{macrocode}
1118 \gdef\@put#1#2#3{\raise #2\hb@xt@\z@{\hskip #1#3\hss}}
1119 % \end{macrocode}
1120 % \end{macro}
1121 %
1122 % \begin{macro}{\oval}
1123 % \begin{macrocode}
1124 \gdef\oval(#1,#2){\@ifnextchar[{\@oval(#1,#2)}{\@oval(#1,#2)[]}}
1125 % \end{macrocode}
1126 % \end{macro}
1127 %
1128 % \begin{macro}{\@oval}
1129 % \begin{macrocode}
1130 \gdef\@oval(#1,#2)[#3]{\begingroup\boxmaxdepth \maxdimen
1131 \@ovttrue \@ovbtrue \@ovltrue \@ovrtrue
1132 \@tfor\reserved@a :=#3\do{\csname @ov\reserved@a false\endcsname}%
1133 \@ovxx
1134 #1\unitlength \@ovyy #2\unitlength
1135 \@tempdimb \ifdim \@ovyy >\@ovxx \@ovxx\else \@ovyy \fi
1136 \advance \@tempdimb -2\p@
1137 \@getcirc \@tempdimb
1138 \@ovro \ht\@tempboxa \@ovri \dp\@tempboxa
1139 \@ovdx\@ovxx \advance\@ovdx -\@tempdima \divide\@ovdx \tw@
1140 \@ovdy\@ovyy \advance\@ovdy -\@tempdima \divide\@ovdy \tw@
1141 \@circlefnt \setbox\@tempboxa
1142 \hbox{\if@ovr \@ovvert32\kern -\@tempdima \fi
1143 \if@ovl \kern \@ovxx \@ovvert01\kern -\@tempdima \kern -\@ovxx \fi
1144 \if@ovt \@ovhorz \kern -\@ovxx \fi
1145 \if@ovb \raise \@ovyy \@ovhorz \fi}\advance\@ovdx\@ovro
1146 \advance\@ovdy\@ovro \ht\@tempboxa\z@ \dp\@tempboxa\z@
1147 \@put{-\@ovdx}{-\@ovdy}{\box\@tempboxa}%
1148 \endgroup}
1149 % \end{macrocode}
1150 % \end{macro}
1151 %
1152 % \begin{macro}{\@ovvert}
1153 % \begin{macrocode}
1154 \gdef\@ovvert#1#2{\vbox to\@ovyy{%
1155 \if@ovb \@tempcntb \@tempcnta \advance \@tempcntb #1\relax
1156 \kern -\@ovro \hbox{\char \@tempcntb}\nointerlineskip
1157 \else \kern \@ovri \kern \@ovdy \fi
1158 \leaders\vrule \@width \@wholewidth\vfil \nointerlineskip
1159 \if@ovt \@tempcntb \@tempcnta \advance \@tempcntb #2\relax
1160 \hbox{\char \@tempcntb}%
1161 \else \kern \@ovdy \kern \@ovro \fi}}
1162 % \end{macrocode}
1163 % \end{macro}
1164 %
1165 % \begin{macro}{\@ovhorz}
1166 % \begin{macrocode}
1167 \gdef\@ovhorz{\hb@xt@\@ovxx{\kern \@ovro
1168 \if@ovr \else \kern \@ovdx \fi
1169 \leaders \hrule \@height \@wholewidth \hfil
1170 \if@ovl \else \kern \@ovdx \fi
1171 \kern \@ovri}}
1172 % \end{macrocode}
1173 % \end{macro}
1174 %
1175 % \begin{macro}{\circle}
1176 % \changes{LaTeX2.09}{1993/08/05}
1177 % {(RMS) Added error message if \cs{circle} is used in math mode.}
1178 % \begin{macrocode}
1179 \gdef\circle{\@inmatherr\circle\@ifstar\@dot\@circle}
1180 % \end{macrocode}
1181 % \end{macro}
1182 %
1183 % \begin{macro}{\@circle}
1184 % \begin{macrocode}
1185 \gdef\@circle#1{%
1186 \begingroup \boxmaxdepth \maxdimen \@tempdimb #1\unitlength
1187 \ifdim \@tempdimb >15.5\p@ \@getcirc\@tempdimb
1188 \@ovro\ht\@tempboxa
1189 \setbox\@tempboxa\hbox{\@circlefnt
1190 \advance\@tempcnta\tw@ \char \@tempcnta
1191 \advance\@tempcnta\m@ne \char \@tempcnta \kern -2\@tempdima
1192 \advance\@tempcnta\tw@
1193 \raise \@tempdima \hbox{\char\@tempcnta}\raise \@tempdima
1194 \box\@tempboxa}\ht\@tempboxa\z@ \dp\@tempboxa\z@
1195 \@put{-\@ovro}{-\@ovro}{\box\@tempboxa}%
1196 \else \@circ\@tempdimb{96}\fi\endgroup}
1197 % \end{macrocode}
1198 % \end{macro}
1199 %
1200 % \begin{macro}{\@dot}
1201 % Internal form of |\circle*|.
1202 % \begin{macrocode}
1203 \gdef\@dot#1{\@tempdimb #1\unitlength \@circ\@tempdimb{112}}
1204 % \end{macrocode}
1205 % \end{macro}
1206 %
1207 % \begin{macro}{\@circ}
1208 % \begin{macrocode}
1209 \gdef\@circ#1#2{\@tempdima #1\relax \advance\@tempdima .5\p@
1210 \@tempcnta\@tempdima \@tempdima \p@
1211 \divide\@tempcnta\@tempdima
1212 \ifnum\@tempcnta >15\relax \@tempcnta 15\relax \fi
1213 \ifnum \@tempcnta >\z@ \advance\@tempcnta\m@ne\fi
1214 \advance\@tempcnta #2\relax
1215 \@circlefnt \char\@tempcnta}
1216 % \end{macrocode}
1217 % \end{macro}
1218 %
1219 %
1220 % \begin{macro}{\@xarg}
1221 % \begin{macro}{\@yarg}
1222 % \begin{macro}{\@yyarg}
1223 % Counters used for manipulating the `slope' arguments.
1224 % \begin{macrocode}
1225 \newcount\@xarg
1226 \newcount\@yarg
1227 \newcount\@yyarg
1228 % \end{macrocode}
1229 % \end{macro}
1230 % \end{macro}
1231 % \end{macro}
1232 %
1233 % \begin{macro}{\@multicnt}
1234 % Counter used in |\multiput|, and also |\multicolumn|.
1235 % \begin{macrocode}
1236 \newcount\@multicnt
1237 % \end{macrocode}
1238 % \end{macro}
1239 %
1240 % \begin{macro}{\@xdim}
1241 % \begin{macro}{\yxdim}
1242 % Length registers.
1243 % \begin{macrocode}
1244 \newdimen\@xdim
1245 \newdimen\@ydim
1246 % \end{macrocode}
1247 % \end{macro}
1248 % \end{macro}
1249 %
1250 % \begin{macro}{\@linechar}
1251 % Box for holding a line segment character, for sloping lines.
1252 % \begin{macrocode}
1253 \newbox\@linechar
1254 % \end{macrocode}
1255 % \end{macro}
1256 %
1257 % \begin{macro}{\@linelen}
1258 % Length of the line currently being built.
1259 % \begin{macrocode}
1260 \newdimen\@linelen
1261 % \end{macrocode}
1262 % \end{macro}
1263 %
1264 % \begin{macro}{\@clnwd}
1265 % \begin{macro}{\@clnht}
1266 % Height and width of current line segment.
1267 % \begin{macrocode}
1268 \newdimen\@clnwd
1269 \newdimen\@clnht
1270 % \end{macrocode}
1271 % \end{macro}
1272 % \end{macro}
1273 %
1274 % \begin{macro}{\@dashdim}
1275 % \begin{macro}{\@dashbox}
1276 % \begin{macro}{\@dashcnt}
1277 % |\dashbox| internal registers.
1278 % \begin{macrocode}
1279 \newdimen\@dashdim
1280 \newbox\@dashbox
1281 \newcount\@dashcnt
1282 % \end{macrocode}
1283 % \end{macro}
1284 % \end{macro}
1285 % \end{macro}
1286 %
1287 % Initialization: ``|\thinlines|''
1288 % \changes{v1.1f}{1995/10/27}
1289 % {Move initialisation to kernel from autoload file}
1290 % \begin{macrocode}
1291 \let\@linefnt\tenln
1292 \let\@circlefnt\tencirc
1293 \@wholewidth\fontdimen8\tenln
1294 \@halfwidth .5\@wholewidth
1295 % \end{macrocode}
1296 %
1297 %
1298 %
1299 % \subsection{Curves}
1300 % The new |\qbezier| command, based on the old |\bezier| defined in
1301 % |bezier.sty|.
1302 % \changes{v0.1c}{1994/04/28}{bezier curves added}
1303 %
1304 % \begin{oldcomments}
1305 %
1306 % \qbezier[N] == \bezier{N}
1307 %
1308 % \bezier{N}(AX,AY)(BX,BY)(CX,CY) ==
1309 % BEGIN
1310 % IF N = 0
1311 % THEN \@xdima := |BX - AX|
1312 % \@xb := |CX - BX|
1313 % \@xa := Max(\@xa, \@xb)
1314 % \@ya := |BY - AY|
1315 % \@yb := |CY - BY|
1316 % \@ya := Max(\@ya, \@yb)
1317 % @sc := Max(\@xa, \@ya)
1318 % %% The coefficient .5 below is the degree of overlap of
1319 % %% successive points, where 1 is no overlap and 0 is
1320 % %% complete overlap. A coefficient of C multiplies
1321 % %% the number of points plotted by 1/C.
1322 % %%
1323 % \@xa := .5 * \@halfwidth
1324 % @sc := @sc / \@halfwidth
1325 % @sc := Max(@sc, qbeziermax)
1326 % ELSE @sc := N
1327 % @scp := @sc+1
1328 % \@xb := 2 * (BX - AX) * \unitlength
1329 % \@xa := ((CX-AX)*\unitlength - \@xb)/@sc
1330 % \@yb := 2 * (BY - AY) * \unitlength
1331 % \@ya := ((CY-AY)*\unitlength - \@yb)/@sc
1332 % \@pictdot := square rule of width \@wholewidth
1333 % \count@ := 0
1334 % WHILE \count@ < @scp
1335 % DO \@xdim := ((\count@*\@xa + @xb) / @sc) * \count@
1336 % \@ydim := ((\count@*\@ya + @yb) / @sc) * \count@
1337 % plot pt with relative coords (\@xdim,\@ydim)
1338 % \count@ := \count@+1
1339 % OD
1340 %
1341 % \end{oldcomments}
1342 %
1343 % \begin{macro}{\qbeziermax}
1344 % The maximum number of points to plot.
1345 % \begin{macrocode}
1346 \gdef\qbeziermax{500}
1347 % \end{macrocode}
1348 % \end{macro}
1349 %
1350 %
1351 % In the code below, to save registers |\@a| \ldots\ are not used.
1352 % Instead other registers are reused.
1353 %
1354 % |\newcounter{@sc} -> \c@multicnt|\par
1355 % |\newcounter{@scp} -> \@tempcnta|\par
1356 % |\newdimen\@xa -> \@ovxx|\par
1357 %
1358 % |\newdimen\@xb -> \@ovdx|
1359 %
1360 % |\newdimen\@ya -> \@ovyy|\par
1361 % |\newdimen\@yb -> \@ovdy|
1362 %
1363 % |\newsavebox{\@pictdot} -> \@tempboxa|
1364 %
1365 % \begin{macro}{\qbezier}
1366 % Main user-level command to plot quadratic bezier curves.
1367 % |#2| should be |(|.
1368 % \begin{macrocode}
1369 \newcommand\qbezier[2][0]{\bezier{#1}#2}
1370 % \end{macrocode}
1371 % \end{macro}
1372 %
1373 % \begin{macro}{\bezier}
1374 % Form of |\bezier| compatible with 2.09 |bezier.sty|, but modified to
1375 % ignore spaces between its arguments.
1376 % |#2| should be white space, and |#4| should be |(|.
1377 % \begin{macrocode}
1378 \gdef\bezier#1)#2(#3)#4({\@bezier#1)(#3)(}
1379 % \end{macrocode}
1380 %
1381 % \begin{macro}{\@bezier}
1382 % \begin{macrocode}
1383 \gdef\@bezier#1(#2,#3)(#4,#5)(#6,#7){%
1384 \ifnum #1=\z@
1385 \@ovxx #4\unitlength
1386 \advance\@ovxx -#2\unitlength
1387 \ifdim \@ovxx<\z@ \@ovxx -\@ovxx \fi
1388 \@ovdx #6\unitlength
1389 \advance\@ovdx -#4\unitlength
1390 \ifdim \@ovdx<\z@ \@ovdx -\@ovdx \fi
1391 \ifdim \@ovxx<\@ovdx \@ovxx \@ovdx \fi
1392 \@ovyy #5\unitlength
1393 \advance\@ovyy -#3\unitlength
1394 \ifdim \@ovyy<\z@ \@ovyy -\@ovyy \fi
1395 \@ovdy #7\unitlength
1396 \advance\@ovdy -#5\unitlength
1397 \ifdim \@ovdy<\z@ \@ovdy -\@ovdy \fi
1398 \ifdim \@ovyy<\@ovdy \@ovyy \@ovdy \fi
1399 \@multicnt
1400 \ifdim \@ovxx>\@ovyy \@ovxx \else \@ovyy \fi
1401 \@ovxx .5\@halfwidth \divide\@multicnt\@ovxx
1402 \ifnum \qbeziermax<\@multicnt \@multicnt\qbeziermax\relax \fi
1403 \else \@multicnt#1\relax \fi
1404 \@tempcnta\@multicnt \advance\@tempcnta\@ne
1405 \@ovdx #4\unitlength \advance\@ovdx -#2\unitlength
1406 \multiply\@ovdx \tw@
1407 \@ovxx #6\unitlength \advance\@ovxx -#2\unitlength
1408 \advance\@ovxx -\@ovdx \divide\@ovxx\@multicnt
1409 \@ovdy #5\unitlength \advance\@ovdy -#3\unitlength
1410 \multiply\@ovdy \tw@
1411 \@ovyy #7\unitlength \advance\@ovyy -#3\unitlength
1412 \advance\@ovyy -\@ovdy \divide\@ovyy\@multicnt
1413 % \end{macrocode}
1414 %
1415 % \changes{v1.1k}{2003/08/27}{added missing displacement pr/3566}
1416 % \begin{macrocode}
1417 \setbox\@tempboxa\hbox{%
1418 \hskip -\@halfwidth
1419 \vrule \@height\@halfwidth
1420 \@depth \@halfwidth
1421 \@width \@wholewidth}%
1422 \put(#2,#3){%
1423 \count@\z@
1424 \@whilenum{\count@<\@tempcnta}\do
1425 {\@xdim\count@\@ovxx
1426 \advance\@xdim\@ovdx
1427 \divide\@xdim\@multicnt
1428 \multiply\@xdim\count@
1429 \@ydim\count@\@ovyy
1430 \advance\@ydim\@ovdy
1431 \divide\@ydim\@multicnt
1432 \multiply\@ydim\count@
1433 \raise \@ydim
1434 \hb@xt@\z@{\kern\@xdim
1435 \unhcopy\@tempboxa\hss}%
1436 \advance\count@\@ne}}}
1437 %</2ekernel>
1438 % \end{macrocode}
1439 % \end{macro}
1440 % \end{macro}
1441 %
1442 % \Finale
1443 %