404c8936 |
1 | puts "====================================================================" |
2 | puts "OCC28162: Draw Harness - eliminate usage of deprecated Local Context" |
3 | puts "Select 2 edges" |
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 | # Create a parallel relation from 2 edges. |
16 | vselmode b 2 1 |
17 | vselect 87 170 |
18 | vselect 165 170 $shift |
19 | |
20 | vrelation r -parallel |
21 | vzoom 0.5 |
22 | |
23 | vdump $imagedir/${casename}_edges.png |