From bf3220cfc5e38a566dc714da3f4d080935613904 Mon Sep 17 00:00:00 2001
From: bugmaster <bugmaster@opencascade.com>
Date: Tue, 16 Aug 2016 13:58:32 +0300
Subject: [PATCH] 0008040: Offset direction is wrong for a closed circle Adding
 testing case

---
 tests/bugs/modalg_6/bug8040 | 39 +++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 tests/bugs/modalg_6/bug8040

diff --git a/tests/bugs/modalg_6/bug8040 b/tests/bugs/modalg_6/bug8040
new file mode 100644
index 0000000000..550f54852c
--- /dev/null
+++ b/tests/bugs/modalg_6/bug8040
@@ -0,0 +1,39 @@
+puts "============"
+puts "OCC8040"
+puts "============"
+puts ""
+##################################
+#  Offset direction is wrong for a closed circle
+##################################
+
+circle c 1 0 0 20
+offset c1 c 10 0 0 1
+offset c2 c -10 0 0 1
+checklength c -l 125.66370614359172
+checklength c1 -l 188.49555921538757
+checklength c2 -l 62.831853071795862
+
+mkedge e c
+mkedge e1 c1
+mkedge e2 c2
+vertex v1 0 35 0
+vertex v2 0 -35 0
+edge e3 v1 v2
+set index 0
+set number_of_vertex 0
+foreach s {e e1 e2} {
+set index [expr $index + 1 ]
+bop $s e3
+bopsection result$index
+regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result$index] full nbv
+set number_of_vertex [expr $number_of_vertex + $nbv]
+puts "number_of_vertex = $number_of_vertex" 
+}
+
+if { $number_of_vertex != 6 } { puts "Error : Section is incorrect" }
+
+smallview
+fit
+
+checkview -screenshot -2d -path ${imagedir}/${test_image}.png
+
-- 
2.39.5