/usr/share/psychtoolbox-3/PsychTests/DrawingStuffTest.m is in psychtoolbox-3-common 3.0.11.20131230.dfsg1-1build1.
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 | % DrawingStuffTest
%
% Exercises FrameRect, DrawLine, FillPoly and FramePoly on OS X.
% 7/24/03 awi Wrote it.
s=max(Screen('Screens'));
w=Screen('OpenWindow', s,[],[],[],[],[],0);
Screen('FillRect', w, 0);
% Test drawing some frame rects
r1=[0 0 100 100];
r2=OffsetRect(r1, 200,200);
r3=OffsetRect(r1, 250,250);
r4=OffsetRect(r1, 300,300);
Screen('FrameRect',w, [255 255 0], r2, 1);
Screen('FrameRect',w, [255 0 0], r3, 4);
Screen('FrameRect',w, [0 255 0], r4, 9);
Screen('FrameRect',w, [255 0 255], r4, 1);
% Test drawing a line
Screen('DrawLine', w, 255, 100,100, 400,400, 3);
% Test drawing filled and framed polygons. Note that polygons must be convex. This is a
% requirement made by GL. Choosing vertices on the perimeter of a circle
% is guaranteed to specify a convex polygon.
polyCenterX=500;
polyCenterY=300;
numPoints=15;
polyRadius=50;
ClockRandSeed;
angles=sort(rand(1,numPoints) * 2 * pi);
polyPoints=round([ [cos(angles)*polyRadius+polyCenterX]', [sin(angles)*polyRadius+polyCenterY]']);
Screen('FillPoly', w, [0 0 255], polyPoints);
polyCenterY=150;
polyPoints=round([ [cos(angles)*polyRadius+polyCenterX]', [sin(angles)*polyRadius+polyCenterY]']);
Screen('FramePoly', w, [0 0 255], polyPoints,2);
Screen('Flip', w);
KbWait;
Screen('CloseAll');
|