Hosted by
-- $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;