Changeset 2890 in Sophya for trunk/SophyaProg/Tests/tswfits.cc

Timestamp:

Jan 9, 2006, 6:33:27 PM (20 years ago)

Author:

ansari

Message:

Modifs prog test FITS pour test classe SwFitsDataTable - Reza 9/01/2006

File:

• trunk/SophyaProg/Tests/tswfits.cc (modified) (2 diffs)

trunk/SophyaProg/Tests/tswfits.cc

@@ -7 +7 @@
 #include "histinit.h"
 #include "dvlist.h"
-// #include "datatable.h"
-// #include "swppfdtable.h"
 #include "fitsswapper.h"
 #include "fiosinit.h"
+#include "swfitsdtable.h"
 
 void test_fdtable() ; 
@@ -85 +84 @@
       segd.Print(cout, 4, "  ");
     }
-    
+
+    {
+      cout << "8/ Creation SwFitsDataTable sur myswtable.fits " << endl;
+      FitsInOutFile so("!myswtable.fits", FitsInOutFile::Fits_Create);
+      SwFitsDataTable dt(so, 16);
+      // define table columns
+      dt.AddFloatColumn("X0_f");
+      dt.AddFloatColumn("X1_f");
+      dt.AddDoubleColumn("X0X0pX1X1_d");
+      cout << "8.b/ start fill " << endl;
+      // Fill the table
+      r_8 x[5];
+      for(int i=0; i<63; i++) {
+        if (i < 5)  cout << " DBG - i= " << i << endl;
+        x[0] = (i%9)-4.;  x[1] = (i/9)-3.;  x[2] = x[0]*x[0]+x[1]*x[1];
+        dt.AddLine(x);
+      }
+      cout << "8.c/ End fill " << endl;
+      
+      // Printing table info
+      cout << dt ;
+    }
   cout << "============ FIN  test_fdtable ======== ======= " << endl;  
 }