1*48518Sbostic /*- 2*48518Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*48518Sbostic * All rights reserved. 4*48518Sbostic * 5*48518Sbostic * %sccs.include.proprietary.c% 619978Sdist */ 719978Sdist 815465Sralph #ifndef lint 9*48518Sbostic static char sccsid[] = "@(#)circle.c 5.2 (Berkeley) 04/22/91"; 10*48518Sbostic #endif /* not lint */ 1115465Sralph 1215465Sralph #include "hp7221.h" 1315465Sralph 1415465Sralph circle (xc,yc,r) 1515465Sralph int xc,yc,r; 1615465Sralph { 1715465Sralph if( r < 1 ) { 1815465Sralph point( xc, yc ); 1915465Sralph return; 2015465Sralph } 2115465Sralph move( xc, yc ); 2215465Sralph putchar( 't' ); 2315465Sralph putMBN( scaleX(r) ); 2415465Sralph } 25