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 pload MODELING VISUALIZATION
   7 vclear
   8 vinit View1
   9
  10 box b 10 20 30
  11 vdisplay b
  12 vfit
  13 set shift 1
  14
  15 # Create an equaldistance relation from 4 edges.
  16 vselmode b 2 1
  17 vselect 123 112
  18 vselect 280 23 $shift
  19 vselect 123 382 $shift
  20 vselect 280 293 $shift
  21
  22 vrelation r4edges -equaldistance
  23 vzoom 0.5
  24
  25 vdump $imagedir/${casename}_edges.png
  26
  27 # Create an equaldistance relation from 4 vertices.
  28 vremove r4edges
  29 vfit
  30
  31 vselect 0 0
  32 vselmode b 2 0
  33 vselmode b 1 1
  34
  35 vselect 75 0 335 140
  36 vrelation r4vertices -equaldistance
  37 vzoom 0.5
  38
  39 vdump $imagedir/${casename}_vertices.png