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

puts "============"
puts "OCC23123"
puts "============"
puts ""
#######################################################################
# Bug/Regression in visualization of XDE documents in shaded mode
#######################################################################

set BugNumber OCC23123

catch { pload XDE }

ReadStep D [locate_data_file OCC23123-test.step]
XShow D
vfit
vsetdispmode 1

puts "Point color test:"
set x1 310
set y1 225
set r1 0.04
set g1 0.04
set b1 0.67

checkcolor $x1 $y1 $r1 $g1 $b1

set only_screen 1
Commit	Line	Data
3bea4c16	1	puts "============"
	2	puts "OCC23123"
	3	puts "============"
	4	puts ""
	5	#######################################################################
	6	# Bug/Regression in visualization of XDE documents in shaded mode
	7	#######################################################################
	8
	9	set BugNumber OCC23123
	10
	11	catch { pload XDE }
	12
	13	ReadStep D [locate_data_file OCC23123-test.step]
	14	XShow D
	15	vfit
	16	vsetdispmode 1
	17
ed97f43c	18	puts "Point color test:"
	19	set x1 310
	20	set y1 225
	21	set r1 0.04
	22	set g1 0.04
	23	set b1 0.67
	24
	25	checkcolor $x1 $y1 $r1 $g1 $b1
3bea4c16	26
	27	set only_screen 1
	28