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
