tests/bugs/vis/bug23654_MarkersRecompute

   1 puts "========"
   2 puts "OCC23654 Markers recompute"
   3 puts "========"
   4
   5 pload VISUALIZATION
   6 vcaps -sprites
   7 source $env(CSF_OCCTSamplesPath)/tcl/markers.tcl
   8
   9 set anImage1 $imagedir/${casename}_1.png
  10 set anImage2 $imagedir/${casename}_2.png
  11
  12 vdump $anImage1
  13
  14 vclose Driver1/Viewer1/View1 1
  15
  16 vinit name=View1 l=32 t=32 w=512 h=512
  17 vactivate Driver1/Viewer1/View1
  18 vbottom
  19 vdisplay -noupdate b
  20 vfit
  21 vremove b
  22
  23 vdump $anImage2