factor/library/sdl/hsv.factor

! Contains definition of the hsv>rgb word for converting
! Hue/Saturation/Value color values to RGB.

! This thing is GPL, hsv->rgb is a translation to Common Lisp of a 
! function found in color_sys.py in Python 2.3.0

! Translated to Factor by Slava Pestov.

IN: sdl
USE: kernel
USE: lists
USE: math
USE: namespaces
USE: vectors

: f_ ( h s v i -- f ) >r swap rot >r 2dup r> 6 * r> - ;
: p ( v s x -- v p x ) >r dupd neg succ * r> ;
: q ( v s f -- q ) * neg succ * ;
: t_ ( v s f -- t_ ) neg succ * neg succ * ;

: mod-cond ( p vector -- )
    #! Call p mod q'th entry of the vector of quotations, where
    #! q is the length of the vector. The value q remains on the
    #! stack.
    [ dupd vector-length mod ] keep vector-nth call ;

: hsv>rgb ( h s v -- r g b )
    pick 6 * >fixnum {
        [ f_ t_ p swap     ( v p t ) ]
        [ f_ q  p -rot     ( q v p ) ]
        [ f_ t_ p swapd    ( p v t ) ]
        [ f_ q  p rot      ( p q v ) ]
        [ f_ t_ p swap rot ( t p v ) ]
        [ f_ q  p          ( v p q ) ]
    } mod-cond ;