Рульное деление R G B vs нечитаемые области мозга

[Proxy]

Поискал на форуме, нашёл только тупое разделение с помощью целочисленного деления и остатка. Это очень тормозно.
Вот примерно то, что я применял ранее:

Код: Выделить всё

Type userColortype
red as byte
green as byte
blue as byte
End Type
Dim userColor as userColortype

или просто массив userColor() as byte, не помню точно,
НО забытость далее:
далее я точно помню, что каким-то образом в одно действие присваивал переменной (ну или массиву, не помню) userColor long`овое значение цвета и далее оставалось только прямо к байтовым компанентам цвета обращаться. Вот только непомню, каким образом побайтно копировал цвет из переменной Long`ового типа в переменную моего типа (ну или массив, не помню).
Напомните, кто догадывается о чём я.

[Хакер]

Ты о And, Or и битовых свдигах, эмулируемых делением и умножением.

[pronto]

Код: Выделить всё

Private Type UserColor
   r As Byte
   g As Byte
   b As Byte
   a As Byte
End Type

Private f As UserColor
Private v As Long

Private Declare Sub GetMem4 Lib "msvbvm60" (ByVal pSrc As Long, ByVal pDst As Long)

Option Explicit

Private Sub Command1_Click()
   v = RGB(255, 0, 128)
   
   [b]GetMem4[/b] ByVal VarPtr(v), ByVal VarPtr(f) ' <<< Оно?
   
   Debug.Print "red   - " & f.r
   Debug.Print "green - " & f.g
   Debug.Print "blue  - " & f.b
   Debug.Print "alpha - " & f.a
End Sub

[Хакер]

Это катастрофической силы кошмарный код.

[pronto]

Что кошмарнее?

GetMem4 ByVal VarPtr(v), ByVal VarPtr(f)

или
CopyMemory?

или
c = rgb(255, 0, 128)
R = c& And &HFF&
G = (c& And &HFF00&) \ &H100&
B = (c& And &HFF0000) \ &H10000

[alibek]

LSet