Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #2  
Antiguo 11-01-2007
Avatar de Delphius
[Delphius] Delphius is offline
Miembro Premium
 
Registrado: jul 2004
Ubicación: Salta, Argentina
Posts: 5.582
Poder: 27
Delphius Va camino a la fama
He logrado avanzar un poco...

Buenas, de lo que pude averiguar buscando en la gran red de redes, he podido encontrar la forma genérica de calcular el valor correspondiente a cada pixel de acuerdo a la dimensión.
Entiendo el algoritmo, y es como detallo a continuación:

1) Armar una imagen temporal de tamaño (kM x kN), siendo k el factor de ampliación.
2) Por cada pixel de la imagen original se debe colocar intercalando (k-1) ceros entre ellos hasta alcanzar el tamaño (kM x kN):

Por ejemplo:
5-11
8-25

se transforma a (con k = 3)
5-0-0-11-0-0
0-0-0- 0-0-0
0-0-0- 0-0-0
8-0-0-25-0-0
0-0-0- 0-0-0
0-0-0- 0-0-0

Hasta allí barbaro, logro hacer dicho procedimiento...
La cosa se complica al calcular los valores intermedios entre ellos, es decir los ceros. Si A y B son dos puntos originales de la imagen, cualquier k-1 puntos entre ellos (no diagonal) se determina:

x = (i*A + j*B)/k ,i = k-1,..,1 j = 1..k-1 ,k >= 3
x = (A + B)/2 ,k >= 2

Mientras i va decrementado, j aumenta lo cual permite asignar valores intermedios entre A y B de modo tal que se produzca una transición suave entre ellos.

Para rellenar estos valores, primero se calculan en las filas:
5-7-9-11-0-0
0-0-0-0-0-0
0-0-0-0-0-0
8-14-19-25-0-0
0-0-0-0-0-0
0-0-0-0-0-0

Luego se aplica sobre las columnas:
5-7-9-11-0-0
6-9-12-16-0-0
7-12-16-20-0-0
8-14-19-25-0-0
0-0-0-0-0-0
0-0-0-0-0-0

Los ceros restantes, toman el valor de la ultima columna, y fila:
5-7-9-11-11-11
6-9-12-16-16-16
7-12-16-20-20-20
8-14-19-25-25-25
8-14-19-25-25-25
8-14-19-25-25-25

Y alli termina el algoritmo.

¿Sencillo no? Pues, en palabras... pues me he quedado encerrado tratando de ver como lo puedo llevar a cabo. Mi algoritmo solo me ha llegado hasta intercalar los ceros. Lo siguiente no tengo idea de como hacerlo. Adjunto lo que logrado hacer.
Si alguien puede darme un consejo de como proseguir se lo agradecería.

Yo hasta el momento estaba empleando scanline(), para moverme entre los pixeles. Es rápido... pero estaba pensando que con pixels[] sería más sencillo... pero muy lento. No se.. escucho alternativas.

saludos,
Archivos Adjuntos
Tipo de Archivo: zip uzoom.zip (1,3 KB, 72 visitas)
__________________
Delphius
[Guia de estilo][Buscar]
Responder Con Cita
 


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
¿Crear email con imagen como parte del contenido del texto? burasu Varios 6 07-04-2006 19:11:30
Crear directorio con lista lineal davitcito Varios 4 07-05-2005 07:20:01
Programa que agrande una parte de la imagen maravert Gráficos 0 05-08-2004 01:12:50
Ampliar un campo en un dbgrid hogol Varios 1 21-11-2003 16:02:40


La franja horaria es GMT +2. Ahora son las 05:55:57.


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