[occt.git] / tests / bugs / modalg_2 / bug472_3

if { [regexp {Debug mode} [dversion]] } {
  puts "TODO OCC25917 ALL: TEST INCOMPLETE"
  puts "TODO OCC25917 ALL: Tcl Exception"
}

puts "========================"
puts " OCC472 "
puts "(case 3)"
puts "========================"
puts ""
#####################################################
## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634) 
#####################################################

restore [locate_data_file OCC472a.brep] b1 
checkshape b1

restore [locate_data_file OCC472b.brep] b2
checkshape b2

bfuse result b1 b2

set nb_v_good 66
set nb_e_edge 107
set square 31657.5
set 2dviewer 0
Commit	Line	Data
9aa684ed	1	if { [regexp {Debug mode} [dversion]] } {
	2	puts "TODO OCC25917 ALL: TEST INCOMPLETE"
	3	puts "TODO OCC25917 ALL: Tcl Exception"
	4	}
a87752f3	5
	6	puts "========================"
	7	puts " OCC472 "
	8	puts "(case 3)"
	9	puts "========================"
	10	puts ""
	11	#####################################################
	12	## Bad result of Fuse Operation (Cut&Common - bad too). SAM1470 (#2634)
	13	#####################################################
	14
	15	restore [locate_data_file OCC472a.brep] b1
352ffd73	16	checkshape b1
a87752f3	17
a87752f3	18	restore [locate_data_file OCC472b.brep] b2
352ffd73	19	checkshape b2
a87752f3	20
	21	bfuse result b1 b2
	22
393598eb	23	set nb_v_good 66
	24	set nb_e_edge 107
	25	set square 31657.5
a87752f3	26	set 2dviewer 0
a87752f3	27