--  (C) Copyright 2000 by John Halleck, All Rights Reserved.
--  Translate a cell into printable psudo-Braille.

package Braille.Display is
   pragma Preelaborate (Braille.Display);


   --  A row of a cell, as two characters.
   type Display_Row  is array (1 .. 2) of Character;

   Blank_Row      : constant Display_Row := ".."; --  Default background.
   Suppressed_Row : constant Display_Row := "  "; --  Blank suppression.



   --  A cell, as three rows of two characters
   type Display_Cell is array (1 .. 3) of Display_Row;

   --  Empty (With background) and blank suppressed (Without Background);.
   Blank_Cell      : constant Display_Cell := (others => Blank_Row);
   Suppressed_Cell : constant Display_Cell := (others => Suppressed_Row);



   type Display_String is array (Positive range <>) of Display_Cell;


   --  Translate a cell into printable parts.
   function Translate (Given : Cell;
                       Suppress_Blanks : Boolean := True) return Display_Cell;

end Braille.Display;