[occt.git] / tests / bugs / mesh / bug24593_1

puts "========"
puts "OCC24593"
puts "========"
puts ""
#####################################
# Missing surfaces from STL output
#####################################

pload XDE

set refnbfaces 69

stepread [locate_data_file bug24593_285330.stp] a *
renamevar a_1 result

#1
checkview -display result -3d -path ${imagedir}/${test_image}.png

#2
set log1 [explode result f]
set nbfaces [llength $log1]

#3
set log2 [tricheck result]

if { $nbfaces != $refnbfaces } {
  puts "Error : Shape restored incorrectly - number of faces is different than expected value ($nbfaces != $refnbfaces)"
}

if { [llength $log2] != 0 } {
  puts "Error : Some faces has failed to mesh"
}
Commit	Line	Data
183acc2f	1	puts "========"
	2	puts "OCC24593"
	3	puts "========"
	4	puts ""
	5	#####################################
	6	# Missing surfaces from STL output
	7	#####################################
	8
	9	pload XDE
	10
	11	set refnbfaces 69
	12
	13	stepread [locate_data_file bug24593_285330.stp] a *
	14	renamevar a_1 result
	15
	16	#1
	17	checkview -display result -3d -path ${imagedir}/${test_image}.png
	18
	19	#2
	20	set log1 [explode result f]
	21	set nbfaces [llength $log1]
	22
	23	#3
	24	set log2 [tricheck result]
	25
	26	if { $nbfaces != $refnbfaces } {
	27	puts "Error : Shape restored incorrectly - number of faces is different than expected value ($nbfaces != $refnbfaces)"
	28	}
	29
	30	if { [llength $log2] != 0 } {
	31	puts "Error : Some faces has failed to mesh"
	32	}