Changeset 3520 for trunk/Ohana/src/mosastro/src/wfits.c

Timestamp:

Mar 27, 2005, 4:39:46 PM (21 years ago)

Author:

eugene

Message:

converted to autocode SMPData

File:

• trunk/Ohana/src/mosastro/src/wfits.c (modified) (2 diffs)

trunk/Ohana/src/mosastro/src/wfits.c

@@ -1 +1 @@
 # include "mosastro.h"
 
-void wfits (char *filename, Stars *stars, int Nstars, Header *header) {
+void wfits (char *filename, SMPData *stars, int Nstars, Header *header) {
 
   Matrix matrix;
@@ -18 +18 @@
   fits_create_matrix (header, &matrix);
     
-  /* create bintable header */
-  fits_create_table_header (&theader, "BINTABLE", "SMPFILE");
-
-  /* define bintable layout */
-  fits_define_bintable_column (&theader, "E",    "X_PIX",      "x coord",              "pixels",                         1.0, 0.0); 
-  fits_define_bintable_column (&theader, "E",    "Y_PIX",      "y coord",              "pixels",                         1.0, 0.0); 
-  fits_define_bintable_column (&theader, "E",    "MAG_RAW",    "inst mags",            "mags",                           1.0, 0.0); 
-  fits_define_bintable_column (&theader, "E",    "MAG_ERR",    "inst mag error",       "mags",                           1.0, 0.0); 
-  fits_define_bintable_column (&theader, "E",    "MAG_GAL",    "galaxy mag",           "mags",                           1.0, 0.0); 
-  fits_define_bintable_column (&theader, "E",    "MAG_AP",     "aperture mag",         "mags",                           1.0, 0.0); 
-  fits_define_bintable_column (&theader, "E",    "LOG_SKY",    "log-10 of sky",        "mags",                           1.0, 0.0); 
-  fits_define_bintable_column (&theader, "E",    "FWHM_X",     "semi-major",           "mags",                           1.0, 0.0); 
-  fits_define_bintable_column (&theader, "E",    "FWHM_Y",     "semi-minor",           "mags",                           1.0, 0.0); 
-  fits_define_bintable_column (&theader, "E",    "THETA",      "ellipse angle",        "mags",                           1.0, 0.0); 
-  fits_define_bintable_column (&theader, "B",    "DOPHOT",     "dophot type",          "",                              1.0, 0.0);
-  fits_define_bintable_column (&theader, "3A",   "DUMMY",      "padding",              "",                              1.0, 0.0);
-
-  /* create table, add data values */
-  fits_create_table (&theader, &table);
-
-  ConvertStars (stars, sizeof (Stars), Nstars);
-  fits_add_rows (&table, (char *) stars, Nstars, sizeof (Stars));
+  table.header = &theader;
+  fits_table_set_SMPData (&table, stars, Nstars);
 
   fits_write_header  (filename, header);