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

puts "TODO OCC12345 ALL: An exception was caught"
puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
puts "TODO OCC12345 ALL: TEST INCOMPLETE"

puts "============"
puts "OCC10702"
puts "============"
puts ""
#######################################################################
# MeshVS_NodalColorPrsBuilder does not take into account visibility of mesh elements
#######################################################################

set BugNumber OCC10702

pload XDE

meshfromstl m [locate_data_file OMF6391_box.stl]

set x_coord 180
set y_coord 260

meshdispmode m 2
puts "\nMesh displayed in shading mode"

checkcolor $x_coord $y_coord 0 0 0.36

meshselmode m 8
puts "\nSelection of elements is activated"

vselect $x_coord $y_coord 1
###vselect $x_coord $y_coord 1

meshhidesel m
puts "\nSelected elemement is hidden"

checkcolor $x_coord $y_coord 0 0 0.36

nodalcolor_id m
puts "\nDisplay nodal color presentation"

checkcolor $x_coord $y_coord 0.46 0.12 0.37

set only_screen 1
Commit	Line	Data
e54706ed	1	puts "TODO OCC12345 ALL: An exception was caught"
	2	puts "TODO OCC12345 ALL: \\\\ Exception \\\\.*"
	3	puts "TODO OCC12345 ALL: TEST INCOMPLETE"
	4
	5	puts "============"
	6	puts "OCC10702"
	7	puts "============"
	8	puts ""
	9	#######################################################################
	10	# MeshVS_NodalColorPrsBuilder does not take into account visibility of mesh elements
	11	#######################################################################
	12
	13	set BugNumber OCC10702
	14
	15	pload XDE
	16
	17	meshfromstl m [locate_data_file OMF6391_box.stl]
	18
	19	set x_coord 180
	20	set y_coord 260
	21
	22	meshdispmode m 2
	23	puts "\nMesh displayed in shading mode"
	24
e54706ed	25	checkcolor $x_coord $y_coord 0 0 0.36
	26
	27	meshselmode m 8
	28	puts "\nSelection of elements is activated"
	29
4754e164	30	vselect $x_coord $y_coord 1
4754e164	31	###vselect $x_coord $y_coord 1
e54706ed	32
	33	meshhidesel m
	34	puts "\nSelected elemement is hidden"
	35
e54706ed	36	checkcolor $x_coord $y_coord 0 0 0.36
	37
	38	nodalcolor_id m
	39	puts "\nDisplay nodal color presentation"
	40
e54706ed	41	checkcolor $x_coord $y_coord 0.46 0.12 0.37
	42
	43	set only_screen 1
	44