[occt.git] / tests / bugs / modalg_3 / bug615

puts "========================"
puts " OCC615"
puts "========================"
puts ""
#############################
## Wrong resultat of BLEND operation
#############################

restore [locate_data_file OCC615.brep] a 
checkshape a
explode a e

if [catch {blend result a 9 a_15 } catch_result] {
    puts "Faulty OCC615: function BLEND works with exception"
} else {
    puts "OCC615 OK: function CHAMF works OK"
}

set square 197055.
set 2dviewer 0
Commit	Line	Data
f1aa2b62	1	puts "========================"
	2	puts " OCC615"
	3	puts "========================"
	4	puts ""
	5	#############################
	6	## Wrong resultat of BLEND operation
	7	#############################
	8
	9	restore [locate_data_file OCC615.brep] a
352ffd73	10	checkshape a
f1aa2b62	11	explode a e
	12
	13	if [catch {blend result a 9 a_15 } catch_result] {
	14	puts "Faulty OCC615: function BLEND works with exception"
	15	} else {
	16	puts "OCC615 OK: function CHAMF works OK"
	17	}
	18
	19	set square 197055.
	20	set 2dviewer 0