[occt.git] / tests / bugs / vis / bug20373

puts "============"
puts "OCC20373"
puts "============"
puts ""
#######################################################################
# Shading doesn't work on b-spline sphere
#######################################################################

set BugNumber OCC20373

restore [locate_data_file OCC20373.brep] result

vinit
vdisplay result
vsetdispmode 1
vfit

set tri_info [trinfo result]
regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod

puts [format " tri= %s  noe= %s " $tri $nod]

# Resume
puts ""
if { ${tri} == 0 } {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}

set square 9.92128e+06
set 3dviewer 1
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC20373"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Shading doesn't work on b-spline sphere
	7	#######################################################################
	8
	9	set BugNumber OCC20373
	10
	11	restore [locate_data_file OCC20373.brep] result
	12
	13	vinit
	14	vdisplay result
	15	vsetdispmode 1
	16	vfit
	17
	18	set tri_info [trinfo result]
	19	regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
	20	regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
	21
	22	puts [format " tri= %s noe= %s " $tri $nod]
	23
	24	# Resume
	25	puts ""
	26	if { ${tri} == 0 } {
	27	puts "Faulty ${BugNumber}"
	28	} else {
	29	puts "OK ${BugNumber}"
	30	}
	31
	32	set square 9.92128e+06
	33	set 3dviewer 1
	34