tests/bugs/vis/CR23407_1

   1 puts "============"
   2 puts "CR23407"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Draw face outlines for XDE objects
   7 #######################################################################
   8 pload QAcommands
   9 pload XDEDRAW
  10
  11 set r_check 1
  12 set g_check 0
  13 set b_check 0
  14 set x1 227
  15 set y1 143
  16
  17 XNewDoc Doc1
  18 ReadStep Doc1 [locate_data_file CR23407-screw.step]
  19 XShow Doc1 0:1:1:1
  20 XShowFaceBoundary Doc1 0:1:1:1 1 255 0 0 200 1
  21 vfit
  22 vsetdispmode 1
  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 1
  35
  36
  37
  38
  39
  40