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]}, possiamo adottare il calcolo contenuto nel seguente codice:

Public Sub Main()
 
 Dim r, g, b, a As Byte
 
' Il valore del colore di formato RGBA va considerato secondo Gambas come segue: alfa, rosso, verde, blu.
  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 !