blob: da7c8b57e705ffeda9915c87b3275274d999b6ad (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
# IMCOPY -- Fast copy of an entire image. No fancy sections, type conversions,
# etc. are permitted if this is used.
procedure imcopy (old, new)
char old[ARB] # old image
char new[ARB] # new image
begin
call iki_init()
call iki_copy (old, new)
end
|
