[occt.git] / tests / bugs / modalg_1 / buc60801


puts "========================"
puts "BUC60801"
puts "========================"

box b -10 -10 -10 30 40 40 
box a1 -20 0 -20 20 20 100
box a2 0 20 -20 50 20 100
box c -20 -20 20 100 100 100
bcut r1 b a1
bcut r2 r1 a2
bcut r3 r2 c
checkshape r3

renamevar r3 result

checkprops result -s 6400 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
0e94a94e	1
	2	puts "========================"
	3	puts "BUC60801"
	4	puts "========================"
	5
	6	box b -10 -10 -10 30 40 40
	7	box a1 -20 0 -20 20 20 100
	8	box a2 0 20 -20 50 20 100
	9	box c -20 -20 20 100 100 100
	10	bcut r1 b a1
	11	bcut r2 r1 a2
	12	bcut r3 r2 c
	13	checkshape r3
	14
	15	renamevar r3 result
	16
58cf74e0	17	checkprops result -s 6400
58cf74e0	18	checkshape result
5747059b	19	checkview -display result -2d -path ${imagedir}/${test_image}.png
0e94a94e	20