dbe0e1942dc860c1b9a994d7803e235536ac0949
[occt.git] / tests / bugs / modalg_7 / bug31407_3
1 puts "========"
2 puts "0031407: Extrema does not process parallel circles correctly"
3 puts "========"
4 puts ""
5
6 circle c1  0 0 0  0 0 1  5
7 circle c2  0 0 0  0 0 1  10
8
9 trim cc1 c1 0 2
10 trim cc2 c2 2 4
11
12 set res_extrema [extrema cc1 cc2]
13
14 if { [regexp "Infinite number of extremas" $res_extrema] == 0} {
15   if {[llength $res_extrema] != 1} {
16     puts "Error : expected 1 extrema, but found [llength $res_extrema]"
17   }
18 } else {
19   puts "Error : Infinite number of extremas is found"
20 }