0024809: Exception is raised during perform of "bfillds" command on attached shape

On attached shape command "bfillds -s" hangs in Test Harness on the long time. In debug mode exception is raised.
Vectors are normalized before calculation of an angle.
Added test case bugs/modalg_5/bug24809

diff --git a/tests/bugs/modalg_5/bug24809 b/tests/bugs/modalg_5/bug24809
new file mode 100644 (file)
index 0000000..444147a
--- /dev/null
+++ b/tests/bugs/modalg_5/bug24809
@@ -0,0 +1,18 @@
+puts "========="
+puts "OCC24809"
+puts "========="
+puts ""
+##############################################################################
+# Exception is raised during perform of "bfillds" command on attached shape
+##############################################################################
+
+restore [locate_data_file bug24809_test3.brep] b
+
+bclearobjects
+bcleartools
+set shapes [explode b f]
+set nbs [llength $shapes]
+for {set i 1} {$i <= $nbs} {incr i} {
+  baddobjects b_$i
+}
+bfillds -s