proc meshingoptionsdialog { } { set w .options_dlg if {[winfo exists .options_dlg] == 1} { wm withdraw $w wm deiconify $w focus $w } { toplevel $w #wm resizable $w 0 0 # global options.meshsize pack [ttk::notebook $w.nb] -fill both -side top $w.nb add [ttk::frame $w.nb.general] -text "General" -underline 0 $w.nb add [ttk::frame $w.nb.meshsize] -text "Mesh Size" -underline 0 $w.nb add [ttk::frame $w.nb.chartopt] -text "STL Charts" -underline 0 $w.nb add [ttk::frame $w.nb.optimizer] -text "Optimizer" -underline 0 # $w.nb add [ttk::frame $w.nb.insider] -text "Insider" -underline 0 $w.nb add [ttk::frame $w.nb.debug] -text "Debug" -underline 0 # tixNoteBook $w.nbold -ipadx 6 -ipady 6 # $w.nbold add general -label "General" -underline 0 # $w.nbold add meshsize -label "Mesh Size" -underline 0 # $w.nbold add chartopt -label "STL Charts" -underline 0 # $w.nbold add optimizer -label "Optimizer" -underline 0 # $w.nbold add insider -label "Insider" -underline 0 # $w.nbold add debug -label "Debug" -underline 0 # pack $w.nb -expand yes -fill both -padx 5 -pady 5 -side top # ############################################################ # General meshing options # ############################################################ set f $w.nb.general ttk::frame $f.background pack $f.background -fill both set f $f.background ttk::labelframe $f.f2 -relief groove -borderwidth 3 -text "General meshing options" pack $f.f2 -pady 15 -fill x set f $f.f2 set finevals { 1 2 3 4 5 6 } set finelabs(1) "very coarse" set finelabs(2) "coarse" set finelabs(3) "moderate" set finelabs(4) "fine" set finelabs(5) "very fine" set finelabs(6) "user defined" #tixOptionMenu $f.fine -label "Mesh granularity : " \ -options { # label.width 19 # label.anchor e # menubutton.width 15 # } #foreach finev $finevals { # $f.fine add command $finev -label $finelabs($finev) #} #$f.fine config -variable meshoptions.fineness #$f.fine config -command { setgranularity } #global meshoptions.fineness #setgranularity ${meshoptions.fineness} #pack $f.fine global meshoptions.fineness ttk::label $f.fine2l -text "Mesh granularity: " ttk::menubutton $f.fine2c -menu $f.fine2m -text "coarse" -width 16 menu $f.fine2m -tearoff 0 foreach finev { 1 2 3 4 5 6 } { $f.fine2m add command -label $finelabs($finev) \ -command "set meshoptions.fineness $finev ; setgranularity $finev; $f.fine2c configure -text \"$finelabs($finev)\"" } $f.fine2m invoke $finelabs(${meshoptions.fineness}) grid $f.fine2l $f.fine2c -sticky nw set mgsteps { ag me ms os mv ov } set mgsteplabel(ag) "Analyze Geometry" set mgsteplabel(me) "Mesh Edges" set mgsteplabel(ms) "Mesh Surface" set mgsteplabel(os) "Optimize Surface" set mgsteplabel(mv) "Mesh Volume" set mgsteplabel(ov) "Optimize Volume" global meshoptions.firststep ttk::label $f.first2l -text "First Step: " # ttk::menubutton $f.first2.c -menu $f.first2.m -text "Analyze Geometry" -width 12 ttk::menubutton $f.first2c -menu $f.first2m -width 16 menu $f.first2m -tearoff 0 foreach i $mgsteps { $f.first2m add command -label $mgsteplabel($i) -command "set meshoptions.firststep $i ; $f.first2c configure -text \"$mgsteplabel($i)\"" } $f.first2m invoke $mgsteplabel(${meshoptions.firststep}) grid $f.first2l $f.first2c -sticky nw global meshoptions.laststep ttk::label $f.last2l -text "Last Step: " ttk::menubutton $f.last2c -menu $f.last2m -width 16 menu $f.last2m -tearoff 0 foreach i $mgsteps { $f.last2m add command -label $mgsteplabel($i) -command "set meshoptions.laststep $i ; $f.last2c configure -text \"$mgsteplabel($i)\"" } $f.last2m invoke $mgsteplabel(${meshoptions.laststep}) grid $f.last2l $f.last2c -sticky nw grid anchor $f center # tixOptionMenu $f.first -label "First Step : " \ # -options { # label.width 19 # label.anchor e # menubutton.width 15 # } # tixOptionMenu $f.last -label "Last Step : " \ # -options { # label.width 19 # label.anchor e # menubutton.width 15 # } # foreach step $mgsteps { # $f.first add command $step -label $mgsteplabel($step) # $f.last add command $step -label $mgsteplabel($step) # } # $f.first config -variable meshoptions.firststep # $f.last config -variable meshoptions.laststep # pack $f.first $f.last set msg(0) "None" set msg(1) "Least" set msg(2) "Little" set msg(3) "Moderate" set msg(4) "Much" set msg(5) "Most" #tixOptionMenu $f.msg -label "Print Messages : " \ -options { # label.width 19 # label.anchor e # menubutton.width 15 # } #foreach step {0 1 2 3 4 5 } { # $f.msg add command $step -label $msg($step) #} #$f.msg config -variable options.printmsg # pack $f.msg global options.printmsg #ttk::frame $f.msg2 ttk::label $f.msg2l -text "Print Messages: " menu $f.msg2m -tearoff 0 ttk::menubutton $f.msg2c -menu $f.msg2m -width 16 foreach step {0 1 2 3 4 5 } { $f.msg2m add command -label $msg($step) -command "set options.printmsg $step ; $f.msg2c configure -text $msg($step)" # if { ${options.printmsg} == $step } { $f.msg2.c configure -text $msg($step) } } $f.msg2m invoke ${options.printmsg} grid $f.msg2l $f.msg2c -sticky nw set f $w.nb.general ttk::labelframe $f.bts -borderwidth 3 -relief groove -text "Additional meshing options" pack $f.bts -fill x -pady 15 ttk::frame $f.bts.btnframe ttk::checkbutton $f.bts.btnframe.parthread -text "Parallel meshing thread" \ -variable options.parthread ttk::checkbutton $f.bts.btnframe.second -text "Second order elements" \ -variable options.secondorder ttk::checkbutton $f.bts.btnframe.quad -text "Quad dominated" \ -variable options.quad -command { if { ${options.quad} } { set meshoptions.laststep os } } ttk::checkbutton $f.bts.btnframe.invtets -text "Invert volume elements" \ -variable options.inverttets ttk::checkbutton $f.bts.btnframe.invtrigs -text "Invert surface elements" \ -variable options.inverttrigs ttk::checkbutton $f.bts.btnframe.azref -text "Automatic Z-refinement" \ -variable options.autozrefine pack $f.bts.btnframe -anchor center pack $f.bts.btnframe.parthread $f.bts.btnframe.second $f.bts.btnframe.quad $f.bts.btnframe.invtets $f.bts.btnframe.invtrigs $f.bts.btnframe.azref -anchor w # tixControl $f.elementorder -label "Element order: " -integer true \ # -variable options.elementorder -min 1 -max 20 \ # -options { # entry.width 2 # label.width 20 # label.anchor e # } # pack $f.elementorder #ttk::frame $f.bts.sbox #pack $f.bts.sbox -anchor w -pady 10 ttk::label $f.bts.btnframe.l -text "Element order" ttk::spinbox $f.bts.btnframe.elementorder2 -from 1 -to 20 -textvariable options.elementorder -width 2 pack $f.bts.btnframe.elementorder2 $f.bts.btnframe.l -anchor w -side left # ############################################################ # Mesh - Size options # ############################################################ set f $w.nb.meshsize ttk::frame $f.f2 pack $f.f2 -pady 10 # # ttk::style configure Tframe -background red # puts "********************" # puts "found these themes:" # puts [ttk::themes] # ttk::setTheme classic # ttk::setTheme aqua # puts "style Tframe foreground = " # puts [ttk::style lookup Tframe -foreground] # puts "f2 style:" # puts [$f.f2 cget -style] # puts [winfo class $f.f2] # puts "style element names gives:" # puts [ttk::style element names] set f $f.f2 ttk::frame $f.meshsize ttk::label $f.meshsize.l -text "max mesh-size" ttk::spinbox $f.meshsize.s -from 1e-9 -to 1e9 -textvariable options.meshsize -width 5 -validate focus -validatecommand "my_validatespinbox %W %P 10" \ -invalidcommand "my_invalidspinbox %W" pack $f.meshsize -fill x pack $f.meshsize.s $f.meshsize.l -side right ttk::frame $f.minmeshsize ttk::label $f.minmeshsize.l -text "min mesh-size" ttk::spinbox $f.minmeshsize.s -from 0 -to 1e9 -textvariable options.minmeshsize -width 5 -validate focus -validatecommand "my_validatespinbox %W %P 10" \ -invalidcommand "my_invalidspinbox %W" pack $f.minmeshsize -fill x pack $f.minmeshsize.s $f.minmeshsize.l -side right ttk::frame $f.grading ttk::label $f.grading.l -text "mesh-size grading" ttk::spinbox $f.grading.s -from 0.1 -to 1.0 -textvariable options.grading -width 5 -increment 0.1 -validate focus -validatecommand "my_validatespinbox %W %P 3" \ -invalidcommand "my_invalidspinbox %W" pack $f.grading -fill x pack $f.grading.s $f.grading.l -side right # tixControl $f.meshsize -label "max mesh-size: " -integer false \ # -variable options.meshsize -min 1e-9 -max 1e6 \ # -options { # entry.width 6 # label.width 25 # label.anchor e # } # tixControl $f.minmeshsize -label "min mesh-size: " -integer false \ # -variable options.minmeshsize -min 0 -max 1e6 \ # -options { # entry.width 6 # label.width 25 # label.anchor e # } # tixControl $f.grading -label "mesh-size grading: " -integer false \ # -variable options.grading -min 0.1 -max 1 -step 0.1 \ # -options { # entry.width 6 # label.width 25 # label.anchor e # } # pack $f.meshsize $f.minmeshsize $f.grading set f $w.nb.meshsize ttk::labelframe $f.msf -text "mesh-size file:" -relief groove -borderwidth 3 pack $f.msf # tixLabelEntry $f.msf.ent -label "mesh-size file: " \ # -labelside top \ # -options { # entry.textVariable options.meshsizefilename # entry.width 35 # label.width 25 # label.anchor w # } ttk::entry $f.msf.ent -textvariable options.meshsizefilename -width 30 ttk::button $f.msf.btn -text "Browse" -command { global options.meshsizefilename set types { {"Meshsize file" {.msz} } } set options.meshsizefilename [tk_getOpenFile -filetypes $types -initialfile ${options.meshsizefilename}] } pack $f.msf.ent -side left -expand yes -fill x -anchor s -padx 4 -pady 4 pack $f.msf.btn -side left -anchor s -padx 4 -pady 4 ttk::label $f.lab -text "Additional mesh size restrictions:" #csg-meshsize options ttk::labelframe $f.csg -relief groove -borderwidth 3 -text "CSG mesh-size" pack $f.csg -fill x proc test {a} {puts $a} #ttk::frame $f.csg.curv #pack $f.csg.curv -fill x -anchor center ttk::scale $f.csg.curvsc -orient horizontal -length 150 -from 0.2 -to 5 \ -variable options.curvaturesafety -takefocus 0 -command "roundscale $f.csg.curvsc 1" # -resolution 0.1 ttk::entry $f.csg.curve -textvariable options.curvaturesafety -width 3 \ -validatecommand "my_validate %W [$f.csg.curvsc cget -from] [$f.csg.curvsc cget -to] %P 1" \ -invalidcommand "my_invalid %W" -validate focus ttk::label $f.csg.curvla -text "Elements per curvature radius" grid $f.csg.curvsc $f.csg.curve $f.csg.curvla -sticky nw -padx 4 #ttk::frame $f.csg.elen #pack $f.csg.elen -fill x -anchor center ttk::scale $f.csg.elensc -orient horizontal -length 150 -from 0.2 -to 5 \ -variable options.segmentsperedge -takefocus 0 -command "roundscale $f.csg.elensc 1" # -resolution 0.1 ttk::entry $f.csg.elene -textvariable options.segmentsperedge -width 3 \ -validatecommand "my_validate %W [$f.csg.elensc cget -from] [$f.csg.elensc cget -to] %P 1" \ -invalidcommand "my_invalid %W" -validate focus ttk::label $f.csg.elenla -text "Elements per edge" grid $f.csg.elensc $f.csg.elene $f.csg.elenla -sticky nw -padx 4 grid anchor $f.csg center #stl-meshsize options ttk::labelframe $f.stl -relief groove -borderwidth 3 -text "STL mesh-size" pack $f.stl -fill x #ttk::frame $f.stl.r2 #pack $f.stl.r2 -fill x ttk::scale $f.stl.r2sc -orient horizontal -length 150 -from 0.2 -to 5 \ -variable stloptions.resthchartdistfac -takefocus 0 -command "roundscale $f.stl.r2sc 1" ttk::entry $f.stl.r2e -textvariable stloptions.resthchartdistfac -width 3 \ -validatecommand "my_validate %W [$f.stl.r2sc cget -from] [$f.stl.r2sc cget -to] %P 1" \ -invalidcommand "my_invalid %W" -validate focus ttk::checkbutton $f.stl.r2bu -text "STL - chart distance" \ -variable stloptions.resthchartdistenable grid $f.stl.r2sc $f.stl.r2e $f.stl.r2bu -sticky nw -padx 4 #ttk::frame $f.stl.r6 #pack $f.stl.r6 -anchor w ttk::scale $f.stl.r6sc -orient horizontal -length 150 -from 0.2 -to 5 \ -variable stloptions.resthlinelengthfac -takefocus 0 -command "roundscale $f.stl.r6sc 1" ttk::entry $f.stl.r6e -textvariable stloptions.resthlinelengthfac -width 3 \ -validatecommand "my_validate %W [$f.stl.r6sc cget -from] [$f.stl.r6sc cget -to] %P 1" \ -invalidcommand "my_invalid %W" -validate focus ttk::checkbutton $f.stl.r6bu -text "STL - line length" \ -variable stloptions.resthlinelengthenable grid $f.stl.r6sc $f.stl.r6e $f.stl.r6bu -sticky nw -padx 4 #ttk::frame $f.stl.r3 #pack $f.stl.r3 -anchor w ttk::scale $f.stl.r3sc -orient horizontal -length 150 -from 0.2 -to 8 \ -variable stloptions.resthcloseedgefac -takefocus 0 -command "roundscale $f.stl.r3sc 1" ttk::entry $f.stl.r3e -textvariable stloptions.resthcloseedgefac -width 3 \ -validatecommand "my_validate %W [$f.stl.r3sc cget -from] [$f.stl.r3sc cget -to] %P 1" \ -invalidcommand "my_invalid %W" -validate focus ttk::checkbutton $f.stl.r3bu -text "STL/IGES/STEP - close edges" \ -variable stloptions.resthcloseedgeenable grid $f.stl.r3sc $f.stl.r3e $f.stl.r3bu -sticky nw -padx 4 #ttk::frame $f.stl.r1 #pack $f.stl.r1 -anchor w ttk::scale $f.stl.r1sc -orient horizontal -length 150 -from 0.2 -to 5 \ -variable stloptions.resthsurfcurvfac -takefocus 0 -command "roundscale $f.stl.r1sc 1" ttk::entry $f.stl.r1e -textvariable stloptions.resthsurfcurvfac -width 3 \ -validatecommand "my_validate %W [$f.stl.r1sc cget -from] [$f.stl.r1sc cget -to] %P 1" \ -invalidcommand "my_invalid %W" -validate focus ttk::checkbutton $f.stl.r1bu -text "STL - surface curvature" \ -variable stloptions.resthsurfcurvenable grid $f.stl.r1sc $f.stl.r1e $f.stl.r1bu -sticky nw -padx 4 #ttk::frame $f.stl.r3b #pack $f.stl.r3b -anchor w ttk::scale $f.stl.r3bsc -orient horizontal -length 150 -from 0.2 -to 5 \ -variable stloptions.resthedgeanglefac -takefocus 0 -command "roundscale $f.stl.r3bsc 1" ttk::entry $f.stl.r3be -textvariable stloptions.resthedgeanglefac -width 3 \ -validatecommand "my_validate %W [$f.stl.r3bsc cget -from] [$f.stl.r3bsc cget -to] %P 1" \ -invalidcommand "my_invalid %W" -validate focus ttk::checkbutton $f.stl.r3bbu -text "STL - edge angle" \ -variable stloptions.resthedgeangleenable grid $f.stl.r3bsc $f.stl.r3be $f.stl.r3bbu -sticky nw -padx 4 #ttk::frame $f.stl.r5 #pack $f.stl.r5 -anchor w ttk::scale $f.stl.r5sc -orient horizontal -length 150 -from 0.2 -to 5 \ -variable stloptions.resthsurfmeshcurvfac -takefocus 0 -command "roundscale $f.stl.r5sc 1" ttk::entry $f.stl.r5e -textvariable stloptions.resthsurfmeshcurvfac -width 3 \ -validatecommand "my_validate %W [$f.stl.r5sc cget -from] [$f.stl.r5sc cget -to] %P 1" \ -invalidcommand "my_invalid %W" -validate focus ttk::checkbutton $f.stl.r5bu -text "STL - surface mesh curv" \ -variable stloptions.resthsurfmeshcurvenable grid $f.stl.r5sc $f.stl.r5e $f.stl.r5bu -sticky nw -padx 4 ttk::checkbutton $f.stl.recalch -text "STL - Recalc mesh size for surface optimization" \ -variable stloptions.recalchopt grid $f.stl.recalch -sticky n -columnspan 3 -column 0 ttk::button $f.stl.calch -text "Calc New H" -command { redraw; Ng_STLCalcLocalH } grid $f.stl.calch -columnspan 3 -column 0 grid anchor $f.stl center # set f [$w.nb subwidget chartopt] # round ttk::scale values to n_digits proc roundscale {w n_digits args} { set val [$w get] global [$w cget -variable] if {$n_digits == 0 } { set [$w cget -variable] [tcl::mathfunc::round $val] } else { set [$w cget -variable] [format "%.[append n_digits "f"]" $val] } } # validate ttk::entry which are linked to ttk::scales widgets global last_accepted_sc proc my_validate {w mini maxi val n_digits} { global last_accepted_sc [$w cget -textvariable] if {[string length $val] == 0} {return 0} if {[string is double $val] == 1} { if { $n_digits == 0 } { set val [tcl::mathfunc::max $mini [tcl::mathfunc::min $maxi [tcl::mathfunc::round $val]]] } else { if { $n_digits < 9 } { set val [tcl::mathfunc::max $mini [tcl::mathfunc::min $maxi [format "%.[append n_digits "f"]" $val]]] } } set last_accepted_sc $val set [$w cget -textvariable] $val return 1 } else { return 0 } } # if my_validate returns 0, this function gets called proc my_invalid {w} { global last_accepted_sc [$w cget -textvariable] set [$w cget -textvariable] $last_accepted_sc } set f $w.nb.chartopt ttk::labelframe $f.mainframe -text "STL angles" -relief groove -borderwidth 3 pack $f.mainframe -fill x -pady 15 set f $f.mainframe #ttk::frame $f.f1 ttk::label $f.labYangles -text "Yellow Edges Angle ()" ttk::scale $f.scale1 -orient horizontal -length 150 -from 0 -to 90 -variable stloptions.yangle -takefocus 0 -command "roundscale $f.scale1 1" ttk::entry $f.entry1 -textvariable stloptions.yangle -width 5 -validate focus -takefocus 0 -validatecommand "my_validate %W [$f.scale1 cget -from] [$f.scale1 cget -to] %P 1" \ -invalidcommand "my_invalid %W" #pack $f.f1 -anchor center grid $f.scale1 $f.entry1 $f.labYangles -sticky nw -padx 4 -pady 6 #ttk::frame $f.f21 ttk::label $f.labEangles -text "Edge Corner Angle ()" ttk::scale $f.scale2 -orient horizontal -length 150 -from 0 -to 180 -variable stloptions.edgecornerangle -takefocus 0 -command "roundscale $f.scale2 1" ttk::entry $f.entry2 -textvariable stloptions.edgecornerangle -width 5 -validate focus -takefocus 0 -validatecommand "my_validate %W [$f.scale2 cget -from] [$f.scale2 cget -to] %P 1" \ -invalidcommand "my_invalid %W" #pack $f.f21 -anchor center grid $f.scale2 $f.entry2 $f.labEangles -sticky nw -padx 4 -pady 6 #ttk::frame $f.f31 ttk::label $f.lab31 -text "Chart Angle ()" ttk::scale $f.scale3 -orient horizontal -length 150 -from 0 -to 180 -variable stloptions.chartangle -takefocus 0 -command "roundscale $f.scale3 1" ttk::entry $f.entry3 -textvariable stloptions.chartangle -width 5 -validate focus -takefocus 0 -validatecommand "my_validate %W [$f.scale3 cget -from] [$f.scale3 cget -to] %P 1" \ -invalidcommand "my_invalid %W" #pack $f.f31 -anchor center grid $f.scale3 $f.entry3 $f.lab31 -sticky nw -padx 4 -pady 6 #ttk::frame $f.f41 ttk::label $f.lab41 -text "Outer Chart Angle ()" ttk::scale $f.scale4 -orient horizontal -length 150 -from 0 -to 180 -variable stloptions.outerchartangle -takefocus 0 -command "roundscale $f.scale4 1" ttk::entry $f.entry4 -textvariable stloptions.outerchartangle -width 5 -validate focus -takefocus 0 -validatecommand "my_validate %W [$f.scale4 cget -from] [$f.scale4 cget -to] %P 1" \ -invalidcommand "my_invalid %W" #pack $f.f41 -anchor center grid $f.scale4 $f.entry4 $f.lab41 -sticky nw -padx 4 -pady 6 grid anchor $f center # Optimization options global last_accepted_sp # Used to validate the entries linked with a ttk::spinbox widget proc my_validatespinbox {w val n_digits} { global last_accepted_sp if {[string length $val] == 0} {return 0} if {[string is double $val] == 1} { if { $n_digits == 0 } { if { $n_digits < 9 } { set val [tcl::mathfunc::round $val] } else { set val [format "%.[append n_digits "f"]" $val] } } $w set [tcl::mathfunc::max [$w cget -from] [tcl::mathfunc::min [$w cget -to] $val]] set last_accepted_sp $val return 1 } else { return 0 } } proc my_invalidspinbox {w} { global last_accepted_sp $w set $last_accepted_sp } # set f [$w.nb subwidget optimizer] set f $w.nb.optimizer ttk::labelframe $f.optframe -text "Optimization settings" -relief groove -borderwidth 3 pack $f.optframe -fill x -pady 15 #ttk::frame $f.optframe.sos ttk::label $f.optframe.sosl -text "Surface opt steps" ttk::spinbox $f.optframe.soss -from 0 -to 99 -textvariable options.optsteps2d -width 5 -increment 1 -validate focus -validatecommand "my_validatespinbox %W %P 0" \ -invalidcommand "my_invalidspinbox %W" #pack $f.optframe.sos -anchor center grid $f.optframe.sosl $f.optframe.soss -sticky nw;# -side right -fill x -pady 2 #ttk::frame $f.optframe.vos ttk::label $f.optframe.vosl -text "Volume opt steps" ttk::spinbox $f.optframe.voss -from 0 -to 99 -textvariable options.optsteps3d -width 5 -increment 1 -validate focus -validatecommand "my_validatespinbox %W %P 0" \ -invalidcommand "my_invalidspinbox %W" #pack $f.optframe.vos -anchor center grid $f.optframe.vosl $f.optframe.voss -sticky nw;# -side right -fill x -pady 2 #ttk::frame $f.optframe.esw ttk::label $f.optframe.eswl -text "Element size weight" ttk::spinbox $f.optframe.esws -from 0 -to 1 -textvariable options.elsizeweight -width 5 -increment 0.1 -validate focus -validatecommand "my_validatespinbox %W %P 1" \ -invalidcommand "my_invalidspinbox %W" #pack $f.optframe.esw -anchor center grid $f.optframe.eswl $f.optframe.esws -sticky nw;# -side right -fill x -pady 2 #ttk::frame $f.optframe.wem ttk::label $f.optframe.weml -text "Worst element measure" ttk::spinbox $f.optframe.wems -from 1 -to 10 -textvariable options.opterrpow -width 5 -increment 1 -validate focus -validatecommand "my_validatespinbox %W %P 0" \ -invalidcommand "my_invalidspinbox %W" #pack $f.optframe.wem -anchor e grid $f.optframe.weml $f.optframe.wems -sticky nw;# -side right -fill x -pady 2 grid anchor $f.optframe center # These functions are needed due to a bug within the aqua theme # if a ttk::scale widget has a from value larger than 100. proc roundscale_helper_osx {w val} { global [$w cget -variable] options.badellimit set [$w cget -variable] [tcl::mathfunc::round $val] set options.badellimit [expr [tcl::mathfunc::round $val]+160] } proc my_validate_helper_osx {w val} { if {[string length $val] == 0} {return 0} if {[string is double $val] == 1} { set scale_loc [lindex [winfo children [winfo parent $w]] [lsearch [winfo children [winfo parent $w]] *scale]] global [$scale_loc cget -variable] options.badellimit set [$scale_loc cget -variable] [tcl::mathfunc::max [$scale_loc cget -from] [tcl::mathfunc::min [$scale_loc cget -to] [expr [tcl::mathfunc::round $val]-160]]] set options.badellimit [tcl::mathfunc::max [expr [$scale_loc cget -from]+160] [tcl::mathfunc::min [expr [$scale_loc cget -to]+160] [tcl::mathfunc::round $val]]] return 1 } else { return 0 } } proc my_invalid_helper_osx {w} { global options.badellimit set scale_loc [lindex [winfo children [winfo parent $w]] [lsearch [winfo children [winfo parent $w]] *scale]] global [$scale_loc cget -variable] set [$scale_loc cget -variable] [tcl::mathfunc::round [$scale_loc get]] set options.badellimit [expr [tcl::mathfunc::round [$scale_loc get]]+160] } global dummy_badellimit set dummy_badellimit 15 ttk::labelframe $f.optframe2 -text "Bad elements" -relief groove -borderwidth 3 pack $f.optframe2 -fill x -pady 15 -ipady 5 ttk::frame $f.optframe2.badellimit ttk::label $f.optframe2.lab -text "bad element criterion"; ttk::scale $f.optframe2.scale -orient horizontal -length 100 -from 00 -to 20 -variable dummy_badellimit -takefocus 0 -command "roundscale_helper_osx $f.optframe2.scale" ttk::entry $f.optframe2.entry -textvariable options.badellimit -width 3 -validate focusout -takefocus 0 -validatecommand "my_validate_helper_osx %W %P" \ -invalidcommand "my_invalid_helper_osx %W" #pack $f.optframe2.badellimit -anchor center grid $f.optframe2.scale $f.optframe2.entry $f.optframe2.lab -padx 4 -sticky nw grid anchor $f.optframe2 center # insider options # set f [$w.nb subwidget insider] set f $w.nb.debug ttk::labelframe $f.f2 -text "Advanced options" -borderwidth 3 -relief groove pack $f.f2 -fill x -pady 15 #ttk::frame $f.f2.frame #pack $f.f2.frame set f $f.f2 ttk::checkbutton $f.localh -text "Use Local Meshsize" \ -variable options.localh ttk::checkbutton $f.delauney -text "Use Delaunay" \ -variable options.delaunay ttk::checkbutton $f.checkoverlap -text "Check Overlapping" \ -variable options.checkoverlap ttk::checkbutton $f.checkcb -text "Check Chart Boundary" \ -variable options.checkchartboundary ttk::checkbutton $f.blockfill -text "Do Blockfilling" \ -variable options.blockfill grid $f.localh $f.delauney -sticky nw grid $f.checkoverlap $f.blockfill -sticky nw grid $f.checkcb -sticky nw grid anchor $f center # debugging options set f $w.nb.debug # enable / disable ttk::entry widgets linked to ttk::checkbuttons proc enable_cb {w1 w2 w3} { Ng_SetDebugParameters if {[string match *selected* [$w1 state]] == 1 } { $w2 configure -state normal $w3 configure -state normal } else { $w2 configure -state disabled $w3 configure -state disabled } } ttk::labelframe $f.cb1 -text "Debugging options" -borderwidth 3 -relief groove pack $f.cb1 -fill x -pady 15 #frame $f.cb1.cb0 #pack $f.cb1.cb0 -fill x ttk::checkbutton $f.cb1.slowchecks -text "Slow checks" \ -variable debug.slowchecks -command { Ng_SetDebugParameters } ttk::checkbutton $f.cb1.debugoutput -text "Debugging outout" \ -variable debug.debugoutput -command { Ng_SetDebugParameters } ttk::checkbutton $f.cb1.haltexline -text "Halt on exising line" \ -variable debug.haltexistingline -command { Ng_SetDebugParameters } ttk::checkbutton $f.cb1.haltoverlap -text "Halt on Overlap" \ -variable debug.haltoverlap -command { Ng_SetDebugParameters } ttk::checkbutton $f.cb1.haltsuc -text "Halt on success" \ -variable debug.haltsuccess -command { Ng_SetDebugParameters } ttk::checkbutton $f.cb1.haltnosuc -text "Halt on no success" \ -variable debug.haltnosuccess -command { Ng_SetDebugParameters } ttk::checkbutton $f.cb1.haltlargequal -text "Halt on large quality class" \ -variable debug.haltlargequalclass -command { Ng_SetDebugParameters } ttk::checkbutton $f.cb1.haltseg -text "Halt on Segment:" \ -variable debug.haltsegment -command "enable_cb %W $f.cb1.segs.ent1 $f.cb1.segs.ent2" ttk::checkbutton $f.cb1.haltnode -text "Halt on Node:" \ -variable debug.haltnode -command "enable_cb %W $f.cb1.segs.ent1 $f.cb1.segs.ent2" ttk::frame $f.cb1.fr ttk::checkbutton $f.cb1.fr.cb -text "Halt on Face:" \ -variable debug.haltface -command "enable_cb %W $f.cb1.fr.ent $f.cb1.fr.ent" ttk::entry $f.cb1.fr.ent -textvariable debug.haltfacenr -width 3 -state disabled pack $f.cb1.fr.cb $f.cb1.fr.ent -side left ttk::frame $f.cb1.segs ttk::label $f.cb1.segs.lab1 -text "P1:" ttk::entry $f.cb1.segs.ent1 -width 6 \ -textvariable debug.haltsegmentp1 -state disabled ttk::label $f.cb1.segs.lab2 -text "P2:" ttk::entry $f.cb1.segs.ent2 -width 6 \ -textvariable debug.haltsegmentp2 -state disabled pack $f.cb1.segs.lab1 $f.cb1.segs.ent1 $f.cb1.segs.lab2 $f.cb1.segs.ent2 -side left grid $f.cb1.slowchecks $f.cb1.debugoutput -sticky nw grid $f.cb1.haltexline $f.cb1.haltoverlap -sticky nw grid $f.cb1.haltsuc $f.cb1.haltnosuc -sticky nw grid $f.cb1.haltlargequal $f.cb1.fr -sticky nw grid $f.cb1.haltnode -sticky nw grid $f.cb1.haltseg -stick nw grid $f.cb1.segs -stick w -row 4 -rowspan 2 -column 1 grid rowconfigure $f.cb1 3 -pad 8 grid anchor $f.cb1 center ttk::checkbutton $f.cb1.showactivechart -text "Show Active Meshing-Chart" -variable stloptions.showactivechart -command { Ng_SetVisParameters; redraw } grid $f.cb1.showactivechart grid rowconfigure $f.cb1 3 -pad 8 grid rowconfigure $f.cb1 5 -pad 8 set f $w.nb.debug ttk::labelframe $f.cont -relief groove -borderwidth 3 -text "Debugging visualization" pack $f.cont -fill x -pady 15 #ttk::frame $f.cont.f #pack $f.cont.f ttk::checkbutton $f.cont.multidrawing -text "Draw Meshing" -variable multithread_drawing ttk::checkbutton $f.cont.multitestmode -text "Meshing Testmode" -variable multithread_testmode ttk::button $f.cont.goon -text "Go On" -command { set multithread_pause 0 } grid $f.cont.multidrawing -sticky nw grid $f.cont.multitestmode -sticky nw grid $f.cont.goon -row 0 -rowspan 2 -column 1 -sticky w grid columnconfigure $f.cont 0 -pad 30 grid columnconfigure $f.cont 1 -pad 20 grid anchor $f.cont center global userlevel if { $userlevel < 3} { $w.nb delete insider $w.nb delete debug } # tixButtonBox $w.bbox -orientation horizontal # $w.bbox add ok -text Apply -underline 0 -width 5 \ # -command { # [.options_dlg.nb subwidget meshsize].meshsize invoke # [.options_dlg.nb subwidget meshsize].grading invoke # [.options_dlg.nb subwidget optimizer].os2d invoke # [.options_dlg.nb subwidget optimizer].os3d invoke # [.options_dlg.nb subwidget optimizer].elw invoke # [.options_dlg.nb subwidget optimizer].wem invoke # Ng_SetMeshingParameters # } # $w.bbox add close -text Done -underline 0 -width 5 \ # -command { # [.options_dlg.nb subwidget meshsize].meshsize invoke # [.options_dlg.nb subwidget meshsize].grading invoke # [.options_dlg.nb subwidget optimizer].os2d invoke # [.options_dlg.nb subwidget optimizer].os3d invoke # [.options_dlg.nb subwidget optimizer].elw invoke # [.options_dlg.nb subwidget optimizer].wem invoke # Ng_SetMeshingParameters # destroy .options_dlg # } # pack $w.bbox -side bottom -fill x ttk::frame $w.bu pack $w.bu -fill x -ipady 3 ttk::button $w.bu.apl -text "Apply" -command { Ng_SetMeshingParameters Ng_SetDebugParameters } ttk::button $w.bu.ok -text "Done" -command { Ng_SetMeshingParameters Ng_SetDebugParameters wm withdraw .options_dlg # destroy .options_dlg } pack $w.bu.apl $w.bu.ok -side left -expand yes wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "Meshing Options" focus .options_dlg } } meshingoptionsdialog wm withdraw .options_dlg # # # Viewing dialog # # proc viewingoptionsdialog { } { global userlevel set w .viewopts_dlg if {[winfo exists .viewopts_dlg] == 1} { wm withdraw $w wm deiconify $w focus $w } { toplevel $w #wm resizable $w 0 0 pack [ttk::notebook $w.nb] -fill both -fill both -side top $w.nb add [ttk::frame $w.nb.general] -text "General" -underline 0 $w.nb add [ttk::frame $w.nb.stl] -text "STL" -underline 0 $w.nb add [ttk::frame $w.nb.occ] -text "IGES/STEP" -underline 0 $w.nb add [ttk::frame $w.nb.mesh] -text "Mesh" -underline 0 $w.nb add [ttk::frame $w.nb.light] -text "Light" -underline 0 $w.nb add [ttk::frame $w.nb.edges] -text "Edges" -underline 0 $w.nb add [ttk::frame $w.nb.misc] -text "Misc." -underline 3 # tixNoteBook $w.nb -ipadx 6 -ipady 6 # $w.nb add general -label "General" -underline 0 # $w.nb add stl -label "STL" -underline 0 # $w.nb add occ -label "IGES/STEP" -underline 0 # $w.nb add mesh -label "Mesh" -underline 0 # $w.nb add light -label "Light" -underline 0 # $w.nb add edges -label "Edges" -underline 0 # $w.nb add misc -label "Misc." -underline 3 # pack $w.nb -expand yes -fill both -padx 5 -pady 5 -side top # general set f $w.nb.general ttk::labelframe $f.gvop -text "General viewing options" -relief groove -borderwidth 3 pack $f.gvop -fill x -pady 15 set f $f.gvop ttk::checkbutton $f.backcol -text "White Background" \ -variable viewoptions.whitebackground \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.cross -text "Draw Coordinate Cross" \ -variable viewoptions.drawcoordinatecross \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.color -text "Draw Color-bar" \ -variable viewoptions.drawcolorbar \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.netgen -text "Draw Netgen-logo" \ -variable viewoptions.drawnetgenlogo \ -command { Ng_SetVisParameters; redraw } grid $f.backcol -sticky nw grid $f.cross -stick nw grid $f.color -sticky nw grid $f.netgen -sticky nw # checkbutton $f.stereo -text "Stereo View" \ # -variable viewoptions.stereo \ # -command { Ng_SetVisParameters; redraw } # pack $f.stereo menu $f.stylemenu ttk::menubutton $f.style -menu $f.stylemenu -width 10 -text [ttk::style theme use] grid $f.style -sticky nw grid anchor $f center foreach theme [ttk::themes] { $f.stylemenu add command -label $theme \ -command " $f.style configure -text $theme; puts $theme ; ttk::setTheme $theme" } # stl geometry set f $w.nb.stl ttk::labelframe $f.show -relief groove -borderwidth 3 -text "STL viewing options" pack $f.show -fill x -pady 15 ttk::checkbutton $f.show.showtrias -text "Show STL-Triangles" \ -variable stloptions.showtrias -command { Ng_SetVisParameters; redraw } #grid $f.show.showtrias -stick nw ttk::checkbutton $f.show.showfilledtrias -text "Show Filled Triangles" \ -variable stloptions.showfilledtrias -command { Ng_SetVisParameters; redraw } grid $f.show.showtrias $f.show.showfilledtrias -sticky nw ttk::checkbutton $f.show.showactivechart -text "Show Active Meshing-Chart" \ -variable stloptions.showactivechart -command { Ng_SetVisParameters; redraw } #grid $f.show.showactivechart -sticky nw ttk::checkbutton $f.show.showedges -text "Show Edges" \ -variable stloptions.showedges -command { Ng_SetVisParameters; redraw } grid $f.show.showactivechart $f.show.showedges -sticky nw grid anchor $f.show center #frame $f.special -relief groove -borderwidth 3 #pack $f.special ttk::checkbutton $f.show.showmarktrias -text "Show Chart Triangles" \ -variable stloptions.showmarktrias \ -command {set stldoctor.showfaces 0; Ng_STLDoctor; Ng_SetVisParameters; redraw } #pack $f.show.showmarktrias -side left ttk::checkbutton $f.show.showfaces -text "Show Faces" \ -variable stldoctor.showfaces \ -command {set stloptions.showmarktrias 0; Ng_STLDoctor; Ng_SetVisParameters; redraw} #pack $f.show.showfaces -side left grid $f.show.showmarktrias $f.show.showfaces -sticky nw ttk::labelframe $f.fn -relief groove -borderwidth 3 -text "Chart/Face number" pack $f.fn -fill x ttk::label $f.fn.lab3 -text "Chart/Face number" ttk::scale $f.fn.scale3 -orient horizontal -length 150 -from 0 -to 200 \ -variable stloptions.chartnumber -command "Ng_SetVisParameters; redraw;roundscale $f.fn.scale3 0" ttk::entry $f.fn.ent3 -textvariable stloptions.chartnumber -width 3 -validate focus -takefocus 0 \ -validatecommand "Ng_SetVisParameters; redraw;my_validate %W [$f.fn.scale3 cget -from] [$f.fn.scale3 cget -to] %P 0" \ -invalidcommand "my_invalid %W;Ng_SetVisParameters; redraw;" grid $f.fn.scale3 $f.fn.ent3 $f.fn.lab3 -sticky nw -padx 4 #frame $f.fo -relief groove -borderwidth 3 #pack $f.fo tk::label $f.fn.lab -text "Chart/Face Offset:"; ttk::entry $f.fn.ent -width 3 \ -textvariable stloptions.chartnumberoffset -validate focus -takefocus 0 \ -validatecommand "my_validate %W 0 1e9 %P 0" \ -invalidcommand "my_invalid %W" grid $f.fn.lab -sticky ne -padx 4 grid $f.fn.ent -sticky nw -padx 4 -row 1 -column 1 grid anchor $f.fn center ttk::labelframe $f.advstl -text "Advanced STL options" -relief groove -borderwidth 3 pack $f.advstl -fill x -pady 15 #frame $f.mt #pack $f.mt -fill x ttk::checkbutton $f.advstl.bu1 -text "Show Marked (Dirty) Triangles" \ -variable stldoctor.showmarkedtrigs \ -command {Ng_STLDoctor; redraw} #pack $f.mt.bu #frame $f.ep #pack $f.ep -fill x ttk::checkbutton $f.advstl.bu2 -text "show edge corner points" \ -variable stldoctor.showedgecornerpoints \ -command {Ng_STLDoctor; redraw} #pack $f.ep.bu #frame $f.stt #pack $f.stt -fill x ttk::checkbutton $f.advstl.bu3 -text "show touched triangle chart" \ -variable stldoctor.showtouchedtrigchart \ -command {set stldoctor.showfaces 0; set stloptions.showmarktrias 1; \ Ng_STLDoctor; Ng_SetVisParameters; redraw} #pack $f.stt.bu #frame $f.sml #pack $f.sml -fill x ttk::checkbutton $f.advstl.bu4 -text "draw meshed edges" \ -variable stldoctor.drawmeshededges \ -command {Ng_STLDoctor;} #pack $f.sml.bu #frame $f.sm #pack $f.sm -fill x ttk::checkbutton $f.advstl.bu5 -text "select with mouse" \ -variable stldoctor.selectwithmouse #pack $f.sm.bu grid $f.advstl.bu1 -stick nw grid $f.advstl.bu2 -sticky nw grid $f.advstl.bu3 -stick nw grid $f.advstl.bu4 -stick nw grid $f.advstl.bu5 -stick nw grid anchor $f.advstl center ttk::frame $f.advstl.tbn ttk::label $f.advstl.tbn.lab -text "Select triangle by number"; ttk::entry $f.advstl.tbn.ent -width 5 \ -textvariable stldoctor.selecttrig pack $f.advstl.tbn.lab $f.advstl.tbn.ent -padx 4 -side left grid $f.advstl.tbn -sticky nw grid anchor $f.advstl center grid rowconfigure $f.advstl 4 -pad 8 ttk::labelframe $f.vc -relief groove -borderwidth 3 -text "Vicinity options" pack $f.vc -fill x -pady 15 ttk::checkbutton $f.vc.bu -text "show vicinity" \ -variable stldoctor.showvicinity \ -command {Ng_STLDoctor vicinity; redraw} ttk::label $f.vc.lab -text "vicinity size"; ttk::scale $f.vc.scale -orient horizontal -length 150 -from 0 -to 200 \ -variable stldoctor.vicinity \ -takefocus 0 \ -command "roundscale $f.vc.scale 0; Ng_STLDoctor vicinity; redraw" #-command { Ng_STLDoctor vicinity; redraw } ttk::entry $f.vc.ent -width 4 -textvariable stldoctor.vicinity -validate focus \ -takefocus 0 -validatecommand "Ng_STLDoctor vicinity; redraw;my_validate %W [$f.vc.scale cget -from] [$f.vc.scale cget -to] %P 0" \ -invalidcommand "my_invalid %W;Ng_STLDoctor vicinity; redraw" #pack $f.vc.bu $f.vc.lab $f.vc.sc -expand yes grid $f.vc.bu -stick nw -columnspan 3 -column 0 grid $f.vc.scale $f.vc.ent $f.vc.lab -sticky nw -padx 4 grid anchor $f.vc center # IGES/STEP set f $w.nb.occ ttk::labelframe $f.occframe -text "IGES/STEP options" -relief groove -borderwidth 3 pack $f.occframe -fill x -pady 15 -ipady 8 #set f $f.occframe ttk::checkbutton $f.occframe.occshowsurfaces -text "Show surfaces " \ -variable occoptions.showsurfaces \ -command { Ng_SetOCCVisParameters; redraw } ttk::checkbutton $f.occframe.occshowedges -text "Show edges " \ -variable occoptions.showedges \ -command { Ng_SetOCCVisParameters; redraw } grid $f.occframe.occshowsurfaces $f.occframe.occshowedges -sticky nw -padx 4 grid anchor $f.occframe center #ttk::frame $f.deflection -relief groove -borderwidth 3 #pack $f.occframe.deflection -fill x ttk::button $f.occframe.btn -text "Rebuild visualization data" \ -command { Ng_SetOCCVisParameters Ng_OCCCommand buildvisualizationmesh redraw } #tixControl $f.occframe.ent -label "Visualization smoothness" -integer false \ -variable occoptions.deflection -min 0.1 -max 3 -step 0.1 \ -options { entry.width 3 } \ -command { Ng_SetOCCVisParameters } ttk::frame $f.occframe.vssm ttk::label $f.occframe.vssm.lab -text "Visulization smoothness" ttk::spinbox $f.occframe.vssm.sp -textvariable occoptions.deflection \ -from 0.1 -to 3 -increment 0.1 -width 4 -command { catch Ng_SetOCCVisParameters } \ -validate focus -validatecommand "my_validatespinbox %W %P 0" \ -invalidcommand "my_invalidspinbox %W" pack $f.occframe.vssm.lab $f.occframe.vssm.sp -side left -padx 4 grid $f.occframe.vssm -sticky nw -columnspan 2 -column 0 -pady 8 grid $f.occframe.btn -columnspan 2 -column 0 -sticky n #grid $f.occframe.ent $f.occframe.lab -sticky nw # ACIS visualization / construction ttk::labelframe $f.occframe1 -relief groove -borderwidth 3 -text "ACIS visulization / construction" pack $f.occframe1 -fill x -pady 15 -ipady 8 #ttk::frame $f.occframe1.shso ttk::label $f.occframe1.lab1 -text "Show solid (0 for all)" ttk::spinbox $f.occframe1.sp1 -textvariable occoptions.showsolidnr \ -from 0 -to 999 -increment 1 -width 4 -command { catch Ng_SetOCCVisParameters;redraw } \ -validate focus -validatecommand "my_validatespinbox %W %P 0" \ -invalidcommand "my_invalidspinbox %W" #pack $f.occframe1.shso.lab $f.occframe1.shso.sp -side left -padx 4 #ttk::frame $f.occframe1.shso2 ttk::label $f.occframe1.lab2 -text "Show solid 2" ttk::spinbox $f.occframe1.sp2 -textvariable occoptions.showsolidnr2 \ -from 0 -to 999 -increment 1 -width 4 -command { catch Ng_SetOCCVisParameters;redraw } \ -validate focus -validatecommand "my_validatespinbox %W %P 0" \ -invalidcommand "my_invalidspinbox %W" #pack $f.occframe1.shso2.lab $f.occframe1.shso2.sp -side left -padx 4 #tixControl $f.showsolid -label "Show solid (0 for all)" -integer true \ -variable occoptions.showsolidnr -min 0 -max 999 \ -options { entry.width 3 } \ -command { Ng_SetOCCVisParameters; redraw } #tixControl $f.showsolid2 -label "Show solid 2" -integer true \ -variable occoptions.showsolidnr2 -min 0 -max 999 \ -options { entry.width 3 } \ -command { Ng_SetOCCVisParameters; redraw } ttk::button $f.occframe1.subtract -text "Subtract (2 minus 1)" \ -command { Ng_ACISCommand subtract ${occoptions.showsolidnr} ${occoptions.showsolidnr2} redraw } ttk::button $f.occframe1.combine -text "Combine all" \ -command { Ng_ACISCommand combineall redraw } #pack $f.showsolid $f.showsolid2 $f.subtract $f.combine;# -sticky nw grid $f.occframe1.lab1 -row 0 -column 0 -sticky ne grid $f.occframe1.sp1 -row 0 -column 1 -sticky nw grid $f.occframe1.lab2 -row 1 -column 0 -sticky ne grid $f.occframe1.sp2 -row 1 -column 1 -sticky nw grid $f.occframe1.combine -columnspan 2 -column 0 -sticky n grid anchor $f.occframe1 center # mesh options set f $w.nb.mesh ttk::labelframe $f.center -relief groove -borderwidth 3 -text "how shall i name you?" pack $f.center -fill x -pady 15 ttk::button $f.center.lab1 -text "Set Center Point" \ -command { Ng_SetVisParameters; Ng_Center; redraw } ttk::entry $f.center.ent1 -width 5 \ -textvariable viewoptions.centerpoint -validate focus \ -validatecommand "my_validate %W 0 1e9 %P 0" \ -invalidcommand "my_invalid %W" grid $f.center.ent1 $f.center.lab1 -padx 4 -pady 4 -sticky nw #ttk::frame $f.drawel -relief groove -borderwidth 3 #pack $f.drawel -fill x ttk::button $f.center.lab2 -text "Draw Element" \ -command { Ng_SetVisParameters; Ng_ZoomAll; redraw } ttk::entry $f.center.ent2 -width 5 \ -textvariable viewoptions.drawelement -validate focus \ -validatecommand "my_validate %W 0 1e9 %P 0" \ -invalidcommand "my_invalid %W" grid $f.center.ent2 $f.center.lab2 -padx 4 -pady 4 -sticky nw grid anchor $f.center center ttk::labelframe $f.meshframe -text "Mesh visualization options" -relief groove -borderwidth 3 pack $f.meshframe -fill x -pady 15 set f $f.meshframe ttk::checkbutton $f.showcolor -text "Meshsize Visualization" \ -variable viewoptions.colormeshsize \ -command { Ng_SetVisParameters;redraw; } ttk::checkbutton $f.showfilledtrigs -text "Show filled triangles" \ -variable viewoptions.drawfilledtrigs \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showedges -text "Show edges" \ -variable viewoptions.drawedges \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showoutline -text "Show Triangle Outline" \ -variable viewoptions.drawoutline \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showbadels -text "Show bad elements" \ -variable viewoptions.drawbadels \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showprisms -text "Show prisms" \ -variable viewoptions.drawprisms \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showpyramids -text "Show pyramids" \ -variable viewoptions.drawpyramids \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showhexes -text "Show hexes" \ -variable viewoptions.drawhexes \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showidentified -text "Show identified points" \ -variable viewoptions.drawidentified \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showmetispartition -text "Show METIS Partition" \ -variable viewoptions.drawmetispartition \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showpointnumbers -text "Show Point-numbers" \ -variable viewoptions.drawpointnumbers \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showedgenumbers -text "Show Edge-numbers" \ -variable viewoptions.drawedgenumbers \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showfacenumbers -text "Show Face-numbers" \ -variable viewoptions.drawfacenumbers \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showelementnumbers -text "Show Element-numbers" \ -variable viewoptions.drawelementnumbers \ -command { Ng_SetVisParameters; redraw } # label $f.showdomainlab -text "Domain Surface" # scale $f.showdomain -orient horizontal -length 100 -from 0 -to 50 \ -resolution 1 -variable viewoptions.drawdomainsurf \ -command { Ng_SetVisParameters; redraw } \ -label "Domain Surface" #pack $f.showfilledtrigs #pack $f.showoutline $f.subdiv $f.showedges $f.showbadels ## pack $f.showdomainlab #pack $f.showdomain #pack $f.showpointnumbers #pack $f.showedgenumbers $f.showfacenumbers $f.showelementnumbers #pack $f.showmetispartition ttk::frame $f.frametets ttk::checkbutton $f.frametets.showtets -text "" \ -variable viewoptions.drawtets \ -command { Ng_SetVisParameters; redraw } ttk::label $f.frametets.label -text "\Show Tets\rin domain" ttk::spinbox $f.frametets.showtetsdomain -from 0 -to 500 -increment 1 -width 3 \ -textvariable viewoptions.drawtetsdomain -validate focus \ -command "Ng_SetVisParameters; redraw;" \ -validatecommand "my_validatespinbox %W %P 0" \ -invalidcommand "my_invalidspinbox %W" #ttk::frame $f.frametets ttk::label $f.frametets.label1 -text "Subdivision" ttk::spinbox $f.frametets.subdiv -from 0 -to 8 -increment 1 -width 3 \ -textvariable visoptions.subdivisions -validate focus \ -command { Ng_SetVisParameters; Ng_Vis_Set parameters; Ng_SetNextTimeStamp; redraw } \ -validatecommand "my_validatespinbox %W %P 0" \ -invalidcommand "my_invalidspinbox %W" ttk::label $f.frametets.label2 -text "Show surface\rof domain" ttk::spinbox $f.frametets.showdomain -from 0 -to 50 -increment 1 -width 3 \ -textvariable viewoptions.drawdomainsurf -validate focus \ -command { Ng_SetVisParameters; Ng_Vis_Set parameters; redraw } \ -validatecommand "my_validatespinbox %W %P 0" \ -invalidcommand "my_invalidspinbox %W" #tixControl $f.showdomain -label "Show surface\rof domain" -integer true \ -variable viewoptions.drawdomainsurf -min 0 -max 50 \ -options { entry.width 2 } \ -command { Ng_SetVisParameters; Ng_Vis_Set parameters; redraw } #tixControl $f.subdiv -label "Subdivision" -integer true \ # -variable visoptions.subdivisions -min 0 -max 8 \ -options { entry.width 2 } \ -command { Ng_SetVisParameters; Ng_Vis_Set parameters; Ng_SetNextTimeStamp; redraw } #tixControl $f.frametets.showtetsdomain -label "" -integer true \ -variable viewoptions.drawtetsdomain -min 0 -max 500 \ -options { entry.width 2 } \ -command { Ng_SetVisParameters; redraw } #pack $f.frametets grid $f.frametets.showtets $f.frametets.label $f.frametets.showtetsdomain -sticky w grid x $f.frametets.label2 $f.frametets.showdomain -stick w grid x $f.frametets.label1 $f.frametets.subdiv -sticky w grid $f.showfilledtrigs $f.showoutline -sticky nw grid $f.showedges $f.showbadels -sticky nw grid $f.showpointnumbers $f.showedgenumbers -sticky nw grid $f.showfacenumbers $f.showelementnumbers -sticky nw grid $f.showmetispartition $f.showidentified -sticky nw grid $f.showcolor $f.showpyramids -sticky nw grid $f.showprisms $f.showhexes -sticky nw grid $f.frametets -sticky n -columnspan 2 -column 0 -pady 8 #grid $f.showdomain -stick ne;# -columnspan 3 -column 0 -pady 6 #grid $f.framesubdiv -sticky nw;# -columnspan 3 -column 0 -pady 6 grid anchor $f center set f $w.nb.mesh ttk::labelframe $f.fshrink -text "Element visualization" -relief groove -borderwidth 3 ttk::label $f.fshrink.lab -text "Shrink elements" #scale $f.fshrink.scale -orient horizontal -length 200 -from 0 -to 1.0001 \ -resolution 0.01 -tickinterval 0.25 \ -command { Ng_SetVisParameters; after idle redraw } \ -variable viewoptions.shrink ttk::scale $f.fshrink.scale -orient horizontal -length 200 -from 0 -to 1.0001 \ -command "roundscale $f.fshrink.scale 2;Ng_SetVisParameters; after idle redraw" \ -variable viewoptions.shrink ttk::entry $f.fshrink.entry -textvariable viewoptions.shrink -width 4 -validate focus \ -takefocus 0 -validatecommand "Ng_SetVisParameters; after idle redraw;my_validate %W [$f.fshrink.scale cget -from] [$f.fshrink.scale cget -to] %P 2" \ -invalidcommand "my_invalid %W;Ng_SetVisParameters; after idle redraw;" pack $f.fshrink -fill x -ipady 8 grid $f.fshrink.scale $f.fshrink.entry $f.fshrink.lab -padx 4 grid anchor $f.fshrink center # if {$userlevel == 3} { # frame $f.framecurveproj # checkbutton $f.framecurveproj.showcurveproj -text "Show curved edge projection " \ -variable viewoptions.drawcurveproj \ -command { Ng_SetVisParameters; redraw } # tixControl $f.framecurveproj.showcurveprojedge -label "" -integer true \ -variable viewoptions.drawcurveprojedge -min 1 -max 99999 \ -options { entry.width 5 } \ -command { Ng_SetVisParameters; redraw } # pack $f.framecurveproj # pack $f.framecurveproj.showcurveproj $f.framecurveproj.showcurveprojedge -side left # } # light options set f $w.nb.light ttk::labelframe $f.main -text "Lighting options" -relief groove -borderwidth 3 pack $f.main -fill x -pady 15 set f $f.main ttk::label $f.lab1 -text "Ambient Light" ttk::scale $f.scale1 -orient horizontal -length 200 -from 0 -to 1 \ -command "roundscale $f.scale1 2; Ng_SetVisParameters; redraw" \ -variable viewoptions.light.amb ttk::entry $f.ent1 -textvariable viewoptions.light.amb -validate focus -width 4 \ -validatecommand " Ng_SetVisParameters; redraw;my_validate %W [$f.scale1 cget -from] [$f.scale1 cget -to] %P 2" \ -invalidcommand "my_invalid %W;Ng_SetVisParameters; redraw;" ttk::label $f.lab2 -text "Diffuse Light" ttk::scale $f.scale2 -orient horizontal -length 200 -from 0 -to 1 \ -command "roundscale $f.scale2 2; Ng_SetVisParameters; redraw " \ -variable viewoptions.light.diff ttk::entry $f.ent2 -textvariable viewoptions.light.diff -validate focus -width 4 \ -validatecommand " Ng_SetVisParameters; redraw;my_validate %W [$f.scale2 cget -from] [$f.scale2 cget -to] %P 2" \ -invalidcommand "my_invalid %W;Ng_SetVisParameters; redraw;" ttk::label $f.lab3 -text "Specular Light" ttk::scale $f.scale3 -orient horizontal -length 200 -from 0 -to 1 \ -command "roundscale $f.scale3 2; Ng_SetVisParameters; redraw " \ -variable viewoptions.light.spec ttk::entry $f.ent3 -textvariable viewoptions.light.spec -validate focus -width 4 \ -validatecommand " Ng_SetVisParameters; redraw;my_validate %W [$f.scale3 cget -from] [$f.scale3 cget -to] %P 2" \ -invalidcommand "my_invalid %W;Ng_SetVisParameters; redraw;" grid $f.scale1 $f.ent1 $f.lab1 -sticky nw -padx 4 -pady 8 grid $f.scale2 $f.ent2 $f.lab2 -sticky nw -padx 4 -pady 8 grid $f.scale3 $f.ent3 $f.lab3 -sticky nw -padx 4 -pady 8 grid anchor $f center set f $w.nb.light ttk::labelframe $f.main1 -text "Material options" -relief groove -borderwidth 3 pack $f.main1 -fill x -pady 15 set f $f.main1 ttk::label $f.lab4 -text "Material Shininess" ttk::scale $f.scale4 -orient horizontal -length 200 -from 0 -to 128 \ -command "roundscale $f.scale4 0; Ng_SetVisParameters; redraw " \ -variable viewoptions.mat.shininess ttk::entry $f.ent4 -textvariable viewoptions.mat.shininess -validate focus -width 4 \ -validatecommand " Ng_SetVisParameters; redraw;my_validate %W [$f.scale4 cget -from] [$f.scale4 cget -to] %P 0" \ -invalidcommand "my_invalid %W;Ng_SetVisParameters; redraw;" ttk::label $f.lab5 -text "Material Transparency" ttk::scale $f.scale5 -orient horizontal -length 200 -from 0 -to 1 \ -command "roundscale $f.scale5 2; Ng_SetVisParameters; redraw " \ -variable viewoptions.mat.transp ttk::entry $f.ent5 -textvariable viewoptions.mat.transp -validate focus -width 4 \ -validatecommand " Ng_SetVisParameters; redraw;my_validate %W [$f.scale5 cget -from] [$f.scale5 cget -to] %P 2" \ -invalidcommand "my_invalid %W;Ng_SetVisParameters; redraw;" grid $f.scale4 $f.ent4 $f.lab4 -sticky nw -padx 4 -pady 8 grid $f.scale5 $f.ent5 $f.lab5 -sticky nw -padx 4 -pady 8 grid anchor $f center #$f.lab2 $f.scale2 $f.lab3 $f.scale3 $f.lab4 $f.scale4 $f.lab5 $f.scale5 # edges options set f $w.nb.edges ttk::labelframe $f.main -text "Edge viewing options" -relief groove -borderwidth 3 pack $f.main -fill x -pady 15 set f $f.main ttk::frame $f.helper pack $f.helper -anchor center set f $f.helper ttk::checkbutton $f.showedges -text "Show Edges" \ -variable viewoptions.drawededges \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showpoints -text "Show Points" \ -variable viewoptions.drawedpoints \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showpointnrs -text "Show Points Nrs" \ -variable viewoptions.drawedpointnrs \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.showtang -text "Show CP Tangents" \ -variable viewoptions.drawedtangents \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $f.drawedgenrs -text "Show Edge Nrs" \ -variable viewoptions.drawededgenrs \ -command { Ng_SetVisParameters; redraw } pack $f.showedges $f.showpoints $f.showpointnrs $f.showtang $f.drawedgenrs -anchor w set f $w.nb.edges ttk::labelframe $f.main1 -text "Center point" -relief groove -borderwidth 3 pack $f.main1 -fill x -pady 15 set f $f.main1 ttk::frame $f.center pack $f.center -anchor center ttk::button $f.center.btn -text "Set Center Point" \ -command { Ng_SetVisParameters; Ng_Center; redraw } ttk::entry $f.center.ent -width 5 -textvariable viewoptions.centerpoint -validate focus \ -validatecommand "my_validate %W 0 1e9 %P 0" \ -invalidcommand "my_invalid %W" grid $f.center.ent $f.center.btn -sticky nw -padx 4 #ttk::frame $f.f1 #pack $f.f1 -pady 5 -anchor center ttk::label $f.center.lab1 -text "SpecPoint Veclen" ttk::entry $f.center.ent1 -width 5 -textvariable viewoptions.specpointvlen -validate focus \ -validatecommand "my_validate %W 0 1e9 %P 1" \ -invalidcommand "my_invalid %W" grid $f.center.ent1 $f.center.lab1 -sticky nw -padx 4 # misc options set f $w.nb.misc ttk::labelframe $f.point -relief groove -borderwidth 3 -text "Special point" ttk::frame $f.point.dp ttk::checkbutton $f.point.dp.drawpoint -text "Draw Point" \ -variable viewoptions.drawspecpoint \ -command { Ng_SetVisParameters; redraw } ttk::entry $f.point.dp.px -width 8 -textvariable viewoptions.specpointx -validate focus \ -validatecommand "my_validate %W -1e9 1e9 %P 10" \ -invalidcommand "my_invalid %W" ttk::entry $f.point.dp.py -width 8 -textvariable viewoptions.specpointy -validate focus \ -validatecommand "my_validate %W -1e9 1e9 %P 10" \ -invalidcommand "my_invalid %W" ttk::entry $f.point.dp.pz -width 8 -textvariable viewoptions.specpointz -validate focus \ -validatecommand "my_validate %W -1e9 1e9 %P 10" \ -invalidcommand "my_invalid %W" grid $f.point.dp.drawpoint $f.point.dp.px $f.point.dp.py $f.point.dp.pz -sticky nw -padx 4;# -side left ttk::checkbutton $f.point.dp.center -text "Use as Center" \ -variable viewoptions.usecentercoords \ -command { if { ${viewoptions.usecentercoords} } { set viewoptions.centerx ${viewoptions.specpointx} set viewoptions.centery ${viewoptions.specpointy} set viewoptions.centerz ${viewoptions.specpointz} Ng_SetVisParameters; Ng_Center redraw } { Ng_SetVisParameters } } grid $f.point.dp.center -sticky nw -padx 4 pack $f.point.dp pack $f.point -fill x -ipady 3 -pady 15 ttk::frame $w.bu pack $w.bu -fill x -ipady 3 ttk::button $w.bu.done -text "Done" -command { Ng_SetVisParameters; redraw destroy .viewopts_dlg } ttk::button $w.bu.apply -text "Apply" -command { Ng_SetVisParameters; redraw } pack $w.bu.apply $w.bu.done -expand yes -side left wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "Viewing options" focus $w } } proc clipplanecommand { { optionalvar 0 } } { Ng_SetVisParameters after idle redraw } set clippingdialog_pop1 0 set clippingdialog_pop2 0 set clippingdialog_pop3 0 set clippingdialog_pop4 0 # # # clipping dialog # # proc clippingdialog { } { global clippingdialog_pop1 global clippingdialog_pop2 global clippingdialog_pop3 global clippingdialog_pop4 set clippingdialog_pop1 1 set clippingdialog_pop2 1 set clippingdialog_pop3 1 set clippingdialog_pop4 1 set w .clipping_dlg if {[winfo exists .clipping_dlg] == 1} { wm withdraw $w wm deiconify $w focus $w } { toplevel $w ttk::frame $w.background pack $w.background -fill x -fill y set w $w.background ttk::labelframe $w.main -text "Visual clipping" -relief groove -borderwidth 3 pack $w.main -fill x -pady 15 set w $w.main ttk::label $w.lab1 -text "Normal x" ttk::scale $w.scale1 -orient horizontal -length 300 -from -1 -to 1 \ -variable viewoptions.clipping.nx \ -command "roundscale $w.scale1 2; clipplanecommand " ttk::entry $w.entry1 -width 5 -textvariable viewoptions.clipping.nx \ -validate focus -validatecommand " clipplanecommand;my_validate %W [$w.scale1 cget -from] [$w.scale1 cget -to] %P 2" \ -invalidcommand "my_invalid %W; clipplanecommand" ttk::label $w.lab2 -text "Normal y" ttk::scale $w.scale2 -orient horizontal -length 300 -from -1 -to 1 \ -variable viewoptions.clipping.ny \ -command "roundscale $w.scale2 2; clipplanecommand " ttk::entry $w.entry2 -width 5 -textvariable viewoptions.clipping.ny \ -validate focus -validatecommand " clipplanecommand;my_validate %W [$w.scale2 cget -from] [$w.scale2 cget -to] %P 2" \ -invalidcommand "my_invalid $w.entry2;clipplanecommand" ttk::label $w.lab3 -text "Normal z" ttk::scale $w.scale3 -orient horizontal -length 300 -from -1 -to 1 \ -variable viewoptions.clipping.nz \ -command "roundscale $w.scale3 2; clipplanecommand " ttk::entry $w.entry3 -width 5 -textvariable viewoptions.clipping.nz \ -validate focus -validatecommand " clipplanecommand;my_validate %W [$w.scale3 cget -from] [$w.scale3 cget -to] %P 2" \ -invalidcommand "my_invalid %W;clipplanecommand" ttk::label $w.lab4 -text "Distance" ttk::scale $w.scale4 -orient horizontal -length 300 -from -1 -to 1.001 \ -variable viewoptions.clipping.dist \ -command "roundscale $w.scale4 3; clipplanecommand " ttk::entry $w.entry4 -width 5 -textvariable viewoptions.clipping.dist \ -validate focus -validatecommand " clipplanecommand;my_validate %W [$w.scale4 cget -from] [$w.scale4 cget -to] %P 3" \ -invalidcommand "my_invalid %W;clipplanecommand" proc my_Press {w x y} { set inc [expr {([$w get $x $y] <= [$w get]) ? -1 : 1}] ttk::Repeatedly ttk::scale::Increment $w [expr 0.001*$inc] } bind $w.scale4 { if { [string match *slider [%W identify %x %y]] == 0 } { my_Press %W %x %y;break } } bind $w.scale4 {ttk::scale::Release %W %x %y} ttk::label $w.lab5 -text "Additional\rDistance" ttk::scale $w.scale5 -orient horizontal -length 300 -from -1 -to 1.001 \ -variable viewoptions.clipping.dist2 \ -command "roundscale $w.scale5 3; clipplanecommand " ttk::entry $w.entry5 -width 5 -textvariable viewoptions.clipping.dist2 \ -validate focus -validatecommand " clipplanecommand;my_validate %W [$w.scale5 cget -from] [$w.scale5 cget -to] %P 3" \ -invalidcommand "my_invalid %W;clipplanecommand" bind $w.scale5 { if { [string match *slider [%W identify %x %y]] == 0 } { my_Press %W %x %y;break } } bind $w.scale5 {ttk::scale::Release %W %x %y} ttk::label $w.clipdomainlabel -text "Clip only domain" ttk::spinbox $w.clipdomainspinb -from 0 -to 500 -increment 1 -width 3 \ -textvariable viewoptions.clipping.onlydomain -validate focus \ -command {clipplanecommand;} \ -validatecommand "my_validatespinbox %W %P 0" \ -invalidcommand "my_invalidspinbox %W" ttk::label $w.donotclipdomainlabel -text "Do not clip domain" ttk::spinbox $w.donotclipdomainspinb -from 0 -to 500 -increment 1 -width 3 \ -textvariable viewoptions.clipping.notdomain -validate focus \ -command "clipplanecommand" \ -validatecommand "my_validatespinbox %W %P 0" \ -invalidcommand "my_invalidspinbox %W" #tixControl $w.clipdomain -label "Clip only domain" -integer true \ -variable viewoptions.clipping.onlydomain -min 0 -max 50 \ -options { entry.width 2 } \ -command { clipplanecommand; } # -command { Ng_SetVisParameters; redraw } #tixControl $w.donotclipdomain -label "Do not clip domain" -integer true \ -variable viewoptions.clipping.notdomain -min 0 -max 50 \ -options { entry.width 2 } \ -command { clipplanecommand; } # -command { Ng_SetVisParameters; redraw } grid $w.scale1 $w.entry1 $w.lab1 -sticky nw -padx 4 -pady 14 grid $w.scale2 $w.entry2 $w.lab2 -sticky nw -padx 4 -pady 14 grid $w.scale3 $w.entry3 $w.lab3 -sticky nw -padx 4 -pady 14 grid $w.scale4 $w.entry4 $w.lab4 -sticky nw -padx 4 -pady 14 grid $w.scale5 $w.entry5 $w.lab5 -sticky w -padx 4 -pady 14 grid $w.clipdomainlabel -sticky ne -padx 4 -pady 14 grid $w.clipdomainspinb -sticky nw -padx 4 -pady 14 -column 1 -row 5 grid $w.donotclipdomainlabel -sticky ne -padx 4 -pady 14 grid $w.donotclipdomainspinb -sticky nw -padx 4 -pady 14 -column 1 -row 6 grid anchor $w center #pack $w.lab2 $w.scale2 $w.lab3 $w.scale3 $w.lab4 $w.scale4 $w.lab5 $w.scale5 $w.clipdomain $w.donotclipdomain set w .clipping_dlg.background.main ttk::checkbutton $w.cb1 -text "Enable clipping" \ -variable viewoptions.clipping.enable \ -command { Ng_SetVisParameters; redraw } grid $w.cb1 -columnspan 2 -sticky ne ttk::frame $w.bu # pack $w.bu -fill x grid $w.bu;# -fill x -ipady 3 ttk::button $w.cancle -text "Done" -command "destroy .clipping_dlg" grid $w.cancle -columnspan 3 -pady 16 set w .clipping_dlg wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "Clipping Plane" # grab $w focus $w # $w.scale1 configure -command { puts "call1b"; Ng_SetVisParameters; redraw } # puts "after" clipplanecommand } } # # refinement dialog # # proc refinementdialog { } { set w .refinement_dlg if {[winfo exists .refinement_dlg] == 1} { wm withdraw $w wm deiconify $w focus $w } { toplevel $w #ttk::labelframe $w.main -text "Refinement options" -relief groove -borderwidth 3 #pack $w.main -fill x -pady 15 #set w $w.main # tixControl $w.meshsize -label "max mesh-size: " -integer false \ # -variable options.meshize -min 1e-6 -max 1e6 \ # -options { # entry.width 6 # label.width 25 # label.anchor e # } # pack $w.meshsize -anchor e global localh set localh 1 # tixControl $w.loch -label "local mesh-size: " -integer false \ # -variable localh -min 1e-6 -max 1e6 \ # -options { # entry.width 6 # label.width 25 # label.anchor e # } # pack $w.loch -anchor e ttk::frame $w.meshsize ttk::label $w.meshsize.l1 -text "max mesh-size: " ttk::spinbox $w.meshsize.sp1 -from 1e-6 -to 1e6 -textvariable options.meshsize -validate focus -validatecommand "my_validatespinbox %W %P 4" \ -invalidcommand "my_invalidspinbox %W" -width 6 -increment 0.1 #pack $w.meshsize.l1 $w.meshsize.sp1 -fill x -side left ttk::frame $w.meshsizeloc #pack $w.meshsize -anchor e #pack $w.meshsizeloc -anchor e ttk::label $w.meshsizeloc.l1 -text "local mesh-size: " ttk::spinbox $w.meshsizeloc.sp1 -from 1e-6 -to 1e6 -textvariable localh -validate focus -validatecommand "my_validatespinbox %W %P 4" \ -invalidcommand "my_invalidspinbox %W" -width 6 -increment 0.1 #pack $w.meshsizeloc.l1 $w.meshsizeloc.sp1 -expand yes -fill x pack $w.meshsize pack $w.meshsizeloc grid $w.meshsize.l1 $w.meshsize.sp1 grid $w.meshsizeloc.l1 $w.meshsizeloc.sp1 ttk::button $w.restface -text "Restrict H at face" \ -command { .refinement_dlg.meshsize invoke .refinement_dlg.loch invoke Ng_RestrictH face $localh } ttk::button $w.restedge -text "Restrict H at edge" \ -command { .refinement_dlg.meshsize invoke .refinement_dlg.loch invoke Ng_RestrictH edge $localh } ttk::button $w.restelement -text "Restrict H at element" \ -command { .refinement_dlg.meshsize invoke .refinement_dlg.loch invoke Ng_RestrictH element $localh } ttk::button $w.restpoint -text "Restrict H at point" \ -command { .refinement_dlg.meshsize invoke .refinement_dlg.loch invoke Ng_RestrictH point $localh } pack $w.restface $w.restedge $w.restelement $w.restpoint ttk::button $w.anisoedge -text "Declare Anisotropic edge" \ -command { Ng_Anisotropy edge } pack $w.anisoedge frame $w.bu pack $w.bu -fill x -ipady 3 ttk::button $w.bu.cancle -text "Done" -command "destroy .refinement_dlg" ttk::button $w.bu.refine -text "Refine" \ -command { # Ng_BisectCopyMesh; set oldnp 0; set newnp $status_np; while { $oldnp < $newnp } { set level [expr $level+1] Ng_Bisect; Ng_HighOrder ${options.elementorder} Ng_ReadStatus; redraw; set oldnp $newnp set newnp $status_np puts "oldnp $oldnp newnp $newnp" } } ttk::button $w.bu.zrefine -text "Z-Refine" \ -command { Ng_ZRefinement; Ng_ReadStatus; redraw; } pack $w.bu.zrefine $w.bu.refine $w.bu.cancle -expand yes -side left wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "Select Refinement" focus $w } } # # boundcondessing dialog # # proc bcpropdialog { } { set w .bcprop_dlg if {[winfo exists .bcprop_dlg] == 1} { wm withdraw $w wm deiconify $w } { toplevel $w ttk::frame $w.face -borderwidth 3 pack $w.face -fill x ttk::label $w.face.lab -text "face index:" ttk::label $w.face.ent -text 1 ttk::button $w.face.next -text "next" -command { set w .bcprop_dlg; set facenr [$w.face.ent cget -text] if {$facenr == [Ng_BCProp getnfd]} { set facenr 1 } { set facenr [expr $facenr + 1] } $w.face.ent configure -text $facenr Ng_BCProp setactive $facenr set bcnr [Ng_BCProp getbc $facenr] $w.bc.ent delete 0 end $w.bc.ent insert 0 $bcnr redraw } ttk::button $w.face.prev -text "prev" -command { set w .bcprop_dlg; set facenr [$w.face.ent cget -text] if {$facenr == 1} { set facenr [Ng_BCProp getnfd] } { set facenr [expr $facenr - 1] } $w.face.ent configure -text $facenr Ng_BCProp setactive $facenr set bcnr [Ng_BCProp getbc $facenr] $w.bc.ent delete 0 end $w.bc.ent insert 0 $bcnr redraw } pack $w.face.lab $w.face.ent $w.face.prev $w.face.next -side left ttk::frame $w.bc -borderwidth 3 pack $w.bc -fill x ttk::label $w.bc.lab -text "bc property:" entry $w.bc.ent -width 5 -relief sunken ttk::button $w.bc.but -text "change" -command { set w .bcprop_dlg; Ng_BCProp setbc [$w.face.ent cget -text] [$w.bc.ent get]; } ttk::button $w.bc.but2 -text "all" -command { set w .bcprop_dlg; Ng_BCProp setall [$w.bc.ent get]; } pack $w.bc.lab $w.bc.ent $w.bc.but $w.bc.but2 -side left -expand yes ttk::frame $w.bcname -borderwidth 3 pack $w.bcname -fill x ttk::label $w.bcname.lab -text "bc name:" ttk::label $w.bcname.ent -text "-" pack $w.bcname.lab $w.bcname.ent -side left -expand yes ttk::frame $w.bu pack $w.bu -fill x -ipady 3 ttk::button $w.bu.close -text "Close" -command { destroy .bcprop_dlg } pack $w.bu.close -expand yes -side left wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "Boundary Conditions" } focus $w set facenr [Ng_BCProp getactive] $w.face.ent configure -text $facenr set bcnr [Ng_BCProp getbc $facenr] $w.bc.ent delete 0 end $w.bc.ent insert 0 $bcnr set bcname [Ng_BCProp getbcname $facenr] $w.bcname.ent configure -text $bcname } # # Philippose - 25/07/2010 # Display the face colours currently # available in the mesh # proc currmeshcoloursdialog { } { set w .currmeshcolours_dlg if {[winfo exists .currmeshcolours_dlg] == 1} { wm withdraw $w wm deiconify $w focus $w } { toplevel $w global facecolslist frame $w.facecols -borderwidth 3 listbox $w.facecols.list -yscroll "$w.facecols.scroll set" -selectmode single -setgrid 1 -width 32 -height 12 scrollbar $w.facecols.scroll -command "$w.facecols.list yview" pack $w.facecols.scroll -side right -fill y pack $w.facecols.list -side left -expand yes -fill both Ng_CurrentFaceColours getcolours facecolslist set i 1 foreach el $facecolslist { set hel [format "%d: (%.4f %.4f %.4f)" $i [ lindex $el 0 ] [ lindex $el 1 ] [ lindex $el 2 ]] incr i $w.facecols.list insert end $hel } frame $w.bu1 -borderwidth 3 ttk::button $w.bu1.showonly -text "show only" -command { Ng_CurrentFaceColours showonly [.currmeshcolours_dlg.facecols.list curselection] redraw } ttk::button $w.bu1.hideonly -text "hide only" -command { Ng_CurrentFaceColours hideonly [.currmeshcolours_dlg.facecols.list curselection] redraw } ttk::button $w.bu1.showalso -text "show" -command { Ng_CurrentFaceColours showalso [.currmeshcolours_dlg.facecols.list curselection] redraw } ttk::button $w.bu1.hidealso -text "hide" -command { Ng_CurrentFaceColours hidealso [.currmeshcolours_dlg.facecols.list curselection] redraw } pack $w.bu1.showonly $w.bu1.hideonly $w.bu1.showalso $w.bu1.hidealso -expand yes -fill x -padx 2 -pady 2 -side left frame $w.bu2 ttk::button $w.bu2.showall -text "show all" -command { Ng_CurrentFaceColours showall redraw } ttk::button $w.bu2.hideall -text "hide all" -command { Ng_CurrentFaceColours hideall redraw } pack $w.bu2.showall $w.bu2.hideall -expand yes -fill x -padx 2 -pady 2 -side left frame $w.bu3 ttk::button $w.bu3.close -text "close" -command { destroy .currmeshcolours_dlg } pack $w.bu3.close -expand yes -fill x -pady 3 -side right pack $w.facecols -side top -expand yes -fill x -fill y pack $w.bu3 -side bottom pack $w.bu2 -side bottom pack $w.bu1 -expand yes -fill x -side left wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "Inspect Mesh Colours" focus $w } } # # Philippose - 30/01/2009 # Local Surface Mesh Size Selection # (Currently only supports OCC Geometry) # # proc surfacemeshsizedialog { } { set w .surfacemeshsize_dlg if {[winfo exists .surfacemeshsize_dlg] == 1} { wm withdraw $w wm deiconify $w } { toplevel $w frame $w.face -borderwidth 3 pack $w.face -fill x -padx 5 ttk::label $w.face.lab -text "face index:" ttk::label $w.face.ent -text 1 -padx 4 ttk::button $w.face.next -text "next" -command { set w .surfacemeshsize_dlg; set facenr [$w.face.ent cget -text] if {$facenr == [Ng_SurfaceMeshSize getnfd]} { set facenr 1 } { set facenr [expr $facenr + 1] } $w.face.ent configure -text $facenr Ng_SurfaceMeshSize setactive $facenr set surfms [Ng_SurfaceMeshSize getsurfms $facenr] $w.sms.ent delete 0 end $w.sms.ent insert 0 $surfms redraw } ttk::button $w.face.prev -text "prev" -command { set w .surfacemeshsize_dlg; set facenr [$w.face.ent cget -text] if {$facenr == 1} { set facenr [Ng_SurfaceMeshSize getnfd] } { set facenr [expr $facenr - 1] } $w.face.ent configure -text $facenr Ng_SurfaceMeshSize setactive $facenr set surfms [Ng_SurfaceMeshSize getsurfms $facenr] $w.sms.ent delete 0 end $w.sms.ent insert 0 $surfms redraw } pack $w.face.lab $w.face.ent $w.face.prev $w.face.next -side left frame $w.sms -borderwidth 3 pack $w.sms -fill x ttk::label $w.sms.lab -text "max mesh size:" entry $w.sms.ent -width 8 -relief sunken ttk::button $w.sms.but -text "change" -command { set w .surfacemeshsize_dlg; Ng_SurfaceMeshSize setsurfms [$w.face.ent cget -text] [$w.sms.ent get]; } ttk::button $w.sms.but2 -text "all" -command { set w .surfacemeshsize_dlg; Ng_SurfaceMeshSize setall [$w.sms.ent get]; } pack $w.sms.lab $w.sms.ent $w.sms.but $w.sms.but2 -side left -padx 5 -expand yes frame $w.bu pack $w.bu -fill x -ipady 3 ttk::button $w.bu.close -text "Close" -command { destroy .surfacemeshsize_dlg } pack $w.bu.close -expand yes -side left wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "Edit Surface Mesh Size" } focus $w set facenr [Ng_SurfaceMeshSize getactive] $w.face.ent configure -text $facenr set surfms [Ng_SurfaceMeshSize getsurfms $facenr] $w.sms.ent delete 0 end $w.sms.ent insert 0 $surfms } # # METIS dialog # # proc METISdialog { } { set w .metis_dlg set w.parts 64 if {[winfo exists .metis_dlg] == 1} { wm withdraw $w wm deiconify $w } { toplevel $w frame $w.a -borderwidth 0 frame $w.b -borderwidth 0 pack $w.a $w.b ttk::label $w.a.lab -text "Number of partitions:" entry $w.a.ent -textvariable w.parts -width 4 -relief sunken ttk::button $w.b.start -text "Start METIS" -command { Ng_Metis ${w.parts} redraw } ttk::button $w.b.cancel -text "Cancel" -command { destroy .metis_dlg } pack $w.a.lab $w.a.ent -side left -expand yes pack $w.b.start $w.b.cancel -side left wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "METIS Partitioning" focus $w } } # # STL dialog # proc stloptionsdialog { } { set w .stlopts_dlg if {[winfo exists .stlopts_dlg] == 1} { wm withdraw $w wm deiconify $w focus $w } { toplevel $w pack [ttk::notebook $w.nb] -fill both -fill both -side top # tixNoteBook $w.nb -ipadx 6 -ipady 6 # $w config -bg gray # $w.nb subwidget nbframe config -backpagecolor gray # Create the two tabs on the notebook. The -underline option # puts a underline on the first character of the labels of the tabs. # Keyboard accelerators will be defined automatically according # to the underlined character. # # $w.nb add chartopt -label "Chart Options" -underline 0 # #$w.nb add meshsize -label "Mesh Size" -underline 0 # pack $w.nb -expand yes -fill both -padx 5 -pady 5 -side top # set f [$w.nb subwidget chartopt] # label $f.lab1 -text "Yellow Edges Angle ()" # scale $f.scale1 -orient horizontal -length 300 \ # -from 0 -to 90 -resolution 1 -tickinterval 10 \ # -variable stloptions.yangle # pack $f.lab1 $f.scale1 # label $f.lab2e -text "Edge Corner Angle ()" # scale $f.scale2e -orient horizontal -length 360 -from 0 -to 180 \ # -resolution 1 -tickinterval 20 \ # -variable stloptions.edgecornerangle # pack $f.lab2e $f.scale2e # label $f.lab2 -text "Chart Angle ()" # scale $f.scale2 -orient horizontal -length 360 -from 0 -to 180 \ # -resolution 1 -tickinterval 20 \ # -variable stloptions.chartangle # pack $f.lab2 $f.scale2 # label $f.lab2b -text "Outer Chart Angle ()" # scale $f.scale2b -orient horizontal -length 360 -from 0 -to 180 \ # -resolution 1 -tickinterval 20 \ # -variable stloptions.outerchartangle # pack $f.lab2b $f.scale2b # frame $f.r4 # pack $f.r4 -anchor w # scale $f.r4.sc -orient horizontal -length 200 -from 0.1 -to 10 \ # -resolution 0.1 -variable stloptions.resthatlasfac # checkbutton $f.r4.bu -text "Restrict h for Calc Atlas (Faster)" \ # -variable stloptions.resthatlasenable # pack $f.r4.sc $f.r4.bu -side left #set f [$w.nb subwidget meshsize] # checkbutton $w.seat -text "Use Searchtrees" \ # -variable stloptions.usesearchtree # pack $w.seat frame $w.bu # pack $w.bu pack $w.bu -fill x -ipady 3 # -fill x ttk::button $w.bu.apply -text "Apply" -command { redraw; Ng_GenerateMesh 1 2} ttk::button $w.bu.cancle -text "Done" -command { destroy .stlopts_dlg } pack $w.bu.cancle $w.bu.apply -side left -expand yes wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "STL Options" # grab $w focus $w } } proc stldoctordialog { } { Ng_STLDoctor 0 0 set wd .stldoctor_dlg if {[winfo exists .stldoctor_dlg] == 1} { wm withdraw $wd wm deiconify $wd focus $wd } { toplevel $wd pack [ttk::notebook $wd.nb] -fill both -fill both -side top $wd.nb add [ttk::frame $wd.nb.general] -text "General" -underline 0 $wd.nb add [ttk::frame $wd.nb.topology] -text "Edit Topology" -underline 5 $wd.nb add [ttk::frame $wd.nb.edges] -text "Edit Edges" -underline 5 $wd.nb add [ttk::frame $wd.nb.normals] -text "Edit Normals" -underline 5 $wd.nb add [ttk::frame $wd.nb.advanced] -text "Advanced" -underline 0 # tixNoteBook $wd.nb -ipadx 6 -ipady 6 # $wd.nb add general -label "General" -underline 0 # $wd.nb add topology -label "Edit Topology" -underline 5 # $wd.nb add edges -label "Edit Edges" -underline 5 # $wd.nb add normals -label "Edit Normals" -underline 5 # $wd.nb add advanced -label "Advanced" -underline 0 # pack $wd.nb -expand yes -fill both -padx 5 -pady 5 -side top # GENERAL ***************************** set f $wd.nb.general ttk::frame $f.selectframe -borderwidth 0 #ttk::frame $f.show #pack $f.show -fill x ttk::checkbutton $f.selectframe.showtrias -text "Show STL-Triangles" \ -variable stloptions.showtrias -command { Ng_SetVisParameters; redraw } #pack $f.selectframe.showtrias -anchor w ttk::checkbutton $f.selectframe.showfilledtrias -text "Show Filled Triangles" \ -variable stloptions.showfilledtrias -command { Ng_SetVisParameters; redraw } #pack $f.show.showfilledtrias -anchor w set selmodevals { 0 1 2 3 4 } set selmodelabs(0) "triangle" set selmodelabs(1) "edge" set selmodelabs(2) "point" set selmodelabs(3) "line" set selmodelabs(4) "line cluster" # tixOptionMenu $f.selmode -label "Double Click selects :" \ # -options { # label.width 19 # label.anchor e # menubutton.width 15 # } # foreach selmodev $selmodevals { # $f.selmode add command $selmodev -label $selmodelabs($selmodev) # } # $f.selmode config -variable stldoctor.selectmode # $f.selmode config -command { Ng_STLDoctor } global stldoctor.selectmode # pack $f.selmode ttk::label $f.selectframe.dblcsellab -text "Double Click selects : " ttk::menubutton $f.selectframe.dblcselbut -menu $f.selectframe.dblcselmen -text "triangle" -width 16 menu $f.selectframe.dblcselmen -tearoff 0 foreach selmode { 0 1 2 3 4 } { $f.selectframe.dblcselmen add command -label $selmodelabs($selmode) \ -command "set stldoctor.selectmode $selmode ; Ng_STLDoctor ; $f.selectframe.dblcselbut configure -text \"$selmodelabs($selmode)\"" } $f.selectframe.dblcselmen invoke $selmodelabs(${stldoctor.selectmode}) pack $f.selectframe grid $f.selectframe.showtrias -sticky nw grid $f.selectframe.showfilledtrias -sticky nw grid $f.selectframe.dblcsellab $f.selectframe.dblcselbut -sticky nw ttk::frame $f.sm pack $f.sm -fill x ttk::checkbutton $f.sm.bu -text "select with mouse" \ -variable stldoctor.selectwithmouse pack $f.sm.bu ttk::frame $f.st -relief groove -borderwidth 3 pack $f.st -fill x ttk::label $f.st.lab -text "Select triangle by number"; ttk::entry $f.st.ent -width 5 \ -textvariable stldoctor.selecttrig pack $f.st.ent $f.st.lab -side left -expand yes ttk::frame $f.vc -relief groove -borderwidth 3 pack $f.vc -fill x ttk::checkbutton $f.vc.bu -text "show vicinity" \ -variable stldoctor.showvicinity \ -command {Ng_STLDoctor vicinity; redraw} ttk::label $f.vc.lab -text "vicinity size"; #scale $f.vc.sc -orient horizontal -length 200 -from 0 -to 200 \ -resolution 1 -variable stldoctor.vicinity \ -command { Ng_STLDoctor vicinity; redraw } ttk::frame $f.vc.sc ttk::scale $f.vc.sc.scale -orient horizontal -length 200 -from 0 -to 200 \ -variable stldoctor.vicinity -takefocus 0 -command "Ng_STLDoctor vicinity; redraw; roundscale $f.vc.sc.scale 0" ttk::entry $f.vc.sc.entry -textvariable stldoctor.vicinity -width 3 \ -validatecommand "Ng_STLDoctor vicinity; redraw; my_validate %W [$f.vc.sc.scale cget -from] [$f.vc.sc.scale cget -to] %P 0" \ -invalidcommand "my_invalid %W;Ng_STLDoctor vicinity; redraw;" -validate focus ttk::label $f.vc.sc.lab -text "vicinity size" grid $f.vc.sc.scale $f.vc.sc.entry $f.vc.sc.lab -sticky nw -padx 4 pack $f.vc.bu $f.vc.lab $f.vc.sc -expand yes ttk::frame $f.ge -relief groove -borderwidth 0 pack $f.ge -expand yes ttk::button $f.ge.neighbourangles -text "calc neighbourangles" -command {Ng_STLDoctor neighbourangles} ttk::button $f.ge.showcoords -text "show coords of touched triangle" -command {Ng_STLDoctor showcoords} ttk::button $f.ge.moveptm -text "move point to middle of trianglepoints" -command {Ng_STLDoctor movepointtomiddle; redraw} ttk::button $f.ge.destroy0trigs -text "destroy 0-volume triangles" -command {Ng_STLDoctor destroy0trigs} grid $f.ge.neighbourangles -sticky nw -padx 4 -pady 4 grid $f.ge.showcoords -sticky nw -padx 4 -pady 4 grid $f.ge.moveptm -sticky nw -padx 4 -pady 4 grid $f.ge.destroy0trigs -sticky nw -padx 4 -pady 4 ttk::button $f.ge.cancle -text "Done" -command {destroy .stldoctor_dlg } grid $f.ge.cancle -sticky nw # TOPOLOGY ******************** set f $wd.nb.topology ttk::frame $f.oc -relief groove -borderwidth 3 pack $f.oc -pady 3 -ipady 3 -fill y -fill x ttk::frame $f.oc.oc1 -borderwidth 0 pack $f.oc.oc1 ttk::button $f.oc.oc1.bu -text "invert orientation \n of selected trig" -command {Ng_STLDoctor invertselectedtrig; redraw } ttk::button $f.oc.oc1.bu2 -text "orient after \n selected trig" -command {Ng_STLDoctor orientafterselectedtrig; redraw } ttk::button $f.oc.oc1.toperr -text "mark inconsistent triangles" -command {Ng_STLDoctor marktoperrortrigs; redraw } ttk::button $f.oc.oc1.deltrig -text "delete selected triangle" -command {Ng_STLDoctor deleteselectedtrig; redraw } ttk::button $f.oc.oc1.geosmooth -text "geometric smoothing" -command {Ng_STLDoctor smoothgeometry; redraw } grid $f.oc.oc1.bu x $f.oc.oc1.bu2 -sticky nw -padx 4 -pady 4 grid $f.oc.oc1.toperr - x -sticky nw -padx 4 -pady 4 grid $f.oc.oc1.deltrig - x -sticky nw -padx 4 -pady 4 grid $f.oc.oc1.geosmooth - x -sticky nw -padx 4 -pady 4 # EDGES *********************** set f $wd.nb.edges ttk::frame $f.be -relief groove -borderwidth 3 pack $f.be -fill x #scale $f.be.sc -orient horizontal -length 200 -from 0 -to 100 \ #-resolution 0.5 ttk::frame $f.be.frame pack $f.be.frame -ipady 4 -pady 4 ttk::label $f.be.frame.lab -text "build edges with yellow angle:"; ttk::scale $f.be.frame.scale -orient horizontal -length 200 -from 0 -to 200 \ -variable stloptions.yangle -takefocus 0 -command "roundscale $f.be.frame.scale 1; Ng_SetSTLParameters; Ng_STLDoctor buildedges; redraw" ttk::entry $f.be.frame.entry -textvariable stloptions.yangle -width 5 \ -validatecommand "Ng_SetSTLParameters; Ng_STLDoctor buildedges; redraw;my_validate %W [$f.be.frame.scale cget -from] [$f.be.frame.scale cget -to] %P 1" \ -invalidcommand "my_invalid %W;Ng_SetSTLParameters; Ng_STLDoctor buildedges; redraw" -validate focus grid $f.be.frame.lab - -sticky nw -padx 4 grid $f.be.frame.scale $f.be.frame.entry -sticky nw -padx 4 #$f.be.sc config -variable stloptions.yangle #$f.be.sc config -command { Ng_SetSTLParameters; Ng_STLDoctor buildedges; redraw } ttk::label $f.be.frame.lab2 -text "continue edges with yellow angle:"; # scale $f.be.sc2 -orient horizontal -length 200 -from 0 -to 100 \ -resolution 0.5 ttk::scale $f.be.frame.scale2 -orient horizontal -length 200 -from 0 -to 100 \ -variable stloptions.contyangle -takefocus 0 -command "roundscale $f.be.frame.scale2 1; Ng_SetSTLParameters; Ng_STLDoctor buildedges; redraw" ttk::entry $f.be.frame.entry2 -textvariable stloptions.contyangle -width 5 \ -validatecommand "Ng_SetSTLParameters; Ng_STLDoctor buildedges; redraw;my_validate %W [$f.be.frame.scale2 cget -from] [$f.be.frame.scale2 cget -to] %P 1" \ -invalidcommand "my_invalid %W;Ng_SetSTLParameters; Ng_STLDoctor buildedges; redraw" -validate focus grid $f.be.frame.lab2 - -sticky nw -padx 4 grid $f.be.frame.scale2 $f.be.frame.entry2 -sticky nw -padx 4 #$f.be.sc2 config -variable stloptions.contyangle #$f.be.sc2 config -command { Ng_SetSTLParameters; Ng_STLDoctor buildedges; redraw } ttk::button $f.be.frame.buildedges -text "Build Edges" -command {Ng_STLDoctor buildedges; redraw} grid $f.be.frame.buildedges - -sticky n -padx 4 -pady 4 #pack $f.be.lab $f.be.sc $f.be.lab2 $f.be.sc2 $f.be.buildedges -expand yes ttk::frame $f.se -relief groove -borderwidth 3 pack $f.se -fill x ttk::checkbutton $f.se.bu -text "show excluded" \ -variable stldoctor.showexcluded \ -command {Ng_STLDoctor; redraw} pack $f.se.bu # edgeselectmode ****** set edgeselmodevals { 0 1 2 3 4 } set edgeselmodelabs(0) "no change" set edgeselmodelabs(1) "undefined" set edgeselmodelabs(2) "confirmed" set edgeselmodelabs(3) "candidate" set edgeselmodelabs(4) "excluded" # tixOptionMenu $f.edgeselmode -label "Double Click sets edge :" \ # -options { # label.width 19 # label.anchor e # menubutton.width 15 # } # foreach edgeselmodev $edgeselmodevals { # $f.edgeselmode add command $edgeselmodev -label $edgeselmodelabs($edgeselmodev) # } # $f.edgeselmode config -variable stldoctor.edgeselectmode # $f.edgeselmode config -command { Ng_STLDoctor } global stldoctor.edgeselectmode # pack $f.edgeselmode ttk::frame $f.scaleframe -relief groove -borderwidth 0 pack $f.scaleframe -ipadx 4 -pady 4 -expand yes ttk::label $f.scaleframe.dblcedgelab -text "Double Click sets edge :" ttk::menubutton $f.scaleframe.dblcledgebut -menu $f.scaleframe.dblcledgem -text "coarse" -width 16 menu $f.scaleframe.dblcledgem -tearoff 0 foreach selectmode { 0 1 2 3 4 } { $f.scaleframe.dblcledgem add command -label $edgeselmodelabs($selectmode) \ -command "set stldoctor.edgeselectmode $selectmode ; $f.scaleframe.dblcledgebut configure -text \"$edgeselmodelabs($selectmode)\"" } $f.scaleframe.dblcledgem invoke $edgeselmodelabs(${stldoctor.edgeselectmode}) grid $f.scaleframe.dblcedgelab $f.scaleframe.dblcledgebut -sticky n -ipadx 4 # edge buttons ttk::frame $f.edg -relief groove -borderwidth 3 pack $f.edg -fill x -ipadx 4 -ipady 4 # checkbutton $f.edg.bu -text "use external edges" \ # -variable stldoctor.useexternaledges \ # -command {Ng_STLDoctor; redraw} # pack $f.edg.bu -expand yes ttk::frame $f.edg.f0 pack $f.edg.f0 ttk::button $f.edg.f0.confirmedge -text "confirm" -command {Ng_STLDoctor confirmedge; redraw} ttk::button $f.edg.f0.candidateedge -text "candidate" -command {Ng_STLDoctor candidateedge; redraw} ttk::button $f.edg.f0.excludeedge -text "exclude" -command {Ng_STLDoctor excludeedge; redraw} ttk::button $f.edg.f0.undefinededge -text "undefined" -command {Ng_STLDoctor undefinededge; redraw} pack $f.edg.f0.confirmedge $f.edg.f0.candidateedge $f.edg.f0.excludeedge $f.edg.f0.undefinededge -side left ttk::frame $f.edg.fa pack $f.edg.fa ttk::button $f.edg.fa.setallundefined -text "all undefined" -command {Ng_STLDoctor setallundefinededges; redraw} ttk::button $f.edg.fa.erasecandidates -text "candidates to undefined" -command {Ng_STLDoctor erasecandidateedges; redraw} pack $f.edg.fa.setallundefined $f.edg.fa.erasecandidates -side left ttk::frame $f.edg.fb pack $f.edg.fb ttk::button $f.edg.fb.confirmcandidates -text "candidates to confirmed" -command {Ng_STLDoctor confirmcandidateedges; redraw} ttk::button $f.edg.fb.confirmedtocandidates -text "confirmed to candidates" -command {Ng_STLDoctor confirmedtocandidateedges; redraw} pack $f.edg.fb.confirmcandidates $f.edg.fb.confirmedtocandidates -side left ttk::frame $f.edg.f1 ttk::frame $f.edg.f2 ttk::frame $f.edg.f3 ttk::frame $f.edg.f4 pack $f.edg.f1 $f.edg.f2 $f.edg.f3 $f.edg.f4 ttk::button $f.edg.f1.exportedges -text "export edges" -command {Ng_STLDoctor exportedges} ttk::button $f.edg.f1.importedges -text "import edges" -command {Ng_STLDoctor importedges; redraw} ttk::button $f.edg.f1.saveedgedata -text "save edgedata" \ -command { set types { {"Netgen Edgedata" {.ned} } } set file [tk_getSaveFile -filetypes $types -defaultextension ".ned"] if {$file != ""} { Ng_STLDoctor saveedgedata $file } } ttk::button $f.edg.f1.loadedgedata -text "load edgedata" \ -command { set types { {"Netgen Edgedata" {.ned} } } set file [tk_getOpenFile -filetypes $types -defaultextension ".ned"] if {$file != ""} { Ng_STLDoctor loadedgedata $file puts "loading done" redraw # wm title . [concat "NETGEN - " $file] } } ttk::button $f.edg.f1.importAVLedges -text "import AVL edges" \ -command { set types {{"Edge file" {.edg }}} set file [tk_getOpenFile -filetypes $types -defaultextension ".edg"] if {$file != ""} { Ng_STLDoctor importexternaledges $file; } } pack $f.edg.f1.importAVLedges $f.edg.f1.loadedgedata $f.edg.f1.saveedgedata -side left # button $f.edg.f1.buildedges -text "build external edges" -command {Ng_STLDoctor buildexternaledges; redraw} ttk::frame $f.edg2 -relief groove -borderwidth 3 pack $f.edg2 -fill x # button $f.edg2.addlonglines -text "make long lines candidates (% of diam)" -command {Ng_STLDoctor addlonglines; redraw} ttk::label $f.edg2.lab -text "length (%):" scale $f.edg2.sc -orient horizontal -length 200 -from 0 -to 100 \ -resolution 0.5 \ -variable stldoctor.longlinefact # button $f.edg2.deletedirtyedges -text "make dirty edges candidates" -command {Ng_STLDoctor deletedirtyedges; redraw} ttk::button $f.edg2.undoedge -text "undo last edge change" -command {Ng_STLDoctor undoedgechange; redraw} # pack $f.edg2.addlonglines $f.edg2.deletedirtyedges -expand yes # pack $f.edg2.lab $f.edg2.sc -side left pack $f.edg2.undoedge -expand yes # NORMALS *********************** set f $wd.nb.normals ttk::frame $f.dt -relief groove -borderwidth 3 pack $f.dt -fill x ttk::label $f.dt.lab -text "dirty triangle factor"; ttk::entry $f.dt.ent -width 5 \ -textvariable stldoctor.dirtytrigfact -validatecommand "Ng_SetSTLParameters;my_validate %W -1e9 1e9 %P 3" \ -invalidcommand "my_invalid %W;Ng_SetSTLParameters" -validate focus pack $f.dt.ent $f.dt.lab -side left -expand yes -pady 8 ttk::frame $f.srt -relief groove -borderwidth 3 pack $f.srt -fill x ttk::button $f.srt.bu -text "smooth reverted triangles geometric" -command {Ng_STLDoctor smoothrevertedtrigs; redraw } ttk::entry $f.srt.ent -width 5 \ -textvariable stldoctor.smoothangle -validatecommand "Ng_SetSTLParameters;my_validate %W -1e9 1e9 %P 2" \ -invalidcommand "my_invalid %W;Ng_SetSTLParameters" -validate focus pack $f.srt.ent $f.srt.bu -side left -expand yes -pady 8 ttk::frame $f.bdt -relief groove -borderwidth 3 pack $f.bdt -fill x ttk::button $f.bdt.bu -text "mark dirty triangles" -command {Ng_STLDoctor markdirtytrigs; redraw } ttk::button $f.bdt.bu2 -text "smooth dirty triangles normal" -command {Ng_STLDoctor smoothdirtytrigs; redraw } pack $f.bdt.bu $f.bdt.bu2 -side left -expand yes -pady 8 ttk::frame $f.sno -relief groove -borderwidth 3 pack $f.sno -fill x ttk::frame $f.sno.snoframe -borderwidth 0 #ttk::label $f.sno.labrough -text "rough" #scale $f.sno.scsmooth -orient horizontal -length 100 -from 0 -to 0.8 \ -resolution 0.01 -variable stldoctor.smoothnormalsweight \ -command { Ng_SetSTLParameters } #ttk::label $f.sno.labsmooth -text "smooth" ttk::button $f.sno.smoothnormals -text "smooth normals" -command { Ng_STLDoctor smoothnormals; redraw} ttk::scale $f.sno.snoframe.scale -orient horizontal -length 100 -from 0.0 -to 0.8 \ -variable stldoctor.smoothnormalsweight -takefocus 0 -command "roundscale $f.sno.snoframe.scale 2;Ng_SetSTLParameters" ttk::entry $f.sno.snoframe.entry -textvariable stldoctor.smoothnormalsweight -width 4 \ -validatecommand "Ng_SetSTLParameters;my_validate %W [$f.sno.snoframe.scale cget -from] [$f.sno.snoframe.scale cget -to] %P 2" \ -invalidcommand "my_invalid %W;Ng_SetSTLParameters" -validate focus ttk::label $f.sno.snoframe.labrough -text "rough" ttk::label $f.sno.snoframe.labsmooth -text "smooth" grid $f.sno.snoframe.labrough $f.sno.snoframe.scale $f.sno.snoframe.labsmooth $f.sno.snoframe.entry -sticky nw -padx 4 #pack $f.sno.labrough $f.sno.scsmooth $f.sno.labsmooth $f.sno.smoothnormals -side left -padx 5 pack $f.sno.snoframe $f.sno.smoothnormals -side left -padx 5 -pady 8 ttk::frame $f.no -relief groove -borderwidth 3 pack $f.no -fill x ttk::button $f.no.marknonsmoothnormals -text "mark non-smooth triangles" -command {Ng_STLDoctor marknonsmoothnormals; redraw} ttk::button $f.no.calcnormals -text "calculate normals from geometry" -command {Ng_STLDoctor calcnormals; redraw} pack $f.no.marknonsmoothnormals $f.no.calcnormals -expand yes -pady 8 # ADVANCED ************************** set f $wd.nb.advanced ttk::frame $f.sc pack $f.sc -fill x ttk::checkbutton $f.sc.bu -text "spiral check" \ -variable stldoctor.spiralcheck \ -command {Ng_STLDoctor;} ttk::checkbutton $f.sc.bu2 -text "cone check" \ -variable stldoctor.conecheck \ -command {Ng_STLDoctor;} pack $f.sc.bu $f.sc.bu2 #tixControl $f.gtol -label "load-geometry tolerance factor" -integer false \ -variable stldoctor.geom_tol_fact \ -options { # entry.width 8 # label.width 30 # label.anchor e #} ttk::spinbox $f.gtol -from 1 -to 20 -textvariable stldoctor.geom_tol_fact -width 8 pack $f.gtol ttk::button $f.adap -text "Apply" -command { .stldoctor_dlg.nb.advanced.gtol invoke Ng_STLDoctor; } pack $f.adap -expand yes # frame $f.gtol -relief groove -borderwidth 3 # pack $f.gtol -fill x # label $f.gtol.lab -text "Geometry-Load-Tolerance-Factor"; # entry $f.gtol.ent -width 5 -relief sunken \ # -textvariable stldoctor.geom_tol_fact # pack $f.gtol.lab $f.gtol.ent -side left -expand yes #******************************* wm withdraw $wd wm geom $wd +100+100 wm deiconify $wd wm title $wd "STL Doctor" focus $wd } } proc meshdoctordialog { } { set w .meshdoc_dlg global meshdoctor.active if {[winfo exists .meshdoc_dlg] == 1} { wm withdraw $w wm deiconify $w focus $w } { toplevel $w set meshdoctor.active 1 Ng_MeshDoctor; ttk::frame $w.vis -relief groove -borderwidth 3 pack $w.vis ttk::checkbutton $w.vis.showfilledtrigs -text "Show filled triangles" \ -variable viewoptions.drawfilledtrigs \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $w.vis.showedges -text "Show edges" \ -variable viewoptions.drawedges \ -command { Ng_SetVisParameters; redraw } ttk::checkbutton $w.vis.showoutline -text "Show Triangle Outline" \ -variable viewoptions.drawoutline \ -command { Ng_SetVisParameters; redraw } pack $w.vis.showfilledtrigs $w.vis.showoutline $w.vis.showedges ttk::frame $w.markedgedist ttk::label $w.markedgedist.l -text "Mark edge dist: " ttk::spinbox $w.markedgedist.s -from 0 -to 999 -width 5 -increment 1 -validate focus -validatecommand "my_validatespinbox %W %P 0" \ -invalidcommand "my_invalidspinbox %W" -command {Ng_MeshDoctor markedgedist ${meshdoc.markedgedist};redraw} -textvariable meshdoc.markedgedist #pack $f.grading -fill x pack $w.markedgedist.l $w.markedgedist.s -side left # tixControl $w.markedgedist -label "Mark edge dist: " -integer true \ # -min 0 -max 999 \ # -variable meshdoc.markedgedist \ # -options { # entry.width 3 # label.width 20 # label.anchor e # } \ # -command { # Ng_MeshDoctor markedgedist ${meshdoc.markedgedist} # redraw # } pack $w.markedgedist ttk::button $w.deledge -text "Delete marked segments" -command { Ng_MeshDoctor deletemarkedsegments redraw } pack $w.deledge ttk::button $w.close -text "Close" -command { set meshdoctor.active 0; Ng_MeshDoctor; destroy .meshdoc_dlg } pack $w.close -expand yes wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "Mesh Doctor" } } # # Quality viewer # proc qualityviewdialog { show } { set w .qualityview_dlg if {[winfo exists .qualityview_dlg] == 1} { if { $show == 1 } { wm withdraw .qualityview_dlg wm deiconify $w focus $w } { wm withdraw $w } } { toplevel $w set c $w.c canvas $c -relief raised -width 450 -height 300 pack $w.c -side top -fill x set plotFont {Helvetica 12} set smallFont {Helvetica 12} $c create line 100 250 400 250 -width 2 $c create line 100 250 100 50 -width 2 for {set i 0} {$i <= 10} {incr i} { set x [expr {100 + ($i*30)}] $c create line $x 250 $x 245 -width 2 if { [expr {$i % 2}] == 0 } { $c create text $x 254 -text [format %1.1f [expr 0.1*$i]] -anchor n -font $plotFont } } global qualbar global qualbarnull global qualbaraxis for {set i 0} {$i <= 5} {incr i} { set y [expr {250 - ($i*40)}] $c create line 100 $y 105 $y -width 2 # global qualbaraxis($i) set qualbaraxis($i) \ [$c create text 96 $y -text [expr $i*50].0 -anchor e -font $plotFont] } for {set i 0} {$i < 20} {incr i} { set x1 [expr {100 + ($i*15) + 2}] set x2 [expr {$x1+10}] set y [expr {250 - 10 * $i}] # global qualbar($i) set qualbar($i) [$c create rectangle $x1 250 $x2 245 -fill blue] set qualbarnull($i) [$c create text [expr {($x1+$x2)/2}] 245 -text 0 -anchor s -font $smallFont -fill blue] } frame $w.bu pack $w.bu # -fill x ttk::button $w.close -text "Close" \ -command { wm withdraw .qualityview_dlg set viewqualityplot 0 } pack $w.close if { $show == 1 } { wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "Mesh Quality" focus $w } } } # # Quality viewer # proc memusedialog { show } { set w .memuse_dlg if {[winfo exists .memuse_dlg] == 1} { if { $show == 1 } { wm withdraw .memuse_dlg wm deiconify $w focus $w } { wm withdraw $w } } { toplevel $w set c $w.c canvas $c -relief raised -width 600 -height 300 pack $w.c -side top -fill x set plotFont {Helvetica 18} set smallFont {Helvetica 12} global memmark for {set i 0} {$i < 512} { incr i } { set memmark($i) [$c create line [expr 50+$i] 50 [expr 50+$i] 70 -fill blue] } set plotFont {Helvetica 18} set smallFont {Helvetica 12} $c create text 50 90 -text "0 GB" -anchor n -font $plotFont $c create text 178 90 -text "1 GB" -anchor n -font $plotFont $c create text 306 90 -text "2 GB" -anchor n -font $plotFont $c create text 434 90 -text "3 GB" -anchor n -font $plotFont $c create text 562 90 -text "4 GB" -anchor n -font $plotFont ttk::frame $w.bu pack $w.bu # -fill x ttk::button $w.close -text "Close" \ -command { wm withdraw .memuse_dlg set memuseplot 0 } pack $w.close if { $show == 1 } { wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "Memory Usage" focus $w } } } # # STL INFO dialog # proc STLinfodialog { show } { set w .STLinfo_dlg if {[winfo exists .STLinfo_dlg] == 1} { if { $show == 1 } { wm withdraw .STLinfo_dlg wm deiconify $w focus $w } { wm withdraw $w } } { toplevel $w set c $w.c canvas $c -relief raised -width 450 -height 300 pack $w.c -side top -fill x set plotFont {Helvetica 18} set smallFont {Helvetica 12} $c create line 100 250 400 250 -width 2 $c create line 100 250 100 50 -width 2 ttk::frame $w.bu pack $w.bu # -fill x ttk::button $w.close -text "Close" \ -command { wm withdraw .STLinfo_dlg #set STLinfoopen 0 } pack $w.close if { $show == 1 } { wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "STL Geometry Info" focus $w } } } proc logwindow { } { set w .logwindow if {[winfo exists .logwindow] == 1} { wm withdraw $w wm deiconify $w focus $w } { toplevel $w text $w.edit -yscroll "$w.scrolly set" -setgrid 1 -height 12 scrollbar $w.scrolly -command "$w.edit yview" pack $w.edit -side left -fill both -expand 1 pack $w.scrolly -side left -fill both -expand 0 .logwindow.edit insert end "Netgen Log Window\n" wm withdraw $w wm geom $w +100+100 wm deiconify $w wm title $w "Netgen Log" focus $w } } # logwindow # Opens a window with a table. tablevar is a list, the first entry is the title, the second the number of rows, the third the number of columns, # then the entries follow. proc printtable { tablevar } { set w newtcltable while {[winfo exists .$w] == 1} {set w 1$w} set w .$w toplevel $w for {set i 0} {$i < [lindex $tablevar 2]} { incr i } { frame $w.col$i for {set j 0} {$j < [lindex $tablevar 1]} { incr j } { frame $w.col$i.row$j message $w.col$i.row$j.txt -aspect 10000000 -text [lindex $tablevar [expr 3+[lindex $tablevar 2]*$j+$i]] pack $w.col$i.row$j.txt pack $w.col$i.row$j -side top } pack $w.col$i -side left } wm withdraw $w wm geom $w +200+100; wm deiconify $w wm title $w [lindex $tablevar 0] focus $w } set latestwarning 0 proc printwarning { textvar } { global latestwarning set latestwarning $textvar set w warning while {[winfo exists .$w] == 1} {set w 1$w} set w .$w toplevel $w message $w.mes -aspect 2000 -text "WARNING:\n$textvar" ttk::button $w.done -text "Done" -command "destroy $w" pack $w.mes pack $w.done wm withdraw $w wm deiconify $w wm title $w "Warning" focus $w } proc printlatestwarning { } { global latestwarning if {$latestwarning != 0} {printwarning $latestwarning} } # proc runtestdialog { } { # source $::ngdir/ngshell.tcl # set w .runtest_dlg # if {[winfo exists .runtest_dlg] == 1} { # wm withdraw $w # wm deiconify $w # focus $w # } { # toplevel $w # # in2d testing # # frame $w.in2dframe # pack $w.in2dframe # set in2dlogfile "" # tixLabelEntry $w.in2dframe.ent -label "in2d log-file: console if empty" \ # -labelside top \ # -options { # entry.textVariable in2dlogfile # entry.width 35 # label.width 25 # label.anchor w # } # button $w.in2dframe.btn -text "Browse" -command { # set types { { "Log file" {.log} } } # set in2dlogfile [tk_getOpenFile -filetypes $types -initialfile $in2dlogfile] # } # button $w.in2dframe.test -text "Test in2d meshing" -command { ngtest in2d $in2dlogfile } # pack $w.in2dframe.test -side left -anchor s -padx 4 -pady 4 # pack $w.in2dframe.ent -side left -expand yes -fill x -anchor s -padx 4 -pady 4 # pack $w.in2dframe.btn -side left -anchor s -padx 4 -pady 4 # # geo testing # # frame $w.geoframe # pack $w.geoframe # set geologfile "" # tixLabelEntry $w.geoframe.ent -label "geo log-file: console if empty" \ # -labelside top \ # -options { # entry.textVariable geologfile # entry.width 35 # label.width 25 # label.anchor w # } # button $w.geoframe.btn -text "Browse" -command { # set types { { "Log file" {.log} } } # set geologfile [tk_getOpenFile -filetypes $types -initialfile $geologfile] # } # button $w.geoframe.test -text "Test geo meshing" -command { ngtest geo $geologfile } # pack $w.geoframe.test -side left -anchor s -padx 4 -pady 4 # pack $w.geoframe.ent -side left -expand yes -fill x -anchor s -padx 4 -pady 4 # pack $w.geoframe.btn -side left -anchor s -padx 4 -pady 4 # # stl testing # # frame $w.stlframe # pack $w.stlframe # set stllogfile "" # tixLabelEntry $w.stlframe.ent -label "stl log-file: console if empty" \ # -labelside top \ # -options { # entry.textVariable stllogfile # entry.width 35 # label.width 25 # label.anchor w # } # button $w.stlframe.btn -text "Browse" -command { # set types { { "Log file" {.log} } } # set stllogfile [tk_getOpenFile -filetypes $types -initialfile $stllogfile] # } # button $w.stlframe.test -text "Test stl meshing" -command { ngtest stl $stllogfile } # pack $w.stlframe.test -side left -anchor s -padx 4 -pady 4 # pack $w.stlframe.ent -side left -expand yes -fill x -anchor s -padx 4 -pady 4 # pack $w.stlframe.btn -side left -anchor s -padx 4 -pady 4 # # pde testing # # frame $w.pdeframe # pack $w.pdeframe # set pdelogfile "" # tixLabelEntry $w.pdeframe.ent -label "pde log-file: console if empty" \ # -labelside top \ # -options { # entry.textVariable pdelogfile # entry.width 35 # label.width 25 # label.anchor w # } # button $w.pdeframe.btn -text "Browse" -command { # set types { { "Log file" {.log} } } # set pdelogfile [tk_getOpenFile -filetypes $types -initialfile $pdelogfile] # } # button $w.pdeframe.test -text "Test ngsolve pde's" -command { ngtest pde $pdelogfile } # pack $w.pdeframe.test -side left -anchor s -padx 4 -pady 4 # pack $w.pdeframe.ent -side left -expand yes -fill x -anchor s -padx 4 -pady 4 # pack $w.pdeframe.btn -side left -anchor s -padx 4 -pady 4 # wm title $w "Testing" # focus .runtest_dlg # } # }