Changeset 5214
- Timestamp:
- Apr 13, 2015, 10:02:21 PM (9 years ago)
- Location:
- branches/1.3
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3
- Property svn:mergeinfo changed
/trunk merged: 5205,5210-5211
- Property svn:mergeinfo changed
-
branches/1.3/gui/scripts/flowvisviewer.tcl
r5177 r5214 624 624 set op [lindex $args 0] 625 625 switch -- $op { 626 -objects { 627 # put the dataobj list in order according to -raise options 628 set dlist $_dlist 629 foreach obj $dlist { 630 if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} { 631 set i [lsearch -exact $dlist $obj] 632 if {$i >= 0} { 633 set dlist [lreplace $dlist $i $i] 634 lappend dlist $obj 626 -objects { 627 # put the dataobj list in order according to -raise options 628 set dlist $_dlist 629 foreach obj $dlist { 630 if {[info exists _obj2ovride($obj-raise)] && 631 $_obj2ovride($obj-raise)} { 632 set i [lsearch -exact $dlist $obj] 633 if {$i >= 0} { 634 set dlist [lreplace $dlist $i $i] 635 lappend dlist $obj 636 } 635 637 } 636 638 } 637 } 638 return $dlist 639 } 640 -image { 641 if {[llength $args] != 2} { 642 error "wrong # args: should be \"get -image 3dview|legend\"" 643 } 644 switch -- [lindex $args end] { 645 3dview { 646 return $_image(plot) 647 } 648 legend { 649 return $_image(legend) 650 } 651 default { 652 error "bad image name \"[lindex $args end]\": should be 3dview or legend" 653 } 654 } 655 } 656 default { 657 error "bad option \"$op\": should be -objects or -image" 658 } 639 return $dlist 640 } 641 -image { 642 if {[llength $args] != 2} { 643 error "wrong # args: should be \"get -image 3dview|legend\"" 644 } 645 switch -- [lindex $args end] { 646 3dview { 647 return $_image(plot) 648 } 649 legend { 650 return $_image(legend) 651 } 652 default { 653 error "bad image name \"[lindex $args end]\": should be 3dview or legend" 654 } 655 } 656 } 657 default { 658 error "bad option \"$op\": should be -objects or -image" 659 } 659 660 } 660 661 } -
branches/1.3/gui/scripts/nanovisviewer.tcl
r5177 r5214 439 439 set op [lindex $args 0] 440 440 switch -- $op { 441 -objects { 442 # put the dataobj list in order according to -raise options 443 set dlist $_dlist 444 foreach obj $dlist { 445 if {[info exists _obj2ovride($obj-raise)] && $_obj2ovride($obj-raise)} { 446 set i [lsearch -exact $dlist $obj] 447 if {$i >= 0} { 448 set dlist [lreplace $dlist $i $i] 449 lappend dlist $obj 441 -objects { 442 # put the dataobj list in order according to -raise options 443 set dlist $_dlist 444 foreach obj $dlist { 445 if {[info exists _obj2ovride($obj-raise)] && 446 $_obj2ovride($obj-raise)} { 447 set i [lsearch -exact $dlist $obj] 448 if {$i >= 0} { 449 set dlist [lreplace $dlist $i $i] 450 lappend dlist $obj 451 } 450 452 } 451 453 } 452 } 453 return $dlist 454 } 455 -image { 456 if {[llength $args] != 2} { 457 error "wrong # args: should be \"get -image 3dview|legend\"" 458 } 459 switch -- [lindex $args end] { 460 3dview { 461 return $_image(plot) 462 } 463 legend { 464 return $_image(legend) 465 } 466 default { 467 error "bad image name \"[lindex $args end]\": should be 3dview or legend" 468 } 469 } 470 } 471 default { 472 error "bad option \"$op\": should be -objects or -image" 473 } 454 return $dlist 455 } 456 -image { 457 if {[llength $args] != 2} { 458 error "wrong # args: should be \"get -image 3dview|legend\"" 459 } 460 switch -- [lindex $args end] { 461 3dview { 462 return $_image(plot) 463 } 464 legend { 465 return $_image(legend) 466 } 467 default { 468 error "bad image name \"[lindex $args end]\": should be 3dview or legend" 469 } 470 } 471 } 472 default { 473 error "bad option \"$op\": should be -objects or -image" 474 } 474 475 } 475 476 } … … 947 948 InitSettings light2side light transp isosurface grid axes 948 949 950 # Turn off cutplanes for all volumes 949 951 foreach axis {x y z} { 950 # Turn off cutplanes for all volumes951 952 SendCmd "cutplane state 0 $axis" 952 953 }
Note: See TracChangeset
for help on using the changeset viewer.