Changeset 1985 for branches/blt4/gui/scripts/heightmapviewer.tcl

Timestamp:

Dec 8, 2010, 2:47:15 PM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/heightmapviewer.tcl (modified) (6 diffs)

branches/blt4/gui/scripts/heightmapviewer.tcl

@@ -103 +103 @@
     private variable _resizePending 0
     private variable _resizeLegendPending 0
+    private variable _frame 0;          # Current frame number. 
 }
 
@@ -508 +509 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::HeightmapViewer::Connect {} {
+    global readyForNextFrame
+    set readyForNextFrame 1
     Disconnect
     set _hosts [GetServerList "nanovis"]
@@ -529 +532 @@
     set _outbuf ""
     # disconnected -- no more data sitting on server
+    global readyForNextFrame
+    set readyForNextFrame 1
 }
 
@@ -557 +562 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::HeightmapViewer::ReceiveImage { args } {
+    global readyForNextFrame
+    set readyForNextFrame 1
     if {![IsConnected]} {
         return
@@ -565 +572 @@
     array set info $args
     set bytes [ReceiveBytes $info(-bytes)]
-    ReceiveEcho <<line "<read $info(-bytes) bytes"
+    ReceiveEcho <<line "<read $info(-bytes) bytes args=$args"
+ puts stderr "<read $info(-bytes) bytes"
     if { $info(-type) == "image" } {
         $_image(plot) configure -data $bytes
         ReceiveEcho <<line "<read for [image width $_image(plot)]x[image height $_image(plot)] image>"
+ puts stderr "<read for [image width $_image(plot)]x[image height $_image(plot)] image>"
     } elseif { $info(type) == "print" } {
         set tag $this-print-$info(-token)
@@ -727 +736 @@
     SendBytes $_outbuf;                 
     blt::busy release $itk_component(hull)
+
+    # The "readyForNextFrame" variable throttles the sequence play rate.
+    global readyForNextFrame
+    set readyForNextFrame 0;            # Don't advance to the next frame
+                                        # until we get an image.
     set _buffering 0;                   # Turn off buffering.
     set _outbuf "";                     # Clear the buffer.