annotate 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 |
rev |
line source |
559
|
1 function map = ocean(number) |
|
2 |
|
3 if(nargin == 0) |
|
4 number = 64; |
|
5 endif |
|
6 |
|
7 cutin = fix(number/3); |
|
8 |
|
9 |
|
10 dr = (number-1)/(cutin); |
|
11 r = prepad([0:dr:(number-1)],number)'; |
|
12 dg = (number-1)/(2*cutin); |
|
13 g = prepad([0:dg:(number-1)],number)'; |
|
14 b = [0:(number-1)]'; |
|
15 |
|
16 map = [ r g b ]/(number-1); |
|
17 |
|
18 endfunction |