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