tests/bugs/vis/CR23407_2

   1 puts "============"
   2 puts "CR23407"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Draw face outlines for XDE objects
   7 #######################################################################
   8 pload QAcommands
   9 pload AISV MODELING
  10
  11 set r_check 1
  12 set g_check 0
  13 set b_check 0
  14 set x1 183
  15 set y1 190
  16
  17 box b 10 10 10
  18 vinit
  19 vdisplay b
  20 vsetdispmode 1
  21 vshowfaceboundary b 1 255 0 0 200 1
  22 vfit
  23
  24 set color [ QAGetPixelColor ${x1} ${y1} ]
  25 regexp {RED +: +([-0-9.+eE]+)} $color full rd
  26 regexp {GREEN +: +([-0-9.+eE]+)} $color full gr
  27 regexp {BLUE +: +([-0-9.+eE]+)} $color full bl
  28
  29 if { $rd != $r_check || $gr != $g_check || $bl != $b_check } {
  30     puts "Error : color are not equal"
  31     puts "Error : Boundary of face is not changed"
  32 }
  33
  34 set 3dviewer 2