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

puts "TODO ?OCC12345 ALL: Error : The square of result shape is"

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

restore [locate_data_file OCC615.brep] a 
puts [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 "TODO ?OCC12345 ALL: Error : The square of result shape is"
	2
	3	puts "========================"
	4	puts " OCC615"
	5	puts "========================"
	6	puts ""
	7	#############################
	8	## Wrong resultat of BLEND operation
	9	#############################
	10
	11	restore [locate_data_file OCC615.brep] a
	12	puts [checkshape a]
	13	explode a e
	14
	15	if [catch {blend result a 9 a_15 } catch_result] {
	16	puts "Faulty OCC615: function BLEND works with exception"
	17	} else {
	18	puts "OCC615 OK: function CHAMF works OK"
	19	}
	20
	21	set square 197055.
	22	set 2dviewer 0