add rotate function

Author: dlegland

src/@Image/rotate.m

@@ -0,0 +1,27 @@
+function res = rotate(obj, angle, varargin)
+% Rotate the current image by the specified angle in degrees.
+%
+%   IMG2 = rotate(IMG, ANGLE)
+%
+%   Example
+%     % Apply a rotation by 30 degrees to the cameraman image
+%     img = Image.read('cameraman.tif');
+%     imgRot = rotate(img, 30);
+%     show(imgRot)
+%
+%   See also
+%     rotate90
+%
+ 
+% ------
+% Author: David Legland
+% e-mail: david.legland@inrae.fr
+% INRAE - BIA Research Unit - BIBS Platform (Nantes)
+% Created: 2020-12-07,    using Matlab 9.8.0.1323502 (R2020a)
+% Copyright 2020 INRAE.
+
+nd = length(obj.Data);
+data = permute(obj.Data, [2 1 3:nd]);
+data2 = permute(imrotate(data, -angle, varargin{:}), [2 1 3:nd]);
+
+res = Image('Data', data2, 'Parent', obj);

src/@Image/rotate90.m

@@ -30,7 +30,7 @@
 %     subplot(122);show(rotate90(img));
 %
 %   See also
-%     flip, permute
+%     flip, permute, rotate
 %
 
 % ------
@@ -105,5 +105,3 @@
 % also permute spacing and origin of image
 res.Origin  = obj.Origin(permDims(1:nd));
 res.Spacing = obj.Spacing(permDims(1:nd));
-
-    

tests/image/test_rotate.m

@@ -0,0 +1,41 @@
+function tests = test_rotate
+% Test suite for the file rotate.
+%
+%   Test suite for the file rotate
+%
+%   Example
+%   test_rotate
+%
+%   See also
+%     rotate
+
+% ------
+% Author: David Legland
+% e-mail: david.legland@inrae.fr
+% Created: 2020-12-07,    using Matlab 9.8.0.1323502 (R2020a)
+% Copyright 2020 INRAE - BIA-BIBS.
+
+tests = functiontests(localfunctions);
+
+
+function test_Simple(testCase) %#ok<*DEFNU>
+% Test call of function without argument.
+
+
+img = Image.read('rice.png');
+
+res = rotate(img, 10);
+
+assertTrue(testCase, isa(res, 'Image'));
+
+
+function test_OptionCrop(testCase) %#ok<*DEFNU>
+% Test call of function without argument.
+
+
+img = Image.read('rice.png');
+
+res = rotate(img, 10, 'crop');
+
+assertTrue(testCase, isa(res, 'Image'));
+assertEqual(testCase, size(res), size(img));