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 #######################################################################
14 restore [locate_data_file OCC278c.brep] a
18 set che [checkshape result]
21 if { [regexp "Faulty" $che] != 1 } {
22 puts "Error (case 3) : Checkshape command works wrongly"