Kollision

Übersicht

BlitzBasic

Beginners-Corner

	MCWulf Betreff: Kollision	Mi, Apr 20, 2005 18:53 Antworten mit Zitat
Hallo! Wie kann ich ich prüfen, ob in einem bestimmtem Radius ein andersfarbiger Pixel als Schwarz ist?

MCWulf

Betreff: Kollision

Mi, Apr 20, 2005 18:53
Antworten mit Zitat

Hallo!

Wie kann ich ich prüfen, ob in einem bestimmtem Radius ein andersfarbiger Pixel als Schwarz ist?

	BladeRunner Moderator	Mi, Apr 20, 2005 19:00 Antworten mit Zitat
Prüfe alle Pixel von (Xm-Rad,ym-Rad) bis (xm+Rad,Ym+rad) ob ihre Entfernung innerhalb des Kreisradius liegt [sqr((x-xm)²+(y-ym)²) < Rad ]. Wenn dies der fall ist und der Pixel mit readpixel(fast) <> 0 als Farbe hat : Bingo. Allerdings nicht wirklich echtzeitgeeignet.
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

Mi, Apr 20, 2005 19:00
Antworten mit Zitat

Prüfe alle Pixel von (Xm-Rad,ym-Rad) bis (xm+Rad,Ym+rad) ob ihre Entfernung innerhalb des Kreisradius liegt [sqr((x-xm)²+(y-ym)²) < Rad ].
Wenn dies der fall ist und der Pixel mit readpixel(fast) <> 0 als Farbe hat : Bingo.
Allerdings nicht wirklich echtzeitgeeignet.

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

	rambo256	Mi, Apr 20, 2005 19:00 Antworten mit Zitat
So,ist aber nicht unbedingt schnell BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] LockBuffer BackBuffer() For x = posx To posx+2radius For y = posy To posy+2radius If((x-radus)^2+(y-radius)^2) = radius Then rgb=ReadPixelFast(x,y) r=(rgb And $FF0000)/$10000 g=(rgb And $FF00)/$100 b=rgb And $FF If (r+g+b) = 0 Then .... EndIf EndIf Next Next UnlockBuffer BackBuffer() so hab ichs mal gemacht,hoffe ich hab da jetzt keinen Fehler reingehauen
Asus F53z Das Leben ist eine reine Konkatenation...

rambo256

Mi, Apr 20, 2005 19:00
Antworten mit Zitat

So,ist aber nicht unbedingt schnell Wink

BlitzBasic: [AUSKLAPPEN]

LockBuffer BackBuffer()

For x = posx To posx+2*radius
For y = posy To posy+2*radius

If((x-radus)^2+(y-radius)^2) = radius Then

rgb=ReadPixelFast(x,y)
r=(rgb And $FF0000)/$10000
g=(rgb And $FF00)/$100
b=rgb And $FF

If (r+g+b) = 0 Then 

....

EndIf 

EndIf 

Next
Next

UnlockBuffer BackBuffer()

so hab ichs mal gemacht,hoffe ich hab da jetzt keinen Fehler reingehauen Wink

Asus F53z

Das Leben ist eine reine Konkatenation...

	MCWulf	Do, Apr 21, 2005 6:43 Antworten mit Zitat
danke, aber irgendwie funkt das nicht warum?

MCWulf

Do, Apr 21, 2005 6:43
Antworten mit Zitat

danke, aber irgendwie funkt das nicht Sad

warum?

	rambo256	Do, Apr 21, 2005 8:16 Antworten mit Zitat
BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] LockBuffer BackBuffer() For x = posx To posx+2radius For y = posy To posy+2radius If(Sqr(((x-mittelpunkt_x)-radus)^2+((y-mittelpunkt_y)-radius)^2)) = radius Then rgb=ReadPixelFast(x,y) r=(rgb And $FF0000)/$10000 g=(rgb And $FF00)/$100 b=rgb And $FF If (r+g+b) = 0 Then .... EndIf EndIf Next Next UnlockBuffer BackBuffer() Ich glaub das war der Fehler...
Asus F53z Das Leben ist eine reine Konkatenation...

rambo256

Do, Apr 21, 2005 8:16
Antworten mit Zitat

BlitzBasic: [AUSKLAPPEN]

LockBuffer BackBuffer()

For x = posx To posx+2*radius
For y = posy To posy+2*radius

If(Sqr(((x-mittelpunkt_x)-radus)^2+((y-mittelpunkt_y)-radius)^2)) = radius Then

rgb=ReadPixelFast(x,y)
r=(rgb And $FF0000)/$10000
g=(rgb And $FF00)/$100
b=rgb And $FF

If (r+g+b) = 0 Then 

....

EndIf 

EndIf 

Next
Next

UnlockBuffer BackBuffer()

Ich glaub das war der Fehler...

Asus F53z

Das Leben ist eine reine Konkatenation...

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Kollision

MCWulf

Betreff: Kollision

BladeRunner

rambo256

MCWulf

rambo256