PixMap ReadPixel

Übersicht

BlitzMax, BlitzMax NG

Beginners-Corner

	Ana Betreff: PixMap ReadPixel	So, Aug 14, 2011 19:54 Antworten mit Zitat
Hallihallo, ich versuche gerade eine Pixmap auszulesen und zu entscheiden ob das feld hell oder dunkel ist. Allerdings scheitert es bei mir bei der Auswertung des Intergers den ReadPixel lieft. Die Werte r,g,b sind stets 255 auch wenn sich rgb ändert. Ich denke die Umformungen stimmen nicht, aber eigentlich sind die von hier aus der Hilfe übernommen, von daher bin ich ein wenig verwirrt. Ist das eine andere RGB darstellung als in BB? BlitzMax: [AUSKLAPPEN] [EINKLAPPEN] Method Farbfilter() Local pix:TPixmap = LockImage(image) For Local i:Int = 0 To height-1 For Local j:Int = 0 To width-1 Local rgb:Int = pix.ReadPixel(i,j) r = (rgb And $FF0000) / $10000 g = (rgb And $FF00) / $100 b = rgb And $FF If ((rgb And $FF0000)/$10000) < 128 Or ((rgb And $FF00)/$100) < 128 Or (rgb And $FF) < 128 musterarray[j,i] = 1 EndIf Next Next End Method Vielen Dank schon mal Ana
Don't only practice your art, but force your way into its secrets, for it and knowledge can raise human to divine

Ana

Betreff: PixMap ReadPixel

So, Aug 14, 2011 19:54
Antworten mit Zitat

Hallihallo,
ich versuche gerade eine Pixmap auszulesen und zu entscheiden ob das feld hell oder dunkel ist. Allerdings scheitert es bei mir bei der Auswertung des Intergers den ReadPixel lieft. Die Werte r,g,b sind stets 255 auch wenn sich rgb ändert. Ich denke die Umformungen stimmen nicht, aber eigentlich sind die von hier aus der Hilfe übernommen, von daher bin ich ein wenig verwirrt. Ist das eine andere RGB darstellung als in BB?

BlitzMax: [AUSKLAPPEN]

Method Farbfilter()
		Local pix:TPixmap = LockImage(image)
			For Local i:Int = 0 To height-1
				For Local j:Int = 0 To width-1
					Local rgb:Int = pix.ReadPixel(i,j)
						r = (rgb And $FF0000) / $10000
						g = (rgb And $FF00) / $100
						b = rgb And $FF
					If ((rgb And $FF0000)/$10000) < 128 Or ((rgb And $FF00)/$100) < 128 Or (rgb And $FF) < 128
						musterarray[j,i] = 1
					EndIf
				Next
			Next
	End Method

Vielen Dank schon mal

Ana

Don't only practice your art,
but force your way into its secrets,
for it and knowledge
can raise human to divine

	BladeRunner Moderator	So, Aug 14, 2011 19:57 Antworten mit Zitat
Dein Fehler ist dass Du And anstatt & benutzt.
Zu Diensten, Bürger. Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92

BladeRunner

Moderator

So, Aug 14, 2011 19:57
Antworten mit Zitat

Dein Fehler ist dass Du And anstatt & benutzt.

Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92

	Ana	So, Aug 14, 2011 19:59 Antworten mit Zitat
Ach Blade du bist ein Engel, danke!
Don't only practice your art, but force your way into its secrets, for it and knowledge can raise human to divine

Ana

So, Aug 14, 2011 19:59
Antworten mit Zitat

Ach Blade du bist ein Engel, danke!