test-xsh_cube_ext_save.c

Go to the documentation of this file.

/*                                                                            *
 *   This file is part of the ESO X-shooter Pipeline                          *
 *   Copyright (C) 2006 European Southern Observatory                         *
 *                                                                            *
 *   This library is free software; you can redistribute it and/or modify     *
 *   it under the terms of the GNU General Public License as published by     *
 *   the Free Software Foundation; either version 2 of the License, or        *
 *   (at your option) any later version.                                      *
 *                                                                            *
 *   This program is distributed in the hope that it will be useful,          *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of           *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            *
 *   GNU General Public License for more details.                             *
 *                                                                            *
 *   You should have received a copy of the GNU General Public License        *
 *   along with this program; if not, write to the Free Software              *
 *   Foundation, 51 Franklin St, Fifth Floor, Boston, MA  02111-1307  USA     *
 *                                                                            */
 
/*
 * $Author: amodigli $
 * $Date: 2011-12-02 14:13:14 $
 * $Revision: 1.2 $
 */
#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif
 
/*--------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------*/
/*---------------------------------------------------------------------------
                                Includes
 ---------------------------------------------------------------------------*/
 
 
#include <cpl.h>
#include <xsh_data_instrument.h>
#include <xsh_pfits.h>
#include <xsh_msg.h>
#include <xsh_utils.h>
#include <xsh_data_order.h>
#include <tests.h>
#include <math.h>
 
/*---------------------------------------------------------------------------
                            Defines
 ---------------------------------------------------------------------------*/
#define MODULE_ID "XSH_CUBE_EXT_SAVE"
/*---------------------------------------------------------------------------
                         Functions prototypes
 ---------------------------------------------------------------------------*/
 
/*--------------------------------------------------------------------------*/
/*--------------------------------------------------------------------------*/
 
 
int main(void)
{
   cpl_image* ima=NULL;
   cpl_imagelist* iml=NULL;
   int i=0;
   int j=0;
   int ret=0;
   int k=0;
   int sx=5;
   int sy=5;
   int nlist=3;
   int nima=3;
   float* pi=NULL;
   cpl_propertylist* plist=NULL;
 
   TESTS_INIT_WORKSPACE(MODULE_ID);
   TESTS_INIT(MODULE_ID);
   xsh_msg("generate several imagelist and save them in multi-ext file");
   for(k=0;k<nlist;k++){
     iml=cpl_imagelist_new();
     for(j=0;j<nima;j++){
       ima=cpl_image_new(sx,sy,CPL_TYPE_FLOAT);
       pi=cpl_image_get_data_float(ima);
       /* fill ima with values */
       for(i=0;i<sx*sy;i++){
     pi[i]=k*j*i+1;
       }
       cpl_imagelist_set(iml,ima,j);
     }
     if(k==0) {
       check(cpl_imagelist_save(iml,"cube.fits", CPL_BPP_IEEE_FLOAT,plist,
                CPL_IO_DEFAULT));
     } else {
       check(cpl_imagelist_save(iml,"cube.fits", CPL_BPP_IEEE_FLOAT,plist,
                CPL_IO_EXTEND));
     }
     xsh_free_imagelist(&iml);
   }
 
  cleanup:
 
   xsh_free_propertylist(&plist);
   xsh_free_imagelist(&iml);
 
   if (cpl_error_get_code() != CPL_ERROR_NONE) {
      xsh_error_dump(CPL_MSG_ERROR);
      ret = 1;
   }
   TESTS_CLEAN_WORKSPACE(MODULE_ID);
   TEST_END();
   return ret;
}