Changeset 3542 in Sophya for trunk/AddOn/TAcq/tstminifits.cc

Timestamp:

Oct 23, 2008, 5:12:27 PM (17 years ago)

Author:

ansari

Message:

Ajouts fichiers du repertoire Remote (Classes Socket, ServerSocker RawInOutSocketStream ...) et fichier README , Reza 23/10/2008

File:

• trunk/AddOn/TAcq/tstminifits.cc (modified) (1 diff)

trunk/AddOn/TAcq/tstminifits.cc

@@ -40 +40 @@
   int rc = 0;
   try {
-        {
+    {
     cout << "1/ Creation tableau " << endl;
     size_t sx = 300;
     size_t sy = 200; 
     TArray<int_2> ta(sx, sy);
+    TArray<r_4> arr(sx, sy);
     ta = RegularSequence(0.,0.5);
     ta.Show();
-    cout << "2/ ecriture tableau ds tmf.ppf " << endl;
+    arr = RandomSequence(RandomSequence::Gaussian, 510.,30.); 
+    arr.Show();
+    cout << "2/ ecriture tableaux ta (int_2) arr (r_4) ds tmf.ppf " << endl;
     POutPersist po("tmf.ppf");
-    po << ta;
+    po << ta << arr;
     cout << "3/ ecriture tableau ds tmf.fits " << endl;
+    {
+    MiniFITSFile mff;
+    mff.setDTypeNaxis(MF_Float32, sx, sy);
+    mff.Open("tmf.fits", MF_Write);
+    mff.WriteI(ta.Data(), sx*sy);
+    }
+    cout << "3.b/ ecriture tableau arr (r_4) ds tmf2.fits " << endl;
+    {
     MiniFITSFile mff;
     mff.setDTypeNaxis(MF_Int16, sx, sy);
-    mff.Open("tmf.fits", MF_Write);
-    mff.WriteI(ta.Data(), sx*sy);
-    cout << "3.b/ FIN ecriture tableau ds tmf.fits " << endl;   
-        }
+    mff.Open("tmf2.fits", MF_Write);
+    mff.WriteF(arr.Data(), sx*sy);
+    }
+    cout << "3.c/ FIN ecriture tableau ds tmf.fits " << endl;   
+    }
 //  --------------  Ecriture de bytes par morceaux 
     {