Changeset 40389 for trunk/PS-IPP-PStamp/lib/PS/IPP/PStamp/Job.pm

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)

File:

• trunk/PS-IPP-PStamp/lib/PS/IPP/PStamp/Job.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