function transform_circle_mark ( A )

%% transform_circle_mark.m
n = 17;
t = linspace ( 0, 2.0*pi, n );
p = zeros ( 2, n );
p(1,1:n) = cos ( t );
p(2,1:n) = sin ( t );
q = A * p;

clf
hold on

plot ( p(1,:), p(2,:), 'b.', 'Markersize', 25);
plot ( q(1,:), q(2,:), 'r.', 'Markersize', 25 );

grid on
title ( 'Transform circle', 'Fontsize', 24 );
axis equal
hold off
print ( '-djpeg', 'transform_circle_mark.jpg' );
