Here are the only 2 melscripts I found here and there.
The first one I never tried, and the second I couldn't make it work!!!
Any of you algo-architects have any idea how to make them work OR BETTER, DO YOU HAVE ANY SCRIPT OF THIS KIND THAT WORKS!!!
Personally I love the way advanced ark studio of gsapp http://www.arch.columbia.edu/gsap/46946///?data=true!work!current_studios.php?semester=2005-01-01!46946
I wonder if this kind of scripts work just like the space tool in 3dStudioMax!!!
I say, there should be any of those students under Alonso who have those scripts, c'mon , share share share with all us who want to feel the fresh breez of "one button architecture", and aren't able to afford a 30000$ seminar at Columbia!
Ciao




it's an old one,,but by far still one of the best scripts ever

/* Filename: mwCoffeeBreak.mel

mwCoffeeBreak v1
Matt Wood, 24 Oct 2000
[email protected]

This script simulates a fictitious processing task which
could take minutes, hours or even days. Thus, the weary and
oppressed Maya operator is afforded an opportunity to
confidently stride out for a coffee, bag of chips, yard of
ale or "whatever", without fear of retribution from angry
management or colleagues.

Don't let the "data loss" warning scare you; it's all part of
the dazzling art of illusion.

Suggestions for v2 most welcome.


Limitations:

It's rubbish.


*/


global proc mwCoffeeBreak()
{
if (`window -ex mwCoffeeBreakWin`)
deleteUI mwCoffeeBreakWin;

window -ip -s 1 -in "Coffe Break" -w 322 -h 150 -title "Coffee Break" mwCoffeeBreakWin;
string $form1=`formLayout`;
string $rc3 =`columnLayout`;
text "How long is your break going to be?";
setParent ..;

string $rc2 =`columnLayout`;
string $timeRadio = `radioCollection`;
string $rbMins = `radioButton -label minutes -select`;
string $rbHours = `radioButton -label hours`;
string $rbDays = `radioButton -label days`;

setParent $form1;
string $b1 =`button -label "Go" -c ("mwCBGo(\`radioCollection -query -select "+$timeRadio+"\`)")`;
string $b2 =`button -label "Cancel" -c "mwCBCancel"`;

formLayout -edit
-attachForm $rc2 right 5
-attachForm $rc2 left 120
-attachForm $rc2 top 30
-attachForm $rc3 right 5
-attachForm $rc3 left 5
-attachForm $rc3 top 10
-attachForm $b1 left 5
-attachForm $b1 bottom 5
-attachPosition $b1 right 2 50
-attachForm $b2 right 5
-attachForm $b2 bottom 5
-attachPosition $b2 left 2 50
$form1;

showWindow mwCoffeeBreakWin;

}

global proc mwCBGo(string $selectedTimeRadio)

{
int $nodes = 1000+rand(10000);
string $timeUnit = `radioButton -query -label $selectedTimeRadio`;
string $cancelResult;
deleteUI mwCoffeeBreakWin;
waitCursor -state on;
do
{
confirmDialog -t Maya -m ("Processing "+$nodes+" nodes. This operation may take a few "+$timeUnit+"...") -b "Cancel";
$cancelResult = `confirmDialog -t "Warning" -m "Aborting this process may result in data loss. Are you sure you want to do this?" -b "Yes" -b "No" -cb "No"`;
}
while($cancelResult != "Yes");
waitCursor -state off;
}

global proc mwCBCancel()

{
deleteUI mwCoffeeBreakWin;
}












And here it is another from materialsystems.org Honeycomb scrupt!!!

//This script attempts to create a honeycomb structure from the input
//of various variables based on a given open surface. The variables
//include the number of cells in both U and V directions and the cell
//height. At the moment, the script does not allow multiple cell layers,
//variable cell height, or selection of honeycomb pattern types. The
//current pattern is based on starting at the U and V min and drawing
//towards the U and V max. Basically a diagonal pattern.

//Set-up the UI
string $window = `window -w 500 -h 200 -title "Honeycomb Script" HoneycombWindow`;

columnLayout -adjustableColumn true;

floatSliderGrp -label "Number of Grid Points in the U Direction:"
-field true
-cw 1 200
-minValue 1
-maxValue 100
-v 10
-pre 0
-s 1
slider1;

floatSliderGrp -label "Number of Grid Points in the V Direction:"
-field true
-cw 1 200
-minValue 1
-maxValue 100
-v 10
-pre 0
-s 1
slider2;

