tests/bugs/vis/bug11095

   1 puts "============"
   2 puts "OCC11095"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # MeshVS: Borders of faces are not visible in shrink mode
   7 #######################################################################
   8
   9 set BugNumber OCC11095
  10
  11 pload XDE
  12
  13 vinit
  14
  15 meshfromstl m [locate_data_file OMF6391_box.stl]
  16
  17 set x_coord 157
  18 set y_coord 280
  19
  20 set RED_R1   0
  21 set GREEN_R1 0
  22 set BLUE_R1  0
  23
  24 vmoveto $x_coord $y_coord
  25
  26 vsetdispmode m 3
  27 puts "\nSet shrinked display mode\n"
  28
  29 set x_coord 137
  30 set y_coord 277
  31
  32 checkcolor $x_coord $y_coord 0 0 0
  33
  34 if { ${stat} != 1 } {
  35    puts "Error : Borders of faces are not visible in shrink mode"
  36 }
  37
  38 set only_screen 1