date and time created 86/08/29 15:06:16 by sklower

SCCS-vsn: lib/libplot/grn/arc.c 6.1

diff --git a/usr/src/lib/libplot/grn/arc.c b/usr/src/lib/libplot/grn/arc.c
new file mode 100644 (file)
index 0000000..03d6f1d
--- /dev/null
+++ b/usr/src/lib/libplot/grn/arc.c
@@ -0,0 +1,27 @@
+/*
+ * Copyright (c) 1980, 1986 Regents of the University of California.
+ * All rights reserved.  The Berkeley software License Agreement
+ * specifies the terms and conditions for redistribution.
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)arc.c      6.1 (Berkeley) %G%";
+#endif not lint
+
+#include "grnplot.h"
+
+
+arc(x,y,x0,y0,x1,y1)
+{
+       extern double atan2();
+
+       if (!ingrnfile) erase();
+       endvector();
+       printf("ARC\n");
+       outxy(x,y);
+       outxy(x0,y0);
+       outxy(x1,y1);
+       printf("*\n%d %d\n0\n",linestyle,(int) (atan2(x1-x,y1-y)-atan2(x0-x,y0-y)));
+       curx =x;
+       cury =y;
+}