Yurttas/PL/IL/Ada-95/F/04/01/00/object p.adb

 1--
 2-- Copyright(C) 1998
 3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
 4--
 5-- Permission to use, copy, modify, and distribute this
 6-- software and its documentation for EDUCATIONAL purposes
 7-- and without fee is hereby granted provided that this
 8-- copyright notice appears in all copies.
 9--
10 
11-- date   : January 1, 1998.
12-- authorĀ : Salih Yurttas.
13
14-- objects_p.adb
15
16
17with Ada.Numerics.Elementary_Functions;
18use Ada.Numerics.Elementary_Functions;
19
20package body Object_P is
21
22--  Returns distance of object from origin.
23  function Distance(O : in Object) return Float is
24  begin
25    return Sqrt(O.X_Coord**2 + O.Y_Coord**2);
26  end Distance;
27
28end Object_P;