[occt.git] / tests / bugs / moddata_2 / bug536_24


puts "========"
puts "OCC536"
puts "SAM1504"
puts "========"

vinit

restore [locate_data_file OCC536.brep] S 
checkshape S

explode S So
checkshape S_5
checkshape S_1

if [catch {bfuse result S_5 S_1}] {
    puts "Faulty OCC536"
} else {
    puts "OCC536 : OK"
    checkshape result
}

set square 2.45349e+06
set 2dviewer 0
Commit	Line	Data
61c421bf	1
	2	puts "========"
	3	puts "OCC536"
	4	puts "SAM1504"
	5	puts "========"
	6
	7	vinit
	8
	9	restore [locate_data_file OCC536.brep] S
	10	checkshape S
	11
	12	explode S So
	13	checkshape S_5
	14	checkshape S_1
	15
	16	if [catch {bfuse result S_5 S_1}] {
	17	puts "Faulty OCC536"
	18	} else {
	19	puts "OCC536 : OK"
	20	checkshape result
	21	}
	22
	23	set square 2.45349e+06
	24	set 2dviewer 0