MEL 正規分布を応用して山モデルを作る

global proc makeMountain(float $repeatNum, 

                         float $offsetMax,

                         float $scaleMax,

                         float $varMax)

{

  int $i, $j;

  float $x, $z;

  float $offset_y, $offset_x[], $offset_z[];

  float $scale[], $var[];

  string $vtxName;

  

  for($j=0; $j<$repeatNum; $j++){

    $offset_x[$j] = rand(-$offsetMax, $offsetMax);

    $offset_z[$j] = rand(-$offsetMax, $offsetMax);

    $scale[$j] = rand(0.1, $scaleMax);

    $var[$j] = rand(0.1, $varMax);

  }

  string $sels[] = `ls -sl`;

  string $pl = $sels[0];

  vector $v_all[]=`xform -q -ws -t ($pl+".vtx[*]")`;

  $i=0;

  for($pos in $v_all){

    $pos_y = $pos.y;

    for($j=0; $j<$repeatNum; $j++){

      $x = $pos.x+$offset_x[$j];

      $z = $pos.z+$offset_z[$j];

      $pos_y+=exp(-$z*$z/$var[$j])

                *exp(-$x*$x/$var[$j])*$scale[$j];

    }

    $vtx = $plane+".vtx["+$i+"]";

    xform -ws -t ($pos.x) $pos_y ($pos.z) $vtx;

    $i++;

  }

}