//programm kurven int $anzahl1; int $anzahl2; int $counter; int $maxx; int $maxz; int $abstandx; int $i; int $g; string $curve_name; string $curve_name2; global proc kurven (int $anzahl1, int $anzahl2) { //flaeche1 select -all; delete; $maxx=154; $abstandx=($maxx/$anzahl1); print $abstandx; //kurven werden erstellt und verschoben for ($counter=0; $counter<=$anzahl1; $counter++) { curve -d 3 -p 0 -23 0 -p 0 -23 0 -p 0 0 -20 -p 0 23 20 -p 0 46 -20 -p 0 69 20 -p 0 92 -20 -p 0 115 20 -p 0 138 0 -p 0 138 0 -k 0 -k 0 -k 0 -k 1 -k 2 -k 3 -k 4 -k 5 -k 6 -k 7 -k 7 -k 7 -n ("curves"+$counter); move -r ($abstandx*$counter) 0 0; print ($abstandx*$counter); }; //jede zweite kurve wird angewaehlt und um z gespiegelt for ($i=0; $i<=$anzahl1; $i+=2) { print $i; $curve_name = ("curves"+$i); $curve_name2 = ($curve_name+".scaleZ"); print $curve_name2; setAttr $curve_name2 -1; }; //kurven werden der reihe nach angewaehlt for ($g=0; $g<=$anzahl1; $g++) { $curve_name = ("curves"+$g); select -add $curve_name; }; //kurven werden geloftet loft -ch 0 -u 1 -c 0 -ar 1 -d 3 -ss 1 -rn 0 -po 0 -rsn true; //geloftete flaeche wird entwaehlt select -cl ; //kurven werden nochmals angewaehlt for ($g=0; $g<=$anzahl1; $g++) { $curve_name = ("curves"+$g); select -add $curve_name; }; //und deleted delete; //flaeche2 $abstandx=($maxx/$anzahl2); print $abstandx; //alles gleich for ($counter=0; $counter<=$anzahl2; $counter++) { curve -d 3 -p 0 -23 0 -p 0 -23 0 -p 0 0 -20 -p 0 23 20 -p 0 46 -20 -p 0 69 20 -p 0 92 -20 -p 0 115 20 -p 0 138 0 -p 0 138 0 -k 0 -k 0 -k 0 -k 1 -k 2 -k 3 -k 4 -k 5 -k 6 -k 7 -k 7 -k 7 -n ("curves"+$counter); move -r ($abstandx*$counter) 0 0; print ($abstandx*$counter); }; for ($i=0; $i<=$anzahl2; $i+=2) { print $i; $curve_name = ("curves"+$i); $curve_name2 = ($curve_name+".scaleZ"); print $curve_name2; setAttr $curve_name2 -1; }; for ($g=0; $g<=$anzahl2; $g++) { $curve_name = ("curves"+$g); select -add $curve_name; }; loft -ch 0 -u 1 -c 0 -ar 1 -d 3 -ss 1 -rn 0 -po 0 -rsn true; select -cl ; for ($g=0; $g<=$anzahl2; $g++) { $curve_name = ("curves"+$g); select -add $curve_name; }; delete; //die beiden flaechen werden unter z achse geschoben $maxz=23; select -all; move -r 0 0 (-1*($maxz/2)); }; //kurven anzahl1 anzahl2;