1 puts "TODO DEBUG_OCC24121 Debian60-64 Windows: Error: ShapeFix_Wireframe"
3 puts "================"
6 puts "================"
8 ###################################################################
9 ## After operation "Merge edges" tolerance shape increased from 5 to 198.
10 ###################################################################
14 restore [locate_data_file OCC394.brep] a
16 OCC394 r a 10000 2 1.57
18 regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance a] full face_a_tolerance
19 regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance a] full edge_a_tolerance
20 regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance a] full vertex_a_tolerance
22 set max_a_tolerance ${face_a_tolerance}
23 if {${edge_a_tolerance} > ${max_a_tolerance}} {
24 set max_a_tolerance ${edge_a_tolerance}
26 if {${vertex_a_tolerance} > ${max_a_tolerance}} {
27 set max_a_tolerance ${vertex_a_tolerance}
30 regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance r] full face_r_tolerance
31 regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance r] full edge_r_tolerance
32 regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance r] full vertex_r_tolerance
34 set max_r_tolerance ${face_r_tolerance}
35 if {${edge_r_tolerance} > ${max_r_tolerance}} {
36 set max_r_tolerance ${edge_r_tolerance}
38 if {${vertex_r_tolerance} > ${max_r_tolerance}} {
39 set max_r_tolerance ${vertex_r_tolerance}
42 puts "\nface_a_tolerance = ${face_a_tolerance}"
43 puts "edge_a_tolerance = ${edge_a_tolerance}"
44 puts "vertex_a_tolerance = ${vertex_a_tolerance}"
45 puts "\nmax_a_tolerance = ${max_a_tolerance}"
47 puts "\nface_r_tolerance = ${face_r_tolerance}"
48 puts "edge_a_tolerance = ${edge_a_tolerance}"
49 puts "vertex_a_tolerance = ${vertex_a_tolerance}"
50 puts "\nmax_r_tolerance = ${max_r_tolerance}\n"
52 if { ${max_a_tolerance} < ${max_r_tolerance} } {