0e94a94e |
1 | |
2 | puts "========" |
3 | puts "OCC278" |
4 | puts " (case 3)" |
5 | puts "========" |
6 | |
7 | ###################################################################### |
8 | ##Command "checkshape" does not define self-crossing for some wires and assigns status "valid" for them. |
9 | ## NOTE akm: there is no actual intersection - it was a bug in displaying complicated curves (my patch deals with it) |
10 | ## NOTE akm: wire alone is only a curve in the space so it may intersect itself. |
11 | ## NOTE akm: bug after putting it on plane checkshape found the pb. |
12 | ####################################################################### |
13 | |
14 | restore [locate_data_file OCC278c.brep] a |
15 | |
16 | mkplane result a |
17 | decho off |
18 | set che [checkshape result] |
19 | decho on |
20 | |
21 | if { [regexp "Faulty" $che] != 1 } { |
22 | puts "Error (case 3) : Checkshape command works wrongly" |
23 | } |
24 | |
0e94a94e |
25 | set square 43.3075 |
26 | set 2dviewer 0 |