package PGF::GapResolution::Coords;

=head1 NAME

PGF::GapResolution::Coords

=head1 SYNOPSIS

use PGF::GapResolution::Coords qw(ReverseCompCoords);

=head1 DESCRIPTION

This module contains a method to return input coordinates as if they 
were on a contig in the negative orientation. This is used be several 
componants of the Gap Resolution subsystem.

=head1 AUTHOR(s)

Kurt M. LaButti

=head1 COPYRIGHT

DOE Joint Genome Institute Microbial Genomics

Copyright (C) 2008 The Regents of the University of California
All rights reserved.

NOTICE: The Government is granted for itself and others acting on its
behalf a paid-up, nonexclusive irrevocable worldwide license in this
data to reproduce, prepare derivative works, and perform publicly and
display publicly. Beginning five (5) years after permission to assert
copyright is granted, subject to two possible five year renewals, the
Government is granted for itself and others acting on its behalf a
paid-up, non-exclusive, irrevocable worldwide license in this data to
reproduce, prepare derivative works, distribute copies to the public,
perform publicly and display publicly, and to permit others to do so.
NEITHER THE UNITED STATES NOR THE UNITED STATES DEPARTMENT OF ENERGY,
NOR ANY OF THEIR EMPLOYEES, MAKES ANY WARRANTY, EXPRESS OR IMPLIED,
OR ASSUMES ANY LEGAL LIABILITY OR RESPONSIBILITY FOR THE ACCURACY,
COMPLETENESS, OR USEFULNESS OF ANY INFORMATION, APPARATUS, PRODUCT,
OR PROCESS DISCLOSED, OR REPRESENTS THAT ITS USE WOULD NOT INFRINGE
PRIVATELY OWNED RIGHTS.

=head1 HISTORY

=over

=item *

Kurt M. LaButti 08/31/2009 Creation

=back

=cut


#============================================================================#
use strict;
use warnings;
use Carp;
use Carp qw(cluck);
use FindBin qw($RealBin);
require Exporter;
#use lib "$FindBin::RealBin/../lib";

our @ISA = qw(Exporter);
our @EXPORT_OK = qw( 
    reverseCompCoords
);
our %EXPORT_TAGS = (
    all=>[ qw( reverseCompCoords ) ]
);



#============================================================================#
sub reverseCompCoords {
    my $size  = shift;
    my $coord = shift;
    
    return (($size-$coord)+1);
    
}


1;