% MOTION_THRES - derived from DUALTASK - measures coh.or direction thresholds

global fileH;
global a;

% ESSENTIAL PARAMETERS:
%filename='rambler:Desktop Folder:rambler users:giedrius:eyecalib:gains'; %'greg  mts';

% range of analog input as reported by analin2ch
minin=-10;
maxin=10;

%%%%%%%%%% STARTING %%%%%%%%
displayTrialStartYes=0;
init_graphics;

% other params
nFrames=66;
sizeFont=40;	

%fixspot position & size
fixrad=5;
fixpos = [displayX/2 displayY/2];
fixstep= displayY/8;
cntr=[displayX/2, displayY/2];

% keys for moving the fix spot
up='2';
dn='3';
lt='1';
rt='4';
ct='5';
st='*';

% eyetrace position
eyerad=3;
eyepos=fixpos;

datain=[0 0];

% START 1!! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Initializing display
display = openScreen(display);
SCREEN(display.windowPtr,'SetClut',cmap)
%SCREEN(display.windowPtr,'Preference','SetClutWaitVBL',[0])
%SCREEN(display.windowPtr,'FillOval',2,fixpos);	%draw fixspot

stopit=0;

while ~stopit,
    %screen(display.windowPtr,'TextSize',30);
    %pressKey2Begin(display);
	if displayTrialStartYes, dispStringInCenter(display,'Press <ENTER> to begin'); end;
	%i=input(''); % NO WAITING FOR KEYPRESS
	
	%erasing old eye position
 	SCREEN(display.windowPtr,'FillOval',0,...
		  [eyepos(1)-eyerad eyepos(2)-eyerad eyepos(1)+eyerad eyepos(2)+eyerad]);	

 	datain=mean(analin2ch(4,20)); % ie /10*2048.
	eyepos(1)=round(datain(1)*displayX/2/maxin+displayX/2);
	eyepos(2)=round(displayY-datain(2)*displayY/2/maxin-displayY/2);
	
	%SCREEN(display.windowPtr,'FillRect',0,...
	%	   [displayX/2-100, displayY/2-20, displayX/2+140, displayY/2+30]);	% clear the fixspot
    %draw the eyeposition
 	SCREEN(display.windowPtr,'FillOval',2,...
		  [eyepos(1)-eyerad eyepos(2)-eyerad eyepos(1)+eyerad eyepos(2)+eyerad]);	

	%draw fixspot
	SCREEN(display.windowPtr,'FillOval',3,...
		   [fixpos(1)-fixrad fixpos(2)-fixrad fixpos(1)+fixrad fixpos(2)+fixrad]);	
	
	if CharAvail, 
		whichDir=getchar; 
		%erase fixspot
		SCREEN(display.windowPtr,'FillOval',0,...
			[fixpos(1)-fixrad fixpos(2)-fixrad fixpos(1)+fixrad fixpos(2)+fixrad]);	

		if whichDir==up, 	 fixpos(2)=fixpos(2)-fixstep;
		elseif whichDir==dn, fixpos(2)=fixpos(2)+fixstep;
		elseif whichDir==lt, fixpos(1)=fixpos(1)-fixstep;
		elseif whichDir==rt, fixpos(1)=fixpos(1)+fixstep;
		elseif whichDir==ct, fixpos(1)=displayX/2;fixpos(2)=displayY/2;
		elseif whichDir==st, stopit=1;
		end;		
	end;
end;

SCREEN('CloseAll');