function triangle_contains_test ( )

%*****************************************************************************80
%
%% TRIANGLE_CONTAINS_TEST...
%
  t = [ 4, 0; 3, 4; 0, 1 ]';

  p = [ 1, 4;
        2, 1;
        2, 3;
        3, 2;
        3, 4;
        3, 5;
        4, 1;
        4, 5 ]';

  for j = 1 : 8
    contains = triangle_contains ( t, p(1:2,j) );
    fprintf ( 1, '  %10f  %10f  %2d\n', p(1:2,j), contains );
  end

  return
end
