Artifact 9c39aba00551f5516110b44eacb7e25d628c044a:

• File core/pixel.crimp — part of check-in [f79b3bab38] at 2011-08-19 18:17:20 on branch image-io-experiments — Moved the basic image accessors to the core, ditto the handlers for the most basic 'file format' (nested Tcl lists). The core is now a bare-bones functional system able to create and access images. It should now also have enough functionality to be testable. (user: andreask size: 413) [more...]
• File operator/pixel.crimp — part of check-in [e24f31bc75] at 2010-11-17 07:42:29 on branch ak-experimental — Fixed a number of older C primitives to use the proper macro for image argument processing (user: andreask size: 413)

pixel
Tcl_Obj* imageObj

crimp_image*   image;
unsigned char* bytes;
int            length;

crimp_input_any (imageObj, image);

bytes  = image->pixel;
length = image->w * image->h * image->itype->size;

Tcl_SetObjResult (interp, Tcl_NewByteArrayObj (bytes, length));
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:
 */