Cl_spiral.mel

[index]

27th March 2009   8:9pm 38sec
C:\Work\vsfx705\mel\Cl_spiral.mel

Spiral - sphere and cube

select -all;
delete;
  
//global proc chee1 ()
//{
//for($n = 1; $n <= 100; $n++) {
//    polySphere;
//    scale     1 1 1;
//    move     ($n * 0.5) 0 ($n * 0.5);
//    rotate     //-pivot 0 0 0 
    //        -os 
        //    0 0 ($n * 5);
    
//    xform     -absolute
        //    -t $n 0 0
        //    -s (1.0/$n) 1 1
        //    -ro 0 0 ($n * 10);
            
//}
//}
  
  
global proc chee2 ()
{
  
  
//sipral sphere    
for($n = 1; $n <= 50; $n++) {
    polyCube;
    scale   10 0.2 0.2;
    move     ($n * 0.2) 0 ($n*0.1);
    rotate     -pivot 0 0 0 
            0 0 ($n * 20);
    polySphere;
    scale     1 1 1;
    move     ($n * 0.2) 0 ($n*0.1);
    rotate     -pivot 0 0 0 
            0 0 ($n * 20);
    
    //xform     -absolute
        //    -t $n 0 0
        //    -s (1.0/$n) 1 1
        //    -ro 0 0 ($n * 10);
            
    }
}
  
//execute procedures
  
//chee1;
chee2;