Práce s grafikou VII. – Embosing
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Práce s grafikou VII. – EmbosingPráce s grafikou VII. – Embosing

 

Práce s grafikou VII. – Embosing

Google       Google       2. 12. 2005       7 008×

Embosing je jednoduše fungující efekt pracující na rozdílech hodnot vedle sebe ležících pixelů...

Reklama
Reklama

Jak si můžete všimnout v následujícím kódu:


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 Sub Embosing(Img As PictureBox, Img2 As PictureBox)
    Img.DrawWidth = 1
    Img.ScaleMode = 3
    Img.AutoRedraw = True
    RGBMax = 256
    On Error Resume Next
        For x = 0 To Img.ScaleWidth
            For y = 0 To Img.ScaleHeight
                DoEvents
                Imgp = GetPixel(Img.hdc, x, y)
                b = Imgp  RGBMax  RGBMax
                g = (Imgp  RGBMax) Mod RGBMax
                r = Imgp Mod RGBMax
                Imgp1 = GetPixel(Img.hdc, x - 1, y - 1)
                b1 = Imgp1  RGBMax  RGBMax
                g1 = (Imgp1  RGBMax) Mod RGBMax
                r1 = Imgp1 Mod RGBMax
                DoEvents
                
                a = (((b - b1) + (g - g1) + (b - b1)) / 3) + 128
                
                If a >= 255 Then a = 255
                If a <= 0 Then a = 0

                SetPixel Img2.hdc, x, y, RGB(a, a, a)
            Next y
            DoEvents
        Next x
   Img.Refresh
End Sub

Funkčnost a princip celého algoritmu závisí na vzorci,


a = (((b - b1) + (g - g1) + (b - b1)) / 3) + 128

který udělá rozdíl jednotlivých barevných složek a z těchto rozdílů vypočítá průměr, ke kterému je přičteno 128. Hodnota 128 může být předávána jako argument a může být proměnná, ale to vyžaduje drobnou změnu kódu, kterou snad již zvládnete. V některém z dalších dílů si povíme o dalších možnostech Embosingu, a tím je nastavení střední barvy a míra rozdílů.

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jiří ChytilAutor programuje ve VB, zajímá se o elektrotechniku, studuje na SOŠ Elektrotechnické - obor číslicová technika.
Web    

Nové články

Obrázek ke článku Facebook spouští službu Marketplace V ČR

Facebook spouští službu Marketplace V ČR

Společná platforma Marketplace usnadní lidem na Facebooku vyhledávání, nákup a prodej použitého zboží na lokální úrovni. Bude tak přímou konkurencí pro weby a aplikace se stejným zaměřením jako je například Letgo, Bazoš, Aukro, Sbazar a další.

Reklama
Reklama
Obrázek ke článku DistrCut – optimalizace pomocí distribuované inteligence

DistrCut – optimalizace pomocí distribuované inteligence

Optimalizační systémy, které jsem dosud popisoval, se týkaly vždy optimalizace na jednom zařízení. Optimalizovalo se dělení tyčového materiálu na jedné pile, vypalování plošného materiálu na jednom plazmovém stroji, řídilo se tavení na jedné elektrické obloukové peci.

Ve výrobním procesu je však často nutné optimalizovat činnost celého výrobního úseku, kde je více různých objektů odlišného typu a koordinovat činnost těchto objektů k dosažení společného cíle, zpravidla kvality finálního výrobku. Řešení tohoto problému umožňuje distribuovaná inteligence.

loadingtransparent (function() { var po = document.createElement('script'); po.type = 'text/javascript'; po.async = true; po.src = 'https://apis.google.com/js/plusone.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(po, s); })();
Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032017 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý