// tcl wrapper for vtkColision object // #define VTK_STREAMS_FWD_ONLY #include "vtkSystemIncludes.h" #include "vtkColision.h" #include "vtkTclUtil.h" ClientData vtkColisionNewCommand() { vtkColision *temp = vtkColision::New(); return ((ClientData)temp); } int vtkObjectCppCommand(vtkObject *op, Tcl_Interp *interp, int argc, char *argv[]); int VTKTCL_EXPORT vtkColisionCppCommand(vtkColision *op, Tcl_Interp *interp, int argc, char *argv[]); int VTKTCL_EXPORT vtkColisionCommand(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 vtkColisionCppCommand((vtkColision *)(((vtkTclCommandArgStruct *)cd)->Pointer),interp, argc, argv); } int VTKTCL_EXPORT vtkColisionCppCommand(vtkColision *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("vtkColision",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)) { vtkColision *temp20; int vtkColisionCommand(ClientData, Tcl_Interp *, int, char *[]); error = 0; if (!error) { temp20 = (op)->NewInstance(); vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkColisionCommand); return TCL_OK; } } if ((!strcmp("SafeDownCast",argv[1]))&&(argc == 3)) { vtkObject *temp0; vtkColision *temp20; int vtkColisionCommand(ClientData, Tcl_Interp *, int, char *[]); error = 0; temp0 = (vtkObject *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkObject",interp,error)); if (!error) { temp20 = (op)->SafeDownCast(temp0); vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkColisionCommand); return TCL_OK; } } if ((!strcmp("New",argv[1]))&&(argc == 2)) { vtkColision *temp20; int vtkColisionCommand(ClientData, Tcl_Interp *, int, char *[]); error = 0; if (!error) { temp20 = (op)->New(); vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkColisionCommand); 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("SetRenderer",argv[1]))&&(argc == 3)) { vtkRenderer *temp0; error = 0; temp0 = (vtkRenderer *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkRenderer",interp,error)); if (!error) { op->SetRenderer(temp0); Tcl_ResetResult(interp); return TCL_OK; } } if ((!strcmp("Iniciar",argv[1]))&&(argc == 2)) { int temp20; error = 0; if (!error) { temp20 = (op)->Iniciar(); char tempResult[1024]; sprintf(tempResult,"%i",temp20); Tcl_SetResult(interp, tempResult, TCL_VOLATILE); return TCL_OK; } } if ((!strcmp("InitCollisions",argv[1]))&&(argc == 2)) { error = 0; if (!error) { op->InitCollisions(); Tcl_ResetResult(interp); return TCL_OK; } } if ((!strcmp("idPosiblesColisiones",argv[1]))&&(argc == 2)) { error = 0; if (!error) { op->idPosiblesColisiones(); Tcl_ResetResult(interp); return TCL_OK; } } if ((!strcmp("crearArbolesColision",argv[1]))&&(argc == 2)) { error = 0; if (!error) { op->crearArbolesColision(); Tcl_ResetResult(interp); return TCL_OK; } } if ((!strcmp("GetVectorDeColisiones",argv[1]))&&(argc == 2)) { vtkInfoColisionCollection *temp20; int vtkInfoColisionCollectionCommand(ClientData, Tcl_Interp *, int, char *[]); error = 0; if (!error) { temp20 = (op)->GetVectorDeColisiones(); vtkTclGetObjectFromPointer(interp,(void *)temp20,vtkInfoColisionCollectionCommand); return TCL_OK; } } if ((!strcmp("anadirDeformable",argv[1]))&&(argc == 3)) { vtkModeloDeformable *temp0; int temp20; error = 0; temp0 = (vtkModeloDeformable *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkModeloDeformable",interp,error)); if (!error) { temp20 = (op)->anadirDeformable(temp0); char tempResult[1024]; sprintf(tempResult,"%i",temp20); Tcl_SetResult(interp, tempResult, TCL_VOLATILE); return TCL_OK; } } if ((!strcmp("anadirHerramienta",argv[1]))&&(argc == 3)) { vtkModeloHerramienta *temp0; int temp20; error = 0; temp0 = (vtkModeloHerramienta *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkModeloHerramienta",interp,error)); if (!error) { temp20 = (op)->anadirHerramienta(temp0); char tempResult[1024]; sprintf(tempResult,"%i",temp20); Tcl_SetResult(interp, tempResult, TCL_VOLATILE); return TCL_OK; } } if ((!strcmp("anadirEstatico",argv[1]))&&(argc == 3)) { vtkModeloEstatico *temp0; int temp20; error = 0; temp0 = (vtkModeloEstatico *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkModeloEstatico",interp,error)); if (!error) { temp20 = (op)->anadirEstatico(temp0); char tempResult[1024]; sprintf(tempResult,"%i",temp20); Tcl_SetResult(interp, tempResult, TCL_VOLATILE); return TCL_OK; } } if ((!strcmp("anadirBola",argv[1]))&&(argc == 3)) { vtkEsfera *temp0; int temp20; error = 0; temp0 = (vtkEsfera *)(vtkTclGetPointerFromObject(argv[2],(char *) "vtkEsfera",interp,error)); if (!error) { temp20 = (op)->anadirBola(temp0); char tempResult[1024]; sprintf(tempResult,"%i",temp20); Tcl_SetResult(interp, tempResult, TCL_VOLATILE); return TCL_OK; } } if ((!strcmp("insertarHerramienta",argv[1]))&&(argc == 5)) { int temp0; vtkModeloHerramienta *temp1; int temp2; int temp20; error = 0; if (Tcl_GetInt(interp,argv[2],&tempi) != TCL_OK) error = 1; temp0 = tempi; temp1 = (vtkModeloHerramienta *)(vtkTclGetPointerFromObject(argv[3],(char *) "vtkModeloHerramienta",interp,error)); if (Tcl_GetInt(interp,argv[4],&tempi) != TCL_OK) error = 1; temp2 = tempi; if (!error) { temp20 = (op)->insertarHerramienta(temp0,temp1,temp2); char tempResult[1024]; sprintf(tempResult,"%i",temp20); Tcl_SetResult(interp, tempResult, TCL_VOLATILE); return TCL_OK; } } if (!strcmp("ListInstances",argv[1])) { vtkTclListInstances(interp,(ClientData)vtkColisionCommand); return TCL_OK; } if (!strcmp("ListMethods",argv[1])) { vtkObjectCppCommand(op,interp,argc,argv); Tcl_AppendResult(interp,"Methods from vtkColision:\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," SafeDownCast\t with 1 arg\n",NULL); Tcl_AppendResult(interp," New\n",NULL); Tcl_AppendResult(interp," GetClassName\n",NULL); Tcl_AppendResult(interp," SetRenderer\t with 1 arg\n",NULL); Tcl_AppendResult(interp," Iniciar\n",NULL); Tcl_AppendResult(interp," InitCollisions\n",NULL); Tcl_AppendResult(interp," idPosiblesColisiones\n",NULL); Tcl_AppendResult(interp," crearArbolesColision\n",NULL); Tcl_AppendResult(interp," GetVectorDeColisiones\n",NULL); Tcl_AppendResult(interp," anadirDeformable\t with 1 arg\n",NULL); Tcl_AppendResult(interp," anadirHerramienta\t with 1 arg\n",NULL); Tcl_AppendResult(interp," anadirEstatico\t with 1 arg\n",NULL); Tcl_AppendResult(interp," anadirBola\t with 1 arg\n",NULL); Tcl_AppendResult(interp," insertarHerramienta\t with 3 args\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; }