-- $Date: 2004/02/23 08:36:42 $
-- $Revision: 1.2 $
-- $Author: jcrocholl $

with Real_Numbers; use Real_Numbers;

-- Reading and writing Scalar Vector Graphics.
package Choices.SVG is

   -- Read a choice from a file.
   function Read
     (Filename : in String-- Read from this file.
     return Choice_Access;  -- The newly created choice.

   -- Read a choice from current input.
   function Read
     return Choice_Access-- The newly created choice.

   -- Write a choice to a file.
   procedure Write
     (This      : access Choice-- Write this choice.
      Filename  : in String;     -- Write to this file.
      Tolerance : in Real);      -- Tolerance level.

   -- Write a choice to current output.
   procedure Write
     (This      : access Choice-- Write this choice.
      Tolerance : in Real);      -- Tolerance level.

end Choices.SVG;