tests/bugs/vis/bug137_11

   1 puts "================"
   2 puts "OCC137"
   3 puts "================"
   4 #
   5 # The patch "patch-MITUTOYO-USA-05112001.zip" has to be converted to Open Cascade 4.0
   6 #
   7 puts "IT IS NECESSARY TO CHECK SELECTED FACE SHADING"
   8 puts ""
   9
  10 pload XDE
  11
  12 stepread [locate_data_file OCC137-ANC101-Solid.stp] a *
  13 tpcompound a
  14 vinit
  15 vdisplay a
  16 vfit
  17 vsetdispmode 1
  18
  19 # FACE ON
  20 vselmode 4 1
  21
  22 set x 170
  23 set y 80
  24 vselect $x $y
  25
  26 checkview -screenshot -3d -path ${imagedir}/${test_image}.png