|
pal_id
|
IN:
|
Palette identifier of the target general raster image
|
|
pal_data
|
OUT:
|
Buffer for the palette data to be read
|
#include "hdf.h"
int32 pal_id, ri_id, gr_id, stat;
intn index;
char pal_data[PALETTE_SIZE];
...
index = GRnametoindex(gr_id, "Target image");
ri_id = GRselect(gr_id, index);
pal_id = GRgetlutid(ri_id, 0);
stat = GRreadlut(pal_id, pal_data);
...
|
FORTRAN
|
integer function mgrclut(pal_id, pal_data)
|
|
|
integer pal_id
|
|
|
<valid numeric data type> pal_data(*)
|
|
|
|
|
|
integer function mgrdlut(pal_id, pal_data)
|
|
|
integer pal_id
|
|
|
character* (*) pal_data
|