text -label "Note: For closed surfaces, enter values that are multiples of 3" -align "left";
string $ProgressBar1 = `progressBar -maxValue 100 -width 300 ProgressBar1`;
string $ProgressBar2 = `progressBar -maxValue 100 -width 300 ProgressBar2`;

//Create the button.
//
string $button = `button -w 100 -label "Run" -c honeycomb`;

showWindow $window;




global proc honeycomb()
{
float $Udiv;
$Udiv = `floatSliderGrp -q -v slider1`;

float $Vdiv;
$Vdiv = `floatSliderGrp -q -v slider2`;



// Set the name for the selected surface.

string $object[]= `ls -sl`;
string $surface = $object[0];



//Here is where the user determines the number of divisions in the U and V directions.

//float $Udiv = 33;
//float $Vdiv = 21;


float $maxdiv = max($Udiv,$Vdiv);

progressBar -e -maxValue $maxdiv ProgressBar1;
progressBar -e -maxValue $maxdiv ProgressBar2;

//Establish the array of float values for both U and V divisions.

float $Uvalue[];
float $Vvalue[];

for ($i = 0; $i
$Uvalue[$i] = 1/$Udiv * $i;
print ("The value of U at " + $i + " is: " + $Uvalue[$i] + "\n");
}


for ($i = 0; $i $Vvalue[$i] = 1/$Vdiv * $i;
print ("The value of V at " + $i + " is: " + $Vvalue[$i] + "\n");
}

print("U array has a size of " + size($Uvalue) + ".\n" );
print("V array has a size of " + size($Vvalue) + ".\n" );


//Create the float array and the float variables that will dynamically contain the xyz coordinates of the grid points.

float $coord[3];
float $sx, $sy, $sz, $ex, $ey, $ez;
string $curveZero[];
string $curve1, $curve2, $curve3, $curve4;

//Begin loop for all DHDV-type curves (Diagonal/Horizontal/Diagonal/Vertical) on surface.


for ($i = 0; $i
progressBar -e -pr $i ProgressBar1;

int $u = 1;
int $v = $i+1;

//Create the starting curve of the polylineA_$i (Diagonal)

$coord = `pointOnSurface -u $Uvalue[0] -v $Vvalue[$i] -p $surface`;
$sx = $coord[0];
$sy = $coord[1];
$sz = $coord[2];
print ($Uvalue[0] + ", " + $Vvalue[$i] + "\n");

if (($u) > ($Udiv) || ($v) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u] -v $Vvalue[$v] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u] + ", " + $Vvalue[$v] + "\n");

$curveZero[$i] = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

$sx = $ex;
$sy = $ey;
$sz = $ez;


//Loop that completes polylineA_$i

while ($u
//check for range and then draw horizontal line

if (($v+1) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u] -v $Vvalue[$v+1] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u] + ", " + $Vvalue[$v+1] + "\n");

$curve1 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i] $curve1;
delete $curve1;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw diagonal line

if (($u+1) > ($Udiv) || ($v+2) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+1] -v $Vvalue[$v+2] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+1] + ", " + $Vvalue[$v+2] + "\n");

$curve2 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i] $curve2;
delete $curve2;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw vertical line

if (($u+2) > ($Udiv))break;

$coord = `pointOnSurface -u $Uvalue[$u+2] -v $Vvalue[$v+2] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+2] + ", " + $Vvalue[$v+2] + "\n");

$curve3 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i] $curve3;
delete $curve3;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw diagonal line

if (($u+3) > ($Udiv) || ($v+3) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+3] -v $Vvalue[$v+3] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+3] + ", " + $Vvalue[$v+3] + "\n");

$curve4 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i] $curve4;
delete $curve4;

$sx = $ex;
$sy = $ey;
$sz = $ez;

$u = ($u+3);
$v = ($v+3);


}

$u = 1;
$v = $i+2;

//Create the starting curve of the polylineB_$i (vertical)

if (($v) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[0] -v $Vvalue[$v] -p $surface`;
$sx = $coord[0];
$sy = $coord[1];
$sz = $coord[2];
print ($Uvalue[0] + ", " + $Vvalue[$v] + "\n");

if (($u) > ($Udiv)) break;
$coord = `pointOnSurface -u $Uvalue[$u] -v $Vvalue[$v] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u] + ", " + $Vvalue[$v] + "\n");

$curveZero[$i+1] = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

$sx = $ex;
$sy = $ey;
$sz = $ez;



//Loop that completes polylineB_$i



while ($u
//check for range and then draw diagonal line

if (($u+1) > ($Udiv) || ($v+1) > ($Vdiv))break;

$coord = `pointOnSurface -u $Uvalue[$u+1] -v $Vvalue[$v+1] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+1] + ", " + $Vvalue[$v+1] + "\n");

