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


puts "========================"
puts " OCC410 "
puts "(case 4)"
puts "========================"
puts ""

restore [locate_data_file f7] b1 
checkshape b1

restore [locate_data_file f3] b2
checkshape b2


if [catch {bcut result b2 b1 } res] {
    puts "Faulty OCC410: function CUT works wrongly"
} else {
    puts " OCC410 OK: function CUT works properly"
}

set square 93.6289
set 2dviewer 0
Commit	Line	Data
a87752f3	1
	2	puts "========================"
	3	puts " OCC410 "
	4	puts "(case 4)"
	5	puts "========================"
	6	puts ""
	7
	8	restore [locate_data_file f7] b1
352ffd73	9	checkshape b1
a87752f3	10
a87752f3	11	restore [locate_data_file f3] b2
352ffd73	12	checkshape b2
a87752f3	13
a87752f3	14
1951a27c	15	if [catch {bcut result b2 b1 } res] {
a87752f3	16	puts "Faulty OCC410: function CUT works wrongly"
	17	} else {
	18	puts " OCC410 OK: function CUT works properly"
	19	}
	20
	21	set square 93.6289
	22	set 2dviewer 0