with Interfaces.C;
with SDL.Types; use SDL.Types;
package Picture_xbm is

   picture_width  : constant := 32;
   picture_height : constant := 32;

   type picture_bits_Array is
      array (Natural range <>) of aliased Uint8;
   picture_bits : picture_bits_Array :=
      (
      16#00#, 16#00#, 16#00#, 16#00#, 16#00#, 16#00#, 16#00#, 16#00#,
      16#18#, 16#80#, 16#01#, 16#18#, 16#64#, 16#6f#, 16#f6#, 16#26#,
      16#0a#, 16#00#, 16#00#, 16#50#, 16#f2#, 16#ff#, 16#ff#, 16#4f#,
      16#14#, 16#04#, 16#00#, 16#28#, 16#14#, 16#0e#, 16#00#, 16#28#,
      16#10#, 16#32#, 16#00#, 16#08#, 16#94#, 16#03#, 16#00#, 16#08#,
      16#f4#, 16#04#, 16#00#, 16#08#, 16#b0#, 16#08#, 16#00#, 16#08#,
      16#34#, 16#01#, 16#00#, 16#28#, 16#34#, 16#01#, 16#00#, 16#28#,
      16#12#, 16#00#, 16#40#, 16#48#, 16#12#, 16#20#, 16#a6#, 16#48#,
      16#14#, 16#50#, 16#11#, 16#29#, 16#14#, 16#50#, 16#48#, 16#2a#,
      16#10#, 16#27#, 16#ac#, 16#0e#, 16#d4#, 16#71#, 16#e8#, 16#0a#,
      16#74#, 16#20#, 16#a8#, 16#0a#, 16#14#, 16#20#, 16#00#, 16#08#,
      16#10#, 16#50#, 16#00#, 16#08#, 16#14#, 16#00#, 16#00#, 16#28#,
      16#14#, 16#00#, 16#00#, 16#28#, 16#f2#, 16#ff#, 16#ff#, 16#4f#,
      16#0a#, 16#00#, 16#00#, 16#50#, 16#64#, 16#6f#, 16#f6#, 16#26#,
      16#18#, 16#80#, 16#01#, 16#18#, 16#00#, 16#00#, 16#00#, 16#00#,
      16#00#, 16#00#, 16#00#, 16#00#, 16#00#, 16#00#, 16#00#, 16#00#
      );
   
end Picture_xbm;