404c8936 |
1 | puts "====================================================================" |
2 | puts "OCC28162: Draw Harness - eliminate usage of deprecated Local Context" |
3 | puts "Select 2 faces" |
4 | puts "====================================================================" |
5 | |
6 | vclear |
7 | vinit |
8 | |
9 | box b -5 -10 -15 10 20 30 |
10 | vdisplay b |
11 | vfit |
12 | |
13 | set shift 1 |
14 | |
15 | vselmode b 4 1 |
16 | vselect 100 200 |
17 | vlocation b -rotate 0 0 0 0 0 1 180 |
18 | vselect 100 200 $shift |
19 | |
20 | vrelation r -offset |
21 | |
22 | vdump $imagedir/${casename}.png |