44b47a9a |
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 | |
5747059b |
52 | checkview -screenshot -3d -path ${imagedir}/${test_image}.png |