Maya Mel 循环生成高脚杯

第一真正意义上的mell 建模程序，实现了循环生成30个高脚杯。

下面是实现高脚杯的参数化，生成各式各样的高脚杯=_=

代码：

global proc main()
{
    int $i = 0;
    int $j = 0;
    for($j=0;$j<3;++$j)
    {
        for($i=1;$i<=10;++$i)
        {
            gaoJiaoBeiProduced();
            //print("resolved"+);
            select -r ("revolvedSurface"+($i+$j*10));
            move -r ($i*3) 0 ($j*10);
        }    
    }
}

proc gaoJiaoBeiProduced()
{
    curve -d 3 -p 0.0310845 2.187763 0 -p 0.32588 2.174946 0 -p 0.659127 2.226215 0 -p 0.877019 2.303118 0 -p 0.889836 2.52101 0 -p 0.684761 2.597913 0 -p 0.530955 2.597913 0 -p 0.287428 2.661999 0 -p 0.146439 2.790171 0 -p 0.0823532 3.290041 0 -p 0.0951704 3.75146 0 -p 0.107988 4.392319 0 -p 0.172073 4.866555 0 -p 0.223342 5.033178 0 -p 0.454052 5.212619 0 -p 0.73603 5.507414 0 -p 1.005191 5.815027 0 -p 1.120545 6.199542 0 -p 1.120545 6.789133 0 -p 1.043642 7.404358 0 -p 0.953922 7.852959 0 -p 0.851384 8.340012 0 -p 0.812933 8.340012 0 -p 0.774481 8.340012 0 -p 0.800116 8.275926 0 -p 0.838567 8.134937 0 -p 0.877019 7.955496 0 -p 0.91547 7.840142 0 -p 0.928287 7.647884 0 -p 0.966739 7.481261 0 -p 0.966739 7.327454 0 -p 1.018008 7.148014 0 -p 1.030825 6.98139 0 -p 1.056459 6.750681 0 -p 1.056459 6.558423 0 -p 1.005191 6.327714 0 -p 0.953922 6.007284 0 -p 0.851384 5.789392 0 -p 0.607858 5.597134 0 -p 0.377148 5.533049 0 -p 0.197708 5.507414 0 -p 0.0182673 5.468963 0 -k 0 -k 0 -k 0 -k 1 -k 2 -k 3 -k 4 -k 5 -k 6 -k 7 -k 8 -k 9 -k 10 -k 11 -k 12 -k 13 -k 14 -k 15 -k 16 -k 17 -k 18 -k 19 -k 20 -k 21 -k 22 -k 23 -k 24 -k 25 -k 26 -k 27 -k 28 -k 29 -k 30 -k 31 -k 32 -k 33 -k 34 -k 35 -k 36 -k 37 -k 38 -k 39 -k 39 -k 39 ;
    select -r curve1.cv[41] ;
    move -r -x -0.0182673 ;
    SnapToGrid; dR_enterForSnap;
    select -r curve1.cv[0] ;
    move -r -x -0.0310845 ;
    SnapToGrid; dR_enterForSnap;
    select -r curve1 ;
    revolve  -ch 1 -po 0 -rn 0 -ssw 0 -esw 360 -ut 0 -tol 0.01 -degree 3 -s 8 -ulp 1 -ax 0 1 0 "curve1";
    // 结果: revolvedSurface1 revolve1 // 
    select -cl  ;
    select -r curve1 revolvedSurface1 ;
    select -d revolvedSurface1 ;
    doDelete;
}
main

效果：