Changeset 40389 for trunk/PS-IPP-PStamp

Timestamp:

Apr 12, 2018, 9:10:37 AM (8 years ago)

Author:

mhuber

Message:

mod to pstamp to provide multiple images for all overlapping pixels in the ROI for byexp and skycoords request using last open OPTION_MASK 8192 value (ie MOPS)

Location:

trunk/PS-IPP-PStamp/lib/PS/IPP/PStamp

Files:

• Job.pm (modified) (2 diffs)
• RequestFile.pm (modified) (2 diffs)

trunk/PS-IPP-PStamp/lib/PS/IPP/PStamp/Job.pm

@@ -1666 +1666 @@
     foreach my $row (@$rowList) {
         print $pointsList "$npoints $row->{CENTER_X} $row->{CENTER_Y}\n";
-        $npoints++;
+        #$npoints++;
+        ## MEH hack -- add width, height corners
+        if ( ($row->{OPTION_MASK} & $PSTAMP_MULTI_OVERLAP_IMAGE) && !($row->{COORD_MASK} & $PSTAMP_RANGE_IN_PIXELS) ){
+            ## +ra +dec corner
+            printf $pointsList "$npoints %f %f\n", $row->{CENTER_X}+$row->{WIDTH}/3600.0, $row->{CENTER_Y}+$row->{HEIGHT}/3600.0;
+            #$npoints++;
+            ## +ra -dec corner 
+            printf $pointsList "$npoints %f %f\n", $row->{CENTER_X}+$row->{WIDTH}/3600.0, $row->{CENTER_Y}-$row->{HEIGHT}/3600.0;
+            #$npoints++;
+            ## -ra +dec corner
+            printf $pointsList "$npoints %f %f\n", $row->{CENTER_X}-$row->{WIDTH}/3600.0, $row->{CENTER_Y}+$row->{HEIGHT}/3600.0;
+            #$npoints++;
+            ## -ra -dec corner 
+            printf $pointsList "$npoints %f %f\n", $row->{CENTER_X}-$row->{WIDTH}/3600.0, $row->{CENTER_Y}-$row->{HEIGHT}/3600.0;
+            #$npoints++;
+        }
+        ####
+        $npoints++;
         # this gets overwitten if an overlapping image is found
         $row->{error_code} = $PSTAMP_NO_OVERLAP;
@@ -1725 +1742 @@
                     $ref = $components{$component} = [];
                 }
-                push @$ref, $ptnum;
+                #push @$ref, $ptnum;
+                ## MEH hack -- only push ptnum if not already, so check if ptnum in list 
+                push(@$ref, $ptnum) unless grep{$_ == $ptnum} @$ref;
+                ##
                 my $row = $rowList->[$ptnum];
                 # this row found a match

trunk/PS-IPP-PStamp/lib/PS/IPP/PStamp/RequestFile.pm

@@ -35 +35 @@
                     $PSTAMP_SELECT_UNCONV
                     $PSTAMP_RESTORE_BACKGROUND
+                    $PSTAMP_MULTI_OVERLAP_IMAGE
                     $PSTAMP_USE_IMFILE_ID
                     $PSTAMP_NO_WAIT_FOR_UPDATE
@@ -81 +82 @@
 our $PSTAMP_SELECT_UNCONV       = 2048;
 our $PSTAMP_RESTORE_BACKGROUND  = 4096;
-# unused 8192
-
+# MEH -- previously unused 8192
+our $PSTAMP_MULTI_OVERLAP_IMAGE  = 8192; 
 our $PSTAMP_USE_IMFILE_ID      = 16384;
 our $PSTAMP_NO_WAIT_FOR_UPDATE = 32768;