New Zealand
Asked — Edited

Face Recognition Script

When I ask for input for one reason or another from a human I use this script to check before I have my robot speak It returns a $Face_Found=1 (YES) if it finds a human after about 5-10 seconds.

----------------------------------------------|

Visual Confirmation of Human Presence |

----------------------------------------------|

Print ("+-----------------------------+") Print ("| Checking for human presence |") Print ("+-----------------------------+")

Initialise Variables

$CameralsTracking=0 $count_down=20000 ControlCommand("Camera", CameraFaceTracking)

Start the sequence

Print("Scanning for faces....") ControlCommand("Camera", CameraFaceTrackingEnable) :Find_face $count_down=$count_down-1 $Face_found=$CameraIsTracking

Print("Scan $count_down")

IF ($count_down<=0) Print ("No faces visible!") Goto (Face_Check_Complete) ELSEIF ($Face_found=0) goto (Find_Face) ELSEIF ($Face_found=1) Print("Face located...") ControlCommand("Camera", CameraSnapshot) Print("Image recorded.") Goto (Face_Check_Complete) ENDIF

:Face_Check_Complete Print ("Scan completed!")

ControlCommand("Camera", CameraFaceTrackingDisable) halt()


ARC Pro

Upgrade to ARC Pro

Stay on the cutting edge of robotics with ARC Pro, guaranteeing that your robot is always ahead of the game.

Author Avatar
United Kingdom
#1  

These are great, loads of ideas on how to do things in scripts. I'm sure I will be borrowing parts for my code.

Author Avatar
New Zealand
#2  

Glad to be able to give back....