http://nickpisca.com/BLAST/index.php?title=MakeExtrudedQuad_MEL&feed=atom&action=history
MakeExtrudedQuad MEL - Revision history
2024-03-29T02:00:09Z
Revision history for this page on the wiki
MediaWiki 1.28.1
http://nickpisca.com/BLAST/index.php?title=MakeExtrudedQuad_MEL&diff=234&oldid=prev
Nickpisca: Created page with " global proc string[] MakeExtrudedQuad(vector $Vec1, vector $Vec2, vector $Vec3, vector $Vec4, float $RadVal) { //Nick Pisca 0001d 2011 //vector $Vec1 = <<0,2,3>>; vector..."
2017-04-22T07:21:38Z
<p>Created page with " global proc string[] MakeExtrudedQuad(vector $Vec1, vector $Vec2, vector $Vec3, vector $Vec4, float $RadVal) { //Nick Pisca 0001d 2011 //vector $Vec1 = <<0,2,3>>; vector..."</p>
<p><b>New page</b></p><div> global proc string[] MakeExtrudedQuad(vector $Vec1, vector $Vec2, vector $Vec3, vector $Vec4, float $RadVal) {<br />
//Nick Pisca 0001d 2011<br />
//vector $Vec1 = <<0,2,3>>; vector $Vec2 = <<2,4,2>>; vector $Vec3 = <<-2,0,6>>; vector $Vec4 = <<8,-3,0>>; float $RadVal = 0.2;<br />
//MakeExtrudedQuad $Vec1 $Vec2 $Vec3 $Vec4 0.4;<br />
<br />
string $Circ[] = `circle -c 0 0 0 -nr 0 0 1 -sw 360 -r $RadVal -d 3 -ut 0 -tol 0.01 -s 8 -ch 1`; <br />
string $CArr[3]; string $ExArr[3]; string $TempArr[7];<br />
$CArr[0] = `curve -d 1 -p ($Vec1.x) ($Vec1.y) ($Vec1.z) -p ($Vec2.x) ($Vec2.y) ($Vec2.z) -k 0 -k 1`;<br />
$CArr[1] = `curve -d 1 -p ($Vec2.x) ($Vec2.y) ($Vec2.z) -p ($Vec3.x) ($Vec3.y) ($Vec3.z) -k 0 -k 1`;<br />
$CArr[2] = `curve -d 1 -p ($Vec3.x) ($Vec3.y) ($Vec3.z) -p ($Vec4.x) ($Vec4.y) ($Vec4.z) -k 0 -k 1`;<br />
$CArr[3] = `curve -d 1 -p ($Vec4.x) ($Vec4.y) ($Vec4.z) -p ($Vec1.x) ($Vec1.y) ($Vec1.z) -k 0 -k 1`; <br />
<br />
for ($t=0;$t<size($CArr);$t++) {<br />
string $Ex1[] = `extrude -ch true -rn false -po 0 -et 2 -ucp 1 -fpt 1 -upn 1 -rotation 0 -scale 1 -rsp 1 ($Circ[0]) ($CArr[$t])`;<br />
[[ApplyColorToObjectSafe_MEL|ApplyColorToObjectSafe]]($Ex1[0], "blinn", 0.9, 0.9, 0.8, ("GRIDSHAD_"), $t);<br />
$TempArr[$t] = $CArr[$t]; $TempArr[($t+4)] = $Ex1[0];<br />
}<br />
<br />
return $TempArr;<br />
}<br />
<br />
<br />
<br />
<br />
<br />
''More information on applying materials, read pages 128-133 in [http://stores.lulu.com/nickpisca YSYT]. <br />
<br />
''For information on NURBS, read pages 43-49, 109-116 in [http://stores.lulu.com/nickpisca YSYT]. <br />
<br />
[[Category:MEL]]</div>
Nickpisca