blob: da2a172d4b199c635598717aa5008f11d8b4bf57 (
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
28
29
30
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <gki.h>
include "../lib/ids.h"
include "iis.h"
# IDS_EXPAND -- expand FRAME/BITPL if first element is IDS_EOD
# if the frames are not counted in order, as on the Model 75,
# that should be dealt with here (use the "flag" boolean).
procedure ids_expand(data, max, flag)
short data[ARB] # data
short max # max number of frames/bitplanes
bool flag # true if frames ... e.g. for Model 75
int i
begin
if ( data[1] != IDS_EOD )
return
do i = 1, max {
data[i] = i
}
if ( flag) {
data[1+max] = GRCHNUM
data[2+max] = IDS_EOD
} else
data[1+max] = IDS_EOD
end
|
