0e94a94e |
1 | |
2 | puts "================" |
3 | puts "BUC61037" |
4 | puts "OCC108" |
5 | puts "================" |
6 | puts "" |
7 | ##################################################################### |
8 | ## BRepTools::AddUVBounds for the planar face bounded by a circle returns too small bounding box. |
9 | ##################################################################### |
10 | |
11 | restore [locate_data_file bug61037.brep] sh1 |
352ffd73 |
12 | checkshape sh1 |
0e94a94e |
13 | |
14 | set rr [bounding sh1] |
15 | regexp { *([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+) +([-0-9.+eE]+)} $rr full v1_x v1_y v1_z v2_x v2_y v2_z |
16 | vertex v1 $v1_x $v1_y $v1_z |
17 | vertex v2 $v2_x $v2_y $v2_z |
18 | edge result v1 v2 |
19 | regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full dis |
20 | if { [expr $dis < 0.201357] } { |
21 | puts "Faulty BUC61037: Planar circle and bounded face a returns too small bounding box" |
22 | } else { |
23 | puts "OCC134 OK: bounding box is correct" |
24 | } |
25 | |
26 | set length 0.201357 |
27 | set 2dviewer 0 |
28 | |