- Timestamp:
- Jul 23, 2009 10:41:31 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/molvisviewer.tcl
r1554 r1556 895 895 debug "rebuild: rotate $_view(mx) $_view(my) $_view(mz)" 896 896 897 projection update897 # foreach all models 898 898 spherescale update 899 899 stickradius update 900 900 labels update 901 opacity update 901 902 cartoon update 902 903 cartoontrace update 904 905 projection update 903 906 representation update 904 opacity update905 907 906 908 set _buffering 0; # Turn off buffering. … … 1617 1619 } 1618 1620 set overrideradius [expr $radius * 0.8] 1621 SendCmd "spherescale -model all $overrideradius" 1619 1622 foreach model $models { 1620 1623 if { [info exists _active($model)] } { 1621 1624 SendCmd "spherescale -model $model $radius" 1622 } else {1623 SendCmd "spherescale -model $model $overrideradius"1624 1625 } 1625 1626 } … … 1653 1654 } 1654 1655 set overrideradius [expr $radius * 0.8] 1656 SendCmd "stickradius -model all $overrideradius" 1655 1657 foreach model $models { 1656 1658 if { [info exists _active($model)] } { 1657 1659 SendCmd "stickradius -model $model $radius" 1658 } else {1659 SendCmd "stickradius -model $model $overrideradius"1660 1660 } 1661 1661 } … … 1690 1690 set overridetransparency 0.60 1691 1691 set transparency [expr 1.0 - $opacity] 1692 SendCmd "transparency -model all $overridetransparency" 1692 1693 foreach model $models { 1693 1694 if { [info exists _active($model)] } { 1694 1695 SendCmd "transparency -model $model $transparency" 1695 } else {1696 SendCmd "transparency -model $model $overridetransparency"1697 1696 } 1698 1697 } … … 1719 1718 set models [array names _mlist] 1720 1719 } 1721 set overrideshowlabels "off"1722 foreach model $models{1723 if { [info exists _active($model)] }{1724 SendCmd "label -model $model $showlabels"1725 } else {1726 SendCmd "label -model $model $overrideshowlabels"1720 SendCmd "label -model all off" 1721 if { $showlabels } { 1722 foreach model $models { 1723 if { [info exists _active($model)] } { 1724 SendCmd "label -model $model $showlabels" 1725 } 1727 1726 } 1728 1727 } … … 1749 1748 set models [array names _mlist] 1750 1749 } 1751 set overridecartoon "off"1752 foreach model $models{1753 if { [info exists _active($model)] }{1754 SendCmd "cartoon -model $model $cartoon"1755 } else {1756 SendCmd "cartoon -model $model $overridecartoon"1750 SendCmd "cartoon -model all off" 1751 if { $cartoon } { 1752 foreach model $models { 1753 if { [info exists _active($model)] } { 1754 SendCmd "cartoon -model $model $cartoon" 1755 } 1757 1756 } 1758 1757 } … … 1779 1778 set models [array names _mlist] 1780 1779 } 1781 set overridetrace "off"1782 foreach model $models{1783 if { [info exists _active($model)] }{1784 SendCmd "cartoontrace -model $model $trace"1785 } else {1786 SendCmd "cartoontrace -model $model $overridetrace"1787 } 1788 } 1789 } 1780 SendCmd "cartoontrace -model all off" 1781 if { $trace } { 1782 foreach model $models { 1783 if { [info exists _active($model)] } { 1784 SendCmd "cartoontrace -model $model $trace" 1785 } 1786 } 1787 } 1788 }
Note: See TracChangeset
for help on using the changeset viewer.