proc CreatACtrlOnJoint(float $radius,float $Offset,vector $Direction)
{
string $selJoint[] = `ls -sl`;
string $ctrlGroupname = $selJoint[0]+"_C_Group";
string $ctrlname = $selJoint[0]+"_C";
group -em -n ($ctrlGroupname);
circle -c ($Direction.x*$Offset) ($Direction.y*$Offset) ($Direction.z*$Offset) -r $radius -nr ($Direction.x) ($Direction.y) ($Direction.z) -n $ctrlname;
parent $ctrlname $ctrlGroupname;
matchTransform -pos -rot $ctrlGroupname $selJoint[0];
}