1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
puts "===================================================================="
puts "OCC28162: Draw Harness - eliminate usage of deprecated Local Context"
puts "Select 1 or 2 circled edges"
puts "===================================================================="
vclear
vinit
pcylinder c 15 30
vdisplay c
vfit
# Create relation from 1 selected circled edge.
vselmode c 2 1
vselect 205 174
vrelation r1 -equalradius
vdump $imagedir/${casename}_1.png
# Create relation from 2 selected circled edges.
vremove r1
vselect 205 377
set shift 1
vselect 205 174 $shift
vrelation r2 -equalradius
vdump $imagedir/${casename}_2.png
|
