chickadee » leptonic » pix-get-rgb-line

• in - PPIX
• in - ROW: int32
• in - PR, PG, PB: ptr to unsigned-byte, array length = image width
• returns: 0 if success, 1 on error.

(import chicken.number-vector leptonic)
(include "leptonic-types.scm")
(define red (make-u8vector img-width))
(define green (make-u8vector img-width))
(define blue (make-u8vector img-width))
(define r (pix-get-rgb-line ppix row (location red)
                           (locaton green) (location blue)))
(if (zero? r)
    ;; use red, green, blue vectors ...
    ;; handle error)