Subs::XrtCoords (version 0.0)

package Subs::XrtCoords;
##############################################################################
#
# DESCRIPTION: This subroutine runs the XRT tools delivered in build 1
#
# HISTORY: 
# HISTORY: $Log: XrtCoords.pm,v $
# HISTORY: Revision 1.8  2005/11/23 22:35:07  apsop
# HISTORY: Explicity set interpolation param in coordinator, LINEAR by default, CONSTANT for XRT.
# HISTORY:
# HISTORY: Revision 1.7  2005/04/29 15:49:17  apsop
# HISTORY: Set skyxnull, skyynull to -1 for xrt transforms.
# HISTORY:
# HISTORY: Revision 1.6  2004/05/06 20:02:34  dah
# HISTORY: Add version number back into the header comments.
# HISTORY:
# HISTORY: Revision 1.5  2004/04/16 20:21:18  dah
# HISTORY: Begin using embedded history records
# HISTORY:
#
# VERSION: 0.0
#
#
##############################################################################


use Subs::Sub;
use Subs::Coordinates;

@ISA = ("Subs::Coordinates");
use strict;

sub new {
    my $proto=shift;
    my $self=$proto->SUPER::new();

    $self->{DESCRIPTION}="Doing XRT coordinate transforms";

    return $self;
}

##################
# METHODS:
##################

sub body {
    my $self=shift;

    $self->event_transforms('xrt', ['pc*'], {skyxnull => -1, 
					     skyynull => -1,
					     interpolation => 'CONSTANT'});

} # end of body method