404c8936 |
1 | puts "====================================================================" |
2 | puts "OCC28162: Draw Harness - eliminate usage of deprecated Local Context" |
3 | puts "Select 4 edges or vertices" |
4 | puts "====================================================================" |
5 | |
6 | vclear |
7 | vinit |
8 | |
9 | box b 10 20 30 |
10 | vdisplay b |
11 | vfit |
12 | set shift 1 |
13 | |
14 | # Create an equaldistance relation from 4 edges. |
15 | vselmode b 2 1 |
16 | vselect 123 112 |
17 | vselect 280 23 $shift |
18 | vselect 123 382 $shift |
19 | vselect 280 293 $shift |
20 | |
21 | vrelation r4edges -equaldistance |
22 | vzoom 0.5 |
23 | |
24 | vdump $imagedir/${casename}_edges.png |
25 | |
26 | # Create an equaldistance relation from 4 vertices. |
27 | vremove r4edges |
28 | vfit |
29 | |
30 | vselect 0 0 |
31 | vselmode b 2 0 |
32 | vselmode b 1 1 |
33 | |
34 | vselect 75 0 335 140 |
35 | vrelation r4vertices -equaldistance |
36 | vzoom 0.5 |
37 | |
38 | vdump $imagedir/${casename}_vertices.png |