// requires GroIMP version 1.4.2

module A(float len) extends Sphere(0.1).(setShader(GREEN));
int step = 0;

protected void init () [
	Axiom ==> A(1);
	{
		clearConsole();
		step = 0;
		println("step\t #A\t #F\t  #RU\t #RH\t #total Objects", 0x000000);
	}
]

public void run () [
	A(x) ==> F(x) [RU(30) RH(90) A(x*0.8)] [RU(-30) RH(90) A(x*0.8)];
	
	{
		step++;
		print(step+"\t", 0x000000); 
		print(count((* A *))+"\t", 0xff0000);  print(count((* F *))+"\t", 0x00ff00);
		print(count((* RU *))+"\t", 0xff00ff);  print(count((* RH *))+"\t", 0xff00ff);
		println(count((* Node *)), 0x0000ff);
	}
]