52f99d93 |
1 | puts "============" |
2 | puts "erase" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################### |
6 | # Tests erasing of shapes in the IVtk view |
7 | ####################################################### |
8 | |
9 | set anImage1 $imagedir/${casename}_before.png |
10 | set anImage2 $imagedir/${casename}_oneErased.png |
11 | set anImage3 $imagedir/${casename}_allErased.png |
12 | |
13 | ivtkinit |
14 | box b1 1 1 1 |
15 | box b2 3 3 3 1 1 1 |
16 | ivtkdisplay b1 b2 |
17 | ivtkdump $anImage1 |
18 | |
19 | ivtkerase b1 |
20 | ivtkdump $anImage2 |
21 | |
22 | ivtkdisplay b1 |
23 | ivtkerase |
24 | ivtkdump $anImage3 |