Changeset 36379

Timestamp:

Dec 10, 2013, 3:37:39 PM (13 years ago)

Author:

watersc1

Message:

rawcheck.pl script for cluster wide scanning. Update to skycell_jpeg.pl to not make masks and to do exposure time scaling.

Location:

tags/ipp-20130712/ippScripts

Files:

• Build.PL (modified) (1 diff)
• MANIFEST (modified) (1 diff)
• scripts/rawcheck.pl (copied) (copied from trunk/ippScripts/scripts/rawcheck.pl )
• scripts/skycell_jpeg.pl (modified) (2 diffs, 1 prop)

tags/ipp-20130712/ippScripts/Build.PL

@@ -115 +115 @@
         scripts/nightly_science.pl
         scripts/lossy_compress_imfile.pl
+        scripts/rawcheck.pl
         scripts/ipp_apply_burntool.pl
         scripts/ipp_apply_burntool_single.pl

tags/ipp-20130712/ippScripts/MANIFEST

@@ -39 +39 @@
 scripts/nightly_science.pl
 scripts/lossy_compress_imfile.pl
+scripts/rawcheck.pl
 scripts/ipp_apply_burntool.pl
 scripts/ipp_apply_burntool_single.pl

tags/ipp-20130712/ippScripts/scripts/skycell_jpeg.pl

@@ -271 +271 @@
 
     my %products = ('image' => "PPSTACK.UNCONV",
-                    'mask'  => "PPSTACK.UNCONV.MASK",
+#                   'mask'  => "PPSTACK.UNCONV.MASK",
                     'variance' => "PPSTACK.UNCONV.VARIANCE",
                     'exp'   => "PPSTACK.UNCONV.EXP",
@@ -327 +327 @@
                 $command .= " -Di BIN1 1 -Di BIN2 1 ";
             }
-#           elsif ($key eq 'image') {
-#               $command .= " -masks $tangents{$projection_cell}{mask}{NAME} ";
-#           }
-#           elsif ($key eq 'mask') { 
-#               next; # This should be made with the images.
-#           }
-            else {
-                # Append the image list to other objects, in case the WCS information is unpopulated
-                $command .= " -wcsref $tangents{$projection_cell}{image}{NAME} ";
-            }
+            elsif ($key eq 'image') {
+                $command .= " -exptimeOrder 1 ";
+            }
+            elsif ($key eq 'variance') { 
+                $command .= " -exptimeOrder 2 ";
+            }
+            # Append the image list to other objects, in case the WCS information is unpopulated
+            $command .= " -wcsref $tangents{$projection_cell}{image}{NAME} ";
+
             if ($tangents{$projection_cell}{$key}{N} > 0) {
                 print "$command\n";