Code: Select all
;;double norm(InputArray src1, int normType=NORM_L2, InputArray mask=noArray())
;;double cv_norm(Mat* src1, int normType, Mat* mask)
(defcfun ("cv_norm" %norm0) :void
(src1 (:pointer mat))
(norm-type :int)
(mask (:pointer mat)))
(defun norm0 (src1 &optional (norm-type +norm-l2+) (mask (mat)))
(%norm0 src1 norm-type mask))
;;double norm(InputArray src1, InputArray src2, int normType=NORM_L2, InputArray mask=noArray())
;;double cv_norm4(Mat* src1, Mat* src2, int normType, Mat* mask)
(defcfun ("cv_norm4" %norm4) :void
(src1 (:pointer mat))
(src2 (:pointer mat))
(norm-type :int)
(mask (:pointer mat)))
(defun norm4 (src1 src2 &optional (norm-type +norm-l2+) (mask (mat)))
(%norm4 src1 src2 norm-type mask))
(defun norm (&optional arg1 arg2 ar3 arg4)
(cond ((numberp arg2)
(norm0 arg1 arg2 arg3))
((...)
(norm4 ...))
(t nil)))