From 4b1a240135ae67222f8dc13f3e848bb54d1b8ad9 Mon Sep 17 00:00:00 2001
From: emv <emv@opencascade.com>
Date: Fri, 22 Sep 2017 10:34:29 +0300
Subject: [PATCH] 0028763: Projection of a short line segment on a polar
 surface causes exception

Test case for the issue.
The problem has been fixed by the fix for the issue 0028150
---
 tests/bugs/modalg_7/bug28763 | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 tests/bugs/modalg_7/bug28763

diff --git a/tests/bugs/modalg_7/bug28763 b/tests/bugs/modalg_7/bug28763
new file mode 100644
index 0000000000..803e90f229
--- /dev/null
+++ b/tests/bugs/modalg_7/bug28763
@@ -0,0 +1,18 @@
+puts "======="
+puts "0028763"
+puts "======="
+puts ""
+##################################################
+# Projection of a short line segment on a polar surface causes exception
+##################################################
+
+beziersurf s 2 2 0 0 0 0 1 0 1 0 0 1 1 0
+line c 0 0 0 1 1 0
+trim c c 0 1e-6
+project result c s
+
+if {![regexp "Trimmed curve" [dump result]]} {
+  puts "Error: Projection not done"
+}
+
+checklength result -l 1.e-6