tests/bugs/moddata_2/bug23587

   1 puts "============"
   2 puts "CR23587"
   3 puts "==========="
   4 puts ""
   5 ###############################################################################
   6 # Operation "2dintersect "in TestHarness can not find intersection point of two intersecting 2d curves.
   7 ###############################################################################
   8
   9 restore [locate_data_file bug23587_IntEdges.brep] a
  10
  11 explode a
  12
  13 plane pl1 0 0 0 0 0 1
  14 trim trpl1 pl1 -1000 1000 -1000 1000
  15 mkface f1 trpl1
  16 pcurve c1 a_1 f1
  17 pcurve c2 a_2 f1
  18 pcurve c3 a_3 f1
  19 pcurve c4 a_4 f1
  20 set inter1 [2dintersect c1 c2 1.e-6]
  21 set inter2 [2dintersect c3 c2 1.e-6]
  22 set inter3 [2dintersect c1 c4 1.e-6]
  23 set inter4 [2dintersect c3 c4 1.e-6]
  24 set int1 [regexp {Intersection point 1} $inter1]
  25 set int2 [regexp {Intersection point 1} $inter2]
  26 set int3 [regexp {Intersection point 1} $inter3]
  27 set int4 [regexp {Intersection point 1} $inter4]
  28
  29 if { $int1 == 0 || $int2 == 0 || $int3 == 0 || $int4 ==0 } {
  30     puts "Error : Intersection is not found"
  31 }
  32
  33 av2d
  34 2dfit
  35
  36 xwd ${imagedir}/${test_image}.png