Wie gelang ich zu ARGB ERLEDIGT
Übersicht BlitzMax, BlitzMax NG Beginners-Corner
Mathias-KwiatkowskiBetreff: Wie gelang ich zu ARGB ERLEDIGT |
Do, März 15, 2018 6:17 Antworten mit Zitat |
|
---|---|---|
ich habe ein folgendes problem, RGB hab ich schon immer kapiert aber bei ARGB hörrt es auf, brauchte ich ja auch so nie. nun möchte ich in einer pixmap ein roten punkt an der pos 10,10 setzen und benötige eine funktion die rgb zu argb umwandelt, da ich selbst in meinen versuchen kläglich gescheitert bin.
gibt es solch eine funktion? im internet bin ich auf sämtliches gestoßen auch ausserhalb blitzmax oder bb bereich aber verstanden habe ich es nicht wirklich, $FF usw keine ahnung andere haben bit zahlen benutzt oder so ähnlich. (wenn ich mich nich täusche) gut wie dem sei ich stottere bei einer funktion die rgb zu argb umwandeln soll wollte mir was erstellen z.b. GetARGB (R%,G%,B%) dann den argb wert returnen, aber ich weiß nichmal ob ich int float string returnen muss. Code: [AUSKLAPPEN] Local PixMap:TPixmap = CreatePixmap(800, 600, PF_RGB888) WritePixel(pixmap, 10, 10, argb ERLEDIGT! ich habe nun was gefunden auf mojolabs.nz wehm es interessiert Code: [AUSKLAPPEN] Function IntColor:Int(R:Int, G:Int, B:Int, A:Int = 0)
Return A Shl 24 Or R Shl 16 Or G Shl 8 Or B Shl 0 End Function IntColor:Int(R:Int, G:Int, B:Int, A:Int = 255) A=255 = Transparent Edit2! Leider funktioniert es doch nicht richtig, man kann nur rot als farbe setzen |
||
Skype: Anarchie1984
http://projektworks.de/maxbase/ Icq - Erneuert am 21.08.2017 Yahoo - Erneuert am 21.08.2017 |
Midimaster |
Do, März 15, 2018 9:30 Antworten mit Zitat |
|
---|---|---|
ich hab da vor Jahren mal was gemacht, womit Kinder Zeichnungen am Bildschirm "ausmalen" konnten. Dafür habe ich ARGB Manipulationen einer Pixmap gemacht.
Diese beiden Funktionen waren damals im Code: BlitzMax: [AUSKLAPPEN]
|
||
Gewinner des BCC #53 mit "Gitarrist vs Fussballer" http://www.midimaster.de/downl...ssball.exe |
HolzchopfMeisterpackerBetreff: Re: Wie gelang ich zu ARGB ERLEDIGT |
Do, März 15, 2018 14:05 Antworten mit Zitat |
|
---|---|---|
Mathias-Kwiatkowski hat Folgendes geschrieben: Edit2!
Leider funktioniert es doch nicht richtig, man kann nur rot als farbe setzen Seltsam, der Code sieht eigentlich richtig aus vielleicht liegt die Ursache woanders. Hast du evtl. ein SetColor(255,0,0) drin, bevor du das Bild dann zeichnest? |
||
Erledige alles Schritt um Schritt - erledige alles. - Holzchopf
CC BY ♫ BinaryBorn - Yogurt ♫ (31.10.2018) Im Kopf da knackt's und knistert's sturm - 's ist kein Gedanke, nur ein Wurm |
Mathias-Kwiatkowski |
Do, März 15, 2018 15:43 Antworten mit Zitat |
|
---|---|---|
nein, es ist bei mir in einer save roatation...
Code: [AUSKLAPPEN] Function SaveTMap (data:string)
Local Datei:String = String (data) Local PixMap:TPixmap = CreatePixmap(800, 600, PF_RGB888) Local MFile:TStream = WriteFile(Datei) For Local Y:Int = 0 To 599 For Local X:Int = 0 To 799 MFile.WriteInt Map[X, Y] If Map[X, Y] = 1 Then WritePixel(pixmap, x, y, IntColor(128, 128, 128, 0)) Else WritePixel(pixmap, x, y, IntColor(0, 0, 0, 0)) EndIf MapErstellungspunkt = MapErstellungspunkt + 1 Next Next SavePixmapPNG(PixMap, Replace(Datei, ".sgm", ".png")) WriteLine MFile, "Enemy" For Local E:TEnemy = EachIn TEnemy.SpownPoints WriteLine MFile, E.SpownEnemy WriteLine MFile, E.SpownMenge WriteLine MFile, E.SpownX WriteLine MFile, E.SpownY Next WriteLine MFile, "End" WriteLine MFile, "Mauer" For Local D:TDurchgang = EachIn TDurchgang.DropListe WriteLine MFile, d.PosX WriteLine MFile, d.Posy WriteLine MFile, d.Level Next WriteLine MFile, "End" CloseFile MFile End Function |
||
Skype: Anarchie1984
http://projektworks.de/maxbase/ Icq - Erneuert am 21.08.2017 Yahoo - Erneuert am 21.08.2017 |
HolzchopfMeisterpacker |
Do, März 15, 2018 16:43 Antworten mit Zitat |
|
---|---|---|
Versuch's mal mit PF_RGBA8888 statt PF_RGB888, schliesslich verwendest du ja Alpha. Und dann auch IntColor(r, g, b, 255), denn a=0 heisst unsichtbar, a=255 wäre voll deckend. | ||
Erledige alles Schritt um Schritt - erledige alles. - Holzchopf
CC BY ♫ BinaryBorn - Yogurt ♫ (31.10.2018) Im Kopf da knackt's und knistert's sturm - 's ist kein Gedanke, nur ein Wurm |
Mathias-Kwiatkowski |
Do, März 15, 2018 18:21 Antworten mit Zitat |
|
---|---|---|
alles schwarz farbe 128,128,128,255 = schwarz .... also funktioniert leider nicht | ||
Skype: Anarchie1984
http://projektworks.de/maxbase/ Icq - Erneuert am 21.08.2017 Yahoo - Erneuert am 21.08.2017 |
HolzchopfMeisterpacker |
Fr, März 16, 2018 1:03 Antworten mit Zitat |
|
---|---|---|
Au, sorry
Es muss heissen BlitzMax: [AUSKLAPPEN] Return A Shl 24 | R Shl 16 | G Shl 8 | B Or ist das logische Oder, nicht das bitweise. |
||
Erledige alles Schritt um Schritt - erledige alles. - Holzchopf
CC BY ♫ BinaryBorn - Yogurt ♫ (31.10.2018) Im Kopf da knackt's und knistert's sturm - 's ist kein Gedanke, nur ein Wurm |
Mathias-Kwiatkowski |
Fr, März 16, 2018 5:40 Antworten mit Zitat |
|
---|---|---|
jo nun rennt es mit PF_RGB888 wunderbar sogar, danke | ||
Skype: Anarchie1984
http://projektworks.de/maxbase/ Icq - Erneuert am 21.08.2017 Yahoo - Erneuert am 21.08.2017 |
Übersicht BlitzMax, BlitzMax NG Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group