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 at the forefront of robot programming innovation with ARC Pro, ensuring your robot is always equipped with the latest advancements.

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.

New Zealand
#2  

Glad to be able to give back....