69f87d09 |
1 | puts "========" |
2 | puts "OCC29162" |
3 | puts "========" |
4 | puts "" |
5 | ################################################## |
6 | # Geom2dInt_GInter algorithm does not find |
7 | # intersection of ellipse and line |
8 | ################################################## |
9 | |
10 | ellipse e -610.348096534595 -710.720096056787 0.999999902285153 0.000442074298181498 15.0066332711999 0.291884102212871 |
11 | trim e e 3.09462291909258 9.37780822627216 |
12 | |
13 | line l -625.34430362036 -680.713463264921 -0.000252749178714602 -0.999999968058926 |
14 | trim l l 0 30.0132665523925 |
15 | |
16 | set cx 0 |
17 | set cy 0 |
18 | |
19 | regexp {Intersection point 1 : ([-0-9.+eE]+) ([-0-9.+eE]+)} [2dintersect e l ] full cx cy |
20 | checkreal n1 $cx -625.35188801291508 1.e-7 1.e-7 |
21 | checkreal n2 $cy -710.72104765746838 1.e-7 1.e-7 |
22 | |