From 44b47a9a7ef5e84642f34065d6aa7ad68e0e7b85 Mon Sep 17 00:00:00 2001
From: apn <apn@opencascade.com>
Date: Tue, 3 Mar 2015 13:35:57 +0300
Subject: [PATCH] 0025853: Edges disappear or reappear when displaying new
edges
Added test case bugs/vis/bug25853
---
tests/bugs/vis/bug25853 | 52 +++++++++++++++++++++++++++++++++++++++++
1 file changed, 52 insertions(+)
create mode 100644 tests/bugs/vis/bug25853
diff --git a/tests/bugs/vis/bug25853 b/tests/bugs/vis/bug25853
new file mode 100644
index 0000000000..97ca336de6
--- /dev/null
+++ b/tests/bugs/vis/bug25853
@@ -0,0 +1,52 @@
+puts "=========="
+puts "OCC25853"
+puts "=========="
+puts ""
+###########################################################
+# Edges disappear or reappear when displaying new edges
+###########################################################
+
+vinit View1 w=1024 h=1024
+vsetdispmode View1 1
+vclear
+
+#vtop
+set scale 0.086865724500890112
+set vpprojx 0.0
+set vpprojy 0.0
+set vpprojz 1.0
+set vpupx 0.0
+set vpupy 1.0
+set vpupz 0.0
+set vpatx 4995
+set vpaty 500
+set vpatz 0
+set vpeyex 4995
+set vpeyey 500
+set vpeyez 0.0001
+vviewparams -scale $scale -eye $vpeyex $vpeyey $vpeyez -at $vpatx $vpaty $vpatz -up $vpupx $vpupy $vpupz -proj $vpprojx $vpprojy $vpprojz
+
+set NB 1000
+
+proc draw_lines {{distance 10.0}} {
+ # set colors to corner spheres
+ for {set i 0} {$i < $::NB} {incr i} {
+ set x [expr $i * $distance]
+ set ya 0.0
+ set yb 1000.0
+ set z 0.0
+ vertex v1 $x $ya $z
+ vertex v2 $x $yb $z
+ edge e$i v1 v2
+ vdisplay -update e$i
+ puts "$i: $x $ya $yb $z"
+ }
+}
+
+puts "Start test lines"
+draw_lines 10.0
+
+checkcolor 804 483 1 0 0
+checkcolor 860 500 1 0 0
+
+set only_screen 1