Уменьшение разрешения изображения усреднением без попиксельной обработки в цикле

@ElectricDrive · Регистрация: 08.01.2016

Author24 — интернет-сервис помощи студентам

Существуют ли в VB.NET встроенные функции уменьшения размера изображения в пикселях через усреднение нескольких пикселей в меньшее число, а не с помощью выбрасывания лишних, как это происходит в следующем коде (порекомендованном в другой теме)

VB.NET

1
2
3

Dim myImg1 As System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile("orig.bmp"), System.Drawing.Bitmap) 'загрузка изображения из оригинального файла
Dim myImg2 As New System.Drawing.Bitmap(myImg1, myImg1.Width / 2, myImg1.Height / 2) 'перерисовка  с половинным размером
myImg2.Save("sm.bmp", System.Drawing.Imaging.ImageFormat.Bmp) 'Сохранение уменьшенного

Пример работы которого показан на приложенных картинках, в которых вместо серых линий слева и других цветов справа, просто поисчезали линии, то есть пропала информация.
В частности интересует уменьшение в 2 раза, то есть, чтобы каждый квадрат из 4-ёх пикселей усреднялся до одного.

@Yury Komar · 08.05.2017, 15:53

нужно рисовать в Graphics без сглаживания. должно помочь

@ElectricDrive · 08.05.2017, 17:21 **[ТС]**

Сообщение от Yury Komar

нужно рисовать

В теме ни слова про рисование, только обработка имеющихся изображений.

@Yury Komar · 08.05.2017, 17:29

ElectricDrive, в теме ни слова, согласен... Но объект Graphics подразумевает рисование. тоесть нанести на свой "холст" вашу картинку с меньшим размером, при этом все преобразования производить без сглаживания пикселей... отсюда и термин "Рисовать"...

Я не знаю другого способа... Подожлем, может кто-то подскажет, как решить впшу задачу другим путем?

@Yury Komar · 08.05.2017, 18:08

вот о чем я:

VB.NET

        Dim myImg1 As Bitmap = Image.FromFile("orig.png") 'загрузка изображения из оригинального файла
        Dim myImg2 As New Bitmap(myImg1.Width \ 2, myImg1.Height \ 2) 'перерисовка  с половинным размером
 
        Using g = Graphics.FromImage(myImg2)
            g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.None
            g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.NearestNeighbor
            g.DrawImage(myImg1, 0, 0, myImg2.Width, myImg2.Height)
        End Using
 
        myImg2.Save("custom.bmp")

результат получается тот же, что и у вас...
Взглянул на картинку вашу и по-моему, как бы вы не старались - у вас не получится идентичная картинка, но в половину меньшим размером... Невозможно сжать пиксель меньше чем он есть... а у вас все линии имеют ширину в 1 пиксель

применяя разные интерполяции при уменьшении размера - я не добился того, чтоб картинка была идентична... Даже пробуя в разных редакторах - этого невозможно сделать с ВАШЕЙ картинкой...

Возможно и ошибаюсь... Подождем других ответов.

@ElectricDrive · 08.05.2017, 19:33 **[ТС]**

Сообщение от Yury Komar

Взглянул на картинку вашу и по-моему, как бы вы не старались - у вас не получится идентичная картинка, но в половину меньшим размером... Невозможно сжать пиксель меньше чем он есть... а у вас все линии имеют ширину в 1 пиксель

Идентичная, конечно, не получится. Специально нарисованы линии в 1 пиксель для проверки программы. Должна получится как в приложенном файле. Такую можно получить в окне офис пикчур мэнэджера, но если в нём же сохранить, то опять получается как в первом сообщении: с удалёнными через один, а не усреднёнными, пикселями.

@ElectricDrive · 08.05.2017, 19:53 **[ТС]**

Сделал код с попиксельной обработкой в цикле:

VB.NET

        For i = 0 To myImg1.Width / 2 - 1
            For j = 0 To myImg1.Height / 2 - 1
                r = 0
                g = 0
                b = 0
                r = r + myImg1.GetPixel(i * 2, j * 2).R + myImg1.GetPixel(i * 2, j * 2 + 1).R + myImg1.GetPixel(i * 2 + 1, j * 2).R + myImg1.GetPixel(i * 2 + 1, j * 2 + 1).R
                g = g + myImg1.GetPixel(i * 2, j * 2).G + myImg1.GetPixel(i * 2, j * 2 + 1).G + myImg1.GetPixel(i * 2 + 1, j * 2).G + myImg1.GetPixel(i * 2 + 1, j * 2 + 1).G
                b = b + myImg1.GetPixel(i * 2, j * 2).B + myImg1.GetPixel(i * 2, j * 2 + 1).B + myImg1.GetPixel(i * 2 + 1, j * 2).B + myImg1.GetPixel(i * 2 + 1, j * 2 + 1).B
                myImg2.SetPixel(i, j, Color.FromArgb(r / 4, g / 4, b / 4))
            Next
        Next

