| 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 |
| | |