Eternal_pain
Anmeldungsdatum: 08.08.2006
Beiträge: 1783
Wohnort: BW/KA
|
 Verfasst am: 09.03.2010, 10:58 Titel: SelectByColorRange |
 |
|
Koennte ein paar Hilfreiche anregungen und Tipps zur verbesserung und optimierung der Funktion gebrauchen, bin mir sicher das da noch einiges verbesserungswuerdig ist...
Sourcecode:
http://www.freebasic-portal.de/porticula/selectbycolorrange-1051.html
der Code soll genau wie in einem Grafikprogramm eine Arbeitsmaske erstellen.
Durch das selektieren eines bereichs, kann man in einem Image oder auf dem Screen zeichnet und dann die die invertierte Selection einfach 'uebermalen'
Bsp.:
| Code: |
Dim Selection As SelectionP Ptr
Selection=SelectByColorRange(ImageBuffer,ZuSelektierendeFarbe,Invert,ColorRange)
|
ImageBuffer ist der Pointer zu einem Image
ZuSelektierendeFarbe ist der Farbwert den es zu selektieren gilt
Invert [0,1] Invertiert die selektion
ColorRange erweitert die zu selektierende Farbe
Die Maske laesst sich so anzeigen/ueberzeichnen
| Code: |
'Selection als Maske zeigen
For l As Integer=0 To Selection->LRInf-1
Line (Selection->LR[l].goR,Selection->LR[l].atL)-(Selection->LR[l].goL,Selection->LR[l].atL),&hFFFFFFFF
Next l |
_________________
 |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
