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

puts "============"
puts "CR24374"
puts "============"
puts ""
#######################################################################
#  Flipping affects highlight presentation of dimension
#######################################################################
box b 100 100 100
explode b e
vdisplay b
vdisplay b_9
vdimension dim1 -length -shapes b_9 -text 3d -plane zox
vselmode b 2 1
vselmode dim1 2 1
vfit
vmoveto 140 370

set x_coord 140
set y_coord 370
checkcolor $x_coord $y_coord 0 1 1

if { $stat != 1 } {
  puts "Error : Highlighting of dimension with flipping in local context failed."
}

set only_screen 1
Commit	Line	Data
0f8c0fb8	1	puts "============"
	2	puts "CR24374"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Flipping affects highlight presentation of dimension
	7	#######################################################################
0f8c0fb8	8	box b 100 100 100
	9	explode b e
	10	vdisplay b
	11	vdisplay b_9
0499eb06	12	vdimension dim1 -length -shapes b_9 -text 3d -plane zox
0f8c0fb8	13	vselmode b 2 1
9f37b47d	14	vselmode dim1 2 1
0f8c0fb8	15	vfit
9f37b47d	16	vmoveto 140 370
0f8c0fb8	17
9f37b47d	18	set x_coord 140
9f37b47d	19	set y_coord 370
0f8c0fb8	20	checkcolor $x_coord $y_coord 0 1 1
	21
	22	if { $stat != 1 } {
	23	puts "Error : Highlighting of dimension with flipping in local context failed."
	24	}
	25
	26	set only_screen 1