Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > Lazarus, FreePascal, Kylix, etc.
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-11-2017
Avatar de MAXIUM
MAXIUM MAXIUM is offline
Miembro
 
Registrado: may 2005
Posts: 1.485
Poder: 20
MAXIUM Va camino a la fama
Smile [FreePascal] Imagen retro 640x480x16

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; {Detect;}
     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.
Archivos Adjuntos
Tipo de Archivo: zip terminator.zip (245,4 KB, 1 visitas)

Última edición por MAXIUM fecha: 27-11-2017 a las 09:58:15.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Conectar DB con FreePascal MAXIUM Lazarus, FreePascal, Kylix, etc. 1 27-03-2016 04:16:41
Firemonkey/Ios vs FreePascal bbasas FireMonkey 3 28-06-2012 13:10:47
Pixel_Studio_Pro en Freepascal geolife Lazarus, FreePascal, Kylix, etc. 5 20-01-2011 18:08:36
Freepascal y lazarus.. JXJ La Taberna 6 18-09-2008 20:32:19
Lazarus y FreePascal rcm861 Noticias 26 09-09-2008 23:45:33


La franja horaria es GMT +2. Ahora son las 14:14:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi