mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
37 lines
798 B
Plaintext
Executable File
37 lines
798 B
Plaintext
Executable File
puts "================"
|
|
puts "OCC23244"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################################
|
|
# Bug of BRepClass_FaceClassifier: it does not take into account the tolerance
|
|
#######################################################################
|
|
|
|
set BugNumber OCC23244
|
|
|
|
restore [locate_data_file OCC23244-comp.brep] a
|
|
|
|
explode a
|
|
explode a_1
|
|
|
|
smallview
|
|
donly a_1_2 a_3
|
|
fit
|
|
|
|
mkpoint p3 a_3
|
|
projponf a_1_2 p3
|
|
point pp3 69.220445243320853 1216.6123701316949
|
|
|
|
set result [split [b2dclassify a_1_2 pp3 1.e-5] ]
|
|
|
|
set ll [llength ${result}]
|
|
if {${ll} < 4} {
|
|
puts "Bad format of bclassify draw-command; Faulty ${BugNumber}"
|
|
} else {
|
|
if { [regexp "ON" $result] == 1 } {
|
|
puts "OK ${BugNumber}"
|
|
} else {
|
|
puts "Faulty ${BugNumber}"
|
|
}
|
|
}
|
|
|