tests/bugs/modalg_5/bug25337_1

   1 puts "================"
   2 puts "OCC25337"
   3 puts "================"
   4 puts ""
   5 ####################################
   6 # Regression to version 6.7.1 : boolean operations fail on two planar circular faces lying in the same plane
   7 ####################################
   8
   9 circle c1 -50 0 0 10
  10 circle c2 -35 0 0 10
  11 mkedge e1 c1
  12 mkedge e2 c2
  13 wire w1 e1
  14 wire w2 e2
  15 mkplane f1 w1
  16 mkplane f2 w2
  17
  18 bop f1 f2
  19 bopfuse result
  20
  21 set square 582.987
  22
  23 set nb_v_good 4
  24 set nb_e_good 6
  25 set nb_w_good 3
  26 set nb_f_good 3
  27 set nb_sh_good 1
  28 set nb_sol_good 0
  29 set nb_compsol_good 0
  30 set nb_compound_good 1
  31 set nb_shape_good 18
  32
  33 set 2dviewer 1