tests/bugs/vis/bug451

   1 puts "========================"
   2 puts " OCC451 "
   3 puts "========================"
   4 puts ""
   5 #############################################################
   6 ## puts "Choosing of viewer MODA for selection of VERTEX"
   7 ## puts "(visual checking for this case is desirable)"
   8 ##
   9 #                                           Selection Modes Activation:
  10 #          0 - OBJECT, 1 - VERTEX, 2 - ELEMENT, 3 - VERTEX, 4 - NONE
  11 #############################################################
  12
  13 vertex v1 0 0 0
  14 vertex v2 10 10 10
  15 v2dinit
  16 v2ddisplay v1
  17 v2ddisplay v2
  18 v2dfit
  19
  20 set x_coord 49
  21 set y_coord 361
  22 set color2d 1
  23
  24 QAv2dSetHighlightMode 3
  25 QAMoveTo2d 0 0
  26 QASelect2d $x_coord $y_coord
  27
  28 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  29
  30 if {$stat != 1} {
  31    puts "Error : Choosing of viewer MOD for selection of VERTEX was NOT MADE properly"
  32 }
  33
  34 set only_screen2d 1