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

Home Forums Lounge Discussion got an idea to capture faces at high speed, need to check concept. Reply To: got an idea to capture faces at high speed, need to check concept.

#7606
nosys70
Participant

    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