$curve1 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve1;
delete $curve1;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw horizontal line

if (($v+2) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+1] -v $Vvalue[$v+2] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+1] + ", " + $Vvalue[$v+2] + "\n");

$curve2 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve2;
delete $curve2;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw diagonal line

if (($u+2) > ($Udiv) || ($v+3) > ($Vdiv))break;

$coord = `pointOnSurface -u $Uvalue[$u+2] -v $Vvalue[$v+3] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+2] + ", " + $Vvalue[$v+3] + "\n");

$curve3 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve3;
delete $curve3;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw vertical line

if (($u+3) > ($Udiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+3] -v $Vvalue[$v+3] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+3] + ", " + $Vvalue[$v+3] + "\n");

$curve4 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve4;
delete $curve4;

$sx = $ex;
$sy = $ey;
$sz = $ez;

$u = ($u+3);
$v = ($v+3);


}

$u = 0;
$v = $i+2;

//Create the starting curve of the polylineC_$i (horizontal)

if (($v) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u] -v $Vvalue[$v] -p $surface`;
$sx = $coord[0];
$sy = $coord[1];
$sz = $coord[2];
print ($Uvalue[$u] + ", " + $Vvalue[$v] + "\n");

if (($v+1) > ($Vdiv)) break;
$coord = `pointOnSurface -u $Uvalue[$u] -v $Vvalue[$v+1] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u] + ", " + $Vvalue[$v+1] + "\n");

$curveZero[$i+1] = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

$sx = $ex;
$sy = $ey;
$sz = $ez;



//Loop that completes polylineC_$i



while ($u
//check for range and then draw diagonal line

if (($u+1) > ($Udiv) || ($v+2) > ($Vdiv))break;

$coord = `pointOnSurface -u $Uvalue[$u+1] -v $Vvalue[$v+2] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+1] + ", " + $Vvalue[$v+2] + "\n");

$curve1 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve1;
delete $curve1;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw vertical line

if (($u+2) > ($Udiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+2] -v $Vvalue[$v+2] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+2] + ", " + $Vvalue[$v+2] + "\n");

$curve2 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve2;
delete $curve2;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw diagonal line

if (($u+3) > ($Udiv) || ($v+3) > ($Vdiv))break;

$coord = `pointOnSurface -u $Uvalue[$u+3] -v $Vvalue[$v+3] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+3] + ", " + $Vvalue[$v+3] + "\n");

$curve3 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve3;
delete $curve3;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw horizontal line

if (($v+4) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+3] -v $Vvalue[$v+4] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+3] + ", " + $Vvalue[$v+4] + "\n");

$curve4 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve4;
delete $curve4;

$sx = $ex;
$sy = $ey;
$sz = $ez;

$u = ($u+3);
$v = ($v+3);


}




}




//Begin loop for all DVDH-type curves (Diagonal/Vertical/Diagonal/Horizontal) on surface.


for ($i = 0; $i
progressBar -e -pr $i ProgressBar2;

int $u = $i+1;
int $v = 1;

//Create the starting curve of the polylineA_$i (Diagonal)

$coord = `pointOnSurface -u $Uvalue[$i] -v $Vvalue[0] -p $surface`;
$sx = $coord[0];
$sy = $coord[1];
$sz = $coord[2];
print ($Uvalue[$i] + ", " + $Vvalue[0] + "\n");

if (($u) > ($Udiv) || ($v) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u] -v $Vvalue[$v] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u] + ", " + $Vvalue[$v] + "\n");

$curveZero[$i] = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

$sx = $ex;
$sy = $ey;
$sz = $ez;


//Loop that completes polylineA_$i

while ($u
//check for range and then draw horizontal line

if (($u+1) > ($Udiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+1] -v $Vvalue[$v] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+1] + ", " + $Vvalue[$v] + "\n");

$curve1 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i] $curve1;
delete $curve1;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw diagonal line

if (($u+2) > ($Udiv) || ($v+1) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+2] -v $Vvalue[$v+1] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+2] + ", " + $Vvalue[$v+1] + "\n");

$curve2 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i] $curve2;
delete $curve2;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw vertical line

if (($u+2) > ($Udiv))break;

$coord = `pointOnSurface -u $Uvalue[$u+2] -v $Vvalue[$v+2] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+2] + ", " + $Vvalue[$v+2] + "\n");

$curve3 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i] $curve3;
delete $curve3;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw diagonal line

