Changeset 5512 for trunk/psLib/test/sys

Timestamp:

Nov 14, 2005, 12:18:48 PM (21 years ago)

Author:

desonia

Message:

* empty log message *

Location:

trunk/psLib/test/sys

Files:

• table.fits (modified) (1 diff)
• tst_psMemory.c (modified) (3 diffs)

trunk/psLib/test/sys/table.fits

@@ -1 @@
-SIMPLE  =                    T / file does conform to FITS standard             BITPIX  =                  -32 / number of bits per data pixel                  NAXIS   =                    2 / number of data axes                            NAXIS1  =                   16 / length of data axis 1                          NAXIS2  =                   16 / length of data axis 2                          EXTEND  =                    T / FITS dataset may contain extensions            COMMENT   FITS (Flexible Image Transport System) format is defined in 'AstronomyCOMMENT   and Astrophysics', volume 376, page 359; bibcode: 2001A&A...376..359H END                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             XTENSION= 'BINTABLE'           / binary table extension                         BITPIX  =                    8 / 8-bit bytes                                    NAXIS   =                    2 / 2-dimensional binary table                     NAXIS1  =                   17 / width of table in bytes                        NAXIS2  =                   11 / number of rows in table                        PCOUNT  =                    0 / size of special data area                      GCOUNT  =                    1 / one data group (required keyword)              TFIELDS =                    4 / number of fields in each row                   TTYPE1  = 'MYINT   '           / label for field   1                            TFORM1  = '1J      '           / data format of field: 4-byte INTEGER           TTYPE2  = 'MYFLT   '           / label for field   2                            TFORM2  = '1E      '           / data format of field: 4-byte REAL              TTYPE3  = 'MYDBL   '           / label for field   3                            TFORM3  = '1D      '           / data format of field: 8-byte DOUBLE            TTYPE4  = 'MYBOOL  '           / label for field   4                            TFORM4  = '1L      '           / data format of field: 1-byte LOGICAL           END                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             €€TÿÿÿÿœÌÌÍ¿„záG®{FÿÿÿþŸLÌÍ¿”záG®{TÿÿÿýŸ™™š¿žžQë
-
-žFÿÿÿüŸÌÌÍ¿€záG®{Tÿÿÿû¿¿©™™™™™šFÿÿÿú¿™š¿®žQë
-
-žTÿÿÿù¿333¿±ë
-
-žQìFÿÿÿø¿LÌÍ¿ŽzáG®{Tÿÿÿ÷¿fff¿·
-=p£×
-Fÿÿÿö¿€¿¹™™™™™š
+END                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             

trunk/psLib/test/sys/tst_psMemory.c

@@ -6 +6 @@
 *  @author Robert DeSonia, MHPCC
 *
-*  @version $Revision: 1.5 $ $Name: not supported by cvs2svn $
-*  @date $Date: 2005-09-22 22:51:46 $
+*  @version $Revision: 1.6 $ $Name: not supported by cvs2svn $
+*  @date $Date: 2005-11-14 22:18:48 $
 *
 *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
@@ -581 +581 @@
 
     psFits *fits;
-    char *filename = "table.fits";
-    fits = psFitsAlloc(filename);
+    fits = psFitsOpen("test.fits","w");
+    psImage* img = psImageAlloc(16,16,PS_TYPE_F32);
+    psFitsWriteImage(fits,NULL,img,1);
+    psFree(img);
     if ( !psMemCheckType(PS_DATA_FITS, fits) ) {
         psError(PS_ERR_BAD_PARAMETER_VALUE, true, "psMemCheckFits failed in memCheckType. \n");
@@ -588 +590 @@
         return 1;
     }
-    psFree(fits);
+    psFitsClose(fits);
 
     psHash *hash;