Mercurial > hg > octave-lyh

diff scripts/image/prism.m @ 14641:5f1d4def40e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improve compatibility of colormap functions * autumn.m, bone.m, cool.m, copper.m, flag.m, gmap40.m, gray.m, hot.m, hsv.m, jet.m, lines.m, ocean.m, pink.m, prism.m, rainbow.m, spring.m, summer.m, winter: Always size and return 0x3 when size < 1. Return same values as Matlab when size == 1.
author Carnë Draug <carandraug+dev@gmail.com>
date Wed, 16 May 2012 16:52:44 -0400
parents b9c02ee24de1
children 1a800034d443
line wrap: on
line diff
--- a/scripts/image/prism.m
+++ b/scripts/image/prism.m
@@ -43,8 +43,14 @@
     print_usage ();
   endif
 
-  C = [1, 0, 0; 1, 1/2, 0; 1, 1, 0; 0, 1, 0; 0, 0, 1; 2/3, 0, 1];
-  map = C(rem (0:(n-1), 6) + 1, :);
+  if (n == 1)
+    map = [1 0 0];
+  elseif (n > 1)
+    C = [1, 0, 0; 1, 1/2, 0; 1, 1, 0; 0, 1, 0; 0, 0, 1; 2/3, 0, 1];
+    map = C(rem (0:(n-1), 6) + 1, :);
+  else
+    map = zeros (0, 3);
+  endif
 
 endfunction