Turtle 2021

PHOTO

Tue Jul 02 2024 00:38:58 GMT+0000 (Coordinated Universal Time)

Saved by @nouhad #mel

global proc turtle2021()
{
	string $shell[] = `polySphere -r 3 -sx 8 -sy 8 -ax 0 1 0 -cuv 2 -ch 1`;
	select -r ($shell[0]+".vtx[0:31]") ($shell[0]+".vtx[56]") ;
	scale -r -ocp 1 1e-05 1 ;
	string $head[] = `polyCube -w 1.5 -h 1.5 -d 1.5 -sx 1 -sy 1 -sz 1 -ax 0 1 0 -cuv 4 -ch 1`;
	xform -t 0 0.5 3.375 $head[0];
	
	string $feet[];
	for ($f=0;$f<4;$f++)
	{
		string $foot[] = `polyPyramid -w 3 -ns 4 -sh 1 -sc 0 -ax 0 1 0 -cuv 3 -ch 1`;
		xform -t -2.63 0 2.63 -ro 45 0 90 -s 0.188 1 0.25 $foot[0];
		xform -ws -piv 0 0 0 $foot[0];
		makeIdentity -apply true -t 1 -r 1 -s 1 -n 0 -pn 1;
		xform -ro 0 ($f*90) 0 $foot[0];
		$feet[$f] = $foot[0];
	}
	select -r $feet $head[0] $shell[0];
	string $turtGrp = `group`;

	string $mat = `shadingNode -asShader blinn`;
	string $matSG = `sets -renderable true -noSurfaceShader true -empty -name ($mat+"SG")`;
	connectAttr -f ($mat+".outColor") ($matSG+".surfaceShader");
	select -r $turtGrp ;
	sets -e -forceElement $matSG;
	setAttr ($mat+".color") -type double3 0 0.178 0.0273853 ;

	string $ground[] = `polyPlane -w 100 -h 100 -sx 10 -sy 10 -ax 0 1 0 -cuv 2 -ch 1`;
	string $loc[] = `spaceLocator -p 0 1.5 0`;
	select -r $shell[0] $loc[0];
	parentConstraint -mo -weight 1;

	xform -t 0 54 0 -ro 32 5 -25 $turtGrp;
	select -r $turtGrp;
	rigidBody -active -m 1 -dp 0 -sf 0.2 -df 0.2 -b 0.6 -l 0 -tf 200 -iv 0 0 0 -iav 0 0 0 -c 0 -pc 0 -i 0 0 0 -imp 0 0 0 -si 0 0 0 -sio none ;
	select -r $ground[0] ;
	rigidBody -passive -m 1 -dp 0 -sf 0.2 -df 0.2 -b 0.6 -l 0 -tf 200 -iv 0 0 0 -iav 0 0 0 -c 0 -pc 0 -i 0 0 0 -imp 0 0 0 -si 0 0 0 -sio none ;
	string $grav[] = `gravity -pos 0 0 0 -m 9.8 -att 0 -dx 0 -dy -1 -dz 0  -mxd -1  -vsh none -vex 0 -vof 0 0 0 -vsw 360 -tsr 0.5 `;
	connectDynamic -f $grav[0] $turtGrp;


	expression -s ("if ("+$loc[0]+".translateY < 4)\n{\nsetAttr \""+$mat+".color\" -type double3 1 0 0 ;\n}\nelse\n{\nsetAttr \""+$mat+".color\" -type double3 0 0.178 0.0273853 ;\n}")  -o $mat -ae 1 -uc all  ;

}

Save snippets that work from anywhere online with our extensions

Available in the Chrome Web Store

Get Firefox Add-on

Get VS Code extension

Comments

More like this

global proc helloWorld(string $name)
{
	print ("Hello "+$name+"!");
}

global proc helloInput(string $name,int $num)
{
	print ("Hello "+$name+"!\n");
	print ("You have "+$num+" cats.\n");
}

global proc helloRandom()
{
	string $nameList[] = {"Kelly","Sam","Chiharu","Liam","May","Jeremy"};
	int $num = rand(10,60);
	int $namePicker = rand(5.99999);

	print ("Hello "+$nameList[$namePicker]+"!\n");
	print ("You have "+$num+" cats.\n");
	print "That's too many cats.";
}

global proc helloRandom2()
{
	string $nameList[] = {"Kelly","Sam","Chiharu","Liam","May","Jeremy"};
	int $namePicker = rand(5.99999);
	int $num = rand(10,60);
	string $itemList[] = {"cats","dogs","fish","guinea pigs","frogs","donkeys","bottles of lotion","sheep","snakes","jar of pickles"};
	int $itemPicker = rand(9.999999);

	print ("Hello "+$nameList[$namePicker]+"!\n");
	print ("You have "+$num+" "+$itemList[$itemPicker]+".\n");
	print ("That's too many "+$itemList[$itemPicker]+".");
}

