tests/bugs/modalg_7/bug27472

   1 puts "========"
   2 puts "OCC27472"
   3 puts "========"
   4 puts ""
   5 #######################
   6 # Wrong result of cut
   7 #######################
   8
   9 restore [locate_data_file bug27472_o.brep] o
  10 restore [locate_data_file bug27472_t.brep] t
  11
  12 bcut result o t
  13 checkshape result
  14
  15 set o_Vol [lindex [string trim [vprops o]] 2]
  16 set r_Vol [lindex [string trim [vprops result]] 2]
  17
  18 if {$r_Vol == $o_Vol} {
  19   puts "ERROR: OCC27472 is reproduced. Result of bcut operation is WRONG."
  20 }
  21
  22 vinit
  23 vdisplay result
  24 vfit
  25
  26 checkview -screenshot -3d -path ${imagedir}/${test_image}.png