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