Changeset 3663 for trunk/gui/src/RpPdbToVtk.c

Timestamp:

May 18, 2013 6:56:22 AM (11 years ago)

Author:

gah

Message:

fix vtkviewer to wait for sequences

File:

• trunk/gui/src/RpPdbToVtk.c (modified) (6 diffs)

trunk/gui/src/RpPdbToVtk.c

@@ -333 +333 @@
            Tcl_Obj *const *objv) 
 {
-    Tcl_Obj *objPtr, *pointsObjPtr, *atomsObjPtr;
+    Tcl_Obj *objPtr, *pointsObjPtr, *atomsObjPtr, *verticesObjPtr;
     char *p, *pend;
     char *string;
@@ -354 +354 @@
     pointsObjPtr = Tcl_NewStringObj("", -1);
     atomsObjPtr = Tcl_NewStringObj("", -1);
+    verticesObjPtr = Tcl_NewStringObj("", -1);
     Tcl_IncrRefCount(pointsObjPtr);
     Tcl_IncrRefCount(atomsObjPtr);
+    Tcl_IncrRefCount(verticesObjPtr);
     objPtr = NULL;
     for (p = string, pend = p + length; p < pend; /*empty*/) {
@@ -393 +395 @@
             }
             Tcl_SetHashValue(hPtr, numAtoms);
+            Tcl_ListObjAppendElement(interp, verticesObjPtr, 
+                                     Tcl_NewIntObj(1));
+            Tcl_ListObjAppendElement(interp, verticesObjPtr, 
+                                     Tcl_NewIntObj(serial));
 
             strncpy(atomName, line + 12, 4);
@@ -464 +470 @@
     Tcl_AppendToObj(objPtr, mesg, -1);
     for (i = 0; i < numAtoms; i++) {
-        sprintf(mesg, "1 %d\n", i);
+        sprintf(mesg, " 1 %d\n", i);
         Tcl_AppendToObj(objPtr, mesg, -1);
     }
-    sprintf(mesg, "\n");
-
     sprintf(mesg, "POINT_DATA %d\n", numAtoms);
     Tcl_AppendToObj(objPtr, mesg, -1);
@@ -479 +483 @@
     Tcl_DecrRefCount(pointsObjPtr);
     Tcl_DecrRefCount(atomsObjPtr);
+    Tcl_DecrRefCount(verticesObjPtr);
     if (objPtr != NULL) {
         Tcl_SetObjResult(interp, objPtr);
@@ -487 +492 @@
     Tcl_DecrRefCount(pointsObjPtr);
     Tcl_DecrRefCount(atomsObjPtr);
+    Tcl_DecrRefCount(verticesObjPtr);
     return TCL_ERROR;
 }