tests/bugs/modalg_6/bug21750

   1 puts "============"
   2 puts "OCC21750"
   3 puts "============"
   4 puts ""
   5 ##################################
   6 #  Intersection of two cylindrical surfaces fails
   7 ##################################
   8
   9 cylinder c1 1031.3339148728076 -113.25868616662650 56.152387686082520 -0.86602540378443815 0.50000000000000089 0.0 -0.50000000000000089 -0.86602540378443815 0.0 76.499999999999986
  10 cylinder c2 1017.0706583606553 -103.24955863669388 56.152387686082548 0.86602540378443915 -0.49999999999999933 0.0 0.49999999999999933 0.86602540378443915 0.0 76.499999999999986
  11
  12 if { [catch {set info [intersect r c1 c2 1e-7]} catch_result] } {
  13     puts "Error: The intersection of two cylindrical surfaces causes an exception"
  14 }
  15
  16 # Number of solutions check.
  17 # There should be only 2 solution.
  18 if {[llength $info] != 2} {
  19   Error: Incorrect number of solutions.
  20 }
  21
  22 smallview
  23
  24 fit
  25
  26 checkview -screenshot -2d -path ${imagedir}/${test_image}.png