Welcome to Synthiam!

The easiest way to program the most powerful robots. Use technologies by leading industry experts. ARC is a free-to-use robot programming software that makes servo automation, computer vision, autonomous navigation, and artificial intelligence easy.

Get Started
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

ARC Pro will give you immediate updates and new features needed to unleash your robot's potential!

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.
PRO
New Zealand
#2  
Glad to be able to give back....