tests/v3d/dimensions/equalradius

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