forum.boolean.name - Извлечение RGB компонент

Цитата:

The returned colour value is in the form of an integer than contains the alpha, red, green and blue values of the pixel.

- описание возвращаемого параметра во многих функциях б3д, работающих с пикселями. Вот один из вариантов получения составляющих (можно быстрее - через смещения):

Код:

Type TCOLOR

        Field red

        Field green

        Field blue

        Field alpha

End Type



Function TCOLOR_GET(ch,C.TCOLOR)

        Local colorstr$=DottedIP(ch)

        Local N1=1,N2

        N2=Instr(colorstr,".",N1)

        C\alpha=Mid(colorstr,N1,N2-N1)

        N1=N2+1

        N2=Instr(colorstr,".",N1)

        C\red=Mid(colorstr,N1,N2-N1)

        N1=N2+1

        N2=Instr(colorstr,".",N1)

        C\green=Mid(colorstr,N1,N2-N1)

        N1=N2+1

        N2=Instr(colorstr,".",N1)

        C\blue=Mid(colorstr,N1,N2-N1)

        ;DebugLog C\red+";"+C\green+";"+C\blue

End Function