[occt.git] / tests / bugs / modalg_4 / bug919


puts "======="
puts "OCC919"
puts "SAM1623"
puts "======="
puts ""
#############################
## Impossible to fuse the shapes. 
##############################

restore [locate_data_file OCC919.brep] a 

explode a

# See comment in CR23244:
restore [locate_data_file OCC919-PROC.brep] a_1 
#
fixshape a_1 a_1
checkshape a_1
checkshape a_2

if { [ catch { bfuse result a_1 a_2} catch_result ] } {
    puts "Faulty OCC919 (case 1)"
} else {
    if { [ catch { checkshape result } catch_result ] } {
	puts "Faulty OCC919 (case 2)"
    } else {
	puts "OCC919 OK"
    }
}

checkprops result -s 272591. 
checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
f1aa2b62	1
	2	puts "======="
	3	puts "OCC919"
	4	puts "SAM1623"
	5	puts "======="
	6	puts ""
	7	#############################
	8	## Impossible to fuse the shapes.
	9	##############################
	10
	11	restore [locate_data_file OCC919.brep] a
	12
	13	explode a
	14
	15	# See comment in CR23244:
	16	restore [locate_data_file OCC919-PROC.brep] a_1
	17	#
4e882c71	18	fixshape a_1 a_1
352ffd73	19	checkshape a_1
352ffd73	20	checkshape a_2
f1aa2b62	21
	22	if { [ catch { bfuse result a_1 a_2} catch_result ] } {
	23	puts "Faulty OCC919 (case 1)"
	24	} else {
	25	if { [ catch { checkshape result } catch_result ] } {
	26	puts "Faulty OCC919 (case 2)"
	27	} else {
	28	puts "OCC919 OK"
	29	}
	30	}
	31
58cf74e0	32	checkprops result -s 272591.
5747059b	33	checkview -display result -2d -path ${imagedir}/${test_image}.png