tests/bugs/modalg/bug420

   1 puts "TODO OCC12345 ALL: Error : The square of result shape is"
   2 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
   3
   4 puts "========================"
   5 puts " OCC420 "
   6 puts "PRO12473"
   7 puts "========================"
   8 puts ""
   9
  10 restore [locate_data_file CTO909_objects.brep] a
  11 checkshape a
  12
  13 restore [locate_data_file CTO909_tool_4.brep] b
  14 checkshape b
  15
  16 bsection sec a b
  17 puts [checksection sec]
  18 checkshape sec
  19 explode a so
  20 renamevar a_1 a
  21
  22 bcut result a b
  23
  24 set square 0
  25 set 2dviewer 0