tests/v3d/dimensions/bug26035_6

   1 puts "============"
   2 puts "CR26035: Drawing dimension between point and edge"
   3 puts "============"
   4 puts ""
   5
   6 pload MODELING VISUALIZATION
   7 vfont add [locate_data_file DejaVuSans.ttf] SansFont
   8
   9 vinit View1
  10 vclear
  11 vaxo
  12
  13 vertex v1 10 -10 0
  14 vertex v2 10 10 0
  15 edge e v1 v2
  16 vdisplay e
  17
  18 vpoint p 10 0 10
  19
  20 vdimension len -length -shapes p e -plane yoz -font SansFont
  21
  22 vfit
  23 vdump $imagedir/${casename}.png