function inclinimetro(Porta,inclin);

fwrite(Porta,[inclin,0,0]);

inclin=fread(Porta,4);

inclin1=[123       133       133 inclin(2) inclin(2) 133 133       123       123 inclin(2) inclin(2) 123
         inclin(1) inclin(1) 123 123       133       133 inclin(1) inclin(1) 133 133       123       123];

     
clf;     
figure(1);
axis equal;
title('INCLINOMETRO');
hold on;
axis([0 256 0 256]);
fill(inclin1(1,:),inclin1(2,:),'r');
drawnow
