--  (C) Copyright 1999 by John Halleck
--  All rights reserved.

with Ada.Text_IO;       use Ada.Text_IO;
with Ada.Float_Text_IO; use Ada.Float_Text_IO;

package body Survey.Text_IO is

   procedure Put (Point : in Location) is
   begin
      Put ('[');
      for i in Coordinate loop
         Put (' '); Put (Float (Point (X)));
      end loop;
      Put (" ]");
   end Put;

   procedure Put (Variance : in Covariance) is
   begin
      Put ('[');
      for i in Packed_Subscript loop
         Put (' '); Put (Float (Variance (i)));
      end loop;
      Put (" ]");
   end Put;

   procedure Put (Weights : in Weight) is
   begin
      Put ('[');
      for i in Packed_Subscript loop
         Put (' '); Put (Float (Weights (i)));
      end loop;
      Put (" ]");
   end Put;

end Survey.Text_IO;