/*
  * VisiQuest
  */

/*
 * Copyright (c) AccuSoft Corporation, 2005.
 * All rights reserved.  See $BOOTSTRAP/repos/license/License or run klicense.
 */

/* >>>>>>>>>>>>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<<<<<<<<<
   >>>> 
   >>>> 	Driver code for mysinusoid
   >>>> 
   >>>>  Private: 
   >>>> 	run_mysinusoid()
   >>>> 	mysinusoid_extra_usage_additions();
   >>>>         mysinusoid_extra_free_args();
   >>>>   Static: 
   >>>>   Public: 
   >>>> 
   >>>>>>>>>>>>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<<<<<<<<< */


#include "mysinusoid.h"

/*-----------------------------------------------------------
|
|  Routine Name: run_mysinusoid() - No short description specified
|
|       Purpose: program driver code for mysinusoid
|
|       Returns: TRUE (1) on success, FALSE (0) on failure
|    Written By: gnemeth
|          Date: Apr 30, 2008
|
------------------------------------------------------------*/
int run_mysinusoid(void)
{
   /*-- Put Your Code Here --*/
   
    /*-- Put Your Code Here --*/
	  /* -main_variable_list */
   char *lib = "mysinusoid_obj";
   char *rtn = "main";
   /* kobject in_object = NULL; */
   kobject out_object = NULL;
   /* unsigned char *plane; */
   double *res_plane;
   int w, h, d, t, e;
	 
   int cw, ch, cd, ct, pos;
   double angle;

	 
	 
/* -main_variable_list_end */

/* -main_before_lib_call */
/*
   if ((in_object = kpds_open_input_object(clui_info->i_file))
          == KOBJECT_INVALID) {
     kerror(lib, rtn, "Can not open input object %s.\n", clui_info->i_file);
     kexit(KEXIT_FAILURE);
   }
*/
   if ((out_object = kpds_open_output_object(clui_info->o_file))
        == KOBJECT_INVALID) {
     kerror(lib, rtn, "Can not open output object %s.\n", clui_info->o_file);
     kexit(KEXIT_FAILURE);
   }
	 

   kpds_create_value( out_object );


   kpds_set_attribute(out_object, KPDS_VALUE_DATA_TYPE, KDOUBLE);

/*  kpds_get_attribute(in_object, KPDS_VALUE_SIZE, &w, &h, &d, &t, &e);           */
		



		/* ####### ALLITSD BE A MERET ATTRIBUTUMOT!  ######   */
		
   w = 256;
   h = 1;
   d = 1;
   t = 1;
   e = 1;
   kpds_set_attribute( out_object, KPDS_VALUE_SIZE, w, h, d, t, e );
   



  res_plane = (double *)kmalloc(w*sizeof(double));
  if ( !res_plane) {
     kerror(lib, rtn, "Could not allocate memory for the image\n");
     kexit(KEXIT_FAILURE);
  }
/* -main_before_lib_call_end */

/* -main_library_call */
	



	
	



	
	
  for (ct = 0; ct < t; ct++) {
    kpds_set_attribute(out_object, KPDS_VALUE_POSITION, 0, 0, 0, ct, 0);
    
    kmemset(res_plane, 0, w*sizeof(double));
  		
			
			
    for ( cw = 0; cw < w; cw++ ) {
    	angle = cw * 2 * 3.14 / w;
    	res_plane[cw] = clui_info->amplitude_double * sin( clui_info->nwaves_int * angle );
    }
			
			
			
			 
    kpds_set_attribute(out_object, KPDS_VALUE_POSITION, 0, 0, 0, ct, 0);
    kpds_put_data(out_object, KPDS_VALUE_PLANE, (kaddr)res_plane);
  }
/* -main_library_call_end */

/* -main_after_lib_call */
   if (!kpds_set_attribute(out_object, KPDS_HISTORY, kpds_history_string())) {
     kerror(lib,rtn,"Unable to set history on the destination object");
     kexit(KEXIT_FAILURE);
   }

   if (res_plane)
     kfree(res_plane);
   kpds_close_object(out_object);
/* -main_after_lib_call_end */
   
   
   return TRUE;
}

/*-----------------------------------------------------------
| 
|  Routine Name: mysinusoid_usage_additions
| 
|       Purpose: Prints usage additions in mysinusoid_usage routine
| 
|    Written By: gnemeth
|          Date: Apr 30, 2008
| 
------------------------------------------------------------*/
void mysinusoid_extra_usage_additions(void)
{
   /*-- Put Your Code Here --*/
   return;
}

/*-----------------------------------------------------------
| 
|  Routine Name: mysinusoid_free_args
| 
|       Purpose: Frees CLUI struct allocated in mysinusoid_get_args()
| 
|         Input: status      - The exit status for the program.
|		 client_data - Client data needed to by the exit handler
|    Written By: gnemeth
|          Date: Apr 30, 2008
| 
------------------------------------------------------------*/
/* ARGSUSED */
void mysinusoid_extra_free_args(
   kexit_status status,
   kaddr        client_data)
{
   /*-- Put Your Code Here --*/
   return;
}