tests/bugs/modalg_6/bug28795

   1 puts "======="
   2 puts "OCC28795"
   3 puts "======="
   4 puts ""
   5 ##################################################
   6 # Boolean operations corrupt the p-curve of the source planar face if "non-destructive" option is switched off
   7 ##################################################
   8
   9 set expected [list {UMin 0.0} {UMax 1.0} {VMin -2e+100} {VMax 0.0}]
  10
  11 box mb -0.5 -0.5 -0.5 1 1 1
  12 explode mb F
  13 prism pryz mb_1 1 0 0 SemiInf
  14 box ab 0 -1 -1 2 2 2
  15
  16 explode ab f
  17 explode pryz f
  18
  19 set bounds [xbounds pryz_1]
  20 # check for expected result
  21 for {set i 0} {$i < 4} {incr i} {
  22   checkreal "[lindex $expected $i 0]" [lindex $bounds $i] [lindex $expected $i 1] 0.0 1.0e-7
  23 }
  24
  25 # Make a simple Boolean operation, e.g. "bsection"
  26 bsection rs ab_2 pryz_1
  27
  28 set bounds [xbounds pryz_1]
  29 # check for expected result
  30 for {set i 0} {$i < 4} {incr i} {
  31   checkreal "[lindex $expected $i 0]" [lindex $bounds $i] [lindex $expected $i 1] 0.0 1.0e-7
  32 }