1 files changed, 41 insertions, 0 deletions
diff --git a/modules/graphics/macros/hsv2rgb.sci b/modules/graphics/macros/hsv2rgb.sci
new file mode 100755
index 000000000..b88eabb99
--- /dev/null
+++ b/modules/graphics/macros/hsv2rgb.sci
@@ -0,0 +1,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