proc showInvalidTriangle {} {
global colour
global problem_label
global deleteType
set problemTypes ""
for {set i 0} {$i < 3} {incr i} {
set check [$deleteType getCurrentValue $i]
set problemTypes [concat $problemTypes $check "|"]
}
set colour1 [$colour getCurrentValue]
prepareInvalidTriangleSet
GuidoExecServer "ShowInvalidTriangles" [subst {Colour = "$colour1" ProblemChecks = "$problemTypes"}]
}
proc prepareInvalidTriangleSet {} {
global objNumber
global trisolNumber
set obj_number [$objNumber getCurrentValue]
set trisol_number [$trisolNumber getCurrentValue]
GuidoExecServer "PrepareInvalidTriangleSet" [subst {ObjNumber = "$obj_number" TrisolNumber = "$trisol_number"}]
}
GuidoForm frm22222 {
-default_buttons
-label "Delete invalid triangles"
-layout BoxLayout Y_AXIS
-tip "DELETE_INVALID_TRIANGLES_TIP_001"
GuidoPanel frm22222_088 {
-layout BoxLayout Y_AXIS
-border etched true
-label "Define the trisolations to be processed"
GuidoPanel frm22222_089 {
-layout CentreLineLayout
GuidoLabel l1 {
-label "Layer name"
}
GuidoLabel layer {
-font_style bold
-label "Layer name"
}
GuidoField objNumber {
-display_length 15
-format range
-action valueChanged {[prepareInvalidTriangleSet]}
-label "Object range"
-max_length MAX_RNG_LENGTH
-tip "DELETE_INVALID_TRIANGLES_TIP_002"
}
GuidoField trisolNumber {
-display_length 15
-action valueChanged {[prepareInvalidTriangleSet]}
-format range
-label "Trisolation range"
-max_length MAX_RNG_LENGTH
-tip "DELETE_INVALID_TRIANGLES_TIP_003"
}
}
}
GuidoFiller f1 {
-height 0.5
}
GuidoPanel frm22222_004 {
-layout BoxLayout Y_AXIS
-border etched true
-label "Delete invalid triangles"
GuidoPanel frm22222_111 {
-layout BoxLayout X_AXIS
GuidoScrollPane delete_scroll {
-height 10
GuidoTable delete_types {
-instances 3 3 3
-interactive false
GuidoLabel problem_label {
-label "Problem"
-display_length 10
}
GuidoCheckBox deleteType {
-label "Delete?"
-default true
-selected_value Y
-unselected_value N
}
}
}
}
GuidoFiller f23 {
-height 0.5
}
GuidoPanel frm22222_112 {
-layout BoxLayout X_AXIS
GuidoLabel label111 {
-label Colour
}
GuidoFiller f22 {
-width 1
}
GuidoColourBrowserField colour {
-default orange
-display_length 19
-max_length 29
-null false
-tip "DELETE_INVALID_TRIANGLES_TIP_007"
-translate lower
}
}
GuidoFiller f2223 {
-height 0.5
}
GuidoPanel frm22222_113 {
-layout BoxLayout X_AXIS
GuidoFiller f24 {
-width 5
}
GuidoButton showTriangleEdges {
-action valueChanged {[showInvalidTriangle]}
-caption "Display invalid triangles"
-tip "DELETE_INVALID_TRIANGLES_TIP_006"
}
}
GuidoFiller f2224 {
-height 0.5
}
GuidoPanel frm22222_114 {
-layout BoxLayout X_AXIS
GuidoLabel label1 {
-label "Number of triangles"
}
GuidoFiller f23 {
-width 1
}
GuidoLabel label2 {
-font_style bold
-status_item numberOfInvalidTriangles
}
}
}
}
