Mercurial > octave-nkf

comparison scripts/image/gmap40.m @ 10433:2c01d24459fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Detabify scripts in 'scripts/image/'
author Soren Hauberg <hauberg@gmail.com>
date Mon, 22 Mar 2010 12:36:30 -0700
parents 2b0cc0b6db61
children 466ba499eff5
comparison
equal deleted inserted replaced
10432:10207338603a 10433:2c01d24459fb
39 print_usage (); 39 print_usage ();
40 endif 40 endif
41 41
42 if (number >= 1) 42 if (number >= 1)
43 map = repmat ([1, 0, 0; 0, 1, 0; 0, 0, 1; 1, 1, 0; 1, 0, 1; 0, 1, 1], 43 map = repmat ([1, 0, 0; 0, 1, 0; 0, 0, 1; 1, 1, 0; 1, 0, 1; 0, 1, 1],
44 ceil (number / 6), 1) (1:number, :); 44 ceil (number / 6), 1) (1:number, :);
45 else 45 else
46 map = []; 46 map = [];
47 endif 47 endif
48 48
49 endfunction 49 endfunction