0e94a94e |
1 | |
2 | puts "=========" |
3 | puts "BUC61006" |
4 | puts "=========" |
5 | puts "" |
6 | ######################################################### |
7 | ## Checkshape says that face is valid but it inludes selfintersecting wire. |
8 | ######################################################### |
9 | |
10 | restore [locate_data_file buc61006.brep] result |
11 | decho off |
12 | set ch [checkshape result] |
13 | decho on |
14 | |
15 | if {![string compare $ch "This shape seems to be valid"]} { |
16 | puts "Error : the checkshape command returns incorrect result." |
17 | } |
18 | |
19 | set 2dviewer 0 |
20 | |