1 namespace eval dlg_params {
9 variable widgetsGeneral
11 variable widgetsContours
12 variable widgetsQuantification
18 variable stenosis_type 0
21 variable params_to_save {}
25 proc dlg_params::reset { parent } {
27 # For programming facilities
28 upvar dlg_params::widgets widgets
29 upvar dlg_params::widgetsGeneral widgetsGeneral
30 upvar dlg_params::widgetsAxes widgetsAxes
31 upvar dlg_params::widgetsContours widgetsContours
32 upvar dlg_params::widgetsQuantification widgetsQuantification
33 upvar dlg_params::gen_debug gen_debug
34 upvar dlg_params::con_debug con_debug
35 upvar dlg_params::quant_type quant_type
36 upvar dlg_params::alg_type alg_type
37 upvar dlg_params::stenosis_type stenosis_type
38 upvar dlg_params::params_to_save params_to_save
40 set widgets(base) "$parent\.dlg_params"
41 set widgets(tabs) "$parent\.dlg_params.tabs"
42 set widgets(buttons) "$parent\.dlg_params.buttons"
43 set widgets(general) "$parent\.dlg_params.general"
44 set widgets(axis) "$parent\.dlg_params.axis"
45 set widgets(contour) "$parent\.dlg_params.contour"
46 set widgets(quantification) "$parent\.dlg_params.quantification"
47 set widgets(btnGeneral) "$parent\.dlg_params.tabs.btnGeneral"
48 set widgets(btnAxis) "$parent\.dlg_params.tabs.btnAxis"
49 set widgets(btnContour) "$parent\.dlg_params.tabs.btnContour"
50 set widgets(btnQuant) "$parent\.dlg_params.tabs.btnQuant"
51 set widgets(btnOk) "$parent\.dlg_params.buttons.btnOk"
52 set widgets(btnCancel) "$parent\.dlg_params.buttons.btnCancel"
54 set widgetsGeneral(genDataPaths) "$parent\.dlg_params.general.dataPaths"
55 set widgetsGeneral(genWork) "$parent\.dlg_params.general.dataPaths.cpd24"
56 set widgetsGeneral(genWork01) "$parent\.dlg_params.general.dataPaths.cpd24.01"
57 set widgetsGeneral(genWork02) "$parent\.dlg_params.general.dataPaths.cpd24.02"
58 set widgetsGeneral(genImages) "$parent\.dlg_params.general.dataPaths.cpd25"
59 set widgetsGeneral(genImages01) "$parent\.dlg_params.general.dataPaths.cpd25.01"
60 set widgetsGeneral(genImages02) "$parent\.dlg_params.general.dataPaths.cpd25.02"
61 set widgetsGeneral(genBtnBrwWork) "$parent\.dlg_params.general.dataPaths.btnBrwWork"
62 set widgetsGeneral(genBtnBrwImages) "$parent\.dlg_params.general.dataPaths.btnBrwImages"
63 set widgetsGeneral(genDebug) "$parent\.dlg_params.general.debug"
64 set widgetsGeneral(genBtnWndVis) "$parent\.dlg_params.general.debug.btnWndVis"
65 set widgetsGeneral(genBtnConVis) "$parent\.dlg_params.general.debug.btnConVis"
66 set widgetsGeneral(genBtnMIPDef) "$parent\.dlg_params.general.debug.btnMIPDef"
67 set widgetsGeneral(genBtnAllSlc) "$parent\.dlg_params.general.debug.btnAllSlc"
68 set widgetsGeneral(genBtnColor) "$parent\.dlg_params.general.debug.btnColor"
69 set widgetsGeneral(genlbl009) "$parent\.dlg_params.general.debug.lbl009"
70 set widgetsGeneral(genlbl001) "$parent\.dlg_params.general.lbl001"
71 set widgetsGeneral(genlbl078) "$parent\.dlg_params.general.lbl078"
73 set widgetsAxes(axVoxelX) "$parent\.dlg_params.axis.cpd26"
74 set widgetsAxes(axVoxelX01) "$parent\.dlg_params.axis.cpd26.01"
75 set widgetsAxes(axVoxelX02) "$parent\.dlg_params.axis.cpd26.02"
76 set widgetsAxes(axVoxelY) "$parent\.dlg_params.axis.cpd28"
77 set widgetsAxes(axVoxelY01) "$parent\.dlg_params.axis.cpd28.01"
78 set widgetsAxes(axVoxelY02) "$parent\.dlg_params.axis.cpd28.02"
79 set widgetsAxes(axVoxelZ) "$parent\.dlg_params.axis.cpd29"
80 set widgetsAxes(axVoxelZ01) "$parent\.dlg_params.axis.cpd29.01"
81 set widgetsAxes(axVoxelZ02) "$parent\.dlg_params.axis.cpd29.02"
82 set widgetsAxes(axStep) "$parent\.dlg_params.axis.cpd30"
83 set widgetsAxes(axStep01) "$parent\.dlg_params.axis.cpd30.01"
84 set widgetsAxes(axStep02) "$parent\.dlg_params.axis.cpd30.02"
85 set widgetsAxes(axAxisStep) "$parent\.dlg_params.axis.cpd31"
86 set widgetsAxes(axAxisStep01) "$parent\.dlg_params.axis.cpd31.01"
87 set widgetsAxes(axAxisStep02) "$parent\.dlg_params.axis.cpd31.02"
88 set widgetsAxes(axROIDim) "$parent\.dlg_params.axis.cpd32"
89 set widgetsAxes(axROIDim01) "$parent\.dlg_params.axis.cpd32.01"
90 set widgetsAxes(axROIDim02) "$parent\.dlg_params.axis.cpd32.02"
91 set widgetsAxes(axMassPower) "$parent\.dlg_params.axis.cpd33"
92 set widgetsAxes(axMassPower01) "$parent\.dlg_params.axis.cpd33.01"
93 set widgetsAxes(axMassPower02) "$parent\.dlg_params.axis.cpd33.02"
94 set widgetsAxes(axTension) "$parent\.dlg_params.axis.cpd34"
95 set widgetsAxes(axTension01) "$parent\.dlg_params.axis.cpd34.01"
96 set widgetsAxes(axTension02) "$parent\.dlg_params.axis.cpd34.02"
97 set widgetsAxes(axPas) "$parent\.dlg_params.axis.cpd35"
98 set widgetsAxes(axPas01) "$parent\.dlg_params.axis.cpd35.01"
99 set widgetsAxes(axPas02) "$parent\.dlg_params.axis.cpd35.02"
100 set widgetsAxes(axDistCDG) "$parent\.dlg_params.axis.cpd36"
101 set widgetsAxes(axDistCDG01) "$parent\.dlg_params.axis.cpd36.01"
102 set widgetsAxes(axDistCDG02) "$parent\.dlg_params.axis.cpd36.02"
103 set widgetsAxes(axCell) "$parent\.dlg_params.axis.cpd37"
104 set widgetsAxes(axCell01) "$parent\.dlg_params.axis.cpd37.01"
105 set widgetsAxes(axCell02) "$parent\.dlg_params.axis.cpd37.02"
106 set widgetsAxes(axFlex) "$parent\.dlg_params.axis.cpd38"
107 set widgetsAxes(axFlex01) "$parent\.dlg_params.axis.cpd38.01"
108 set widgetsAxes(axFlex02) "$parent\.dlg_params.axis.cpd38.02"
109 set widgetsAxes(axMaskSize) "$parent\.dlg_params.axis.cpd39"
110 set widgetsAxes(axMaskSize01) "$parent\.dlg_params.axis.cpd39.01"
111 set widgetsAxes(axMaskSize02) "$parent\.dlg_params.axis.cpd39.02"
112 set widgetsAxes(axDistInt) "$parent\.dlg_params.axis.cpd40"
113 set widgetsAxes(axDistInt01) "$parent\.dlg_params.axis.cpd40.01"
114 set widgetsAxes(axDistInt02) "$parent\.dlg_params.axis.cpd40.02"
115 set widgetsAxes(axCoefCellMax) "$parent\.dlg_params.axis.axCoefCellMax"
116 set widgetsAxes(axCoefCellMax01) "$parent\.dlg_params.axis.axCoefCellMax.01"
117 set widgetsAxes(axCoefCellMax02) "$parent\.dlg_params.axis.axCoefCellMax.02"
118 set widgetsAxes(axBtnMinVoxel) "$parent\.dlg_params.axis.btnMinVoxel"
119 set widgetsAxes(axBtnNorVoxel) "$parent\.dlg_params.axis.btnNorVoxel"
120 set widgetsAxes(axlblColor) "$parent\.dlg_params.axis.lblColor"
121 set widgetsAxes(axBtnColor) "$parent\.dlg_params.axis.btnColor"
122 set widgetsAxes(axLblDebug) "$parent\.dlg_params.axis.lblDebug"
123 set widgetsAxes(axFrDebug) "$parent\.dlg_params.axis.frDebug"
124 set widgetsAxes(axBtnShowCell) "$parent\.dlg_params.axis.frDebug.btnShowCell"
125 set widgetsAxes(axBtnShowICell) "$parent\.dlg_params.axis.frDebug.btnShowICell"
127 set widgetsContours(conFrSlice) "$parent\.dlg_params.contour.frSlice"
128 set widgetsContours(conFrScale) "$parent\.dlg_params.contour.frSlice.frScale"
129 set widgetsContours(conLblScale) "$parent\.dlg_params.contour.frSlice.frScale.lblScale"
130 set widgetsContours(conEdtScale) "$parent\.dlg_params.contour.frSlice.frScale.edtScale"
131 set widgetsContours(conFrSample) "$parent\.dlg_params.contour.frSlice.frSample"
132 set widgetsContours(conLblSample) "$parent\.dlg_params.contour.frSlice.frSample.lblSample"
133 set widgetsContours(conEdtSample) "$parent\.dlg_params.contour.frSlice.frSample.edtSample"
134 set widgetsContours(conFrDebug) "$parent\.dlg_params.contour.frDebug"
135 set widgetsContours(conBtnIsoconturs) "$parent\.dlg_params.contour.frDebug.btnIsoconturs"
136 set widgetsContours(conBtnDiameters) "$parent\.dlg_params.contour.frDebug.btnDiameters"
137 set widgetsContours(conBtnFillContours) "$parent\.dlg_params.contour.frDebug.btnFillContours"
138 set widgetsContours(conFrIso) "$parent\.dlg_params.contour.frIso"
139 set widgetsContours(conFrThrIso) "$parent\.dlg_params.contour.frIso.frThrIso"
140 set widgetsContours(conLblThrIso) "$parent\.dlg_params.contour.frIso.frThrIso.lblThrIso"
141 set widgetsContours(conEdtThrIso) "$parent\.dlg_params.contour.frIso.frThrIso.edtThrIso"
142 set widgetsContours(conFrSnakeIso) "$parent\.dlg_params.contour.frSnakeIso"
143 set widgetsContours(conFrThrSnakeIso) "$parent\.dlg_params.contour.frSnakeIso.frThrSnakeIso"
144 set widgetsContours(conLblThrSnakeIso) "$parent\.dlg_params.contour.frSnakeIso.frThrSnakeIso.lblThrSnakeIso"
145 set widgetsContours(conEdtThrSnakeIso) "$parent\.dlg_params.contour.frSnakeIso.frThrSnakeIso.edtThrSnakeIso"
146 set widgetsContours(conFrIterSnakeIso) "$parent\.dlg_params.contour.frSnakeIso.frIterSnakeIso"
147 set widgetsContours(conLblIterSnakeIso) "$parent\.dlg_params.contour.frSnakeIso.frIterSnakeIso.lblIterSnakeIso"
148 set widgetsContours(conEdtIterSnakeIso) "$parent\.dlg_params.contour.frSnakeIso.frIterSnakeIso.edtIterSnakeIso"
149 set widgetsContours(conFrCoefExternSnakeIso) "$parent\.dlg_params.contour.frSnakeIso.frCoefExternSnakeIso"
150 set widgetsContours(conLblCoefExternSnakeIso) "$parent\.dlg_params.contour.frSnakeIso.frCoefExternSnakeIso.lblCoefExternSnakeIso"
151 set widgetsContours(conEdtCoefExternSnakeIso) "$parent\.dlg_params.contour.frSnakeIso.frCoefExternSnakeIso.edtCoefExternSnakeIso"
152 set widgetsContours(conFrSnakeDer) "$parent\.dlg_params.contour.frSnakeDer"
153 set widgetsContours(conFrIterSnakeDer) "$parent\.dlg_params.contour.frSnakeDer.frIterSnakeDer"
154 set widgetsContours(conLblIterSnakeDer) "$parent\.dlg_params.contour.frSnakeDer.frIterSnakeDer.lblIterSnakeDer"
155 set widgetsContours(conEdtIterSnakeDer) "$parent\.dlg_params.contour.frSnakeDer.frIterSnakeDer.edtIterSnakeDer"
156 set widgetsContours(conFrCoefGradSnakeDer) "$parent\.dlg_params.contour.frSnakeDer.frCoefGradSnakeDer"
157 set widgetsContours(conLblCoefGradSnakeDer) "$parent\.dlg_params.contour.frSnakeDer.frCoefGradSnakeDer.lblCoefGradSnakeDer"
158 set widgetsContours(conEdtCoefGradSnakeDer) "$parent\.dlg_params.contour.frSnakeDer.frCoefGradSnakeDer.edtCoefGradSnakeDer"
159 set widgetsContours(conFrCoefBallonSnakeDer) "$parent\.dlg_params.contour.frSnakeDer.frBallonCoefSnakeDer"
160 set widgetsContours(conLblCoefBallonSnakeDer) "$parent\.dlg_params.contour.frSnakeDer.frBallonCoefSnakeDer.lblCoefBallonSnakeDer"
161 set widgetsContours(conEdtCoefBallonSnakeDer) "$parent\.dlg_params.contour.frSnakeDer.frBallonCoefSnakeDer.edtCoefBallonSnakeDer"
162 set widgetsContours(conFrSigmaSnakeDer) "$parent\.dlg_params.contour.frSnakeDer.frSigmaSnakeDer"
163 set widgetsContours(conLblSigmaSnakeDer) "$parent\.dlg_params.contour.frSnakeDer.frSigmaSnakeDer.lblSigmaSnakeDer"
164 set widgetsContours(conEdtSigmaSnakeDer) "$parent\.dlg_params.contour.frSnakeDer.frSigmaSnakeDer.edtSigmaSnakeDer"
165 set widgetsContours(conLbl001) "$parent\.dlg_params.contour.lbl001"
166 set widgetsContours(conLbl002) "$parent\.dlg_params.contour.lbl002"
167 set widgetsContours(conBtnIso) "$parent\.dlg_params.contour.btnIso"
168 set widgetsContours(conBtnSnakeIso) "$parent\.dlg_params.contour.btnSnakeIso"
169 set widgetsContours(conBtnSnakeDer) "$parent\.dlg_params.contour.btnSnakeDer"
171 set widgetsQuantification(quantMeasures) "$parent\.dlg_params.quantification.measures"
172 set widgetsQuantification(quantBtnAreaM) "$parent\.dlg_params.quantification.measures.btnAreaM"
173 set widgetsQuantification(quantBtnPeriM) "$parent\.dlg_params.quantification.measures.btnPeriM"
174 set widgetsQuantification(quantBtnDiaAreaM) "$parent\.dlg_params.quantification.measures.btnDiaAreaM"
175 set widgetsQuantification(quantBtnDiaPeriM) "$parent\.dlg_params.quantification.measures.btnDiaPeriM"
176 set widgetsQuantification(quantBtnDiaMinM) "$parent\.dlg_params.quantification.measures.btnDiaMinM"
177 set widgetsQuantification(quantBtnDiaMaxM) "$parent\.dlg_params.quantification.measures.btnDiaMaxM"
178 set widgetsQuantification(quantBtnDiaAvgM) "$parent\.dlg_params.quantification.measures.btnDiaAvgM"
179 set widgetsQuantification(quantStenosis) "$parent\.dlg_params.quantification.stenosis"
180 set widgetsQuantification(quantBtnAreaS) "$parent\.dlg_params.quantification.stenosis.btnAreaS"
181 set widgetsQuantification(quantBtnPeriS) "$parent\.dlg_params.quantification.stenosis.btnPeriS"
182 set widgetsQuantification(quantBtnDiaAreaS) "$parent\.dlg_params.quantification.stenosis.btnDiaAreaS"
183 set widgetsQuantification(quantBtnDiaPeriS) "$parent\.dlg_params.quantification.stenosis.btnDiaPeriS"
184 set widgetsQuantification(quantBtnDiaMinS) "$parent\.dlg_params.quantification.stenosis.btnDiaMinS"
185 set widgetsQuantification(quantBtnDiaMaxS) "$parent\.dlg_params.quantification.stenosis.btnDiaMaxS"
186 set widgetsQuantification(quantBtnDiaAvgS) "$parent\.dlg_params.quantification.stenosis.btnDiaAvgS"
187 set widgetsQuantification(quantlbl22) "$parent\.dlg_params.quantification.lbl22"
188 set widgetsQuantification(quantlbl23) "$parent\.dlg_params.quantification.lbl23"
195 set params_to_save {}
199 proc dlg_params::show { parent params } {
201 # For programming facilities
202 upvar dlg_params::widgets widgets
203 upvar dlg_params::widgetsGeneral widgetsGeneral
204 upvar dlg_params::widgetsAxes widgetsAxes
205 upvar dlg_params::widgetsContours widgetsContours
206 upvar dlg_params::widgetsQuantification widgetsQuantification
207 upvar dlg_params::gen_debug gen_debug
208 upvar dlg_params::con_debug con_debug
209 upvar dlg_params::quant_type quant_type
210 upvar dlg_params::alg_type alg_type
211 upvar dlg_params::stenosis_type stenosis_type
212 upvar dlg_params::params_to_save params_to_save
214 dlg_params::reset $parent
217 toplevel $widgets(base) -class Toplevel
218 wm focusmodel $widgets(base) passive
219 wm geometry $widgets(base) 519x384+357+190
220 wm maxsize $widgets(base) 1030 755
221 wm minsize $widgets(base) 106 2
222 wm overrideredirect $widgets(base) 0
223 wm resizable $widgets(base) 0 0
224 wm deiconify $widgets(base)
225 wm title $widgets(base) "$string_table::str_title_params"
228 frame $widgets(tabs) -height 75 -width 125
229 frame $widgets(buttons) -height 47 -width 125
230 frame $widgets(general) -borderwidth 2 -height 75 -relief groove -width 125
231 frame $widgets(axis) -borderwidth 2 -height 75 -relief groove -width 125
232 frame $widgets(contour) -borderwidth 2 -height 75 -relief groove -width 125
233 frame $widgets(quantification) -borderwidth 2 -height 75 -relief groove -width 125
235 frame $widgetsGeneral(genDataPaths) -borderwidth 2 -height 75 -relief groove -width 125
236 frame $widgetsGeneral(genWork) -borderwidth 1 -height 30 -width 30
237 frame $widgetsGeneral(genImages) -borderwidth 1 -height 30 -width 30
238 frame $widgetsGeneral(genDebug) -borderwidth 2 -height 75 -relief groove -width 125
240 frame $widgetsAxes(axVoxelX) -borderwidth 1 -height 30 -width 30
241 frame $widgetsAxes(axVoxelY) -borderwidth 1 -height 30 -width 30
242 frame $widgetsAxes(axVoxelZ) -borderwidth 1 -height 30 -width 30
243 frame $widgetsAxes(axStep) -borderwidth 1 -height 30 -width 30
244 frame $widgetsAxes(axAxisStep) -borderwidth 1 -height 30 -width 30
245 frame $widgetsAxes(axROIDim) -borderwidth 1 -height 30 -width 30
246 frame $widgetsAxes(axMassPower) -borderwidth 1 -height 30 -width 30
247 frame $widgetsAxes(axTension) -borderwidth 1 -height 30 -width 30
248 frame $widgetsAxes(axPas) -borderwidth 1 -height 30 -width 30
249 frame $widgetsAxes(axDistCDG) -borderwidth 1 -height 30 -width 30
250 frame $widgetsAxes(axCell) -borderwidth 1 -height 30 -width 30
251 frame $widgetsAxes(axFlex) -borderwidth 1 -height 30 -width 30
252 frame $widgetsAxes(axMaskSize) -borderwidth 1 -height 30 -width 30
253 frame $widgetsAxes(axDistInt) -borderwidth 1 -height 30 -width 30
254 frame $widgetsAxes(axCoefCellMax) -borderwidth 1 -height 30 -width 30
255 frame $widgetsAxes(axFrDebug) -borderwidth 2 -height 30 -width 30 -relief groove
257 frame $widgetsContours(conFrSlice) -borderwidth 2 -height 30 -width 30 -relief groove
258 frame $widgetsContours(conFrScale) -borderwidth 1 -height 30 -width 30
259 frame $widgetsContours(conFrSample) -borderwidth 1 -height 30 -width 30
260 frame $widgetsContours(conFrDebug) -borderwidth 2 -height 30 -width 30 -relief groove
261 frame $widgetsContours(conFrIso) -borderwidth 2 -height 30 -width 30 -relief groove
262 frame $widgetsContours(conFrThrIso) -borderwidth 1 -height 30 -width 30
263 frame $widgetsContours(conFrSnakeIso) -borderwidth 2 -height 30 -width 30 -relief groove
264 frame $widgetsContours(conFrThrSnakeIso) -borderwidth 1 -height 30 -width 30
265 frame $widgetsContours(conFrIterSnakeIso) -borderwidth 1 -height 30 -width 30
266 frame $widgetsContours(conFrCoefExternSnakeIso) -borderwidth 1 -height 30 -width 30
267 frame $widgetsContours(conFrSnakeDer) -borderwidth 2 -height 30 -width 30 -relief groove
268 frame $widgetsContours(conFrIterSnakeDer) -borderwidth 1 -height 30 -width 30
269 frame $widgetsContours(conFrCoefGradSnakeDer) -borderwidth 1 -height 30 -width 30
270 frame $widgetsContours(conFrCoefBallonSnakeDer) -borderwidth 1 -height 30 -width 30
271 frame $widgetsContours(conFrSigmaSnakeDer) -borderwidth 1 -height 30 -width 30
273 frame $widgetsQuantification(quantMeasures) -borderwidth 2 -height 75 -relief groove -width 125
274 frame $widgetsQuantification(quantStenosis) -borderwidth 2 -height 75 -relief groove -width 125
277 radiobutton $widgets(btnGeneral) -indicatoron 0 -text $string_table::str_general -variable tab_value -value 1 -command "dlg_params::cb_show_general"
278 radiobutton $widgets(btnAxis) -indicatoron 0 -text $string_table::str_axis -variable tab_value -value 2 -command "dlg_params::cb_show_axis"
279 radiobutton $widgets(btnContour) -indicatoron 0 -text $string_table::str_contour -variable tab_value -value 3 -command "dlg_params::cb_show_contour"
280 radiobutton $widgets(btnQuant) -indicatoron 0 -text $string_table::str_quantification -variable tab_value -value 4 -command "dlg_params::cb_show_quant"
283 entry $widgetsGeneral(genWork02)
284 entry $widgetsGeneral(genImages02)
286 entry $widgetsAxes(axVoxelX02)
287 entry $widgetsAxes(axVoxelY02)
288 entry $widgetsAxes(axVoxelZ02)
289 label $widgetsAxes(axStep02)
290 entry $widgetsAxes(axAxisStep02)
291 label $widgetsAxes(axROIDim02)
292 label $widgetsAxes(axMassPower02)
293 entry $widgetsAxes(axTension02)
294 label $widgetsAxes(axPas02)
295 entry $widgetsAxes(axDistCDG02)
296 label $widgetsAxes(axCell02)
297 entry $widgetsAxes(axFlex02)
298 entry $widgetsAxes(axMaskSize02)
299 label $widgetsAxes(axDistInt02)
300 label $widgetsAxes(axCoefCellMax02)
302 entry $widgetsContours(conEdtScale)
303 entry $widgetsContours(conEdtSample)
304 entry $widgetsContours(conEdtThrIso)
305 entry $widgetsContours(conEdtThrSnakeIso)
306 entry $widgetsContours(conEdtIterSnakeIso)
307 entry $widgetsContours(conEdtCoefExternSnakeIso)
308 entry $widgetsContours(conEdtIterSnakeDer)
309 entry $widgetsContours(conEdtCoefGradSnakeDer)
310 entry $widgetsContours(conEdtCoefBallonSnakeDer)
311 entry $widgetsContours(conEdtSigmaSnakeDer)
314 checkbutton $widgetsGeneral(genBtnWndVis) -text $string_table::str_debug_window_visible -variable btnWndVis -command { dlg_params::cb_gen_debug $btnWndVis 0x01 }
315 checkbutton $widgetsGeneral(genBtnConVis) -text $string_table::str_console_window_visible -variable btnConsole -command { dlg_params::cb_gen_debug $btnConsole 0x02 }
316 checkbutton $widgetsGeneral(genBtnMIPDef) -text $string_table::str_calculate_mip_default -variable btnMIP -command { dlg_params::cb_gen_debug $btnMIP 0x04 }
317 checkbutton $widgetsGeneral(genBtnAllSlc) -text $string_table::str_all_slices_selected -variable btnSlices -command { dlg_params::cb_gen_debug $btnSlices 0x08 }
319 checkbutton $widgetsAxes(axBtnShowCell) -text $string_table::str_show_cell -variable btnDebug01
320 checkbutton $widgetsAxes(axBtnShowICell) -text $string_table::str_show_i_cell -variable btnDebug02
322 checkbutton $widgetsContours(conBtnIsoconturs) -text $string_table::str_isocontours -variable btn001 -command { dlg_params::cb_con_debug $btn001 0x01 }
323 checkbutton $widgetsContours(conBtnDiameters) -text $string_table::str_diameters -variable btn002 -command { dlg_params::cb_con_debug $btn001 0x02 }
324 checkbutton $widgetsContours(conBtnFillContours) -text $string_table::str_filled_contour -variable btn003 -command { dlg_params::cb_con_debug $btn001 0x04 }
326 checkbutton $widgetsQuantification(quantBtnAreaM) -text $string_table::str_area -variable btnArea -command { dlg_params::cb_quant_type $btnArea 0x01 quantBtnAreaS }
327 checkbutton $widgetsQuantification(quantBtnPeriM) -text $string_table::str_peri -variable btnPeri -command { dlg_params::cb_quant_type $btnPeri 0x02 quantBtnPeriS }
328 checkbutton $widgetsQuantification(quantBtnDiaAreaM) -text $string_table::str_diam_area -variable btnDiaArea -command { dlg_params::cb_quant_type $btnDiaArea 0x04 quantBtnDiaAreaS }
329 checkbutton $widgetsQuantification(quantBtnDiaPeriM) -text $string_table::str_diam_peri -variable btnDiaPeri -command { dlg_params::cb_quant_type $btnDiaPeri 0x08 quantBtnDiaPeriS }
330 checkbutton $widgetsQuantification(quantBtnDiaMinM) -text $string_table::str_diam_min -variable btnDiaMin -command { dlg_params::cb_quant_type $btnDiaMin 0x10 quantBtnDiaMinS }
331 checkbutton $widgetsQuantification(quantBtnDiaMaxM) -text $string_table::str_diam_max -variable btnDiaMax -command { dlg_params::cb_quant_type $btnDiaMax 0x20 quantBtnDiaMaxS }
332 checkbutton $widgetsQuantification(quantBtnDiaAvgM) -text $string_table::str_diam_avg -variable btnDiaAvg -command { dlg_params::cb_quant_type $btnDiaAvg 0x40 quantBtnDiaAvgS }
335 radiobutton $widgetsAxes(axBtnMinVoxel) -borderwidth 0 -text $string_table::str_minimum_voxel -variable dlg_params::voxel_typ -value 1
336 radiobutton $widgetsAxes(axBtnNorVoxel) -borderwidth 0 -text $string_table::str_normal_voxel -variable dlg_params::voxel_typ -value 2
338 radiobutton $widgetsContours(conBtnIso) -text $string_table::str_isocontour -variable dlg_params::alg_type -value 1 -borderwidth 0 -relief flat
339 radiobutton $widgetsContours(conBtnSnakeIso) -text $string_table::str_snake_iso -variable dlg_params::alg_type -value 2 -borderwidth 0 -relief flat
340 radiobutton $widgetsContours(conBtnSnakeDer) -text $string_table::str_snake_der -variable dlg_params::alg_type -value 3 -borderwidth 0 -relief flat
342 radiobutton $widgetsQuantification(quantBtnAreaS) -text $string_table::str_area -variable v_stenosis_type -value 1 -command { dlg_params::set_stenosis_type $v_stenosis_type }
343 radiobutton $widgetsQuantification(quantBtnPeriS) -text $string_table::str_peri -variable v_stenosis_type -value 2 -command { dlg_params::set_stenosis_type $v_stenosis_type }
344 radiobutton $widgetsQuantification(quantBtnDiaAreaS) -text $string_table::str_diam_area -variable v_stenosis_type -value 3 -command { dlg_params::set_stenosis_type $v_stenosis_type }
345 radiobutton $widgetsQuantification(quantBtnDiaPeriS) -text $string_table::str_diam_peri -variable v_stenosis_type -value 4 -command { dlg_params::set_stenosis_type $v_stenosis_type }
346 radiobutton $widgetsQuantification(quantBtnDiaMaxS) -text $string_table::str_diam_max -variable v_stenosis_type -value 5 -command { dlg_params::set_stenosis_type $v_stenosis_type }
347 radiobutton $widgetsQuantification(quantBtnDiaMinS) -text $string_table::str_diam_min -variable v_stenosis_type -value 6 -command { dlg_params::set_stenosis_type $v_stenosis_type }
348 radiobutton $widgetsQuantification(quantBtnDiaAvgS) -text $string_table::str_diam_avg -variable v_stenosis_type -value 7 -command { dlg_params::set_stenosis_type $v_stenosis_type }
351 label $widgetsGeneral(genWork01) -anchor w -text $string_table::str_work_directory
352 label $widgetsGeneral(genImages01) -anchor w -text $string_table::str_images_directory
353 label $widgetsGeneral(genlbl009) -borderwidth 0 -text $string_table::str_3D_back_color
354 label $widgetsGeneral(genlbl001) -borderwidth 0 -text $string_table::str_directories
355 label $widgetsGeneral(genlbl078) -borderwidth 0 -text $string_table::str_user_defined
357 label $widgetsAxes(axVoxelX01) -anchor w -text $string_table::str_dim_voxel_x
358 label $widgetsAxes(axVoxelY01) -anchor w -text $string_table::str_dim_voxel_y
359 label $widgetsAxes(axVoxelZ01) -anchor w -text $string_table::str_dim_voxel_z
360 label $widgetsAxes(axStep01) -anchor w -text $string_table::str_step -state disabled
361 label $widgetsAxes(axAxisStep01) -anchor w -text $string_table::str_axis_step
362 label $widgetsAxes(axROIDim01) -anchor w -text $string_table::str_roi_dim -state disabled
363 label $widgetsAxes(axMassPower01) -anchor w -text $string_table::str_mass_power -state disabled
364 label $widgetsAxes(axTension01) -anchor w -text $string_table::str_coef_tension
365 label $widgetsAxes(axPas01) -anchor w -text $string_table::str_coef_pas -state disabled
366 label $widgetsAxes(axDistCDG01) -anchor w -text $string_table::str_distance_cdg -state disabled
367 label $widgetsAxes(axCell01) -anchor w -text $string_table::str_coef_cell -state disabled
368 label $widgetsAxes(axFlex01) -anchor w -text $string_table::str_coef_flex
369 label $widgetsAxes(axMaskSize01) -anchor w -text $string_table::str_mask_size
370 label $widgetsAxes(axDistInt01) -anchor w -text $string_table::str_dist_int -state disabled
371 label $widgetsAxes(axlblColor) -borderwidth 0 -text $string_table::str_axis_color
372 label $widgetsAxes(axCoefCellMax01) -anchor w -text $string_table::str_coef_cell_max_int -state disabled
373 label $widgetsAxes(axLblDebug) -anchor w -text $string_table::str_debug
376 label $widgetsContours(conLblScale) -anchor w -text $string_table::str_scale
377 label $widgetsContours(conLblSample) -anchor w -text $string_table::str_sample
378 label $widgetsContours(conLblThrIso) -anchor w -text $string_table::str_threshold
379 label $widgetsContours(conLblThrSnakeIso) -anchor w -text $string_table::str_threshold
380 label $widgetsContours(conLblIterSnakeIso) -anchor w -text $string_table::str_iter
381 label $widgetsContours(conLblCoefExternSnakeIso) -anchor w -text $string_table::str_coef_extern
382 label $widgetsContours(conLblIterSnakeDer) -anchor w -text $string_table::str_iter
383 label $widgetsContours(conLblCoefGradSnakeDer) -anchor w -text $string_table::str_coef_grad
384 label $widgetsContours(conLblCoefBallonSnakeDer) -anchor w -text $string_table::str_coef_ballon
385 label $widgetsContours(conLblSigmaSnakeDer) -anchor w -text $string_table::str_sigma
386 label $widgetsContours(conLbl001) -anchor w -text $string_table::str_slice
387 label $widgetsContours(conLbl002) -anchor w -text $string_table::str_debug
389 label $widgetsQuantification(quantlbl22) -borderwidth 0 -text $string_table::str_data_types
390 label $widgetsQuantification(quantlbl23) -borderwidth 0 -text $string_table::str_stenosis_type
393 button $widgets(btnOk) -text $string_table::str_ok -command "dlg_params::save_params"
394 button $widgets(btnCancel) -text $string_table::str_cancel -command "dlg_params::cancel_params"
396 button $widgetsGeneral(genBtnBrwWork) -text $string_table::str_browse -command "dlg_params::cb_browse_path $widgetsGeneral(genWork02)"
397 button $widgetsGeneral(genBtnBrwImages) -text $string_table::str_browse -command "dlg_params::cb_browse_path $widgetsGeneral(genImages02)"
398 button $widgetsGeneral(genBtnColor) -command "dlg_params::cb_choose_color $widgetsGeneral(genBtnColor)"
400 button $widgetsAxes(axBtnColor) -command "dlg_params::cb_choose_color $widgetsAxes(axBtnColor)"
403 dlg_params::positionate
406 dlg_params::init_params $params
408 # set global focus input to dialog
409 grab set $widgets(base)
411 # waits for dialog destruction, i.e. waits for user interaction with dialog
412 tkwait window $widgets(base)
414 return $params_to_save
418 proc dlg_params::positionate { } {
420 # For programming facilities
421 upvar dlg_params::widgets widgets
422 upvar dlg_params::widgetsGeneral widgetsGeneral
423 upvar dlg_params::widgetsAxes widgetsAxes
424 upvar dlg_params::widgetsContours widgetsContours
425 upvar dlg_params::widgetsQuantification widgetsQuantification
426 upvar dlg_params::gen_debug gen_debug
427 upvar dlg_params::con_debug con_debug
428 upvar dlg_params::quant_type quant_type
429 upvar dlg_params::alg_type alg_type
430 upvar dlg_params::stenosis_type stenosis_type
431 upvar dlg_params::params_to_save params_to_save
433 pack $widgets(tabs) -expand 0 -fill x -side top
434 pack $widgets(btnGeneral) -anchor nw -expand 0 -fill none -side left
435 pack $widgets(btnAxis) -anchor nw -expand 0 -fill none -side left
436 pack $widgets(btnContour) -anchor nw -expand 0 -fill none -side left
437 pack $widgets(btnQuant) -anchor nw -expand 0 -fill none -side left
439 $widgets(btnGeneral) deselect
440 $widgets(btnAxis) deselect
441 $widgets(btnContour) deselect
442 $widgets(btnQuant) deselect
443 $widgets(btnGeneral) invoke
447 proc dlg_params::init_params { params } {
449 # For programming facilities
450 upvar dlg_params::widgets widgets
451 upvar dlg_params::widgetsGeneral widgetsGeneral
452 upvar dlg_params::widgetsAxes widgetsAxes
453 upvar dlg_params::widgetsContours widgetsContours
454 upvar dlg_params::widgetsQuantification widgetsQuantification
455 upvar dlg_params::gen_debug gen_debug
456 upvar dlg_params::con_debug con_debug
457 upvar dlg_params::quant_type quant_type
458 upvar dlg_params::alg_type alg_type
459 upvar dlg_params::stenosis_type stenosis_type
460 upvar dlg_params::params_to_save params_to_save
462 set params_to_save $params
463 array set arr $params
465 $widgetsGeneral(genWork02) delete 0 end
466 $widgetsGeneral(genImages02) delete 0 end
468 $widgetsAxes(axVoxelX02) delete 0 end
469 $widgetsAxes(axVoxelY02) delete 0 end
470 $widgetsAxes(axVoxelZ02) delete 0 end
471 $widgetsAxes(axAxisStep02) delete 0 end
472 $widgetsAxes(axTension02) delete 0 end
473 $widgetsAxes(axDistCDG02) delete 0 end
474 $widgetsAxes(axFlex02) delete 0 end
475 $widgetsAxes(axMaskSize02) delete 0 end
477 $widgetsContours(conEdtScale) delete 0 end
478 $widgetsContours(conEdtSample) delete 0 end
479 $widgetsContours(conEdtThrIso) delete 0 end
480 $widgetsContours(conEdtThrSnakeIso) delete 0 end
481 $widgetsContours(conEdtIterSnakeIso) delete 0 end
482 $widgetsContours(conEdtCoefExternSnakeIso) delete 0 end
483 $widgetsContours(conEdtIterSnakeDer) delete 0 end
484 $widgetsContours(conEdtCoefGradSnakeDer) delete 0 end
485 $widgetsContours(conEdtCoefBallonSnakeDer) delete 0 end
486 $widgetsContours(conEdtSigmaSnakeDer) delete 0 end
488 $widgetsGeneral(genWork02) insert 0 $arr(e_installation_directory)
489 $widgetsGeneral(genImages02) insert 0 $arr(e_dicom_images_directory)
491 $widgetsAxes(axVoxelX02) insert 0 $arr(e_voxel_x_dimension)
492 $widgetsAxes(axVoxelY02) insert 0 $arr(e_voxel_y_dimension)
493 $widgetsAxes(axVoxelZ02) insert 0 $arr(e_voxel_z_dimension)
494 $widgetsAxes(axAxisStep02) insert 0 [ change_float_precision $arr(e_axis_discret_step) 2 ]
495 $widgetsAxes(axTension02) insert 0 [ change_float_precision $arr(e_tension_coeficient) 2 ]
496 $widgetsAxes(axDistCDG02) insert 0 [ change_float_precision $arr(e_gravity_distance) 2 ]
497 $widgetsAxes(axFlex02) insert 0 [ change_float_precision $arr(e_flexion_coeficient) 2 ]
498 $widgetsAxes(axMaskSize02) insert 0 [ change_float_precision $arr(e_mask_size) 2 ]
500 $widgetsAxes(axStep02) configure -text [ change_float_precision $arr(e_step) 2 ]
501 $widgetsAxes(axROIDim02) configure -text [ change_float_precision $arr(e_roi_dimension) 2 ]
502 $widgetsAxes(axMassPower02) configure -text [ change_float_precision $arr(e_mass_power) 2 ]
503 $widgetsAxes(axPas02) configure -text [ change_float_precision $arr(e_step_coeficient) 2 ]
504 $widgetsAxes(axCell02) configure -text [ change_float_precision $arr(e_cell_coeficient) 2 ]
505 $widgetsAxes(axDistInt02) configure -text [ change_float_precision $arr(e_distance_to_maximum_intensity) 2 ]
506 $widgetsAxes(axCoefCellMax02) configure -text $arr(e_coef_cell_max_int)
508 $widgetsContours(conEdtScale) insert 0 [ change_float_precision $arr(e_scale) 2 ]
509 $widgetsContours(conEdtSample) insert 0 [ change_float_precision $arr(e_sampling) 2 ]
510 $widgetsContours(conEdtThrIso) insert 0 [ change_float_precision $arr(e_threshold_isocontour) 2 ]
511 $widgetsContours(conEdtThrSnakeIso) insert 0 [ change_float_precision $arr(e_threshold_snake_isocontour) 2 ]
512 $widgetsContours(conEdtIterSnakeIso) insert 0 [ change_float_precision $arr(e_number_of_iterations_snake_isocontour) 2 ]
513 $widgetsContours(conEdtCoefExternSnakeIso) insert 0 [ change_float_precision $arr(e_extern_coeficient) 2 ]
514 $widgetsContours(conEdtIterSnakeDer) insert 0 [ change_float_precision $arr(e_number_of_iterations_snake_deriche) 2 ]
515 $widgetsContours(conEdtCoefGradSnakeDer) insert 0 [ change_float_precision $arr(e_gradient_coeficient) 2 ]
516 $widgetsContours(conEdtCoefBallonSnakeDer) insert 0 [ change_float_precision $arr(e_ballon_coeficient) 2 ]
517 $widgetsContours(conEdtSigmaSnakeDer) insert 0 [ change_float_precision $arr(e_sigma) 2 ]
519 $widgetsAxes(axBtnMinVoxel) deselect
520 $widgetsAxes(axBtnNorVoxel) deselect
521 if { $arr(e_voxel_type) == 1 } { $widgetsAxes(axBtnMinVoxel) invoke }
522 if { $arr(e_voxel_type) == 2 } { $widgetsAxes(axBtnNorVoxel) invoke }
524 $widgetsGeneral(genBtnWndVis) deselect
525 $widgetsGeneral(genBtnConVis) deselect
526 $widgetsGeneral(genBtnMIPDef) deselect
527 $widgetsGeneral(genBtnAllSlc) deselect
529 if { $arr(e_calculate_mip_default) == 1 } { $widgetsGeneral(genBtnMIPDef) invoke }
530 if { $arr(e_choose_all_slices_default) == 1 } { $widgetsGeneral(genBtnAllSlc) invoke }
531 if { $arr(e_debug_window_visible) == 1 } { $widgetsGeneral(genBtnWndVis) invoke }
532 if { $arr(e_debug_console_visible) == 1 } { $widgetsGeneral(genBtnConVis) invoke }
534 set alg_type $arr(e_algorithm_type)
535 if { $alg_type == 1 } { $widgetsContours(conBtnIso) invoke }
536 if { $alg_type == 2 } { $widgetsContours(conBtnSnakeIso) invoke }
537 if { $alg_type == 3 } { $widgetsContours(conBtnSnakeDer) invoke }
539 $widgetsContours(conBtnIsoconturs) deselect
540 $widgetsContours(conBtnDiameters) deselect
541 $widgetsContours(conBtnFillContours) deselect
543 if { $arr(e_debug_isocontour) == 1 } { $widgetsContours(conBtnIsoconturs) invoke }
544 if { $arr(e_debug_diameters) == 1 } { $widgetsContours(conBtnDiameters) invoke }
545 if { $arr(e_debug_fill_area) == 1 } { $widgetsContours(conBtnFillContours) invoke }
547 # $widgetsGeneral(genBtnColor) configure -background $arr(e_back_color_3D)
549 # $widgetsAxes(axBtnColor) configure -background $arr(e_axis_color)
551 $widgetsQuantification(quantBtnAreaM) deselect; $widgetsQuantification(quantBtnAreaS) configure -state disabled
552 $widgetsQuantification(quantBtnPeriM) deselect; $widgetsQuantification(quantBtnPeriS) configure -state disabled
553 $widgetsQuantification(quantBtnDiaAreaM) deselect; $widgetsQuantification(quantBtnDiaAreaS) configure -state disabled
554 $widgetsQuantification(quantBtnDiaPeriM) deselect; $widgetsQuantification(quantBtnDiaPeriS) configure -state disabled
555 $widgetsQuantification(quantBtnDiaMinM) deselect; $widgetsQuantification(quantBtnDiaMinS) configure -state disabled
556 $widgetsQuantification(quantBtnDiaMaxM) deselect; $widgetsQuantification(quantBtnDiaMaxS) configure -state disabled
557 $widgetsQuantification(quantBtnDiaAvgM) deselect; $widgetsQuantification(quantBtnDiaAvgS) configure -state disabled
559 if { ( $arr(e_quantification_type) & 0x01 ) == 0x01 } { $widgetsQuantification(quantBtnAreaM) invoke }
560 if { ( $arr(e_quantification_type) & 0x02 ) == 0x02 } { $widgetsQuantification(quantBtnPeriM) invoke }
561 if { ( $arr(e_quantification_type) & 0x04 ) == 0x04 } { $widgetsQuantification(quantBtnDiaAreaM) invoke }
562 if { ( $arr(e_quantification_type) & 0x08 ) == 0x08 } { $widgetsQuantification(quantBtnDiaPeriM) invoke }
563 if { ( $arr(e_quantification_type) & 0x10 ) == 0x10 } { $widgetsQuantification(quantBtnDiaMinM) invoke }
564 if { ( $arr(e_quantification_type) & 0x20 ) == 0x20 } { $widgetsQuantification(quantBtnDiaMaxM) invoke }
565 if { ( $arr(e_quantification_type) & 0x40 ) == 0x40 } { $widgetsQuantification(quantBtnDiaAvgM) invoke }
567 $widgetsQuantification(quantBtnAreaS) deselect
568 $widgetsQuantification(quantBtnPeriS) deselect
569 $widgetsQuantification(quantBtnDiaAreaS) deselect
570 $widgetsQuantification(quantBtnDiaPeriS) deselect
571 $widgetsQuantification(quantBtnDiaMinS) deselect
572 $widgetsQuantification(quantBtnDiaMaxS) deselect
573 $widgetsQuantification(quantBtnDiaAvgS) deselect
575 if { $arr(e_stenosis_type) == 1 } { $widgetsQuantification(quantBtnAreaS) invoke }
576 if { $arr(e_stenosis_type) == 2 } { $widgetsQuantification(quantBtnPeriS) invoke }
577 if { $arr(e_stenosis_type) == 3 } { $widgetsQuantification(quantBtnDiaAreaS) invoke }
578 if { $arr(e_stenosis_type) == 4 } { $widgetsQuantification(quantBtnDiaPeriS) invoke }
579 if { $arr(e_stenosis_type) == 5 } { $widgetsQuantification(quantBtnDiaMaxS) invoke }
580 if { $arr(e_stenosis_type) == 6 } { $widgetsQuantification(quantBtnDiaMinS) invoke }
581 if { $arr(e_stenosis_type) == 7 } { $widgetsQuantification(quantBtnDiaAvgS) invoke }
585 proc dlg_params::cb_show_general { } {
587 # For programming facilities
588 upvar dlg_params::widgets widgets
589 upvar dlg_params::widgetsGeneral widgetsGeneral
590 upvar dlg_params::widgetsAxes widgetsAxes
591 upvar dlg_params::widgetsContours widgetsContours
592 upvar dlg_params::widgetsQuantification widgetsQuantification
593 upvar dlg_params::gen_debug gen_debug
594 upvar dlg_params::con_debug con_debug
595 upvar dlg_params::quant_type quant_type
596 upvar dlg_params::alg_type alg_type
597 upvar dlg_params::stenosis_type stenosis_type
598 upvar dlg_params::params_to_save params_to_save
600 dlg_params::p_hide_general
601 dlg_params::p_hide_axis
602 dlg_params::p_hide_contour
603 dlg_params::p_hide_quant
605 pack $widgets(general) -anchor center -expand 1 -fill both -side top
606 place $widgetsGeneral(genDataPaths) -x 10 -y 25 -width 415 -height 110 -anchor nw -bordermode ignore
607 place $widgetsGeneral(genWork) -x 15 -y 20 -width 320 -height 25 -anchor nw -bordermode ignore
608 pack $widgetsGeneral(genWork01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
609 pack $widgetsGeneral(genWork02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
610 place $widgetsGeneral(genImages) -x 15 -y 60 -width 320 -height 25 -anchor nw -bordermode ignore
611 pack $widgetsGeneral(genImages01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
612 pack $widgetsGeneral(genImages02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
613 place $widgetsGeneral(genBtnBrwWork) -x 340 -y 20 -anchor nw -bordermode ignore
614 place $widgetsGeneral(genBtnBrwImages) -x 340 -y 60 -anchor nw -bordermode ignore
615 place $widgetsGeneral(genDebug) -x 10 -y 145 -width 415 -height 130 -anchor nw -bordermode ignore
616 place $widgetsGeneral(genBtnWndVis) -x 5 -y 5 -anchor nw -bordermode ignore
617 place $widgetsGeneral(genBtnConVis) -x 5 -y 35 -anchor nw -bordermode ignore
618 place $widgetsGeneral(genBtnMIPDef) -x 5 -y 65 -anchor nw -bordermode ignore
619 place $widgetsGeneral(genBtnAllSlc) -x 5 -y 95 -anchor nw -bordermode ignore
620 place $widgetsGeneral(genBtnColor) -x 215 -y 50 -width 185 -height 28 -anchor nw -bordermode ignore
621 place $widgetsGeneral(genlbl009) -x 215 -y 30 -anchor nw -bordermode ignore
622 place $widgetsGeneral(genlbl001) -x 15 -y 15 -anchor nw -bordermode ignore
623 place $widgetsGeneral(genlbl078) -x 15 -y 135 -anchor nw -bordermode ignore
624 pack $widgets(buttons) -anchor center -expand 0 -fill x -side top
625 place $widgets(btnOk) -x 155 -y 10 -anchor nw -bordermode ignore
626 place $widgets(btnCancel) -x 235 -y 10 -anchor nw -bordermode ignore
630 proc dlg_params::cb_show_axis { } {
632 # For programming facilities
633 upvar dlg_params::widgets widgets
634 upvar dlg_params::widgetsGeneral widgetsGeneral
635 upvar dlg_params::widgetsAxes widgetsAxes
636 upvar dlg_params::widgetsContours widgetsContours
637 upvar dlg_params::widgetsQuantification widgetsQuantification
638 upvar dlg_params::gen_debug gen_debug
639 upvar dlg_params::con_debug con_debug
640 upvar dlg_params::quant_type quant_type
641 upvar dlg_params::alg_type alg_type
642 upvar dlg_params::stenosis_type stenosis_type
643 upvar dlg_params::params_to_save params_to_save
645 dlg_params::p_hide_general
646 dlg_params::p_hide_axis
647 dlg_params::p_hide_contour
648 dlg_params::p_hide_quant
650 pack $widgets(axis) -anchor center -expand 1 -fill both -side top
651 place $widgetsAxes(axDistCDG) -x 25 -y 35 -width 145 -height 25 -anchor nw -bordermode ignore
652 pack $widgetsAxes(axDistCDG01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
653 pack $widgetsAxes(axDistCDG02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
654 place $widgetsAxes(axCell) -x 25 -y 65 -width 145 -height 25 -anchor nw -bordermode ignore
655 pack $widgetsAxes(axCell01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
656 pack $widgetsAxes(axCell02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
657 place $widgetsAxes(axFlex) -x 25 -y 95 -width 145 -height 25 -anchor nw -bordermode ignore
658 pack $widgetsAxes(axFlex01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
659 pack $widgetsAxes(axFlex02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
660 place $widgetsAxes(axMaskSize) -x 25 -y 125 -width 145 -height 25 -anchor nw -bordermode ignore
661 pack $widgetsAxes(axMaskSize01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
662 pack $widgetsAxes(axMaskSize02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
663 place $widgetsAxes(axDistInt) -x 195 -y 35 -width 145 -height 25 -anchor nw -bordermode ignore
664 pack $widgetsAxes(axDistInt01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
665 pack $widgetsAxes(axDistInt02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
666 place $widgetsAxes(axMassPower) -x 195 -y 125 -width 145 -height 25 -anchor nw -bordermode ignore
667 pack $widgetsAxes(axMassPower01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
668 pack $widgetsAxes(axMassPower02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
669 place $widgetsAxes(axTension) -x 195 -y 95 -width 145 -height 25 -anchor nw -bordermode ignore
670 pack $widgetsAxes(axTension01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
671 pack $widgetsAxes(axTension02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
672 place $widgetsAxes(axPas) -x 195 -y 65 -width 145 -height 25 -anchor nw -bordermode ignore
673 pack $widgetsAxes(axPas01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
674 pack $widgetsAxes(axPas02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
675 place $widgetsAxes(axROIDim) -x 25 -y 160 -width 115 -height 25 -anchor nw -bordermode ignore
676 pack $widgetsAxes(axROIDim01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
677 pack $widgetsAxes(axROIDim02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
678 place $widgetsAxes(axStep) -x 165 -y 160 -width 115 -height 25 -anchor nw -bordermode ignore
679 pack $widgetsAxes(axStep01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
680 pack $widgetsAxes(axStep02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
681 place $widgetsAxes(axAxisStep) -x 305 -y 160 -width 145 -height 25 -anchor nw -bordermode ignore
682 pack $widgetsAxes(axAxisStep01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
683 pack $widgetsAxes(axAxisStep02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
684 place $widgetsAxes(axVoxelX) -x 25 -y 190 -width 115 -height 25 -anchor nw -bordermode ignore
685 pack $widgetsAxes(axVoxelX01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
686 pack $widgetsAxes(axVoxelX02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
687 place $widgetsAxes(axVoxelY) -x 165 -y 190 -width 115 -height 25 -anchor nw -bordermode ignore
688 pack $widgetsAxes(axVoxelY01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
689 pack $widgetsAxes(axVoxelY02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
690 place $widgetsAxes(axVoxelZ) -x 305 -y 190 -width 115 -height 25 -anchor nw -bordermode ignore
691 pack $widgetsAxes(axVoxelZ01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
692 pack $widgetsAxes(axVoxelZ02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
693 place $widgetsAxes(axBtnColor) -x 180 -y 245 -width 180 -height 28 -anchor nw -bordermode ignore
694 place $widgetsAxes(axlblColor) -x 175 -y 225 -anchor nw -bordermode ignore
695 place $widgetsAxes(axBtnMinVoxel) -x 30 -y 220 -anchor nw -bordermode ignore
696 place $widgetsAxes(axBtnNorVoxel) -x 30 -y 240 -anchor nw -bordermode ignore
697 place $widgetsAxes(axCoefCellMax) -x 350 -y 35 -width 145 -height 25 -anchor nw -bordermode ignore
698 pack $widgetsAxes(axCoefCellMax01) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
699 pack $widgetsAxes(axCoefCellMax02) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
700 place $widgetsAxes(axFrDebug) -x 375 -y 230 -width 135 -height 55 -anchor nw -bordermode ignore
701 place $widgetsAxes(axBtnShowCell) -x 5 -y 5 -anchor nw -bordermode ignore
702 place $widgetsAxes(axBtnShowICell) -x 5 -y 25 -anchor nw -bordermode ignore
703 place $widgetsAxes(axLblDebug) -x 380 -y 220 -anchor nw -bordermode ignore
704 pack $widgets(buttons) -anchor center -expand 0 -fill x -side top
705 place $widgets(btnOk) -x 155 -y 10 -anchor nw -bordermode ignore
706 place $widgets(btnCancel) -x 235 -y 10 -anchor nw -bordermode ignore
710 proc dlg_params::cb_show_contour { } {
712 # For programming facilities
713 upvar dlg_params::widgets widgets
714 upvar dlg_params::widgetsGeneral widgetsGeneral
715 upvar dlg_params::widgetsAxes widgetsAxes
716 upvar dlg_params::widgetsContours widgetsContours
717 upvar dlg_params::widgetsQuantification widgetsQuantification
718 upvar dlg_params::gen_debug gen_debug
719 upvar dlg_params::con_debug con_debug
720 upvar dlg_params::quant_type quant_type
721 upvar dlg_params::alg_type alg_type
722 upvar dlg_params::stenosis_type stenosis_type
723 upvar dlg_params::params_to_save params_to_save
725 dlg_params::p_hide_general
726 dlg_params::p_hide_axis
727 dlg_params::p_hide_contour
728 dlg_params::p_hide_quant
730 pack $widgets(contour) -anchor center -expand 1 -fill both -side top
731 place $widgetsContours(conFrSlice) -x 10 -y 20 -width 160 -height 80 -anchor nw -bordermode ignore
732 place $widgetsContours(conFrDebug) -x 10 -y 110 -width 160 -height 80 -anchor nw -bordermode ignore
733 place $widgetsContours(conFrIso) -x 175 -y 40 -width 250 -height 35 -anchor nw -bordermode ignore
734 place $widgetsContours(conFrSnakeIso) -x 175 -y 105 -width 250 -height 85 -anchor nw -bordermode ignore
735 place $widgetsContours(conFrSnakeDer) -x 10 -y 220 -width 415 -height 60 -anchor nw -bordermode ignore
736 place $widgetsContours(conBtnIso) -x 170 -y 15 -anchor nw -bordermode ignore
737 place $widgetsContours(conBtnSnakeIso) -x 170 -y 80 -anchor nw -bordermode ignore
738 place $widgetsContours(conBtnSnakeDer) -x 170 -y 195 -anchor nw -bordermode ignore
739 place $widgetsContours(conLbl001) -x 15 -y 10 -anchor nw -bordermode ignore
740 place $widgetsContours(conLbl002) -x 15 -y 100 -anchor nw -bordermode ignore
741 place $widgetsContours(conFrScale) -x 10 -y 15 -width 135 -height 25 -anchor nw -bordermode ignore
742 pack $widgetsContours(conLblScale) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
743 pack $widgetsContours(conEdtScale) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
744 place $widgetsContours(conFrSample) -x 10 -y 45 -width 135 -height 25 -anchor nw -bordermode ignore
745 pack $widgetsContours(conLblSample) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
746 pack $widgetsContours(conEdtSample) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
747 place $widgetsContours(conBtnIsoconturs) -x 20 -y 10 -anchor nw -bordermode ignore
748 place $widgetsContours(conBtnDiameters) -x 20 -y 30 -anchor nw -bordermode ignore
749 place $widgetsContours(conBtnFillContours) -x 20 -y 50 -anchor nw -bordermode ignore
750 place $widgetsContours(conFrThrIso) -x 5 -y 5 -width 240 -height 25 -anchor nw -bordermode ignore
751 pack $widgetsContours(conLblThrIso) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
752 pack $widgetsContours(conEdtThrIso) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
753 place $widgetsContours(conFrThrSnakeIso) -x 5 -y 5 -width 240 -height 25 -anchor nw -bordermode ignore
754 pack $widgetsContours(conLblThrSnakeIso) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
755 pack $widgetsContours(conEdtThrSnakeIso) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
756 place $widgetsContours(conFrIterSnakeIso) -x 5 -y 30 -width 240 -height 25 -anchor nw -bordermode ignore
757 pack $widgetsContours(conLblIterSnakeIso) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
758 pack $widgetsContours(conEdtIterSnakeIso) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
759 place $widgetsContours(conFrCoefExternSnakeIso) -x 5 -y 55 -width 240 -height 25 -anchor nw -bordermode ignore
760 pack $widgetsContours(conLblCoefExternSnakeIso) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
761 pack $widgetsContours(conEdtCoefExternSnakeIso) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
762 place $widgetsContours(conFrIterSnakeDer) -x 5 -y 5 -width 240 -height 25 -anchor nw -bordermode ignore
763 pack $widgetsContours(conLblIterSnakeDer) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
764 pack $widgetsContours(conEdtIterSnakeDer) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
765 place $widgetsContours(conFrCoefGradSnakeDer) -x 5 -y 30 -width 240 -height 25 -anchor nw -bordermode ignore
766 pack $widgetsContours(conLblCoefGradSnakeDer) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
767 pack $widgetsContours(conEdtCoefGradSnakeDer) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
768 place $widgetsContours(conFrCoefBallonSnakeDer) -x 245 -y 5 -width 165 -height 25 -anchor nw -bordermode ignore
769 pack $widgetsContours(conLblCoefBallonSnakeDer) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
770 pack $widgetsContours(conEdtCoefBallonSnakeDer) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
771 place $widgetsContours(conFrSigmaSnakeDer) -x 245 -y 30 -width 165 -height 25 -anchor nw -bordermode ignore
772 pack $widgetsContours(conLblSigmaSnakeDer) -anchor center -expand 0 -fill none -padx 2 -pady 2 -side left
773 pack $widgetsContours(conEdtSigmaSnakeDer) -anchor center -expand 1 -fill x -padx 2 -pady 2 -side right
774 pack $widgets(buttons) -anchor center -expand 0 -fill x -side top
775 place $widgets(btnOk) -x 155 -y 10 -anchor nw -bordermode ignore
776 place $widgets(btnCancel) -x 235 -y 10 -anchor nw -bordermode ignore
780 proc dlg_params::cb_show_quant { } {
782 # For programming facilities
783 upvar dlg_params::widgets widgets
784 upvar dlg_params::widgetsGeneral widgetsGeneral
785 upvar dlg_params::widgetsAxes widgetsAxes
786 upvar dlg_params::widgetsContours widgetsContours
787 upvar dlg_params::widgetsQuantification widgetsQuantification
788 upvar dlg_params::gen_debug gen_debug
789 upvar dlg_params::con_debug con_debug
790 upvar dlg_params::quant_type quant_type
791 upvar dlg_params::alg_type alg_type
792 upvar dlg_params::stenosis_type stenosis_type
793 upvar dlg_params::params_to_save params_to_save
795 dlg_params::p_hide_general
796 dlg_params::p_hide_axis
797 dlg_params::p_hide_contour
798 dlg_params::p_hide_quant
800 pack $widgets(quantification) -anchor center -expand 1 -fill both -side top
801 place $widgetsQuantification(quantMeasures) -x 15 -y 60 -width 185 -height 170 -anchor nw -bordermode ignore
802 place $widgetsQuantification(quantBtnAreaM) -x 5 -y 10 -anchor nw -bordermode ignore
803 place $widgetsQuantification(quantBtnPeriM) -x 5 -y 30 -anchor nw -bordermode ignore
804 place $widgetsQuantification(quantBtnDiaAreaM) -x 5 -y 50 -anchor nw -bordermode ignore
805 place $widgetsQuantification(quantBtnDiaPeriM) -x 5 -y 70 -anchor nw -bordermode ignore
806 place $widgetsQuantification(quantBtnDiaMinM) -x 5 -y 90 -anchor nw -bordermode ignore
807 place $widgetsQuantification(quantBtnDiaMaxM) -x 5 -y 110 -anchor nw -bordermode ignore
808 place $widgetsQuantification(quantBtnDiaAvgM) -x 5 -y 130 -anchor nw -bordermode ignore
809 place $widgetsQuantification(quantStenosis) -x 220 -y 60 -width 190 -height 170 -anchor nw -bordermode ignore
810 place $widgetsQuantification(quantBtnAreaS) -x 5 -y 10 -anchor nw -bordermode ignore
811 place $widgetsQuantification(quantBtnPeriS) -x 5 -y 30 -anchor nw -bordermode ignore
812 place $widgetsQuantification(quantBtnDiaAreaS) -x 5 -y 50 -anchor nw -bordermode ignore
813 place $widgetsQuantification(quantBtnDiaPeriS) -x 5 -y 70 -anchor nw -bordermode ignore
814 place $widgetsQuantification(quantBtnDiaMinS) -x 5 -y 90 -anchor nw -bordermode ignore
815 place $widgetsQuantification(quantBtnDiaMaxS) -x 5 -y 110 -anchor nw -bordermode ignore
816 place $widgetsQuantification(quantBtnDiaAvgS) -x 5 -y 130 -anchor nw -bordermode ignore
817 place $widgetsQuantification(quantlbl22) -x 20 -y 50 -anchor nw -bordermode ignore
818 place $widgetsQuantification(quantlbl23) -x 225 -y 50 -anchor nw -bordermode ignore
819 pack $widgets(buttons) -anchor center -expand 0 -fill x -side top
820 place $widgets(btnOk) -x 155 -y 10 -anchor nw -bordermode ignore
821 place $widgets(btnCancel) -x 235 -y 10 -anchor nw -bordermode ignore
825 proc dlg_params::p_hide_general { } {
827 # For programming facilities
828 upvar dlg_params::widgets widgets
829 upvar dlg_params::widgetsGeneral widgetsGeneral
830 upvar dlg_params::widgetsAxes widgetsAxes
831 upvar dlg_params::widgetsContours widgetsContours
832 upvar dlg_params::widgetsQuantification widgetsQuantification
833 upvar dlg_params::gen_debug gen_debug
834 upvar dlg_params::con_debug con_debug
835 upvar dlg_params::quant_type quant_type
836 upvar dlg_params::alg_type alg_type
837 upvar dlg_params::stenosis_type stenosis_type
838 upvar dlg_params::params_to_save params_to_save
840 place forget $widgets(btnCancel)
841 place forget $widgets(btnOk)
842 pack forget $widgets(buttons)
843 place forget $widgetsGeneral(genlbl078)
844 place forget $widgetsGeneral(genlbl001)
845 place forget $widgetsGeneral(genlbl009)
846 place forget $widgetsGeneral(genBtnColor)
847 place forget $widgetsGeneral(genBtnAllSlc)
848 place forget $widgetsGeneral(genBtnMIPDef)
849 place forget $widgetsGeneral(genBtnConVis)
850 place forget $widgetsGeneral(genBtnWndVis)
851 place forget $widgetsGeneral(genDebug)
852 place forget $widgetsGeneral(genBtnBrwImages)
853 place forget $widgetsGeneral(genBtnBrwWork)
854 pack forget $widgetsGeneral(genImages02)
855 pack forget $widgetsGeneral(genImages01)
856 place forget $widgetsGeneral(genImages)
857 pack forget $widgetsGeneral(genWork02)
858 pack forget $widgetsGeneral(genWork01)
859 place forget $widgetsGeneral(genWork)
860 place forget $widgetsGeneral(genDataPaths)
861 pack forget $widgets(general)
865 proc dlg_params::p_hide_axis { } {
867 # For programming facilities
868 upvar dlg_params::widgets widgets
869 upvar dlg_params::widgetsGeneral widgetsGeneral
870 upvar dlg_params::widgetsAxes widgetsAxes
871 upvar dlg_params::widgetsContours widgetsContours
872 upvar dlg_params::widgetsQuantification widgetsQuantification
873 upvar dlg_params::gen_debug gen_debug
874 upvar dlg_params::con_debug con_debug
875 upvar dlg_params::quant_type quant_type
876 upvar dlg_params::alg_type alg_type
877 upvar dlg_params::stenosis_type stenosis_type
878 upvar dlg_params::params_to_save params_to_save
880 place forget $widgets(btnCancel)
881 place forget $widgets(btnOk)
882 pack forget $widgets(buttons)
883 place forget $widgetsAxes(axBtnNorVoxel)
884 place forget $widgetsAxes(axBtnMinVoxel)
885 place forget $widgetsAxes(axlblColor)
886 place forget $widgetsAxes(axBtnColor)
887 pack forget $widgetsAxes(axVoxelZ02)
888 pack forget $widgetsAxes(axVoxelZ01)
889 place forget $widgetsAxes(axVoxelZ)
890 pack forget $widgetsAxes(axVoxelY02)
891 pack forget $widgetsAxes(axVoxelY01)
892 place forget $widgetsAxes(axVoxelY)
893 pack forget $widgetsAxes(axVoxelX02)
894 pack forget $widgetsAxes(axVoxelX01)
895 place forget $widgetsAxes(axVoxelX)
896 pack forget $widgetsAxes(axAxisStep02)
897 pack forget $widgetsAxes(axAxisStep01)
898 place forget $widgetsAxes(axAxisStep)
899 pack forget $widgetsAxes(axStep02)
900 pack forget $widgetsAxes(axStep01)
901 place forget $widgetsAxes(axStep)
902 pack forget $widgetsAxes(axROIDim02)
903 pack forget $widgetsAxes(axROIDim01)
904 place forget $widgetsAxes(axROIDim)
905 pack forget $widgetsAxes(axPas02)
906 pack forget $widgetsAxes(axPas01)
907 place forget $widgetsAxes(axPas)
908 pack forget $widgetsAxes(axTension02)
909 pack forget $widgetsAxes(axTension01)
910 place forget $widgetsAxes(axTension)
911 pack forget $widgetsAxes(axMassPower02)
912 pack forget $widgetsAxes(axMassPower01)
913 place forget $widgetsAxes(axMassPower)
914 pack forget $widgetsAxes(axDistInt02)
915 pack forget $widgetsAxes(axDistInt01)
916 place forget $widgetsAxes(axDistInt)
917 pack forget $widgetsAxes(axMaskSize02)
918 pack forget $widgetsAxes(axMaskSize01)
919 place forget $widgetsAxes(axMaskSize)
920 pack forget $widgetsAxes(axFlex02)
921 pack forget $widgetsAxes(axFlex01)
922 place forget $widgetsAxes(axFlex)
923 pack forget $widgetsAxes(axCell02)
924 pack forget $widgetsAxes(axCell01)
925 place forget $widgetsAxes(axCell)
926 pack forget $widgetsAxes(axDistCDG02)
927 pack forget $widgetsAxes(axDistCDG01)
928 place forget $widgetsAxes(axDistCDG)
929 pack forget $widgets(axis)
933 proc dlg_params::p_hide_contour { } {
935 # For programming facilities
936 upvar dlg_params::widgets widgets
937 upvar dlg_params::widgetsGeneral widgetsGeneral
938 upvar dlg_params::widgetsAxes widgetsAxes
939 upvar dlg_params::widgetsContours widgetsContours
940 upvar dlg_params::widgetsQuantification widgetsQuantification
941 upvar dlg_params::gen_debug gen_debug
942 upvar dlg_params::con_debug con_debug
943 upvar dlg_params::quant_type quant_type
944 upvar dlg_params::alg_type alg_type
945 upvar dlg_params::stenosis_type stenosis_type
946 upvar dlg_params::params_to_save params_to_save
948 place forget $widgets(btnCancel)
949 place forget $widgets(btnOk)
950 pack forget $widgets(buttons)
951 pack forget $widgetsContours(conEdtSigmaSnakeDer)
952 pack forget $widgetsContours(conLblSigmaSnakeDer)
953 place forget $widgetsContours(conFrSigmaSnakeDer)
954 pack forget $widgetsContours(conEdtCoefBallonSnakeDer)
955 pack forget $widgetsContours(conLblCoefBallonSnakeDer)
956 place forget $widgetsContours(conFrCoefBallonSnakeDer)
957 pack forget $widgetsContours(conEdtCoefGradSnakeDer)
958 pack forget $widgetsContours(conLblCoefGradSnakeDer)
959 place forget $widgetsContours(conFrCoefGradSnakeDer)
960 pack forget $widgetsContours(conEdtIterSnakeDer)
961 pack forget $widgetsContours(conLblIterSnakeDer)
962 place forget $widgetsContours(conFrIterSnakeDer)
963 pack forget $widgetsContours(conEdtCoefExternSnakeIso)
964 pack forget $widgetsContours(conLblCoefExternSnakeIso)
965 place forget $widgetsContours(conFrCoefExternSnakeIso)
966 pack forget $widgetsContours(conEdtIterSnakeIso)
967 pack forget $widgetsContours(conLblIterSnakeIso)
968 place forget $widgetsContours(conFrIterSnakeIso)
969 pack forget $widgetsContours(conEdtThrSnakeIso)
970 pack forget $widgetsContours(conLblThrSnakeIso)
971 place forget $widgetsContours(conFrThrSnakeIso)
972 pack forget $widgetsContours(conEdtThrIso)
973 pack forget $widgetsContours(conLblThrIso)
974 place forget $widgetsContours(conFrThrIso)
975 place forget $widgetsContours(conBtnFillContours)
976 place forget $widgetsContours(conBtnDiameters)
977 place forget $widgetsContours(conBtnIsoconturs)
978 pack forget $widgetsContours(conEdtSample)
979 pack forget $widgetsContours(conLblSample)
980 place forget $widgetsContours(conFrSample)
981 pack forget $widgetsContours(conEdtScale)
982 pack forget $widgetsContours(conLblScale)
983 place forget $widgetsContours(conFrScale)
984 place forget $widgetsContours(conLbl002)
985 place forget $widgetsContours(conLbl001)
986 place forget $widgetsContours(conBtnSnakeDer)
987 place forget $widgetsContours(conBtnSnakeIso)
988 place forget $widgetsContours(conBtnIso)
989 place forget $widgetsContours(conFrSnakeDer)
990 place forget $widgetsContours(conFrSnakeIso)
991 place forget $widgetsContours(conFrIso)
992 place forget $widgetsContours(conFrDebug)
993 place forget $widgetsContours(conFrSlice)
994 pack forget $widgets(contour)
998 proc dlg_params::p_hide_quant { } {
1000 # For programming facilities
1001 upvar dlg_params::widgets widgets
1002 upvar dlg_params::widgetsGeneral widgetsGeneral
1003 upvar dlg_params::widgetsAxes widgetsAxes
1004 upvar dlg_params::widgetsContours widgetsContours
1005 upvar dlg_params::widgetsQuantification widgetsQuantification
1006 upvar dlg_params::gen_debug gen_debug
1007 upvar dlg_params::con_debug con_debug
1008 upvar dlg_params::quant_type quant_type
1009 upvar dlg_params::alg_type alg_type
1010 upvar dlg_params::stenosis_type stenosis_type
1011 upvar dlg_params::params_to_save params_to_save
1013 place forget $widgets(btnCancel)
1014 place forget $widgets(btnOk)
1015 pack forget $widgets(buttons)
1016 place forget $widgetsQuantification(quantlbl23)
1017 place forget $widgetsQuantification(quantlbl22)
1018 place forget $widgetsQuantification(quantBtnDiaAvgS)
1019 place forget $widgetsQuantification(quantBtnDiaMaxS)
1020 place forget $widgetsQuantification(quantBtnDiaMinS)
1021 place forget $widgetsQuantification(quantBtnDiaPeriS)
1022 place forget $widgetsQuantification(quantBtnDiaAreaS)
1023 place forget $widgetsQuantification(quantBtnPeriS)
1024 place forget $widgetsQuantification(quantBtnAreaS)
1025 place forget $widgetsQuantification(quantStenosis)
1026 place forget $widgetsQuantification(quantBtnDiaAvgM)
1027 place forget $widgetsQuantification(quantBtnDiaMaxM)
1028 place forget $widgetsQuantification(quantBtnDiaMinM)
1029 place forget $widgetsQuantification(quantBtnDiaPeriM)
1030 place forget $widgetsQuantification(quantBtnDiaAreaM)
1031 place forget $widgetsQuantification(quantBtnPeriM)
1032 place forget $widgetsQuantification(quantBtnAreaM)
1033 place forget $widgetsQuantification(quantMeasures)
1034 pack forget $widgets(quantification)
1038 proc dlg_params::cancel_params { } {
1040 # For programming facilities
1041 upvar dlg_params::widgets widgets
1042 upvar dlg_params::widgetsGeneral widgetsGeneral
1043 upvar dlg_params::widgetsAxes widgetsAxes
1044 upvar dlg_params::widgetsContours widgetsContours
1045 upvar dlg_params::widgetsQuantification widgetsQuantification
1046 upvar dlg_params::gen_debug gen_debug
1047 upvar dlg_params::con_debug con_debug
1048 upvar dlg_params::quant_type quant_type
1049 upvar dlg_params::alg_type alg_type
1050 upvar dlg_params::stenosis_type stenosis_type
1051 upvar dlg_params::params_to_save params_to_save
1053 set params_to_save [ array get arr ]
1054 destroy $widgets(base)
1058 proc dlg_params::save_params { } {
1060 # For programming facilities
1061 upvar dlg_params::widgets widgets
1062 upvar dlg_params::widgetsGeneral widgetsGeneral
1063 upvar dlg_params::widgetsAxes widgetsAxes
1064 upvar dlg_params::widgetsContours widgetsContours
1065 upvar dlg_params::widgetsQuantification widgetsQuantification
1066 upvar dlg_params::gen_debug gen_debug
1067 upvar dlg_params::con_debug con_debug
1068 upvar dlg_params::quant_type quant_type
1069 upvar dlg_params::alg_type alg_type
1070 upvar dlg_params::stenosis_type stenosis_type
1071 upvar dlg_params::params_to_save params_to_save
1072 upvar dlg_params::voxel_typ voxel_typ
1074 array set arr $params_to_save
1076 set arr(e_installation_directory) [ $widgetsGeneral(genWork02) get ]
1077 set arr(e_dicom_images_directory) [ $widgetsGeneral(genImages02) get ]
1079 set arr(e_voxel_x_dimension) [ $widgetsAxes(axVoxelX02) get ]
1080 set arr(e_voxel_y_dimension) [ $widgetsAxes(axVoxelY02) get ]
1081 set arr(e_voxel_z_dimension) [ $widgetsAxes(axVoxelZ02) get ]
1082 #set arr(e_step) [ $widgetsAxes(axStep02) get ]
1083 set arr(e_axis_discret_step) [ $widgetsAxes(axAxisStep02) get ]
1084 #set arr(e_roi_dimension) [ $widgetsAxes(axROIDim02) get ]
1085 #set arr(e_mass_power) [ $widgetsAxes(axMassPower02) get ]
1086 set arr(e_tension_coeficient) [ $widgetsAxes(axTension02) get ]
1087 #set arr(e_step_coeficient) [ $widgetsAxes(axPas02) get ]
1088 set arr(e_gravity_distance) [ $widgetsAxes(axDistCDG02) get ]
1089 #set arr(e_cell_coeficient) [ $widgetsAxes(axCell02) get ]
1090 set arr(e_flexion_coeficient) [ $widgetsAxes(axFlex02) get ]
1091 set arr(e_mask_size) [ $widgetsAxes(axMaskSize02) get ]
1092 #set arr(e_distance_to_maximum_intensity) [ $widgetsAxes(axDistInt02) get ]
1093 #set arr(e_coef_cell_max_int) [ $widgetsAxes(axCoefCellMax02) get ]
1095 set arr(e_scale) [ $widgetsContours(conEdtScale) get ]
1096 set arr(e_sampling) [ $widgetsContours(conEdtSample) get ]
1097 set arr(e_threshold_isocontour) [ $widgetsContours(conEdtThrIso) get ]
1098 set arr(e_threshold_snake_isocontour) [ $widgetsContours(conEdtThrSnakeIso) get ]
1099 set arr(e_number_of_iterations_snake_isocontour) [ $widgetsContours(conEdtIterSnakeIso) get ]
1100 set arr(e_extern_coeficient) [ $widgetsContours(conEdtCoefExternSnakeIso) get ]
1101 set arr(e_number_of_iterations_snake_deriche) [ $widgetsContours(conEdtIterSnakeDer) get ]
1102 set arr(e_gradient_coeficient) [ $widgetsContours(conEdtCoefGradSnakeDer) get ]
1103 set arr(e_ballon_coeficient) [ $widgetsContours(conEdtCoefBallonSnakeDer) get ]
1104 set arr(e_sigma) [ $widgetsContours(conEdtSigmaSnakeDer) get ]
1106 set arr(e_voxel_type) $voxel_typ
1108 set arr(e_debug_window_visible) [ expr ( ( $gen_debug & 0x01 ) == 0x01 ) ]
1109 set arr(e_debug_console_visible) [ expr ( ( $gen_debug & 0x02 ) == 0x02 ) ]
1110 set arr(e_calculate_mip_default) [ expr ( ( $gen_debug & 0x04 ) == 0x04 ) ]
1111 set arr(e_choose_all_slices_default) [ expr ( ( $gen_debug & 0x08 ) == 0x08 ) ]
1113 set arr(e_algorithm_type) $alg_type
1114 set arr(e_debug_isocontour) [ expr ( ( $con_debug & 0x01 ) == 0x01 ) ]
1115 set arr(e_debug_diameters) [ expr ( ( $con_debug & 0x02 ) == 0x02 ) ]
1116 set arr(e_debug_fill_area) [ expr ( ( $con_debug & 0x04 ) == 0x04 ) ]
1118 # set arr(e_back_color_3D) [ $widgetsGeneral(genBtnColor) cget -background ]
1120 # set arr(e_axis_color) [ $widgetsAxes(axBtnColor) cget -background ]
1122 set arr(e_quantification_type) $quant_type
1123 set arr(e_stenosis_type) $stenosis_type
1125 set params_to_save [ array get arr ]
1126 destroy $widgets(base)
1130 proc dlg_params::cb_browse_path { entry_widget } {
1132 # For programming facilities
1133 upvar dlg_params::widgets widgets
1134 upvar dlg_params::widgetsGeneral widgetsGeneral
1135 upvar dlg_params::widgetsAxes widgetsAxes
1136 upvar dlg_params::widgetsContours widgetsContours
1137 upvar dlg_params::widgetsQuantification widgetsQuantification
1138 upvar dlg_params::gen_debug gen_debug
1139 upvar dlg_params::con_debug con_debug
1140 upvar dlg_params::quant_type quant_type
1141 upvar dlg_params::alg_type alg_type
1142 upvar dlg_params::stenosis_type stenosis_type
1143 upvar dlg_params::params_to_save params_to_save
1145 set nDir [ tk_chooseDirectory \
1146 -initialdir [ $entry_widget get ] \
1147 -parent $widgets(base) \
1148 -title "$string_table::str_chooseadirectory" \
1151 if { $nDir != "" } {
1153 $entry_widget delete 0 end
1154 $entry_widget insert 0 $nDir
1160 proc dlg_params::cb_gen_debug { value mask } {
1162 # For programming facilities
1163 upvar dlg_params::widgets widgets
1164 upvar dlg_params::widgetsGeneral widgetsGeneral
1165 upvar dlg_params::widgetsAxes widgetsAxes
1166 upvar dlg_params::widgetsContours widgetsContours
1167 upvar dlg_params::widgetsQuantification widgetsQuantification
1168 upvar dlg_params::gen_debug gen_debug
1169 upvar dlg_params::con_debug con_debug
1170 upvar dlg_params::quant_type quant_type
1171 upvar dlg_params::alg_type alg_type
1172 upvar dlg_params::stenosis_type stenosis_type
1173 upvar dlg_params::params_to_save params_to_save
1175 set gen_debug [ expr ( $value == 1 )? \
1176 ( $gen_debug | $mask ): \
1177 ( $gen_debug & ( ~$mask ) ) \
1182 proc dlg_params::cb_con_debug { value mask } {
1184 # For programming facilities
1185 upvar dlg_params::widgets widgets
1186 upvar dlg_params::widgetsGeneral widgetsGeneral
1187 upvar dlg_params::widgetsAxes widgetsAxes
1188 upvar dlg_params::widgetsContours widgetsContours
1189 upvar dlg_params::widgetsQuantification widgetsQuantification
1190 upvar dlg_params::gen_debug gen_debug
1191 upvar dlg_params::con_debug con_debug
1192 upvar dlg_params::quant_type quant_type
1193 upvar dlg_params::alg_type alg_type
1194 upvar dlg_params::stenosis_type stenosis_type
1195 upvar dlg_params::params_to_save params_to_save
1197 set con_debug [ expr ( $value == 1 )? \
1198 ( $con_debug | $mask ): \
1199 ( $con_debug & ( ~$mask ) ) \
1204 proc dlg_params::cb_quant_type { value mask partner } {
1206 # For programming facilities
1207 upvar dlg_params::widgets widgets
1208 upvar dlg_params::widgetsGeneral widgetsGeneral
1209 upvar dlg_params::widgetsAxes widgetsAxes
1210 upvar dlg_params::widgetsContours widgetsContours
1211 upvar dlg_params::widgetsQuantification widgetsQuantification
1212 upvar dlg_params::gen_debug gen_debug
1213 upvar dlg_params::con_debug con_debug
1214 upvar dlg_params::quant_type quant_type
1215 upvar dlg_params::alg_type alg_type
1216 upvar dlg_params::stenosis_type stenosis_type
1217 upvar dlg_params::params_to_save params_to_save
1219 set quant_type [ expr ( $value == 1 )? \
1220 ( $quant_type | $mask ): \
1221 ( $quant_type & ( ~$mask ) ) \
1224 if { [ string compare $partner "quantBtnAreaS" ] == 0 } { set partner2 $widgetsQuantification(quantBtnAreaS) }
1225 if { [ string compare $partner "quantBtnPeriS" ] == 0 } { set partner2 $widgetsQuantification(quantBtnPeriS) }
1226 if { [ string compare $partner "quantBtnDiaAreaS" ] == 0 } { set partner2 $widgetsQuantification(quantBtnDiaAreaS) }
1227 if { [ string compare $partner "quantBtnDiaPeriS" ] == 0 } { set partner2 $widgetsQuantification(quantBtnDiaPeriS) }
1228 if { [ string compare $partner "quantBtnDiaMinS" ] == 0 } { set partner2 $widgetsQuantification(quantBtnDiaMinS) }
1229 if { [ string compare $partner "quantBtnDiaMaxS" ] == 0 } { set partner2 $widgetsQuantification(quantBtnDiaMaxS) }
1230 if { [ string compare $partner "quantBtnDiaAvgS" ] == 0 } { set partner2 $widgetsQuantification(quantBtnDiaAvgS) }
1232 if { $value == 1 } { $partner2 configure -state normal }
1233 if { $value == 0 } { $partner2 configure -state disabled }
1237 proc dlg_params::cb_choose_color { button_chooser } {
1239 # For programming facilities
1240 upvar dlg_params::widgets widgets
1241 upvar dlg_params::widgetsGeneral widgetsGeneral
1242 upvar dlg_params::widgetsAxes widgetsAxes
1243 upvar dlg_params::widgetsContours widgetsContours
1244 upvar dlg_params::widgetsQuantification widgetsQuantification
1245 upvar dlg_params::gen_debug gen_debug
1246 upvar dlg_params::con_debug con_debug
1247 upvar dlg_params::quant_type quant_type
1248 upvar dlg_params::alg_type alg_type
1249 upvar dlg_params::stenosis_type stenosis_type
1250 upvar dlg_params::params_to_save params_to_save
1252 set col [ $button_chooser cget -background ]
1255 -initialcolor $col \
1256 -parent $button_chooser \
1257 -title "Choose a color..."
1259 if { $col != "" } { $button_chooser configure -background $col }
1263 proc dlg_params::set_alg_type { v_alg_type } {
1265 # For programming facilities
1266 upvar dlg_params::widgets widgets
1267 upvar dlg_params::widgetsGeneral widgetsGeneral
1268 upvar dlg_params::widgetsAxes widgetsAxes
1269 upvar dlg_params::widgetsContours widgetsContours
1270 upvar dlg_params::widgetsQuantification widgetsQuantification
1271 upvar dlg_params::gen_debug gen_debug
1272 upvar dlg_params::con_debug con_debug
1273 upvar dlg_params::quant_type quant_type
1274 upvar dlg_params::alg_type alg_type
1275 upvar dlg_params::stenosis_type stenosis_type
1276 upvar dlg_params::params_to_save params_to_save
1278 set alg_type $v_alg_type
1282 proc dlg_params::set_stenosis_type { v_stenosis_type } {
1284 # For programming facilities
1285 upvar dlg_params::widgets widgets
1286 upvar dlg_params::widgetsGeneral widgetsGeneral
1287 upvar dlg_params::widgetsAxes widgetsAxes
1288 upvar dlg_params::widgetsContours widgetsContours
1289 upvar dlg_params::widgetsQuantification widgetsQuantification
1290 upvar dlg_params::gen_debug gen_debug
1291 upvar dlg_params::con_debug con_debug
1292 upvar dlg_params::quant_type quant_type
1293 upvar dlg_params::alg_type alg_type
1294 upvar dlg_params::stenosis_type stenosis_type
1295 upvar dlg_params::params_to_save params_to_save
1297 set stenosis_type $v_stenosis_type
1301 # EOF -- dlg_params.tcl