Changeset 3708 for trunk/gui/scripts


Ignore:
Timestamp:
Jun 23, 2013 1:42:36 AM (11 years ago)
Author:
ldelgass
Message:

Revert change from rev. 3668: Rather than moving object add into Rebuild,
Only call SetObjectStyle? when dataset/object is created (this is how the other
viewers work). Also whitespace fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/gui/scripts/vtkviewer.tcl

    r3675 r3708  
    224224    array set _settings [subst {
    225225        legend          1
    226         molecule-representation  "Ball and Stick"
     226        molecule-representation  "Ball and Stick"
    227227        molecule-edges           0
    228228        molecule-labels          0
    … …  
    231231        molecule-visible         1
    232232        molecule-wireframe       0
    233         molecule-palette         elementDefault
     233        molecule-palette         elementDefault
    234234        mesh-edges           0
    235235        mesh-lighting        1
    … …  
    237237        mesh-visible         1
    238238        mesh-wireframe       0
    239         mesh-palette         rainbow
     239        mesh-palette         rainbow
    240240    }]
    241241
    … …  
    280280    pack $itk_component(reset) -side top -padx 2 -pady 2
    281281    Rappture::Tooltip::for $itk_component(reset) \
    282         "Reset the view to the default zoom level"
     282        "Reset the view to the default zoom level"
    283283
    284284    itk_component add zoomin {
    … …  
    307307
    308308    if { [catch { BuildMeshTab } errs ]  != 0 } {
    309         puts stderr "errs=$errs"
     309        puts stderr "errs=$errs"
    310310    }
    311311    if { [catch { BuildMoleculeTab } errs ]  != 0 } {
    312         global errorInfo
    313         puts stderr "errs=$errs\nerrorInfo=$errorInfo"
     312        global errorInfo
     313        puts stderr "errs=$errs\nerrorInfo=$errorInfo"
    314314    }
    315315    BuildAxisTab
    … …  
    495495}
    496496
    497 
    498497# ----------------------------------------------------------------------
    499498# USAGE: delete ?<dataobj1> <dataobj2> ...?
    … …  
    712711            # Tell the server the viewer, hub, user and session.
    713712            # Do this immediately on connect before buffing any commands
    714             global env
     713            global env
    715714
    716715            set info {}
    717716            set user "???"
    718             if { [info exists env(USER)] } {
     717            if { [info exists env(USER)] } {
    719718                set user $env(USER)
    720             }
     719            }
    721720            set session "???"
    722             if { [info exists env(SESSION)] } {
     721            if { [info exists env(SESSION)] } {
    723722                set session $env(SESSION)
    724             }
     723            }
    725724            lappend info "hub" [exec hostname]
    726725            lappend info "client" "vtkviewer"
    … …  
    897896            if { ![info exists _datasets($tag)] } {
    898897                set bytes [$dataobj data $comp]
    899                 if { $bytes == "" } {
    900                     continue
    901                 }
     898                if { $bytes == "" } {
     899                    continue
     900                }
    902901                set length [string length $bytes]
    903902                if { $_reportClientInfo }  {
    … …  
    915914                append _outbuf $bytes
    916915                set _datasets($tag) 1
    917                 switch -- [$dataobj type $comp] {
    918                     "polydata" {
    919                         SendCmd "polydata add $tag"
    920                     }
    921                     "glyphs" {
    922                         set shape [$dataobj shape $comp]
    923                         SendCmd "glyphs add $shape $tag"
    924                     }
    925                     "molecule" {
    926                         SendCmd "molecule add $tag"
    927                     }
    928                 }
     916                SetObjectStyle $dataobj $comp
    929917            }
    930918            lappend _obj2datasets($dataobj) $tag
    … …  
    933921                puts stderr "$count: dataset visible 1 $tag"
    934922            }
    935             SetObjectStyle $dataobj $comp
    936923        }
    937924    }
    … …  
    954941    }
    955942    if { $_reset } {
    956         set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)]
    957         $_arcball quaternion $q
     943        set q [list $_view(qw) $_view(qx) $_view(qy) $_view(qz)]
     944        $_arcball quaternion $q
    958945        SendCmd "camera reset"
    959946        if { $_view(ortho)} {
    … …  
    961948        } else {
    962949            SendCmd "camera mode persp"
    963         }
    964         DoRotate
    965         PanCamera
     950        }
     951        DoRotate
     952        PanCamera
    966953        Zoom reset
    967954    }
    … …  
    10741061    SendCmd "camera pan $x $y"
    10751062}
    1076 
    10771063
    10781064# ----------------------------------------------------------------------
    … …  
    12151201            set sval [expr { 0.01 * double($val) }]
    12161202            foreach dataset [CurrentDatasets -visible $_first] {
    1217                 foreach { dataobj comp } [split $dataset -] break
    1218                 set type [$dataobj type $comp]
    1219                 if { $type == "polydata" } {
    1220                     SendCmd "$type opacity $sval $dataset"
    1221                 }
     1203                foreach { dataobj comp } [split $dataset -] break
     1204                set type [$dataobj type $comp]
     1205                if { $type == "polydata" } {
     1206                    SendCmd "$type opacity $sval $dataset"
     1207                }
    12221208            }
    12231209        }
    … …  
    12251211            set bool $_settings(mesh-wireframe)
    12261212            foreach dataset [CurrentDatasets -visible $_first] {
    1227                 foreach { dataobj comp } [split $dataset -] break
    1228                 set type [$dataobj type $comp]
    1229                 if { $type == "polydata" } {
    1230                     SendCmd "$type wireframe $bool $dataset"
    1231                 }
     1213                foreach { dataobj comp } [split $dataset -] break
     1214                set type [$dataobj type $comp]
     1215                if { $type == "polydata" } {
     1216                    SendCmd "$type wireframe $bool $dataset"
     1217                }
    12321218            }
    12331219        }
    … …  
    12351221            set bool $_settings(mesh-visible)
    12361222            foreach dataset [CurrentDatasets -visible $_first] {
    1237                 foreach { dataobj comp } [split $dataset -] break
    1238                 set type [$dataobj type $comp]
    1239                 if { $type == "polydata" } {
    1240                     SendCmd "$type visible $bool $dataset"
    1241                 }
     1223                foreach { dataobj comp } [split $dataset -] break
     1224                set type [$dataobj type $comp]
     1225                if { $type == "polydata" } {
     1226                    SendCmd "$type visible $bool $dataset"
     1227                }
    12421228            }
    12431229        }
    … …  
    12451231            set bool $_settings(mesh-lighting)
    12461232            foreach dataset [CurrentDatasets -visible $_first] {
    1247                 foreach { dataobj comp } [split $dataset -] break
    1248                 set type [$dataobj type $comp]
    1249                 if { $type == "polydata" } {
    1250                     SendCmd "$type lighting $bool $dataset"
    1251                 }
     1233                foreach { dataobj comp } [split $dataset -] break
     1234                set type [$dataobj type $comp]
     1235                if { $type == "polydata" } {
     1236                    SendCmd "$type lighting $bool $dataset"
     1237                }
    12521238            }
    12531239        }
    … …  
    12551241            set bool $_settings(mesh-edges)
    12561242            foreach dataset [CurrentDatasets -visible $_first] {
    1257                 foreach { dataobj comp } [split $dataset -] break
    1258                 set type [$dataobj type $comp]
    1259                 if { $type == "polydata" } {
    1260                     SendCmd "$type edges $bool $dataset"
    1261                 }
     1243                foreach { dataobj comp } [split $dataset -] break
     1244                set type [$dataobj type $comp]
     1245                if { $type == "polydata" } {
     1246                    SendCmd "$type edges $bool $dataset"
     1247                }
    12621248            }
    12631249        }
    … …  
    12671253            foreach dataset [CurrentDatasets -visible $_first] {
    12681254                foreach {dataobj comp} [split $dataset -] break
    1269                 set type [$dataobj type $comp]
    1270                 if { $type == "polydata" } {
    1271                     ChangeColormap $dataobj $comp $palette
    1272                 }
     1255                set type [$dataobj type $comp]
     1256                if { $type == "polydata" } {
     1257                    ChangeColormap $dataobj $comp $palette
     1258                }
    12731259            }
    12741260            set _legendPending 1
    … …  
    12781264            set sval [expr { 0.01 * double($val) }]
    12791265            foreach dataset [CurrentDatasets -visible $_first] {
    1280                 foreach { dataobj comp } [split $dataset -] break
    1281                 set type [$dataobj type $comp]
    1282                 if { $type == "molecule" } {
    1283                     SendCmd "molecule opacity $sval $dataset"
    1284                 }
     1266                foreach { dataobj comp } [split $dataset -] break
     1267                set type [$dataobj type $comp]
     1268                if { $type == "molecule" } {
     1269                    SendCmd "molecule opacity $sval $dataset"
     1270                }
    12851271            }
    12861272        }
    … …  
    12881274            set bool $_settings(molecule-wireframe)
    12891275            foreach dataset [CurrentDatasets -visible $_first] {
    1290                 foreach { dataobj comp } [split $dataset -] break
    1291                 set type [$dataobj type $comp]
    1292                 if { $type == "molecule" } {
    1293                     SendCmd "molecule wireframe $bool $dataset"
    1294                 }
     1276                foreach { dataobj comp } [split $dataset -] break
     1277                set type [$dataobj type $comp]
     1278                if { $type == "molecule" } {
     1279                    SendCmd "molecule wireframe $bool $dataset"
     1280                }
    12951281            }
    12961282        }
    … …  
    12981284            set bool $_settings(molecule-visible)
    12991285            foreach dataset [CurrentDatasets -visible $_first] {
    1300                 foreach { dataobj comp } [split $dataset -] break
    1301                 set type [$dataobj type $comp]
    1302                 if { $type == "molecule" } {
    1303                     SendCmd "molecule visible $bool $dataset"
    1304                 }
     1286                foreach { dataobj comp } [split $dataset -] break
     1287                set type [$dataobj type $comp]
     1288                if { $type == "molecule" } {
     1289                    SendCmd "molecule visible $bool $dataset"
     1290                }
    13051291            }
    13061292        }
    … …  
    13081294            set bool $_settings(molecule-lighting)
    13091295            foreach dataset [CurrentDatasets -visible $_first] {
    1310                 foreach { dataobj comp } [split $dataset -] break
    1311                 set type [$dataobj type $comp]
    1312                 if { $type == "molecule" } {
    1313                     SendCmd "molecule lighting $bool $dataset"
    1314                 }
     1296                foreach { dataobj comp } [split $dataset -] break
     1297                set type [$dataobj type $comp]
     1298                if { $type == "molecule" } {
     1299                    SendCmd "molecule lighting $bool $dataset"
     1300                }
    13151301            }
    13161302        }
    … …  
    13181304            set bool $_settings(molecule-edges)
    13191305            foreach dataset [CurrentDatasets -visible $_first] {
    1320                 foreach { dataobj comp } [split $dataset -] break
    1321                 set type [$dataobj type $comp]
    1322                 if { $type == "molecule" } {
    1323                     SendCmd "molecule edges $bool $dataset"
    1324                 }
     1306                foreach { dataobj comp } [split $dataset -] break
     1307                set type [$dataobj type $comp]
     1308                if { $type == "molecule" } {
     1309                    SendCmd "molecule edges $bool $dataset"
     1310                }
    13251311            }
    13261312        }
    … …  
    13301316            foreach dataset [CurrentDatasets -visible $_first] {
    13311317                foreach {dataobj comp} [split $dataset -] break
    1332                 set type [$dataobj type $comp]
    1333                 if { $type == "molecule" } {
    1334                     ChangeColormap $dataobj $comp $palette
    1335                     if { $palette == "elementDefault" } {
    1336                         SendCmd "molecule colormode by_elements element $dataset"
    1337                     } else {
    1338                         # FIXME: Set the chosen scalar field name here
    1339                         SendCmd "molecule colormode scalar {} $dataset"
    1340                     }
    1341                 }
     1318                set type [$dataobj type $comp]
     1319                if { $type == "molecule" } {
     1320                    ChangeColormap $dataobj $comp $palette
     1321                    if { $palette == "elementDefault" } {
     1322                        SendCmd "molecule colormode by_elements element $dataset"
     1323                    } else {
     1324                        # FIXME: Set the chosen scalar field name here
     1325                        SendCmd "molecule colormode scalar {} $dataset"
     1326                    }
     1327                }
    13421328            }
    13431329            set _legendPending 1
    13441330        }
    1345         "molecule-representation" {
    1346             set value [$itk_component(representation) value]
    1347             set value [$itk_component(representation) translate $value]
    1348             switch -- $value {
    1349                 "ballandstick" {
    1350                     set rscale covalent
    1351                     set ashow 1
    1352                     set bshow 1
    1353                     set bstyle cylinder
    1354                     set ascale 0.3
    1355                     set bscale 0.075
    1356                 }
    1357                 "balls" - "spheres" {
    1358                     set rscale covalent
    1359                     set ashow 1
    1360                     set bshow 0
    1361                     set bstyle cylinder
    1362                     set ascale 0.3
    1363                     set bscale 0.075
    1364                 }
    1365                 "sticks" {
    1366                     set rscale none
    1367                     set ashow 1
    1368                     set bshow 1
    1369                     set bstyle cylinder
    1370                     set ascale 0.075
    1371                     set bscale 0.075
    1372                 }
    1373                 "spacefilling" {
    1374                     set rscale van_der_waals
    1375                     set ashow 1
    1376                     set bshow 0
    1377                     set bstyle cylinder
    1378                     set ascale 1.0
    1379                     set bscale 0.075
    1380                 }
    1381                 "rods"  {
    1382                     set rscale none
    1383                     set ashow 1
    1384                     set bshow 1
    1385                     set bstyle cylinder
    1386                     set ascale 0.1
    1387                     set bscale 0.1
    1388                 }
    1389                 "wireframe" - "lines" {
    1390                     set rscale none
    1391                     set ashow 0
    1392                     set bshow 1
    1393                     set bstyle line
    1394                     set ascale 1.0
    1395                     set bscale 1.0
    1396                 }
    1397                 default {
    1398                     error "unknown representation $value"
    1399                 }
    1400             }
    1401             foreach dataset [CurrentDatasets -visible $_first] {
    1402                 foreach {dataobj comp} [split $dataset -] break
    1403                 set type [$dataobj type $comp]
    1404                 if { $type == "molecule" } {
    1405                     SendCmd [subst {molecule rscale $rscale $dataset
     1331        "molecule-representation" {
     1332            set value [$itk_component(representation) value]
     1333            set value [$itk_component(representation) translate $value]
     1334            switch -- $value {
     1335                "ballandstick" {
     1336                    set rscale covalent
     1337                    set ashow 1
     1338                    set bshow 1
     1339                    set bstyle cylinder
     1340                    set ascale 0.3
     1341                    set bscale 0.075
     1342                }
     1343                "balls" - "spheres" {
     1344                    set rscale covalent
     1345                    set ashow 1
     1346                    set bshow 0
     1347                    set bstyle cylinder
     1348                    set ascale 0.3
     1349                    set bscale 0.075
     1350                }
     1351                "sticks" {
     1352                    set rscale none
     1353                    set ashow 1
     1354                    set bshow 1
     1355                    set bstyle cylinder
     1356                    set ascale 0.075
     1357                    set bscale 0.075
     1358                }
     1359                "spacefilling" {
     1360                    set rscale van_der_waals
     1361                    set ashow 1
     1362                    set bshow 0
     1363                    set bstyle cylinder
     1364                    set ascale 1.0
     1365                    set bscale 0.075
     1366                }
     1367                "rods"  {
     1368                    set rscale none
     1369                    set ashow 1
     1370                    set bshow 1
     1371                    set bstyle cylinder
     1372                    set ascale 0.1
     1373                    set bscale 0.1
     1374                }
     1375                "wireframe" - "lines" {
     1376                    set rscale none
     1377                    set ashow 0
     1378                    set bshow 1
     1379                    set bstyle line
     1380                    set ascale 1.0
     1381                    set bscale 1.0
     1382                }
     1383                default {
     1384                    error "unknown representation $value"
     1385                }
     1386            }
     1387            foreach dataset [CurrentDatasets -visible $_first] {
     1388                foreach {dataobj comp} [split $dataset -] break
     1389                set type [$dataobj type $comp]
     1390                if { $type == "molecule" } {
     1391                    SendCmd [subst {molecule rscale $rscale $dataset
    14061392molecule atoms $ashow $dataset
    14071393molecule bonds $bshow $dataset
    … …  
    14091395molecule ascale $ascale $dataset
    14101396molecule bscale $bscale $dataset}]
    1411                 }
    1412             }
    1413         }
     1397                }
     1398            }
     1399        }
    14141400        "molecule-labels" {
    14151401            set bool $_settings(molecule-labels)
    … …  
    15431529
    15441530    if { $style(-color) == "elementDefault" } {
    1545         set name "$style(-color)"
     1531        set name "$style(-color)"
    15461532    } else {
    1547         set name "$style(-color):$style(-levels):$style(-opacity)"
     1533        set name "$style(-color):$style(-levels):$style(-opacity)"
    15481534    }
    15491535    if { ![info exists _colormaps($name)] } {
    … …  
    15541540         $_dataset2style($tag) != $name } {
    15551541        set _dataset2style($tag) $name
    1556         switch -- [$dataobj type $comp] {
    1557             "polygon" {
    1558                 SendCmd "pseudocolor colormap $name $tag"
    1559             }
    1560             "glyphs" {
    1561                 SendCmd "glyphs colormap $name $tag"
    1562             }
    1563             "molecule" {
    1564                 SendCmd "molecule colormap $name $tag"
    1565             }
    1566         }
     1542        switch -- [$dataobj type $comp] {
     1543            "polygon" {
     1544                SendCmd "pseudocolor colormap $name $tag"
     1545            }
     1546            "glyphs" {
     1547                SendCmd "glyphs colormap $name $tag"
     1548            }
     1549            "molecule" {
     1550                SendCmd "molecule colormap $name $tag"
     1551            }
     1552        }
    15671553    }
    15681554}
    … …  
    15731559itcl::body Rappture::VtkViewer::BuildColormap { name styles } {
    15741560    if { $name ==  "elementDefault" } {
    1575         return
     1561        return
    15761562    }
    15771563    array set style $styles
    … …  
    15881574    SendCmd "colormap add $name { $cmap } { $wmap }"
    15891575}
    1590 
    15911576
    15921577# ----------------------------------------------------------------------
    … …  
    16171602        if { ![info exists _limits($tag)] } {
    16181603            set data [$dataobj data $comp]
    1619             if { $data == "" } {
    1620                 continue
    1621             }
     1604            if { $data == "" } {
     1605                continue
     1606            }
    16221607            set tmpfile file[pid].vtk
    16231608            set f [open "$tmpfile" "w"]
    … …  
    16271612            set reader [vtkDataSetReader $tag-xvtkDataSetReader]
    16281613            $reader SetFileName $tmpfile
    1629             $reader ReadAllNormalsOn
    1630             $reader ReadAllScalarsOn
    1631             $reader ReadAllVectorsOn
    1632             $reader ReadAllFieldsOn
     1614set debug 0
     1615            if {$debug} {
     1616                # Only needed for debug output below
     1617                $reader ReadAllNormalsOn
     1618                $reader ReadAllTCoordsOn
     1619                $reader ReadAllScalarsOn
     1620                $reader ReadAllColorScalarsOn
     1621                $reader ReadAllVectorsOn
     1622                $reader ReadAllTensorsOn
     1623                $reader ReadAllFieldsOn
     1624            }
    16331625            $reader Update
     1626            file delete $tmpfile
    16341627            set output [$reader GetOutput]
    16351628            set _limits($tag) [$output GetBounds]
    1636             set pointData [$output GetPointData]
    1637             set fieldData [$output GetFieldData]
    1638             if 1 {
    1639                 puts stderr "\#scalars=[$reader GetNumberOfScalarsInFile]"
    1640                 puts stderr "\#vectors=[$reader GetNumberOfVectorsInFile]"
    1641                 puts stderr "\#tensors=[$reader GetNumberOfTensorsInFile]"
    1642                 puts stderr "\#normals=[$reader GetNumberOfNormalsInFile]"
    1643                 puts stderr "\#fielddata=[$reader GetNumberOfFieldDataInFile]"
    1644                 puts stderr "fielddataname=[$reader GetFieldDataNameInFile 0]"
    1645                 puts stderr "field \#arrays=[$fieldData GetNumberOfArrays]"
    1646                 puts stderr "point \#arrays=[$pointData GetNumberOfArrays]"
    1647                 puts stderr "field \#components=[$fieldData GetNumberOfComponents]"
    1648                 puts stderr "point \#components=[$pointData GetNumberOfComponents]"
    1649                 puts stderr "field \#tuples=[$fieldData GetNumberOfTuples]"
    1650                 puts stderr "point \#tuples=[$pointData GetNumberOfTuples]"
    1651                 puts stderr "point \#scalars=[$pointData GetScalars]"
    1652                 puts stderr vectors=[$pointData GetVectors]
    1653             }
     1629            if {$debug} {
     1630                puts stderr "\#scalars=[$reader GetNumberOfScalarsInFile]"
     1631                puts stderr "\#vectors=[$reader GetNumberOfVectorsInFile]"
     1632                puts stderr "\#tensors=[$reader GetNumberOfTensorsInFile]"
     1633                puts stderr "\#normals=[$reader GetNumberOfNormalsInFile]"
     1634                puts stderr "\#tcoords=[$reader GetNumberOfTCoordsInFile]"
     1635                puts stderr "\#fielddata=[$reader GetNumberOfFieldDataInFile]"
     1636                puts stderr "fielddataname=[$reader GetFieldDataNameInFile 0]"
     1637                set pointData [$output GetPointData]
     1638                if { $pointData != ""} {
     1639                    puts stderr "point \#arrays=[$pointData GetNumberOfArrays]"
     1640                    puts stderr "point \#components=[$pointData GetNumberOfComponents]"
     1641                    puts stderr "point \#tuples=[$pointData GetNumberOfTuples]"
     1642                    puts stderr "point scalars=[$pointData GetScalars]"
     1643                    puts stderr "point vectors=[$pointData GetVectors]"
     1644                }
     1645                set cellData [$output GetCellData]
     1646                if { $cellData != ""} {
     1647                    puts stderr "cell \#arrays=[$cellData GetNumberOfArrays]"
     1648                    puts stderr "cell \#components=[$cellData GetNumberOfComponents]"
     1649                    puts stderr "cell \#tuples=[$cellData GetNumberOfTuples]"
     1650                    puts stderr "cell scalars=[$cellData GetScalars]"
     1651                    puts stderr "cell vectors=[$cellData GetVectors]"
     1652                }
     1653                set fieldData [$output GetFieldData]
     1654                if { $fieldData != ""} {
     1655                    puts stderr "field \#arrays=[$fieldData GetNumberOfArrays]"
     1656                    puts stderr "field \#components=[$fieldData GetNumberOfComponents]"
     1657                    puts stderr "field \#tuples=[$fieldData GetNumberOfTuples]"
     1658                }
     1659            }
    16541660            rename $output ""
    16551661            rename $reader ""
    1656             file delete $tmpfile
    16571662        }
    16581663        foreach { xMin xMax yMin yMax zMin zMax} $_limits($tag) break
    … …  
    18241829}
    18251830
    1826 
    18271831itcl::body Rappture::VtkViewer::BuildCameraTab {} {
    18281832    set inner [$itk_component(main) insert end \
    … …  
    20612065    $inner.rep choices insert end \
    20622066        "ballandstick"  "Ball and Stick" \
    2063         "spheres"       "Spheres"       \
    2064         "sticks"        "Sticks"        \
    2065         "rods"          "Rods"          \
    2066         "wireframe"     "Wireframe"     \
     2067        "spheres"       "Spheres"        \
     2068        "sticks"        "Sticks"         \
     2069        "rods"          "Rods"           \
     2070        "wireframe"     "Wireframe"      \
    20672071        "spacefilling"  "Space Filling"
    20682072
    20692073    bind $inner.rep <<Value>> \
    2070         [itcl::code $this AdjustSetting molecule-representation]
     2074        [itcl::code $this AdjustSetting molecule-representation]
    20712075    $inner.rep value "Ball and Stick"
    20722076
    … …  
    20762080    }
    20772081    $inner.palette choices insert end \
    2078         "elementDefault"             "elementDefault" \
     2082        "elementDefault"     "elementDefault"  \
    20792083        "BCGYR"              "BCGYR"            \
    20802084        "BGYOR"              "BGYOR"            \
    … …  
    21942198}
    21952199
    2196 
    21972200itcl::body Rappture::VtkViewer::GetVtkData { args } {
    21982201    set bytes ""
    … …  
    22022205            set contents [$dataobj data $comp]
    22032206            append bytes "$contents\n"
    2204             append bytes "\# End of VTK file\n\n"
     2207            append bytes "\# End of VTK file\n\n"
    22052208        }
    22062209    }
    … …  
    22792282            -visible 1
    22802283        }
    2281         set shape [$dataobj shape $comp]
     2284        set shape [$dataobj shape $comp]
    22822285        array set settings $style
     2286        SendCmd "glyphs add $shape $tag"
    22832287        SendCmd "glyphs normscale 0 $tag"
    22842288        SendCmd "glyphs gscale $settings(-gscale) $tag"
    … …  
    22932297        set _haveGlyphs 1
    22942298    } elseif { $type == "molecule" } {
     2299        SendCmd "molecule add $tag"
    22952300        SendCmd "molecule rscale van_der_waals $tag"
    22962301        set _haveMolecules 1
    … …  
    23072312        }
    23082313        array set settings $style
     2314        SendCmd "polydata add $tag"
    23092315        SendCmd "polydata visible $settings(-visible) $tag"
    23102316        set _settings(mesh-visible) $settings(-visible)
    … …  
    24562462}
    24572463
    2458 
    24592464# ----------------------------------------------------------------------
    24602465# USAGE: Slice move x|y|z <newval>
    … …  
    25082513    set _view(zoom) 1.0
    25092514}
    2510 
Note: See TracChangeset for help on using the changeset viewer.