RGB to HSV and HSV to RGB conversion

// assumes R,G,B values in the range [0..65535]
Function [variable H, variable S, variable V] RGB2HSV(int R, int G, int B)
    variable Mx = max(R,G,B), Mn = min(R,G,B)
    H = acos((R-G/2-B/2)/sqrt(R^2+G^2+B^2-R*G-R*B-G*B))*180/pi
    H = G>=B ? 360-H : H; H = numtype(H)!=0 ? 0 : H
    S = Mx==0 ? 0 : (1-Mn/Mx)
    V = Mx/65535
    return [H,S,V]  // outputs H = [0..360], S,V = [0..1]
End

// assumes a H value in the range [0..360] and S,V values in the range [0..1]
Function [int R, int G, int B] HSV2RGB(variable H, variable S, variable V)
    variable C = V*65535, M = C*(1-S), X = (C-M)*(1-abs(mod(H/60,2)-1))
    if     (H >=   0 && H < 60)
        R = C; G = M; B = X+M;
    elseif (H >=  60 && H < 120)
        R = X+M; G = M; B = C;
    elseif (H >= 120 && H < 180)
        R = M; G = X+M; B = C;
    elseif (H >= 180 && H < 240)
        R = M; G = C; B = X+M;
    elseif (H >= 240 && H < 300)
        R = X+M; G = C; B = M;
    elseif (H >= 300 && H <= 360)
        R = C; G = X+M; B = M;
    endif
    return [R,G,B]  // outputs R,G,B = [0..65535]
End