From 286e243a171c8bcdfc91b5b6dcdd937ac95b0b7b Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Sat, 9 Nov 2019 16:19:40 +0100
Subject: Add optional OpenGL interop helper function for OpenCL target

---
 boltzgen/kernel/template/collect_moments.cl.mako | 25 ++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'boltzgen/kernel/template/collect_moments.cl.mako')

diff --git a/boltzgen/kernel/template/collect_moments.cl.mako b/boltzgen/kernel/template/collect_moments.cl.mako
index 67b2d68..63387b7 100644
--- a/boltzgen/kernel/template/collect_moments.cl.mako
+++ b/boltzgen/kernel/template/collect_moments.cl.mako
@@ -15,3 +15,28 @@ moments_subexpr, moments_assignment = model.moments()
     preshifted_m[${i}] = ${sympy.ccode(expr.rhs)};
 % endfor
 </%call>
+
+% if 'opencl_gl_interop' in extras:
+<%call expr="pattern.functor_with_domain_dispatch('collect_moments_to_texture', [('__write_only %s' % {2: 'image2d_t', 3: 'image3d_t'}.get(descriptor.d), 'm')])">
+% for i, expr in enumerate(moments_subexpr):
+    const ${float_type} ${expr[0]} = ${sympy.ccode(expr[1])};
+% endfor
+
+    float4 data;
+% for i, expr in enumerate(moments_assignment):
+    data.${['x','y','z','w'][i]} = ${sympy.ccode(expr.rhs)};
+% endfor
+% if descriptor.d == 2:
+    data.w = sqrt(data.y*data.y + data.z*data.z);
+% endif
+
+<%
+def moments_cell():
+    return {
+        2: '(int2)(get_global_id(0), get_global_id(1))',
+        3: '(int4)(get_global_id(0), get_global_id(1), get_global_id(2), 0)'
+    }.get(descriptor.d)
+%>
+    write_imagef(m, ${moments_cell()}, data);
+</%call>
+% endif
-- 
cgit v1.2.3