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