function tri = Tri(x)
%--------------------------------------------------------------------------
% Written by Darius Plausinaitis
%--------------------------------------------------------------------------

%CVS record:
%$Id: Tri.m,v 1.1.2.2 2006/08/18 12:05:02 dpl Exp $
tri = (1 - abs(x)) .* ((1 - abs(x)) > 0);