blob: dc92ae4b535f9f7d6dfae7170975d5fa4c36715f (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
# PLOTS -- Measure the time required to make a number of row plots of an image.
procedure plots (image, nlines)
string image { prompt = "image to be plotted" }
int nlines { prompt = "number of line plots to be made" }
string imname
int nleft
begin
cache ("prow")
imname = image
time(); print ("======== start ========")
for (nleft=nlines; nleft > 0; nleft-=1)
$prow (imname, 50, >G "dev$null")
print ("======== end ========"); time()
end
|
