Convert from HSV to RGB (Emacs)

my-color-hsv-to-rgb.el

(defun my-color-hsv-to-rgb (h s v)
	"HSV[0.0, 1.0]からRGB[0.0, 1.0]へ変換する (SOURCE:Wikipedia)"
	(let ((r v)
				(g v)
				(b v))
		(if (> s 0)
				(progn 
					(setq h (* h 6))
					(let* ((i (truncate h))
								 (f (- h i)))
						(case i
							(0 (progn
									 (setq g (* g (- 1 (* s (- 1 f)))))
									 (setq b (* b (- 1 s)))))
							(1 (progn
									 (setq r (* r (- 1 (* s f))))
									 (setq b (* b (- 1 s)))))
							(2 (progn
									 (setq r (* r (- 1 s)))
									 (setq b (* b (- 1 (* s (- 1 f)))))))
							(3 (progn
									 (setq r (* r (- 1 s)))
									 (setq g (* g (- 1 (* s f))))))
							(4 (progn
									 (setq r (* r (- 1 (* s (- 1 f)))))
									 (setq g (* g (- 1 s)))))
							(5 (progn
									 (setq g (* g (- 1 s)))
									 (setq b (* b (- 1 (* s f))))))))))
		(list r g b)))