0023830: BRepExtrema_DistShapeShape does not find intersection of face with edge
[occt.git] / tests / bugs / moddata_3 / bug23830
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
21     if {$l > 1e-12} {
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
41 set only_screen_axo 1