/*
	32/64 bits A-Chaos Lib in openFrameworks	
	(c) s373.net/x 2004, 2012, 2015
	http://s373.net/code/A-Chaos-Lib/A-Chaos.html
	programmed by Andre Sier, revised 2015
	License: MIT
*/

#pragma once
#include "AChaosBase.h"

class AChaosCollatz : public AChaosBase {
public:

	long value, offset;
	bool mode;
	

	AChaosCollatz(){}
	~AChaosCollatz(){}	

	vector<string> param_labels={"","offset"};
	virtual vector<string> &get_param_labels(){return this->param_labels;};

	virtual void setup(REAL * params = NULL){
		AChaosBase::init(params, 3, 1);

		if(params==NULL){
			//init
			value = offset = 0;
			mode = 0;
		
			REAL p[3] = {(REAL)value,(REAL)offset,(REAL)mode};
			set(p);
		} else { set(params); }
	}

	void reset(){
		value = (long) iv[0];
		offset = (long) iv[1];
		mode = iv[2]>0;
	}
	
 	void calc(){
		
		short int stub = value % 2; //par ou impar
		 
		if(!mode) { 				// L.Collatz collatz mode
			 if (!stub) value /= 2;		//par ]e metade
			 else value = 3*value+1;	//impar ]e 3n+1			 
			}
		else if (mode) { 				// Terras collatz mode
			 if (!stub) value /= 2;		//par ]e metade
			 else value = 0.5*(3*value+1);	//impar ]e 1/2(3n+1)			
			}

		ov[0] = (REAL)value;
 	}
};