352ffd73 |
1 | puts "TODO OCC12345 ALL: Error : OCC537" |
2 | |
3 | puts "=======" |
4 | puts "OCC537" |
5 | puts "=======" |
6 | puts "" |
7 | ####################################################################### |
8 | ##Application do something in intersection operation for long time and eat much memory (This may be the |
9 | ## reason of BUS ERROR that happens in application). Intersection operation invokes for conical and plane |
10 | ## surfaces. |
11 | ####################################################################### |
12 | |
13 | restore [locate_data_file OCC537_CONE.draw] c |
14 | restore [locate_data_file OCC537_PLANE.draw] p |
15 | |
16 | intersect result c p |
17 | |
18 | set wt_is [whatis result] |
19 | |
20 | if { [regexp {WIRE} ${wt_is}] } { |
21 | puts " OCC537 OK" |
22 | } else { |
23 | puts "Error : OCC537" |
24 | } |
25 | |
5747059b |
26 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
352ffd73 |
27 | |