tests/bugs/vis/bug197_1

   1 puts "========"
   2 puts "OCC197"
   3 puts "(case 1)"
   4 puts "========"
   5 puts ""
   6 #############################################################
   7 ##puts "Multiple Selection:  Choosing of viewer MODA for selection of  PRIMITIVE"
   8 ##puts "(visual checking for this case is desirable)"
   9 #############################################################
  10 # Selection Modes Activation:
  11 # 0 - OBJECT, 1 - PRIMITIVE, 2 - ELEMENT, 3 - VERTEX, 4 - NONE
  12
  13 v2dinit
  14
  15 box b_b 10 15 20
  16 v2ddisplay b_b 0 0 0 1 1 1 1 0 0
  17 v2dfit
  18
  19 QAv2dSetHighlightMode 1
  20 if { [array get env os_type] != "" } {
  21     set os $env(os_type)
  22 }
  23 if { [string compare $os "windows"] == 0 } {
  24    set Position_X1 184
  25    set Position_Y1 181
  26    set Position_X2 184
  27    set Position_Y2 181
  28 } else {
  29    set Position_X1 169
  30    set Position_Y1 148
  31    set Position_X2 184
  32    set Position_Y2 180
  33 }
  34
  35 set rd_ch 80000
  36 set gr_ch 80000
  37 set bl_ch 80000
  38
  39 QASelect2d 169 148
  40 QAMoveTo2d 0 0
  41 QAShiftSelect2d 184 180
  42
  43 set j 1
  44 repeat 2 {
  45        set Position_X [set Position_X$j]
  46        set Position_Y [set Position_Y$j]
  47        puts " Position_X$j= $Position_X  Position_Y$j= $Position_Y"
  48
  49        set color [QAAISGetPixelColor2d ${Position_X} ${Position_Y} ]
  50        regexp {RED +: +([-0-9.+eE]+)} $color full rd
  51        regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
  52        regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
  53
  54        set rd_int [expr int($rd * 1.e+05)]
  55        set gr_int [expr int($gr * 1.e+05)]
  56        set bl_int [expr int($bl * 1.e+05)]
  57
  58        if { ${rd_int} != ${rd_ch} || ${gr_int} != ${gr_ch} || ${bl_int} != ${bl_ch} } {
  59           puts "Error : colors are not equal"
  60           puts "Error : (PRIMITIVE number $j) Multiple Selection: Choosing of viewer MOD for selection of PRIMITIVE was NOT MADE properly"
  61        }
  62
  63        incr j
  64 }
  65
  66 set only_screen2d 1
  67
  68