;; where depth is one of the above
;; and cn is the number of
;; for example: RGB colour would be:
;; CV_8U * 3 = (CV_MAKE_TYPE CV_8U 3) = 16
(bind-func CV_MAKE_TYPE
(lambda (depth:i32 cn:i32)
(+ (bitwise-and depth (- (<< 1:i32 3) 1))
(<< (- cn 1) 3))))