Julia: add translategroup() (and use it)

2 files changed, 23 insertions, 1 deletions

diff --git a/julia/CrystFEL/src/CrystFEL.jl b/julia/CrystFEL/src/CrystFEL.jl
index 27ee8b0b..63b636b1 100644
--- a/julia/CrystFEL/src/CrystFEL.jl
+++ b/julia/CrystFEL/src/CrystFEL.jl
@@ -46,7 +46,7 @@ export SymOpList
 
 include("datatemplates.jl")
 using .DataTemplates
-export DataTemplate, loaddatatemplate, wavelength, cameralength
+export DataTemplate, loaddatatemplate, wavelength, cameralength, translategroup
 
 include("peaklist.jl")
 using .PeakLists
diff --git a/julia/CrystFEL/src/datatemplates.jl b/julia/CrystFEL/src/datatemplates.jl
index 16433d9f..b76a272e 100644
--- a/julia/CrystFEL/src/datatemplates.jl
+++ b/julia/CrystFEL/src/datatemplates.jl
@@ -3,6 +3,7 @@ module DataTemplates
 import ..CrystFEL: libcrystfel
 export DataTemplate, InternalDataTemplate, loaddatatemplate
 export wavelength, cameralength
+export translategroup
 
 # Represents the real C-side (opaque) structure.
 mutable struct InternalDataTemplate end
@@ -83,4 +84,25 @@ function cameralength(dtempl::DataTemplate)
 end
 
 
+"""
+    translategroup(datatemplate, groupname, xshift, yshift, zshift)
+
+Modifies `DataTemplate` by moving the specified panel group by the specified
+amount (in metres).
+
+Corresponds to CrystFEL C API function `data_template_translate_group`.
+"""
+function translategroup(dtempl::DataTemplate, groupname, xshift, yshift, zshift)
+    r = @ccall libcrystfel.data_template_translate_group_m(dtempl.internalptr::Ptr{InternalDataTemplate},
+                                                             groupname::Cstring,
+                                                             xshift::Cdouble,
+                                                             yshift::Cdouble,
+                                                             zshift::Cdouble)::Cint
+    if r != 0
+        throw(ErrorException("Failed to shift DataTemplate"))
+    end
+
+end
+
+
 end  # of module