got an idea to capture faces at high speed, need to check concept.

[Anonymous]

here is the autoit code i mentionned in the precedent post
words and actions are in French, you need to change for your own needs.
Also colors are not set to the good ones.Suggestions welcome here.
I think orange is a must, also light blue and green (many movies have a green cast)
white could be also needed to mimic overexposed pictures (flashes)
In general i do not expect the screen providing the full lighting, it is just
to have a changing lighting (color and position)
But some movies have really dark lighting, with light coming form only one side
(usually with reddish/blueish cast) so we could use the screen for that.

#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ColorConstants.au3>
#Include <ScreenCapture.au3>
#Include <Misc.au3>

Global $iXL, $iYL, $iXP, $iYP, $iBar, $iCol, $sColbackgnd, $Label1, $iWord, $iAction
Dim $word[25]
$word[1]=”BA-BE-BI-BO-BU”
$word[2]=”FRAPADINGUE”
$word[3]=”MIRACULEUX”
$word[4]=”COLOSSAL”
$word[5]=”MULTIPLE”
$word[6]=”MAMAN”
$word[7]=”PAPA”
$word[8]=”SUPERIEUR”
$word[9]=”INFERIEUR”
$word[10]=”CASSANDRA”
$word[11]=”MERLIN”
$word[12]=”TOGOLAIS”
$word[13]=”SYMANTEC”
$word[14]=”VUVUZELA”
$word[15]=”PISTACHE”
$word[16]=”CACATOES”
$word[17]=”MISTIGRI”
$word[18]=”NOVELLA”
$word[19]=”IMPOSSIBLE”
$word[20]=”SCHTROUPF”
$word[21]=”GARGAMEL”
$word[22]=”HORRIBLE”
$word[23]=”FINISTERRE”
$word[24]=”ODIEUX”

Dim $action[11]
$action[1]=””
$action[2]=”(fermer les yeux)”
$action[3]=”(tirer la langue)”
$action[4]=”(pencher la tete en avant)”
$action[5]=”(regarder a gauche)”
$action[6]=”(regarder a droite)”
$action[7]=”(regarder en bas)”
$action[8]=”(froncer les sourcils)”
$action[9]=”(lever les sourcils)”
$action[10]=”(sourire)”

Local $hDLL = DllOpen(“user32.dll”)
;create fixed light for text and picture
$hFixed_GUI = GUICreate(“”, 640, 360 ,640 , 360, $WS_POPUP)
;create label to display text
$Label1=GUICtrlCreateLabel(“a dire”, 200, 100 , 600, 300)
GUICtrlSetFont(-1, 40, 400, 0, “Arial Rounded MT Bold”)
$Label2=GUICtrlCreateLabel(“(a faire)”, 200, 160 , 600, 300)
GUICtrlSetFont(-1, 25, 400, 0, “Arial Rounded MT Bold”)
GUISetState()
; Create moving GUI for light
$hBitmap_GUI = GUICreate(“”, 240, 50, 0, 0, $WS_POPUP)
GUISetState()

While 1
GUISetState(@SW_SHOW, $hBitmap_GUI)
If _IsPressed(“20″, $hDLL) Then
ExitLoop
Else
Sleep (2000)
$iBar=random (1, 4, 1)
switch $iBar
case 1
$iXL=1920
$iYL=360
$iXP=0
$iYP=0
case 2
$iXL=1920
$iYL=360
$iXP=0
$iYP=720
case 3
$iXL=640
$iYL=1080
$iXP=0
$iYP=0
case 4
$iXL=640
$iYL=1080
$iXP=1280
$iYP=0
EndSwitch
$iCol=random (1, 10, 1)
switch $iCol
case 1
$sColbackgnd=”0xFF0000″
case 2
$sColbackgnd=”0x00FFFF”
case 3
$sColbackgnd=”0x0000FF”
case 4
$sColbackgnd=”0xFFFF00″
case 5
$sColbackgnd=”0xFF00FF”
case 6
$sColbackgnd=”0x00FFFF”
case 7
$sColbackgnd=”0x777777″
case 8
$sColbackgnd=”0xAA4422″
case 9
$sColbackgnd=”0x33AA88″
case 10
$sColbackgnd=”0x228855″
EndSwitch
$iWord=random (1, 24, 1)
if $iCol=5 or $iCol=3 then
$iAction=random (2, 10, 1)
Else
$iAction=1
EndIf
GUICtrlSetData($Label1, $word[$iWord])
GUICtrlSetData($Label2, $action[$iAction])
GUISetState()
GUISetBkColor ( $sColbackgnd, $hBitmap_GUI )
WinMove ( “”, “”, $iXP, $iYP, $iXL , $iYL , 5 )
GUISetState()
EndIf
WEnd
DllClose($hDLL)
exit

[Author]

Posts