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


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

restore [locate_data_file f7] b1 
puts [checkshape b1]

restore [locate_data_file f3] b2
puts [checkshape b2]


if [catch {bcut result b2 b1 } result] {
    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
	1
	2	puts "========================"
	3	puts " OCC410 "
	4	puts "(case 4)"
	5	puts "========================"
	6	puts ""
	7
	8	restore [locate_data_file f7] b1
	9	puts [checkshape b1]
	10
	11	restore [locate_data_file f3] b2
	12	puts [checkshape b2]
	13
	14
	15	if [catch {bcut result b2 b1 } result] {
	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