blob: 2772b27cae072cd6c224bca600263e00d99de7d2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
task imt = t_imt
# IMT -- Test the image template package.
procedure t_imt()
char template[SZ_LINE]
char image[SZ_FNAME]
pointer imt, imtopen()
int imtgetim()
begin
call clgstr ("template", template, SZ_LINE)
imt = imtopen (template)
while (imtgetim (imt, image, SZ_FNAME) != EOF) {
call printf ("%s\n")
call pargstr (image)
}
call imtclose (imt)
end
|
