1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <mach.h>
include "imfort.h"
# IMSWAP -- Swap bytes in pixel data if indicated for this host and image.
procedure imswap (im, buf, nchars)
pointer im
char buf[ARB]
int nchars
int nbytes
begin
if (IM_SWAP(im) == NO)
return
nbytes = nchars * SZB_CHAR
switch (IM_SZPIXEL(im) * SZB_CHAR) {
case 2:
call bswap2 (buf, 1, buf, 1, nbytes)
case 4:
call bswap4 (buf, 1, buf, 1, nbytes)
case 8:
call bswap8 (buf, 1, buf, 1, nbytes)
}
end
|