Но про встроенные методы спрашиваю, так как предполагаю, что они быстрее.

@Yury Komar · 08.05.2017, 20:08

ну может быть тут более похож будет:

VB.NET

1	g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic

@ovva · 08.05.2017, 20:29

VB.NET

1	код с попиксельной обработкой

И что в результате? Полагаю, что получите такое же сглаженное изображение.
Для увеличения скорости обработки нужно отказаться от GetPixel/SetPixel, а использовать
LockBits/UnlockBits.

@ElectricDrive · 08.05.2017, 20:34 **[ТС]**

Сообщение от ovva

И что в результате?

То — что хотел (показано в приложенном файле предыдущего сообщения), но то, что не дают встроенные функции.

Сообщение от ovva

Для увеличения скорости обработки нужно отказаться от GetPixel/SetPixel, а использовать
LockBits/UnlockBits.

Попробую.

@ovva · 08.05.2017, 20:41

Сообщение от ElectricDrive

То — что хотел

На мой взгляд, это далеко от оригинала.

@ElectricDrive · 21.06.2017, 19:08 **[ТС]**

Сообщение от Yury Komar

применяя разные интерполяции при уменьшении размера - я не добился того, чтоб картинка была идентична... Даже пробуя в разных редакторах - этого невозможно сделать с ВАШЕЙ картинкой...

Нашёл редактор, который смог желаемое (уменьшение размера изображения в пикселях через усреднение нескольких пикселей в меньшее число) сделать, — XnView при использовании в нём настройки "Билинейная интерполяция".
(Может кому-то пригодится. В VB.Net ещё буду проверять)

@ElectricDrive 12 / 12 / 3 Регистрация: 08.01.2016 Сообщений: 79
	08.05.2017, 20:34 [ТС]	10
	Сообщение от ovva И что в результате? То — что хотел (показано в приложенном файле предыдущего сообщения), но то, что не дают встроенные функции. Сообщение от ovva Для увеличения скорости обработки нужно отказаться от GetPixel/SetPixel, а использовать LockBits/UnlockBits. Попробую. 0

@ovva 4407 / 3531 / 843 Регистрация: 02.02.2013 Сообщений: 3,417 Записей в блоге: 2
	08.05.2017, 20:41	11
	Сообщение от ElectricDrive То — что хотел На мой взгляд, это далеко от оригинала. 1

@ElectricDrive 12 / 12 / 3 Регистрация: 08.01.2016 Сообщений: 79
	21.06.2017, 19:08 [ТС]	12
	Сообщение от Yury Komar применяя разные интерполяции при уменьшении размера - я не добился того, чтоб картинка была идентична... Даже пробуя в разных редакторах - этого невозможно сделать с ВАШЕЙ картинкой... Нашёл редактор, который смог желаемое (уменьшение размера изображения в пикселях через усреднение нескольких пикселей в меньшее число) сделать, — XnView при использовании в нём настройки "Билинейная интерполяция". (Может кому-то пригодится. В VB.Net ещё буду проверять) 1

@Yury Komar Модератор 4206 / 3289 / 498 Регистрация: 27.01.2014 Сообщений: 6,041
	08.05.2017, 15:53	2
	нужно рисовать в Graphics без сглаживания. должно помочь 0

@ElectricDrive 12 / 12 / 3 Регистрация: 08.01.2016 Сообщений: 79
	08.05.2017, 17:21 [ТС]	3
	Сообщение от Yury Komar нужно рисовать В теме ни слова про рисование, только обработка имеющихся изображений. 0

@Yury Komar Модератор 4206 / 3289 / 498 Регистрация: 27.01.2014 Сообщений: 6,041
	08.05.2017, 17:29	4
	ElectricDrive, в теме ни слова, согласен... Но объект Graphics подразумевает рисование. тоесть нанести на свой "холст" вашу картинку с меньшим размером, при этом все преобразования производить без сглаживания пикселей... отсюда и термин "Рисовать"... Я не знаю другого способа... Подожлем, может кто-то подскажет, как решить впшу задачу другим путем? 0

@ElectricDrive 12 / 12 / 3 Регистрация: 08.01.2016 Сообщений: 79
	08.05.2017, 19:33 [ТС]	6
	Сообщение от Yury Komar Взглянул на картинку вашу и по-моему, как бы вы не старались - у вас не получится идентичная картинка, но в половину меньшим размером... Невозможно сжать пиксель меньше чем он есть... а у вас все линии имеют ширину в 1 пиксель Идентичная, конечно, не получится. Специально нарисованы линии в 1 пиксель для проверки программы. Должна получится как в приложенном файле. Такую можно получить в окне офис пикчур мэнэджера, но если в нём же сохранить, то опять получается как в первом сообщении: с удалёнными через один, а не усреднёнными, пикселями. Изображения 0