35 lines
996 B
Factor
35 lines
996 B
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
|
||
|
|
|
||
|
|
: f_ ( h s v i -- f ) >r transp >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 list -- )
|
||
|
|
#! Call p mod q'th entry of the list of quotations, where
|
||
|
|
#! q is the length of the list. The value q remains on the
|
||
|
|
#! stack.
|
||
|
|
[ dupd length mod ] keep 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 transp ( t p v ) ]
|
||
|
|
[ f_ q p ( v p q ) ]
|
||
|
|
] mod-cond ;
|