0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug25853
1 puts "=========="
2 puts "OCC25853"
3 puts "=========="
4 puts ""
5 ###########################################################
6 # Edges disappear or reappear when displaying new edges
7 ###########################################################
8
9 vinit View1 w=1024 h=1024
10 vsetdispmode View1 1
11 vclear
12
13 #vtop
14 set scale 0.086865724500890112
15 set vpprojx 0.0
16 set vpprojy 0.0
17 set vpprojz 1.0
18 set vpupx 0.0
19 set vpupy 1.0
20 set vpupz 0.0
21 set vpatx 4995
22 set vpaty 500
23 set vpatz 0
24 set vpeyex 4995
25 set vpeyey 500
26 set vpeyez 0.0001
27 vviewparams -scale $scale -eye $vpeyex $vpeyey $vpeyez -at $vpatx $vpaty $vpatz -up $vpupx $vpupy $vpupz -proj $vpprojx $vpprojy $vpprojz
28
29 set NB 1000
30
31 proc draw_lines {{distance 10.0}} {
32   # set colors to corner spheres
33   for {set i 0} {$i < $::NB} {incr i} {
34     set x [expr $i * $distance]
35     set ya 0.0
36     set yb 1000.0
37     set z 0.0
38     vertex v1 $x $ya $z
39     vertex v2 $x $yb $z
40     edge e$i v1 v2
41     vdisplay -update e$i
42     puts "$i: $x $ya $yb $z"
43   }
44 }
45
46 puts "Start test lines"
47 draw_lines 10.0
48
49 checkcolor 804 483 1 0 0
50 checkcolor 860 500 1 0 0
51
52 checkview -screenshot -3d -path ${imagedir}/${test_image}.png