Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 70 lines (46 sloc) 957 Bytes
;;;; -*- mode: lisp; indent-tabs: nil -*-
;;;; structs.lisp
;;;; OpenCV bindings
;;;; OpenCV structs
(in-package :lisp-cv)
;;; D-TREE-NODE
(defcstruct d-tree-node
(class_idx :int)
(Tn :int)
(value :double)
(parent :pointer)
(left :pointer)
(right :pointer)
(split :pointer)
(sample_count :int)
(depth :int)
(num_valid :pointer)
(offset :int)
(buf_idx :int)
(maxlr :double)
(complexity :int)
(alpha :double)
(node_risk :double)
(tree_risk :double)
(tree_error :double)
(cv_Tn :pointer)
(cv_node_risk :pointer)
(cv_node_error :pointer)
(get_num_valid :pointer)
(set_num_valid :pointer))
;;; CV-TERM-CRITERIA
(defcstruct term-criteria-struct
(type :int)
(max-iter :int)
(epsilon :double))
;; KEY-POINT1
;; try (:actual-type (:pointer (:struct key-point)))
;(defcstruct key-point1
;(x :float)
; (y :float)
;(size :float)
; (angle :float)
;(response :float)
; (octave :int)
;(class-id :int))
;; MAT1