Umwandlung von ARGB nach Farben geht nicht

Übersicht BlitzMax, BlitzMax NG Allgemein

Neue Antwort erstellen

Nicdel

Betreff: Umwandlung von ARGB nach Farben geht nicht

 BeitragMi, Jan 20, 2010 20:48
Antworten mit Zitat
Benutzer-Profile anzeigen
Guten Abend,

ich glaub ich hab ein Brett vor meinem Kopf. Die Farbwerte sind immer 255, egal bei welchem Eingabewert. Wo liegt das Problem?

BlitzMax: [AUSKLAPPEN] 

'Partikel erzeugen
TParticle.Create(65, pr.x + Rand(-10,10), pr.y + Rand(-10,10), Rnd(-2.0,2.0), Rnd(-2.0,2.0), $AADD00, $EEBB00)

'Die Funktion (in einem Type)
Function Create:TParticle(char:Byte, x#, y#, xs#, ys#, clrs%, clre%)
	
	Local pt:TParticle = New TParticle
		
	pt.char = char
		
	pt.x = x
		
	pt.y = y
		
	pt.xs = xs
		
	pt.ys = ys	
		
	pt.r = clrs Shr 16 And 255
		
	pt.g = clrs Shr 8 And 255
			
	pt.b = clrs And 255
				
	pt.re = clre Shr 16 And 255
		
	pt.ge = clre Shr 8 And 255

	pt.be = clre And 255
		
	TParticle.List.AddLast(pt)

	Return pt	
	
EndFunction


Mfg Nicdel
Desktop: Intel Pentium 4 2650 Mhz, 2 GB RAM, ATI Radeon HD 3850 512 MB, Windows XP
Notebook: Intel Core i7 720 QM 1.6 Ghz, 4 GB DDR3 RAM, nVidia 230M GT, Windows 7

mpmxyz

 BeitragMi, Jan 20, 2010 20:49
Antworten mit Zitat
Benutzer-Profile anzeigen
Nutze nicht "And" sondern "&".
In BlitzMax ist "And" nur für logische und nicht bitweise Operationen gedacht.
mfG
mpmxyz
Moin Moin!
Projekte: DBPC CodeCruncher Mandelbrot-Renderer

Nicdel

 BeitragMi, Jan 20, 2010 21:24
Antworten mit Zitat
Benutzer-Profile anzeigen
Danke! Ich wusste bis jetzt noch gar nicht, dass das in BMax wieder getrennt wurde Smile
Desktop: Intel Pentium 4 2650 Mhz, 2 GB RAM, ATI Radeon HD 3850 512 MB, Windows XP
Notebook: Intel Core i7 720 QM 1.6 Ghz, 4 GB DDR3 RAM, nVidia 230M GT, Windows 7

Neue Antwort erstellen


Übersicht BlitzMax, BlitzMax NG Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group