Finding Unshaded Objects

//
// Copyright (C) 1997-2005 Alias Systems Inc.
//
//
// The information in this file is provided for the exclusive use of the
// licensees of Alias. Such users have the right to use, modify,
// and incorporate this code into other products for purposes authorized
// by the Alias license agreement, without fee.
//
// Alias DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
// INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
// EVENT SHALL Alias BE LIABLE FOR ANY SPECIAL, INDIRECT OR
// CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
// DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
// TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
// PERFORMANCE OF THIS SOFTWARE.
//
// Alias Script File
// MODIFY THIS AT YOUR OWN RISK
//
// Creation Date: 5/August/98
//
// Author: jrg
//
// Procedure Name:
// findUnshadedObjects
//
// Description:
// This procedure examines all geometry in the scene, and reports any
// that are not connected to any shading group. It returns the number of
// such unconnected objects that were found.
// It also reports (but does not include in the reported count) any objects
// that are connected to multiple shaders.
//
global proc int findUnshadedObjects()
{
 string $listOfShapes[] = `ls -geometry`;
 int $numShapes = size($listOfShapes);
 int $whichShape;
 string $shapeType[];
 string $shaders[];
 int $numShaders;
 int $numUnshaded = 0;
 for ($whichShape = 0; $whichShape < $numShapes; $whichShape++) {
 $shapeType = `ls -showType $listOfShapes[$whichShape]`;
 //
 // Skip over curves, as they are not rendered anyway.
 //
 if ($shapeType[1] == "nurbsCurve") {
 continue;
 }
 //
 // Get a list of all shading engines connected ’downstream’
 // from this geometry.
 //
 $shaders = `listConnections -source true -type shadingEngine
$listOfShapes[$whichShape]`;
 $numShaders = size($shaders);
 if ($numShaders == 0) {
 print("Object " + $listOfShapes[$whichShape]
 + "is not connected to any shading engine.\n"
 + "It will not show up when rendered.\n");
 $numUnshaded++;
 } else if ($numShaders > 1) {
 print("Object " + $listOfShapes[$whichShape]
 + "is connected to " + $numShaders + "shading engines.\n");
 }
 }
 return $numUnshaded;
}