0030760: Modeling Algorithms - Intersection fails in Occt 7.3.0
[occt.git] / tests / bugs / modalg_7 / bug30647
1 puts "========"
2 puts "0030647: Geom2dGcc_Circ2d2TanRad not giving all the solutions"
3 puts "========"
4 puts ""
5
6 restore [locate_data_file bug30647_curve1_720.brep] c1
7 restore [locate_data_file bug30647_curve2_720.brep] c2
8
9 explode c1 e
10 mk2dcurve q1 c1_1
11 explode c2 e
12 mk2dcurve q2 c2_1
13
14 cirtang r -c q1 -c q2 -r 0.4
15
16 smallview  -2D-
17
18 2dclear q1
19 2dfit
20 display q1
21
22 xwd ${imagedir}/${test_image}.png
23
24 set NbCurv [llength [directory r_*]]
25
26 if { $NbCurv == 8 } {
27   puts "OK: Number of circles is good"
28 } else {
29   puts "Error: Not all solutions"
30 }