puts "========" puts "OCC23654 Markers recompute" puts "========" pload VISUALIZATION vcaps -sprites source $env(CSF_OCCTSamplesPath)/tcl/markers.tcl set anImage1 $imagedir/${casename}_1.png set anImage2 $imagedir/${casename}_2.png vdump $anImage1 vclose Driver1/Viewer1/View1 1 vinit name=View1 l=32 t=32 w=512 h=512 vactivate Driver1/Viewer1/View1 vbottom vdisplay -noupdate b vfit vremove b vdump $anImage2