| 1 | |
| 2 | puts "========" |
| 3 | puts "OCC278" |
| 4 | puts " (case 2)" |
| 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 OCC278b.brep] a |
| 15 | |
| 16 | mkplane result a |
| 17 | puts [checkshape result] |
| 18 | |
| 19 | set check_square 1 |
| 20 | set square 22740 |
| 21 | set 2dviewer 0 |