Texto en modo grafico
Publicado por 123celes (1 intervención) el 16/10/2008 15:06:38
Hola, ¿Qué tal?, les escribo para preguntarles sobre una rutina en Turbo Pascal que permite escribir texto en modo gráfico
PROCEDURE WriteTXT(segm,x,y:word;txt:string;color:byte);
VAR i,j,k:byte;
Begin
for i:=1 to length(txt) do
for j:=0 to 15 do
for k:=0 to 7 do
if ((mem[fseg:fofs+ord(txt[i])*16+j] shl k) and 128) > 0 then
begin
mem[segm:(y+j)*320+(i*8)+x+k]:=color;
end;
End;
fseg,fofs:word; {para la fuente grafica}
Me podrían explicar por favor ¿Qué hace cada linea?, muchas gracias.
http://www.geocities.com/SiliconValley/code/2632/d_funda.htm
PROCEDURE WriteTXT(segm,x,y:word;txt:string;color:byte);
VAR i,j,k:byte;
Begin
for i:=1 to length(txt) do
for j:=0 to 15 do
for k:=0 to 7 do
if ((mem[fseg:fofs+ord(txt[i])*16+j] shl k) and 128) > 0 then
begin
mem[segm:(y+j)*320+(i*8)+x+k]:=color;
end;
End;
fseg,fofs:word; {para la fuente grafica}
Me podrían explicar por favor ¿Qué hace cada linea?, muchas gracias.
http://www.geocities.com/SiliconValley/code/2632/d_funda.htm
Valora esta pregunta
0