Added fallback for missing license (imaging toolbox)

Signed-off-by: Nicola Vigano <nicola.vigano@esrf.fr>

zUtil_Deformation/gtDefSyntheticGrainCreate.m

@@ -360,7 +360,17 @@ function arr = expand_array(arr, ssampling, is_spatial, method)
         arr = cat(2, 2 * arr(:, 1, :) - arr(:, 2, :), arr, 2 * arr(:, end, :) - arr(:, end-1, :));
         arr = cat(3, 2 * arr(:, :, 1) - arr(:, :, 2), arr, 2 * arr(:, :, end) - arr(:, :, end-1));
     else
-        arr = padarray(arr, [1 1 1], 'both');
+        try
+            arr = padarray(arr, [1 1 1], 'both');
+        catch mexc
+            if (strcmpi(mexc.identifier, 'MATLAB:license:checkouterror'))
+                arr = cat(1, arr(1, :, :), arr, arr(end, :, :));
+                arr = cat(2, arr(:, 1, :), arr, arr(:, end, :));
+                arr = cat(3, arr(:, :, 1), arr, arr(:, :, end));
+            else
+                rethrow(mexc)
+            end
+        end
     end
 
     corner = (1 - (1 / ssampling)) / 2;

zUtil_Maths/gtMathsDivergence.m

@@ -8,7 +8,18 @@ function d = gtMathsDivergence(x)
         padsize = zeros(1, num_dims);
         padsize(ii_d) = 1;
 
-        d{ii_d} = diff(padarray(x{ii_d}, padsize, 'pre'), 1, ii_d);
+        try
+            pad_x = padarray(x{ii_d}, padsize, 'pre');
+        catch mexc
+            if (strcmpi(mexc.identifier, 'MATLAB:license:checkouterror'))
+                dims = size(x{ii_d});
+                pad_x = cat(ii_d, zeros(~padsize * (dims(ii_d) - 1) + 1), x{ii_d});
+            else
+                rethrow(mexc)
+            end
+        end
+
+        d{ii_d} = diff(pad_x, 1, ii_d);
     end
 
     d = gtMathsSumCellVolumes(d);

zUtil_Maths/gtMathsGradient.m

@@ -10,6 +10,16 @@ function d = gtMathsGradient(x)
         padsize = zeros(1, num_dims);
         padsize(ii_d) = 1;
 
-        d{ii_d} = diff(padarray(x, padsize, 'post'), 1, ii_d);
+        try
+            pad_x = padarray(x, padsize, 'post');
+        catch mexc
+            if (strcmpi(mexc.identifier, 'MATLAB:license:checkouterror'))
+                pad_x = cat(ii_d, x, zeros(~padsize * (dims(ii_d) - 1) + 1));
+            else
+                rethrow(mexc)
+            end
+        end
+
+        d{ii_d} = diff(pad_x, 1, ii_d);
     end
 end
\ No newline at end of file