Construir imagen a partir de valores numéricos

[gusspagano]

Originally Posted by pgranados

Yo tampoco entendí bien que es lo que buscas hacer.

Copie y pegue tu pregunta en ChatGPT y me dio escribió un código. No se si sea lo que busques

Código Delphi [-]
...

Creo que esto es lo que necesito, voy a intentarlo. ¡Te agradezco mucho!

[gusspagano]

Una disculpa por la poca claridad. Sólo uso la programación ocasionalmente, y para asuntos sumamente básicos.

Supongamos que tengo una imagen con todos los pixeles en color blanco. Esta imagen tiene 100 columnas y 100 renglones.

Por otra parte tengo un archivo txt con tres columnas y 10,000 filas (100 columnas x 100 renglones = 10,000).

La primera columna del txt me indica a su vez una columna de la imagen, la segunda columna del txt me indica la fila de la imagen, la tercer columna del txt me indica un dato cuyo valor voy a utilizar para asignarle un color al correspondiente pixel de la imagen.

Por ejemplo, si la primera línea del txt fuera: 1 1 20. Significa que al pixel correspondiente a la columna 1, de la fila 1, le voy a dar un color que corresponde al valor 20.

Ahora, no sé cómo crear dicha "imagen" para empezar, y tampoco sé cómo pasarle valores. El código de ChatGPT que amablemente nos proporciona pgranados ayuda bastante.

[MAXIUM]

Usando PutPixel

Image.Canvas.Pixels[Pto.X, Pto.Y] := Color;

Aunque tampoco sé que clase de imagen quieres dibujar. Si lineas entre puntos o solo los puntos.

[gusspagano]

Originally Posted by MAXIUM

Usando PutPixel

Image.Canvas.Pixels[Pto.X, Pto.Y] := Color;

Aunque tampoco sé que clase de imagen quieres dibujar. Si lineas entre puntos o solo los puntos.

Gracias por el aporte MAXIUM!

Intengo dibujar una imagen de precipitación estimada por radar, no hay puntos lineas y polígonos, solo pixeles de colores cuyo color indica la intensidad de lluvia en el momento del escaneo de la atmosfera.

Puede ser por ejemplo que la mayor intensidad de lluvia se represente con rojo intenso y la menor intensidad con verde suave. Los pixeles cuyas ubicaciones registren intensidades de cero o por inferiores de cierto umbral pueden ser transparentes o sin color.

[MAXIUM]

Originally Posted by gusspagano

Gracias por el aporte MAXIUM!

Intengo dibujar una imagen de precipitación estimada por radar, no hay puntos lineas y polígonos, solo pixeles de colores cuyo color indica la intensidad de lluvia en el momento del escaneo de la atmosfera.

Puede ser por ejemplo que la mayor intensidad de lluvia se represente con rojo intenso y la menor intensidad con verde suave. Los pixeles cuyas ubicaciones registren intensidades de cero o por inferiores de cierto umbral pueden ser transparentes o sin color.

Bueno, te dejo la primera parte que lee el txt y dibuja. Por supuesto hay formas más elegantes para cada proceso, pero mi idea es que sea facil de entender.

Le faltan cosas como escoger una mejor paleta de colores, poder limpiar y volver a dibujar, escalar, exportar la imagen, etc. Espero te sirva y me queda la duda si te pidieron usar Delphi u otro lenguaje, no porque no se pueda sino por curiosidad.

Archivo TXT de prueba

1 1 20
10 20 32
12 23 54
40 56 72
45 78 62
62 38 60

Código fuente

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
   ArchivoTXT: TStringList;
   Desde, X, Y, Color: Integer;
   Valores: TArray<string>;
   Linea: String;
begin
  // Estructura para manejar archivos.
     ArchivoTXT:= TStringList.Create;

  // Abre un cuadro de dialogo para cargar un archivo en la estructura ArchivoTXT.
     If OpenDialog1.Execute Then
        ArchivoTXT.LoadFromFile(OpenDialog1.FileName);

  // Ciclo que va leyendo linea a linea el archivo cargado.
     For Desde:= 0 To (ArchivoTXT.Count -1) Do
     Begin
          Linea:= ArchivoTXT.Strings[Desde];
          Valores:= Linea.Split([' ']);      // Extrae los valores de la linea (sepadaos por espacio)-
          X    := StrToInt(Valores[0]);      // El primer valor lo convierte a número y lo usa para la posición X
          Y    := StrToInt(Valores[1]);      // El segundo valor lo convierte a número y lo usa para la posición Y
          Color:= StrToInt(Valores[2]);      // El tercer valor lo convierte a número y lo usa para el color.

       // Dibuja un pixel en la posición y color.
          Image1.Canvas.Pixels[X, Y]:= Color;
     End;

  // Libera la estructura.
     ArchivoTXT.Free
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  // Dibuja un rectangulo para resaltar el área de dibujo.
     Image1.Canvas.Rectangle(0, 0, 101, 101);
end;

Componentes usado


Datos cargados


Zoom de los datos cargados

[gusspagano]

Finalmente se pudo.

Gracias a todos por ayuda. Saludos!

[Casimiro Noteví]