Hello World Example by Giancarlo Dimalanta

global proc superPerson (string $adj, string $noun, string $eyeCol) 
{ 
  print ("Hello "+ $adj +" "+ $noun +"!\n");
  print "Welcome to the database of Supers, please allow a retina scan for verification\n";
  print("\n...");
  print ("\n\n...");
  print ("\n\n...verification complete...\n");
  print ("\n Access granted, your "+$eyeCol+" eyes look lovely today, "+$adj+" "+$noun+"!");
} 
superPerson ("Vermillion", "Prison", "blue");

Hello World Example by Jason Wu

string $myChar = "Mista White";
int $age = "51";
float $money = "5";
print ("Yo! " + $myChar + "! Where is my share, where is my " + $money + " million");

Hello World Example by Manda Simpson

string $name;
float $height;
string $hairColour;
$height = "167.5";
$name = "Thomas Balinski";
$hairColour = "Red";
print ("Hello, my name is " + $name + " and I recently dyed my hair " + $hairColour + ". I am also " + $height + " centimiters tall.");


string $name = "chompy";
string $pet[3] = {"turtle", "capybara", "cat"};
print ("I have a pet and his name is " + $name + ". He is a " + $pet[1] + ". He also has a friend who is a " + $pet[0] + ".");


global proc fashion(string $top, string $pants, string $shoes)
{
    print ("I'm wearing a snazzy " + $top + " to go with my cool " + $pants + " that perfectly match my " + $shoes + ".");
}
fashion("red silk shirt","blue jeans","sweyd boots");

global proc candy(string $type, string $reason, float $cost)
{
    print ("my favorite type of candy would have to be " + $type + " because " + $reason + ". It costs " + $cost + " dollars to buy 5 of them");
}
candy("Zombie Chews", "they are very sour", "3.5");

xForm Geometry example by Giancarlo Dimalanta

string $cubeName[] = `polyCube`;

float $randX = rand(20);
float $randY = rand(1,20);
float $randZ = rand(20);
float $randRot[] = sphrand(360);
float $randWidth = rand(8);
float $randHeight = rand(8);

xform -t $randX $randY $randZ
      -ro $randRot[0] $randRot[1] $randRot[2]
       $cubeName[0];

setAttr "polyCube1.width" $randWidth;
setAttr "polyCube1.height" $randHeight;

//WORKING

global proc gamble (int $numGamble)

{
   
    global int $money;
   
    print ("in order to win, you must roll an even number\n"); 
    print("You rolled "+$numGamble+" times!");
    for ($g=0; $g<$numGamble;$g++)
    {
    print ("You have rolled " +$randNum+"\n");
    int $randNum = rand(1,12);
if (($randNum == 2) || ($randNum == 4) || ($randNum == 6) || ($randNum == 8) || ($randNum == 10) || ($randNum == 12))
{
    $money = ($money + rand(5,10));
    print ("Winner winner chicken dinner!\n");
    print ("Balance: $"+$money+"\n");  
}
else
{
    $money = ($money - rand(5,10));
    print ("Sorry, you lost\n");
    print ("Balance: $"+$money+"\n");
}
}
}
global proc balance ()
{
    global int $money;
    print ("You have $"+$money);
}


global int $money;

if ($money<=0)
{
    print ("Warning! you are bankrupt and we highly recommend not gambling any further to avoid debt.");
}

xForm Geometry example by Liam Thomas

// Random Shape
global proc shapeGen()
{
    int $randShape = rand(2.9999);
    print("You got shape number: " + $randShape + "!\n");

    if ($randShape == 0)
    {
        int $numCubes = 5;
        float $radius;
        string $allCubes[]; // declare string array that stores the names of the cubes in the array 
    
        for ($cu = 0; $cu < $numCubes ; $cu++) // initialisation / condition / iteration
        {
            string $cubeName[] = `polyCube -w 1 -h 1 -d 1 -sx 1 -sy 1 -sz 1 -ax 0 1 0 -cuv 4 -ch 1`;
		    $allCubes[$cu] = $cubeName[0]; // use the counter to gather the names
				    					        // of each new cube and save it in a list
    	}
	    select -r $allCubes; // select all the new cubes and group them
	    group;
    }      
    else if ($randShape == 1) 
    {
        int $numSpheres = 5;
        string $allSpheres[];
      
        for ($sp = 0; $sp < $numSpheres; $sp++)
        {
          string $sphereName[] = `polySphere -r 1 -sx 20 -sy 20 -ax 0 1 0 -cuv 2 -ch 1`;
          $allSpheres[$sp] = $sphereName[0];
        }
        select -r $allSpheres;
        group;
    }
    else if ($randShape == 2)
    {
        int $numCones = 5;
        string $allCones[];
        
        for ($co = 0; $co < $numCones; $co++)
        {
           string $coneName[] = `polyCone -r 1 -h 2 -sx 20 -sy 1 -sz 0 -ax 0 1 0 -rcp 0 -cuv 3 -ch 1`;
           $allCones[$co] = $coneName[0];
        }
        select -r $allCones;
        group;
    }
}

