Arrows for Micro:Bit

with HAL;

package Arrows is

   type Glyph is array (0 .. 4) of HAL.UInt5;

   Font : constant array (0 .. 93) of Glyph :=
   
      (2#00100#, -- North Arrow
       2#01110#,
       2#00100#,
       2#00100#,
       2#00000#),
      
      (2#00000#, -- South Arrow
       2#00100#,
       2#00100#,
       2#01110#,
       2#00100#),
      
      (2#00000#, -- West Arrow
       2#01000#,
       2#11110#,
       2#01000#,
       2#00000#),
      
      (2#00000#, -- East Arrow
       2#00010#,
       2#01111#,
       2#00010#,
       2#00000#),

     
      (2#11100#, -- Northwest Arrow
       2#11000#,
       2#10100#,
       2#00010#,
       2#00000#),
      
      (2#00111#, -- Northeast Arrow
       2#00011#,
       2#00101#,
       2#01000#,
       2#00000#),
      
      (2#00000#, -- Southwest Arrow
       2#00010#,
       2#10100#,
       2#11000#,
       2#11100#),
      
      (2#00000#, -- Southeast Arrow
       2#01000#,
       2#00101#,
       2#00011#,
       2#00111#),
     
      (2#01000#, -- North-Northwest Arrow
       2#01000#,
       2#00100#,
       2#00100#,
       2#00000#),
      
      (2#00010#, -- North-Northeast Arrow
       2#00010#,
       2#00100#,
       2#00100#,
       2#00000#),
      
      (2#00000#, -- South-Southwest Arrow
       2#00100#,
       2#00100#,
       2#01000#,
       2#01000#),
      
      (2#00000#, -- South-Southeast Arrow
       2#00100#,
       2#00100#,
       2#00010#,
       2#00010#),
     
      (2#00000#, -- West-Northwest Arrow
       2#11000#,
       2#00110#,
       2#00000#,
       2#00000#),
      
      (2#00000#, -- East-Northeast Arrow
       2#00011#,
       2#00110#,
       2#00000#,
       2#00000#),
      
      (2#00000#, -- West-Southwest Arrow
       2#00000#,
       2#00110#,
       2#11000#,
       2#00000#),
      
      (2#00000#, -- East-Southeast Arrow
       2#00000#,
       2#01100#,
       2#00011#,
       2#00000#),

end Arrows;