1 puts "===================================================================="
2 puts "OCC28162: Draw Harness - eliminate usage of deprecated Local Context"
3 puts "Select 2 edges or vertices"
4 puts "===================================================================="
6 pload MODELING VISUALIZATION
16 # Create an identic relation from 2 edges.
22 vselect 165 170 $shift
24 vrelation redges -identic
26 vdump $imagedir/${casename}_edges.png
28 # Create an identic relation from 2 vertices.
33 vselect 160 130 170 140
34 vselect 240 0 250 10 $shift
36 vrelation rvertices -identic
38 vdump $imagedir/${casename}_vertices.png