Bilinear especifica interpolación bilineal no se ha

Info icon This preview shows pages 37–40. Sign up to view the full content.

Bilinear Especifica interpolación bilineal. No se ha aplicado ningún filtro previo. Este modo no es adecuado para comprimir una imagen hasta por debajo de un 50% de su tamaño original. Default Especifica el modo predeterminado. High Especifica interpolación de calidad alta. HighQualityBicubic Especifica una interpolación bicúbica de gran calidad. Se aplica un filtro previo para garantizar una compresión de gran calidad. Este modo genera imágenes transformadas de la más alta calidad. HighQualityBilinear Especifica una interpolación bilineal de gran calidad. Se aplica un filtro previo para garantizar una compresión de gran calidad. Invalid Equivalente al elemento Invalid de la enumeración QualityMode . Low Especifica interpolación de calidad baja. NearestNeighbor Especifica interpolación de elemento más cercano. Un ejemplo de uso de esta función (inserta el código antes de llamar a la función DrawImage ): G.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic 7
Image of page 37

Info icon This preview has intentionally blurred sections. Sign up to view the full version.

C URSO 2009-2010 H ERRAMIENTAS I NFORMÁTICAS G EOTECNOLOGÍAS C ARTOGRÁFICAS EN I NGENIERÍA Y A RQUITECTURA PARA EL G EOPROCESADO 3.6.-ColorMatrix Es posible manejar radiométricamente un mapa de bits a través de ColorMatrix . Se trata de una matriz de 5x5 que contiene los pesos para tratar los colores Rojo, Verde, Azul, Transparencia y un valor w (por este orden). Con los siguientes ejemplos queda bastante claro su uso. 3.6.1.-Transparencia With OpenFileDialog1 .Filter = "Ficheros BMP|*.bmp" & _ "|Ficheros GIF|*.gif" & _ "|Ficheros JPG o JPEG|*.jpg;*.jpeg" & _ "|Ficheros PNG|*.png" & _ "|Ficheros TIFF|*.tif" .FilterIndex = 1 If (.ShowDialog() = Windows.Forms.DialogResult.OK) Then Dim G As Graphics Dim bmp As New Bitmap(1000, 1000) Dim img As Image img = CType(bmp, Image) PictureBox2.Image = img 'Esto asigna el Image pero no dibuja la imagen Dim imgOriginal As Image = Image.FromFile(.FileName) G = Graphics.FromImage(bmp) Dim rect As New Rectangle(0, 0, 1000, 1000) Dim imgAtr As New Imaging.ImageAttributes 'Transparencia Dim clMatriz As Imaging.ColorMatrix = New Imaging.ColorMatrix(New Single()() _ {New Single() {1, 0, 0, 0, 0}, _ New Single() {0, 1, 0, 0, 0}, _ New Single() {0, 0, 1, 0, 0}, _ New Single() {0, 0, 0, 0.5, 0}, _ New Single() {0, 0, 0, 0, 1}}) imgAtr.SetColorMatrix(clmatriz) G.DrawImage(imgOriginal, rect, 0, 0, 1000, 1000, GraphicsUnit.Pixel, imgAtr) 'Se necesita inicializar la propiedad AutoScrollMinSize con el tamaño de la imagen para poder mostrar los Scrolls Panel2.AutoScrollMinSize = PictureBox2.Image.Size End If End With 8
Image of page 38
T RABAJO CON M APAS DE B ITS B ENJAMÍN A RIAS P ÉREZ P ROCESAMIENTO D IGITAL DE I MÁGENES 3.6.2.-De color a niveles de gris With OpenFileDialog1 .Filter = "Ficheros BMP|*.bmp" & _ "|Ficheros GIF|*.gif" & _ "|Ficheros JPG o JPEG|*.jpg;*.jpeg" & _ "|Ficheros PNG|*.png" & _ "|Ficheros TIFF|*.tif" .FilterIndex = 1 If (.ShowDialog() = Windows.Forms.DialogResult.OK) Then Dim G As Graphics Dim bmp As New Bitmap(1000, 1000) Dim img As Image img = CType(bmp, Image) PictureBox2.Image = img 'Esto asigna el Image pero no dibuja la imagen Dim imgOriginal As Image = Image.FromFile(.FileName) G = Graphics.FromImage(bmp) Dim rect As New Rectangle(0, 0, 1000, 1000) Dim imgAtr As New Imaging.ImageAttributes
Image of page 39

Info icon This preview has intentionally blurred sections. Sign up to view the full version.

Image of page 40
This is the end of the preview. Sign up to access the rest of the document.
  • Fall '18
  • Pixel, NeXT, Procesamiento digital de imágenes, BENJAMÍN ARIAS PÉREZ

{[ snackBarMessage ]}

What students are saying

  • Left Quote Icon

    As a current student on this bumpy collegiate pathway, I stumbled upon Course Hero, where I can find study resources for nearly all my courses, get online help from tutors 24/7, and even share my old projects, papers, and lecture notes with other students.

    Student Picture

    Kiran Temple University Fox School of Business ‘17, Course Hero Intern

  • Left Quote Icon

    I cannot even describe how much Course Hero helped me this summer. It’s truly become something I can always rely on and help me. In the end, I was not only able to survive summer classes, but I was able to thrive thanks to Course Hero.

    Student Picture

    Dana University of Pennsylvania ‘17, Course Hero Intern

  • Left Quote Icon

    The ability to access any university’s resources through Course Hero proved invaluable in my case. I was behind on Tulane coursework and actually used UCLA’s materials to help me move forward and get everything together on time.

    Student Picture

    Jill Tulane University ‘16, Course Hero Intern