tests/bugs/modalg_7/bug32502

   1 puts "================================================="
   2 puts "OCC32502: BOP wrong result on sphere and cylinder"
   3 puts "================================================="
   4 puts ""
   5
   6 psphere sph 10
   7 plane pln 0 0 7 0 1 0 0 0 1
   8 pcylinder cyl pln 3 40
   9 ttranslate cyl 0 -20 0
  10
  11 bop sph cyl
  12 bopfuse result
  13
  14 checkshape result
  15
  16 checknbshapes result -t -vertex 4 -edge 11 -wire 5 -face 5 -shell 1 -solid 1
  17
  18 set tolres [checkmaxtol result]
  19
  20 if { ${tolres} > 3.e-5} {
  21    puts "Error: bad tolerance of result"
  22 }
  23
  24 checkprops result -s 1750.1 -v 4947.2