Anonymous user
Image noise: Difference between revisions
Initial PL/I example
No edit summary |
(Initial PL/I example) |
||
Line 1,716:
# Start with 25 frames per second
(imageNoise 320 240 25)</lang>
=={{header|PL/I}}==
<lang>Image_Noise: procedure options (main); /* 3 November 2013 */
declare (start_time, end_time) float (18);
declare (frame, m, n) fixed binary;
start_time = secs();
get (m, n);
do frame = 1 to 100; /* Generate 100 frames. */
call display (m, n);
put skip data (frame);
end;
end_time = secs();
put skip list ('Average FPS =' || fixed(100/(end_time-start_time), 6) );
display: procedure (m, n);
declare (m, n) fixed binary;
declare screen(0:m, 0:n) bit (1);
declare i fixed binary;
declare random builtin;
screen = '0'b; /* clear screen for this frame */
do i = 0 to m*n*random;
screen(random*m, random*n) = random > 0.5;
end;
end display;
end Image_Noise;</lang>
=={{header|PureBasic}}==
| |||