Changeset 4296 for trunk/gui/scripts
- Timestamp:
- Mar 28, 2014, 10:54:37 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/mapviewer.tcl
r4295 r4296 83 83 protected method MouseScroll { direction } 84 84 protected method Pan {option x y} 85 protected method Pick {x y}86 85 protected method Rebuild {} 87 86 protected method ReceiveDataset { args } … … 799 798 puts stderr "Coords: $x $y $z" 800 799 } 801 "scalar" {802 set option [lindex $args 1]803 switch -- $option {804 "world" {805 foreach { x y z value tag } [lrange $args 2 end] break806 }807 "pixel" {808 foreach { x y value tag } [lrange $args 2 end] break809 }810 }811 }812 "vector" {813 set option [lindex $args 1]814 switch -- $option {815 "world" {816 foreach { x y z vx vy vz tag } [lrange $args 2 end] break817 }818 "pixel" {819 foreach { x y vx vy vz tag } [lrange $args 2 end] break820 }821 }822 }823 800 "names" { 824 801 foreach { name } [lindex $args 1] { 825 #puts stderr " Dataset: $name"802 #puts stderr "layer: $name" 826 803 } 827 804 } … … 1201 1178 } 1202 1179 1203 itcl::body Rappture::MapViewer::Pick {x y} {1204 foreach tag [CurrentDatasets -visible] {1205 SendCmd "dataset getscalar pixel $x $y $tag"1206 }1207 }1208 1209 1180 # ---------------------------------------------------------------------- 1210 1181 # USAGE: $this Pan click x y … … 1659 1630 "polygon" { 1660 1631 array set settings { 1661 -color black1632 -color white 1662 1633 -minbias 1000 1663 1634 -opacity 1.0
Note: See TracChangeset
for help on using the changeset viewer.