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


puts "========================"
puts "OCC620"
puts "========================"
puts ""
############################
## No possibility to cut the shapes. 
############################

restore [locate_data_file OCC620a.brep] a 
checkshape a
restore [locate_data_file OCC620b.brep] b 
checkshape b

bop a b

if [catch { bopcut result } catch_result] {
    puts "Faulty OCC620 : BOPCUT operation was made wrongly"
} else {
  puts "OCC620 OK: BOPCUT operation works OK"
}

set square 314742.
set 2dviewer 0
Commit	Line	Data
f1aa2b62	1
	2	puts "========================"
	3	puts "OCC620"
	4	puts "========================"
	5	puts ""
	6	############################
	7	## No possibility to cut the shapes.
	8	############################
	9
	10	restore [locate_data_file OCC620a.brep] a
352ffd73	11	checkshape a
f1aa2b62	12	restore [locate_data_file OCC620b.brep] b
352ffd73	13	checkshape b
f1aa2b62	14
	15	bop a b
	16
	17	if [catch { bopcut result } catch_result] {
	18	puts "Faulty OCC620 : BOPCUT operation was made wrongly"
	19	} else {
	20	puts "OCC620 OK: BOPCUT operation works OK"
	21	}
	22
	23	set square 314742.
	24	set 2dviewer 0