a87752f3 |
1 | puts "========================" |
2 | puts " OCC303 " |
3 | puts "(case 1)" |
4 | puts "========================" |
5 | puts "" |
6 | ################################################################# |
7 | ## Exception while segment operation. |
8 | ################################################################# |
9 | |
10 | restore [locate_data_file OCC303a.brep] sh1 |
11 | |
12 | explode sh1 e |
13 | |
14 | mkcurve c5 sh1_5 |
15 | trim result c5 |
16 | |
17 | if [catch {segment result 22.07126804854423 23.6320483505636} catch_result] { |
18 | puts "Faulty OCC303 (case 1): function SEGMENT works wrongly" |
19 | } else { |
20 | puts "OCC303 OK (case 1): function SEGMENT works properly" |
21 | } |
22 | |
5747059b |
23 | checkview -display result -2d -path ${imagedir}/${test_image}.png |