File canvas-draw/chicken/canvas-draw-picture.scm artifact 401583817f part of check-in ed10f826ff
(require-library canvas-draw-base) (module canvas-draw-picture (context:picture) (import scheme chicken foreign canvas-draw-base) ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdpicture.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:picture (foreign-value "CD_PICTURE" nonnull-context)) ;; }}} )