function transform_polygon_fill ( A, p )

%% transform_polygon_fill.m

q = A * p;
[m,n] = size ( p );

clf
hold on
fill ( p(1,:), p(2,:), 'b' );
fill ( q(1,:), q(2,:), 'r' );
%plot ( [ -10, +10 ], [ 0, 0 ], 'k:', 'Linewidth', 2 );
%plot ( [  0,  0 ], [ -10, +10 ], 'k:', 'Linewidth', 2 );
grid on
title ( 'Transform polygon fill', 'Fontsize', 24 );
%axis ( [ -10, +10, -10, +10 ] );
axis equal
%axis square
hold off
print ( '-djpeg', 'transform_polygon_fill.jpg' );
