/////////////////////////////////////////////////////APR - 2010
// assigns new expression and material to object defined in $objname
// the expression assigns new color according to x rotation.
/////////////////////////////////////////////////////

for($x = 1; $x < 10; $x++) {

$mname = "blinn"+$x;
$sNetwork = $mname+"SG";
shadingNode -asShader blinn -name $mname;
 
sets -renderable true -noSurfaceShader true -empty -name $sNetwork;
$attributeoc = $mname+".outColor";
$attributess = $sNetwork+".surfaceShader";
connectAttr  $attributeoc  $attributess;
//connectWindowWith blinn1 blinn1SG;

$objname = "pSphere"+$x;

select -r $objname;
sets -e -forceElement $sNetwork;


select -r $mname;

$exprattr = $mname+".colorR";
$expressionname = "expression"+$x;
$exprcmnd = "$rotationX = pSphere"+$x+".rotateX;\r"+$mname+".colorR = abs(tan(deg_to_rad($rotationX)));\r"+$mname+".colorG =abs(cos(deg_to_rad($rotationX )));\r"+$mname+".colorB =abs(sin(deg_to_rad($rotationX )));\r"+$mname+".ambientColorR = abs(($rotationX %180)/90);\r"+$mname+".specularColorR = abs(($rotationX %180)/90);";


expression -s $exprcmnd -name $expressionname -object $mname  -ae 1 -uc all ;

select -cl  ;
 };