Svenska ElektronikForumet

Kod: Markera allt

function bildkonvert(filenamein, filenameleft, filenameright);
%Skapa bild i specialformat för LCD-display. 
% Use: bildkonvert('infilename','leftfilename','rightfilename')

picture = double(imread(filenamein));

figure(1)
colormap gray;
imagesc(picture)

picture(find(picture==0)) = 2;
picture(find(picture==1)) = 0;
picture(find(picture==2)) = 1;

fout = fopen(filenameleft, 'w');

for rad=0:7
    for byte=1:64
        B = 0;%uchar(0);
        for bit=1:8
            B = bitset(B, bit, picture(((rad*8) + bit), byte));
        end
        fwrite(fout,B,'uchar');
    end
end

fclose(fout);
fout = fopen(filenameright, 'w');

for rad=0:7
    for byte=65:128
        B = 0;%uchar(0);
        for bit=1:8
            B = bitset(B, bit, picture(((rad*8) + bit), byte));
        end
        fwrite(fout,B,'uchar');
    end
end

fclose(fout);

%läs in och återskapa bild för att visa hur det ser ut
fin = fopen(filenameleft, 'r');
left = zeros(64,64);
for rad=0:7
    for byte=1:64
        B = double(fread(fin,1));
        for bit=1:8
            left(((rad*8) + bit), byte) = bitget(B, bit);
        end
    end
end

fclose(fin);
fin = fopen(filenameright, 'r');
right = zeros(64,64);
for rad=0:7
    for byte=1:64
        B = double(fread(fin,1));
        for bit=1:8
            right(((rad*8) + bit), byte) = bitget(B, bit);
        end
    end
end

fclose(fin);

left(find(left==0)) = 2;
left(find(left==1)) = 0;
left(find(left==2)) = 1;

right(find(right==0)) = 2;
right(find(right==1)) = 0;
right(find(right==2)) = 1;

figure(2);
colormap gray;
subplot(1,2,1);
imagesc(left);
subplot(1,2,2);
imagesc(right);