[occt.git] / tests / vselect / clipping / bug30777

puts "============="
puts "0030777: Visualization - Incorrect selection/highlighting of clipped objects"
puts "============="

pload MODELING VISUALIZATION
vclear
vinit View1
vaxo
psphere s 10
vdisplay -dispMode 1 s
vfit
vfront
vclipplane p1 -set s -equation 0 1 0 0
set p [vmoveto 200 200]
vpoint pp {*}$p
vsetcolor pp RED
checkpoint p $p {-0.34896 9.94397 0.27411} 0.0001

vdump ${imagedir}/${casename}.png
Commit	Line	Data
fe525c6f	1	puts "============="
	2	puts "0030777: Visualization - Incorrect selection/highlighting of clipped objects"
	3	puts "============="
	4
	5	pload MODELING VISUALIZATION
	6	vclear
	7	vinit View1
	8	vaxo
	9	psphere s 10
	10	vdisplay -dispMode 1 s
	11	vfit
	12	vfront
	13	vclipplane p1 -set s -equation 0 1 0 0
	14	set p [vmoveto 200 200]
	15	vpoint pp {*}$p
	16	vsetcolor pp RED
	17	checkpoint p $p {-0.34896 9.94397 0.27411} 0.0001
	18
	19	vdump ${imagedir}/${casename}.png