/usr/share/psychtoolbox-3/PsychDemos/GLSLCLUTAnimDemo.m is in psychtoolbox-3-common 3.0.11.20140816.dfsg1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 | function GLSLCLUTAnimDemo
%
% Demonstrates GLSL shader based CLUT animation via moglClutblit()
%
% THIS DEMO IS DEPRECATED! For a better and simpler method, look at
% ClutAnimDemo(2); and the help text of PsychImaging() for the
% 'EnableCLUTMapping' function.
%
% see also: ClutAnimDemo, PsychImaging
% HISTORY
% 7/05/05 mk Wrote it.
% 22/0705 fwc added SkipSyncTests preference call, slightly smaller texture,
% as drawtexture failed on s=400 on a 1024x768 pix screen
% in catch section, test if OrigLut exists before
% applying it.
try
help GLSLCLUTAnimDemo;
% This script calls Psychtoolbox commands available only in OpenGL-based
% versions of the Psychtoolbox. (So far, the OS X Psychtoolbox is the
% only OpenGL-base Psychtoolbox.) The Psychtoolbox command AssertPsychOpenGL will issue
% an error message if someone tries to execute this script on a computer without
% an OpenGL Psychtoolbox
AssertOpenGL;
% Get the list of screens and choose the one with the highest screen number.
% Screen 0 is, by definition, the display with the menu bar. Often when
% two monitors are connected the one without the menu bar is used as
% the stimulus display. Chosing the display with the highest dislay number is
% a best guess about where you want the stimulus displayed.
screens=Screen('Screens');
screenNumber=max(screens);
% Enable OpenGL mode of Psychtoolbox: This is crucially needed for clut
% animation:
InitializeMatlabOpenGL;
% Open a double buffered fullscreen window with black background:
w=Screen('OpenWindow',screenNumber, 0);
% Find the color value which corresponds to black. Though on OS
% X we currently only support true color and thus, for scalar color
% arguments, black is always 0 and white 255, this rule may not be true
% on other platforms.
black=BlackIndex(screenNumber);
% Build a simple gray-level ramp as a single texture.
[width, height]=Screen('WindowSize', w);
s=floor(min(width, height)/2)-1;
[x,y]=meshgrid(-s:s, -s:s);
fintex=ones(2*s+1,2*s+1);
fintex(:,:)=mod(x,256);
tex=Screen('MakeTexture', w, fintex);
% Black background:
Screen('FillRect',w, black);
newLUT = zeros(256,3);
for i=0:255
newLUT(i+1, :)=[i i i];
end
i=0;
tavg=0;
t0 = GetSecs;
% Show it by flipping the buffers:
ifi = Screen('GetFlipInterval', w);
vbl = Screen('Flip', w);
% Animation by CLUT color cycling loop:
while (1)
% Shift/Cycle all LUT entries: Entry 3 -> 2, 4 -> 3, 5 ->4 , ... ,
% 256 -> 255, 2 -> 256, ... we just leave slot 1 alone, it defines
% the DAC output values for the background.
backupLUT=newLUT(1, :);
newLUT(1:255, :)=newLUT(2:256, :);
newLUT(256, :)=backupLUT;
% Perform blit of our image, applying newLUT as clut:
moglClutBlit(w, tex, newLUT);
Screen('DrawLine', w, [255 255 0], 1280-mod(i, 1280), 0, 1280-mod(i, 1280), 1024);
% Show new image one monitor refresh after the last one:
vbl = Screen('Flip', w, vbl);
t1=GetSecs;
t1=vbl;
tavg=tavg+(t1-t0);
t0=t1;
i=i+1;
tonset(i)=t1;
% Abort after 1000 video refresh intervals or on a key-press:
if KbCheck || (i>1000)
break;
end;
end;
tavg=tavg / i
% Disable CLUT blitter. This needs to be done before the call to
% Screen('CloseAll')!
moglClutBlit;
Screen('CloseAll');
plot(diff(tonset)*1000);
catch
%this "catch" section executes in case of an error in the "try" section
%above. Importantly, it closes the onscreen window if its open.
Screen('CloseAll');
psychrethrow(psychlasterror);
end %try..catch..
|