|
To ground the palm branches (so they weren't just floating heads) A simple branch was added extending down from the base of the leaves. All the leaves were then parented to this branch and it's bottom was more the pivot point for future scales and rotations. The final palm generator code is shown at right.
In addtion the wind function had to be specially modified to only affect the middle points (leaving the outer point alone allows a sense of balance to be maintained while still creating a nice curve):
global proc vector[] branchwind (vector $pnts[], float $mag, float $magrand, float $exp)
{
vector $out[];
int $n;
int $length = size($pnts);
// float $magnitude=$mag*$magrand;
// float $exponent= $exp*$exprand;
float $exprand = rand($exp-1, $exp+1);
for($n = 0; $n < ($length-1); $n++){
// float $angle = dot($pnts[$n], <<1, 0, 0>>);
// $angle=abs($angle);
vector $temp = $pnts[$n];
float $u = (float) $n/$length;
float $zmag = $temp.z -$mag*$u+rand(-.5,.5)*$magrand*$u;
float $xmag = $temp.x -$mag*$u+rand(-.5,.5)*$magrand*$u;
$temp= << $xmag, $temp.y, $zmag >>;
$out[$n]= $temp;
}
$out[($length-1)]=$pnts[($length-1)];
return $out;
}
|
|
global proc palmer (int $numpoints, int $numleaves, float $leavesrand,
float $depthspread, float $leaflength, float $lengthrand,
float $leafthickness, float $branchlength,
float $branchthickness, float $thicknessrand,
int $uniformspacing, float $leafangle, float $anglerand,
float $gravity, float $gravityrand, float $gravityexp,
float $wind, float $windrand, float $windexp,int $numcopies,
int $usenurbs, int $usecolor, float $scalerand,
float $rotrand, int $palmspergroup)
{
int $palmgroupcounter = $palmspergroup ;
int $i,$n;
string $dagnodes[];
float $randmoveX=0;
float $randmoveZ=0;
float $randmoveY=0;
$dagnodes = `selectedNodes -dagObjects`;
string $palH= SlmPaletteUtils_CreatePalette("mine_all_mine");
string $appH= SlmPaletteUtils_AddShaderToPalette("plastic",$palH);
string $kdH= SlmParamUtils_GetPropertyNamed($appH,"Kd");
string $csH= SlmParamUtils_GetPropertyNamed($appH,"Cs");
//We'll use the apporpriate slim commands directly ourselves
slimcmd $kdH SetValue "1.0";
slimcmd $csH SetValue "{0.0 0.6 0.0}";
slimcmd $appH PreviewRender;
for ($i=0; $i<$numcopies; $i++)
{
vector $origin = <<0,0,0>>;
vector $leaf[];
vector $branch[];
$branch = subdivide($numpoints, $origin, << 0,(-1*$branchlength), 0 >> );
$branch = branchwind($branch, $wind, $windrand, $windexp);
string $original = drawCurve($branch, 3);
//mtor control attach surface `slimcmd apph GetID`;
string $shape[] = `listRelatives -s`;
addAttr -ln mtorCurveWidth
-dv $branchthickness
-k true $shape[0];
int $leafrandomizer = rand((-$numleaves/2),($numleaves/2))*$leavesrand;
float $anglerandomizer= rand((-$leafangle/2),($leafangle/2))*$anglerand;
float $combinedAngle = $leafangle + $anglerandomizer;
int $combinedNumber= $numleaves + $leafrandomizer;
vector $ends[];
if ($uniformspacing){
$ends= fan($combinedAngle, $leaflength,$combinedNumber);
}
else{
$ends= palmgen($leaflength, $combinedNumber, $depthspread);
}
for($n = 0; $n < $numleaves; $n++)
{
$leaf = subdivide($numpoints, $origin, $ends[$n]);
$leaf = gravitizer($leaf, $gravity, $gravityrand, $gravityexp);
$leaf = wind($leaf, $wind, $windrand, $windexp);
string $current = drawCurve($leaf, 3);
parent $current $original;
// RenderMan stuff...
// mtor control attach surface `slimcmd apph GetID`;
string $shape[] = `listRelatives -s`;
float $thickrandomizer=rand((-$leafthickness/2),($leafthickness/2))
*$thicknessrand;
$thickrandomizer += $leafthickness;
addAttr -ln mtorCurveWidth
-dv $branchthickness
-k true $shape[0];
}
pickWalk -d up;
// pickWalk -d up;
//hilite -r;
float $randu, $randv;
int $whichsurface = rand (0,size($dagnodes)-1);
if ($usenurbs && !$usecolor && $i==0) {
//set initial values if using NURBS surface
float $m[] = `pointOnSurface -u $randu -v $randv $dagnodes[$whichsurface]`;
$randmoveX=$m[0];
$randmoveZ=$m[2];
$randmoveY=$m[1];
}
else if ($usecolor && $i==0) //set initial values if using Colored surface
{
float $c[] = `colorAtPoint -o RGB -u .5 -v .5 "ramp1"`;
while ($c[1] ==0 || $c[0] > .2 || $c[2] >.2 || $c[2] > $c[1] || $c[0] >$c[1])
{
$randu=rand(0,1);
$randv=rand(0,1);
$whichsurface = rand (0,size($dagnodes)-1);
$c = `colorAtPoint -o RGB -u $randu -v $randv "ramp1"`;
}
$randmoveX=$c[0];
$randmoveZ=$c[2];
$randmoveY=$c[1];
}
if ($palmgroupcounter == 0) {
//break from current grouping to create a position for new group
$palmgroupcounter = $palmspergroup;
if ($usenurbs && !$usecolor) {
$randu=rand(0,1);
$randv=rand(0,1);
int $whichsurface = rand (0,size($dagnodes)-1);
float $m[] = `pointOnSurface -u $randu -v $randv $dagnodes[$whichsurface]`;
$randmoveX=$m[0];
$randmoveZ=$m[2];
$randmoveY=$m[1];
}
else if ($usecolor)
{
int $whichsurface = rand (0,size($dagnodes)-1);
// float $c[] = `colorAtPoint -o RGB -u .5 -v .5 $dagnodes[$whichsurface]`;
// createNode checker;
float $c[] = `colorAtPoint -o RGB -u .5 -v .5 "ramp1"`;
while ($c[1] ==0 || $c[0] > .2 || $c[2] >.2 || $c[2] > $c[1] || $c[0] >$c[1])
{
$randu=rand(0,1);
$randv=rand(0,1);
$whichsurface = rand (0,size($dagnodes)-1);
$c = `colorAtPoint -o RGB -u $randu -v $randv "ramp1"`;
}
$randmoveX=$c[0];
$randmoveZ=$c[2];
$randmoveY=$c[1];
}
else{
$randmoveX = rand(-12,12);
$randmoveZ = rand(-12,12);
// $randmoveY = rand(-2,2);
}
}
$palmgroupcounter=$palmgroupcounter-1;
float $randroty = rand (-180,180)*$rotrand;
float $randrotxz = rand (-60,60)*$rotrand;
float $randscale= 1+(rand (-.75,3)*$scalerand);
select $original;
xform -os -piv 0 (-$branchlength) 0;
move -r 0 $branchlength 0 $original;
move -r $randmoveX $randmoveY $randmoveZ;
rotate $randrotxz $randroty $randrotxz;
if ($randscale>0)
scale $randscale $randscale $randscale;
slimcmd slim Clear;
select $original;
mtor control attach surface `slimcmd $appH GetID`;
//mtor RenderSpool;
}
defaultDirectionalLight(1,1,1,1,"0",0,0,0);
rotate -45 0 0;
move 0 1 0;
}
|
An additional render of several palm clusters.... The placement of each is perfectly on the surface of the Nurbs plane, which sometimes causes oddities (like the branch that is sinking into the ground on the plant on the right because it has been rotated too far). 
A wider field of plants illustrates the potential for cg application, especially since renderman renderers curves very quickly (this render took about 8 seconds).