mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
26 lines
717 B
Plaintext
26 lines
717 B
Plaintext
puts "========"
|
|
puts "OCC28690"
|
|
puts "========"
|
|
puts ""
|
|
##########################################
|
|
## Section algorithm produces micro edge
|
|
##########################################
|
|
|
|
restore [locate_data_file bug28690_m8_faces.brep] a
|
|
ttranslate a -20000 -584.41225425562368 0
|
|
plane f 0 0 0 1 0 0
|
|
mkface f f
|
|
bsection r a f
|
|
checknbshapes r -edge 3 -vertex 4
|
|
checkshape r
|
|
checkprops r -l 594.045
|
|
|
|
# check that all edges have enough length
|
|
foreach e [explode r] {
|
|
if {[validrange $e] == "edge has no valid range"} {
|
|
regexp {Mass : *([0-9\-+.eE]+)} [lprops $e] dummy len
|
|
regexp {Tolerance MAX=([0-9\-+.eE]+)} [tolerance $e] dummy tol
|
|
puts "Error: edge $e (length=$len, tolerance=$tol) is too small"
|
|
}
|
|
}
|