1*48511Sbostic /*- 2*48511Sbostic * Copyright (c) 1980, 1986 The Regents of the University of California. 3*48511Sbostic * All rights reserved. 4*48511Sbostic * 5*48511Sbostic * %sccs.include.proprietary.c% 629805Ssklower */ 729805Ssklower 829805Ssklower #ifndef lint 9*48511Sbostic static char sccsid[] = "@(#)arc.c 6.2 (Berkeley) 04/22/91"; 10*48511Sbostic #endif /* not lint */ 1129805Ssklower 1229805Ssklower #include "grnplot.h" 1329805Ssklower 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); 24*48511Sbostic printf("*\n%d %d\n0\n", 25*48511Sbostic linestyle,(int) (atan2(x1-x,y1-y)-atan2(x0-x,y0-y))); 2629805Ssklower curx =x; 2729805Ssklower cury =y; 2829805Ssklower } 29