function []=letter(a);
close all
hold on
a=(a+1)/2;
a=a(end:-1:1);
for i=1:16
   for j=1:16
      fill(j+[0 1 1 0],i+[0 0 1 1],(a((16*(i-1))+(17-j))*([0 0 1])));
   end
end

hold off
