Commit | Line | Data |
---|---|---|
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 |