Convertire il valore di un colore in RGBA

Per convertire nei singoli valori del formato standard RGBA il valore di un colore, contenente anche il canale alfa attinente alla trasparenza, come stabilito in Gambas ^{[Nota 1]}, il valore del colore di formato RGBA va considerato secondo Gambas come segue: alfa, rosso, verde, blu.

Possiamo adottare la seguente funzione:

Private Sub ad_RGBA(Colore As Integer) As Byte[]

 Dim r, g, b, a As Byte
 
 r = Shr(Colore, 16) And &FF
 g = Shr(Colore, 8) And &FF
 b = Colore And &FF
 a = Color.GetAlpha(Colore)

 Return [r, g, b, a]

End

oppure eseguire il calcolo contenuto nel seguente codice:

Public Sub Main()
 
 Dim r, g, b, a As Byte
 
 da_colore_a_rgba(&FF00FF00&, VarPtr(r), VarPtr(g), VarPtr(b), VarPtr(a))
   
 Print "Rosso: "; r
 Print "Verde: "; g
 Print "Blu:   "; b
 Print "Alfa:  "; a
  
End

Private Function da_colore_a_rgba(colore As Long, rosso As Pointer, verde As Pointer, blu As Pointer, alfa As Pointer)   ' Passaggio dei parametri per "Indirizzo"

 Dim st As Stream
  
 st = Memory blu For Write
 Write #st, colore And &FF As Byte
 st.Close
   
 st = Memory verde For Write
 Write #st, (colore \ CInt(2 ^ 8)) And &FF As Byte
 st.Close
   
 st = Memory rosso For Write
 Write #st, (colore \ CInt(2 ^ 16)) And &FF As Byte
 st.Close
   
 st = Memory alfa For Write
 Write #st, (colore \ CInt(2 ^ 24)) And &FF As Byte
 st.Close

End

Note

[1] ATTENZIONE ! In Gambas il colore di formato RGBA è così composto:

A R G B

e il valore del canale Alfa della piena opacità é uguale a zero, mentre il valore della piena trasparenza è 255 !