rem Vectors: from here to there - OpenDBC tutorial (DarkBASIC Professional)
sync on : sync rate 60
autocam off
color backdrop rgb(14, 16, 28)

r = make vector3(1)  : rem the chaser
r = make vector3(2)  : rem the target
r = make vector3(3)  : rem from the chaser to the target
make object cone 1, 6 : color object 1, rgb(255, 120, 60)
make object sphere 2, 6 : color object 2, rgb(90, 220, 255)
position camera 0, 55, -60
point camera 0, 0, 0

do
   t = wrapvalue(t + 1)
   set vector3 2, sin(t) * 40, 0, cos(t) * 20
   position object 2, x vector3(2), y vector3(2), z vector3(2)

   subtract vector3 3, 2, 1        : rem v3 = v2 - v1
   distance# = length vector3(3)
   normalize vector3 3, 3
   multiply vector3 3, 0.8
   add vector3 1, 1, 3             : rem v1 = v1 + v3
   position object 1, x vector3(1), y vector3(1), z vector3(1)

   text 10, 10, "Distance: " + str$(distance#, 1)
   sync
loop