xForm Geometry example by Asher Wadsworth

global proc cubeGenerator ()
{
    int $randNum = rand(5);
    print ($randNum+"\n");

    for($i = 0; $i < 10; $i++) 
    {
        string $cubeName[] = `polyCube -w 1 -h 1 -d 1 -sx 1 -sy 1 -sz 1 -ax 0 1 0 -cuv 4 -ch 1 -n "cube"`;
        float $randScale[] = abs(sphrand(5));
        xform -s $randScale[0] $randScale[1] $randScale[2] $cubeName[0];
    }
    
}

/***************************************************************
ifShapes.mel			Kelly Bechtle-Woods  12/04/2022

Generates random numbers and creates shapes depending on the result

USAGE: ifShapes
****************************************************************/
global proc ifShapes()
{
	int $randNum = rand(10.9999);
	print ($randNum+"\n");

	if ($randNum < 2) // True if 0 or 1
	{
		polyCone -r 1 -h 2 -sx 20 -sy 1 -sz 0 -ax 0 1 0 -rcp 0 -cuv 3 -ch 1;
	}
	else if ($randNum == 2) // True if 2
	{
		polyTorus -r 1 -sr 0.5 -tw 0 -sx 20 -sy 20 -ax 0 1 0 -cuv 1 -ch 1;
	}
	else if ($randNum > 8) // True if 9 or 10
	{
		polyCube -w 1 -h 1 -d 1 -sx 1 -sy 1 -sz 1 -ax 0 1 0 -cuv 4 -ch 1;
	}
	else if (($randNum > 2) && ($randNum < 9))  // True if 3, 4, 5, 6, 7, 8
	{
		polySphere -r 1 -sx 20 -sy 20 -ax 0 1 0 -cuv 2 -ch 1;
	}
	else
	{
		print "nothing.";
	}

	print "DONE!";
}

global proc ifLogicTest()
{
	int $randNum = rand(10.9999);
	print ($randNum+"\n");

	if ((($randNum == 3) || ($randNum == 5)) || ($randNum == 7))
	{
		polyPlane -w 1 -h 1 -sx 10 -sy 10 -ax 0 1 0 -cuv 2 -ch 1;

	}

}

global proc forInDemo()
{
	string $nameList[] = {"Kelly","Sam","Chiharu","Liam","May","Jeremy"};

	for ($person in $nameList)
	{
		print ($person+" loves scripting.\n");
	}

	print "DONE!";
}

/*********************************************************
makeCubes.mel
Creates a cloud of cubes

USAGE: makeCubes <int numberOfCubes> <float radiusOfCloud>
*********************************************************/
global proc makeCubes(int $numCubes, float $radius)
{
	string $allCubes[]; // declare an array to save the names of the cubes

	for ($c=0;$c<$numCubes;$c++)
	{
		string $cubeName[] = `polyCube -w 1 -h 1 -d 1 -sx 1 -sy 1 -sz 1 -ax 0 1 0 -cuv 4 -ch 1`;

		float $randTrans[] = sphrand($radius);
		float $randRot[] = sphrand(360);
		float $randScale[] = abs(sphrand(5));

		xform -t $randTrans[0] $randTrans[1] $randTrans[2] 
		      -ro $randRot[0] $randRot[1] $randRot[2]
		      -s $randScale[0] $randScale[1] $randScale[2]
		       $cubeName[0];
		$allCubes[$c] = $cubeName[0]; // use the counter to gather the names
									  // of each new cube and save it in a list
	}
	select -r $allCubes; // select all the new cubes and group them
	group;
}

/*		You can also use rand to generate random number like this:
		float $randX = rand(5);
		float $randY = rand(5);
		float $randZ = rand(5);
*/

global proc moveCVs()
{
	string $cyl[] = `polyCylinder -r 1 -h 2 -sx 20 -sy 1 -sz 1 -ax 0 1 0 -rcp 0 -cuv 3 -ch 1`;
	select -r ($cyl[0]+".vtx[20:21]") ($cyl[0]+".vtx[37:39]") ;
	move -r 0 0.876853 0 ;

}

Browse more snippets >>