blob: 54b38813bfda9231c6768c325a05314215d0fd51 (
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>
# GKI_RETCELLARRAY -- Return a cell array (pixel array). Used by a graphics
# kernel to return a cell array to GIO in response to a GETCELLARRAY
# instruction.
#
# BOI GKI_CELLARRAY L NP P
#
# L(i) 4 + NP
# NP(i) number of pixels in cell array
# P(NPi) cell array
procedure gki_retcellarray (fd, m, np)
int fd # output file
short m[ARB] # cell array
int np # number of pixels in cell array
short gki[GKI_CELLARRAY_LEN]
data gki[1] /BOI/, gki[2] /GKI_CELLARRAY/
begin
gki[GKI_CELLARRAY_L] = GKI_CELLARRAY_LEN + np
gki[GKI_CELLARRAY_NP] = np
call write (fd, gki, GKI_CELLARRAY_LEN * SZ_SHORT)
call write (fd, m, np * SZ_SHORT)
end
|
