// tcl wrapper for vtkTool object
//
#define VTK_STREAMS_FWD_ONLY
#include "vtkSystemIncludes.h"
#include "vtkTool.h"

#include "vtkTclUtil.h"
int vtkObjectCppCommand(vtkObject *op, Tcl_Interp *interp,
             int argc, char *argv[]);
int VTKTCL_EXPORT vtkToolCppCommand(vtkTool *op, Tcl_Interp *interp,
             int argc, char *argv[]);

int VTKTCL_EXPORT vtkToolCommand(ClientData cd, Tcl_Interp *interp,
             int argc, char *argv[])
{
  if ((argc == 2)&&(!strcmp("Delete",argv[1]))&& !vtkTclInDelete(interp))
    {
    Tcl_DeleteCommand(interp,argv[0]);
    return TCL_OK;
    }
   return vtkToolCppCommand((vtkTool *)(((vtkTclCommandArgStruct *)cd)->Pointer),interp, argc, argv);
}

int VTKTCL_EXPORT vtkToolCppCommand(vtkTool *op, Tcl_Interp *interp,
             int argc, char *argv[])
{
  int    tempi;
  double tempd;
  static char temps[80];
  int    error;

  error = 0; error = error;
  tempi = 0; tempi = tempi;
  tempd = 0; tempd = tempd;
  temps[0] = 0; temps[0] = temps[0];

  if (argc < 2)
    {
    Tcl_SetResult(interp, (char *) "Could not find requested method.", TCL_VOLATILE);
    return TCL_ERROR;
    }
  if (!interp)
    {
    if (!strcmp("DoTypecasting",argv[0]))
      {
      if (!strcmp("vtkTool",argv[1]))
        {
        argv[2] = (char *)((void *)op);
        return TCL_OK;
        }
      if (vtkObjectCppCommand((vtkObject *)op,interp,argc,argv) == TCL_OK)
        {
        return TCL_OK;
        }
      }
    return TCL_ERROR;
    }

  if (!strcmp("GetSuperClassName",argv[1]))
    {
    Tcl_SetResult(interp,(char *) "vtkObject", TCL_VOLATILE);
    return TCL_OK;
    }

  if ((!strcmp("GetClassName",argv[1]))&&(argc == 2))
    {
    const char    *temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetClassName();
      if (temp20)
        {
        Tcl_SetResult(interp, (char*)temp20, TCL_VOLATILE);
        }
      else
        {
        Tcl_ResetResult(interp);
        }
      return TCL_OK;
      }
    }
  if ((!strcmp("IsA",argv[1]))&&(argc == 3))
    {
    char    *temp0;
    int      temp20;
    error = 0;

    temp0 = argv[2];
    if (!error)
      {
      temp20 = (op)->IsA(temp0);
      char tempResult[1024];
      sprintf(tempResult,"%i",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("NewInstance",argv[1]))&&(argc == 2))
    {
    vtkTool  *temp20;
    int vtkToolCommand(ClientData, Tcl_Interp *, int, char *[]);
    error = 0;

    if (!error)
      {
      temp20 = (op)->NewInstance();
      vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkToolCommand);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetClassName",argv[1]))&&(argc == 2))
    {
    const char    *temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetClassName();
      if (temp20)
        {
        Tcl_SetResult(interp, (char*)temp20, TCL_VOLATILE);
        }
      else
        {
        Tcl_ResetResult(interp);
        }
      return TCL_OK;
      }
    }
  if ((!strcmp("SetPathToModel",argv[1]))&&(argc == 3))
    {
    char    *temp0;
    error = 0;

    temp0 = argv[2];
    if (!error)
      {
      op->SetPathToModel(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetPathToModel",argv[1]))&&(argc == 2))
    {
    char    *temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetPathToModel();
      if (temp20)
        {
        Tcl_SetResult(interp, (char*)temp20, TCL_VOLATILE);
        }
      else
        {
        Tcl_ResetResult(interp);
        }
      return TCL_OK;
      }
    }
  if ((!strcmp("SetPathToStick",argv[1]))&&(argc == 3))
    {
    char    *temp0;
    error = 0;

    temp0 = argv[2];
    if (!error)
      {
      op->SetPathToStick(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetPathToStick",argv[1]))&&(argc == 2))
    {
    char    *temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetPathToStick();
      if (temp20)
        {
        Tcl_SetResult(interp, (char*)temp20, TCL_VOLATILE);
        }
      else
        {
        Tcl_ResetResult(interp);
        }
      return TCL_OK;
      }
    }
  if ((!strcmp("SetId",argv[1]))&&(argc == 3))
    {
    long     temp0;
    error = 0;

    if (Tcl_GetInt(interp,argv[2],&tempi) != TCL_OK) error = 1;
    temp0 = tempi;
    if (!error)
      {
      op->SetId(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetCollisionModel",argv[1]))&&(argc == 2))
    {
    vtkModeloHerramienta  *temp20;
    int vtkModeloHerramientaCommand(ClientData, Tcl_Interp *, int, char *[]);
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetCollisionModel();
      vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkModeloHerramientaCommand);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetId",argv[1]))&&(argc == 2))
    {
    long     temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetId();
      char tempResult[1024];
      sprintf(tempResult,"%li",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetTieneHojasChar",argv[1]))&&(argc == 2))
    {
    const char    *temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetTieneHojasChar();
      if (temp20)
        {
        Tcl_SetResult(interp, (char*)temp20, TCL_VOLATILE);
        }
      else
        {
        Tcl_ResetResult(interp);
        }
      return TCL_OK;
      }
    }
  if ((!strcmp("SetRadius",argv[1]))&&(argc == 3))
    {
    float    temp0;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (!error)
      {
      op->SetRadius(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetRadius",argv[1]))&&(argc == 2))
    {
    float    temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetRadius();
      char tempResult[1024];
      sprintf(tempResult,"%g",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("SetEntryPoint",argv[1]))&&(argc == 5))
    {
    float    temp0;
    float    temp1;
    float    temp2;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (Tcl_GetDouble(interp,argv[3],&tempd) != TCL_OK) error = 1;
    temp1 = tempd;
    if (Tcl_GetDouble(interp,argv[4],&tempd) != TCL_OK) error = 1;
    temp2 = tempd;
    if (!error)
      {
      op->SetEntryPoint(temp0,temp1,temp2);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("SetInitPoint",argv[1]))&&(argc == 5))
    {
    float    temp0;
    float    temp1;
    float    temp2;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (Tcl_GetDouble(interp,argv[3],&tempd) != TCL_OK) error = 1;
    temp1 = tempd;
    if (Tcl_GetDouble(interp,argv[4],&tempd) != TCL_OK) error = 1;
    temp2 = tempd;
    if (!error)
      {
      op->SetInitPoint(temp0,temp1,temp2);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("SetOrientation",argv[1]))&&(argc == 6))
    {
    float    temp0;
    float    temp1;
    float    temp2;
    float    temp3;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (Tcl_GetDouble(interp,argv[3],&tempd) != TCL_OK) error = 1;
    temp1 = tempd;
    if (Tcl_GetDouble(interp,argv[4],&tempd) != TCL_OK) error = 1;
    temp2 = tempd;
    if (Tcl_GetDouble(interp,argv[5],&tempd) != TCL_OK) error = 1;
    temp3 = tempd;
    if (!error)
      {
      op->SetOrientation(temp0,temp1,temp2,temp3);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("Rotar",argv[1]))&&(argc == 3))
    {
    int      temp0;
    error = 0;

    if (Tcl_GetInt(interp,argv[2],&tempi) != TCL_OK) error = 1;
    temp0 = tempi;
    if (!error)
      {
      op->Rotar(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("Rotar",argv[1]))&&(argc == 3))
    {
    double   temp0;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (!error)
      {
      op->Rotar(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("InitializeTool3DSFile",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->InitializeTool3DSFile();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("InitializeToolVTKFile",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->InitializeToolVTKFile();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("updateCollisionModel",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->updateCollisionModel();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetTransform",argv[1]))&&(argc == 2))
    {
    vtkTransform  *temp20;
    int vtkTransformCommand(ClientData, Tcl_Interp *, int, char *[]);
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetTransform();
      vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkTransformCommand);
      return TCL_OK;
      }
    }
  if ((!strcmp("SetRenderWindow",argv[1]))&&(argc == 3))
    {
    vtkRenderWindow  *temp0;
    error = 0;

    temp0 = (vtkRenderWindow *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkRenderWindow",interp,error));
    if (!error)
      {
      op->SetRenderWindow(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetRenderWindow",argv[1]))&&(argc == 2))
    {
    vtkRenderWindow  *temp20;
    int vtkRenderWindowCommand(ClientData, Tcl_Interp *, int, char *[]);
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetRenderWindow();
      vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkRenderWindowCommand);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetColeccionDeModelos",argv[1]))&&(argc == 2))
    {
    vtkEsquiActorCollection  *temp20;
    int vtkEsquiActorCollectionCommand(ClientData, Tcl_Interp *, int, char *[]);
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetColeccionDeModelos();
      vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkEsquiActorCollectionCommand);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetHerramientaCompleta",argv[1]))&&(argc == 2))
    {
    vtkAssembly  *temp20;
    int vtkAssemblyCommand(ClientData, Tcl_Interp *, int, char *[]);
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetHerramientaCompleta();
      vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkAssemblyCommand);
      return TCL_OK;
      }
    }
  if ((!strcmp("InitialTransform3DS",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->InitialTransform3DS();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("InitialTransformVTK",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->InitialTransformVTK();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("getLastDirection",argv[1]))&&(argc == 5))
    {
    float  temp0[3];
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0[0] = tempd;
    if (Tcl_GetDouble(interp,argv[3],&tempd) != TCL_OK) error = 1;
    temp0[1] = tempd;
    if (Tcl_GetDouble(interp,argv[4],&tempd) != TCL_OK) error = 1;
    temp0[2] = tempd;
    if (!error)
      {
      op->getLastDirection(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("ClearContacts",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->ClearContacts();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("addContact",argv[1]))&&(argc == 3))
    {
    vtkContact  *temp0;
    error = 0;

    temp0 = (vtkContact *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkContact",interp,error));
    if (!error)
      {
      op->addContact(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("Abrir",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->Abrir();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("Cerrar",argv[1]))&&(argc == 2))
    {
    error = 0;

    if (!error)
      {
      op->Cerrar();
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("ActualizaApertura",argv[1]))&&(argc == 3))
    {
    double   temp0;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (!error)
      {
      op->ActualizaApertura(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("SetPinzaApertura",argv[1]))&&(argc == 3))
    {
    double   temp0;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (!error)
      {
      op->SetPinzaApertura(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("SetToolDepthPosition",argv[1]))&&(argc == 3))
    {
    double   temp0;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (!error)
      {
      op->SetToolDepthPosition(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("SetToolRotation",argv[1]))&&(argc == 3))
    {
    double   temp0;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (!error)
      {
      op->SetToolRotation(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("SetToolLateralRotation",argv[1]))&&(argc == 4))
    {
    double   temp0;
    double   temp1;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (Tcl_GetDouble(interp,argv[3],&tempd) != TCL_OK) error = 1;
    temp1 = tempd;
    if (!error)
      {
      op->SetToolLateralRotation(temp0,temp1);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("SetToolAperture",argv[1]))&&(argc == 3))
    {
    double   temp0;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (!error)
      {
      op->SetToolAperture(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetPinza1",argv[1]))&&(argc == 2))
    {
    vtkActor  *temp20;
    int vtkActorCommand(ClientData, Tcl_Interp *, int, char *[]);
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetPinza1();
      vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkActorCommand);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetPinza2",argv[1]))&&(argc == 2))
    {
    vtkActor  *temp20;
    int vtkActorCommand(ClientData, Tcl_Interp *, int, char *[]);
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetPinza2();
      vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkActorCommand);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetEstaticas",argv[1]))&&(argc == 2))
    {
    vtkAssembly  *temp20;
    int vtkAssemblyCommand(ClientData, Tcl_Interp *, int, char *[]);
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetEstaticas();
      vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkAssemblyCommand);
      return TCL_OK;
      }
    }
  if ((!strcmp("GetToolLength",argv[1]))&&(argc == 2))
    {
    double   temp20;
    error = 0;

    if (!error)
      {
      temp20 = (op)->GetToolLength();
      char tempResult[1024];
      sprintf(tempResult,"%g",temp20);
      Tcl_SetResult(interp, tempResult, TCL_VOLATILE);
      return TCL_OK;
      }
    }
  if ((!strcmp("Yaw",argv[1]))&&(argc == 3))
    {
    float    temp0;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (!error)
      {
      op->Yaw(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("Pitch",argv[1]))&&(argc == 3))
    {
    float    temp0;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (!error)
      {
      op->Pitch(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("Forward",argv[1]))&&(argc == 3))
    {
    float    temp0;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (!error)
      {
      op->Forward(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("Backward",argv[1]))&&(argc == 3))
    {
    float    temp0;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (!error)
      {
      op->Backward(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }
  if ((!strcmp("Roll",argv[1]))&&(argc == 3))
    {
    float    temp0;
    error = 0;

    if (Tcl_GetDouble(interp,argv[2],&tempd) != TCL_OK) error = 1;
    temp0 = tempd;
    if (!error)
      {
      op->Roll(temp0);
      Tcl_ResetResult(interp);
      return TCL_OK;
      }
    }

  if (!strcmp("ListInstances",argv[1]))
    {
    vtkTclListInstances(interp,(ClientData)vtkToolCommand);
    return TCL_OK;
    }

  if (!strcmp("ListMethods",argv[1]))
    {
    vtkObjectCppCommand(op,interp,argc,argv);
    Tcl_AppendResult(interp,"Methods from vtkTool:\n",NULL);
    Tcl_AppendResult(interp,"  GetSuperClassName\n",NULL);
    Tcl_AppendResult(interp,"  GetClassName\n",NULL);
    Tcl_AppendResult(interp,"  IsA\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  NewInstance\n",NULL);
    Tcl_AppendResult(interp,"  GetClassName\n",NULL);
    Tcl_AppendResult(interp,"  SetPathToModel\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  GetPathToModel\n",NULL);
    Tcl_AppendResult(interp,"  SetPathToStick\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  GetPathToStick\n",NULL);
    Tcl_AppendResult(interp,"  SetId\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  GetCollisionModel\n",NULL);
    Tcl_AppendResult(interp,"  GetId\n",NULL);
    Tcl_AppendResult(interp,"  GetTieneHojasChar\n",NULL);
    Tcl_AppendResult(interp,"  SetRadius\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  GetRadius\n",NULL);
    Tcl_AppendResult(interp,"  SetEntryPoint\t with 3 args\n",NULL);
    Tcl_AppendResult(interp,"  SetInitPoint\t with 3 args\n",NULL);
    Tcl_AppendResult(interp,"  SetOrientation\t with 4 args\n",NULL);
    Tcl_AppendResult(interp,"  Rotar\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  Rotar\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  InitializeTool3DSFile\n",NULL);
    Tcl_AppendResult(interp,"  InitializeToolVTKFile\n",NULL);
    Tcl_AppendResult(interp,"  updateCollisionModel\n",NULL);
    Tcl_AppendResult(interp,"  GetTransform\n",NULL);
    Tcl_AppendResult(interp,"  SetRenderWindow\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  GetRenderWindow\n",NULL);
    Tcl_AppendResult(interp,"  GetColeccionDeModelos\n",NULL);
    Tcl_AppendResult(interp,"  GetHerramientaCompleta\n",NULL);
    Tcl_AppendResult(interp,"  InitialTransform3DS\n",NULL);
    Tcl_AppendResult(interp,"  InitialTransformVTK\n",NULL);
    Tcl_AppendResult(interp,"  getLastDirection\t with 3 args\n",NULL);
    Tcl_AppendResult(interp,"  ClearContacts\n",NULL);
    Tcl_AppendResult(interp,"  addContact\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  Abrir\n",NULL);
    Tcl_AppendResult(interp,"  Cerrar\n",NULL);
    Tcl_AppendResult(interp,"  ActualizaApertura\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  SetPinzaApertura\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  SetToolDepthPosition\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  SetToolRotation\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  SetToolLateralRotation\t with 2 args\n",NULL);
    Tcl_AppendResult(interp,"  SetToolAperture\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  GetPinza1\n",NULL);
    Tcl_AppendResult(interp,"  GetPinza2\n",NULL);
    Tcl_AppendResult(interp,"  GetEstaticas\n",NULL);
    Tcl_AppendResult(interp,"  GetToolLength\n",NULL);
    Tcl_AppendResult(interp,"  Yaw\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  Pitch\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  Forward\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  Backward\t with 1 arg\n",NULL);
    Tcl_AppendResult(interp,"  Roll\t with 1 arg\n",NULL);
    return TCL_OK;
    }

  if (vtkObjectCppCommand((vtkObject *)op,interp,argc,argv) == TCL_OK)
    {
    return TCL_OK;
    }

  if ((argc >= 2)&&(!strstr(interp->result,"Object named:")))
    {
    char temps2[256];
    sprintf(temps2,"Object named: %s, could not find requested method: %s\nor the method was called with incorrect arguments.\n",argv[0],argv[1]);
    Tcl_AppendResult(interp,temps2,NULL);
    }
  return TCL_ERROR;
}