You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
mandelbrot_study/mandelbrot_inter_kernel.cl

73 lines
1.8 KiB

float map_x(int x, int width, float zoom, float center_x)
{
return (((float)x / (float)width) * (3.5 * zoom)) - center_x;
}
float map_y(int y, int height, float zoom, float center_y)
{
return (((float)y / (float)height) * (2.0 * zoom)) - center_y;
}
__kernel void fractal_point(__global const int *res_x,
__global const int *res_y,
__global const int *line,
__global const float *zoom,
__global int *graph_line,
__global float *center_x,
__global float *center_y)
{
// Get the index of the current element
int image_x = get_global_id(0);
int image_y = *line;
float pos_x = map_x(image_x, *res_x, *zoom, *center_x);
float pos_y = map_y(image_y, *res_y, *zoom, *center_y);
float x = 0.0;
float y = 0.0;
float q, x_term;
// Period-2 bulb check
if (((pos_x + 1.0) * (pos_x + 1.0) + pos_y * pos_y) < 0.0625)
{
graph_line[image_x] = 0;
return;
}
// Cardioid check
x_term = pos_x - 0.25;
q = x_term * x_term + pos_y * pos_y;
q = q * (q + x_term);
if (q < (0.25 * pos_y * pos_y))
{
graph_line[image_x] = 0;
return;
}
int iteration = 0;
int max_iteration = 256;
float xtemp, xx, yy, xplusy;
while (iteration < max_iteration)
{
xx = x * x;
yy = y * y;
xplusy = x + y;
if ((xx) + (yy) > (4.0)) break;
xtemp = xx - yy + pos_x;
y = xplusy * xplusy - xx - yy;
y = y + pos_y;
x = xtemp;
iteration++;
}
if (iteration > max_iteration)
{
graph_line[image_x] = 0;
}
else
{
graph_line[image_x] = iteration;
}
}