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


puts "========================"
puts "  BUC60706 "
puts " OCC110 "
puts "(case 4)"
puts "========================"

restore [locate_data_file buc60706j.brep] f 
puts [checkshape f]

restore [locate_data_file buc60706b.brep] w
puts [checkshape w]
pipe t w f

restore [locate_data_file buc60706l.brep] s
puts [checkshape s]

bcut result s t
catch {exec rm ${imagedir}/buc60706o.brep}
save result ${imagedir}/buc60706o.brep

set square 861712
set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "========================"
	3	puts " BUC60706 "
	4	puts " OCC110 "
	5	puts "(case 4)"
	6	puts "========================"
	7
	8	restore [locate_data_file buc60706j.brep] f
	9	puts [checkshape f]
	10
	11	restore [locate_data_file buc60706b.brep] w
	12	puts [checkshape w]
	13	pipe t w f
	14
	15	restore [locate_data_file buc60706l.brep] s
	16	puts [checkshape s]
	17
	18	bcut result s t
	19	catch {exec rm ${imagedir}/buc60706o.brep}
	20	save result ${imagedir}/buc60706o.brep
	21
	22	set square 861712
	23	set 2dviewer 0