Mercurial > octave-nkf

diff scripts/image/flag.m @ 7017:a1dbe9d80eee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-10-12 21:27:11 by jwe]
author jwe
date Fri, 12 Oct 2007 21:27:37 +0000
parents 93c65f2a5668
children 1bf0ce0930be
line wrap: on
line diff
--- a/scripts/image/flag.m	Fri Oct 12 06:41:26 2007 +0000
+++ b/scripts/image/flag.m	Fri Oct 12 21:27:37 2007 +0000
@@ -1,4 +1,4 @@
-## Copyright (C) 1999,2000  Kai Habel
+## Copyright (C) 1999, 2000, 2007 Kai Habel
 ##
 ## This file is part of Octave.
 ##
@@ -45,7 +45,9 @@
   if (rem(number,4) == 0)
     map = kron (ones (number / 4, 1), p);
   else
-    map = [kron (ones (fix (number / 4), 1), p); p(1:rem (number, 4), :)];
+    m1 = kron (ones (fix (number / 4), 1), p);
+    m2 = p(1:rem (number, 4), :);
+    map = [m1; m2];
   endif
 
 endfunction