Mercurial > octave-nkf
diff scripts/image/ocean.m @ 559:4e826edfbc56
[project @ 1994-07-25 22:18:28 by jwe]
Initial revision
author | jwe |
---|---|
date | Mon, 25 Jul 1994 22:19:05 +0000 |
parents | |
children | 3470f1e25a79 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scripts/image/ocean.m Mon Jul 25 22:19:05 1994 +0000 @@ -0,0 +1,18 @@ +function map = ocean(number) + + if(nargin == 0) + number = 64; + endif + + cutin = fix(number/3); + + + dr = (number-1)/(cutin); + r = prepad([0:dr:(number-1)],number)'; + dg = (number-1)/(2*cutin); + g = prepad([0:dg:(number-1)],number)'; + b = [0:(number-1)]'; + + map = [ r g b ]/(number-1); + +endfunction