tests/v3d/bugs/bug25853

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