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