[occt.git] / tests / bugs / modalg_2 / bug5157_1

puts "============"
puts "OCC5157"
puts "============"
puts ""
######################################################
# DRAW commands vprops and sprops with tolerance 1.e-6 hange on attached shape.
######################################################

cpulimit 3500
#dchrono h reset; dchrono h start

catch { pload XDE }

set BugNumber OCC5157

set status 0
set filepath [locate_data_file OCC5157.stp]
if {[catch { stepread $filepath a * } catch_result] } {
    puts "Faulty ${BugNumber} : here is reading problem"
} else {
    tpcompound result
}

set tol_square 1.e-6
set square 35273.9
set 2dviewer 0
Commit	Line	Data
61c421bf	1	puts "============"
	2	puts "OCC5157"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# DRAW commands vprops and sprops with tolerance 1.e-6 hange on attached shape.
	7	######################################################
	8
	9	cpulimit 3500
	10	#dchrono h reset; dchrono h start
	11
	12	catch { pload XDE }
	13
	14	set BugNumber OCC5157
	15
	16	set status 0
5d1833ef	17	set filepath [locate_data_file OCC5157.stp]
5d1833ef	18	if {[catch { stepread $filepath a * } catch_result] } {
61c421bf	19	puts "Faulty ${BugNumber} : here is reading problem"
	20	} else {
	21	tpcompound result
	22	}
	23
	24	set tol_square 1.e-6
	25	set square 35273.9
	26	set 2dviewer 0
	27
	28