tests/bugs/modalg_6/bug28222_3

   1 puts "================"
   2 puts "OCC28222"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 #  Intersection of two cylinders fails
   7 #######################################################################
   8
   9 dsetsignal 1
  10
  11 set GoodNbCurv 2
  12
  13 foreach c [directory result*] {
  14   unset $c
  15 }
  16
  17 cylinder s1 -9 -5 -2.2058 0 -1 0 0.001
  18 cylinder s2 0 0 -2.2058 0 0 -1 9
  19
  20 intersect result s1 s2
  21
  22 foreach c [directory result*] {
  23   bounds $c U1 U2
  24
  25   if {[dval U2-U1] < 1.0e-9} {
  26     puts "Error: Wrong curve's range!"
  27   }
  28
  29   xdistcs $c s1 U1 U2 10 2.0e-7
  30   xdistcs $c s2 U1 U2 10 2.0e-7
  31 }
  32
  33 set NbCurv [llength [directory result*]]
  34
  35 if { $NbCurv == $GoodNbCurv } {
  36   puts "OK: Number of curves is good!"
  37 } else {
  38   puts "Error: $GoodNbCurv is expected but $NbCurv is found!"
  39 }
  40
  41 smallview
  42 don result*
  43 fit
  44 don  s1 s2
  45 disp result*
  46 checkview -screenshot -2d -path ${imagedir}/${test_image}.png