function patternDisp(n);

% Displays Letter number n from file pattern1 
% and test pattern for n=0

if n==0
    load pattern2;
    thisLetterArray=pattern2;
else
    load pattern1
    letterVectors=reshape(pattern1', 12*13, 26);
    %Select one letter
    letterNumber=n;
    thisLetterVector=letterVectors(:,letterNumber);
    thisLetterArray=reshape(thisLetterVector,13, 12)';
end

format +; disp(thisLetterArray); format;

return
