0028162: Draw Harness - eliminate usage of deprecated Local Context
[occt.git] / tests / v3d / dimensions / identic
1 puts "===================================================================="
2 puts "OCC28162: Draw Harness - eliminate usage of deprecated Local Context"
3 puts "Select 2 edges or vertices"
4 puts "===================================================================="
5
6 vclear
7 vinit
8
9 box b 10 20 30
10 vdisplay b
11 vfit
12
13 set shift 1
14
15 # Create an identic relation from 2 edges.
16 #vremove rfaces
17 vselmode b 4 0
18 vselmode b 2 1
19
20 vselect 87 170
21 vselect 165 170 $shift
22
23 vrelation redgess -identic
24
25 vdump $imagedir/${casename}_edges.png
26
27 # Create an identic relation from 2 vertices.
28 vremove redges
29 vselmode b 2 0
30 vselmode b 1 1
31
32 vselect 160 130 170 140
33 vselect 240 0 250 10 $shift
34
35 vrelation rvertices -identic
36
37 vdump $imagedir/${casename}_vertices.png