tests/bugs/vis/bug24396

   1 puts "============"
   2 puts "CR24396"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 #  "vselmode" - disable auto loading of objects into Local Context
   7 #######################################################################
   8
   9 set trihedron_axis_pick_x 29
  10 set trihedron_axis_pick_y 56
  11
  12 set trihedron_axis_check_x 29
  13 set trihedron_axis_check_y 79
  14
  15 set trihedron_point_pick_x 29
  16 set trihedron_point_pick_y 305
  17
  18 set trihedron_point_check_x 24
  19 set trihedron_point_check_y 305
  20
  21 vinit View1
  22 vclear
  23 vaxo
  24 vtrihedron tri
  25 box b 10 10 10
  26 vdisplay b
  27 vselmode b 1 1
  28 vfit
  29
  30 # --------------------------------------------------- #
  31 # check that there is no selection of trihedron axis  #
  32 # --------------------------------------------------- #
  33
  34 vmoveto $trihedron_axis_pick_x $trihedron_axis_pick_y
  35
  36 checkcolor $trihedron_axis_pick_x $trihedron_axis_pick_y 0 0 0
  37
  38 if { $stat != 1 } {
  39    puts "Error : The trihedron should not be highlighted."
  40 }
  41
  42 vselmode b 0 0
  43 vselmode 0 0
  44 verase b
  45 vselmode 1 1
  46
  47 # ----------------------------------------------- #
  48 # check that selection of trihedron point is ok   #
  49 # ----------------------------------------------- #
  50
  51 vmoveto $trihedron_point_pick_x $trihedron_point_pick_y
  52
  53 checkcolor $trihedron_point_check_x $trihedron_point_check_y 0 1 1
  54
  55 if { $stat != 1 } {
  56    puts "Error : The trihedron point highlight is incorrect."
  57 }
  58
  59 # --------------------------------------------------------- #
  60 # check that there is still no selection of trihedron axis  #
  61 # --------------------------------------------------------- #
  62
  63 vmoveto $trihedron_axis_pick_x $trihedron_axis_pick_y
  64
  65 checkcolor $trihedron_axis_pick_x $trihedron_axis_pick_y 0 0 0
  66
  67 if { $stat != 1 } {
  68    puts "Error : The trihedron should not be highlighted."
  69 }
  70
  71 checkview -screenshot -3d -path ${imagedir}/${test_image}.png