From 3c1304bf71b22ad53b43818652bcbb2027154ca1 Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Thu, 30 Jul 2015 13:08:26 +0300
Subject: [PATCH] 0026447: Performance degradation intersecting cylindrical
 surfaces

Added test case bugs/modalg_6/bug26447
---
 tests/bugs/modalg_6/bug26447 | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 tests/bugs/modalg_6/bug26447

diff --git a/tests/bugs/modalg_6/bug26447 b/tests/bugs/modalg_6/bug26447
new file mode 100644
index 0000000000..8aae157bbf
--- /dev/null
+++ b/tests/bugs/modalg_6/bug26447
@@ -0,0 +1,34 @@
+puts "============"
+puts "OCC26447"
+puts "============"
+puts ""
+##############################################################
+# Performance degradation intersecting cylindrical surfaces
+#############################################################
+
+cylinder c1 0 0 0 1 0 0 0 -1 0 100
+cylinder c2 0 0 0 0 1 0 1 0 0 100
+mkface f1 c1
+mkface f2 c2
+
+dchrono cr reset
+dchrono cr start
+
+for {set i 1} {$i <= 1000} {incr i} {
+  bopcurves f1 f2
+}
+
+dchrono cr stop
+if { [string compare $tcl_platform(platform) "windows"] == 0 } {
+  set max_time 7.5
+} else {
+  set max_time 4.5
+}
+set TimeList [dchrono cr show]
+regexp {Elapsed time: [-0-9.+eE]+ Hours [-0-9.+eE]+ Minutes ([-0-9.+eE]+) Seconds} $TimeList full ElapsedTime_sec
+
+if { ${ElapsedTime_sec} > ${max_time} } {
+  puts "Error: Elapsed time of intersecting is more than ${max_time} seconds"
+} else {
+  puts "OK: Elapsed time of intersecting is less than ${max_time} seconds"
+}