tests/bugs/moddata_2/bug6450_2

   1 puts "============"
   2 puts "OCC6450"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Cannot get common part of two parallel halfspaces
   7 ######################################################
   8
   9 set BugNumber OCC6450
  10
  11 plane pl 100 0 0 1 0 0
  12 mkface f pl
  13 halfspace so1 f 0 0 0
  14 ttranslate f -200 0 0
  15 trotate f 0 0 0 0 0 1 45
  16 halfspace so2 f 0 0 0
  17 bcommon result so1 so2
  18 if {[dtyp result] == ""} {
  19     puts "Faulty ${BugNumber}: operation failed"
  20 } else {
  21     puts "OK ${BugNumber}"
  22 }
  23
  24 checkview -display result -2d -path ${imagedir}/${test_image}.png