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

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

set m_pi2 1,57
pcone a 5 0 10
vinit
vdisplay a
vrotate 35 0 0
vfit
vhlr on 0
vhlrtype algo a
vrotate -$m_pi2 -$m_pi2 0
vfit

set x_coord 131
set y_coord 240

checkcolor $x_coord $y_coord 0 0 0

if { $stat != 1 } {
  puts "Error : Drawing hidden lines as dotted lines produces wrong result."
}

vdump $imagedir/${casename}_without_lines.png

vhlr on 1

set x_coord 131
set y_coord 240

# Check display of dotted hidden lines
checkcolor $x_coord $y_coord 0.2 0.2 0.2

if { $stat != 1 } {
  puts "Error : Drawing hidden lines as dotted lines produces wrong result."
}

vdump $imagedir/${casename}_with_lines.png
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 displayed properly in HLR mode.
	8	##################################################################
	9
	10	set m_pi2 1,57
	11	pcone a 5 0 10
	12	vinit
	13	vdisplay a
	14	vrotate 35 0 0
	15	vfit
	16	vhlr on 0
	17	vhlrtype algo a
	18	vrotate -$m_pi2 -$m_pi2 0
	19	vfit
	20
	21	set x_coord 131
	22	set y_coord 240
	23
	24	checkcolor $x_coord $y_coord 0 0 0
	25
	26	if { $stat != 1 } {
	27	puts "Error : Drawing hidden lines as dotted lines produces wrong result."
	28	}
	29
	30	vdump $imagedir/${casename}_without_lines.png
	31
	32	vhlr on 1
	33
	34	set x_coord 131
	35	set y_coord 240
	36
	37	# Check display of dotted hidden lines
	38	checkcolor $x_coord $y_coord 0.2 0.2 0.2
	39
	40	if { $stat != 1 } {
	41	puts "Error : Drawing hidden lines as dotted lines produces wrong result."
	42	}
	43
	44	vdump $imagedir/${casename}_with_lines.png