Changeset 1240 in Sophya for trunk/SophyaProg/Tests/obj_fits.cc

Timestamp:

Oct 18, 2000, 10:59:12 PM (25 years ago)

Author:

ansari

Message:

Programme test FITS , Reza 18/10/2000

File:

• trunk/SophyaProg/Tests/obj_fits.cc (modified) (3 diffs)

trunk/SophyaProg/Tests/obj_fits.cc

@@ -16 +16 @@
 {
   if (narg < 3) {
-    cout << "obj_fits/Erreur arg - Usage obj_fits r/w fitsfilename \n" << endl;
-    cout << "  w : Create a FITS file with a matrix and an NTuple \n" << endl;
-    cout << "  r : Read a matrix and an NTuple from a Fits File \n" << endl;
+    cout << "obj_fits/Erreur arg - Usage obj_fits r/r2/w/w2 fitsfilename " << endl;
+    cout << "  w : Create a FITS file with a matrix and an NTuple " << endl;
+    cout << "  r : Read a matrix and an NTuple from a Fits File " << endl;
+    cout << "  2 : Image on secondary header " << endl;  
     exit(1);
   }
@@ -24 +25 @@
     SophyaInit();
     string flnm = arg[2];
+    bool imgonph = true;
+    if (*(arg[1]+1) == '2')  imgonph = false;
     if (*arg[1] == 'r') {
       cout << " obj_fits/Info: Opening input FitsFile " << endl;
       FitsInFile fiis(flnm);
+      fiis.firstImageOnPrimaryHeader(imgonph);
+
       cout << " Reading Matrix m from FITS " << endl;
-      Matrix m(1,1);
+      Matrix m;
       fiis >> m;
       cout << m << endl;
@@ -40 +45 @@
       cout << " obj_fits/Info: Opening output FitsFile " << endl;
       FitsOutFile fios(flnm);
-      fios.firstImageOnPrimaryHeader();
+      fios.firstImageOnPrimaryHeader(imgonph);
+
       cout << " Creating Matrix m " << endl;
       Matrix m(50,70);
       m = RegularSequence(35., 0.2);
+      m.Info()["SVERSION"] = SophyaVersion();
+      m.Info().SetComment("SVERSIO", "Sophya Version");
+      m.Info()["OBJ_FITS"] = "Test Matrix" ;
       cout << m << endl;