File : lattice-io.ads

with Ada.Text_IO, Reps.IO, Lin.IO;
use Ada.Text_IO, Reps.IO, Lin.IO;

package Lattice.IO is

  function MyImg(V: IntVec; Size: Positive) return String;
  function MyImg(B: PolyPtr) return String;

  procedure ShowPts(B: in Balls; BLast: in Natural := 99; NewLine: in Boolean := True);
  procedure Show(B: in Blob; BLast: in Integer := 99);
  procedure ShowPts(B: in IntVec; BLast: in Integer := 99; NewLine: in Boolean := True);
  procedure Show(B: in PolyPtr; BLast: in Integer := 99);
  procedure Show(P: in PolysPtr; PLast,BLast: in Integer);

  procedure Put(F: in File_Type; B: in PolyPtr);
  procedure Write(Name: in String; B: in PolyPtr);
  procedure Write(Name: in String; P: in PolysPtr);
  procedure Get(F: in File_Type; B: in out PolyPtr; LP: out Positive);
  procedure Read(Name: in String; B: in out PolyPtr; LP: out Positive);
  procedure Read(Name: in String; P: in out PolysPtr; LP: out Positive);

  procedure AdaPut(F: in File_Type; B: in PolyPtr);
  procedure AdaWrite(Name: in String; B: in PolyPtr);
  procedure AdaWrite(Name: in String; P: in PolysPtr);

end Lattice.IO;