tests/bugs/modalg_2/bug397

   1 puts "========================"
   2 puts " OCC397 "
   3 puts "========================"
   4
   5 pload QAcommands
   6
   7 restore [locate_data_file OCC397.brep] a
   8 checkshape a
   9
  10 tclean a
  11 explode a f
  12 renamevar a_55 result
  13
  14 vinit
  15 vdisplay result
  16 vfit
  17 vsetdispmode result 1
  18
  19 set x_coord 235
  20 set y_coord 180
  21
  22 checkcolor $x_coord $y_coord 0.5 0.35 0.05
  23
  24 if { ${stat} != 1 } {
  25     puts "Error : Shading is missing in 3D Viewer"
  26 }
  27
  28 vselect 220 170
  29
  30 set square 92.9029
  31 set only_screen 1
  32
  33