Changeset 1509
- Timestamp:
- Jun 10, 2009, 7:05:48 PM (15 years ago)
- Location:
- trunk/gui/scripts
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/flowhints.tcl
r1498 r1509 215 215 if { [string is boolean $value] } { 216 216 upvar $varName bool 217 set bool $value217 set bool [expr $value ? 1 : 0] 218 218 return 219 219 } -
trunk/gui/scripts/flowvisviewer.tcl
r1507 r1509 1171 1171 } 1172 1172 1173 if 0 { 1174 # in the midst of sending data? then bail out 1175 if {[llength $_sendobjs] > 0} { 1176 $_dispatcher event -idle !rebuild 1177 return 1178 } 1179 } 1173 set _first "" 1180 1174 # Turn on buffering of commands to the server. We don't want to 1181 1175 # be preempted by a server disconnect/reconnect (which automatically … … 1210 1204 } 1211 1205 } 1212 set _sendobjs "" 1213 1214 # 1206 1207 set _first [lindex [get] 0] 1208 1215 1209 # Reset the camera and other view parameters 1216 #1217 1210 FixSettings isosurface 1218 1211 FixSettings grid … … 1222 1215 FixSettings light 1223 1216 FixSettings transp 1217 1224 1218 # nothing to send -- activate the proper volume 1225 set _first [lindex [get] 0]1226 1219 if {"" != $_first} { 1227 1220 FixSettings light … … 1252 1245 NameTransferFunc $dataobj $comp 1253 1246 } 1254 }1255 1256 if {[llength $_sendobjs] > 0} {1257 # send off new data objects1258 $_dispatcher event -idle !send_dataobjs1259 puts stderr "more sendobjs "1260 return1261 1247 } 1262 1248 … … 2950 2936 set min [expr floor($value / 60000.0)] 2951 2937 set sec [expr ($value - ($min*60000.0)) / 1000.0] 2952 #puts stderr "min=$min sec=$sec"2953 2938 return [format %02d:%02d [expr round($min)] [expr round($sec)]] 2954 2939 } -
trunk/gui/scripts/unirect3d.tcl
r1496 r1509 94 94 # ---------------------------------------------------------------------- 95 95 itcl::body Rappture::Unirect3d::blob {} { 96 set time [time { 96 97 lappend data "unirect3d" 97 98 lappend data "xmin" $_xMin "xmax" $_xMax "xnum" $_xNum … … 103 104 lappend data "values" [$_values range 0 end] 104 105 } 105 return "@@RP-ENC:raw\n$data" 106 }] 107 puts stderr blob7=$time 108 return $data 106 109 #return [Rappture::encoding::encode -as b64 "$data"] 107 110 }
Note: See TracChangeset
for help on using the changeset viewer.