tests/v3d/dimensions/identic

   1 puts "===================================================================="
   2 puts "OCC28162: Draw Harness - eliminate usage of deprecated Local Context"
   3 puts "Select 2 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
  14 set shift 1
  15
  16 # Create an identic relation from 2 edges.
  17 #vremove rfaces
  18 vselmode b 4 0
  19 vselmode b 2 1
  20
  21 vselect 87 170
  22 vselect 165 170 $shift
  23
  24 vrelation redges -identic
  25
  26 vdump $imagedir/${casename}_edges.png
  27
  28 # Create an identic relation from 2 vertices.
  29 vremove redges
  30 vselmode b 2 0
  31 vselmode b 1 1
  32
  33 vselect 160 130 170 140
  34 vselect 240 0 250 10 $shift
  35
  36 vrelation rvertices -identic
  37
  38 vdump $imagedir/${casename}_vertices.png