tests/bugs/vis/bug197_2

   1 puts "========"
   2 puts "OCC197"
   3 puts "(case 2)"
   4 puts "========"
   5 puts ""
   6 puts "====================="
   7 puts "Multiple Selection:  Choosing of viewer MODA for selection of  ELEMENT"
   8 puts "(visual checking for this case is desirable)"
   9 puts "====================="
  10 # Selection Modes Activation:
  11 # 0 - OBJECT, 1 - PRIMITIVE, 2 - ELEMENT, 3 - VERTEX, 4 - NONE
  12
  13 v2dinit
  14 box b_b 10 15 20
  15 v2ddisplay b_b 0 0 0 1 1 1 1 0 0
  16 v2dfit
  17 QAv2dSetHighlightMode 2
  18 set color2d 1
  19
  20 QASelect2d 296 160
  21 QAMoveTo2d 0 0
  22 QAShiftSelect2d 76 290
  23
  24 set x_coord 296
  25 set y_coord 161
  26
  27 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  28
  29 if { ${stat} != 1 } {
  30     puts "Error : (ELEMENT number 1) Multiple Selection: Choosing of viewer MOD for selection of ELEMENT was NOT MADE properly"
  31 }
  32
  33 set x_coord 76
  34 set y_coord 290
  35
  36 checkcolor $x_coord $y_coord 0.8 0.8 0.8
  37
  38 if { ${stat} != 1 } {
  39     puts "Error : (ELEMENT number 2) Multiple Selection: Choosing of viewer MOD for selection of ELEMENT was NOT MADE properly"
  40 }
  41
  42 set only_screen2d 1
  43