Changeset 13861

Timestamp:

Jun 18, 2007, 11:09:05 AM (19 years ago)

Author:

Paul Price

Message:

Larger dither, so that astrometry can be verified.

File:

• trunk/ippScripts/scripts/ipp_simulation_data.pl (modified) (8 diffs)

trunk/ippScripts/scripts/ipp_simulation_data.pl

@@ -31 +31 @@
     $path,                      # Path to data
     $workdir,                   # Working directory for data
+    $no_cal,                    # Don't produce calibration files
     $no_update                  # Don't update the database
     );
@@ -41 +42 @@
            'path=s'        => \$path,
            'workdir=s'     => \$workdir,
+           'no-cal'        => \$no_cal,
            'no-update'     => \$no_update,
            ) or pod2usage( 2 );
@@ -97 +99 @@
                             zp => 25.15,
                             sky => 20.86,
-                            dither => 20,
+                            dither => 40,
                         },
                         {
@@ -108 +110 @@
                             zp => 25.00,
                             sky => 20.15,
-                            dither => 20,
+                            dither => 40,
                         },
                         ];
@@ -124 +126 @@
     ( $basename, $counter ) = filename( $name, $counter );
     my $filename = caturi( $path, $basename );
-    run( command => "$ppSim -camera $camera -type BIAS $filename",
-         verbose => 1 ) or die "Unable to run ppSim";
-    run( command => "$inject --camera $camera --telescope $telescope --path $path --workdir $workdir " .
-         "--dbname $dbname $basename",
-         verbose => 1 ) or die "Unable to inject file.";
+    unless ($no_cal) {
+        run( command => "$ppSim -camera $camera -type BIAS $filename",
+             verbose => 1 ) or die "Unable to run ppSim";
+        unless ($no_update) {
+            run( command => "$inject --camera $camera --telescope $telescope --path $path " .
+                 "--workdir $workdir --dbname $dbname $basename",
+                 verbose => 1 ) or die "Unable to inject file.";
+        }
+    }
 }
 
@@ -136 +142 @@
     ( $basename, $counter ) = filename( $name, $counter );
     my $filename = caturi( $path, $basename );
-    run ( command => "$ppSim -camera $camera -type DARK -exptime $exptime $filename",
-          verbose => 1 ) or die "Unable to run ppSim";
-    run( command => "$inject --camera $camera --telescope $telescope --path $path --workdir $workdir " .
-         "--dbname $dbname $basename",
-         verbose => 1 ) or die "Unable to inject file.";
+    unless ($no_cal) {
+        run ( command => "$ppSim -camera $camera -type DARK -exptime $exptime $filename",
+              verbose => 1 ) or die "Unable to run ppSim";
+        unless ($no_update) {
+            run( command => "$inject --camera $camera --telescope $telescope --path $path " .
+                 "--workdir $workdir --dbname $dbname $basename",
+                 verbose => 1 ) or die "Unable to inject file.";
+        }
+    }
 }
 
@@ -150 +160 @@
         ( $basename, $counter ) = filename( $name, $counter );
         my $filename = caturi( $path, $basename );
-        run( command => "$ppSim -camera $camera -type FLAT -filter $filter -exptime $exptime $filename",
-             verbose => 1 ) or die "Unable to run ppSim";
-        run( command => "$inject --camera $camera --telescope $telescope --path $path --workdir $workdir " .
-             "--dbname $dbname $basename",
-             verbose => 1 ) or die "Unable to inject file.";
+        unless ($no_cal) {
+            run( command => "$ppSim -camera $camera -type FLAT -filter $filter -exptime $exptime $filename",
+                 verbose => 1 ) or die "Unable to run ppSim";
+            unless ($no_update) {
+                run( command => "$inject --camera $camera --telescope $telescope --path $path " .
+                     "--workdir $workdir --dbname $dbname $basename",
+                     verbose => 1 ) or die "Unable to inject file.";
+            }
+        }
     }
 }
@@ -181 +195 @@
              "-skyrate $sky -ra $ra -dec $dec -pa $pa -scale $scale -zp $zp -seeing $seeing $filename",
              verbose => 1 ) or die "Unable to run ppSim";
-        run( command => "$inject --camera $camera --telescope $telescope --path $path --workdir $workdir " .
-             "--dbname $dbname $basename",
-             verbose => 1 ) or die "Unable to inject file.";
+        unless ($no_update) {
+            run( command => "$inject --camera $camera --telescope $telescope --path $path " .
+                 "--workdir $workdir --dbname $dbname $basename",
+                 verbose => 1 ) or die "Unable to inject file.";
+        }
     }
 }