pyfast 4.12.0__cp36-abi3-macosx_10_13_x86_64.whl

fast/kernels/Algorithms/TubeSegmentationAndCenterlineExtraction/TubeSegmentationAndCenterlineExtraction.cl

@@ -0,0 +1,566 @@
+__constant sampler_t sampler = CLK_NORMALIZED_COORDS_FALSE | CLK_ADDRESS_CLAMP_TO_EDGE | CLK_FILTER_NEAREST;
+__constant sampler_t interpolationSampler = CLK_NORMALIZED_COORDS_FALSE | CLK_ADDRESS_CLAMP_TO_EDGE | CLK_FILTER_LINEAR;
+__constant sampler_t hpSampler = CLK_NORMALIZED_COORDS_FALSE | CLK_ADDRESS_CLAMP | CLK_FILTER_NEAREST;
+
+#define LPOS(pos) pos.x+pos.y*get_global_size(0)+pos.z*get_global_size(0)*get_global_size(1)
+
+#ifdef VECTORS_16BIT
+//#define UNORM16_TO_FLOAT(v) (float)v / 65535.0f
+//#define TDF_TYPE ushort
+//#define FLOAT_TO_UNORM16(v) convert_ushort_sat_rte(v * 65535.0f)
+#define UNORM16_TO_FLOAT(v) v
+#define FLOAT_TO_UNORM16(v) v
+#define TDF_TYPE float
+
+#define VECTOR_FIELD_TYPE short
+#define FLOAT_TO_SNORM16_3(vector) convert_short3_sat_rte(vector * 32767.0f)
+
+#else
+#define UNORM16_TO_FLOAT(v) v
+#define FLOAT_TO_UNORM16(v) v
+#define TDF_TYPE float
+
+#define VECTOR_FIELD_TYPE float
+#define FLOAT_TO_SNORM16_3(vector) vector
+#endif
+
+float4 readImageToFloat(
+        __read_only image3d_t volume, 
+        int4 position
+    ) {
+    int dataType = get_image_channel_data_type(volume);
+    float4 value;
+    if(dataType == CLK_FLOAT) {
+        value = read_imagef(volume, sampler, position).x; 
+    } else if(dataType == CLK_SIGNED_INT8 || dataType == CLK_SIGNED_INT16 || dataType == CLK_SIGNED_INT32) {
+        value = convert_float4(read_imagei(volume, sampler, position)); 
+    } else {
+        value = convert_float4(read_imageui(volume, sampler, position)); 
+    }
+    return value;
+}
+
+float3 gradient(
+        __read_only image3d_t volume,   // Volume to perform gradient on
+        int4 pos,                       // Position to perform gradient on
+        int volumeComponent,            // The volume component to perform gradient on: 0, 1 or 2
+        int dimensions,                 // The number of dimensions to perform gradient in: 1, 2 or 3
+        float3 spacing                  // Image spacing
+    ) {
+    float f100, f_100, f010 = 0, f0_10 = 0, f001 = 0, f00_1 = 0;
+    switch(volumeComponent) {
+        case 0:
+        f100 = read_imagef(volume, pos + (int4)(1,0,0,0)).x; 
+        f_100 = read_imagef(volume, pos - (int4)(1,0,0,0)).x;
+        if(dimensions > 1) {
+            f010 = read_imagef(volume, pos + (int4)(0,1,0,0)).x; 
+            f0_10 = read_imagef(volume, pos - (int4)(0,1,0,0)).x;
+        }
+        if(dimensions > 2) {
+            f001 = read_imagef(volume, pos + (int4)(0,0,1,0)).x;
+            f00_1 = read_imagef(volume, pos - (int4)(0,0,1,0)).x;
+        }
+    break;
+        case 1:
+        f100 = read_imagef(volume, pos + (int4)(1,0,0,0)).y;
+        f_100 = read_imagef(volume, pos - (int4)(1,0,0,0)).y;
+        if(dimensions > 1) {
+            f010 = read_imagef(volume, pos + (int4)(0,1,0,0)).y;
+            f0_10 = read_imagef(volume, pos - (int4)(0,1,0,0)).y;
+        }
+        if(dimensions > 2) {
+            f001 = read_imagef(volume, pos + (int4)(0,0,1,0)).y;
+            f00_1 = read_imagef(volume, pos - (int4)(0,0,1,0)).y;
+        }
+    break;
+        case 2:
+        f100 = read_imagef(volume, pos + (int4)(1,0,0,0)).z;
+        f_100 = read_imagef(volume, pos - (int4)(1,0,0,0)).z;
+        if(dimensions > 1) {
+            f010 = read_imagef(volume, pos + (int4)(0,1,0,0)).z;
+            f0_10 = read_imagef(volume, pos - (int4)(0,1,0,0)).z;
+        }
+        if(dimensions > 2) {
+            f001 = read_imagef(volume, pos + (int4)(0,0,1,0)).z;
+            f00_1 = read_imagef(volume, pos - (int4)(0,0,1,0)).z;
+        }
+    break;
+    }
+
+    float3 gradient = {
+        (f100-f_100)/(2.0f), 
+        (f010-f0_10)/(2.0f),
+        (f001-f00_1)/(2.0f)
+    };
+    
+    // Keep original length
+    float gradientLength = length(gradient);
+    gradient /= spacing;
+    gradient = gradientLength*normalize(gradient);
+    
+
+    return gradient;
+}
+
+float3 gradientNormalized(
+        __read_only image3d_t volume,   // Volume to perform gradient on, this volume is vector field
+        int4 pos,                       // Position to perform gradient on
+        int volumeComponent,            // The volume component to perform gradient on: 0, 1 or 2
+        int dimensions,                 // The number of dimensions to perform gradient in: 1, 2 or 3
+        float3 spacing                  // Image spacing
+    ) {
+    float f100, f_100, f010 = 0, f0_10 = 0, f001 = 0, f00_1 = 0;
+    switch(volumeComponent) {
+        case 0:
+        f100 = read_imagef(volume, pos + (int4)(1,0,0,0)).x; 
+        f_100 = read_imagef(volume, pos - (int4)(1,0,0,0)).x;
+        if(dimensions > 1) {
+            f010 = read_imagef(volume, pos + (int4)(0,1,0,0)).x; 
+            f0_10 = read_imagef(volume, pos - (int4)(0,1,0,0)).x;
+        }
+        if(dimensions > 2) {
+            f001 = read_imagef(volume, pos + (int4)(0,0,1,0)).x;
+            f00_1 = read_imagef(volume, pos - (int4)(0,0,1,0)).x;
+        }
+    break;
+        case 1:
+        f100 = read_imagef(volume, pos + (int4)(1,0,0,0)).y;
+        f_100 = read_imagef(volume, pos - (int4)(1,0,0,0)).y;
+        if(dimensions > 1) {
+            f010 = read_imagef(volume, pos + (int4)(0,1,0,0)).y;
+            f0_10 = read_imagef(volume, pos - (int4)(0,1,0,0)).y;
+        }
+        if(dimensions > 2) {
+            f001 = read_imagef(volume, pos + (int4)(0,0,1,0)).y;
+            f00_1 = read_imagef(volume, pos - (int4)(0,0,1,0)).y;
+        }
+    break;
+        case 2:
+        f100 = read_imagef(volume, pos + (int4)(1,0,0,0)).z;
+        f_100 = read_imagef(volume, pos - (int4)(1,0,0,0)).z;
+        if(dimensions > 1) {
+            f010 = read_imagef(volume, pos + (int4)(0,1,0,0)).z;
+            f0_10 = read_imagef(volume, pos - (int4)(0,1,0,0)).z;
+        }
+        if(dimensions > 2) {
+            f001 = read_imagef(volume, pos + (int4)(0,0,1,0)).z;
+            f00_1 = read_imagef(volume, pos - (int4)(0,0,1,0)).z;
+        }
+    break;
+    }
+    
+    // Normalization
+    f100 /= length(read_imagef(volume, sampler, pos + (int4)(1,0,0,0)).xyz);
+    f_100 /= length(read_imagef(volume, sampler, pos - (int4)(1,0,0,0)).xyz);
+    f010 /= length(read_imagef(volume, sampler, pos + (int4)(0,1,0,0)).xyz);
+    f0_10 /= length(read_imagef(volume, sampler, pos - (int4)(0,1,0,0)).xyz);
+    f001 /= length(read_imagef(volume, sampler, pos + (int4)(0,0,1,0)).xyz);
+    f00_1 /= length(read_imagef(volume, sampler, pos - (int4)(0,0,1,0)).xyz);
+    
+    float3 gradient = {
+        (f100 - f_100)/(2.0f),
+        (f010 - f0_10)/(2.0f),
+        (f001 - f00_1)/(2.0f)
+    };
+    
+    
+    // Keep original length
+    /*
+    float gradientLength = length(gradient);
+    gradient /= spacing;
+    gradient = gradientLength*normalize(gradient);
+    */
+
+
+    return gradient;
+}
+
+__kernel void toFloat(
+        __read_only image3d_t volume,
+#ifdef fast_3d_image_writes
+        __write_only image3d_t processedVolume,
+#else
+        __global float* processedVolume,
+#endif
+        __private float minimum,
+        __private float maximum
+        ) {
+    int4 pos = {get_global_id(0), get_global_id(1), get_global_id(2), 0};
+    
+    float v = readImageToFloat(volume, pos).x;
+
+    v = v > maximum ? maximum : v;
+    v = v < minimum ? minimum : v;
+
+    // Convert to floating point representation 0 to 1
+    float value = (v - minimum) / (maximum - minimum);
+
+    // Store value
+#ifdef fast_3d_image_writes
+    write_imagef(processedVolume, pos, value);
+#else
+    processedVolume[LPOS(pos)] = value;
+#endif
+}
+
+__kernel void createVectorField(
+        __read_only image3d_t volume, 
+#ifdef fast_3d_image_writes
+        __write_only image3d_t vectorField, 
+#else
+        __global VECTOR_FIELD_TYPE* vectorField,
+#endif
+        __private float Fmax,
+        __private float vsign,
+        __private float spacing_x,
+        __private float spacing_y,
+        __private float spacing_z
+        ) {
+    const int4 pos = {get_global_id(0), get_global_id(1), get_global_id(2), 0};
+
+    // Gradient of volume
+    float4 F; 
+    F.xyz = vsign*gradient(volume, pos, 0, 3, (float3)(spacing_x, spacing_y, spacing_z)); // The sign here is important
+    F.w = 0.0f;
+
+    // Fmax normalization
+    const float l = length(F);
+    F = l < Fmax ? F/(Fmax) : F / (l);
+    F.w = 1.0f;
+
+    // Store vector field
+#ifdef fast_3d_image_writes
+    write_imagef(vectorField, pos, F);
+#else
+    vstore3(FLOAT_TO_SNORM16_3(F.xyz), LPOS(pos), vectorField);
+#endif
+}
+
+// Forward declaration of eigen_decomp function
+void eigen_decomposition(float M[3][3], float V[3][3], float e[3]);
+
+__constant float cosValues[32] = {1.0f, 0.540302f, -0.416147f, -0.989992f, -0.653644f, 0.283662f, 0.96017f, 0.753902f, -0.1455f, -0.91113f, -0.839072f, 0.0044257f, 0.843854f, 0.907447f, 0.136737f, -0.759688f, -0.957659f, -0.275163f, 0.660317f, 0.988705f, 0.408082f, -0.547729f, -0.999961f, -0.532833f, 0.424179f, 0.991203f, 0.646919f, -0.292139f, -0.962606f, -0.748058f, 0.154251f, 0.914742f};
+__constant float sinValues[32] = {0.0f, 0.841471f, 0.909297f, 0.14112f, -0.756802f, -0.958924f, -0.279415f, 0.656987f, 0.989358f, 0.412118f, -0.544021f, -0.99999f, -0.536573f, 0.420167f, 0.990607f, 0.650288f, -0.287903f, -0.961397f, -0.750987f, 0.149877f, 0.912945f, 0.836656f, -0.00885131f, -0.84622f, -0.905578f, -0.132352f, 0.762558f, 0.956376f, 0.270906f, -0.663634f, -0.988032f, -0.404038f};
+
+__kernel void circleFittingTDF(
+        __read_only image3d_t vectorField,
+        __global TDF_TYPE * T,
+        __private float rMin,
+        __private float rMax,
+        __private float rStep,
+        __global float* Radius,
+        __private float spacing_x,
+        __private float spacing_y,
+        __private float spacing_z
+    ) {
+    const int4 pos = {get_global_id(0), get_global_id(1), get_global_id(2), 0};
+    const float3 spacing = {spacing_x, spacing_y, spacing_z};
+
+
+    // Find Hessian Matrix
+    float3 Fx, Fy, Fz;
+    if(rMax < 4) {
+        Fx = gradient(vectorField, pos, 0, 1, spacing);
+        Fy = gradient(vectorField, pos, 1, 2, spacing);
+        Fz = gradient(vectorField, pos, 2, 3, spacing);
+    } else {
+        Fx = gradientNormalized(vectorField, pos, 0, 1, spacing);
+        Fy = gradientNormalized(vectorField, pos, 1, 2, spacing);
+        Fz = gradientNormalized(vectorField, pos, 2, 3, spacing);
+    }
+
+
+    float Hessian[3][3] = {
+        {Fx.x, Fy.x, Fz.x},
+        {Fy.x, Fy.y, Fz.y},
+        {Fz.x, Fz.y, Fz.z}
+    };
+    
+    // Eigen decomposition
+    float eigenValues[3];
+    float eigenVectors[3][3];
+    eigen_decomposition(Hessian, eigenVectors, eigenValues);
+    //const float3 lambda = {eigenValues[0], eigenValues[1], eigenValues[2]};
+    //const float3 e1 = {eigenVectors[0][0], eigenVectors[1][0], eigenVectors[2][0]};
+    const float3 e2 = {eigenVectors[0][1], eigenVectors[1][1], eigenVectors[2][1]};
+    const float3 e3 = {eigenVectors[0][2], eigenVectors[1][2], eigenVectors[2][2]};
+
+    // Circle Fitting
+    float maxSum = 0.0f;
+    float maxRadius = 0.0f;
+    const float4 floatPos = {get_global_id(0), get_global_id(1), get_global_id(2), 0};
+    for(float radius = rMin; radius <= rMax; radius += rStep) {
+        float radiusSum = 0.0f;
+        char samples = 32;
+        char stride = 1;
+
+        for(char j = 0; j < samples; ++j) {
+            float3 V_alpha = cosValues[j*stride]*e3 + sinValues[j*stride]*e2;
+            float4 position = floatPos + radius*V_alpha.xyzz;
+            float3 V = -read_imagef(vectorField, interpolationSampler, position).xyz;
+            radiusSum += dot(V, V_alpha);
+        }
+        radiusSum /= samples;
+        if(radiusSum > maxSum) {
+            maxSum = radiusSum;
+            maxRadius = radius;
+        } else {
+            break;
+        }
+    }
+
+    // Store result
+    T[LPOS(pos)] = FLOAT_TO_UNORM16(maxSum);
+    Radius[LPOS(pos)] = maxRadius;
+}
+
+__kernel void nonCircularTDF(
+        __read_only image3d_t vectorField,
+        __global TDF_TYPE * T,
+        __private float rMin,
+        __private float rMax,
+        __private float rStep,
+        __private const int arms,
+        __private const float minAverageMag,
+        __global float * R,
+        __private float spacing_x,
+        __private float spacing_y,
+        __private float spacing_z
+    ) {
+    const int4 pos = {get_global_id(0), get_global_id(1), get_global_id(2), 0};
+    const float3 spacing = {spacing_x, spacing_y, spacing_z};
+    char invalid = 0;
+
+    // Find Hessian Matrix
+    const float3 Fx = gradientNormalized(vectorField, pos, 0, 1, spacing);
+    const float3 Fy = gradientNormalized(vectorField, pos, 1, 2, spacing);
+    const float3 Fz = gradientNormalized(vectorField, pos, 2, 3, spacing);
+
+    float Hessian[3][3] = {
+        {Fx.x, Fy.x, Fz.x},
+        {Fy.x, Fy.y, Fz.y},
+        {Fz.x, Fz.y, Fz.z}
+    };
+
+    // Eigen decomposition
+    float eigenValues[3];
+    float eigenVectors[3][3];
+    eigen_decomposition(Hessian, eigenVectors, eigenValues);
+    const float3 e1 = {eigenVectors[0][0], eigenVectors[1][0], eigenVectors[2][0]};
+    const float3 e2 = {eigenVectors[0][1], eigenVectors[1][1], eigenVectors[2][1]};
+    const float3 e3 = {eigenVectors[0][2], eigenVectors[1][2], eigenVectors[2][2]};
+
+    float currentVoxelMagnitude = length(read_imagef(vectorField, sampler, pos).xyz);
+
+    float maxRadius[12]; // 12 is maximum nr of arms atm.
+    float sum = 0.0f;
+    //float minAverageMag = 0.01f; // 0.01
+    float largestRadius = 0;
+    for(char j = 0; j < arms; ++j) {
+        maxRadius[j] = 999;
+        float alpha = 2 * M_PI_F * j / arms;
+        float4 V_alpha = cos(alpha)*e3.xyzz + sin(alpha)*e2.xyzz;
+        float prevMagnitude2 = currentVoxelMagnitude;
+        float4 position = convert_float4(pos) + rMin*V_alpha;
+        float prevMagnitude = length(read_imagef(vectorField, interpolationSampler, position).xyz);
+        char up = prevMagnitude2 > prevMagnitude ? 0 : 1;
+
+        // Perform the actual line search
+        for(float radius = rMin+rStep; radius <= rMax; radius += rStep) {
+            position = convert_float4(pos) + radius*V_alpha;
+            float4 vec = read_imagef(vectorField, interpolationSampler, position);
+            vec.w = 0.0f;
+            float magnitude = length(vec.xyz);
+
+            // Is a border point found?
+            if(up == 1 && magnitude < prevMagnitude && (prevMagnitude+magnitude)/2.0f - currentVoxelMagnitude > minAverageMag) { // Dot produt here is test
+                maxRadius[j] = radius;
+                if(radius > largestRadius)
+                    largestRadius = radius;
+                if(dot(normalize(vec.xyz), -normalize(V_alpha.xyz)) < 0.0f) {
+                    invalid = 1;
+                    sum = 0.0f;
+                    //break;
+                }
+                sum += 1.0f-fabs(dot(normalize(vec.xyz), e1));
+                break;
+            } // End found border point
+
+            if(magnitude > prevMagnitude) {
+                up = 1;
+            }
+            prevMagnitude = magnitude;
+        } // End for each radius
+
+        if(maxRadius[j] == 999 || invalid == 1) {
+            invalid = 1;
+            break;
+        }
+    } // End for arms
+
+    if(invalid != 1) {
+        float avgSymmetry = 0.0f;
+        for(char j = 0; j < arms/2; ++j) {
+           avgSymmetry += min(maxRadius[j], maxRadius[arms/2 + j]) /
+                max(maxRadius[j], maxRadius[arms/2+j]);
+        }
+        avgSymmetry /= arms/2;
+        R[LPOS(pos)] = largestRadius;
+        T[LPOS(pos)] = FLOAT_TO_UNORM16(min(1.0f, (sum / (arms))*avgSymmetry+0.2f));
+    } else {
+        R[LPOS(pos)] = 0;
+        T[LPOS(pos)] = 0;
+    }
+}
+int dsyevj3(float A[3][3], float Q[3][3], float w[3])
+// ----------------------------------------------------------------------------
+// Calculates the eigenvalues and normalized eigenvectors of a symmetric 3x3
+// matrix A using the Jacobi algorithm.
+// The upper triangular part of A is destroyed during the calculation,
+// the diagonal elements are read but not destroyed, and the lower
+// triangular elements are not referenced at all.
+// ----------------------------------------------------------------------------
+// Parameters:
+//   A: The symmetric input matrix
+//   Q: Storage buffer for eigenvectors
+//   w: Storage buffer for eigenvalues
+// ----------------------------------------------------------------------------
+// Return value:
+//   0: Success
+//  -1: Error (no convergence)
+// ----------------------------------------------------------------------------
+{
+  const int n = 3;
+  float sd, so;                  // Sums of diagonal resp. off-diagonal elements
+  float s, c, t;                 // sin(phi), cos(phi), tan(phi) and temporary storage
+  float g, h, z, theta;          // More temporary storage
+  float thresh;
+  
+  // Initialize Q to the identitity matrix
+  for (int i=0; i < n; i++)
+  {
+    Q[i][i] = 1.0;
+    for (int j=0; j < i; j++)
+      Q[i][j] = Q[j][i] = 0.0;
+  }
+
+  // Initialize w to diag(A)
+  for (int i=0; i < n; i++)
+    w[i] = A[i][i];
+
+  // Calculate SQR(tr(A))  
+  sd = 0.0;
+  for (int i=0; i < n; i++)
+    sd += fabs(w[i]);
+  sd = sd*sd;
+ 
+  // Main iteration loop
+  for (int nIter=0; nIter < 50; nIter++)
+  {
+    // Test for convergence 
+    so = 0.0;
+    for (int p=0; p < n; p++)
+      for (int q=p+1; q < n; q++)
+        so += fabs(A[p][q]);
+    if (so == 0.0)
+      return 0;
+
+    if (nIter < 4) {
+      thresh = 0.2 * so / (n*n);
+    } else {
+      thresh = 0.0;
+    }
+
+    // Do sweep
+    for (int p=0; p < n; p++)
+      for (int q=p+1; q < n; q++)
+      {
+        g = 100.0 * fabs(A[p][q]);
+        if (nIter > 4  &&  fabs(w[p]) + g == fabs(w[p])
+                       &&  fabs(w[q]) + g == fabs(w[q]))
+        {
+          A[p][q] = 0.0;
+        }
+        else if (fabs(A[p][q]) > thresh)
+        {
+          // Calculate Jacobi transformation
+          h = w[q] - w[p];
+          if (fabs(h) + g == fabs(h))
+          {
+            t = A[p][q] / h;
+          }
+          else
+          {
+            theta = 0.5 * h / A[p][q];
+            if (theta < 0.0)
+              t = -1.0 / (sqrt(1.0 + theta*theta) - theta);
+            else
+              t = 1.0 / (sqrt(1.0 + theta*theta) + theta);
+          }
+          c = 1.0/sqrt(1.0 + t*t);
+          s = t * c;
+          z = t * A[p][q];
+
+          // Apply Jacobi transformation
+          A[p][q] = 0.0;
+          w[p] -= z;
+          w[q] += z;
+          for (int r=0; r < p; r++)
+          {
+            t = A[r][p];
+            A[r][p] = c*t - s*A[r][q];
+            A[r][q] = s*t + c*A[r][q];
+          }
+          for (int r=p+1; r < q; r++)
+          {
+            t = A[p][r];
+            A[p][r] = c*t - s*A[r][q];
+            A[r][q] = s*t + c*A[r][q];
+          }
+          for (int r=q+1; r < n; r++)
+          {
+            t = A[p][r];
+            A[p][r] = c*t - s*A[q][r];
+            A[q][r] = s*t + c*A[q][r];
+          }
+
+          // Update eigenvectors
+          for (int r=0; r < n; r++)
+          {
+            t = Q[r][p];
+            Q[r][p] = c*t - s*Q[r][q];
+            Q[r][q] = s*t + c*Q[r][q];
+          }
+        }
+      }
+  }
+  
+
+
+  return -1;
+}
+
+void eigen_decomposition(float A[3][3], float V[3][3], float d[3]) {
+  dsyevj3(A, V, d);
+
+    // Sort eigenvalues and corresponding vectors.
+  for (char i = 0; i < 3; ++i) {
+    char k = i;
+    float p = d[i];
+    for (char j = i+1; j < 3; ++j) {
+      if (fabs(d[j]) < fabs(p)) {
+        k = j;
+        p = d[j];
+      }
+    }
+    if (k != i) {
+      d[k] = d[i];
+      d[i] = p;
+      for (char j = 0; j < 3; ++j) {
+        p = V[j][i];
+        V[j][i] = V[j][k];
+        V[j][k] = p;
+      }
+    }
+  }
+}

