1 puts "================"
4 puts "================"
6 ###################################################################
7 ## After operation "Merge edges" tolerance shape increased from 5 to 198.
8 ###################################################################
12 restore [locate_data_file OCC394.brep] a
14 OCC394 r a 10000 2 1.57
16 regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance a] full face_a_tolerance
17 regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance a] full edge_a_tolerance
18 regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance a] full vertex_a_tolerance
20 set max_a_tolerance ${face_a_tolerance}
21 if {${edge_a_tolerance} > ${max_a_tolerance}} {
22 set max_a_tolerance ${edge_a_tolerance}
24 if {${vertex_a_tolerance} > ${max_a_tolerance}} {
25 set max_a_tolerance ${vertex_a_tolerance}
28 regexp { +Face +: +Min +([-0-9.+eE]+)} [maxtolerance r] full face_r_tolerance
29 regexp { +Edge +: +Min +([-0-9.+eE]+)} [maxtolerance r] full edge_r_tolerance
30 regexp { +Vertex +: +Min +([-0-9.+eE]+)} [maxtolerance r] full vertex_r_tolerance
32 set max_r_tolerance ${face_r_tolerance}
33 if {${edge_r_tolerance} > ${max_r_tolerance}} {
34 set max_r_tolerance ${edge_r_tolerance}
36 if {${vertex_r_tolerance} > ${max_r_tolerance}} {
37 set max_r_tolerance ${vertex_r_tolerance}
40 puts "\nface_a_tolerance = ${face_a_tolerance}"
41 puts "edge_a_tolerance = ${edge_a_tolerance}"
42 puts "vertex_a_tolerance = ${vertex_a_tolerance}"
43 puts "\nmax_a_tolerance = ${max_a_tolerance}"
45 puts "\nface_r_tolerance = ${face_r_tolerance}"
46 puts "edge_a_tolerance = ${edge_a_tolerance}"
47 puts "vertex_a_tolerance = ${vertex_a_tolerance}"
48 puts "\nmax_r_tolerance = ${max_r_tolerance}\n"
50 if { ${max_a_tolerance} < ${max_r_tolerance} } {
57 checkview -display result -2d -path ${imagedir}/${test_image}.png