[occt.git] / tests / bugs / moddata / bug16


puts "================"
puts "OCC16"
puts "================"
puts ""

torus a 10 10
mkface result a
vinit
vdisplay result
vsetdispmode result 1

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

if { $tri != 2592 || $nod != 1369 }  {
   puts "Faulty OCC16: here can be shading problem"
}

puts "If here is bug - face is displaied in wireframe mode"

set 2dviewer 0
Commit	Line	Data
0e94a94e	1
	2	puts "================"
	3	puts "OCC16"
	4	puts "================"
	5	puts ""
	6
	7	torus a 10 10
	8	mkface result a
	9	vinit
	10	vdisplay result
	11	vsetdispmode result 1
	12
	13	set info [trinfo result]
	14	regexp { +([-0-9.+eE]+) +triangles} $info full tri
	15	regexp { +([-0-9.+eE]+) +nodes} $info full nod
	16
	17	if { $tri != 2592 \|\| $nod != 1369 } {
	18	puts "Faulty OCC16: here can be shading problem"
	19	}
	20
	21	puts "If here is bug - face is displaied in wireframe mode"
	22
	23	set 2dviewer 0
	24