5 ######################################################
6 # Intersection shell-plane gives a disconnected set of edges
7 ######################################################
11 restore [locate_data_file OCC6554-shell.brep] sh
12 restore [locate_data_file OCC6554-face.brep] f
15 set che_sh [checkshape sh]
16 set che_f [checkshape f]
18 if { [regexp {Faulty} $che_sh] } {
19 puts "Faulty ${BugNumber} : checkshape is wrong for sh"
22 if { [regexp {Faulty} $che_f] } {
23 puts "Faulty ${BugNumber} : checkshape is wrong for f"
26 bsection result sh f -a
28 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full Vertices
32 if { ${Vertices} != ${good_Vertices} } {
33 puts "Faulty ${BugNumber}"
35 puts "OK ${BugNumber}"