148511Sbostic /*-
2*61389Sbostic * Copyright (c) 1980, 1986, 1993
3*61389Sbostic * The Regents of the University of California. All rights reserved.
448511Sbostic *
548511Sbostic * %sccs.include.proprietary.c%
629805Ssklower */
729805Ssklower
829805Ssklower #ifndef lint
9*61389Sbostic static char sccsid[] = "@(#)arc.c 8.1 (Berkeley) 06/04/93";
1048511Sbostic #endif /* not lint */
1129805Ssklower
1229805Ssklower #include "grnplot.h"
1329805Ssklower
arc(x,y,x0,y0,x1,y1)1429805Ssklower arc(x,y,x0,y0,x1,y1)
1529805Ssklower {
1629805Ssklower extern double atan2();
1729805Ssklower
1829805Ssklower if (!ingrnfile) erase();
1929805Ssklower endvector();
2029805Ssklower printf("ARC\n");
2129805Ssklower outxy(x,y);
2229805Ssklower outxy(x0,y0);
2329805Ssklower outxy(x1,y1);
2448511Sbostic printf("*\n%d %d\n0\n",
2548511Sbostic linestyle,(int) (atan2(x1-x,y1-y)-atan2(x0-x,y0-y)));
2629805Ssklower curx =x;
2729805Ssklower cury =y;
2829805Ssklower }
29