352ffd73 |
1 | puts "========================" |
2 | puts " OCC541 " |
3 | puts "========================" |
4 | puts "" |
5 | ############################################ |
6 | ## Extrema works wrong for line and circle laying on one plane. |
7 | ############################################ |
8 | |
9 | restore [locate_data_file OCC541a.draw] c1x |
10 | restore [locate_data_file OCC541b.draw] c2x |
11 | |
12 | set result [extrema c1x c2x] |
13 | set err [llength $result] |
14 | if { $err < 1} { |
15 | puts "Faulty OCC541 (amount of solution): command extrema does NOT work properly" |
16 | } else { |
17 | puts "OCC541 OK (amount of solution): : command extrema works properly" |
18 | } |
19 | |
5747059b |
20 | checkview -display result -2d -path ${imagedir}/${test_image}.png |