3bea4c16 |
1 | puts "================" |
2 | puts "OCC22968" |
3 | puts "================" |
4 | puts "" |
5 | ###################################################################################### |
6 | # RebuildShape exchanges 2d-curves |
7 | ###################################################################################### |
8 | |
9 | set BugNumber OCC22968 |
10 | |
11 | pload XDE |
12 | |
13 | restore [locate_data_file OCC22968-cylface.brep] a |
14 | checkshape a f |
15 | removeloc result a |
16 | set info [ checkshape result f ] |
17 | |
18 | if { [regexp {The Shape result looks OK} $info] } { |
19 | puts "OK ${BugNumber}" |
20 | } else { |
21 | puts "Faulty ${BugNumber}" |
22 | } |
23 | |
24 | set square 3141.59 |
25 | set 2dviewer 0 |
26 | |
27 | |
28 | |