tests/bugs/vis/bug26035_6

   1 puts "============"
   2 puts "CR26035"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 #  Drawing dimension between point and edge
   7 #######################################################################
   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
  21
  22 vfit
  23
  24 set only_screen 1
  25