/*
  * Khoros: $Id$
  */

#if !defined(__lint) && !defined(__CODECENTER__)
static char rcsid[] = "Khoros: $Id$";
#endif

/*
 * Copyright (C) 1993 - 1997, Khoral Research, Inc., ("KRI").
 * All rights reserved.  See $BOOTSTRAP/repos/license/License or run klicense.
 */

/* >>>>>>>>>>>>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<<<<<<<<<
   >>>> 
   >>>> 	Main program for myrgbdecompose
   >>>> 
   >>>>  Private: 
   >>>> 	main
   >>>> 
   >>>>   Static: 
   >>>>   Public: 
   >>>> 
   >>>>>>>>>>>>>>>>>>>>>>>>>>>>> <<<<<<<<<<<<<<<<<<<<<<<<<< */


#include "myrgbdecompose.h"

clui_info_struct *clui_info = NULL;

/*-----------------------------------------------------------
|
|  Routine Name: main() - RGB Decompose
|
|       Purpose: main program for myrgbdecompose
|
|         Input:
|		char *clui_info->i_file; {First Input data object}
|		int   clui_info->i_flag; {TRUE if -i specified}
|
|		char *clui_info->ored_file; {Resulting output data object}
|		int   clui_info->ored_flag; {TRUE if -ored specified}
|
|		char *clui_info->ogreen_file; {output file}
|		int   clui_info->ogreen_flag; {TRUE if -ogreen specified}
|
|		char *clui_info->oblue_file; {output file}
|		int   clui_info->oblue_flag; {TRUE if -oblue specified}
|
|        Output:
|       Returns:
|
|    Written By: 
|          Date: July 1, 1997
| Modifications:
|
------------------------------------------------------------*/

