// karan singh
// revised jan 12, 2005
// jiggles the cvs of a curve by a give amplitude in object space

global proc  jiggleCurve(float $amp)
{
	string $surf[] = `ls -sl`;

	string $c;
	for ($c in $surf)	
	{
		int $cvc= `getAttr ($c+".d")` + `getAttr ($c+".spans")`;
		
		for ($i=0;$i<$cvc-1;$i++)
		{
		float $v1[3]= `getAttr ($c+".cv["+$i+"]")`;
		float $jig= $v1[0] + rand(-$amp,$amp);
		setAttr ($c+".cv["+$i+"].xv") $jig;

		$jig= $v1[1] + rand(-$amp,$amp);
		setAttr ($c+".cv["+$i+"].yv") $jig;

		$jig= $v1[2] + rand(-$amp,$amp);
		setAttr ($c+".cv["+$i+"].zv") $jig;

		}
	}
}