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

puts "================"
puts "OCC129"
puts "================"
puts ""
#######################################################################################
# Object is not selectable in the Cascade Viewer
######################################################################################

set BugNumber OCC22129

cylinder c 0 0 1 10
trimv ct c -1e+9 1e+9
mkface ft ct

vinit
# change maximum uv parameter value in drawer to display
# isolines correctly
vaspects -defaults -setMaxParamValue 1e+9
vdisplay ft

set x1 207
set y1 184
set x2 222
set y2 175

vmoveto ${x1} ${y1}
checkcolor ${x1} ${y1} 0 1 1

vselect ${x1} ${y1}
checkcolor ${x1} ${y1} 0.8 0.8 0.8

vselect ${x2} ${y2}
checkcolor ${x1} ${y1} 1 1 0

# dump image, than restore default maximum parameter value
set aViewInfo [split [vviewlist long] "/"]
set aImgFile ${imagedir}/${casename}
foreach aStr $aViewInfo {
  append aImgFile "_" [string trim $aStr]
}
append aImgFile ".png"
vdump $aImgFile

vaspects -defaults -setMaxParamValue 500000
vclose
Commit	Line	Data
3bea4c16	1	puts "================"
	2	puts "OCC129"
	3	puts "================"
	4	puts ""
	5	#######################################################################################
	6	# Object is not selectable in the Cascade Viewer
	7	######################################################################################
	8
	9	set BugNumber OCC22129
	10
	11	cylinder c 0 0 1 10
	12	trimv ct c -1e+9 1e+9
	13	mkface ft ct
	14
	15	vinit
5ad8c033	16	# change maximum uv parameter value in drawer to display
	17	# isolines correctly
	18	vaspects -defaults -setMaxParamValue 1e+9
3bea4c16	19	vdisplay ft
	20
	21	set x1 207
	22	set y1 184
	23	set x2 222
	24	set y2 175
	25
	26	vmoveto ${x1} ${y1}
	27	checkcolor ${x1} ${y1} 0 1 1
	28
	29	vselect ${x1} ${y1}
	30	checkcolor ${x1} ${y1} 0.8 0.8 0.8
	31
	32	vselect ${x2} ${y2}
	33	checkcolor ${x1} ${y1} 1 1 0
	34
5ad8c033	35	# dump image, than restore default maximum parameter value
	36	set aViewInfo [split [vviewlist long] "/"]
	37	set aImgFile ${imagedir}/${casename}
	38	foreach aStr $aViewInfo {
	39	append aImgFile "_" [string trim $aStr]
	40	}
	41	append aImgFile ".png"
	42	vdump $aImgFile
	43
	44	vaspects -defaults -setMaxParamValue 500000
	45	vclose