b659a6dc |
1 | puts "================" |
2 | puts "OCC23830" |
3 | puts "================" |
4 | puts "" |
5 | ####################################################################### |
6 | # BRepExtrema_DistShapeShape does not find intersection of face with edge |
7 | ####################################################################### |
8 | |
9 | restore [locate_data_file bug23830_face.brep] s |
10 | mksurface s s |
11 | |
12 | set Indices {1 2 6 7 11 16 21 36 41 42} |
13 | |
14 | foreach i ${Indices} { |
15 | restore [locate_data_file bug23830_circle$i.brep] c_$i |
16 | mkcurve c_$i c_$i |
17 | extrema c_$i s |
18 | if { [isdraw ext_1] } { |
19 | mkedge e ext_1 |
20 | regexp {Mass +: +([-0-9.+eE]+)} [lprops e] full l |
fa6d1712 |
21 | if {$l > 2.5e-12} { |
b659a6dc |
22 | puts "Error: invalid result" |
23 | } |
24 | renamevar ext_1 r_$i |
25 | } |
26 | } |
27 | |
28 | smallview |
29 | l |
30 | l |
31 | l |
32 | l |
33 | l |
34 | l |
35 | l |
36 | l |
37 | erase |
38 | display s |
39 | foreach i ${Indices} { if {[isdraw r_$i]} {display r_$i} } |
40 | fit |
5747059b |
41 | checkview -screenshot -2d -path ${imagedir}/${test_image}.png |