Eine Pixelfarbe erfragen , die mit Plot gesetzt wurde...

Übersicht BlitzMax, BlitzMax NG Allgemein

Neue Antwort erstellen

 

funkheld

Betreff: Eine Pixelfarbe erfragen , die mit Plot gesetzt wurde...

BeitragMo, Aug 15, 2016 16:30
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo, guten Tag.

Wie kann ich bitte die Pixelfarbe von dem Plot unten wieder erfragen?
Wie kann ich bitte eine bestimmte Pixelfarbe von einem Image erfragen, welches mit Drawimage bild,100,100 gesetzt wurde, wenn ich den Screen absuche?

Danke.
Gruss

Zitat:

Graphics 640,480

setcolor 255,255,0
Plot 100,100
Flip
delay 1000
 

Lador

BeitragMo, Aug 15, 2016 22:28
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo Funkheld,

bei Plot wird ja ein Pixel der aktuellen Farbe gesetzt, also der Farbe, die mit SetColor festgelegt wurde. Diese kannst du mit GetColor(r, g, b) abfragen (s. dazu Hilfe oder recherchiere bei Google oder hier im Forum).

Zu deiner zweiten Frage: Sieh dir mal Pixmaps und ReadPixel() an.

MFG Lador
Mein aktuelles Projekt:
2D-Rollenspiel "Iliran"
Screenshot | Worklog
Fortschritt: ca. 70%
 

funkheld

BeitragMo, Aug 15, 2016 22:33
Antworten mit Zitat
Benutzer-Profile anzeigen
Ja danke.
Mit Pixmaps konnte ich nichts anfangen. Ist aber sehr interessant.

Global bild:TImage=CreateImage(70,40)

Kann man von dem Image "Bild" die Anfangsadresse rauskriegen und da Pixel RGBA hineinschreiben?

Danke.
GRuss

Mathias-Kwiatkowski

BeitragDi, Aug 16, 2016 5:00
Antworten mit Zitat
Benutzer-Profile anzeigen
nein dafür müsstest du es glaube ich zu wissen als TPixmap einladen
Skype: Anarchie1984
http://projektworks.de/maxbase/
Icq - Erneuert am 21.08.2017
Yahoo - Erneuert am 21.08.2017

Midimaster

BeitragDi, Aug 16, 2016 8:55
Antworten mit Zitat
Benutzer-Profile anzeigen
Erst Screeshot erzeugen, dann darin Pixel erfassen, dann in die vier Werte ARGB zerlegen:

BlitzMax: [AUSKLAPPEN]
Graphics 800,600
Local myARGB=GetScreenColor(10,10)


Type ARGB
Field A%,R%,G%,B%
End Type


Function GetScreenPixel:Int(X%,y%)
Local Grab:TPixmap=GrabPixmap(x,y,1,1)
Return Grab.ReadPixel(0,0)
End Function


Function ConvertIntToARGB:ARGB(wert%)
Local loc:ARGB= New ARGB
loc.A= (wert Shr 24) & 255
loc.R= (wert Shr 16) & 255
loc.G= (wert Shr 8) & 255
loc.B= (wert Shr 0) & 255
Print loc.a + " " + loc.r + " " + loc.g + " " + loc.b
Return loc
End Function


Function GetScreenColor:ARGB(x%,y%)
Local Wert%=GetScreenPixel(x,y)
Return ConvertIntToARGB(Wert)
End Function
Gewinner des BCC #53 mit "Gitarrist vs Fussballer" http://www.midimaster.de/downl...ssball.exe

Neue Antwort erstellen


Übersicht BlitzMax, BlitzMax NG Allgemein

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group