Imagen visualizada en Turbo Pascal a 640x480 y 16 colores.
Hola que tal,
Estoy trabajando de ocio en un proyecto en Lazarus que convierta imágenes a formato de 648x480 y usando los 16 colores del viejo Turbo Pascal.
Hasta el momento he conseguido convertir una imagen BMP pre-convertida usando Photoshop y luego en Lazarus traducir esa imagen a un archivo que contiene los valores X,Y y color de cada pixel, para luego pueda ser cargada en Turbo Pascal o FreePascal DOS en una pantalla antigua VGA.
La muestra es la imagen que os presento. La verdad es que no es de ninguna utilidad y solo es ocio como indique.
Lo que me falta saber es si la librería Graphics32 puede personalizar la paleta de colores a usar junto con filtro difusión. Si no, no importa.
Código Delphi
[-]Program Pixelart;
Uses
CRT, Graph;
Type
TPixel = Record
PosicionX : Integer;
PosicionY : Integer;
PixelColor: Integer;
End;
Var
GD, GM: Integer;
Color: Word;
Archivo: File of TPixel;
Pixeles: TPixel;
Begin
GD:= 9;
GM:= 2;
InitGraph(GD, GM, ' ');
If GraphResult <> grOK Then Halt(1);
Assign(Archivo, 'imagen.dat');
Reset(Archivo);
While Not EOF(Archivo) Do
Begin
Read(Archivo, Pixeles);
PutPixel(Pixeles.PosicionX, Pixeles.PosicionY, Pixeles.PixelColor);
End;
Close(Archivo);
ReadLn;
CloseGraph;
End.