tests/bugs/moddata_2/bug6450_1

   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 halfspace so2 f 0 0 0
  16 bcommon result so1 so2
  17 if {[dtyp result] == ""} {
  18     puts "Faulty ${BugNumber}: operation failed"
  19 } else {
  20     puts "OK ${BugNumber}"
  21 }
  22
  23 set 2dviewer 0
  24