|
| 1 | +% (C) Copyright 2010-2020 Sam Schwarzkopf |
| 2 | +% (C) Copyright 2020 CPP_PTB developers |
| 3 | + |
| 4 | +if SaveAps |
| 5 | + if SaveAps == 1 |
| 6 | + ApFrm = zeros(100, 100, Parameters.Volumes_per_Trial * length(Parameters.Conditions)); |
| 7 | + elseif SaveAps == 2 |
| 8 | + ApFrm = zeros(640, 480, 3); |
| 9 | + sf = 0; |
| 10 | + end |
| 11 | + SavWin = Screen('MakeTexture', Win, 127 * ones(StimRect([3 3]))); |
| 12 | +end |
| 13 | + |
| 14 | +% If saving movie |
| 15 | +if SaveAps == 1 && PrevVolume ~= CurrVolume |
| 16 | + PrevVolume = CurrVolume; |
| 17 | + CurApImg = Screen('GetImage', Win); |
| 18 | + CurApImg = rgb2gray(CurApImg); |
| 19 | + CurApImg = imresize(CurApImg, [Rect(4) Rect(3)]); |
| 20 | + Fxy = round(CenterRect(FrameRect, Rect) + ... |
| 21 | + [Parameters.Image_Position Parameters.Image_Position]); |
| 22 | + CurApImg = CurApImg(Fxy(2):Fxy(4), Fxy(1):Fxy(3)); |
| 23 | + CurApImg = double(abs(double(CurApImg) - 127) > 1); |
| 24 | + CurApImg = imresize(CurApImg, [100 100]); |
| 25 | + ApFrm(:, :, Parameters.Volumes_per_Trial * (Trial - 1) + CurrVolume) = CurApImg; |
| 26 | +elseif SaveAps == 2 |
| 27 | + CurApImg = Screen('GetImage', Win); |
| 28 | + CurApImg = imresize(CurApImg, [640 480]); |
| 29 | + sf = sf + 1; |
| 30 | + ApFrm(:, :, :, sf) = CurApImg; |
| 31 | +end |
| 32 | + |
| 33 | +if SaveAps == 2 |
| 34 | + ApFrm = uint8(ApFrm); |
| 35 | + save('Stimulus_movie', 'ApFrm'); |
| 36 | +end |
0 commit comments