Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
20 lines (19 sloc) 469 Bytes
// GLKT - Benjamin Vedrenne.
// MIT License
global proc selHardEdges()
{
string $selObj[] = `ls -sl`;
int $edgeNbf[] =`polyEvaluate -e`;
select -r ($selObj[0]+".e[0:"+$edgeNbf[0]+"]");
string $selEdges[] = `ls -sl -fl`;
select -cl;
for ($edge in $selEdges)
{
string $edgeInfo[] = `polyInfo -ev $edge`;
if (`gmatch $edgeInfo[0] "*Hard*"`)
{
select -add $edge;
}
}
}
selHardEdges();