!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/>.

GLOBAL DRAWING MODULE get_ang(
REF id;
VAR FLOAT ang);

VECTOR p1, p2;


BEGINMODULE

  p1:=startp(id);
  p2:=endp(id);
  ang:=angle(p2.x-p1.x, p2.y-p1.y);


ENDMODULE