mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-05 11:24:17 +03:00
28 lines
843 B
Plaintext
Executable File
28 lines
843 B
Plaintext
Executable File
|
|
puts "========"
|
|
puts "OCC278"
|
|
puts " (case 3)"
|
|
puts "========"
|
|
|
|
######################################################################
|
|
##Command "checkshape" does not define self-crossing for some wires and assigns status "valid" for them.
|
|
## NOTE akm: there is no actual intersection - it was a bug in displaying complicated curves (my patch deals with it)
|
|
## NOTE akm: wire alone is only a curve in the space so it may intersect itself.
|
|
## NOTE akm: bug after putting it on plane checkshape found the pb.
|
|
#######################################################################
|
|
|
|
restore [locate_data_file OCC278c.brep] a
|
|
|
|
mkplane result a
|
|
decho off
|
|
set che [checkshape result]
|
|
decho on
|
|
|
|
if { [regexp "Faulty" $che] != 1 } {
|
|
puts "Error (case 3) : Checkshape command works wrongly"
|
|
}
|
|
|
|
set check_square 1
|
|
set square 43.3075
|
|
set 2dviewer 0
|