slim 1 extensions hosuk {
extensions scad ho {
template color hueShift {

parameter color inColor {
	detail varying
	default {1 0 0}
}
parameter float shift {
	detail varying
	range {0 1}
	default 5
}
parameter color result {
	detail varying
	access output
	display hidden
	default 0
}
RSLSource StaticFunction {

void hohueShift(
	color inColor;
	float shift;
	output color result;){
	
	color tmp =ctransform ("rgb","hsv",inColor);
	float hue = comp(tmp,0);
	hue = mod(hue+shift,1);
	result = color "hsv" (hue,comp(tmp,1),comp(tmp,2));
}

}}}}