# HDF User’s Guide

Version 4.2r4

[Top] [Prev][Next]

> pal_ex1.c

>     #include "hdf.h"
>     main( )
>     {
>     	uint8 palette_data[768];
>     	intn i;
>     	int32 status;
>     	/* Initialize the palette to grayscale. */
>     	for (i = 0; i < 256; i++) {
>     	  palette_data[i * 3] = i;
>     	  palette_data[i * 3 + 1] = i;
>     	  palette_data[i * 3 + 2] = i;
>     	}
>     	/* Write the palette to file. */
>     	status = DFPaddpal("Example1.hdf", (VOIDP)palette_data);
>     }

> pal_ex1.f

>           PROGRAM WRITE PALETTE
>           integer dpapal, status, i
>           character palette_data(768)
>     C     Initialize the palette to greyscale.
>           do 10, i = 1, 256
>             palette_data((i - 1) * 3 + 1) = char(i - 1)
>             palette_data((i - 1) * 3 + 2) = char(i - 1)
>             palette_data((i - 1) * 3 + 3) = char(i - 1)
>     10     continue
>     C     Write the palette to the HDF file.
>           status = dpapal(`Example1.hdf', palette_data)
>           end

> pal_ex2.c

>     #include "hdf.h"
>     main( )
>     {
>     	uint8 palette_data[768];
>     	intn status;
>     	/* Read the palette data from a file. */
>     	status = DFPgetpal("Example1.hdf", (VOIDP)palette_data);
>     }

> pal_ex2.f

>           PROGRAM READ PALETTE
>           integer dpgpal, status
>           character palette_data(768)
>     C     Read the palette from the HDF file.
>           status = dpgpal(`Example1.hdf', palette_data)
>           end

HDF4.2r4 - February 2009 Copyright | The HDF Group www.hdfgroup.org