Commit | Line | Data |
---|---|---|
a87752f3 | 1 | puts "========================" |
2 | puts " OCC327 " | |
3 | puts " case 3 " | |
4 | puts "========================" | |
5 | ||
6 | restore [locate_data_file OCC327c.brep] result | |
7 | ||
8 | set che [checkshape result r] | |
9 | if { [regexp {OK} $che] == 1 } { | |
10 | puts " OCC327 case 3: OK" | |
11 | } else { | |
12 | puts " OCC327 case 3: Faulty" | |
13 | } | |
14 | ||
15 | set square 61013.8 | |
16 | set 2dviewer 0 |