tests/lowalgos/intss/bug23644

   1 puts "========"
   2 puts "CR23644"
   3 puts "========"
   4
   5 ##########################################
   6 ## Intersection between coaxial cones produces exception
   7 ##########################################
   8
   9 pcone cn1 10 0 20
  10 pcone cn2 20 0 20
  11 explode cn1 f
  12 explode cn2 f
  13 copy cn1_1 f1
  14 copy cn2_1 f2
  15
  16 if [catch {bopcurves f1 f2} BOPLog] {
  17    if { [regexp "Tolerance Reached=0\n has no 3d curve" ${BOPLog}] != 1 } {
  18       puts "CR23644: Error"
  19    }
  20 }