Artifact 156c6658553581e2026238d110c9c53a3c00cdfd:

• File operator/flip-horizontal-grey32.crimp — part of check-in [122bdc7d78] at 2011-12-14 21:53:28 on branch infinite-plane — Continued from previous commit. Left to check/modify are

  unary: ahe, convolve, region_sum, rof

  binary: atan2, hypot, pow, cannyinternal, complex div/multiply, join, joint-bilateral, threshold

  other: warp-field, cut (*)

  (*) Currently done via 'crop', semantic mismatch. Better as their own operator. (user: andreask size: 542) [more...]

flip_horizontal_grey32
Tcl_Obj* imageObj

crimp_image* image;
crimp_image* result;
int          x, y;

crimp_input (imageObj, image, grey32);

result = crimp_new_like (image);

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

	GREY32 (result, x, y) = GREY32 (image, crimp_w (image) - x - 1, 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:
 */