1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
function [r,g,b]=hsv2rgb(h,s,v)
if and(argn(2)<>[1 3]) then
error(msprintf(gettext("%s: Wrong number of input argument(s): %d or %d expected.\n"), "hsv2rgb", 1, 3));
end
if argn(2)==1 then
v=h(:,3);s=h(:,2);h=h(:,1)
else
h = h(:);s = s(:);v = v(:)
end
h=6*h
k=fix(h-6*%eps)
f=h-k
t=1-s
n=1-s.*f
p=1-s.*(1-f)
e=ones(h)
K=bool2s(k*ones(1,6)==ones(k)*(0:5))
r=sum(K.*[e n t t p e],2)
g=sum(K.*[p e e n t t],2)
b=sum(K.*[t t p e e n],2)
f=v ./ max([r(:);g(:);b(:)])
if argn(1)==1 then
r=[f.*r,f.*g,f.*b]
else
r=f.*r;g=f.*g;b=f.*b
end
endfunction
|
