[occt.git] / tests / bugs / demo / bug24873_1

puts "============"
puts "CR24873"
puts "============"
puts ""
##########################################################################################################
# Draw Harness, ViewerTest - add command vbounding to show presentation bounding box
##########################################################################################################

pload QAcommands

vinit View1
vclear
vaxo
vsetdispmode 1

psphere s 2
vdisplay s
vfit

vbounding s

set x 378
set y 102
checkcolor $x $y 1 1 1

vdump ${imagedir}/${test_image}.png
Commit	Line	Data
c2a388f8	1	puts "============"
	2	puts "CR24873"
	3	puts "============"
	4	puts ""
	5	##########################################################################################################
	6	# Draw Harness, ViewerTest - add command vbounding to show presentation bounding box
	7	##########################################################################################################
	8
	9	pload QAcommands
	10
	11	vinit View1
	12	vclear
	13	vaxo
	14	vsetdispmode 1
	15
	16	psphere s 2
	17	vdisplay s
	18	vfit
	19
	20	vbounding s
	21
	22	set x 378
	23	set y 102
	24	checkcolor $x $y 1 1 1
	25
	26	vdump ${imagedir}/${test_image}.png