Changeset 31710 for trunk/ippScripts/scripts

Timestamp:

Jun 24, 2011, 11:52:20 AM (15 years ago)

Author:

bills

Message:

add option to print out the image (skycell) coordinates of the ra,dec

File:

• trunk/ippScripts/scripts/whichimage (modified) (5 diffs)

trunk/ippScripts/scripts/whichimage

@@ -21 +21 @@
      $tess_id,
      $dvo_dir,
+     $smf,
+     $listchipcoords,
      $one,
-     $smf,
      $verbose,
      $save_temps,
@@ -31 +32 @@
            'dvo_dir=s' => \$dvo_dir,
            'smf=s'      => \$smf,
+           'listchipcoords'        => \$listchipcoords,
            'one'        => \$one,
            'verbose'    => \$verbose,
@@ -90 +92 @@
 close $ch;
 
-my $cmd = "dvoImagesAtCoords $coord_file";
+my $cmd = "dvoImagesAtCoords -chipcoords $coord_file";
+$cmd .= " -listchipcoords" if $listchipcoords;
 
 my $status = 0;
@@ -151 +154 @@
 
     my $command = "$dvoImagesAtCoords -full-names -coords $infile $images_arg";
+    $command .= " -listchipcoords" if $listchipcoords;
 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
@@ -158 +162 @@
         foreach my $line (@lines) {
             chomp $line;
-            my ($row, $ra, $dec, $component) = split " ", $line;
-            print "$ra $dec $component_label $component\n";
+            my ($row, $ra, $dec, $component, $x, $y) = split " ", $line;
+            print "$ra $dec $component_label $component";
+            if ($listchipcoords) {
+                print " $x $y";
+            }
+            print "\n";
         }
     }