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


puts "======="
puts "OCC890"
puts "SAM1681"
puts "======="
puts ""
##############################
## No possibility to fuse the attached prisms.
##############################

restore [locate_data_file OCC890.brep] a 
explode a

checkshape a_1
checkshape a_2

if { [ catch { bfuse result a_1 a_2 } catch_result ] } {
   puts "Faulty OCC890 (case 3)"
}

set square 1.8276e+06
set 2dviewer 0
Commit	Line	Data
f1aa2b62	1
	2	puts "======="
	3	puts "OCC890"
	4	puts "SAM1681"
	5	puts "======="
	6	puts ""
	7	##############################
	8	## No possibility to fuse the attached prisms.
	9	##############################
	10
	11	restore [locate_data_file OCC890.brep] a
	12	explode a
	13
352ffd73	14	checkshape a_1
352ffd73	15	checkshape a_2
f1aa2b62	16
	17	if { [ catch { bfuse result a_1 a_2 } catch_result ] } {
	18	puts "Faulty OCC890 (case 3)"
	19	}
	20
	21	set square 1.8276e+06
	22	set 2dviewer 0