function cantor ( A, B, k )
%
%  DESCRIPTION :
%    Plots segment from A to B, except middle third.
%
if k == 0
  plot([A(1) B(1)],[A(2) B(2)],'b-');
  hold on;
else
  L = (2*A + B)/3;                % left point
  R = (A + 2*B)/3;                % right point
  cantor(A,L,k-1);
  cantor(R,B,k-1);
end;