fast/kernels/Algorithms/Ultrasound/EnvelopeAndLogCompressor.cl

@@ -0,0 +1,45 @@
+const sampler_t sampler = CLK_NORMALIZED_COORDS_FALSE | CLK_ADDRESS_NONE | CLK_FILTER_NEAREST;
+
+inline float2 complexDivision(float2 a, float2 b){
+    return (float2)(
+        (a.x*b.x + a.y*b.y)/(b.x*b.x + b.y*b.y),
+        (a.y*b.x - a.x*b.y)/(b.x*b.x + b.y*b.y)
+    );
+}
+
+__kernel void envelopeAndLogCompress(
+        __read_only image2d_t input,
+        __write_only image2d_t output
+    ) {
+    const int2 pos = {get_global_id(0), get_global_id(1)};
+
+    float2 iq = read_imagef(input, sampler, pos).xy;
+    write_imagef(output, pos, 20.0f * log10(length(iq))); // Length is abs for complex
+}
+
+__kernel void normalizeEnvelope(
+        __read_only image2d_t input,
+        __write_only image2d_t output,
+        __private float maxdB
+    ) {
+    const int2 pos = {get_global_id(0), get_global_id(1)};
+
+    write_imagef(output, pos, read_imagef(input, sampler, pos).x - maxdB);
+}
+
+__kernel void normalizeEnvelopeToGrayscale(
+        __read_only image2d_t input,
+        __write_only image2d_t output,
+        __private float maxdB,
+        __private float gain,
+        __private float dynamicRange
+    ) {
+    const int2 pos = {get_global_id(0), get_global_id(1)};
+
+    float dBPixel = read_imagef(input, sampler, pos).x - maxdB;
+    float img_sc_reject = dBPixel + gain;
+    img_sc_reject = (img_sc_reject < -dynamicRange) ? -dynamicRange : img_sc_reject; //Reject everything below dynamic range
+    img_sc_reject = (img_sc_reject > 0) ? 0 : img_sc_reject; // Everything above 0 dB should be saturated
+    uchar img_gray_scale = round(255*(img_sc_reject+dynamicRange)/dynamicRange);
+    write_imageui(output, pos, img_gray_scale);
+}

