Hallo wilbo,
einfacher wäre es vielleicht so:
Gruß
miparo
einfacher wäre es vielleicht so:
Code
procedure Letter(X: byte; Y: byte; VG: word; HG: word);
var
Z, LX, LY,LC mask: byte;
begin
Z:= 0;
for LY:= 0 to 7 do
mask:= 1;
LC:= CharSet[LY]; // im nicht 7 x ins Flash greifen zu müssen, das kostet Zeit
for LX:= 0 to 7 do
if (LC and mask) > 0 then
//Lcd_Plot(X + LX, Y + LY, VG);
else
//Lcd_Plot(X + LX, Y + LY, HG);
endif;
mask:= mask shl 1;
endfor;
Inc(Z);
endfor;
// LCD_Window(0, 0, Window_Width - 1, Window_Height - 1);
end;
var
Z, LX, LY,LC mask: byte;
begin
Z:= 0;
for LY:= 0 to 7 do
mask:= 1;
LC:= CharSet[LY]; // im nicht 7 x ins Flash greifen zu müssen, das kostet Zeit
for LX:= 0 to 7 do
if (LC and mask) > 0 then
//Lcd_Plot(X + LX, Y + LY, VG);
else
//Lcd_Plot(X + LX, Y + LY, HG);
endif;
mask:= mask shl 1;
endfor;
Inc(Z);
endfor;
// LCD_Window(0, 0, Window_Width - 1, Window_Height - 1);
end;
Gruß
miparo