function Extent = extent(Constr)
%EXTENT  Returns bounding rectangle [Xmin Xmax Ymin Ymax]

%   Copyright 1986-2002 The MathWorks, Inc. 
%   $Revision: 1.1.6.2 $  $Date: 2004/12/10 19:33:02 $

if Constr.Ts
    rho = Constr.geometry;
    Extent = [-rho rho -rho rho];
else
    alpha = Constr.geometry;
    Extent = [1.05*alpha 0.95*alpha 0 0];
end