| 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 |
| 12 | puts [checkshape sh1] |
| 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 | |