Práce s grafikou VIII. – Černobílý obraz z rozptylem
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Práce s grafikou VIII. – Černobílý obraz z rozptylemPráce s grafikou VIII. – Černobílý obraz z rozptylem

 

Práce s grafikou VIII. – Černobílý obraz z rozptylem

Google       Google       14. 12. 2005       6 920×

Kód funguje na principu náhoného posunu hranice pro každý bod ale v určitém rozmezí, a tím je daná drobná nepravidelnost obrázku...

Reklama
Reklama

Kód:


Public Sub BlackAndWhiteRozptyl(Img As PictureBox, mez As Byte, rozptyl As Byte)
    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
                                    r = (r + g + b) / 3
                                    If r >= mez + Int(Rnd * rozptyl) Then
                                    r = vbWhite
                                    Else: r = vbBlack
                                    End If
                Call SetPixel(Img.hdc, x, y, r)
            Next y
            DoEvents
        Next x
    Img.Refresh
End Sub

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


If r >= mez + Int(Rnd * rozptyl) Then

Jako hodnotu mez je dobré dát hodnotu kolem 100 a jako rozptyl hodnotu kolem 50. Pokud chcete měnit rozptyl, musíte mu upravit i mez většinou podle vzorce.


Mez = 128 - 0,5 * rozptyl

Drobné odchylky nevadí. Posouvat mez můžete, jak chcete pro ztmavení nebo zesvětlení výsledku. (čím vyšší hodnota, tím tmavší výsledek).

×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

Reklama
Reklama
Obrázek ke článku Blockchain & Bitcoin konference

Blockchain & Bitcoin konference

V pátek 19. 5. 2017 se v pražském konferenčním centru Andel’s konala Blockchain & Bitcoin konference. Řada odborníků a podnikatelů v oboru blockchainu a kryptoměn představila možnosti budoucího směřování tohoto oboru. Speakeři většinou rusky mluvící provenience prezentovali řešení svých firem založená na technologii blockchainu.

Obrázek ke článku Malware KONNI se úspěšně skrýval 3 roky. Odhalil ho bezpečnostní tým Cisco Talos

Malware KONNI se úspěšně skrýval 3 roky. Odhalil ho bezpečnostní tým Cisco Talos

Bezpečnostní tým Cisco Talos odhalil celkem 4 kampaně dosud neobjeveného malwaru, který dostal jméno KONNI. Ten se dokázal úspěšně maskovat od roku 2014. Zpočátku se malware zaměřoval pouze na krádeže citlivých dat. Za 3 roky se ale několikrát vyvinul, přičemž jeho současná verze umožňuje útočníkovi z infikovaného počítače nejenom krást data, ale i mapovat stisky na klávesnici, pořizovat screenshoty obrazovky či v zařízení spustit libovolný kód. Pro odvedení pozornosti oběti zasílali útočníci v příloze také obrázek, zprávu a výhružkách severokorejského režimu či kontakty na členy mezinárodních organizací.

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ý