proc gsap_distanceGenerator(){



$list = `ls -sl`;

$target = $list[0];



string $expressionString = "";

string $current = "";

string $expressionName = "seperationCalc_0";



$counter = 1;



while ($counter<`size $list`){



    $current = $list[$counter];

	$attributeName = $target+"Sep";

    	$expressionName = $current + "seperationCalc";

	addAttr -ln $attributeName -at double  $current;

    	eval("setAttr -e -keyable true " + $current + "." + $attributeName);

	$expressionString += ($attributeName + " = sqrt(pow ((translateX - "+ $target + ".translateX), 2) + pow ((translateY - "+ $target + ".translateY), 2) + pow ((translateZ - "+ $target + ".translateZ), 2)) \;\\n");

	$counter++;

	}

	print $expressionString;

	eval("expression -o " + $current + " -s \"" + $expressionString + "\" -ae 1 -uc all -n " + $expressionName);

}



gsap_distanceGenerator;