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

Timestamp:

May 2, 2007, 3:22:15 PM (19 years ago)

Author:

Paul Price

Message:

Allowing use of multiple tessellations.

File:

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

trunk/ippScripts/scripts/warp_overlap.pl

@@ -108 +108 @@
     # Calculate the overlaps between imfiles and skycells
 
-    # The tess_id is the catdir used to define the tessalation
-    my $command = "ppConfigDump -camera $camera -dump-recipe PSWARP -";
-    my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 1);
-    unless ($success) {
-        $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-        &my_die("Unable to perform ppConfigDump: $error_code", $error_code);
-    }
-    my $parser = PS::IPP::Metadata::Config->new;        # Parser for metadata config files
-    my $recipe = $parser->parse( join '', @$stdout_buf);
-    my @tesselations = split(/\s+/, metadataLookupStr($recipe, 'DVO.TESSELLATION')); # List of tessellations
-    foreach my $tess_id ( @tesselations ) {
-        print STDERR "tessellation: $tess_id\n";
+    my $tessellations = $ipprc->tessellations(); # Hash of defined tessellations
+    foreach my $tess_id ( keys %$tessellations ) {
+        my $tess_dir = $$tessellations{$tess_id};
+        print STDERR "tessellation: $tess_id, $tess_dir\n";
 
         my $imfile = $imfiles->[0];
@@ -131 +122 @@
         
         # run the dvoImageOverlaps program to get the overlaps with this image 
-        my $command = "dvoImageOverlaps -D CATDIR $tess_id $psastroFile";
+        my $command = "dvoImageOverlaps -D CATDIR $tess_dir $psastroFile";
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run(command => $command, verbose => 1);
@@ -140 +131 @@
         my @matchlist = split ('\n', (join "", @$stdout_buf));
         
-        # The command "dvoImageOverlaps -D CATDIR tessalation (megacam)" returns:
+        # The command "dvoImageOverlaps -D CATDIR tessellation (megacam)" returns:
         # 729534pa.cmf[ccd00.hdr]  :  skycell.051.fits
         # PSASTRO.OUTPUT[CMF.HEAD] : SKYCELL
@@ -187 +178 @@
             system "mkdir -p $skyDir" unless -d $skyDir;
             my $skyFile = File::Spec->catfile( $skyDir , $skycell_id );
-            my $command = "dvoImageExtract -D CATDIR $tess_id $skycell_id -o $skyFile";
+            my $command = "dvoImageExtract -D CATDIR $tess_dir $skycell_id -o $skyFile";
             my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
                 run(command => $command, verbose => 1);