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.

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
    Posts
  • #7585
    nosys70
    Participant

      Hello
      Imagine somebody ask you to create a DFM file for him with his face. Lots of work because you need tons of pictures.
      I got an idea for a setup that could provide the pictures needed in almost no time.

      imagine you put the subject seated on a stool, in front of a big TV screen. Like 1 meter (3 feet) of a 55 inches screen.
      on the screen you got a word that is moving across the screen. The subject is supposed to follow the word with eyes and head while telling repeating the word until it changes.
      the screen is also displaying big spots of differents colors, so the face of the subject get the light, coming from differents sides.
      you install several cameras around the screen, so you shoot the head of the subject with different angles, speeding the number of sample pictures.
      With 2 cameras at 12 fps, you got 24 pictures per secondes, 1440 pictures per minutes and 20.000 pictures in just 15 minutes.

      other lights could be added (like a string of led, installed as a ring over the top of the head). the light could move on the led string so the light comes also from differents angles. but i think the screen would be enough.

      Do you think this setup could be ok ?
      I can easily write a program running on a pc to do that. the first part would be the word’s list and random position (like some screensaver do), and the second part would be displaying the color spots (different size, position and colors) to create lighting.
      Then connecting a simple laptop with HDMI on the screen is ok.
      For image capture, the same PC could use 2 webcams, or we could use 2 camcorders.

      #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

      Viewing 2 posts - 1 through 2 (of 2 total)
      • You must be logged in to reply to this topic.