/*---------------------------------------------------------
* Closepl ends the gremlin file
*
* Results: None.
*
* Side Effects:
*---------------------------------------------------------
*/
closepl()
{
if (!ingrnfile) return;
endvector();
printf("-1\n");
ingrnfile = 0;
}
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;
}
