Production Logic: //This script will generate a honeycomb surface based on a source surface’s UV //points and a target surface’s geometry. drawVDHD (($u+2), $v, $uVal, $vVal, $uDiv, $vDiv, $surfSrc, $surfTrgt); drawHDVD (($u+2), $v, $uVal, $vVal, $uDiv, $vDiv, $surfSrc, $surfTrgt); //Code by Andrew Kudless. This code is open source and free to use, copy, and modify. } //Enter the source and target surface’s names //Procedure for drawings DVDH-type curves string $surfSrc = “surface1”; string $surfTrgt = “surface2”; proc drawDVDH (int $u, int $v, float $uVal[], float $vVal[], int $uDiv, int $vDiv, string $surfSrc, string $surfTrgt){ //Create the array that holds the U and V values for the given divisions. float $coordStrt[] = pointOnTarget ($uVal[$u], $vVal[$v], $surfSrc, $surfTrgt); if (($u+1) <= $uDiv && ($v+1) <= $vDiv){ float $coordEnd[] = pointOnTarget ($uVal[$u+1], $vVal[$v+1], $surfSrc, $surfTrgt); string $curveStrt = drawSegment1 ($coordStrt, $coordEnd); print (“DVDH: “ + $curveStrt + “ is being drawn.” + “\n”); $coordStrt = $coordEnd; float $uDiv = 20; float $vDiv = 10; float $maxDiv = max($uDiv, $vDiv); float $uVal[], $vVal[]; while ($u <= ($uDiv) | $v <= ($vDiv)){ if (($v+2) > $vDiv)break; $coordEnd = pointOnTarget ($uVal[$u+1], $vVal[$v+2], $surfSrc, $surfTrgt); $curveStrt = drawSegment($coordStrt, $coordEnd, $curveStrt); $coordStrt = $coordEnd; for ($i = 0; $i <= $uDiv; $i++){ $uVal[$i] = 1/$uDiv * $i; print (“The value of U at “ + $i + “ is: “ + $uVal[$i] + “\n”); if (($u+2) > ($uDiv) | ($v+3) > ($vDiv))break; $coordEnd = pointOnTarget ($uVal[$u+2], $vVal[$v+3], $surfSrc, $surfTrgt); $curveStrt = drawSegment($coordStrt, $coordEnd, $curveStrt); $coordStrt = $coordEnd; } for ($i = 0; $i <= $vDiv; $i++){ $vVal[$i] = 1/$vDiv * $i; print (“The value of V at “ + $i + “ is: “ + $vVal[$i] + “\n”); } if (($u+3) > $uDiv)break; $coordEnd = pointOnTarget ($uVal[$u+3], $vVal[$v+3], $surfSrc, $surfTrgt); drawSegment($coordStrt, $coordEnd, $curveStrt); $coordStrt = $coordEnd; print(“U array has a size of “ + size($uVal) + “.\n” ); print(“V array has a size of “ + size($vVal) + “.\n” ); if (($u+4) > ($uDiv) | ($v+4) > ($vDiv))break; $coordEnd = pointOnTarget ($uVal[$u+4], $vVal[$v+4], $surfSrc, $surfTrgt); drawSegment($coordStrt, $coordEnd, $curveStrt); $coordStrt = $coordEnd; //Begin for loop that draws curves for first half of surface for ($i = 0; $i <= $maxDiv; $i = $i+3){ int $u = 0; int $v = $i; drawDVDH ($u, $i, $uVal, $vVal, $uDiv, $vDiv, $surfSrc, $surfTrgt); if (($v+2) > $vDiv)break; drawHDVD ($u, ($v+2), $uVal, $vVal, $uDiv, $vDiv, $surfSrc, $surfTrgt); Digital Generation: Basic MEL Script The following sections show the actual code that was used in Maya to generate the honeycomb mesh. The code was written in the MEL scripting language. It is included here as open source code, free to use and modify. For a digital copy of the code, go to the project website. $u = $u+3; $v = $v+3; } } } //Procedure for drawings HDVD-type curves drawVDHD ($u, ($v+2), $uVal, $vVal, $uDiv, $vDiv, $surfSrc, $surfTrgt); proc drawHDVD (int $u, int $v, float $uVal[], float $vVal[], int $uDiv, int $vDiv, string $surfSrc, string $surfTrgt){ } //Begin for loop that draws curves for second half of surface for ($i = 0; $i <= $maxDiv; $i = $i+3){ int $u = $i; int $v = 0; drawDHDV ($u, $v, $uVal, $vVal, $uDiv, $vDiv, $surfSrc, $surfTrgt); if (($u+2) > $uDiv)break; float $coordStrt[] = pointOnTarget ($uVal[$u], $vVal[$v], $surfSrc, $surfTrgt); if (($u+1) <= $uDiv){ float $coordEnd[] = pointOnTarget ($uVal[$u+1], $vVal[$v], $surfSrc, $surfTrgt); string $curveStrt = drawSegment1 ($coordStrt, $coordEnd); print (“HDVD: “ + $curveStrt + “ is being drawn.” + “\n”); $coordStrt = $coordEnd; while ($u <= ($uDiv) | $v <= ($vDiv)){ if (($u+2) > ($uDiv) | ($v+1) > ($vDiv))break; Related Topics: Digital Generation: Script Specification 31 32