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


puts "========================"
puts "OCC528"
puts "========================"
puts ""
##############################################
## Result of bcut command is faulty although arguments are valid
##############################################

restore [locate_data_file OCC528_1.brep] c1 
checkshape c1

restore [locate_data_file OCC528_2.brep] c2 
checkshape c2

if { [catch { bcut result c1 c2 } catch_result] } {
    puts "OCC528 Faulty: function BCUT works wrongly"
} else {
    puts "OCC528 OK:function BCUT works properly"
}

set square 124.092
set 2dviewer 0
Commit	Line	Data
352ffd73	1
	2	puts "========================"
	3	puts "OCC528"
	4	puts "========================"
	5	puts ""
	6	##############################################
	7	## Result of bcut command is faulty although arguments are valid
	8	##############################################
	9
	10	restore [locate_data_file OCC528_1.brep] c1
	11	checkshape c1
	12
	13	restore [locate_data_file OCC528_2.brep] c2
	14	checkshape c2
	15
	16	if { [catch { bcut result c1 c2 } catch_result] } {
	17	puts "OCC528 Faulty: function BCUT works wrongly"
	18	} else {
	19	puts "OCC528 OK:function BCUT works properly"
	20	}
	21
	22	set square 124.092
	23	set 2dviewer 0