% A classical locus problem
% Copyright (c) Christian Obrecht 2002

box(-3,-3,3,3)

O = point(0,0)
c = circle(O,2)
A = point(c,180:)
B = point(c,60:)
C = point(c,0:)
I = barycenter(A,B)

draw(c)
draw(segment(A,B))
draw(segment(A,C),dotted)
draw(segment(I,O),dotted)
draw(segment(B,C),dotted)

draw(A) ; draw(B) ; draw(I)

trace(x,0,360){barycenter(A,point(c,x:))}