function side = line_side ( p1, p2, p )

%*****************************************************************************80
%
%% LINE_SIDE...
%
  v1 = ( p2 - p1 );
  v2 = ( p  - p1 );
  nv = [ - v1(2); v1(1) ];
  t = nv' * v2;

  side = ( 0 <= t );

  return
end
