global proc jgClusterLattice()
{
	for ($lat in `ls -sl`)
	{
		select -r $lat;
		pickWalk -d down;
		for ($latShape in `ls -sl`)
		{
			select -r $latShape;
			for ($Svert = 0; $Svert < `getAttr ($latShape + ".sDivisions")`; $Svert ++)
			{
				for ($Tvert = 0; $Tvert < `getAttr ($latShape + ".tDivisions")`; $Tvert ++)
				{
					for ($Uvert = 0; $Uvert < `getAttr ($latShape + ".uDivisions")`; $Uvert ++)
					{
						select -r ($lat + ".pt[" + $Svert + "][" + $Tvert + "][" + $Uvert + "]");
						cluster -n ($lat + "_cluster1");
					}
				}
			}
		}
		select -cl;
	}
}