// tkCreaseToggle.mel by throttlekitty
// Save as mel file, and call the script by: tkCreaseToggle;
// simple 3 stage edge creasing toggle hotkey for all 3 components.
// This version automatically selects and creases hard edges.
// comment the two polySelectConstraint lines to work manually on edge or face selections.

// crease 2 (max), crease 1 (half), remove crease (value becomes -1, or 0 if done via crease tool)
proc tkPerformCrease(){
polySelectConstraint -m 3 -t 0x8000 -sm 1;
polySelectConstraint -m 0;
float $mySel[] = `polyCrease -q -v`;

		if ( $mySel[0] == -1 || $mySel[0] == 0 ){
		polyCrease -op 0 -v 2;
		}
		if ( $mySel[0] == 2 ){
		polyCrease -op 0 -v 1;
		}
		if ( $mySel[0] == 1 ){
		polyCrease -op 1;
		}
}

global proc tkCreaseToggle(){

//	if (( size(`filterExpand -sm 34`) > 0 ) || ( size(`filterExpand -sm 31`) > 0)){
	if ( size(`filterExpand -sm 34`) > 0  ||  size(`filterExpand -sm 31`) > 0){
		ConvertSelectionToEdgePerimeter;
		tkPerformCrease;
		}
	else {
		tkPerformCrease;
		}
}