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

puts "========="
puts " OCC497 "
puts "(case 1)"
puts "========="
puts ""
########################################################
## Result of cut and fuse operation are faulty shapes although arguments are valid.
########################################################

restore [locate_data_file OCC497a.brep] a_1 
checkshape a_1

restore [locate_data_file OCC497b.brep] a_2
checkshape a_2

explode a_2 so
bop a_2_1 a_2_2
bopfuse r1

if [catch {bcut result a_1 r1 } catch_result] {
    puts "Faulty OCC497:function CUT works wrongly "
} else {
    puts "OCC497 : function CUT works without hangs up "
}
checkprops result -s 646.969 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
a87752f3	1	puts "========="
	2	puts " OCC497 "
	3	puts "(case 1)"
	4	puts "========="
	5	puts ""
	6	########################################################
	7	## Result of cut and fuse operation are faulty shapes although arguments are valid.
	8	########################################################
	9
	10	restore [locate_data_file OCC497a.brep] a_1
352ffd73	11	checkshape a_1
a87752f3	12
a87752f3	13	restore [locate_data_file OCC497b.brep] a_2
352ffd73	14	checkshape a_2
a87752f3	15
69b558c4	16	explode a_2 so
	17	bop a_2_1 a_2_2
	18	bopfuse r1
	19
	20	if [catch {bcut result a_1 r1 } catch_result] {
a87752f3	21	puts "Faulty OCC497:function CUT works wrongly "
	22	} else {
	23	puts "OCC497 : function CUT works without hangs up "
	24	}
58cf74e0	25	checkprops result -s 646.969
58cf74e0	26	checkshape result
5747059b	27	checkview -display result -2d -path ${imagedir}/${test_image}.png