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.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*'], {});

} # end of body method