From 67680042bc8895f1d7679138b5c17b29d517e6c1 Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Thu, 16 Apr 2015 13:08:51 +0300
Subject: [PATCH] 0021821: Section of face by plane is not built due to small
 edges

Added test case bugs/modalg_6/bug21821
---
 tests/bugs/modalg_6/begin    | 20 ++++++++++++++++++++
 tests/bugs/modalg_6/bug21821 | 22 ++++++++++++++++++++++
 2 files changed, 42 insertions(+)
 create mode 100644 tests/bugs/modalg_6/begin
 create mode 100644 tests/bugs/modalg_6/bug21821

diff --git a/tests/bugs/modalg_6/begin b/tests/bugs/modalg_6/begin
new file mode 100644
index 0000000000..f40c35f0a3
--- /dev/null
+++ b/tests/bugs/modalg_6/begin
@@ -0,0 +1,20 @@
+set subgroup modalg
+
+set calcul "p"
+set type "i"
+
+proc OFFSETSHAPE {distance faces calcul type} {
+        uplevel #0 explode s f
+        uplevel #0 offsetparameter 1e-7 $calcul $type
+        uplevel #0 offsetload s $distance $faces
+        uplevel #0 offsetperform result
+}
+
+
+
+
+
+
+
+
+
diff --git a/tests/bugs/modalg_6/bug21821 b/tests/bugs/modalg_6/bug21821
new file mode 100644
index 0000000000..7d45cd579d
--- /dev/null
+++ b/tests/bugs/modalg_6/bug21821
@@ -0,0 +1,22 @@
+puts "=========="
+puts "OCC21821"
+puts "=========="
+puts ""
+############################################################
+# Section of face by plane is not built due to small edges
+############################################################
+
+restore [locate_data_file bug21821_plane_tailtop.brep] a
+
+plane p 28.85 0 0 1 0 0
+mkface f p -10 10 -10 10
+bsection result a f
+
+set length 2.95277
+smallview
+clear
+display result
+display f
+display a
+fit
+set only_screen_axo 1