tests/bugs/modalg_7/bug26509_3

   1 puts "========"
   2 puts "0026509: Wrong intersection curve(s) obtained for pair of faces."
   3 puts "========"
   4 puts ""
   5
   6 circle c1 0 0 0 0 -1 0 75
   7 circle c2 0 0 0 0 -1 0 65
   8 mkedge c1 c1
   9 mkedge c2 c2
  10 wire c1 c1
  11 wire c2 c2
  12 orientation c2 R
  13 mkplane f1 c1 1
  14 add c2 f1
  15 prism p1 f1 0 1000 0
  16 trotate p1 0 0 0 0 0 1 180
  17 circle c3 50 500 -2000 0 0 1 50
  18 mkedge c3 c3
  19 wire c3 c3
  20 mkplane f2 c3 1
  21 prism p2 f2 0 0 4000
  22 explode p1 f
  23 explode p2 f
  24 trotate p2_1 0 500 0 1 0 0 -77
  25 trotate p2_1 0 0 0 0 0 1 180
  26 trotate p1_2 0 0 0 1.22464679914735e-16 1 0 1.57079632679489655800*180/pi
  27
  28 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} [bopcurves p1_2 p2_1 -2d] full Toler NbCurv
  29
  30 checkreal Tolerance $Toler 3.6430300265667996e-07 0.0 0.1
  31
  32 if {$NbCurv != 2} {
  33   puts "Error: Please check NbCurves for intersector"
  34 }
  35
  36 puts "Check whether the intersection result is closed in 3D"
  37 bsection result p1_2 p2_1
  38
  39 checksection result -r 0
  40 checkmaxtol result -ref 4.0e-7
  41 checkprops result -l 1881.92
  42
  43 checkview -display result -2d -path ${imagedir}/${test_image}.png