2303
|
1 ### Copyright (C) 1996 John W. Eaton |
|
2 ### |
|
3 ### This file is part of Octave. |
|
4 ### |
|
5 ### Octave is free software; you can redistribute it and/or modify it |
|
6 ### under the terms of the GNU General Public License as published by |
|
7 ### the Free Software Foundation; either version 2, or (at your option) |
|
8 ### any later version. |
|
9 ### |
|
10 ### Octave is distributed in the hope that it will be useful, but |
|
11 ### WITHOUT ANY WARRANTY; without even the implied warranty of |
|
12 ### MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
|
13 ### General Public License for more details. |
|
14 ### |
|
15 ### You should have received a copy of the GNU General Public License |
|
16 ### along with Octave; see the file COPYING. If not, write to the Free |
|
17 ### Software Foundation, 59 Temple Place - Suite 330, Boston, MA |
|
18 ### 02111-1307, USA. |
245
|
19 |
2311
|
20 ## usage: rot90 (x, k) |
|
21 ## |
|
22 ## Rotate the matrix x counterclockwise k*90 degrees. |
|
23 ## |
|
24 ## If the second argument is omitted, k is taken to be 1. |
|
25 ## |
|
26 ## See also: flipud, fliplr |
4
|
27 |
2311
|
28 function y = rot90 (x, k) |
4
|
29 |
|
30 if (nargin < 2) |
|
31 k = 1; |
|
32 endif |
|
33 |
|
34 if (imag (k) != 0 || fix (k) != k) |
|
35 error ("rot90: k must be an integer"); |
|
36 endif |
|
37 |
|
38 if (nargin == 1 || nargin == 2) |
|
39 k = rem (k, 4); |
|
40 if (k < 0) |
|
41 k = k + 4; |
|
42 endif |
|
43 if (k == 0) |
|
44 y = x; |
|
45 elseif (k == 1) |
|
46 y = flipud (x'); |
|
47 elseif (k == 2) |
|
48 y = flipud (fliplr (x)); |
|
49 elseif (k == 3) |
|
50 y = (flipud (x))'; |
|
51 else |
|
52 error ("rot90: internal error!"); |
|
53 endif |
|
54 else |
904
|
55 usage ("rot90 (x [, k])"); |
4
|
56 endif |
|
57 |
|
58 endfunction |