Simple Rib Writing Code

//create shave rib file
global proc myShaveWriteProcedure()
{
    int $f;
    
    for ($f =1; $f <=25; $f++) 
    { 
        currentTime $f;
        string $writeCmd ="shaveWriteRib -frame "+ $f +" ("+"\"D:\\file."+ $f +".rib\""+")";
        eval($writeCmd);
     }
}

global proc myShaveWindow()
{

    window -height 90-width 320;
    rowLayout -columnWidth3 8010080-height 64-numberOfColumns 3-width 312;
    text -height 17-label "Frames"-width 80;
    floatField -height 23-maxValue 1000-minValue 1-value 1-width 100;
    button -command "myShaveWriteProcedure"-height 28-label "Rib It"-width 80;
    showWindow;
}