V10/libplot/lib4014/disc.c

#include <stdio.h>
#include "tek.h"
disc(xc, yc, r)
double xc, yc, r;
{
	if(r > 0)
		r = -r;
	arc(xc+r, yc, xc+r, yc, xc, yc, r);
}