Mercurial > octave-nkf
diff scripts/image/ocean.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/ocean.m Wed May 16 16:52:08 2012 -0400 +++ b/scripts/image/ocean.m Wed May 16 16:52:44 2012 -0400 @@ -45,17 +45,23 @@ print_usage (); endif - cutin = fix (n/3); + if (n == 1) + map = [0, 0, 0]; + elseif (n > 1) + cutin = fix (n/3); - dr = (n - 1) / cutin; - r = prepad ([0:dr:(n-1)], n)'; + dr = (n - 1) / cutin; + r = prepad ([0:dr:(n-1)], n)'; - dg = (n - 1) / (2 * cutin); - g = prepad ([0:dg:(n-1)], n)'; + dg = (n - 1) / (2 * cutin); + g = prepad ([0:dg:(n-1)], n)'; + + b = [0:(n-1)]'; - b = [0:(n-1)]'; - - map = [r, g, b] / (n - 1); + map = [r, g, b] / (n - 1); + else + map = zeros (0, 3); + endif endfunction