Changeset 14571 for trunk/ippScripts/scripts/warp_overlap.pl

Timestamp:

Aug 20, 2007, 3:26:08 PM (19 years ago)

Author:

Paul Price

Message:

Add flag to dvoImageOverlaps call.

File:

• trunk/ippScripts/scripts/warp_overlap.pl (modified) (3 diffs)

trunk/ippScripts/scripts/warp_overlap.pl

@@ -125 +125 @@
             my $astromFile = $ipprc->filename($astromSource, $camRoot); # Astrometry file
             
-            my @matchlist = get_overlaps($astromFile, $tess_dir); # List of overlaps
+            my @matchlist = get_overlaps($astromFile, $tess_dir, 0); # List of overlaps
             
             # Match each of the imfiles to this list
@@ -135 +135 @@
             foreach my $imfile (@$imfiles) {
                 my $astromFile = $imfile->{chip_uri}; # Astrometry file
-                my @matchlist = get_overlaps($astromFile, $tess_dir); # List of overlaps
+                my @matchlist = get_overlaps($astromFile, $tess_dir, 1); # List of overlaps
                 extract_overlaps(\@matchlist, $imfile, $astromFile, $tess_id, \@overlaps, \%unique_skycells);
             }
@@ -217 +217 @@
     my $filename = shift;       # Filename on which to run dvoImageOverlaps
     my $tess_dir = shift;       # Tessellation directory
+    my $flag = shift;           # Do we use the -accept-astrom flag?
 
     my $command = "$dvoImageOverlaps -D CATDIR $tess_dir " . $ipprc->file_resolve($filename);
+    $command .= ' -accept-astrom' if $flag;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => 1);