5 ################################################
6 # Excess vertex in the result of CUT operation
7 ################################################
9 restore [locate_data_file OCC25465_Gorivo.brep] b1
10 restore [locate_data_file OCC25465_Translation_1.brep] b2
14 set bug_info [bopcurves b1_3 b2_4]
18 # It is strictly forbidden to change reference values of vertexes and edges (see OCC25465)
19 checknbshapes result -vertex 11 -edge 17 -wire 8 -face 8 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 47
20 if {[lindex $bug_info 2] != 3} {
21 puts "ERROR: OCC25465 is reproduced."