version 1.120 | version 1.121 |
---|
| |
| |
return TCL_OK; | return TCL_OK; |
} | } |
| |
| int ScriptTcl::Tcl_updateGridScale(ClientData clientData, |
| Tcl_Interp *interp, int argc, char *argv[]) { |
| ScriptTcl *script = (ScriptTcl *)clientData; |
| script->initcheck(); |
| |
| Vector scale(1.0f,1.0f,1.0f); |
| char *key = NULL; |
| if (argc == 4) { |
| // nothing ... key is NULL, then Node::updateGridScale uses the |
| // default key, which is used internally when the gridforce* |
| // keywords are used (as opposed to the mgridforce* keywords) |
| scale.x = atof( argv[1] ); |
| scale.y = atof( argv[2] ); |
| scale.z = atof( argv[3] ); |
| } else if (argc == 5) { |
| key = argv[1]; |
| scale.x = atof( argv[2] ); |
| scale.y = atof( argv[3] ); |
| scale.z = atof( argv[4] ); |
| } else { |
| Tcl_AppendResult(interp, "usage: updateGridforceGrid [<gridkey>] scaleX scaleY scaleZ", NULL); |
| return TCL_ERROR; |
| } |
| |
| //(CProxy_Node(CkpvAccess(BOCclass_group).node)).reloadGridforceGrid(key); |
| Node::Object()->updateGridScale(key,scale); |
| script->barrier(); |
| |
| return TCL_OK; |
| } |
// END gf | // END gf |
| |
int ScriptTcl::Tcl_reloadStructure(ClientData clientData, | int ScriptTcl::Tcl_reloadStructure(ClientData clientData, |
| |
// BEGIN gf | // BEGIN gf |
Tcl_CreateCommand(interp, "reloadGridforceGrid", Tcl_reloadGridforceGrid, | Tcl_CreateCommand(interp, "reloadGridforceGrid", Tcl_reloadGridforceGrid, |
(ClientData) this, (Tcl_CmdDeleteProc *) NULL); | (ClientData) this, (Tcl_CmdDeleteProc *) NULL); |
| Tcl_CreateCommand(interp, "updateGridScale", Tcl_updateGridScale, |
| (ClientData) this, (Tcl_CmdDeleteProc *) NULL); |
// END gf | // END gf |
#endif | #endif |
| |