d17a3902cbca5f1504ec00e37554a2900b916e74
[occt.git] / tests / v3d / dimensions / equaldistance
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