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

puts "========================"
puts " OCC451 "
puts "========================"
puts ""
#############################################################
## puts "Choosing of viewer MODA for selection of VERTEX"
## puts "(visual checking for this case is desirable)"
##
#                                           Selection Modes Activation:
#          0 - OBJECT, 1 - VERTEX, 2 - ELEMENT, 3 - VERTEX, 4 - NONE
#############################################################

vertex v1 0 0 0
vertex v2 10 10 10
v2dinit
v2ddisplay v1
v2ddisplay v2
v2dfit

set x_coord 49
set y_coord 361
set color2d 1

QAv2dSetHighlightMode 3
QAMoveTo2d 0 0
QASelect2d $x_coord $y_coord

checkcolor $x_coord $y_coord 0.8 0.8 0.8

if {$stat != 1} {
   puts "Error : Choosing of viewer MOD for selection of VERTEX was NOT MADE properly"
}

set only_screen2d 1
Commit	Line	Data
352ffd73	1	puts "========================"
	2	puts " OCC451 "
	3	puts "========================"
	4	puts ""
	5	#############################################################
	6	## puts "Choosing of viewer MODA for selection of VERTEX"
	7	## puts "(visual checking for this case is desirable)"
	8	##
	9	# Selection Modes Activation:
	10	# 0 - OBJECT, 1 - VERTEX, 2 - ELEMENT, 3 - VERTEX, 4 - NONE
	11	#############################################################
	12
	13	vertex v1 0 0 0
	14	vertex v2 10 10 10
	15	v2dinit
	16	v2ddisplay v1
	17	v2ddisplay v2
	18	v2dfit
	19
	20	set x_coord 49
	21	set y_coord 361
	22	set color2d 1
	23
	24	QAv2dSetHighlightMode 3
	25	QAMoveTo2d 0 0
	26	QASelect2d $x_coord $y_coord
	27
	28	checkcolor $x_coord $y_coord 0.8 0.8 0.8
	29
	30	if {$stat != 1} {
	31	puts "Error : Choosing of viewer MOD for selection of VERTEX was NOT MADE properly"
	32	}
	33
	34	set only_screen2d 1