From 1b14bddbcb3ce51c6fad8334482c3da41256ef19 Mon Sep 17 00:00:00 2001 From: Tomas Farago Date: Fri, 6 Mar 2020 09:42:07 +0100 Subject: Add power-spectrum filter --- docs/filters.rst | 5 ++ src/CMakeLists.txt | 1 + src/kernels/complex.cl | 18 +++-- src/meson.build | 1 + src/ufo-power-spectrum-task.c | 174 ++++++++++++++++++++++++++++++++++++++++++ src/ufo-power-spectrum-task.h | 53 +++++++++++++ 6 files changed, 247 insertions(+), 5 deletions(-) create mode 100644 src/ufo-power-spectrum-task.c create mode 100644 src/ufo-power-spectrum-task.h diff --git a/docs/filters.rst b/docs/filters.rst index 041b893..0e571b9 100644 --- a/docs/filters.rst +++ b/docs/filters.rst @@ -860,6 +860,11 @@ Fast Fourier transform Height to crop output. +.. gobj:class:: power-spectrum + + Compute power spectrum from fourier coefficients. + + Frequency filtering ------------------- diff --git a/src/CMakeLists.txt b/src/CMakeLists.txt index 14e6f52..babf659 100644 --- a/src/CMakeLists.txt +++ b/src/CMakeLists.txt @@ -64,6 +64,7 @@ set(ufofilter_SRCS ufo-ordfilt-task.c ufo-pad-task.c ufo-polar-coordinates-task.c + ufo-power-spectrum-task.c ufo-read-task.c ufo-reduce-task.c ufo-refeed-task.c diff --git a/src/kernels/complex.cl b/src/kernels/complex.cl index 26cc180..d79b182 100644 --- a/src/kernels/complex.cl +++ b/src/kernels/complex.cl @@ -71,16 +71,24 @@ c_conj (global float *data, out[idx+1] = -data[idx+1]; } +/** + * Compute power spectrum. + * + * @data: complex input + * @out: real output + */ kernel void c_abs_squared (global float *data, global float *out) { - int y = get_global_id (1) * 2 * get_global_size (0); - int in_idx = y + 2 * get_global_id(0); - int out_idx = y + get_global_id(0); + int width = get_global_size (0); + int idx = get_global_id (0); + int idy = get_global_id (1); + int out_idx = width * idy + idx; + /* Input data must be complex interleaved, global dimensions are with + * respect to the real output, so multiply width by 2. */ + int in_idx = 2 * width * idy + 2 * idx; - /* Store the results in the horizontally first half of the complex *out* - * array, so the result of this should be cropped to half the input width. */ out[out_idx] = data[in_idx] * data[in_idx] + data[in_idx + 1] * data[in_idx + 1]; } diff --git a/src/meson.build b/src/meson.build index 510d119..3287438 100644 --- a/src/meson.build +++ b/src/meson.build @@ -54,6 +54,7 @@ plugins = [ 'ordfilt', 'pad', 'polar-coordinates', + 'power-spectrum', 'reduce', 'refeed', 'remove-circle', diff --git a/src/ufo-power-spectrum-task.c b/src/ufo-power-spectrum-task.c new file mode 100644 index 0000000..6b86f1a --- /dev/null +++ b/src/ufo-power-spectrum-task.c @@ -0,0 +1,174 @@ +/* + * Copyright (C) 2011-2015 Karlsruhe Institute of Technology + * + * This file is part of Ufo. + * + * This library is free software: you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation, either + * version 3 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library. If not, see . + */ + +#ifdef __APPLE__ +#include +#else +#include +#endif + +#include "ufo-power-spectrum-task.h" + + +struct _UfoPowerSpectrumTaskPrivate { + cl_kernel kernel; +}; + +static void ufo_task_interface_init (UfoTaskIface *iface); + +G_DEFINE_TYPE_WITH_CODE (UfoPowerSpectrumTask, ufo_power_spectrum_task, UFO_TYPE_TASK_NODE, + G_IMPLEMENT_INTERFACE (UFO_TYPE_TASK, + ufo_task_interface_init)) + +#define UFO_POWER_SPECTRUM_TASK_GET_PRIVATE(obj) (G_TYPE_INSTANCE_GET_PRIVATE((obj), UFO_TYPE_POWER_SPECTRUM_TASK, UfoPowerSpectrumTaskPrivate)) + +UfoNode * +ufo_power_spectrum_task_new (void) +{ + return UFO_NODE (g_object_new (UFO_TYPE_POWER_SPECTRUM_TASK, NULL)); +} + +static void +ufo_power_spectrum_task_setup (UfoTask *task, + UfoResources *resources, + GError **error) +{ + UfoPowerSpectrumTaskPrivate *priv; + + priv = UFO_POWER_SPECTRUM_TASK_GET_PRIVATE (task); + priv->kernel = ufo_resources_get_kernel (resources, "complex.cl", "c_abs_squared", NULL, error); + if (priv->kernel != NULL) { + UFO_RESOURCES_CHECK_SET_AND_RETURN (clRetainKernel (priv->kernel), error); + } +} + +static void +ufo_power_spectrum_task_get_requisition (UfoTask *task, + UfoBuffer **inputs, + UfoRequisition *requisition, + GError **error) +{ + UfoBufferLayout layout = ufo_buffer_get_layout (inputs[0]); + + if (layout != UFO_BUFFER_LAYOUT_COMPLEX_INTERLEAVED) { + g_warning ("Input is not complex"); + } + ufo_buffer_get_requisition (inputs[0], requisition); + requisition->dims[0] /= 2; +} + +static guint +ufo_power_spectrum_task_get_num_inputs (UfoTask *task) +{ + return 1; +} + +static guint +ufo_power_spectrum_task_get_num_dimensions (UfoTask *task, + guint input) +{ + return 2; +} + +static UfoTaskMode +ufo_power_spectrum_task_get_mode (UfoTask *task) +{ + return UFO_TASK_MODE_PROCESSOR | UFO_TASK_MODE_GPU; +} + +static gboolean +ufo_power_spectrum_task_equal_real (UfoNode *n1, + UfoNode *n2) +{ + g_return_val_if_fail (UFO_IS_POWER_SPECTRUM_TASK (n1) && UFO_IS_POWER_SPECTRUM_TASK (n2), FALSE); + + return UFO_POWER_SPECTRUM_TASK (n1)->priv->kernel == UFO_POWER_SPECTRUM_TASK (n2)->priv->kernel; +} + +static gboolean +ufo_power_spectrum_task_process (UfoTask *task, + UfoBuffer **inputs, + UfoBuffer *output, + UfoRequisition *requisition) +{ + UfoPowerSpectrumTaskPrivate *priv; + UfoGpuNode *node; + UfoProfiler *profiler; + cl_command_queue cmd_queue; + cl_mem in_mem, out_mem; + + priv = UFO_POWER_SPECTRUM_TASK_GET_PRIVATE (task); + node = UFO_GPU_NODE (ufo_task_node_get_proc_node (UFO_TASK_NODE(task))); + cmd_queue = ufo_gpu_node_get_cmd_queue (node); + in_mem = ufo_buffer_get_device_array (inputs[0], cmd_queue); + out_mem = ufo_buffer_get_device_array (output, cmd_queue); + + UFO_RESOURCES_CHECK_CLERR (clSetKernelArg (priv->kernel, 0, sizeof (cl_mem), &in_mem)); + UFO_RESOURCES_CHECK_CLERR (clSetKernelArg (priv->kernel, 1, sizeof (cl_mem), &out_mem)); + + profiler = ufo_task_node_get_profiler (UFO_TASK_NODE (task)); + ufo_profiler_call (profiler, cmd_queue, priv->kernel, 2, requisition->dims, NULL); + + return TRUE; +} + +static void +ufo_power_spectrum_task_finalize (GObject *object) +{ + UfoPowerSpectrumTaskPrivate *priv; + + priv = UFO_POWER_SPECTRUM_TASK_GET_PRIVATE (object); + + if (priv->kernel) { + UFO_RESOURCES_CHECK_CLERR (clReleaseKernel (priv->kernel)); + priv->kernel = NULL; + } + + G_OBJECT_CLASS (ufo_power_spectrum_task_parent_class)->finalize (object); +} + +static void +ufo_task_interface_init (UfoTaskIface *iface) +{ + iface->setup = ufo_power_spectrum_task_setup; + iface->get_num_inputs = ufo_power_spectrum_task_get_num_inputs; + iface->get_num_dimensions = ufo_power_spectrum_task_get_num_dimensions; + iface->get_mode = ufo_power_spectrum_task_get_mode; + iface->get_requisition = ufo_power_spectrum_task_get_requisition; + iface->process = ufo_power_spectrum_task_process; +} + +static void +ufo_power_spectrum_task_class_init (UfoPowerSpectrumTaskClass *klass) +{ + GObjectClass *oclass = G_OBJECT_CLASS (klass); + UfoNodeClass *node_class = UFO_NODE_CLASS (klass); + + oclass->finalize = ufo_power_spectrum_task_finalize; + node_class->equal = ufo_power_spectrum_task_equal_real; + + g_type_class_add_private (oclass, sizeof(UfoPowerSpectrumTaskPrivate)); +} + +static void +ufo_power_spectrum_task_init(UfoPowerSpectrumTask *self) +{ + self->priv = UFO_POWER_SPECTRUM_TASK_GET_PRIVATE(self); + self->priv->kernel = NULL; +} diff --git a/src/ufo-power-spectrum-task.h b/src/ufo-power-spectrum-task.h new file mode 100644 index 0000000..44301a2 --- /dev/null +++ b/src/ufo-power-spectrum-task.h @@ -0,0 +1,53 @@ +/* + * Copyright (C) 2011-2013 Karlsruhe Institute of Technology + * + * This file is part of Ufo. + * + * This library is free software: you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation, either + * version 3 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library. If not, see . + */ + +#ifndef __UFO_POWER_SPECTRUM_TASK_H +#define __UFO_POWER_SPECTRUM_TASK_H + +#include + +G_BEGIN_DECLS + +#define UFO_TYPE_POWER_SPECTRUM_TASK (ufo_power_spectrum_task_get_type()) +#define UFO_POWER_SPECTRUM_TASK(obj) (G_TYPE_CHECK_INSTANCE_CAST((obj), UFO_TYPE_POWER_SPECTRUM_TASK, UfoPowerSpectrumTask)) +#define UFO_IS_POWER_SPECTRUM_TASK(obj) (G_TYPE_CHECK_INSTANCE_TYPE((obj), UFO_TYPE_POWER_SPECTRUM_TASK)) +#define UFO_POWER_SPECTRUM_TASK_CLASS(klass) (G_TYPE_CHECK_CLASS_CAST((klass), UFO_TYPE_POWER_SPECTRUM_TASK, UfoPowerSpectrumTaskClass)) +#define UFO_IS_POWER_SPECTRUM_TASK_CLASS(klass) (G_TYPE_CHECK_CLASS_TYPE((klass), UFO_TYPE_POWER_SPECTRUM_TASK)) +#define UFO_POWER_SPECTRUM_TASK_GET_CLASS(obj) (G_TYPE_INSTANCE_GET_CLASS((obj), UFO_TYPE_POWER_SPECTRUM_TASK, UfoPowerSpectrumTaskClass)) + +typedef struct _UfoPowerSpectrumTask UfoPowerSpectrumTask; +typedef struct _UfoPowerSpectrumTaskClass UfoPowerSpectrumTaskClass; +typedef struct _UfoPowerSpectrumTaskPrivate UfoPowerSpectrumTaskPrivate; + +struct _UfoPowerSpectrumTask { + UfoTaskNode parent_instance; + + UfoPowerSpectrumTaskPrivate *priv; +}; + +struct _UfoPowerSpectrumTaskClass { + UfoTaskNodeClass parent_class; +}; + +UfoNode *ufo_power_spectrum_task_new (void); +GType ufo_power_spectrum_task_get_type (void); + +G_END_DECLS + +#endif -- cgit v1.2.1