tests/bugs/vis/bug129_2

   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
  16 # change maximum uv parameter value in drawer to display
  17 # isolines correctly
  18 vaspects -defaults -setMaxParamValue 1e+9
  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
  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