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    puts "TODO OCC12345 ALL: An exception was caught"
   6    puts "TODO OCC12345 ALL: \\*\\* Exception \\*\\*.*"
   7    puts "TODO OCC12345 ALL: TEST INCOMPLETE"
   8 }
   9
  10 puts "================"
  11 puts "OCC137"
  12 puts "================"
  13 #
  14 # The patch "patch-MITUTOYO-USA-05112001.zip" has to be converted to Open Cascade 4.0
  15 #
  16 puts "IT IS NECESSARY TO CHECK SELECTED FACE SHADING"
  17 puts ""
  18
  19 pload XDE
  20
  21 stepread [locate_data_file OCC137-ANC101-Solid.stp] a *
  22 tpcompound a
  23 vinit
  24 vdisplay a
  25 vfit
  26 vsetdispmode 1
  27
  28 vselmode FACE ON
  29 set x 170
  30 set y 80
  31 vselect $x $y
  32
  33 set only_screen 1