tests/bugs/modalg_5/bug25337_2

   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 bopcommon result
  20
  21 checkprops result -s 45.3312
  22 checkshape result
  23
  24 checknbshapes result -vertex 3 -edge 3 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 9
  25 checkview -display result -2d -path ${imagedir}/${test_image}.png
  26