blob: 8f734ce7053794814ab3e0629166613eef0d945d (
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
25
26
27
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <imhdr.h>
include <imio.h>
# IMBLN3 -- Get the length of the axes of a three dimensional subraster.
# Must be called immediately after the get or put call that created the
# buffer.
procedure imbln3 (imdes, nx, ny, nz)
pointer imdes
int nx, ny, nz
int i, v[3]
pointer bdes
begin
# Get pointer to most recently used buffer descriptor.
bdes = IM_LASTBDES(imdes)
do i = 1, 3
v[i] = abs (BD_VE(bdes,i) - BD_VS(bdes,i)) + 1
nx = v[1]
ny = v[2]
nz = v[3]
end
|
