! test_ln_dist_ln.mac

clear_start_new

/prep7

csys,0

k,,1,1,1
k,,2,1,1
k,,1,2,1

! CSKP, KCN, KCS, PORIG, PXAXS, PXYPL
cskp,20,cart,1,2,3

k,1,1
k,2,2
!k,3,.5
!k,4,.5,0,1
k,3,.5,.5
k,4,.5,.5,1

l,1,2
l,3,4

!csys,0
clocal,21,2,0,0,0


ln_dist_ln,1,2

*msg,ui,dist_,xi_,yi_,zi_
Distance = %g %/&
(x, y, z) = %g, %g, %g

lplot
/view, 1,  0.386539339500    ,  0.448941114014    ,  0.805629701021
/ang,  1,   5.07107321810
/replo
entity_numbers
numbers_toggle,1
/dist, 1 ,1.371742,1
/rep,fast