//NurbsModelingSuite // // Date: 2004/01/08 // Author: Dai Sato dstruevision@dstruevision.com http://www.dstruevision.com // Procedure Name: NurbsModelingSuite // // Description: This scripts collect functions I usually use for nurbs modeling. //When you want to hide shelves and only need minumum tool set. It'll be your help. //How to use: Just type NurbsModelingSuite in comand line, global proc int changeDeg(string $Deg){ global int $currentUDeg = 3; global int $currentVDeg = 3; switch ($Deg) { case "uDeg1": $currentUDeg = 1; text -edit -label "Current U Degree is 1" currentU; return 1; break; case "uDeg2": $currentUDeg = 2; text -edit -label "Current U Degree is 2" currentU; return 1; break; case "uDeg3": $currentUDeg = 3; text -edit -label "Current U Degree is 3" currentU; return 1; break; case "uDeg5": $currentUDeg = 5; text -edit -label "Current U Degree is 5" currentU; return 1; break; case "uDeg7": $currentUDeg = 7; text -edit -label "Current U Degree is 7" currentU; return 1; break; case "vDeg1": $currentVDeg = 1; text -edit -label "Current V Degree is 1" currentV; return 1; break; case "vDeg2": $currentVDeg = 2; text -edit -label "Current V Degree is 2" currentV; return 1; break; case "vDeg3": $currentVDeg = 3; text -edit -label "Current V Degree is 3" currentV; return 1; break; case "vDeg5": $currentVDeg = 5; text -edit -label "Current V Degree is 5" currentV; return 1; break; case "vDeg7": $currentVDeg = 7; text -edit -label "Current V Degree is 7" currentV; return 1; break; case "returnU": return $currentUDeg; break; case "returnV": return $currentVDeg; break; default: $currentUDeg = 3; text -edit -label "Current U Degree is 3" currentU; print "vDeg3"; break; } } global proc int changeSpan(int $tag){ global string $preSpanUText = "Current U Span is "; global string $preSpanVText = "Current V Span is "; switch($tag){ case 1: int $tmpUfield = `intField -q -v spanUfield`; string $returnUtext = ` text -edit -label ($preSpanUText+$tmpUfield) spanUtext`; return $tmpUfield; break; case 2: int $tmpVfield = `intField -q -v spanVfield`; string $returnVtext = ` text -edit -label ($preSpanVText+$tmpVfield) spanVtext`; return $tmpVfield; break; } } global proc changeKeep(){ if((`checkBoxGrp -q -v1 checkKeep`)){ intField -edit -vis false spanUfield; intField -edit -vis false spanVfield; } else { intField -edit -vis true spanUfield; intField -edit -vis true spanVfield; } } global proc myRebuildCurve(){ string $checkSelection[] = `ls -sl`; if($checkSelection[0]!="") { int $spanU = changeSpan(1); int $degU = changeDeg("returnU"); if((`checkBoxGrp -q -v1 checkKeep`)){ for ($i = 0; $i