#######################################################################
# This software has been created by Genome Research Limited (GRL).    # 
# GRL hereby grants permission to use, copy, modify and distribute    # 
# this software and its documentation for non-commercial purposes     # 
# without fee at the user's own risk on the basis set out below.      #
# GRL neither undertakes nor accepts any duty whether contractual or  # 
# otherwise in connection with the software, its use or the use of    # 
# any derivative, and makes no representations or warranties, express #
# or implied, concerning the software, its suitability, fitness for   #
# a particular purpose or non-infringement.                           #
# In no event shall the authors of the software or GRL be responsible # 
# or liable for any loss or damage whatsoever arising in any way      # 
# directly or indirectly out of the use of this software or its       # 
# derivatives, even if advised of the possibility of such damage.     #
# Our software can be freely distributed under the conditions set out # 
# above, and must contain this copyright notice.                      #
#######################################################################

# $Id: gull_graphic_obj.pm,v 1.2 1999/01/27 10:11:39 dn1 Exp $
# $Log: gull_graphic_obj.pm,v $
# Revision 1.2  1999/01/27 10:11:39  dn1
# *** empty log message ***
#

# DN1
########################
# Gull graphics library
########################

package rectangle;

# represent a clone via a horizontal rectangle



sub new {
    my ($pkg, $canvas, $coords) = @_;

    # get coords
    my $x1 = $$coords{'x1'};
    my $y1 = $$coords{'y1'};
    my $x2 = $$coords{'x2'};
    my $y2 = $$coords{'y2'};
    
    my $clone_rect = $canvas->createRectangle($x1, $y1, $x2, $y2);
    
}

1;
