#include "m_pd.h"

static t_class *increment_class;

typedef struct _increment {
  t_object  x_obj;
  int reset;
  t_float value;
  t_float inc;
  t_outlet* outlet1;
  t_float start;
  //t_outlet* outlet2;
} t_increment;


static void increment_bang(t_increment *x)
{
	
	if ( x->reset) {
		 x->reset = 0;
	} else {
		x->value = x->value + x->inc;
	}
	 outlet_float(x->outlet1,x->value);
	
	 
  
}
/*
static void increment_float(t_increment *x, t_float f)
{
  x->inc = f;
  increment_bang(x);
}
*/

static void increment_step(t_increment *x, t_float f)
{
  x->inc = f;

}

static void increment_reset(t_increment *x)
{
	
	//post("before");
 // post("start:%d",(int)x->start);
 // post("value:%d",(int)x->value);
  
  x->value = x->start;
  x->reset = 1;
  
 // post("after");
  //post("start:%d",(int)x->start);
  //post("value:%d",(int)x->value);
}

static void increment_set(t_increment *x, t_float f)
{
	
  
 
  x->value = f;
  x->start = f;
  x->reset = 1;
  
  
  
}




/*
void increment_list(t_increment *x,t_symbol *s, int argc, t_atom *argv)
{
  
 
  if ( argc >= 2) {
	x->value =  atom_getfloat(argv);
	x->inc =  atom_getfloat(argv+1);
  } 
  
  
}
*/

static void increment_free(t_increment *x)
{
		
    
}

void *increment_new(t_symbol *s, int argc, t_atom *argv)
{
  t_increment *x = (t_increment *)pd_new(increment_class);
  
  x->reset = 1;
  x->value = 0;
  
  if ( argc >= 2) {
	x->value =  atom_getfloat(argv);
	x->inc =  atom_getfloat(argv+1);
  } else if ( argc == 1) {
	x->value =  atom_getfloat(argv);
	x->inc = 1;
  } else {
	x->value = 0;
	x->inc = 1;
  }
  
  x->start = x->value;
  
  //post("start:%d",(int)x->start);
  //post("value:%d",(int)x->value);
  
   inlet_new(&x->x_obj, &x->x_obj.ob_pd,
        gensym("float"), gensym("set"));

  floatinlet_new(&x->x_obj, &x->inc);
  
  inlet_new(&x->x_obj, &x->x_obj.ob_pd,
        gensym("bang"), gensym("reset"));
  

  x->outlet1 = outlet_new(&x->x_obj, &s_float);
  //x->outlet2 = outlet_new(&x->x_obj, &s_float);
  

  return (void *)x;
}

void increment_setup(void) {
  increment_class = class_new(gensym("increment"),
        (t_newmethod)increment_new,
        (t_method)increment_free, sizeof(t_increment),
        CLASS_DEFAULT, 
        A_GIMME, 0);

  class_addbang  (increment_class, increment_bang);
  //class_addfloat (increment_class, increment_float);
  class_addmethod(increment_class, 
        (t_method)increment_set, gensym("set"),
        A_DEFFLOAT, 0);
	class_addmethod(increment_class, 
        (t_method)increment_step, gensym("step"),
        A_DEFFLOAT, 0);
	class_addmethod(increment_class,
		(t_method)increment_reset, gensym("reset"),
		0);

  //class_addlist (increment_class, increment_list);
  
}