static char sccsid
[] = "@(#)circle.c 4.1 (Berkeley) %G%";
double costheta
,sintheta
,x
,y
,xn
;
costheta
= pow(1-sintheta
*sintheta
,0.5);
xi
= x
= x
*costheta
+ y
*sintheta
;
yi
= y
= y
*costheta
- xn
*sintheta
;
} while( ! (yi
==0 && xi
>= r
-1));