psychtoolbox-3-common 3.0.14.20170103+git6-g605ff5c.dfsg1-1build1 / usr / share / psychtoolbox-3 / PsychTests / VideoCaptureStressTest.m

function VideoCaptureStressTest(fullscreen, fullsize, roi, deviceId)
% Demonstrate simple use of built-in video capture engine.
%
% VideoCaptureStressTest([fullscreen=0][, fullsize=0][, roi=[0 0 640 480]][,deviceId=0])
%
% Optional parameters:
%
% 'fullscreen' If set to non-zero value, the image is displayed in a
% fullscreen window, as usual, otherwise a normal GUI window is used.
%
% 'fullsize' If set to 1, the cameras image is scaled up to full screen
% resolution, ie. so it fills the maximum amount of display area, but
% preserving the original aspect ratio.
%
% 'roi' Selects a rectangular subregion of the camera for display. By
% default, it selects a [0 0 640 480] rectangle, ie. the full are of a
% camera with 640 x 480 pixels resolution. This parameter may need tweaking
% for some cameras, as some drivers have bugs and don't work well with all
% settings.
%
% 'deviceId' Device index of video capture device. Defaults to system default.
%

% History:
% Written sometimes 2006 by MK.

AssertOpenGL;

if nargin < 1
    fullscreen=[];
end

if isempty(fullscreen)
    fullscreen=0;
end;

if nargin < 2
    fullsize=[];
end

if isempty(fullsize)
    fullsize=0;
end

if nargin < 3
    roi = [];
end

if nargin < 4 || isempty(deviceId)
    deviceId = [];
end

screenid=max(Screen('Screens'));

try
    if fullscreen<1
        win=Screen('OpenWindow', screenid, 0, [0 0 800 600]);
    else
        win=Screen('OpenWindow', screenid, 0);
    end;

    % Initial flip to a blank screen:
    Screen('Flip',win);

    % Set text size for info text. 24 pixels is also good for Linux.
    Screen('TextSize', win, 24);

    grabber = Screen('OpenVideoCapture', win, deviceId, roi, 4, [], [], []);
%     brightness = Screen('SetVideoCaptureParameter', grabber, 'Brightness',383)
%     exposure = Screen('SetVideoCaptureParameter', grabber, 'Exposure',130)
%     gain = Screen('SetVideoCaptureParameter', grabber, 'Gain')
%     gamma = Screen('SetVideoCaptureParameter', grabber, 'Gamma')
%     shutter = Screen('SetVideoCaptureParameter', grabber, 'Shutter',7)
%     Screen('SetVideoCaptureParameter', grabber, 'PrintParameters')
%     vendor = Screen('SetVideoCaptureParameter', grabber, 'GetVendorname')
%     model  = Screen('SetVideoCaptureParameter', grabber, 'GetModelname')
%     fps  = Screen('SetVideoCaptureParameter', grabber, 'GetFramerate')
%     roi  = Screen('SetVideoCaptureParameter', grabber, 'GetROI')
fps=[30,30,60,75, 100]

KbStrokeWait;    


for repcount=1:10
%    Screen('StartVideoCapture', grabber, fps(repcount), 1);
    Screen('StartVideoCapture', grabber, realmax, 1);
    tex = 0;
    dstRect = [];
    oldpts = 0;
    count = 0;
    t=GetSecs;
    while (GetSecs - t) < 600 
        if KbCheck
            break;
        end;
        
        [tex pts nrdropped]=Screen('GetCapturedImage', win, grabber, 1); %#ok<NASGU>
        % fprintf('tex = %i  pts = %f nrdropped = %i latency = %f msecs\n', tex, pts, nrdropped, 1000 * (GetSecs - pts));
        
        if (tex>0)
            % Perform first-time setup of transformations, if needed:
            if fullsize && (count == 0)
                texrect = Screen('Rect', tex);
                winrect = Screen('Rect', win);
                sf = min([RectWidth(winrect) / RectWidth(texrect) , RectHeight(winrect) / RectHeight(texrect)]);
                dstRect = CenterRect(ScaleRect(texrect, sf, sf) , winrect);
            end

            % Setup mirror transformation for horizontal flipping:
            
            % xc, yc is the geometric center of the text.
            %[xc, yc] = RectCenter(Screen('Rect', win));
            
            % Make a backup copy of the current transformation matrix for later
            % use/restoration of default state:
            %Screen('glPushMatrix', win);
            % Translate origin into the geometric center of text:
            %Screen('glTranslate', win, xc, 0, 0);
            % Apple a scaling transform which flips the direction of x-Axis,
            % thereby mirroring the drawn text horizontally:
            %Screen('glScale', win, -1, 1, 1);
            % We need to undo the translations...
            %Screen('glTranslate', win, -xc, 0, 0);
            % The transformation is ready for mirrored drawing:

            % Draw new texture from framegrabber.
            Screen('DrawTexture', win, tex, [], dstRect);

            %Screen('glPopMatrix', win);

            % Print pts:
            Screen('DrawText', win, sprintf('%.4f', pts - t), 0, 0, 255);
             if count>0
                % Compute delta:
                delta = (pts - oldpts) * 1000;
                oldpts = pts;
                Screen('DrawText', win, sprintf('%.4f', delta), 0, 20, 255);
            end;
            
            % Show it.
            Screen('Flip', win);
            Screen('Close', tex);
            tex=0; %#ok<NASGU>
        end;        
        count = count + 1;
    end;
    telapsed = GetSecs - t %#ok<NOPRT>
    Screen('StopVideoCapture', grabber);
    KbReleaseWait;
end

KbStrokeWait;    

    Screen('CloseVideoCapture', grabber);

KbStrokeWait;    


    Screen('CloseAll');
    avgfps = count / telapsed %#ok<NOPRT,NASGU>
catch
   Screen('CloseAll');
end;