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

parameter color color1 {
	detail varying
	default {1 1 1}
}
parameter color color2 {
	detail varying
	default {0 0 0}
}
parameter float frq {
	detail varying
	default 10
}
parameter float fuzzyness {
	detail varying
	default 0
}
parameter float bias {
	detail varying
	default 0
}
parameter float stripe_noise_amount {
	detail varying
	default 0
}
parameter float stripe_noise {
	detail mustvary pixar,FNoise inline
	default 1
}
parameter color result {
	access output
	display hidden
	default 0
}

RSLSource StaticFunction {

void hostripe(
	color color1,color2;
	float frq,fuzzyness,bias,stripe_noise_amount,stripe_noise;
	output color result;){
	float s_noise = stripe_noise * stripe_noise_amount;
	float ss = (s + s_noise) - (s_noise /2);
	float mixer = (sin(ss*PI*frq)+1)/2;
	mixer *= pow(mixer,bias);
	mixer = smoothstep(0.5-(fuzzyness/2),0.5+(fuzzyness/2),mixer);
	result = mix(color1,color2,mixer);
}

}}}}