tests/bugs/modalg_6/bug26099

   1 puts "========"
   2 puts "OCC26099"
   3 puts "========"
   4 puts ""
   5 ##################################################
   6 # Wrong result done by 2d intersection algorithm
   7 ##################################################
   8
   9 restore [locate_data_file OCC26099-f.brep] f
  10 explode f e
  11 pcurve c4 f_4 f
  12 pcurve c5 f_5 f
  13 set bug_info [2dintersect c4 c5]
  14
  15 if {[regexp {fist: ([\-0-9.]*) .*second: ([\-0-9.]*)} $bug_info dummy par1 par2] == 0} {
  16   puts "ERROR: OCC26099 is reproduced. No intersection."
  17 }
  18
  19 set refpar1 0.98989794855663704
  20 set refpar2 0
  21 if {[expr abs($par1-$refpar1)] > 0.0001 || [expr abs($par2-$refpar2)] > 0.0001} {
  22   puts "ERROR: OCC26099 is reproduced. Parameters are $par1 and $par2, expected $refpar1 and $refpar2"
  23 }