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