5 ###########################################################
6 # Edges disappear or reappear when displaying new edges
7 ###########################################################
9 vinit View1 w=1024 h=1024
14 set scale 0.086865724500890112
27 vviewparams -scale $scale -eye $vpeyex $vpeyey $vpeyez -at $vpatx $vpaty $vpatz -up $vpupx $vpupy $vpupz -proj $vpprojx $vpprojy $vpprojz
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]
42 puts "$i: $x $ya $yb $z"
46 puts "Start test lines"
49 checkcolor 804 483 1 0 0
50 checkcolor 860 500 1 0 0