tests/bugs/vis/bug328

   1 puts "========"
   2 puts "OCC328"
   3 puts "========"
   4
   5 vinit
   6 set dx 10
   7 set dy 10
   8 set dz 10
   9
  10 set x1 30
  11 set y1 307
  12
  13 set x2 30
  14 set y2 107
  15
  16 box b ${dx} ${dy} ${dz}
  17 vdisplay b
  18 vfit
  19
  20 vselmode 2 1
  21 set info [OCC328 b VERTEX]
  22 if { [regexp "VERTEX" $info] != 1 } {
  23     puts "Faulty: Incorrect selection mode"
  24 }
  25
  26 vselect ${x1} ${y1}
  27 vselect ${x2} ${y2} 1
  28
  29 checkcolor ${x1} ${y1} 0.8 0.8 0.8
  30 checkcolor ${x2} ${y2} 0.8 0.8 0.8
  31 checkview -screenshot -3d -path ${imagedir}/${test_image}.png
  32
  33
  34