-- $Date: 2004/01/11 00:59:25 $
-- $Revision: 1.3 $
-- $Author: jcrocholl $

with Real_Strings; use Real_Strings;

package body Lines is

   -- Format a vector for postscript output.
   function Postscript
     (This : in Vector-- Format this vector.
     return String is   -- The resulting postscript code.
   begin
      return To_String(This.X) & " " & To_String(This.Y);
   end Postscript;

end Lines;