0025737: GCPnts_TangentialDeflection does not produce points to approximate a knee
authormkv <mkv@opencascade.com>
Wed, 6 May 2015 15:45:31 +0000 (18:45 +0300)
committerabv <abv@opencascade.com>
Fri, 8 May 2015 05:51:42 +0000 (08:51 +0300)
tests/bugs/moddata_3/bug25737_1 [new file with mode: 0755]
tests/bugs/moddata_3/bug25737_2 [new file with mode: 0755]

diff --git a/tests/bugs/moddata_3/bug25737_1 b/tests/bugs/moddata_3/bug25737_1
new file mode 100755 (executable)
index 0000000..3e353dd
--- /dev/null
@@ -0,0 +1,32 @@
+puts "============"
+puts "CR25737"
+puts "============"
+puts ""
+###################################################################################
+# GCPnts_TangentialDeflection does not produce points to approximate a knee
+###################################################################################
+
+restore [locate_data_file bug25737_face3535.brep] result
+
+tclean result
+incmesh result 1 -a 20
+
+isos result 0
+
+triangles result
+
+set report [tricheck result]
+if {$report != ""} {
+  puts "Error : Problem of build a mesh"
+} else {
+  puts "OK : Building a mesh is good"
+}
+
+# Checking triangulation area (triarea command)...
+set rel_tol 1
+set area_eps 0
+
+smallview
+donly result
+fit
+set only_screen_axo 1
diff --git a/tests/bugs/moddata_3/bug25737_2 b/tests/bugs/moddata_3/bug25737_2
new file mode 100755 (executable)
index 0000000..c70c883
--- /dev/null
@@ -0,0 +1,38 @@
+puts "============"
+puts "CR25737"
+puts "============"
+puts ""
+###################################################################################
+# GCPnts_TangentialDeflection does not produce points to approximate a knee
+###################################################################################
+
+restore [locate_data_file bug25737_face3535.brep] a
+
+explode a e
+mkcurve c a_1
+
+smallview
+donly a_1
+fit
+
+set deflection 1.
+set angular_deflection 0.349
+set info [crvtpoints r c ${deflection} ${angular_deflection}]
+
+set str1 "Nb points +: +(\[-0-9.+eE\]+)\n"
+set str2 "Max defl: +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+) +(\[-0-9.+eE\]+)"
+
+regexp "${str1}${str2}" ${info} full Nb dmax ufmax ulmax i
+
+#-1
+set min_Nb 7
+if { ${Nb} < ${min_Nb} } {
+    puts "Error : bad value of Nb points=${Nb}"
+}
+
+#-2
+if { ${dmax} > ${deflection} } {
+    puts "Error : bad value of deflection=${dmax}"
+}
+
+set only_screen_axo 1