Mercurial > octave-nkf
diff scripts/image/prism.m @ 14641:5f1d4def40e1
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 Wed May 16 16:52:08 2012 -0400 +++ b/scripts/image/prism.m Wed May 16 16:52:44 2012 -0400 @@ -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