-- © 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;
This page is http://www.cc.utah.edu/~nahaj/ada/braille/braille-display.ads.html
© Copyright 2000 by John Halleck, All Rights Reserved.
This snapshot was last modified on August 24th, 2000