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;