0028162: Draw Harness - eliminate usage of deprecated Local Context
[occt.git] / tests / v3d / dimensions / parallel
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