Práca s grafikou III. - Svetlosť obrázku

Svetlosť obrázku sa po anglicky povie brightness a tento filter by určite nemal chýbať v dobrom grafickom editore. V tomto článku si povieme, ako na vlastnú funkciu brightness. ..

Naša funkcia by mala pracovať s dvoma parametramy. Prvým by bol obrázok, ktorý budeme meniť a druhým svetlosť obrázku v percentách. Funkcia bude pracovať tak, že sa ku každej zložke pixelu (RGB zložky) pripočíta hodnota, ktorá sa bude počítať podľa nasledovného vzorca:

((255 / 100) * (percenta - 50) * 2)

Keď nastavíme svetlosť obrázku na 0%, ku každej zložke pixelu sa pripočíta hodnota -255, to znamená, že celý obrazok bude čierny. Keď nastavíme svetlosť obrázku napríklad na 60%, hodnota ktorá sa pripočíta ku každej zložke pixelu bude 51.

Táto hodnota je vždy konštantná, preto si ju vypočítame na začiatku funkcie a zapíšeme do nejakej premennej. Na koniec funkcie pridáme ešte podmienky:

If r > 255 Then r = 255
If r < 0 Then r = 0
If b > 255 Then b = 255
If b < 0 Then b = 0
If g > 255 Then g = 255
If g < 0 Then g = 0

Tieto podmienky slúžia na to, aby sa do zložky pixelu nezapísala hodnota väčšia ako 255 alebo menšia ako 0. Celá funkcia bude vyzerať takto:

Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Public Function Brightness(Obrazok As Object, percenta As Integer)

Dim X, Y As Long
Dim color As Long
Dim r As Integer
Dim g As Integer
Dim b As Integer
Dim buf As Double

On Error Resume Next

buf = ((255 / 100) * (percenta - 50) * 2)
For X = 0 To (Obrazok.ScaleWidth / 15) - 1
For Y = 0 To (Obrazok.ScaleHeight / 15) - 1
color = GetPixel(Obrazok.hdc, X, Y)
r = color Mod 256
g = (color  256) Mod 256
b = color  256  256
r = buf + r
g = buf + g
b = buf + b
If r > 255 Then r = 255
If r < 0 Then r = 0
If b > 255 Then b = 255
If b < 0 Then b = 0
If g > 255 Then g = 255
If g < 0 Then g = 0
color = RGB(r, g, b)
SetPixel Obrazok.hdc, X, Y, color
Next Y
DoEvents
Next X

Obrazok.Refresh
End Function

Na záver pridávam ešte zdroják, ktorý si môžete stiahnuť tu.

V ďalšom článku by som chcel podrobne popísať súborový formát BMP, ako aj vlastné funkcie na otvorenie a uloženie BMP súborov.