W-Net-AI

My lisp code..


defparameter face-cascade-name "/home/w/Desktop/opencv-master/data/haarcascades/haarcascade_frontalface_alt.xml")
(defparameter faces (%vector-rect))
(defparameter window-name-1 "Original - CASCADE-CLASSIFIER Example")
(defparameter window-name-2 "Detected - CASCADE-CLASSIFIER Example")
(defparameter face-cascade (cascade-classifier face-cascade-name))
(defparameter filenumber 0) ;; Number of file to be saved
(defparameter filename 0)