tests/bugs/vis/bug137_9

   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 restore [locate_data_file OCC137-ANC101-Solid.brep] a
  11 vinit
  12 vdisplay a
  13 vfit
  14 vsetdispmode 1
  15
  16 # FACE ON
  17 vselmode 4 1
  18
  19 set x 170
  20 set y 80
  21 vselect $x $y
  22
  23 checkview -screenshot -3d -path ${imagedir}/${test_image}.png