tests/bugs/vis/bug23407_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 XNewDoc Doc1
  12 ReadStep Doc1 [locate_data_file screw.step]
  13 XShow Doc1 0:1:1:1
  14 XShowFaceBoundary Doc1 0:1:1:1 1 255 0 0 10 1
  15 vfit
  16 vsetdispmode 1
  17
  18 set x_coord 178
  19 set y_coord 36
  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 244
  28 set y_coord 89
  29
  30 checkcolor $x_coord $y_coord 1 0 0
  31
  32 if { $stat != 01} {
  33    puts "Error : Boundary of face is not changed"
  34 }
  35
  36 set only_screen 1
  37
  38