to HSBAtest
	cS
	imax=200
	repeat imax 
	[	setPC HSBA 360*repcount/imax 1 1 1-repCount/imax  
		box 
		rt 30 fd 1 lt 30
	]
end