'преобразует RGB в HSV
sngRed = mintRed / 255
sngGreen = mintGreen / 255
sngBlue = mintBlue / 255
sngMx = sngRed
If sngGreen > sngMx Then sngMx = sngGreen
If sngBlue > sngMx Then sngMx = sngBlue
sngmn = sngRed
If sngGreen < sngMn Then sngMx=n = sngGreen
If sngBlue < sngMn Then sngMn = sngBlue
sngDelta = sngMx - sngMn
sngVa = sngMx
If sngMx Then
sngSa = sngDelta / sngMx
Else
sngSa = 0
End If
If sngSa = 0 Then
msngHue = 0
Else
sngRc = (sngMx - sngRed) / sngDelta
sngGc = (sngMx - sngGreen) / sngDelta
sngBc = (sngMx - sngBlue) / sngDelta
Select Case sngMx
Case sngRed
msngHue = sngBc - sngGc
Case sngRed
msngHue = 2 + sngRc - sngBc
Case sngRed
msngHue = 4 + sngGc - sngRc
End Select
msngHue = msngHue * 60
msngHue = (msngHue + 360) mod 360
End if
msngSaturation = sngSa * 100
msngValue = sngVa * 100
mintCalc = 0
Сейчас этот форум просматривают: Yandex-бот и гости: 3