0e94a94e |
1 | |
2 | puts "========================" |
3 | puts " OCC298 " |
4 | puts "========================" |
5 | puts "" |
6 | ################################################################# |
7 | ## Exception during "tcopy" command |
8 | ################################################################# |
9 | |
10 | restore [locate_data_file OCC298.brep] result |
11 | puts [checkshape result] |
12 | |
13 | if [catch {tcopy result a } result] { |
14 | puts "Faulty OCC298: function TCOPY works wrongly" |
15 | } else { |
16 | puts "OCC298 OK: function TCOPY works properly" |
17 | } |
18 | |
19 | set square 8e+100 |
20 | set 2dviewer 0 |
21 | |