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

puts "TODO OCC12345 ALL: Faulty OCC17: here can be shading problem"

puts "================"
puts "OCC17"
puts "================"
puts ""

#####################################################
puts " Solid_14 will be the face which is unvisible during displaying entire solid."
#####################################################

restore [locate_data_file OCC17.brep] sh 

checkshape sh

explode sh f
renamevar sh_14 result
tclean result
vinit
vdisplay result
vsetdispmode result 1
vfit

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

if { $tri != 100 && $nod != 94 }  {
  puts "Faulty OCC17: here can be shading problem"
}

set 2dviewer 0
Commit	Line	Data
0e94a94e	1	puts "TODO OCC12345 ALL: Faulty OCC17: here can be shading problem"
	2
	3	puts "================"
	4	puts "OCC17"
	5	puts "================"
	6	puts ""
	7
	8	#####################################################
	9	puts " Solid_14 will be the face which is unvisible during displaying entire solid."
	10	#####################################################
	11
	12	restore [locate_data_file OCC17.brep] sh
	13
352ffd73	14	checkshape sh
0e94a94e	15
	16	explode sh f
	17	renamevar sh_14 result
	18	tclean result
	19	vinit
	20	vdisplay result
	21	vsetdispmode result 1
	22	vfit
	23
	24	set info [trinfo result]
	25	regexp { +([-0-9.+eE]+) +triangles} $info full tri
	26	regexp { +([-0-9.+eE]+) +nodes} $info full nod
	27
	28	if { $tri != 100 && $nod != 94 } {
	29	puts "Faulty OCC17: here can be shading problem"
	30	}
	31
	32	set 2dviewer 0
	33
	34