Artifact d5ad1eef5c6f9ea5052e120b7479e0600a29af52:

• File core/height.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: 281) [more...]
• File operator/height.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: 281)

height
Tcl_Obj* imageObj

crimp_image* image;

crimp_input_any (imageObj, image);

Tcl_SetObjResult (interp, Tcl_NewIntObj (image->h));
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:
 */