Changeset 1429 for trunk/packages/vizservers/nanovis/Command.cpp

Timestamp:

May 11, 2009, 4:39:13 PM (15 years ago)

Author:

gah

Message:

Initial commit of new flow visualization command structure

File:

• trunk/packages/vizservers/nanovis/Command.cpp (modified) (8 diffs)

trunk/packages/vizservers/nanovis/Command.cpp

@@ -141 +141 @@
 static Tcl_ObjCmdProc CameraCmd;
 static Tcl_ObjCmdProc CutplaneCmd;
-static Tcl_ObjCmdProc FlowCmd;
+extern Tcl_AppInitProc FlowCmdInitProc;
 static Tcl_ObjCmdProc GridCmd;
 static Tcl_ObjCmdProc LegendCmd;
@@ -1725 +1725 @@
 // ========================= VOLUME END ==================================
 
+#ifdef notdef
 // ============================= FLOW ==================================
 
@@ -1957 +1958 @@
         return TCL_ERROR;
     }
-    NanoVis::lic_on = state;
+    /* NanoVis::lic_on = state; */
     return TCL_OK;
 }
@@ -1973 +1974 @@
         return TCL_ERROR;
     }
+#ifdef notdef
     switch (axis) {
     case 0 :
@@ -1984 +1986 @@
         break;
     }
+#endif
     return TCL_OK;
 }
@@ -2053 +2056 @@
     }
 
-    NanoVis::particle_on = state;
+    /* NanoVis::particle_on = state; */
     return TCL_OK;
 }
@@ -2199 +2202 @@
 
 // ============================ FLOW END ==================================
+#endif
 
 static int
@@ -2832 +2836 @@
     Tcl_Interp *interp;
     interp = Tcl_CreateInterp();
+    /*
     Tcl_MakeSafe(interp);
-
+    */
     Tcl_CreateObjCommand(interp, "axis",        AxisCmd,        NULL, NULL);
     Tcl_CreateObjCommand(interp, "camera",      CameraCmd,      NULL, NULL);
     Tcl_CreateObjCommand(interp, "cutplane",    CutplaneCmd,    NULL, NULL);
-    Tcl_CreateObjCommand(interp, "flow",        FlowCmd,        NULL, NULL);
+    if (FlowCmdInitProc(interp) != TCL_OK) {
+        return NULL;
+    }
     Tcl_CreateObjCommand(interp, "grid",        GridCmd,        NULL, NULL);
     Tcl_CreateObjCommand(interp, "heightmap",   HeightMapCmd,   NULL, NULL);