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

puts "==========="
puts "OCC24388"
puts "==========="
puts ""
##################################################################
# 0024388: Option to enable visualization of hidden lines in DRAW
# Checks if dotted hidden lines are highlighted properly. 
##################################################################

box b 15 0 0 10 10 10
vinit
vdisplay b
vrotate 35 0 0
vfit
vhlr on 1
vhlrtype algo a

vmoveto 76 304

set x_coord 115
set y_coord 203
checkcolor $x_coord $y_coord 0 1 1

if { $stat != 1 } {
  puts "Error : Highlighting of dotted hidden lines in the box is wrong."
}

set x_coord 122
set y_coord 200

checkcolor $x_coord $y_coord 0 0 0

if { $stat != 1 } {
  puts "Error : Highlighting of dotted hidden lines in the box is wrong."
}

set only_screen 1
Commit	Line	Data
e9224045	1	puts "==========="
	2	puts "OCC24388"
	3	puts "==========="
	4	puts ""
	5	##################################################################
	6	# 0024388: Option to enable visualization of hidden lines in DRAW
	7	# Checks if dotted hidden lines are highlighted properly.
	8	##################################################################
	9
	10	box b 15 0 0 10 10 10
	11	vinit
	12	vdisplay b
	13	vrotate 35 0 0
	14	vfit
	15	vhlr on 1
	16	vhlrtype algo a
	17
	18	vmoveto 76 304
	19
	20	set x_coord 115
	21	set y_coord 203
	22	checkcolor $x_coord $y_coord 0 1 1
	23
	24	if { $stat != 1 } {
	25	puts "Error : Highlighting of dotted hidden lines in the box is wrong."
	26	}
	27
	28	set x_coord 122
	29	set y_coord 200
	30
	31	checkcolor $x_coord $y_coord 0 0 0
	32
	33	if { $stat != 1 } {
	34	puts "Error : Highlighting of dotted hidden lines in the box is wrong."
	35	}
	36
	37	set only_screen 1