Changeset 19652 for trunk/ippScripts/scripts/detrend_norm_exp.pl
- Timestamp:
- Sep 22, 2008, 3:48:05 PM (18 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/detrend_norm_exp.pl (modified) (5 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/detrend_norm_exp.pl
r19261 r19652 59 59 # Recipes to use based on reduction class 60 60 $reduction = 'DETREND' unless defined $reduction; 61 62 my $recipe1 = $ipprc->reduction($reduction, 'JPEG_BIN1_IMAGE_' . uc($det_type)); # Recipe to use 63 &my_die("Unrecognised detrend type: $det_type", $det_id, $iter, $PS_EXIT_PROG_ERROR) unless defined $recipe1; 64 65 my $recipe2 = $ipprc->reduction($reduction, 'JPEG_BIN2_IMAGE_' . uc($det_type)); # Recipe to use 66 &my_die("Unrecognised detrend type: $det_type", $det_id, $iter, $PS_EXIT_PROG_ERROR) unless defined $recipe2; 61 my $recipe = $ipprc->reduction($reduction, uc($det_type) . '_JPEG_IMAGE'); 62 &my_die("Unrecognised detrend type: $det_type", $det_id, $iter, $PS_EXIT_PROG_ERROR) unless defined $recipe; 67 63 68 64 # values to extract from output metadata and the stats to calculate … … 94 90 $command = "$dettool -normalizedimfile"; # Command to run 95 91 $command .= " -det_id $det_id"; 96 $command .= " -iteration $iter"; 92 $command .= " -iteration $iter"; 97 93 $command .= " -dbname $dbname" if defined $dbname; 98 94 ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = … … 140 136 unless ($no_op) { 141 137 # Make the jpeg for binning 1 142 $command = "$ppImage -list $list1Name $outroot -recipe PPIMAGE $recipe1"; # Command to run 138 $command = "$ppImage -list $list1Name $outroot"; # Command to run 139 $command .= " -recipe PPIMAGE PPIMAGE_N"; 140 $command .= " -recipe JPEG $recipe"; 143 141 $command .= " -dbname $dbname" if defined $dbname; 144 142 ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = … … 147 145 148 146 # Make the jpeg for binning 2 149 $command = "$ppImage -list $list2Name $outroot -recipe PPIMAGE $recipe2"; # Command to run 147 $command = "$ppImage -list $list2Name $outroot"; # Command to run 148 $command .= " -recipe PPIMAGE PPIMAGE_N"; 149 $command .= " -recipe JPEG $recipe"; 150 150 $command .= " -dbname $dbname" if defined $dbname; 151 151 ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = … … 188 188 $command .= " -det_id $det_id"; 189 189 $command .= " -iteration $iter"; 190 $command .= " -path_base $outroot ";190 $command .= " -path_base $outroot "; 191 191 $command .= " -code $exit_code"; 192 192 $command .= " -dbname $dbname" if defined $dbname;
Note:
See TracChangeset
for help on using the changeset viewer.
