[occt.git] / tests / bugs / modalg_7 / bug23610

puts "TODO OCC23610 ALL: should be less then or equal to the minimal tolerance value of its sub-shapes"

puts "========"
puts "OCC23610"
puts "========"
puts ""
########################################################################################################
## checkshape command does not detect mismatch of the tolerance values among the sub-shapes of the shape
########################################################################################################

restore [locate_data_file buc60462b.brep] b

foreach Face [explode b f] {
  if {[checkshape $Face] == "This shape seems to be valid"} {
     set ToleranceList [tolerance $Face]
     regexp {FACE +: +MAX=([-0-9.+eE]+) +AVG=([-0-9.+eE]+) +MIN=([-0-9.+eE]+)} $ToleranceList full MaxTol_face AvgTol_face MinTol_face
     regexp {EDGE +: +MAX=([-0-9.+eE]+) +AVG=([-0-9.+eE]+) +MIN=([-0-9.+eE]+)} $ToleranceList full MaxTol_edge AvgTol_edge MinTol_edge
     regexp {VERTEX +: +MAX=([-0-9.+eE]+) +AVG=([-0-9.+eE]+) +MIN=([-0-9.+eE]+)} $ToleranceList full MaxTol_vertex AvgTol_vertex MinTol_vertex
     if {${MaxTol_face} > ${MinTol_edge} || ${MaxTol_face} > ${MinTol_vertex}} {
        puts "Error: the tolerance value of the FACE $Face should be less then or equal to the minimal tolerance value of its sub-shapes(EDGES and VERTICES)"
     }
  }
}

foreach Edge [explode b e] {
  if {[checkshape $Edge] == "This shape seems to be valid"} {
     set ToleranceList [tolerance $Edge]
     regexp {EDGE +: +MAX=([-0-9.+eE]+) +AVG=([-0-9.+eE]+) +MIN=([-0-9.+eE]+)} $ToleranceList full MaxTol_edge AvgTol_edge MinTol_edge
     regexp {VERTEX +: +MAX=([-0-9.+eE]+) +AVG=([-0-9.+eE]+) +MIN=([-0-9.+eE]+)} $ToleranceList full MaxTol_vertex AvgTol_vertex MinTol_vertex
     if {${MaxTol_edge} > ${MinTol_vertex}} {
        puts "Error: the tolerance value of the EDGE $Edge should be less then or equal to the minimal tolerance value of its sub-shapes(VERTICES)"
     }
  }
}
Commit	Line	Data
	1	puts "TODO OCC23610 ALL: should be less then or equal to the minimal tolerance value of its sub-shapes"
	2
	3	puts "========"
	4	puts "OCC23610"
	5	puts "========"
	6	puts ""
	7	########################################################################################################
	8	## checkshape command does not detect mismatch of the tolerance values among the sub-shapes of the shape
	9	########################################################################################################
	10
	11	restore [locate_data_file buc60462b.brep] b
	12
	13	foreach Face [explode b f] {
	14	if {[checkshape $Face] == "This shape seems to be valid"} {
	15	set ToleranceList [tolerance $Face]
	16	regexp {FACE +: +MAX=([-0-9.+eE]+) +AVG=([-0-9.+eE]+) +MIN=([-0-9.+eE]+)} $ToleranceList full MaxTol_face AvgTol_face MinTol_face
	17	regexp {EDGE +: +MAX=([-0-9.+eE]+) +AVG=([-0-9.+eE]+) +MIN=([-0-9.+eE]+)} $ToleranceList full MaxTol_edge AvgTol_edge MinTol_edge
	18	regexp {VERTEX +: +MAX=([-0-9.+eE]+) +AVG=([-0-9.+eE]+) +MIN=([-0-9.+eE]+)} $ToleranceList full MaxTol_vertex AvgTol_vertex MinTol_vertex
	19	if {${MaxTol_face} > ${MinTol_edge} \|\| ${MaxTol_face} > ${MinTol_vertex}} {
	20	puts "Error: the tolerance value of the FACE $Face should be less then or equal to the minimal tolerance value of its sub-shapes(EDGES and VERTICES)"
	21	}
	22	}
	23	}
	24
	25	foreach Edge [explode b e] {
	26	if {[checkshape $Edge] == "This shape seems to be valid"} {
	27	set ToleranceList [tolerance $Edge]
	28	regexp {EDGE +: +MAX=([-0-9.+eE]+) +AVG=([-0-9.+eE]+) +MIN=([-0-9.+eE]+)} $ToleranceList full MaxTol_edge AvgTol_edge MinTol_edge
	29	regexp {VERTEX +: +MAX=([-0-9.+eE]+) +AVG=([-0-9.+eE]+) +MIN=([-0-9.+eE]+)} $ToleranceList full MaxTol_vertex AvgTol_vertex MinTol_vertex
	30	if {${MaxTol_edge} > ${MinTol_vertex}} {
	31	puts "Error: the tolerance value of the EDGE $Edge should be less then or equal to the minimal tolerance value of its sub-shapes(VERTICES)"
	32	}
	33	}
	34	}