!This file is part of VEL_demo, copyright David Keyes, 2007. 
    !
    !This source file is free software: you can redistribute it and/or modify
    !it under the terms of the GNU General Public License as published by
    !the Free Software Foundation, either version 3 of the License, or
    !(at your option) any later version.
    !
    !This code is distributed in the hope that it will be useful,
    !but WITHOUT ANY WARRANTY; without even the implied warranty of
    !MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    !GNU General Public License for more details.
    !
    !For terms of the GNU General Public license see <http://www.gnu.org/licenses/>.

! Returns the distance between 2 points on a 2D drawing !

GLOBAL MODULE get_len2D(
VECTOR a;
VECTOR b;
VAR FLOAT c);

VECTOR p;

BEGINMODULE

p:=vec(b.x-a.x, b.y-a.y);
c:=vecl(p);

ENDMODULE