OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
Code Packages Releases Activity

0025853: Edges disappear or reappear when displaying new edges

Browse Source 
Added test case bugs/vis/bug25853
This commit is contained in:
apn 2015-03-03 13:35:57 +03:00 committed by bugmaster
parent d2094e110f
commit 44b47a9a7e
1 changed files with 52 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
tests/bugs/vis/bug25853 Normal file
View File

@ -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