int main(
   int  argc,
   char **argv)
{

/* -main_variable_list */
  char *lib = "myrgbdecompose_obj";
  char *rtn = "main";
  kobject in_object = NULL;
  kobject red_object = NULL;
  kobject green_object = NULL;
  kobject blue_object = NULL;
  int inRGB[3];
  int red, green, blue;
  int redRGB[3]; /* segédtömb az eredmény komponenseknek */
  int greenRGB[3]; /* segédtömb az eredmény komponenseknek */
  int blueRGB[3]; /* segédtömb az eredmény komponenseknek */
  int w, h, d, t, e;
  int cw, ch, ct, pos;
/* -main_variable_list_end */

	khoros_init(argc, argv, "PROBA", PRODUCT_RELEASE_DATE,
	            PRODUCT_RELEASE_NAME, PRODUCT_RELEASE_VERSION,
	            PRODUCT_RELEASE_MAJOR, PRODUCT_RELEASE_MINOR,
	            "$PROBA/objects/kroutine/myrgbdecompose");
	kexit_handler(myrgbdecompose_free_args, NULL);

/* -main_get_args_call */
	kclui_init("PROBA", "myrgbdecompose", KGEN_KROUTINE,  &clui_uis_spec,
		   myrgbdecompose_usage_additions, myrgbdecompose_get_args,
 		   myrgbdecompose_free_args);
/* -main_get_args_call_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);
  }
/* létrehozok három eredmény objektumot */
  if ((red_object = kpds_open_output_object(clui_info->ored_file))== KOBJECT_INVALID) {
    kerror(lib, rtn, "Can not open output object %s.\n", clui_info->ored_file);
    kexit(KEXIT_FAILURE);
  }
  if ((green_object = kpds_open_output_object(clui_info->ogreen_file))== KOBJECT_INVALID) {
    kerror(lib, rtn, "Can not open output object %s.\n", clui_info->ogreen_file);
    kexit(KEXIT_FAILURE);
  }
  if ((blue_object = kpds_open_output_object(clui_info->oblue_file))== KOBJECT_INVALID) {
    kerror(lib, rtn, "Can not open output object %s.\n", clui_info->oblue_file);
    kexit(KEXIT_FAILURE);
  }
/* átmásolom az eredményekbe az inputot */
  if (!kpds_copy_object(in_object, red_object)) {
    kerror(lib, rtn, "Can not copy input object to output object.\n");
    kexit(KEXIT_FAILURE);
  }
  if (!kpds_copy_object(in_object, green_object)) {
    kerror(lib, rtn, "Can not copy input object to output object.\n");
    kexit(KEXIT_FAILURE);
  }
  if (!kpds_copy_object(in_object, blue_object)) {
    kerror(lib, rtn, "Can not copy input object to output object.\n");
    kexit(KEXIT_FAILURE);
  }
/* mindegyik típusát unsigned int-re állítom */
  kpds_set_attribute(in_object, KPDS_VALUE_DATA_TYPE, KUINT);
  kpds_set_attribute(red_object, KPDS_VALUE_DATA_TYPE, KUINT);
  kpds_set_attribute(green_object, KPDS_VALUE_DATA_TYPE, KUINT);
  kpds_set_attribute(blue_object, KPDS_VALUE_DATA_TYPE, KUINT);
  kpds_get_attribute(in_object, KPDS_VALUE_SIZE, &w, &h, &d, &t, &e);
/* -main_before_lib_call_end */

/* -main_library_call */
 for (ct = 0; ct < t; ct++) {
  for ( ch = 0; ch < h; ch++ ) {
    for ( cw = 0; cw < w; cw++ ) {
      kpds_set_attribute( in_object, KPDS_VALUE_POSITION, cw,ch,0, ct,0 );
      /*
        kinyerjük a (cw,ch) képpontban lévő színkomponens-komponens
        vektort az inputból
      */
      kpds_get_data( in_object, KPDS_VALUE_VECTOR, (kaddr)inRGB );
      /*
        az eredmény vektorokat úgy állítjuk be, hogy a megfelelő
        komponens-vektorba csak az adott komponens kap 0-tól különböző
        értéket
      */
      redRGB[0] = inRGB[0];
      redRGB[1] = 0;
      redRGB[2] = 0;
      
      greenRGB[0] = 0;
      greenRGB[1] = inRGB[1];
      greenRGB[2] = 0;
      
      blueRGB[0] = 0;
      blueRGB[1] = 0;
      blueRGB[2] = inRGB[2];
      /* a komponens-vektorokat beírjuk az objektumokba */
      kpds_set_attribute( red_object, KPDS_VALUE_POSITION, cw,ch,0,ct,0);
      kpds_put_data( red_object, KPDS_VALUE_VECTOR, (kaddr)redRGB );
      kpds_set_attribute(green_object, KPDS_VALUE_POSITION, cw,ch,0,ct,0);
      kpds_put_data( green_object, KPDS_VALUE_VECTOR, (kaddr)greenRGB );
      kpds_set_attribute( blue_object, KPDS_VALUE_POSITION, cw,ch,0,ct,0);
      kpds_put_data( blue_object, KPDS_VALUE_VECTOR, (kaddr)blueRGB );
    }
  }
 }
/* -main_library_call_end */

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


	kexit(KEXIT_SUCCESS);
}


/*-----------------------------------------------------------
| 
|  Routine Name: myrgbdecompose_usage_additions
| 
|       Purpose: Prints usage additions in myrgbdecompose_usage routine
| 
|         Input: None
| 
|        Output: None
|    Written By: ghostwriter -oname myrgbdecompose
|          Date: July 1, 1997
| Modifications: 
| 
------------------------------------------------------------*/
void myrgbdecompose_usage_additions(void)
{
	kfprintf(kstderr, "\tRGB Decompose\n");

/* -usage_additions */
/* -usage_additions_end */

}
/*-----------------------------------------------------------
| 
|  Routine Name: myrgbdecompose_free_args
| 
|       Purpose: Frees CLUI struct allocated in myrgbdecompose_get_args()
| 
|         Input: None
| 
|        Output: None
|    Written By: ghostwriter -oname myrgbdecompose
|          Date: July 1, 1997
| Modifications: 
| 
------------------------------------------------------------*/
/* ARGSUSED */
void
myrgbdecompose_free_args(
    kexit_status status,
    kaddr        client_data)
{

	/* do the wild and free thing */
	if (clui_info != NULL)
	{
		kfree_and_NULL(clui_info->i_file);
		kfree_and_NULL(clui_info->ored_file);
		kfree_and_NULL(clui_info->ogreen_file);
		kfree_and_NULL(clui_info->oblue_file);
		kfree_and_NULL(clui_info);
	}

/* -free_handler_additions */
/* -free_handler_additions_end */
}