tests/bugs/vis/bug23407_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 box b 10 10 10
  12 vinit
  13 vdisplay b
  14 vsetdispmode 1
  15 vshowfaceboundary b 1 255 0 0 10 1
  16 vfit
  17
  18 set x_coord 183
  19 set y_coord 190
  20
  21 checkcolor $x_coord $y_coord 1 0 0
  22
  23 if { $stat != 1 } {
  24     puts "Error : Boundary of face is not changed"
  25 }
  26
  27 set x_coord 292
  28 set y_coord 358
  29
  30 checkcolor $x_coord $y_coord 1 0 0
  31
  32 if { $stat != 1 } {
  33     puts "Error : Boundary of face is not changed"
  34 }
  35
  36 set x_coord 26
  37 set y_coord 265
  38
  39 checkcolor $x_coord $y_coord 1 0 0
  40
  41 if { $stat != 1 } {
  42     puts "Error : Boundary of face is not changed"
  43 }
  44
  45 set only_screen 1