tests/bugs/vis/bug137_11

   1 if { [array get env os_type] != "" } {
   2    set os $env(os_type)
   3 }
   4 if { [string compare $os "windows"] != 0 } {
   5 }
   6
   7 puts "================"
   8 puts "OCC137"
   9 puts "================"
  10 #
  11 # The patch "patch-MITUTOYO-USA-05112001.zip" has to be converted to Open Cascade 4.0
  12 #
  13 puts "IT IS NECESSARY TO CHECK SELECTED FACE SHADING"
  14 puts ""
  15
  16 pload XDE
  17
  18 stepread [locate_data_file OCC137-ANC101-Solid.stp] a *
  19 tpcompound a
  20 vinit
  21 vdisplay a
  22 vfit
  23 vsetdispmode 1
  24
  25 vselmode FACE ON
  26 set x 170
  27 set y 80
  28 vselect $x $y
  29
  30 set only_screen 1