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%
629806Ssklower */
729806Ssklower
829806Ssklower #ifndef lint
9*61389Sbostic static char sccsid[] = "@(#)circle.c 8.1 (Berkeley) 06/04/93";
1048511Sbostic #endif /* not lint */
1129806Ssklower
1229806Ssklower #include "grnplot.h"
1329806Ssklower
1429806Ssklower /*---------------------------------------------------------
1529806Ssklower * Circle draws a circle.
1629806Ssklower *
1729806Ssklower * Results: None.
1829806Ssklower *
1929806Ssklower * Side Effects:
2029806Ssklower * A circle of radius r is drawn at (x,y).
2129806Ssklower * The current position is set to (x,y);
2229806Ssklower *---------------------------------------------------------
2329806Ssklower */
circle(x,y,r)2429806Ssklower circle(x, y, r)
2529806Ssklower int x, y, r;
2629806Ssklower {
2729806Ssklower if (!ingrnfile) erase();
2829806Ssklower endvector();
2929806Ssklower printf("ARC\n");
3029806Ssklower outxy(x,y);
3129806Ssklower outxy(x+r,y);
3229806Ssklower outxy(x,y+r);
3329806Ssklower outxy(x,y-r);
3429806Ssklower outxy(x+r,y);
3529806Ssklower outxy(x-r,y);
3629806Ssklower printf("*\n%d 0\n0\n",linestyle);
3729806Ssklower curx=x;
3829806Ssklower cury=y;
3929806Ssklower }
40