Convert HSV to RGB

hsv-to-rgb.rkt

(define (hsv-to-rgb hue saturation value)
    (let* ([C (* saturation value)]
           [A (abs (- (modulo (/ hue 60) 2)
                      1))]
           [X (* (- 1 A))]
           [m (- value C)]
           [rgb-prime 
                (cond
                    [(<= 0   hue  59) `(,C ,X 0)]
                    [(<= 60  hue 119) `(,X ,C 0)]
                    [(<= 120 hue 179) `(0 ,C ,X)]
                    [(<= 180 hue 239) `(0 ,X ,C)]
                    [(<= 240 hue 299) `(,X 0 ,C)]
                    [(<= 300 hue 359) `(,C 0 ,X)])])
        (map (λ (v) (* 255 (+ v m))) rgb-prime)))