SpriteDemo from PsychDemos

PsychToolBox
SpriteDemo：画面処理の短い例 (function)
while ~any(buttons)
[mX,mY,buttons] = GetMouse;
Screen(w,'WaitBlanking');
% erase the sprite drawn at the previous location
r=CenterRectOnPoint(spriteRect,previousX, previousY);
Screen('CopyWindow',wCopy,w,r,r);
% draw the sprite at the new location.
Screen('CopyWindow',wSprite,w,spriteRect,CenterRectOnPoint(spriteRect,mX, mY));
previousX = mX;
previousY = mY;
end