tests/bugs/moddata_2/bug49_2

   1
   2 puts "========"
   3 puts "OCC49"
   4 puts "========"
   5
   6 pload QAcommands
   7
   8 pcylinder c 10 20
   9 box b 10 10 10
  10 bcut b_c_cut b c
  11 checkshape b_c_cut
  12
  13 set result [OCC49 b_c_cut]
  14
  15 if {$result == 1} {
  16    puts "Error : OCC49"
  17 } else {
  18    puts "OCC49: OK"
  19 }
  20
  21 checkview -display result -2d -path ${imagedir}/${test_image}.png