% CIRCLE
%
% Function to draw a circle
%
% Usage: circle(c,r), where c is a 2-vector specifying the centre
%                     and r is the radius

function circle(c,r)

a = [0:pi/16:2*pi];
line(r*cos(a)+c(1), r*sin(a)+c(2));