Demo face smile detection and chat

Author: eskender-f

behavior/behavior.scm

@@ -58,4 +58,4 @@
 
 
 ;; Run dynamic psi
-(psi-updater-run)
+;(psi-updater-run)

behavior/demo.top

@@ -14,7 +14,7 @@ u: (me name be _*) $name='_0 Hi '_0
 
 u: (what be me name $name) Your name is $name
 
-u: (you hate human) no. you are very interesting. Do you hate robotos?
+u: (you hate humans) no. you are very interesting. Do you hate robots?
 	a: (yes) I am sure you are going to like me though
 	a: (no) We will get along fine
 

behavior/updater.scm

@@ -61,9 +61,10 @@
 			)
 		)
 
+		#|
 		; Finally send text output to stt when there is one
 		; Note: This code is only for demo (stt input should be read from port)
-       
+      
 		(set! ghost-result (ghost-get-result))
 		(for-each (lambda (a)
 		    (set! txt-str (string-trim (string-append txt-str " " (cog-name a))))
@@ -79,8 +80,10 @@
 			)
 
 		)
+		|#
 
 		)
+		(usleep 10000)
 	)
 
 )

dr-roboto.scm

@@ -32,3 +32,34 @@
 
 ; load scratch interface
 (include "scratch/scratch.scm")
+
+
+(define txt-str-prev "")
+
+(while #t
+	(let ((txt-str "")
+	     (ghost-result '()))
+		
+
+		; Finally send text output to stt when there is one
+		; Note: This code is only for demo (stt input should be read from port)
+      
+		(set! ghost-result (ghost-get-result))
+		(for-each (lambda (a)
+		    (set! txt-str (string-trim (string-append txt-str " " (cog-name a))))
+		    )ghost-result
+		)
+
+		(if (equal? txt-str txt-str-prev)
+			(continue)
+			(begin
+				(act-say txt-str)
+				(set! txt-str-prev txt-str)
+			)
+
+		)
+	
+	)
+	(usleep 100000)
+	
+)

dr-roboto/dr-roboto.cpp.in

@@ -86,6 +86,7 @@ const char *face_detect()
 	      std::to_string(faces[i].height) + ";";
     //ret += ";";
     //cv::imshow("image", frame);
+    cv::imwrite("face.jpg", frame);
     return ret.c_str();
 }
 
@@ -111,8 +112,8 @@ const char *face_smile_detect()
     }
     //ret += ";";
     //cv::imshow("image", frame);
-    std::cout<<ret<<std::endl;
-    cv::imwrite("face_smile.jpg", frame);
+    //std::cout<<ret<<std::endl;
+    //cv::imwrite("face_smile.jpg", frame);
     return ret.c_str();
 }
 

socket/socket.scm

@@ -120,6 +120,7 @@
 				(close client))
 				)
 			)
+			(usleep 100000)
 		)
 	)
 )