刺激フレームに対応した反応記録の試み
% travelling dot
white=255;
[w,wRect]=Screen(0,'OpenWindow',white);
srcRect=[0,0,100,100];
dstRect=CenterRect(srcRect,wRect);
dotRect0=CenterRect([0 0 12 12],srcRect);
[dot offRect]=Screen(w,'OpenOffscreenWindow',white,dstRect);
Screen(dot,'FillOval',black,dotRect0);
white=255;
black=0;
d0=OffsetRect(offRect,0,0);
rightKey = KbName('right');
leftKey = KbName('left');
escapeKey = KbName('esc');
bb=[];
while 1
[a,b,keyCode] = KbCheck;
if keyCode(rightKey)
for i=1:300
dotRect=OffsetRect(d0,i,0);
Screen(w,'WaitBlanking')
Screen('CopyWindow',dot,w,offRect,dotRect);
[a,b,keyCode] = KbCheck;
if keyCode(leftKey)
bb=[bb i];
end
FlushEvents('keyDown');
end
end
if keyCode(escapeKey)
break;
end
end
FlushEvents('keyDown');
Screen('CloseAll');
Reference
Yahoo.com/Groups/psychtoolbox (要メンバー登録)
Subject: how to register a single key press
http://groups.yahoo.com/group/psychtoolbox/message/3507
% travelling dot
white=255;
[w,wRect]=Screen(0,'OpenWindow',white);
srcRect=[0,0,100,100];
dstRect=CenterRect(srcRect,wRect);
dotRect0=CenterRect([0 0 12 12],srcRect);
[dot offRect]=Screen(w,'OpenOffscreenWindow',white,dstRect);
Screen(dot,'FillOval',black,dotRect0);
white=255;
black=0;
d0=OffsetRect(offRect,0,0);
rightKey = KbName('right');
leftKey = KbName('left');
escapeKey = KbName('esc');
bb=[];
while 1
[a,b,keyCode] = KbCheck;
if keyCode(rightKey)
for i=1:300
dotRect=OffsetRect(d0,i,0);
Screen(w,'WaitBlanking')
Screen('CopyWindow',dot,w,offRect,dotRect);
[a,b,keyCode] = KbCheck;
if keyCode(leftKey)
bb=[bb i];
end
FlushEvents('keyDown');
end
end
if keyCode(escapeKey)
break;
end
end
FlushEvents('keyDown');
Screen('CloseAll');
Reference
Yahoo.com/Groups/psychtoolbox (要メンバー登録)
Subject: how to register a single key press
http://groups.yahoo.com/group/psychtoolbox/message/3507