File operator/magnitude-fpcomplex.crimp artifact 7d5d8d800c part of check-in 0de9cbbad8

magnitude_fpcomplex
Tcl_Obj* imageObj

/*
 * Pixel wise magnitude of a complex input image.
 * The result is of type float.
 */

crimp_image* result;
crimp_image* image;

int x, y;

crimp_input (imageObj, image, fpcomplex);

result = crimp_new_float_at (crimp_x (image), crimp_y (image),
			     crimp_w (image), crimp_h (image));

for (y = 0; y < crimp_h (result); y++) {
    for (x = 0; x < crimp_w (result); x++) {

	RE (result, x, y) = hypotf (RE (image, x, y),
				    IM (image, x, y));
    }
}

Tcl_SetObjResult(interp, crimp_new_image_obj (result));
return TCL_OK;

/* vim: set sts=4 sw=4 tw=80 et ft=c: */
/*
 * Local Variables:
 * mode: c
 * c-basic-offset: 4
 * fill-column: 78
 * End:
 */