1 /*-
2 * Copyright (c) 1980, 1986, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * %sccs.include.proprietary.c%
6 */
7
8 #ifndef lint
9 static char sccsid[] = "@(#)arc.c 8.1 (Berkeley) 06/04/93";
10 #endif /* not lint */
11
12 #include "grnplot.h"
13
arc(x,y,x0,y0,x1,y1)14 arc(x,y,x0,y0,x1,y1)
15 {
16 extern double atan2();
17
18 if (!ingrnfile) erase();
19 endvector();
20 printf("ARC\n");
21 outxy(x,y);
22 outxy(x0,y0);
23 outxy(x1,y1);
24 printf("*\n%d %d\n0\n",
25 linestyle,(int) (atan2(x1-x,y1-y)-atan2(x0-x,y0-y)));
26 curx =x;
27 cury =y;
28 }
29