ランダムドットステレオグラム

function randomdot1(stereoMode)

ListenChar(2);

AssertOpenGL;

%手作りfunction

%myKeyCheck;

%引数が与えられなかったらstereoModeを８にする

if nargin < 1

    stereoMode = 8;

end;

try

  %必要に応じてカーソルを消してください

  %HideCursor;

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

  %ウィンドウでの呈示

  [windowPtr, windowRect]=Screen('OpenWindow', screenNumber, BlackIndex(screenNumber), [50, 50, 1000, 600], [], [], stereoMode);

  % -xmaxから+xmaxまでのピクセル数がランダムドットを描画する四角形の水平方向の大きさです。

  % 同様に-ymaxから+ymaxまでのピクセル数がランダムドットを描画する四角形の垂直方向の大きさです。

  xmax = 200;

  ymax = 200;

  %ランダムドットの数

  numDots = 300;

  %ドットの大きさ

  dotSize = 4;

  %ドットの色（白に設定しておくと自動的にアナグリフの色でドットが描画される）

  col1 = WhiteIndex(windowPtr);

  %像差量

  disparity = 4;

  %ドットのｘ座標

  dots(1, :) = 2*xmax*rand(1, numDots) - xmax;

  %ドットのｙ座標

  dots(2, :) = 2*ymax*rand(1, numDots) - ymax;

  %ドットの像差量（像差を持たないドットについては０を代入する）

  dots(3, :) = zeros(1, numDots);

  tmp = find((dots(1, :) > -xmax/2) & (dots(1, :) < xmax/2) & (dots(2, :) > -ymax/2) & (dots(2, :) < ymax/2));

  dots(3, tmp) = disparity;

  %ドットのアンチエイリアスのため

  Screen('BlendFunction', windowPtr, 'GL_SRC_ALPHA', 'GL_ONE_MINUS_SRC_ALPHA');

  %SelectStereoDrawBufferを使うと色の重なりも考慮してくれる

  %刺激A

  Screen('SelectStereoDrawBuffer', windowPtr, 0);

  Screen('DrawDots', windowPtr, dots(1:2, :) + [dots(3, :)/2; zeros(1, numDots)], dotSize, col1, [windowRect(3:4)/2], 1);

  %刺激B

  Screen('SelectStereoDrawBuffer', windowPtr, 1);

  Screen('DrawDots', windowPtr, dots(1:2, :) - [dots(3, :)/2; zeros(1, numDots)], dotSize, col1, [windowRect(3:4)/2], 1);

  Screen('Flip', windowPtr);

  %何かのキーを押したらプログラム終了

  KbWait;

  %終了処理

  Screen('CloseAll');

  ShowCursor;

  ListenChar(0);

catch

  Screen('CloseAll');

  ShowCursor;

  ListenChar(0);

end