From 815a61af71648e2b90a0e8c2491a29ab8d163e19 Mon Sep 17 00:00:00 2001
From: Peter Reischig <peter.reischig@esrf.fr>
Date: Thu, 28 Mar 2013 13:36:48 +0100
Subject: [PATCH] Added spacegroup 62 and 0 to gtCrystRodriguesFundZone.
Signed-off-by: Peter Reischig <peter.reischig@esrf.fr>
---
zUtil_Cryst/gtCrystRodriguesFundZone.m | 17 +++++++++++++++--
1 file changed, 15 insertions(+), 2 deletions(-)
diff --git a/zUtil_Cryst/gtCrystRodriguesFundZone.m b/zUtil_Cryst/gtCrystRodriguesFundZone.m
index 6fddca21..e2a90e3d 100644
--- a/zUtil_Cryst/gtCrystRodriguesFundZone.m
+++ b/zUtil_Cryst/gtCrystRodriguesFundZone.m
@@ -22,7 +22,7 @@ function faces = gtCrystRodriguesFundZone(spacegroup,sm)
%
if ~exist('sm','var')
- sm=0;
+ sm = 0;
end
@@ -74,8 +74,21 @@ switch spacegroup
% All faces
faces = [basal; facets];
+
+
+ % Orthorhombic and unknown (limit to 90deg rotations in all direction)
+ case {0, 62}
-
+ % Sides of the cube:
+ limcube = 1; % half the edge of the cube
+ faces = [ 1 0 0 1 0 0;
+ -1 0 0 -1 0 0;
+ 0 1 0 0 1 0;
+ 0 -1 0 0 -1 0;
+ 0 0 1 0 0 1;
+ 0 0 -1 0 0 -1]*(limcube+sm);
+
+
otherwise
error('The specified spacegroup is not recognized.')
--
GitLab