puts "============"
puts "CR26035: Drawing dimension between point and edge"
puts "============"
puts ""

pload MODELING VISUALIZATION
vfont add [locate_data_file DejaVuSans.ttf] SansFont

vinit View1
vclear
vaxo

vertex v1 10 -10 0
vertex v2 10 10 0
edge e v1 v2
vdisplay e

vpoint p 10 0 10

vdimension len -length -shapes p e -plane yoz -font SansFont

vfit
vdump $imagedir/${casename}.png