From 432a8df015dbe90828ca7f4d97a150a45aa880d7 Mon Sep 17 00:00:00 2001
From: mkv <mkv@opencascade.com>
Date: Wed, 8 Oct 2014 20:05:06 +0400
Subject: [PATCH] 0024127: Mesh generated with BRepMesh_FastDiscret does not
 reflect a deflection setting \n Test case for issue CR24127

---
 tests/bugs/mesh/bug24127 | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100755 tests/bugs/mesh/bug24127

diff --git a/tests/bugs/mesh/bug24127 b/tests/bugs/mesh/bug24127
new file mode 100755
index 0000000000..c8b4979764
--- /dev/null
+++ b/tests/bugs/mesh/bug24127
@@ -0,0 +1,39 @@
+puts "================"
+puts "CR24127"
+puts "================"
+puts ""
+###############################################
+## Mesh generated with BRepMesh_FastDiscret does not reflect a deflection setting
+###############################################
+
+bsplinesurf s 2 4 0.0 3 0.34 1 0.67 1 1.0 3 1 2 0.0 2 1.0 2 10 0 0 1 6 0 0 1 4 0 0 1 2 0 0 1 0 0 0 1 10 5 0 1 6 5 0 1 4 5 0 1 1.5 9 0 1 0 5 0 1
+
+mkface f s
+
+incmesh f 1
+
+trinfo f
+
+set trinfo_s [trinfo f]
+regexp {([0-9]+) triangles} ${trinfo_s} str nbtri_s
+regexp {([0-9]+) nodes} ${trinfo_s} str nbnod_s
+regexp {deflection ([0-9.+e-]+)} ${trinfo_s} str defl_s
+
+if { ${nbtri_s} != 90 } {
+   puts "Error: triangle number is bad"
+}
+
+if { ${nbnod_s} != 54 } {
+   puts "Error: node number is bad"
+}
+
+set expected_defl_s 0.59663444648536101
+set tol_abs_defl_s 1.e-3
+set tol_rel_defl_s 0.01
+checkreal "Deflection" ${defl_s} ${expected_defl_s} ${tol_abs_defl_s} ${tol_rel_defl_s}
+
+vinit
+vdisplay f
+vfit
+
+set only_screen 1