puts "============"
puts "CR26035: Dimension drawing between two vertices"
puts "============"
puts ""

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

vinit View1
vclear
vaxo

vertex v1 10 0 0
vertex v2 10 0 10

vdimension len -length -shapes v1 v2 -plane yoz -font SansFont

vfit
vdump $imagedir/${casename}.png