27 lines
731 B
Text
27 lines
731 B
Text
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;
|