Mi Blog

Si en mi anterior post hablaba de Firefox como el navegador por excelencia, que mejor complemento que el, para mí, mejor cliente de correo electrónico. Mozilla Thunderbird. Lo podeis descargar de: Mozilla Europa. Entre sus características más destacables está el filtro de correo antispam que es de lo mejorcito para mi. Además al igual que Firefox tambien tiene extensiones: Búsqueda de complementos; que nos ayudan a ampliar más sus posibilidades. Y como no gratuito y se actualiza solo.

El navegador para mi por excelencia. Lo podeis descargar de: Mozilla Europe. Es conocido por su seguridad Además es gratuito, y se actualiza solo. Para webmaster se le puden añadir muchas extensiones muy utiles. Aquí podeis mirar y descargar las que os gusten: Búsqueda de Extensiones

El código siguiente recorta una imagen. Vamos a enrar a usar el objeto Graphics y también tocaremos los Stream (herramienta muy interesante para guardar imágenes).

 

Private Function recortaImagen(ByVal imagen As Image, ByVal posicion As Point, ByVal tamaño As Size) As Image

      ‘Creamos un objeto bitmap con resolución 72 píxeles por pulgada y tamaño el pasado como argumento

      Dim bmFoto As Bitmap = New Bitmap(tamaño.Width, tamaño.Height)

      bmFoto.SetResolution(72, 72)

      ‘Creamos un objeto Graphics y le asignamos el Bitmap creado

      Dim grFoto As Graphics = Graphics.FromImage(bmFoto)

      ‘Le proporcionamos las siguientes propiedades

      grFoto.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

      grFoto.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic

      grFoto.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality

      ‘Con esto recortamos la imagen con tamaño el dado

      grFoto.DrawImage(imagen, New Rectangle(posicion, tamaño), New Rectangle(New Point(200, 200), tamaño), _ GraphicsUnit.Pixel)

      ‘Ahora lo guardamos en un MemoryStream para guardar los cambios

      Dim mm As System.IO.MemoryStream = New System.IO.MemoryStream

      bmFoto.Save(mm, System.Drawing.Imaging.ImageFormat.Jpeg)

      ‘Liberamos los objetos usados

      imagen.Dispose()

      bmFoto.Dispose()

      grFoto.Dispose()

      ‘Devolvemos el valor

      Dim img As Image = New Bitmap(mm)

      Return img

End Function

Ejemplo codigop

El código siguiente invierte los colores de una imagen. El objetivo es aprender a usar las funciones GetPixel y SetPixel. Es muy sencillo.

Public Function invertirColor(ByVal c As Color) As Color

‘Esta función invierte un color restando cada RGB a 255, devolviendo un color invertido

Return Color.FromArgb(System.Math.Abs(255 – c.R), System.Math.Abs(255 – c.G), System.Math.Abs(255 – c.B))

End Function

Public Function invertirColoresImagen(ByVal img as Image) As Image

Dim i, j As Integer

‘Generamos un Bitmap a partir de la imagen

Dim bm As New Bitmap(img)

‘Por cada pixel del bitmap vamos a asignarle su inversa

For i = 0 To bm.Size.Width – 1

For j = 0 To bm.Size.Height – 1

‘Color original

Dim color1 As Color = bm.GetPixel(i, j)

‘Color original invertido

Dim colorN As Color = invertirColor(color1)

Asignamos el nuevo color al pixel actual

bm.SetPixel(i, j, colorN)

Next

Next

Return bm

End Sub

invertirimagen.zip

Unas nuevas imagenes de mi modelo en 3d.

He trabajado un poco las manos, he unido la cabeza al cuerpo porque antes eran 2 objetos separados y he añadido unos primitivos ojos. Espero que os gusten. Creo que ya le falta poco para estar acabada y empezar a hacer algun render.

   

 

 

 

Hoy le doy la bienvenida a mi hermano Jesús al blog. Así que pronto contaremos con interesantes artículos técnicos sobre programación y muchas otras cosas. 

Estas son las primeras imágenes de mi primer modelo 3d. Está hecho con Hexagon 2.01, creo que no estan mal para empezar, aunque me queda mucho trabajo todavía (esta es la versión de guardado 30 desde que empecé). Espero vuestras sugerencias.

Bienvenidos a mi blog personal. Hoy 27 de Noviembre del 2006 he terminado el proceso de instalación de este blog, de la instalación de la traducción al español, de la instalación de la traducción de la plantilla clásica y de la adpatación de la plantilla clásica para adecuarla al diseñoo de mi web (original de Juan Manuel Benzo Jurado). Espero que os guste.