[occt.git] / tests / bugs / heal / bug210

puts "========="
puts " OCC210 "
puts "========="
puts ""
##################################################
# Improve FixShape to correct case of touching wires
##################################################
puts "TODO CR22598 ALL: Faulty shapes in variables faulty_1 to faulty_" 

pload XDE

cpulimit 2500

set BugNumber OCC210

set filepath [locate_data_file UKI60591.stp]
if [catch { stepread $filepath a * } result] {
    puts "Faulty ${BugNumber}: here is reading problem"
} else {
    puts "Reading ${BugNumber} OK"
    tpcompound r
    fixshape result r
    checkshape result
}

set 2dviewer 0
Commit	Line	Data
352ffd73	1	puts "========="
	2	puts " OCC210 "
	3	puts "========="
	4	puts ""
	5	##################################################
	6	# Improve FixShape to correct case of touching wires
	7	##################################################
15b54261	8	puts "TODO CR22598 ALL: Faulty shapes in variables faulty_1 to faulty_"
352ffd73	9
	10	pload XDE
	11
	12	cpulimit 2500
	13
	14	set BugNumber OCC210
	15
5d1833ef	16	set filepath [locate_data_file UKI60591.stp]
5d1833ef	17	if [catch { stepread $filepath a * } result] {
352ffd73	18	puts "Faulty ${BugNumber}: here is reading problem"
	19	} else {
	20	puts "Reading ${BugNumber} OK"
	21	tpcompound r
	22	fixshape result r
	23	checkshape result
	24	}
	25
	26	set 2dviewer 0