function []=pline(alpha,theta,arg,win)
% []=pline(alpha,theta,arg,win)
%
% PLINE plots the line alpha'*x=theta.
%
% Statistical Pattern Recognition Toolbox, Vojtech Franc, Vaclav Hlavac
% (c) Czech Technical University Prague, http://cmp.felk.cvut.cz
% Written Vojtech Franc (diploma thesis) 02.01.2000
% Modifications

if nargin < 4,
   win=axis;
end

[x1,y1,x2,y2,in]=cliplin1(alpha,theta,win);

if nargin < 3,
   plot([x1,x2],[y1,y2]);
else
   plot([x1,x2],[y1,y2],arg);
end