HEX-Farben zu normalen Farben

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

 

BlitzBasic303

Betreff: HEX-Farben zu normalen Farben

 BeitragSo, Sep 25, 2005 15:07
Antworten mit Zitat
Benutzer-Profile anzeigen
Hi!

Ich habe einen Colorpicker(vom Escape Gui) und möchte damit die Farbe eines 3dmodells bestimmen.das Problem: die Farben sind im Hexdezimalsystem.
1. wie kriege ich sie zu Farbwerten?

2. Wie kann ich dann das Objekt einfärben?

Mfg

BlitzBasic303
 

Ava

Gast

BeitragSo, Sep 25, 2005 15:25
Antworten mit Zitat
Forumsuche verwenden... *lalala* ...

https://www.blitzforum.de/view...hlight=rgb

Rolling Eyes
 

BlitzBasic303

Betreff: RE:

 BeitragSo, Sep 25, 2005 15:35
Antworten mit Zitat
Benutzer-Profile anzeigen
Was heißt das "rgb" und die variable "a" in diesem beispiel?
 

Ava

Gast

BeitragSo, Sep 25, 2005 15:39
Antworten mit Zitat
a = alpha
r = rot
g = grün
b = blau

Deine Hex-Farbe baut sich so auf: #aarrggbb
Mit den dortigen Rechenschritten kannst Du Deine Hex-Farbe in
die einzelnen Farbwerte zerlegen und diese dann BB-Funktionen,
wie zb. color(r, g, b), entityColor(entity, r, g, b) oder entityAlpha(entity, a)
übergeben.
 

Florian

 BeitragSo, Sep 25, 2005 16:08
Antworten mit Zitat
Benutzer-Profile anzeigen
BlitzBasic: [AUSKLAPPEN] 


Function FarbWert(FarbNummer$)
 If Mid$(FarbNummer$,1,1)=\"$\" Then
  r=Asc(Mid$(FarbNummer$,1,1))
  g=Asc(Mid$(FarbNummer$,2,1))
  b=Asc(Mid$(FarbNummer$,3,1))
  Return r*$10000 + g*$100 + b
 End If 
End Function 

Function Bin16inAscii$(ZAHL$)
 lenZahl=Len(Zahl$)
 For X=1 To Lenzahl Step 2 

  Select Mid$(ZAHL$,x+1,1)
   Case \"0\":W=  0 
   Case \"1\":W= 16
   Case \"2\":W= 32 
   Case \"3\":W= 48
   Case \"4\":W= 64
   Case \"5\":W= 80
   Case \"6\":W= 96
   Case \"7\":W= 112
   Case \"8\":W= 128
   Case \"9\":W= 144
   Case \"A\":W= 160
   Case \"B\":W= 167
   Case \"C\":W= 192
   Case \"D\":W= 208
   Case \"E\":W= 224
   Case \"F\":W= 240 
  End Select 

  Select Mid$(ZAHL$,x+2,1)
   Case \"0\":W= W+ 0 
   Case \"1\":W= W+ 1
   Case \"2\":W= W+ 2
   Case \"3\":W= W+ 3
   Case \"4\":W= W+ 4
   Case \"5\":W= W+ 5
   Case \"6\":W= W+ 6
   Case \"7\":W= W+ 7
   Case \"8\":W= W+ 8
   Case \"9\":W= W+ 9
   Case \"A\":W= W+10
   Case \"B\":W= W+11
   Case \"C\":W= W+12
   Case \"D\":W= W+13
   Case \"E\":W= W+14
   Case \"F\":W= W+15 
  End Select 
  S$=S$+Chr$(W)
 Next
 Return S$ 
End Function

Function ColorI(I)
 Color (I And $FF0000)/$10000,(I And $FF00)/$100,I And $FF
End Function

Function Farbe(r,g,B)
 Return r*$10000 + g*$100 + b
End Function

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group