fast/kernels/Algorithms/Ultrasound/ScanConverter.cl

@@ -0,0 +1,76 @@
+const sampler_t sampler = CLK_NORMALIZED_COORDS_TRUE | CLK_ADDRESS_MIRRORED_REPEAT | CLK_FILTER_LINEAR;
+
+void cart2pol(float x, float y, float *r, float *th) {
+}
+
+
+__kernel void scanConvert(
+        __read_only image2d_t input,
+        __write_only image2d_t output,
+        __private float gain,
+        __private float dynamicRange,
+        __private float newXSpacing,
+        __private float newYSpacing,
+        __private float startX,
+        __private float startY,
+        __private float startDepth,
+        __private float startAzimuth,
+        __private float depthSpacing,
+        __private float azimuthSpacing,
+        __private int isPolar
+    ) {
+    int2 pos = {get_global_id(0), get_global_id(1)};
+    float x = pos.x*newXSpacing + startX;
+    float y = pos.y*newYSpacing + startY;
+    // Cart 2 polar
+    float r = isPolar == 1 ? sqrt(x*x + y*y) : y;
+    float th = isPolar == 1 ? atan2(x, y) : x;
+
+    // Normalize
+    r = ((r - startDepth)/depthSpacing)/get_image_height(input);
+    th = ((th - startAzimuth)/azimuthSpacing)/get_image_width(input);
+
+    if(r < 0.0f || r > 1.0f || th < 0.0f || th > 1.0f) {
+        // Out of bounds
+        write_imageui(output, pos, 0);
+    } else {
+        float dBPixel = read_imagef(input, sampler, (float2)(th, r)).x;
+        float img_sc_reject = dBPixel + gain;
+        img_sc_reject = (img_sc_reject < -dynamicRange) ? -dynamicRange : img_sc_reject; //Reject everything below dynamic range
+        img_sc_reject = (img_sc_reject > 0) ? 0 : img_sc_reject; // Everything above 0 dB should be saturated
+        uchar img_gray_scale = round(255*(img_sc_reject+dynamicRange)/dynamicRange);
+        write_imageui(output, pos, img_gray_scale);
+    }
+}
+
+__kernel void scanConvertGrayscale(
+        __read_only image2d_t input,
+        __write_only image2d_t output,
+        __private float newXSpacing,
+        __private float newYSpacing,
+        __private float startX,
+        __private float startY,
+        __private float startDepth,
+        __private float startAzimuth,
+        __private float depthSpacing,
+        __private float azimuthSpacing,
+        __private int isPolar
+    ) {
+    int2 pos = {get_global_id(0), get_global_id(1)};
+    float x = pos.x*newXSpacing + startX;
+    float y = pos.y*newYSpacing + startY;
+    // Cart 2 polar
+    float r = isPolar == 1 ? sqrt(x*x + y*y) : y;
+    float th = isPolar == 1 ? atan2(x, y) : x;
+
+    // Normalize
+    r = ((r - startDepth)/depthSpacing)/get_image_height(input);
+    th = ((th - startAzimuth)/azimuthSpacing)/get_image_width(input);
+
+    if(r < 0.0f || r > 1.0f || th < 0.0f || th > 1.0f) {
+        // Out of bounds
+        write_imageui(output, pos, 0);
+    } else {
+        write_imageui(output, pos, read_imageui(input, sampler, (float2)(th, r)));
+    }
+}