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