// Generated by Cutter v7.3.0 at 8:4:51 on the 3.3.2016.
// The source document on which this mel script is based is,
//    "/Users/malcolm/Documents/WebSite/FUNDZA_COM/cutter/rfm/runProgram/put_files_into_RfM_mel/runProgram.rman"
// Cutter software by Malcolm Kesson (all rights reserved).
//
// Pre Shape User Interface (UI) Mel Script
//
global proc runProgramUI() 
{
string $selected[] = `ls -sl`;
int $i;
  
for($i = 0; $i < size($selected); $i++ ) {
    string $shp[] = `listRelatives -shapes $selected[$i]`;
  
    // To add the UI implemented by this proc to the "Geometric
    // Settings" panel use the following mel commands,
    //        select rmanSettings;
    //        runProgramUI;
    // where "rmanSettings" might be rmanSettings1, rmanSettings2 etc.
    if(`nodeType $selected[$i]` == "RenderMan")
        $shp[0] = $selected[$i];
  
    string $shapeName = $shp[0];
    string $attr = `rmanGetAttrName "preShapeScript"`;
  
    // "Connect" to the mel script that calls 
    // Pixar's custom Ri mel procedures.
    rmanAddAttr $shapeName $attr "runProgramRI";
  
    $attr = `rmanGetAttrName "rp_helperApp"`;
    rmanAddAttr $shapeName $attr "";
    
    $attr = `rmanGetAttrName "rp_points_num"`;
    rmanAddAttr $shapeName $attr "500";
  
    $attr = `rmanGetAttrName "rp_points_width"`;
    rmanAddAttr $shapeName $attr "0.02";
  
    $attr = `rmanGetAttrName "rp_scatter_radius"`;
    rmanAddAttr $shapeName $attr "1";
  
    $attr = `rmanGetAttrName "rp_scatter_thickness"`;
    rmanAddAttr $shapeName $attr "0.1";
  
    }
}