Changeset 4768


Ignore:
Timestamp:
Nov 23, 2014, 3:29:00 AM (10 years ago)
Author:
ldelgass
Message:

merge r4767 from trunk

Location:
branches/1.3
Files:
12 edited

Legend:

Unmodified
Added
Removed

  • branches/1.3

    • Property svn:mergeinfo changed
      /trunkmerged: 4767

  • branches/1.3/gui/scripts/flowvisviewer.tcl

    r4766 r4768  
    11601160            # I have a field. Is a vector field or a volume field?
    11611161            if { !$isvtk && $extents == 1 } {
    1162                 set cmd "volume data follows $nbytes $tag\n"
     1162                SendCmd "volume data follows $nbytes $tag"
    11631163            } else {
    11641164                set cmd [FlowCmd $dataobj $comp $nbytes $extents]
    … …  
    11671167                    continue
    11681168                }
    1169             }
    1170             append _outbuf $cmd
     1169                append _outbuf $cmd
     1170            }
    11711171            append _outbuf $data
    11721172            NameTransferFunc $dataobj $comp

  • branches/1.3/gui/scripts/nanovisviewer.tcl

    r4766 r4768  
    918918                    if 0 {
    919919                        set f [open "/tmp/volume.vtk" "w"]
    920                         puts $f $data
     920                        fconfigure $f -translation binary -encoding binary
     921                        puts -nonewline $f $data
    921922                        close $f
    922923                    }

  • branches/1.3/gui/scripts/vtkglyphviewer.tcl

    r4766 r4768  
    860860    if { $info(-type) == "image" } {
    861861        if 0 {
    862             set f [open "last.ppm" "w"]
    863             puts $f $bytes
     862            set f [open "last.ppm" "w"]
     863            fconfigure $f -encoding binary
     864            puts -nonewline $f $bytes
    864865            close $f
    865866        }
    … …  
    978979                if 0 {
    979980                    set f [open "/tmp/glyph.vtk" "w"]
    980                     puts $f $bytes
     981                    fconfigure $f -translation binary -encoding binary
     982                    puts -nonewline $f $bytes
    981983                    close $f
    982984                }

  • branches/1.3/gui/scripts/vtkheightmapviewer.tcl

    r4766 r4768  
    843843    if { $info(-type) == "image" } {
    844844        if 0 {
    845             set f [open "last.ppm" "w"]
    846             puts $f $bytes
     845            set f [open "last.ppm" "w"]
     846            fconfigure $f -encoding binary
     847            puts -nonewline $f $bytes
    847848            close $f
    848849        }
    … …  
    982983                if 0 {
    983984                    set f [open /tmp/vtkheightmap.vtk "w"]
    984                     puts $f $bytes
     985                    fconfigure $f -translation binary -encoding binary
     986                    puts -nonewline $f $bytes
    985987                    close $f
    986988                }

  • branches/1.3/gui/scripts/vtkimageviewer.tcl

    r4766 r4768  
    831831    if { $info(-type) == "image" } {
    832832        if 0 {
    833             set f [open "last.ppm" "w"]
    834             puts $f $bytes
     833            set f [open "last.ppm" "w"]
     834            fconfigure $f -encoding binary
     835            puts -nonewline $f $bytes
    835836            close $f
    836837        }
    … …  
    958959                if 0 {
    959960                    set f [open /tmp/vtkimage.vtk "w"]
    960                     puts $f $bytes
     961                    fconfigure $f -translation binary -encoding binary
     962                    puts -nonewline $f $bytes
    961963                    close $f
    962964                }
    … …  
    16261628        set rgb [Color2RGB $itk_option(-plotforeground)]
    16271629        if { !$_reset } {
     1630            SendCmd "axis color all $rgb"
    16281631            SendCmd "outline color $rgb"
    1629             SendCmd "axis color all $rgb"
    16301632        }
    16311633    }

  • branches/1.3/gui/scripts/vtkisosurfaceviewer.tcl

    r4766 r4768  
    77# ======================================================================
    88#  AUTHOR:  Michael McLennan, Purdue University
    9 #  Copyright (c) 2004-2005  Purdue Research Foundation
     9#  Copyright (c) 2004-2014  HUBzero Foundation, LLC
    1010#
    1111#  See the file "license.terms" for information on usage and
    … …  
    6363
    6464    # The following methods are only used by this class.
    65 
    6665    private method AdjustSetting {what {value ""}}
    6766    private method BuildAxisTab {}
    … …  
    229228        -xpan            0
    230229        -ypan            0
    231         -zoom            1.0 
     230        -zoom            1.0
    232231    }
    233232    set _arcball [blt::arcball create 100 100]
    … …  
    241240    }
    242241    array set _settings {
    243         -axesvisible                    1
    244         -axislabels                     1
    245         -axisminorticks                 1
    246         -axismode                       "static"
    247         -background                     black
    248         -colormap                       BCGYR
    249         -colormapvisible                1
    250         -cutplaneedges                  0
    251         -cutplanelighting               1
    252         -cutplaneopacity                1.0
    253         -cutplanepreinterp              1
    254         -cutplanesvisible               0
    255         -cutplanewireframe              0
    256         -field                          "Default"
    257         -isolinecolor                   white
    258         -isosurfaceedges                0
    259         -isosurfacelighting             1
    260         -isosurfaceopacity              0.6
    261         -isosurfacevisible              1
    262         -isosurfacewireframe            0
    263         -legendvisible                  1
    264         -numcontours                    10
    265         -outline                        0
    266         -xcutplaneposition              50
    267         -xcutplanevisible               1
    268         -xgrid                          0
    269         -ycutplaneposition              50
    270         -ycutplanevisible               1
    271         -ygrid                          0
    272         -zcutplaneposition              50
    273         -zcutplanevisible               1
    274         -zgrid                          0
     242        -axesvisible                1
     243        -axislabels                 1
     244        -axisminorticks             1
     245        -axismode                   "static"
     246        -background                 black
     247        -colormap                   BCGYR
     248        -colormapvisible            1
     249        -cutplaneedges              0
     250        -cutplanelighting           1
     251        -cutplaneopacity            1.0
     252        -cutplanepreinterp          1
     253        -cutplanesvisible           0
     254        -cutplanewireframe          0
     255        -field                      "Default"
     256        -isolinecolor               white
     257        -isosurfaceedges            0
     258        -isosurfacelighting         1
     259        -isosurfaceopacity          0.6
     260        -isosurfacevisible          1
     261        -isosurfacewireframe        0
     262        -legendvisible              1
     263        -numcontours                10
     264        -outline                    0
     265        -xcutplaneposition          50
     266        -xcutplanevisible           1
     267        -xgrid                      0
     268        -ycutplaneposition          50
     269        -ycutplanevisible           1
     270        -ygrid                      0
     271        -zcutplaneposition          50
     272        -zcutplanevisible           1
     273        -zgrid                      0
    275274    }
    276275    array set _changed {
    … …  
    390389        puts stderr errs=$errs
    391390    }
     391
    392392    # Legend
    393 
    394393    set _image(legend) [image create photo]
    395394    itk_component add legend {
    … …  
    596595}
    597596
    598 
    599597# ----------------------------------------------------------------------
    600598# USAGE: delete ?<dataobj1> <dataobj2> ...?
    … …  
    908906    if { $info(-type) == "image" } {
    909907        if 0 {
    910             set f [open "last.ppm" "w"]
    911             puts $f $bytes
     908            set f [open "last.ppm" "w"]
     909            fconfigure $f -encoding binary
     910            puts -nonewline $f $bytes
    912911            close $f
    913912        }
    … …  
    990989    # generates a new call to Rebuild).   
    991990    StartBufferingCommands
     991
    992992    if { $_reset } {
    993993        set _width $w
    … …  
    10231023            if { ![info exists _datasets($tag)] } {
    10241024                set bytes [$dataobj vtkdata $comp]
    1025                 if 0 {
    1026                     set f [open "/tmp/isosurface.vtk" "w"]
    1027                     puts $f $bytes
    1028                     close $f
     1025                if 0 {
     1026                    set f [open "/tmp/isosurface.vtk" "w"]
     1027                    fconfigure $f -translation binary -encoding binary
     1028                    puts -nonewline $f $bytes
     1029                    close $f
    10291030                }
    10301031                set length [string length $bytes]
    … …  
    10761077                set label [string toupper $axis]
    10771078            }
     1079            # May be a space in the axis label
    10781080            SendCmd [list axis name $axis $label]
    10791081        }
    … …  
    11851187    SendCmd "camera pan $x $y"
    11861188}
    1187 
    11881189
    11891190# ----------------------------------------------------------------------
    … …  
    15361537    }
    15371538}
    1538 
    15391539
    15401540#
    … …  
    23222322}
    23232323
    2324 
    23252324# ----------------------------------------------------------------------
    23262325# USAGE: Slice move x|y|z <newval>
    … …  
    23902389    set font "Arial 8"
    23912390    set lineht [font metrics $font -linespace]
    2392    
     2391
    23932392    if { [string match "component*" $fname] } {
    23942393        set title ""

  • branches/1.3/gui/scripts/vtkmeshviewer.tcl

    r4766 r4768  
    164164    # Populate parser with commands handle incoming requests
    165165    #
    166     $_parser alias image    [itcl::code $this ReceiveImage]
    167     $_parser alias dataset  [itcl::code $this ReceiveDataset]
     166    $_parser alias image [itcl::code $this ReceiveImage]
     167    $_parser alias dataset [itcl::code $this ReceiveDataset]
    168168
    169169    # Initialize the view to some default parameters.
    … …  
    736736    if { $info(-type) == "image" } {
    737737        if 0 {
    738             set f [open "last.ppm" "w"] 
     738            set f [open "last.ppm" "w"]
    739739            fconfigure $f -encoding binary
    740740            puts -nonewline $f $bytes
    … …  
    844844            if { $bytes == "" } {
    845845                continue
     846            }
     847            if 0 {
     848                set f [open /tmp/vtkmesh.vtk "w"]
     849                fconfigure $f -translation binary -encoding binary
     850                puts -nonewline $f $bytes
     851                close $f
    846852            }
    847853            set length [string length $bytes]

  • branches/1.3/gui/scripts/vtkstreamlinesviewer.tcl

    r4766 r4768  
    875875    if { $info(-type) == "image" } {
    876876        if 0 {
    877             set f [open "last.ppm" "w"]
    878             puts $f $bytes
     877            set f [open "last.ppm" "w"]
     878            fconfigure $f -encoding binary
     879            puts -nonewline $f $bytes
    879880            close $f
    880881        }
    … …  
    990991                    set f [open /tmp/vtkstreamlines.vtk "w"]
    991992                    fconfigure $f -translation binary -encoding binary
    992                     puts $f $bytes
     993                    puts -nonewline $f $bytes
    993994                    close $f
    994995                }

  • branches/1.3/gui/scripts/vtksurfaceviewer.tcl

    r4766 r4768  
    7777    private method DrawLegend {}
    7878    private method EnterLegend { x y }
     79    private method EventuallyRequestLegend {}
    7980    private method EventuallyResize { w h }
    8081    private method EventuallyRotate { q }
    81     private method EventuallyRequestLegend {}
    8282    private method GetImage { args }
    8383    private method GetVtkData { args }
    … …  
    9898    private method RequestLegend {}
    9999    private method Rotate {option x y}
     100    private method SetCurrentColormap { color }
    100101    private method SetLegendTip { x y }
    101     private method SetObjectStyle { dataobj comp }
    102     private method SetCurrentColormap { color }
     102    private method SetObjectStyle { dataobj comp }
    103103    private method SetOrientation { side }
    104104    private method UpdateContourList {}
    … …  
    208208        -axislabels                 1
    209209        -axisminorticks             1
    210         -background                 black
    211         -colormap                   BCGYR
    212         -colormapvisible            1
    213         -field                      "Default"
    214         -isolinecolor               white
     210        -axismode                   "static"
     211        -background                 black
     212        -colormap                   BCGYR
     213        -colormapvisible            1
     214        -field                      "Default"
     215        -isolinecolor               white
    215216        -isolinesvisible            0
    216217        -legendvisible              1
    … …  
    314315    $itk_component(surface) select
    315316    Rappture::Tooltip::for $itk_component(surface) \
    316         "Don't display the surface"
     317        "Hide the surface"
    317318    pack $itk_component(surface) -padx 2 -pady 2
    318319
    … …  
    784785    # disconnected -- no more data sitting on server
    785786    set _outbuf ""
    786     array unset _datasets 
    787     array unset _data 
    788     array unset _colormaps 
    789     array unset _dataset2style 
    790     array unset _obj2datasets 
     787    array unset _datasets
     788    array unset _data
     789    array unset _colormaps
     790    array unset _dataset2style
     791    array unset _obj2datasets
    791792}
    792793
    … …  
    808809    if { $info(-type) == "image" } {
    809810        if 0 {
    810             set f [open "last.ppm" "w"] 
     811            set f [open "last.ppm" "w"]
    811812            fconfigure $f -encoding binary
    812813            puts -nonewline $f $bytes
    … …  
    897898        $_arcball resize $w $h
    898899        DoResize
    899         #
    900900        # Reset the camera and other view parameters
    901         #
    902901        $_arcball quaternion [ViewToQuaternion]
    903902        if {$_view(-ortho)} {
    … …  
    909908        PanCamera
    910909        set _first ""
    911         InitSettings -xaxisgrid -yaxisgrid -zaxisgrid -axismode \
     910        InitSettings -xgrid -ygrid -zgrid -axismode \
    912911            -axesvisible -axislabels -axisminorticks
    913912        #SendCmd "axis lformat all %g"
    … …  
    927926            if { ![info exists _datasets($tag)] } {
    928927                set bytes [$dataobj vtkdata $comp]
    929                 if 0 {
    930                     set f [open "/tmp/surface.vtk" "w"]
    931                     puts $f $bytes
    932                     close $f
     928                if 0 {
     929                    set f [open "/tmp/surface.vtk" "w"]
     930                    fconfigure $f -translation binary -encoding binary
     931                    puts -nonewline $f $bytes
     932                    close $f
    933933                }
    934934                set length [string length $bytes]
    … …  
    954954                # Setting dataset visible enables outline
    955955                # and contour2d
    956                 SendCmd "dataset visible 1 $tag"
     956                SendCmd "dataset visible 1 $tag"
    957957            }
    958958        }
    … …  
    12541254    }
    12551255    switch -- $what {
     1256        "-axesvisible" {
     1257            set bool $_settings($what)
     1258            SendCmd "axis visible all $bool"
     1259        }
     1260        "-axislabels" {
     1261            set bool $_settings($what)
     1262            SendCmd "axis labels all $bool"
     1263        }
     1264        "-axisminorticks" {
     1265            set bool $_settings($what)
     1266            SendCmd "axis minticks all $bool"
     1267        }
     1268        "-axismode" {
     1269            set mode [$itk_component(axisMode) value]
     1270            set mode [$itk_component(axisMode) translate $mode]
     1271            set _settings($what) $mode
     1272            SendCmd "axis flymode $mode"
     1273        }
    12561274        "-background" {
    12571275            set bgcolor [$itk_component(background) value]
    … …  
    12651283            $itk_component(view) delete "legend"
    12661284            DrawLegend
    1267         }
    1268         "-axesvisible" {
    1269             set bool $_settings($what)
    1270             SendCmd "axis visible all $bool"
    1271         }
    1272         "-axislabels" {
    1273             set bool $_settings($what)
    1274             SendCmd "axis labels all $bool"
    1275         }
    1276         "-axisminorticks" {
    1277             set bool $_settings($what)
    1278             SendCmd "axis minticks all $bool"
    1279         }
    1280         "-xaxisgrid" - "-yaxisgrid" - "-zaxisgrid" {
    1281             set axis [string tolower [string range $what 1 1]]
    1282             set bool $_settings($what)
    1283             SendCmd "axis grid $axis $bool"
    1284         }
    1285         "-axismode" {
    1286             set mode [$itk_component(axisMode) value]
    1287             set mode [$itk_component(axisMode) translate $mode]
    1288             set _settings($what) $mode
    1289             SendCmd "axis flymode $mode"
    12901285        }
    12911286        "-colormap" {
    … …  
    13311326            EventuallyRequestLegend
    13321327        }
     1328        "-field" {
     1329            set label [$itk_component(field) value]
     1330            set fname [$itk_component(field) translate $label]
     1331            set _settings($what) $fname
     1332            if { [info exists _fields($fname)] } {
     1333                foreach { label units components } $_fields($fname) break
     1334                if { $components > 1 } {
     1335                    set _colorMode vmag
     1336                } else {
     1337                    set _colorMode scalar
     1338                }
     1339                set _curFldName $fname
     1340                set _curFldLabel $label
     1341            } else {
     1342                puts stderr "unknown field \"$fname\""
     1343                return
     1344            }
     1345            SendCmd "dataset scalar $_curFldName"
     1346            if { ![info exists _limits($_curFldName)] } {
     1347                SendCmd "dataset maprange all"
     1348            } else {
     1349                SendCmd "dataset maprange explicit $_limits($_curFldName) $_curFldName"
     1350            }
     1351            #SendCmd "contour2d colormode $_colorMode $_curFldName"
     1352            SendCmd "polydata colormode $_colorMode $_curFldName"
     1353            SendCmd "camera reset"
     1354            UpdateContourList
     1355            DrawLegend
     1356        }
     1357        "-isolinecolor" {
     1358            set color [$itk_component(isolineColor) value]
     1359            set _settings($what) $color
     1360            SendCmd "contour2d linecolor [Color2RGB $color]"
     1361            DrawLegend
     1362        }
     1363        "-isolinesvisible" {
     1364            set bool $_settings($what)
     1365            SendCmd "contour2d visible $bool"
     1366            DrawLegend
     1367        }
     1368        "-legendvisible" {
     1369            if { !$_settings($what) } {
     1370                $itk_component(view) delete legend
     1371            }
     1372            DrawLegend
     1373        }
    13331374        "-numcontours" {
    13341375            set _settings($what) [$itk_component(numcontours) value]
    … …  
    13451386            }
    13461387        }
    1347         "-surfacewireframe" {
     1388        "-outline" {
    13481389            set bool $_settings($what)
    1349             SendCmd "polydata wireframe $bool"
    1350         }
    1351         "-isolinesvisible" {
     1390            SendCmd "outline visible $bool"
     1391        }
     1392        "-surfaceedges" {
    13521393            set bool $_settings($what)
    1353             SendCmd "contour2d visible $bool"
    1354             DrawLegend
     1394            SendCmd "polydata edges $bool"
     1395        }
     1396        "-surfacelighting" {
     1397            set bool $_settings($what)
     1398            SendCmd "polydata lighting $bool"
     1399        }
     1400        "-surfaceopacity" {
     1401            set val $_settings($what)
     1402            set sval [expr { 0.01 * double($val) }]
     1403            SendCmd "polydata opacity $sval"
    13551404        }
    13561405        "-surfacevisible" {
    … …  
    13661415            DrawLegend
    13671416        }
    1368         "-surfacelighting" {
     1417        "-surfacewireframe" {
    13691418            set bool $_settings($what)
    1370             SendCmd "polydata lighting $bool"
    1371         }
    1372         "-surfaceedges" {
     1419            SendCmd "polydata wireframe $bool"
     1420        }
     1421        "-xgrid" - "-ygrid" - "-zgrid" {
     1422            set axis [string tolower [string range $what 1 1]]
    13731423            set bool $_settings($what)
    1374             SendCmd "polydata edges $bool"
    1375         }
    1376         "-outline" {
    1377             set bool $_settings($what)
    1378             SendCmd "outline visible $bool"
    1379         }
    1380         "-isolinecolor" {
    1381             set color [$itk_component(isolineColor) value]
    1382             set _settings($what) $color
    1383             SendCmd "contour2d linecolor [Color2RGB $color]"
    1384             DrawLegend
    1385         }
    1386         "-surfaceopacity" {
    1387             set val $_settings($what)
    1388             set sval [expr { 0.01 * double($val) }]
    1389             SendCmd "polydata opacity $sval"
    1390         }
    1391         "-field" {
    1392             set label [$itk_component(field) value]
    1393             set fname [$itk_component(field) translate $label]
    1394             set _settings($what) $fname
    1395             if { [info exists _fields($fname)] } {
    1396                 foreach { label units components } $_fields($fname) break
    1397                 if { $components > 1 } {
    1398                     set _colorMode vmag
    1399                 } else {
    1400                     set _colorMode scalar
    1401                 }
    1402                 set _curFldName $fname
    1403                 set _curFldLabel $label
    1404             } else {
    1405                 puts stderr "unknown field \"$fname\""
    1406                 return
    1407             }
    1408             SendCmd "dataset scalar $_curFldName"
    1409             if { ![info exists _limits($_curFldName)] } {
    1410                 SendCmd "dataset maprange all"
    1411             } else {
    1412                 SendCmd "dataset maprange explicit $_limits($_curFldName) $_curFldName"
    1413             }
    1414             #SendCmd "contour2d colormode $_colorMode $_curFldName"
    1415             SendCmd "polydata colormode $_colorMode $_curFldName"
    1416             SendCmd "camera reset"
    1417             UpdateContourList
    1418             DrawLegend
    1419         }
    1420         "-legendvisible" {
    1421             if { !$_settings($what) } {
    1422                 $itk_component(view) delete legend
    1423             }
    1424             DrawLegend
     1424            SendCmd "axis grid $axis $bool"
    14251425        }
    14261426        default {
    … …  
    14291429    }
    14301430}
    1431 
    14321431
    14331432#
    … …  
    16781677    checkbutton $inner.xgrid \
    16791678        -text "X" \
    1680         -variable [itcl::scope _settings(-xaxisgrid)] \
    1681         -command [itcl::code $this AdjustSetting -xaxisgrid] \
     1679        -variable [itcl::scope _settings(-xgrid)] \
     1680        -command [itcl::code $this AdjustSetting -xgrid] \
    16821681        -font "Arial 9"
    16831682    checkbutton $inner.ygrid \
    16841683        -text "Y" \
    1685         -variable [itcl::scope _settings(-yaxisgrid)] \
    1686         -command [itcl::code $this AdjustSetting -yaxisgrid] \
     1684        -variable [itcl::scope _settings(-ygrid)] \
     1685        -command [itcl::code $this AdjustSetting -ygrid] \
    16871686        -font "Arial 9"
    16881687    checkbutton $inner.zgrid \
    16891688        -text "Z" \
    1690         -variable [itcl::scope _settings(-zaxisgrid)] \
    1691         -command [itcl::code $this AdjustSetting -zaxisgrid] \
     1689        -variable [itcl::scope _settings(-zgrid)] \
     1690        -command [itcl::code $this AdjustSetting -zgrid] \
    16921691        -font "Arial 9"
    16931692    checkbutton $inner.minorticks \
    … …  
    17071706        "furthest_triad"  "farthest" \
    17081707        "outer_edges"     "outer"         
    1709     $itk_component(axisMode) value "static"
     1708    $itk_component(axisMode) value $_settings(-axismode)
    17101709    bind $inner.mode <<Value>> [itcl::code $this AdjustSetting -axismode]
    17111710
    … …  
    17441743        0,0 $inner.view_l -anchor e -pady 2 \
    17451744        0,1 $inner.view -anchor w -pady 2
     1745    blt::table configure $inner r0 -resize none
    17461746
    17471747    set labels { qx qy qz qw xpan ypan zoom }
    … …  
    17711771    incr row
    17721772
    1773     blt::table configure $inner c* r* -resize none
     1773    blt::table configure $inner c* -resize none
    17741774    blt::table configure $inner c2 -resize expand
    17751775    blt::table configure $inner r$row -resize expand
    … …  
    18981898    array set style [$dataobj style $comp]
    18991899    if { $dataobj != $_first || $style(-levels) == 1 } {
    1900         set style(-opacity) 1
     1900        set style(-opacity) 1.0
    19011901    }
    19021902
    … …  
    22722272    foreach name { -qw -qx -qy -qz } value $positions($side) {
    22732273        set _view($name) $value
    2274     } 
     2274    }
    22752275    set q [ViewToQuaternion]
    22762276    $_arcball quaternion $q

  • branches/1.3/gui/scripts/vtkviewer.tcl

    r4766 r4768  
    951951    if { $info(-type) == "image" } {
    952952        if 0 {
    953             set f [open "last.ppm" "w"] 
     953            set f [open "last.ppm" "w"]
    954954            fconfigure $f -encoding binary
    955955            puts -nonewline $f $bytes
    … …  
    10611061                if { $bytes == "" } {
    10621062                    continue
     1063                }
     1064                if 0 {
     1065                    set f [open /tmp/vtkviewer.vtk "w"]
     1066                    fconfigure $f -translation binary -encoding binary
     1067                    puts -nonewline $f $bytes
     1068                    close $f
    10631069                }
    10641070                set length [string length $bytes]

  • branches/1.3/gui/scripts/vtkvolumeviewer.tcl

    r4766 r4768  
    848848    if { $info(-type) == "image" } {
    849849        if 0 {
    850             set f [open "last.ppm" "w"]
    851             puts $f $bytes
     850            set f [open "last.ppm" "w"]
     851            fconfigure $f -encoding binary
     852            puts -nonewline $f $bytes
    852853            close $f
    853854        }
    … …  
    971972            if { ![info exists _datasets($tag)] } {
    972973                set bytes [$dataobj vtkdata $comp]
     974                if 0 {
     975                    set f [open /tmp/vtkvolume.vtk "w"]
     976                    fconfigure $f -translation binary -encoding binary
     977                    puts -nonewline $f $bytes
     978                    close $f
     979                }
    973980                set length [string length $bytes]
    974981                if { $_reportClientInfo }  {
Note: See TracChangeset for help on using the changeset viewer.