[occt.git] / tests / bugs / modalg_6 / bug27341_315

puts "============"
puts "OCC27341"
puts "============"
puts ""
######################################################
# Incorrect exact HLR results
######################################################

pload XDE
pload QAcommands

testreadstep [locate_data_file bug27341_Assembly_GMS_Kurz_CAD.stp] a

set viewname "right"

smallview
top
clear

OCC27341 result a ${viewname}
build3d result

fit

checkprops result -l 5343.53

# 0027526: Excess micro-edge in HLR visualization of a torus
if { [regexp {Windows} [dversion]] } {
   checknbshapes result -vertex 1813 -edge 909
} else {
   checknbshapes result -vertex 1812 -edge 908
}

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
5ae6e53d	1	puts "============"
	2	puts "OCC27341"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# Incorrect exact HLR results
	7	######################################################
	8
	9	pload XDE
	10	pload QAcommands
	11
	12	testreadstep [locate_data_file bug27341_Assembly_GMS_Kurz_CAD.stp] a
	13
	14	set viewname "right"
	15
	16	smallview
	17	top
	18	clear
	19
	20	OCC27341 result a ${viewname}
	21	build3d result
	22
	23	fit
	24
	25	checkprops result -l 5343.53
	26
	27	# 0027526: Excess micro-edge in HLR visualization of a torus
	28	if { [regexp {Windows} [dversion]] } {
	29	checknbshapes result -vertex 1813 -edge 909
	30	} else {
	31	checknbshapes result -vertex 1812 -edge 908
	32	}
	33
	34	checkview -screenshot -2d -path ${imagedir}/${test_image}.png