15 variable btnMPR .tools.btnMPR
16 variable btnMIP .tools.btnMIP
17 variable btnSurf .tools.btnSurf
25 proc u_3D::create { parent id } {
27 # For programming facilities
29 upvar u_3D::tools tools
31 upvar u_3D::btnMPR btnMPR
32 upvar u_3D::btnMIP btnMIP
33 upvar u_3D::btnSurf btnSurf
34 upvar u_3D::local_id local_id
35 upvar u_3D::shown shown
42 set tools "$parent$tools"
43 set work "$parent$work"
44 set btnMPR "$parent$btnMPR"
45 set btnMIP "$parent$btnMIP"
46 set btnSurf "$parent$btnSurf"
49 frame $tools -borderwidth 0 -height 75 -relief flat -width 125
50 frame $work -borderwidth 0 -height 75 -relief flat -width 125
53 radiobutton $btnMPR -indicatoron 0 -text mpr -variable u3dtype -value 1 -command { u_3D::set_vis $u3dtype }
54 radiobutton $btnMIP -indicatoron 0 -text mip -variable u3dtype -value 2 -command { u_3D::set_vis $u3dtype }
55 radiobutton $btnSurf -indicatoron 0 -text surf -variable u3dtype -value 3 -command { u_3D::set_vis $u3dtype }
64 proc u_3D::positionate { } {
66 # For programming facilities
68 upvar u_3D::tools tools
70 upvar u_3D::btnMPR btnMPR
71 upvar u_3D::btnMIP btnMIP
72 upvar u_3D::btnSurf btnSurf
73 upvar u_3D::local_id local_id
74 upvar u_3D::shown shown
78 set global_window::window_shown $local_id
80 pack $tools -anchor center -expand 0 -fill x -side top
81 pack $btnMPR -anchor nw -expand 0 -fill none -side left
82 pack $btnMIP -anchor nw -expand 0 -fill none -side left
83 pack $btnSurf -anchor nw -expand 0 -fill none -side left
84 pack $work -anchor center -expand 1 -fill both -side top
93 proc u_3D::forget { } {
95 # For programming facilities
97 upvar u_3D::tools tools
99 upvar u_3D::btnMPR btnMPR
100 upvar u_3D::btnMIP btnMIP
101 upvar u_3D::btnSurf btnSurf
102 upvar u_3D::shown shown
114 proc u_3D::set_data { } {
116 # For programming facilities
117 upvar u_3D::base base
118 upvar u_3D::tools tools
119 upvar u_3D::work work
120 upvar u_3D::btnMPR btnMPR
121 upvar u_3D::btnMIP btnMIP
122 upvar u_3D::btnSurf btnSurf
123 upvar u_3D::local_id local_id
124 upvar u_3D::axis_shown axis_shown
126 set global_window::data_loaded [ expr $global_window::data_loaded | $local_id ]
129 set data [ image_browser::get_data ]
132 InitExperiment_dll $data
154 proc u_3D::set_vis { typ } {
156 # For programming facilities
157 upvar u_3D::base base
158 upvar u_3D::tools tools
159 upvar u_3D::work work
160 upvar u_3D::btnMPR btnMPR
161 upvar u_3D::btnMIP btnMIP
162 upvar u_3D::btnSurf btnSurf
163 upvar u_3D::axis_shown axis_shown
173 global_window::deselect_buttons
174 global_window::invoke_buttons [ expr \
175 $global_window::en_clear | \
176 $global_window::en_rotate | \
177 $global_window::en_zoom \
180 } elseif { $typ == 2 } {
184 global_window::deselect_buttons
185 global_window::invoke_buttons [ expr \
186 $global_window::en_clear | \
187 $global_window::en_rotate | \
188 $global_window::en_zoom \
191 } elseif { $typ == 3 } {
195 if { $axis_shown == 0 } {
204 global_window::deselect_buttons
205 global_window::invoke_buttons [ expr \
206 $global_window::en_clear | \
207 $global_window::en_rotate | \
208 $global_window::en_zoom \
215 proc u_3D::back { } {
217 # For programming facilities
218 upvar u_3D::shown shown
227 proc u_3D::controls { { id -1 } } {
231 global_window::active_controls 0
237 global_window::active_controls [ \
239 $global_window::en_params | \
240 $global_window::en_save | \
241 $global_window::en_load | \
242 $global_window::en_open | \
243 $global_window::en_help | \
244 $global_window::en_rotate | \
245 $global_window::en_pan | \
246 $global_window::en_zoom | \
247 $global_window::en_back | \
251 } elseif { $id == 1 } {
253 global_window::active_controls [ \
255 $global_window::en_params | \
256 $global_window::en_save | \
257 $global_window::en_load | \
258 $global_window::en_open | \
259 $global_window::en_help | \
260 $global_window::en_rotate | \
261 $global_window::en_bright | \
262 $global_window::en_pan | \
263 $global_window::en_zoom | \
264 $global_window::en_back | \
268 } elseif { $id == 2 } {
270 global_window::active_controls [ \
272 $global_window::en_planes | \
273 $global_window::en_params | \
274 $global_window::en_save | \
275 $global_window::en_load | \
276 $global_window::en_open | \
277 $global_window::en_help | \
278 $global_window::en_rotate | \
279 $global_window::en_bright | \
280 $global_window::en_pan | \
281 $global_window::en_zoom | \
282 $global_window::en_back | \
283 $global_window::en_wizard | \