if (($u+3) > ($Udiv) || ($v+3) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+3] -v $Vvalue[$v+3] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+3] + ", " + $Vvalue[$v+3] + "\n");

$curve4 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i] $curve4;
delete $curve4;

$sx = $ex;
$sy = $ey;
$sz = $ez;

$u = ($u+3);
$v = ($v+3);


}

$u = $i+2;
$v = 1;

//Create the starting curve of the polylineB_$i (horizontal)

if (($u) > ($Udiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u] -v $Vvalue[0] -p $surface`;
$sx = $coord[0];
$sy = $coord[1];
$sz = $coord[2];
print ($Uvalue[$v] + ", " + $Vvalue[0] + "\n");

if (($v) > ($Vdiv)) break;
$coord = `pointOnSurface -u $Uvalue[$u] -v $Vvalue[$v] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u] + ", " + $Vvalue[$v] + "\n");

$curveZero[$i+1] = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

$sx = $ex;
$sy = $ey;
$sz = $ez;



//Loop that completes polylineB_$i



while ($u
//check for range and then draw diagonal line

if (($u+1) > ($Udiv) || ($v+1) > ($Vdiv))break;

$coord = `pointOnSurface -u $Uvalue[$u+1] -v $Vvalue[$v+1] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+1] + ", " + $Vvalue[$v+1] + "\n");

$curve1 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve1;
delete $curve1;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw vertical line

if (($u+2) > ($Udiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+2] -v $Vvalue[$v+1] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+2] + ", " + $Vvalue[$v+1] + "\n");

$curve2 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve2;
delete $curve2;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw diagonal line

if (($u+3) > ($Udiv) || ($v+2) > ($Vdiv))break;

$coord = `pointOnSurface -u $Uvalue[$u+3] -v $Vvalue[$v+2] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+3] + ", " + $Vvalue[$v+2] + "\n");

$curve3 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve3;
delete $curve3;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw horizontal line

if (($v+3) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+3] -v $Vvalue[$v+3] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+3] + ", " + $Vvalue[$v+3] + "\n");

$curve4 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve4;
delete $curve4;

$sx = $ex;
$sy = $ey;
$sz = $ez;

$u = ($u+3);
$v = ($v+3);


}

$u = $i+2;
$v = 0;

//Create the starting curve of the polylineC_$i (vertical)

if (($u) > ($Udiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u] -v $Vvalue[$v] -p $surface`;
$sx = $coord[0];
$sy = $coord[1];
$sz = $coord[2];
print ($Uvalue[$u] + ", " + $Vvalue[$v] + "\n");

if (($u+1) > ($Udiv)) break;
$coord = `pointOnSurface -u $Uvalue[$u+1] -v $Vvalue[$v] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+1] + ", " + $Vvalue[$v] + "\n");

$curveZero[$i+1] = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

$sx = $ex;
$sy = $ey;
$sz = $ez;



//Loop that completes polylineC_$i



while ($u
//check for range and then draw diagonal line

if (($u+2) > ($Udiv) || ($v+1) > ($Vdiv))break;

$coord = `pointOnSurface -u $Uvalue[$u+2] -v $Vvalue[$v+1] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+2] + ", " + $Vvalue[$v+1] + "\n");

$curve1 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve1;
delete $curve1;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw horizontal line

if (($v+2) > ($Vdiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+2] -v $Vvalue[$v+2] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+2] + ", " + $Vvalue[$v+2] + "\n");

$curve2 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve2;
delete $curve2;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw diagonal line

if (($u+3) > ($Udiv) || ($v+3) > ($Vdiv))break;

$coord = `pointOnSurface -u $Uvalue[$u+3] -v $Vvalue[$v+3] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+3] + ", " + $Vvalue[$v+3] + "\n");

$curve3 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve3;
delete $curve3;

$sx = $ex;
$sy = $ey;
$sz = $ez;

//check for range and then draw vertical line

if (($u+4) > ($Udiv)) break;

$coord = `pointOnSurface -u $Uvalue[$u+4] -v $Vvalue[$v+3] -p $surface`;
$ex = $coord[0];
$ey = $coord[1];
$ez = $coord[2];
print ($Uvalue[$u+4] + ", " + $Vvalue[$v+3] + "\n");

$curve4 = `curve -d 1 -p $sx $sy $sz -p $ex $ey $ez`;

attachCurve $curveZero[$i+1] $curve4;
delete $curve4;

$sx = $ex;
$sy = $ey;
$sz = $ez;

$u = ($u+3);
$v = ($v+3);


}


}
}